Update of /cvsroot/easycalc/easycalc/mlib
In directory sc8-pr-cvs17:/tmp/cvs-serv19827
Modified Files:
slist.c
Log Message:
fixed bug
Index: slist.c
===================================================================
RCS file: /cvsroot/easycalc/easycalc/mlib/slist.c,v
retrieving revision 1.37
retrieving revision 1.38
diff -C2 -d -r1.37 -r1.38
*** slist.c 31 May 2007 00:03:37 -0000 1.37
--- slist.c 31 May 2007 14:56:31 -0000 1.38
***************
*** 739,753 ****
UInt32 ini,end;
! if (func->paramcount != 3)
return c_badargcount;
- err = stack_get_val(stack, &end, integer);
- if (err)
- return err;
-
err = stack_get_val(stack, &ini, integer);
if (err)
return err;
err = stack_get_val(stack, &lst, list);
if (err)
--- 739,756 ----
UInt32 ini,end;
! if (func->paramcount == 3){
! err = stack_get_val(stack, &end, integer);
! if (err)
! return err;
! }else if (func->paramcount != 2)
return c_badargcount;
err = stack_get_val(stack, &ini, integer);
if (err)
return err;
+ if (func->paramcount == 2)
+ end=ini;
+
err = stack_get_val(stack, &lst, list);
if (err)
|
