Mercurial > repos > rhope

comparison runtime/integer.c @ 7:d61550e2c001

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 }