Mercurial > repos > rhope
comparison runtime/integer.c @ 18:ea991f95ae1f
C backend working well enough to generate Fib test
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Wed, 27 May 2009 04:49:32 -0400 |
parents | 31f8182f3433 |
children | 640f541e9116 |
comparison
equal
deleted
inserted
replaced
17:d05184970c1c | 18:ea991f95ae1f |
---|---|
43 Ret(0, Yes) | 43 Ret(0, Yes) |
44 } else { | 44 } else { |
45 release_ref(cdata->params[0]); | 45 release_ref(cdata->params[0]); |
46 Ret(0, No) | 46 Ret(0, No) |
47 } | 47 } |
48 release_ref(cdata->params[0]); | 48 release_ref(cdata->params[1]); |
49 EndFunc | 49 EndFunc |
50 | 50 |
51 MethodNoLocals(_GT_,Int32, | 51 MethodNoLocals(_GT_,Int32, |
52 NumParams 2, | 52 NumParams 2, |
53 CallSpace 1) | 53 CallSpace 1) |
61 Ret(0, Yes) | 61 Ret(0, Yes) |
62 } else { | 62 } else { |
63 release_ref(cdata->params[0]); | 63 release_ref(cdata->params[0]); |
64 Ret(0, No) | 64 Ret(0, No) |
65 } | 65 } |
66 release_ref(cdata->params[0]); | 66 release_ref(cdata->params[1]); |
67 EndFunc | 67 EndFunc |
68 | 68 |
69 object * make_Int32(int32_t val) | 69 object * make_Int32(int32_t val) |
70 { | 70 { |
71 t_Int32 * obj; | 71 t_Int32 * obj; |