*** io-utils.c.org	Tue Jul 15 08:26:11 1997
--- io-utils.c	Tue Jul 15 08:27:25 1997
***************
*** 57,70 ****
  char iname[] = "#INFINITY";
  char mname[] = "#MINUS_INFINITY";
  
- static double
- divide (a, b)
-      double a;
-      double b;
- {
-   return a / b;
- }
- 
  static RETSIGTYPE
  ignore_sig (sig)
       int sig;
--- 57,62 ----
***************
*** 86,96 ****
  #endif
  {
    (void)signal (SIGFPE, ignore_sig);
!   __plinf = divide (1., 0.);
    (void)signal (SIGFPE, ignore_sig);
!   __neinf = divide (-1., 0.);
    (void)signal (SIGFPE, ignore_sig);
!   __nan = __plinf + __neinf;
  }
  
  
--- 78,88 ----
  #endif
  {
    (void)signal (SIGFPE, ignore_sig);
!   __plinf = 1./0.;
    (void)signal (SIGFPE, ignore_sig);
!   __neinf = -1./0.;
    (void)signal (SIGFPE, ignore_sig);
!   __nan = 0./0.;
  }