Mercurial > emacs

comparison src/floatfns.c @ 49600:23a1cea22d13

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Trailing whitespace deleted.
author Juanma Barranquero <lekktu@gmail.com>
date Tue, 04 Feb 2003 14:56:31 +0000
parents 0f448bd1bf9a
children 695cf19ef79e d7ddb3e565de
comparison
equal deleted inserted replaced
49599:5ade352e8d1c 49600:23a1cea22d13
466 Lisp_Object val; 466 Lisp_Object val;
467 467
468 x = XINT (arg1); 468 x = XINT (arg1);
469 y = XINT (arg2); 469 y = XINT (arg2);
470 acc = 1; 470 acc = 1;
471 471
472 if (y < 0) 472 if (y < 0)
473 { 473 {
474 if (x == 1) 474 if (x == 1)
475 acc = 1; 475 acc = 1;
476 else if (x == -1) 476 else if (x == -1)
990 where SIGILL is signaled. */ 990 where SIGILL is signaled. */
991 991
992 #endif /* FLOAT_CATCH_SIGILL */ 992 #endif /* FLOAT_CATCH_SIGILL */
993 993
994 #ifdef HAVE_MATHERR 994 #ifdef HAVE_MATHERR
995 int 995 int
996 matherr (x) 996 matherr (x)
997 struct exception *x; 997 struct exception *x;
998 { 998 {
999 Lisp_Object args; 999 Lisp_Object args;
1000 if (! in_float) 1000 if (! in_float)
1024 void 1024 void
1025 init_floatfns () 1025 init_floatfns ()
1026 { 1026 {
1027 #ifdef FLOAT_CATCH_SIGILL 1027 #ifdef FLOAT_CATCH_SIGILL
1028 signal (SIGILL, float_error); 1028 signal (SIGILL, float_error);
1029 #endif 1029 #endif
1030 in_float = 0; 1030 in_float = 0;
1031 } 1031 }
1032 1032
1033 void 1033 void
1034 syms_of_floatfns () 1034 syms_of_floatfns ()