equal
deleted
inserted
replaced
75 #define fpcrtl_assigned(p) ((p) != NULL) |
75 #define fpcrtl_assigned(p) ((p) != NULL) |
76 #define fpcrtl_Assigned fpcrtl_assigned |
76 #define fpcrtl_Assigned fpcrtl_assigned |
77 |
77 |
78 Integer fpcrtl_trunc(extended n); |
78 Integer fpcrtl_trunc(extended n); |
79 |
79 |
80 #define fpcrtl_val(s, a, c) fpcrtl_val__vars(s, &(a), &(c)) |
80 #define fpcrtl_val(s, a) fpcrtl_val__vars(s, &(a)) |
81 void __attribute__((overloadable)) fpcrtl_val__vars(string255 s, LongInt *a, LongInt *c); |
81 void __attribute__((overloadable)) fpcrtl_val__vars(string255 s, LongInt *a); |
82 void __attribute__((overloadable)) fpcrtl_val__vars(string255 s, Byte *a, LongInt *c); |
82 void __attribute__((overloadable)) fpcrtl_val__vars(string255 s, Byte *a); |
83 void __attribute__((overloadable)) fpcrtl_val__vars(string255 s, LongWord *a, LongInt *c); |
83 void __attribute__((overloadable)) fpcrtl_val__vars(string255 s, LongWord *a); |
84 |
84 |
85 #define fpcrtl_randomize() srand(time(NULL)) |
85 #define fpcrtl_randomize() srand(time(NULL)) |
86 |
86 |
87 /* |
87 /* |
88 * Random returns a random number larger or equal to 0 and strictly less than L |
88 * Random returns a random number larger or equal to 0 and strictly less than L |