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
|
