diff options
Diffstat (limited to 'numeric.c')
-rw-r--r-- | numeric.c | 16 |
1 files changed, 15 insertions, 1 deletions
@@ -667,7 +667,7 @@ int num2int(val) VALUE val; { - long num = num2int(val); + long num = num2long(val); if (num < INT_MIN || INT_MAX < num) { ArgError("integer %d too big to convert to `int'.", num); @@ -686,6 +686,20 @@ fix2int(val) } return (int)num; } +#else +int +num2int(val) + VALUE val; +{ + return num2long(val); +} + +int +fix2int(val) + VALUE val; +{ + return FIX2INT(val); +} #endif VALUE |