Mercurial > repos > rhope

comparison runtime/integer.c @ 11:3021dac0d8f5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Stack unwind is so close I can almost taste it
author Mike Pavone <pavone@retrodev.com>
date Tue, 19 May 2009 23:29:55 -0400
parents 52d9948def24
children 31f8182f3433
comparison
equal deleted inserted replaced
10:0f2c4ee070fe 11:3021dac0d8f5
3 #include "context.h" 3 #include "context.h"
4 4
5 #define left ((_t_Int32 *)cdata->params[0]) 5 #define left ((_t_Int32 *)cdata->params[0])
6 #define right ((_t_Int32 *)cdata->params[1]) 6 #define right ((_t_Int32 *)cdata->params[1])
7 7
8 MethodNoLocals(_PL_,Int32,2) 8 MethodNoLocals(_PL_,Int32,
9 call = alloc_cdata(cdata->ct, 1); 9 NumParams 2,
10 CallSpace 1)
11
10 CopiedParam(0, left, Int32, TYPE_INT32) 12 CopiedParam(0, left, Int32, TYPE_INT32)
11 Param(1, right, Int32, TYPE_INT32) 13 Param(1, right, Int32, TYPE_INT32)
12 14
13 left->num += right->num; 15 left->num += right->num;
14 16
15 release_ref((object *)right); 17 release_ref((object *)right);
16 EndFunc 18 EndFunc
17 19
18 MethodNoLocals(_MN_,Int32,2) 20 MethodNoLocals(_MN_,Int32,
19 call = alloc_cdata(cdata->ct, 1); 21 NumParams 2,
22 CallSpace 1)
23
20 CopiedParam(0, left, Int32, TYPE_INT32) 24 CopiedParam(0, left, Int32, TYPE_INT32)
21 Param(1, right, Int32, TYPE_INT32) 25 Param(1, right, Int32, TYPE_INT32)
22 26
23 left->num -= right->num; 27 left->num -= right->num;
24 28