/[emacs]/emacs/src/floatfns.c
ViewVC logotype

Diff of /emacs/src/floatfns.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.78 by eliz, Tue Feb 19 10:58:07 2002 UTC revision 1.78.4.1 by miles, Fri Apr 4 06:20:58 2003 UTC
# Line 468  DEFUN ("expt", Fexpt, Sexpt, 2, 2, 0, Line 468  DEFUN ("expt", Fexpt, Sexpt, 2, 2, 0,
468        x = XINT (arg1);        x = XINT (arg1);
469        y = XINT (arg2);        y = XINT (arg2);
470        acc = 1;        acc = 1;
471          
472        if (y < 0)        if (y < 0)
473          {          {
474            if (x == 1)            if (x == 1)
# Line 992  float_error (signo) Line 992  float_error (signo)
992  #endif /* FLOAT_CATCH_SIGILL */  #endif /* FLOAT_CATCH_SIGILL */
993    
994  #ifdef HAVE_MATHERR  #ifdef HAVE_MATHERR
995  int  int
996  matherr (x)  matherr (x)
997       struct exception *x;       struct exception *x;
998  {  {
# Line 1026  init_floatfns () Line 1026  init_floatfns ()
1026  {  {
1027  #ifdef FLOAT_CATCH_SIGILL  #ifdef FLOAT_CATCH_SIGILL
1028    signal (SIGILL, float_error);    signal (SIGILL, float_error);
1029  #endif  #endif
1030    in_float = 0;    in_float = 0;
1031  }  }
1032    

Legend:
Removed from v.1.78  
changed lines
  Added in v.1.78.4.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26