| author | Camm Maguire <camm@debian.org> | 2003年06月02日 15:04:30 +0000 |
|---|---|---|
| committer | Camm Maguire <camm@debian.org> | 2003年06月02日 15:04:30 +0000 |
| commit | d5a34247d84d84258510c04e12e359ffbfb6410b (patch) | |
| tree | 96bcc86a8546830807745d2cf06e81c2b9af0cee | |
| parent | 9e120ab32959e97caf065933d9f601a12a9b4336 (diff) | |
| download | gcl-unlabeled-1.15.6.1.2.tar.gz | |
| -rwxr-xr-x | gcl/o/cmpaux.c | 90 |
diff --git a/gcl/o/cmpaux.c b/gcl/o/cmpaux.c index 24121563c..88dcf0d6d 100755 --- a/gcl/o/cmpaux.c +++ b/gcl/o/cmpaux.c @@ -199,51 +199,51 @@ object_to_int(object x) return(i); } -static float -object_to_float(object x) -{ - float f=0.0; - - switch (type_of(x)) { - case t_character: - f = char_code(x); break; - case t_fixnum: - f = fix(x); break; - case t_bignum: - case t_ratio: - f = number_to_double(x); break; - case t_shortfloat: - f = sf(x); break; - case t_longfloat: - f = lf(x); break; - default: - FEerror("~S cannot be coerce to a C float.", 1, x); - } - return(f); -} - -static double -object_to_double(object x) -{ - double d=0.0; - - switch (type_of(x)) { - case t_character: - d = char_code(x); break; - case t_fixnum: - d = fix(x); break; - case t_bignum: - case t_ratio: - d = number_to_double(x); break; - case t_shortfloat: - d = sf(x); break; - case t_longfloat: - d = lf(x); break; - default: - FEerror("~S cannot be coerce to a C double.", 1, x); - } - return(d); -} +/* static float */ +/* object_to_float(object x) */ +/* { */ +/* float f=0.0; */ + +/* switch (type_of(x)) { */ +/* case t_character: */ +/* f = char_code(x); break; */ +/* case t_fixnum: */ +/* f = fix(x); break; */ +/* case t_bignum: */ +/* case t_ratio: */ +/* f = number_to_double(x); break; */ +/* case t_shortfloat: */ +/* f = sf(x); break; */ +/* case t_longfloat: */ +/* f = lf(x); break; */ +/* default: */ +/* FEerror("~S cannot be coerce to a C float.", 1, x); */ +/* } */ +/* return(f); */ +/* } */ + +/* static double */ +/* object_to_double(object x) */ +/* { */ +/* double d=0.0; */ + +/* switch (type_of(x)) { */ +/* case t_character: */ +/* d = char_code(x); break; */ +/* case t_fixnum: */ +/* d = fix(x); break; */ +/* case t_bignum: */ +/* case t_ratio: */ +/* d = number_to_double(x); break; */ +/* case t_shortfloat: */ +/* d = sf(x); break; */ +/* case t_longfloat: */ +/* d = lf(x); break; */ +/* default: */ +/* FEerror("~S cannot be coerce to a C double.", 1, x); */ +/* } */ +/* return(d); */ +/* } */ /* this may allocate storage. The user can prevent this by providing a string will fillpointer < length and |