[Easycalc-commits] easycalc/mlib stack.c,1.40,1.41

[Jorge G. <cl...@us...>]

Update of /cvsroot/easycalc/easycalc/mlib
In directory sc8-pr-cvs17.sourceforge.net:/tmp/cvs-serv25627/mlib

Modified Files:
	stack.c 
Log Message:
fixed bug

Index: stack.c
===================================================================
RCS file: /cvsroot/easycalc/easycalc/mlib/stack.c,v
retrieving revision 1.40
retrieving revision 1.41
diff -C2 -d -r1.40 -r1.41
*** stack.c	22 Aug 2007 19:38:54 -0000	1.40
--- stack.c	25 Feb 2008 12:44:13 -0000	1.41
***************
*** 376,380 ****
  				realarg = tmpitem.u.realval;
  			if (-2147483648.0 <= realarg && realarg <= 2147483647.0) {
! 				*((Int32 *)arg1) = tmpitem.u.realval;
  			}
  			else
--- 376,383 ----
  				realarg = tmpitem.u.realval;
  			if (-2147483648.0 <= realarg && realarg <= 2147483647.0) {
! 				if (IS_ZERO(round(realarg)-realarg))
! 					*((Int32 *)arg1) = tmpitem.u.realval;
! 				else
! 					err = c_badarg;
  			}
  			else