🚀 go-pugleaf

$@$&$+$$!w5~Bg%^%$%3%s%/%i%V$G$9!#(J

kym@bingsuns.cc.binghamton.edu (R. Kym Horsell) $@$5$s$h$j(Jemail$@$r$$$?$@(J
$@$-!"(JFscale()$@$K$b(Jpatch$@$,I,MW$H$$$&$3(J$@$H$r65$o$j$^$7$?!#(J

$@A0$N(J patch $@$G$O(J atof("0.0") $@$,(J -1.0 $@$K$J$C$F$7$^$$$^$9!#(J
$@A0$N(J patch $@$O<N$F$F$3$N(J patch $@$r$"$F$F2<$5$$!#(J

*** math_emulate.c.orig	Sat Sep 19 01:30:57 1992
--- math_emulate.c	Sun Sep 20 17:17:42 1992
***************
*** 163,169 ****
  			/* incomplete and totally inadequate -wfj */
  			Fscale(PST(0), PST(1), &tmp);
  			real_to_real(&tmp,&ST(0));
! 			/* fall into .. */
  		case 0x1fc:
  			frndint(PST(0),&tmp);
  			real_to_real(&tmp,&ST(0));
--- 163,169 ----
  			/* incomplete and totally inadequate -wfj */
  			Fscale(PST(0), PST(1), &tmp);
  			real_to_real(&tmp,&ST(0));
! 			return(0);
  		case 0x1fc:
  			frndint(PST(0),&tmp);
  			real_to_real(&tmp,&ST(0));
***************
*** 1387,1392 ****
--- 1387,1396 ----
  	temp_int ti;
  
  	*c = *a;
+ 	if(!c->a && !c->b) {
+ 		c->exponent = 0;
+ 		return;
+ 	}
  	real_to_int(b, &ti);
  	if(ti.sign)
  		c->exponent -= ti.a;

---
$@1-(J$@;tJ8IR(J
$@5~ETBg3XBg3X1!9)3X8&5f2J1~MQ2J3X%7%9%F%`@l96D9C+@n8&(J ukai@kuamp.kyoto-u.ac.jp
$@5~Bg%^%$%3%s%/%i(J$@%V(J                                     ukai@kmc.kyoto-u.ac.jp