Mercurial > repos > rhope

comparison runtime/integer.c @ 8:8d74ef7fa357

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Improved helper macros and added separate Rhope stack in runtime
author Mike Pavone <pavone@retrodev.com>
date Wed, 13 May 2009 23:37:19 -0400
parents d61550e2c001
children 52d9948def24
comparison
equal deleted inserted replaced
7:d61550e2c001 8:8d74ef7fa357
1 #include "integer.h" 1 #include "integer.h"
2 #include "builtin.h" 2 #include "builtin.h"
3 #include "context.h"
3 4
4 Method(_PL_,Int32,2, 5 Method(_PL_,Int32,2,
5 _t_Int32 * left; _t_Int32 * right; calldata convd; returntype ret; int i) 6 _t_Int32 * left; _t_Int32 * right)
6 convd.params[0] = cdata->params[0]; 7 call = alloc_cdata(cdata->ct, 1);
7 convd.num_params = 1; 8 CopiedParam(0, left, Int32, TYPE_INT32)
8 switch(coerce_value(TYPE_INT32, &convd)) 9 Param(1, right, Int32, TYPE_INT32)
9 { 10
10 case TAIL_RETURN:
11 do {
12 ret = convd.tail_func(&convd);
13 } while(ret == TAIL_RETURN);
14 //TODO: Support STACK_UNWIND
15 if(ret == EXCEPTION_RETURN)
16 goto exception_convert_left;
17 case EXCEPTION_RETURN:
18 goto exception_convert_left;
19 }
20 left = (_t_Int32 *)copy_object(convd.params[0]);
21 cdata->params[0] = (object *)left;
22 convd.params[0] = cdata->params[1];
23 switch(coerce_value(TYPE_INT32, &convd))
24 {
25 case TAIL_RETURN:
26 do {
27 ret = convd.tail_func(&convd);
28 } while(ret == TAIL_RETURN);
29 //TODO: Support STACK_UNWIND
30 if(ret == EXCEPTION_RETURN)
31 goto exception_convert_right;
32 case EXCEPTION_RETURN:
33 goto exception_convert_right;
34 }
35 right = (_t_Int32 *)convd.params[0];
36 left->num += right->num; 11 left->num += right->num;
12
37 release_ref((object *)right); 13 release_ref((object *)right);
38 return NORMAL_RETURN; 14 EndFunc
39
40 exception_convert_left:
41 //The first params hould have been released when the exception occurred
42 for(i = 1; i < cdata->num_params; ++i)
43 release_ref(cdata->params[i]);
44 //Move exception to our calldata struct
45 cdata->params[0] = convd.params[0];
46 return EXCEPTION_RETURN;
47 exception_convert_right:
48 //The second param hould have been released when the exception occurred
49 for(i = 0; i < cdata->num_params; ++i)
50 if(i != 1)
51 release_ref(cdata->params[i]);
52 //Move exception to our calldata struct
53 cdata->params[0] = convd.params[0];
54 return EXCEPTION_RETURN;
55 }
56 15
57 Method(_MN_,Int32,2, 16 Method(_MN_,Int32,2,
58 _t_Int32 * left; _t_Int32 * right; calldata convd; returntype ret; int i) 17 _t_Int32 * left; _t_Int32 * right)
59 convd.params[0] = cdata->params[0]; 18 call = alloc_cdata(cdata->ct, 1);
60 convd.num_params = 1; 19 CopiedParam(0, left, Int32, TYPE_INT32)
61 switch(coerce_value(TYPE_INT32, &convd)) 20 Param(1, right, Int32, TYPE_INT32)
62 { 21
63 case TAIL_RETURN:
64 do {
65 ret = convd.tail_func(&convd);
66 } while(ret == TAIL_RETURN);
67 //TODO: Support STACK_UNWIND
68 if(ret == EXCEPTION_RETURN)
69 goto exception_convert_left;
70 case EXCEPTION_RETURN:
71 goto exception_convert_left;
72 }
73 left = (_t_Int32 *)copy_object(convd.params[0]);
74 cdata->params[0] = (object *)left;
75 convd.params[0] = cdata->params[1];
76 switch(coerce_value(TYPE_INT32, &convd))
77 {
78 case TAIL_RETURN:
79 do {
80 ret = convd.tail_func(&convd);
81 } while(ret == TAIL_RETURN);
82 //TODO: Support STACK_UNWIND
83 if(ret == EXCEPTION_RETURN)
84 goto exception_convert_right;
85 case EXCEPTION_RETURN:
86 goto exception_convert_right;
87 }
88 right = (_t_Int32 *)convd.params[0];
89 left->num -= right->num; 22 left->num -= right->num;
23
90 release_ref((object *)right); 24 release_ref((object *)right);
91 return NORMAL_RETURN; 25 EndFunc
92
93 exception_convert_left:
94 //The first params hould have been released when the exception occurred
95 for(i = 1; i < cdata->num_params; ++i)
96 release_ref(cdata->params[i]);
97 //Move exception to our calldata struct
98 cdata->params[0] = convd.params[0];
99 return EXCEPTION_RETURN;
100 exception_convert_right:
101 //The second param hould have been released when the exception occurred
102 for(i = 0; i < cdata->num_params; ++i)
103 if(i != 1)
104 release_ref(cdata->params[i]);
105 //Move exception to our calldata struct
106 cdata->params[0] = convd.params[0];
107 return EXCEPTION_RETURN;
108 }
109 26
110 object * make_Int32(int32_t val) 27 object * make_Int32(int32_t val)
111 { 28 {
112 _t_Int32 * obj; 29 _t_Int32 * obj;
113 object * ret = new_object(TYPE_INT32); 30 object * ret = new_object(TYPE_INT32);