project_files/hwc/rtl/sysutils.c
changeset 10137 a4537aab4117
parent 10015 4feced261c68
child 10564 0cb20aa8877a
equal deleted inserted replaced
10136:f0da90f58c98 10137:a4537aab4117
   161     return fpcrtl_copy(f, i + 2, 256);
   161     return fpcrtl_copy(f, i + 2, 256);
   162 }
   162 }
   163 
   163 
   164 string255 fpcrtl_strPas(PChar p)
   164 string255 fpcrtl_strPas(PChar p)
   165 {
   165 {
   166     string255 s;
   166     return fpcrtl_pchar2str(p);
   167     int l = strlen(p);
       
   168 
       
   169     if(l > 255){
       
   170         printf("strPas: source string length > 255\n");
       
   171         assert(0);
       
   172     }
       
   173 
       
   174     s.len = l;
       
   175     strcpy(s.str, p);
       
   176 
       
   177     return s;
       
   178 }
   167 }