Mercurial > hg > xemacs-beta

comparison src/floatfns.c @ 442:abe6d1db359e r21-2-36

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-36
author cvs
date Mon, 13 Aug 2007 11:35:02 +0200
parents 8de8e3f6228a
children 576fb035e263
comparison
equal deleted inserted replaced
441:72a7cfa4a488 442:abe6d1db359e
77 static int in_float; 77 static int in_float;
78 78
79 /* If an argument is out of range for a mathematical function, 79 /* If an argument is out of range for a mathematical function,
80 here is the actual argument value to use in the error message. */ 80 here is the actual argument value to use in the error message. */
81 static Lisp_Object float_error_arg, float_error_arg2; 81 static Lisp_Object float_error_arg, float_error_arg2;
82 static CONST char *float_error_fn_name; 82 static const char *float_error_fn_name;
83 83
84 /* Evaluate the floating point expression D, recording NUM 84 /* Evaluate the floating point expression D, recording NUM
85 as the original argument for error messages. 85 as the original argument for error messages.
86 D is normally an assignment expression. 86 D is normally an assignment expression.
87 Handle errors which may result in signals or may set errno. 87 Handle errors which may result in signals or may set errno.
124 124
125 125
126 /* Convert float to Lisp Integer if it fits, else signal a range 126 /* Convert float to Lisp Integer if it fits, else signal a range
127 error using the given arguments. */ 127 error using the given arguments. */
128 static Lisp_Object 128 static Lisp_Object
129 float_to_int (double x, CONST char *name, Lisp_Object num, Lisp_Object num2) 129 float_to_int (double x, const char *name, Lisp_Object num, Lisp_Object num2)
130 { 130 {
131 if (x >= ((EMACS_INT) 1 << (VALBITS-1)) 131 if (x >= ((EMACS_INT) 1 << (VALBITS-1))
132 || x <= - ((EMACS_INT) 1 << (VALBITS-1)) - (EMACS_INT) 1) 132 || x <= - ((EMACS_INT) 1 << (VALBITS-1)) - (EMACS_INT) 1)
133 { 133 {
134 if (!UNBOUNDP (num2)) 134 if (!UNBOUNDP (num2))
986 } 986 }
987 987
988 void 988 void
989 syms_of_floatfns (void) 989 syms_of_floatfns (void)
990 { 990 {
991 INIT_LRECORD_IMPLEMENTATION (float);
991 992
992 /* Trig functions. */ 993 /* Trig functions. */
993 994
994 #ifdef LISP_FLOAT_TYPE 995 #ifdef LISP_FLOAT_TYPE
995 DEFSUBR (Facos); 996 DEFSUBR (Facos);