# HG changeset patch
# User Mike Pavone <pavone@retrodev.com>
# Date 1242530565 14400
# Node ID 52d9948def2489ab0403f6d2dfee525f952edffa
# Parent  8d74ef7fa357cd64fdf5633df3895d51a053ebfa
Limit stack use in Int32 in prep for stack unwind changes

diff -r 8d74ef7fa357 -r 52d9948def24 runtime/func.h
--- a/runtime/func.h	Wed May 13 23:37:19 2009 -0400
+++ b/runtime/func.h	Sat May 16 23:22:45 2009 -0400
@@ -19,6 +19,7 @@
 #define FuncNoLocals(name,numparams) returntype _f_ ## name (calldata * cdata) {calldata *call; returntype ret; int idx; for(idx = numparams; idx < cdata->num_params; ++idx) release_ref(cdata->params[idx]); cdata->num_params = numparams;
 #define EndFunc	return NORMAL_RETURN; }
 #define Method(name,type,numparams,locals) returntype MethodName(name,type) (calldata * cdata) { locals; calldata *call; returntype ret; int idx; for(idx = numparams; idx < cdata->num_params; ++idx) release_ref(cdata->params[idx]); cdata->num_params = numparams;
+#define MethodNoLocals(name,type,numparams) returntype MethodName(name,type) (calldata * cdata) { calldata *call; returntype ret; int idx; for(idx = numparams; idx < cdata->num_params; ++idx) release_ref(cdata->params[idx]); cdata->num_params = numparams;
 #define ParamBase(num,var,type,convtypeid) \
 call->params[0] = cdata->params[num];\
 ret = coerce_value(convtypeid, call);\
diff -r 8d74ef7fa357 -r 52d9948def24 runtime/integer.c
--- a/runtime/integer.c	Wed May 13 23:37:19 2009 -0400
+++ b/runtime/integer.c	Sat May 16 23:22:45 2009 -0400
@@ -2,8 +2,10 @@
 #include "builtin.h"
 #include "context.h"
 
-Method(_PL_,Int32,2,
-	_t_Int32 * left; _t_Int32 * right)
+#define left ((_t_Int32 *)cdata->params[0])
+#define right ((_t_Int32 *)cdata->params[1])
+
+MethodNoLocals(_PL_,Int32,2)
 	call = alloc_cdata(cdata->ct, 1);
 	CopiedParam(0, left, Int32, TYPE_INT32)
 	Param(1, right, Int32, TYPE_INT32)
@@ -13,8 +15,7 @@
 	release_ref((object *)right);
 EndFunc
 
-Method(_MN_,Int32,2,
-	_t_Int32 * left; _t_Int32 * right)
+MethodNoLocals(_MN_,Int32,2)
 	call = alloc_cdata(cdata->ct, 1);
 	CopiedParam(0, left, Int32, TYPE_INT32)
 	Param(1, right, Int32, TYPE_INT32)