296     *p = malloc(size);

   296     *p = malloc(size);

   297 }

   297 }

   298 

   298 

   299 Integer fpcrtl_trunc(extended n) {

   299 Integer fpcrtl_trunc(extended n) {

   300     return (int) n;

   300     return (int) n;

   301 }

   305 }

   302 

   306 

   303 LongInt str_to_int(char *src)

   307 LongInt str_to_int(char *src)

   304 {

   308 {

   305     int i;

   309     int i;