Mercurial > repos > rhope
comparison runtime/integer.c @ 7:d61550e2c001
Added current work on new runtime
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Wed, 13 May 2009 00:47:40 -0400 |
parents | |
children | 8d74ef7fa357 |
comparison
equal
deleted
inserted
replaced
6:f67d9be38ddf | 7:d61550e2c001 |
---|---|
1 #include "integer.h" | |
2 #include "builtin.h" | |
3 | |
4 Method(_PL_,Int32,2, | |
5 _t_Int32 * left; _t_Int32 * right; calldata convd; returntype ret; int i) | |
6 convd.params[0] = cdata->params[0]; | |
7 convd.num_params = 1; | |
8 switch(coerce_value(TYPE_INT32, &convd)) | |
9 { | |
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; | |
37 release_ref((object *)right); | |
38 return NORMAL_RETURN; | |
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 | |
57 Method(_MN_,Int32,2, | |
58 _t_Int32 * left; _t_Int32 * right; calldata convd; returntype ret; int i) | |
59 convd.params[0] = cdata->params[0]; | |
60 convd.num_params = 1; | |
61 switch(coerce_value(TYPE_INT32, &convd)) | |
62 { | |
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; | |
90 release_ref((object *)right); | |
91 return NORMAL_RETURN; | |
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 | |
110 object * make_Int32(int32_t val) | |
111 { | |
112 _t_Int32 * obj; | |
113 object * ret = new_object(TYPE_INT32); | |
114 obj = (_t_Int32 *)ret; | |
115 obj->num = val; | |
116 return ret; | |
117 } |