changeset 10137 | a4537aab4117 |
parent 10015 | 4feced261c68 |
child 10564 | 0cb20aa8877a |
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 } |