1 #include <Object/Boxed.d>
2 #include <__oo2c.h>
3 #include <setjmp.h>
4 
Object_Boxed__ObjectDesc_ToString(Object_Boxed__Object v)5 Object__String Object_Boxed__ObjectDesc_ToString(Object_Boxed__Object v) {
6 
7   _failed_function(2631); return 0;
8   ;
9 }
10 
Object_Boxed__ObjectDesc_Cmp(Object_Boxed__Object v,Object__Object y)11 OOC_INT32 Object_Boxed__ObjectDesc_Cmp(Object_Boxed__Object v, Object__Object y) {
12 
13   _failed_function(2702); return 0;
14   ;
15 }
16 
Object_Boxed__BooleanDesc_INIT(Object_Boxed__Boolean v,OOC_CHAR8 value)17 void Object_Boxed__BooleanDesc_INIT(Object_Boxed__Boolean v, OOC_CHAR8 value) {
18   register OOC_INT64 i0,i1;
19 
20   i0 = (OOC_INT64)v;
21   i1 = value;
22   *(OOC_UINT8*)(_check_pointer(i0, 2894)) = i1;
23   return;
24   ;
25 }
26 
Object_Boxed__NewBoolean(OOC_CHAR8 value)27 Object_Boxed__Boolean Object_Boxed__NewBoolean(OOC_CHAR8 value) {
28   register OOC_INT64 i0,i1;
29 
30   i0 = (OOC_INT64)RT0__NewObject(_td_Object_Boxed__Boolean.baseTypes[0]);
31   i1 = value;
32   Object_Boxed__BooleanDesc_INIT((Object_Boxed__Boolean)i0, i1);
33   return (Object_Boxed__Boolean)i0;
34   ;
35 }
36 
Object_Boxed__ParseBoolean(const OOC_CHAR8 str[],OOC_LEN str_0d)37 Object_Boxed__Boolean Object_Boxed__ParseBoolean(const OOC_CHAR8 str[], OOC_LEN str_0d) {
38   register OOC_INT64 i0;
39 
40   i0 = (
41   _cmp8((const void*)(OOC_INT64)str,(const void*)(OOC_CHAR8*)"TRUE"))==0;
42   if (i0) goto l7;
43   i0 = (
44   _cmp8((const void*)(OOC_INT64)str,(const void*)(OOC_CHAR8*)"FALSE"))==0;
45   if (i0) goto l5;
46   return (Object_Boxed__Boolean)(OOC_INT64)0;
47   goto l8;
48 l5:
49   i0 = (OOC_INT64)Object_Boxed__false;
50   return (Object_Boxed__Boolean)i0;
51   goto l8;
52 l7:
53   i0 = (OOC_INT64)Object_Boxed__true;
54   return (Object_Boxed__Boolean)i0;
55 l8:
56   _failed_function(3105); return 0;
57   ;
58 }
59 
Object_Boxed__BooleanToString(OOC_CHAR8 value)60 Object__String Object_Boxed__BooleanToString(OOC_CHAR8 value) {
61   register OOC_INT64 i0,i1;
62   Object_Boxed__Boolean v;
63 
64   i0 = (OOC_INT64)RT0__NewObject(_td_Object_Boxed__Boolean.baseTypes[0]);
65   i1 = value;
66   Object_Boxed__BooleanDesc_INIT((Object_Boxed__Boolean)i0, i1);
67   v = (Object_Boxed__Boolean)i0;
68   i0 = (OOC_INT64)OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 3564)))), Object_Boxed__ObjectDesc_ToString)),Object_Boxed__ObjectDesc_ToString)((Object_Boxed__Object)i0);
69   return (Object__String)i0;
70   ;
71 }
72 
Object_Boxed__BooleanDesc_Equals(Object_Boxed__Boolean v,Object__Object y)73 OOC_CHAR8 Object_Boxed__BooleanDesc_Equals(Object_Boxed__Boolean v, Object__Object y) {
74   register OOC_INT64 i0,i1;
75 
76   i0 = (OOC_INT64)y;
77   i1 = OOC_TYPE_TEST(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 3679)))), &_td_Object_Boxed__BooleanDesc);
78   if (i1) goto l3;
79   i0=0u;
80   goto l4;
81 l3:
82   i1 = (OOC_INT64)v;
83   i1 = *(OOC_UINT8*)(_check_pointer(i1, 3695));
84   i0 = *(OOC_UINT8*)(_check_pointer((_type_guard(i0, ((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 3706)))), &_td_Object_Boxed__BooleanDesc, 3706)), 3714));
85   i0 = i1==i0;
86 
87 l4:
88   return i0;
89   ;
90 }
91 
Object_Boxed__BooleanDesc_Cmp(Object_Boxed__Boolean v,Object__Object y)92 OOC_INT32 Object_Boxed__BooleanDesc_Cmp(Object_Boxed__Boolean v, Object__Object y) {
93 
94   _assert(0u, 127, 3831);
95   _failed_function(3762); return 0;
96   ;
97 }
98 
Object_Boxed__BooleanDesc_HashCode(Object_Boxed__Boolean v)99 OOC_INT32 Object_Boxed__BooleanDesc_HashCode(Object_Boxed__Boolean v) {
100   register OOC_INT64 i0;
101 
102   i0 = (OOC_INT64)v;
103   i0 = *(OOC_UINT8*)(_check_pointer(i0, 3952));
104   i0 = HashCode__Boolean(i0);
105   return i0;
106   ;
107 }
108 
Object_Boxed__BooleanDesc_ToString(Object_Boxed__Boolean v)109 Object__String Object_Boxed__BooleanDesc_ToString(Object_Boxed__Boolean v) {
110   register OOC_INT64 i0;
111 
112   i0 = (OOC_INT64)v;
113   i0 = *(OOC_UINT8*)(_check_pointer(i0, 4040));
114   if (i0) goto l3;
115   i0 = (OOC_INT64)Object_Boxed__falseString;
116   return (Object__String)i0;
117   goto l4;
118 l3:
119   i0 = (OOC_INT64)Object_Boxed__trueString;
120   return (Object__String)i0;
121 l4:
122   _failed_function(4003); return 0;
123   ;
124 }
125 
Object_Boxed__BooleanDesc_Store(Object_Boxed__Boolean v,ADT_Storable__Writer w)126 void Object_Boxed__BooleanDesc_Store(Object_Boxed__Boolean v, ADT_Storable__Writer w) {
127   register OOC_INT64 i0;
128 
129   i0 = (OOC_INT64)v;
130   i0 = *(OOC_UINT8*)(_check_pointer(i0, 4221));
131   if (i0) goto l3;
132   i0 = (OOC_INT64)w;
133   OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 4271)))), IO_BinaryRider__WriterDesc_WriteSInt)),IO_BinaryRider__WriterDesc_WriteSInt)((IO_BinaryRider__Writer)i0, 0);
134   goto l4;
135 l3:
136   i0 = (OOC_INT64)w;
137   OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 4240)))), IO_BinaryRider__WriterDesc_WriteSInt)),IO_BinaryRider__WriterDesc_WriteSInt)((IO_BinaryRider__Writer)i0, 1);
138 l4:
139   return;
140   ;
141 }
142 
Object_Boxed__BooleanDesc_Load(Object_Boxed__Boolean v,ADT_Storable__Reader r)143 void Object_Boxed__BooleanDesc_Load(Object_Boxed__Boolean v, ADT_Storable__Reader r) {
144   register OOC_INT64 i0,i1;
145   OOC_INT8 si;
146 
147   i0 = (OOC_INT64)r;
148   OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 4412)))), IO_BinaryRider__ReaderDesc_ReadSInt)),IO_BinaryRider__ReaderDesc_ReadSInt)((IO_BinaryRider__Reader)i0, (void*)(OOC_INT64)&si);
149   i0 = (OOC_INT64)v;
150   i1 = si;
151   *(OOC_UINT8*)(_check_pointer(i0, 4432)) = (i1!=0);
152   return;
153   ;
154 }
155 
Object_Boxed__LongIntDesc_INIT(Object_Boxed__LongInt v,OOC_INT32 val)156 void Object_Boxed__LongIntDesc_INIT(Object_Boxed__LongInt v, OOC_INT32 val) {
157   register OOC_INT64 i0,i1;
158 
159   i0 = (OOC_INT64)v;
160   i1 = val;
161   *(OOC_INT32*)(_check_pointer(i0, 4613)) = i1;
162   return;
163   ;
164 }
165 
Object_Boxed__NewLongInt(OOC_INT32 val)166 Object_Boxed__LongInt Object_Boxed__NewLongInt(OOC_INT32 val) {
167   register OOC_INT64 i0,i1;
168 
169   i0 = (OOC_INT64)RT0__NewObject(_td_Object_Boxed__LongInt.baseTypes[0]);
170   i1 = val;
171   Object_Boxed__LongIntDesc_INIT((Object_Boxed__LongInt)i0, i1);
172   return (Object_Boxed__LongInt)i0;
173   ;
174 }
175 
Object_Boxed__ParseLongInt(const OOC_CHAR8 s__ref[],OOC_LEN s_0d)176 Object_Boxed__LongInt Object_Boxed__ParseLongInt(const OOC_CHAR8 s__ref[], OOC_LEN s_0d) {
177   register OOC_INT64 i0,i1;
178   OOC_ALLOCATE_VPAR(s,OOC_CHAR8 ,s_0d)
179   OOC_INT8 res;
180   OOC_INT32 _int;
181 
182   OOC_INITIALIZE_VPAR(s__ref,s,OOC_CHAR8 ,s_0d)
183   IntStr__StrToInt((void*)(OOC_INT64)s, s_0d, (void*)(OOC_INT64)&_int, (void*)(OOC_INT64)&res);
184   i0 = res;
185   i0 = i0==0;
186   if (i0) goto l3;
187   return (Object_Boxed__LongInt)(OOC_INT64)0;
188   goto l4;
189 l3:
190   i0 = _int;
191   i1 = (OOC_INT64)RT0__NewObject(_td_Object_Boxed__LongInt.baseTypes[0]);
192   Object_Boxed__LongIntDesc_INIT((Object_Boxed__LongInt)i1, i0);
193   return (Object_Boxed__LongInt)i1;
194 l4:
195   _failed_function(4818); return 0;
196   ;
197 }
198 
Object_Boxed__IntToString(OOC_INT32 value)199 Object__String Object_Boxed__IntToString(OOC_INT32 value) {
200   register OOC_INT64 i0,i1;
201   Object_Boxed__LongInt v;
202 
203   i0 = (OOC_INT64)RT0__NewObject(_td_Object_Boxed__LongInt.baseTypes[0]);
204   i1 = value;
205   Object_Boxed__LongIntDesc_INIT((Object_Boxed__LongInt)i0, i1);
206   v = (Object_Boxed__LongInt)i0;
207   i0 = (OOC_INT64)OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 5322)))), Object_Boxed__ObjectDesc_ToString)),Object_Boxed__ObjectDesc_ToString)((Object_Boxed__Object)i0);
208   return (Object__String)i0;
209   ;
210 }
211 
Object_Boxed__LongIntDesc_Store(Object_Boxed__LongInt v,ADT_Storable__Writer w)212 void Object_Boxed__LongIntDesc_Store(Object_Boxed__LongInt v, ADT_Storable__Writer w) {
213   register OOC_INT64 i0,i1;
214 
215   i0 = (OOC_INT64)v;
216   i1 = (OOC_INT64)w;
217   i0 = *(OOC_INT32*)(_check_pointer(i0, 5448));
218   OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i1, 5435)))), IO_BinaryRider__WriterDesc_WriteLInt)),IO_BinaryRider__WriterDesc_WriteLInt)((IO_BinaryRider__Writer)i1, i0);
219   return;
220   ;
221 }
222 
Object_Boxed__LongIntDesc_Load(Object_Boxed__LongInt v,ADT_Storable__Reader r)223 void Object_Boxed__LongIntDesc_Load(Object_Boxed__LongInt v, ADT_Storable__Reader r) {
224   register OOC_INT64 i0,i1;
225 
226   i0 = (OOC_INT64)v;
227   i1 = (OOC_INT64)r;
228   OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i1, 5550)))), IO_BinaryRider__ReaderDesc_ReadLInt)),IO_BinaryRider__ReaderDesc_ReadLInt)((IO_BinaryRider__Reader)i1, (void*)(_check_pointer(i0, 5562)));
229   return;
230   ;
231 }
232 
Object_Boxed__LongIntDesc_Equals(Object_Boxed__LongInt v,Object__Object y)233 OOC_CHAR8 Object_Boxed__LongIntDesc_Equals(Object_Boxed__LongInt v, Object__Object y) {
234   register OOC_INT64 i0,i1;
235 
236   i0 = (OOC_INT64)y;
237   i1 = OOC_TYPE_TEST(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 5662)))), &_td_Object_Boxed__LongIntDesc);
238   if (i1) goto l3;
239   i0=0u;
240   goto l4;
241 l3:
242   i1 = (OOC_INT64)v;
243   i1 = *(OOC_INT32*)(_check_pointer(i1, 5678));
244   i0 = *(OOC_INT32*)(_check_pointer((_type_guard(i0, ((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 5689)))), &_td_Object_Boxed__LongIntDesc, 5689)), 5697));
245   i0 = i1==i0;
246 
247 l4:
248   return i0;
249   ;
250 }
251 
Object_Boxed__LongIntDesc_HashCode(Object_Boxed__LongInt v)252 OOC_INT32 Object_Boxed__LongIntDesc_HashCode(Object_Boxed__LongInt v) {
253   register OOC_INT64 i0;
254 
255   i0 = (OOC_INT64)v;
256   i0 = *(OOC_INT32*)(_check_pointer(i0, 5789));
257   return i0;
258   ;
259 }
260 
Object_Boxed__LongIntDesc_ToString(Object_Boxed__LongInt v)261 Object__String Object_Boxed__LongIntDesc_ToString(Object_Boxed__LongInt v) {
262   register OOC_INT64 i0;
263   OOC_CHAR8 str[10];
264 
265   i0 = (OOC_INT64)v;
266   i0 = *(OOC_INT32*)(_check_pointer(i0, 5921));
267   IntStr__IntToStr(i0, (void*)(OOC_INT64)str, 10);
268   i0 = (OOC_INT64)Object__NewLatin1((void*)(OOC_INT64)str, 10);
269   return (Object__String)i0;
270   ;
271 }
272 
Object_Boxed__LongIntDesc_Add(Object_Boxed__LongInt v,Object_Boxed__LongInt right)273 Object_Boxed__LongInt Object_Boxed__LongIntDesc_Add(Object_Boxed__LongInt v, Object_Boxed__LongInt right) {
274   register OOC_INT64 i0,i1,i2;
275 
276   i0 = (OOC_INT64)RT0__NewObject(_td_Object_Boxed__LongInt.baseTypes[0]);
277   i1 = (OOC_INT64)v;
278   i2 = (OOC_INT64)right;
279   i1 = *(OOC_INT32*)(_check_pointer(i1, 6070));
280   i2 = *(OOC_INT32*)(_check_pointer(i2, 6084));
281   Object_Boxed__LongIntDesc_INIT((Object_Boxed__LongInt)i0, (i1+i2));
282   return (Object_Boxed__LongInt)i0;
283   ;
284 }
285 
Object_Boxed__LongIntDesc_Sub(Object_Boxed__LongInt v,Object_Boxed__LongInt right)286 Object_Boxed__LongInt Object_Boxed__LongIntDesc_Sub(Object_Boxed__LongInt v, Object_Boxed__LongInt right) {
287   register OOC_INT64 i0,i1,i2;
288 
289   i0 = (OOC_INT64)RT0__NewObject(_td_Object_Boxed__LongInt.baseTypes[0]);
290   i1 = (OOC_INT64)v;
291   i2 = (OOC_INT64)right;
292   i1 = *(OOC_INT32*)(_check_pointer(i1, 6192));
293   i2 = *(OOC_INT32*)(_check_pointer(i2, 6206));
294   Object_Boxed__LongIntDesc_INIT((Object_Boxed__LongInt)i0, (i1-i2));
295   return (Object_Boxed__LongInt)i0;
296   ;
297 }
298 
Object_Boxed__LongIntDesc_Mul(Object_Boxed__LongInt v,Object_Boxed__LongInt right)299 Object_Boxed__LongInt Object_Boxed__LongIntDesc_Mul(Object_Boxed__LongInt v, Object_Boxed__LongInt right) {
300   register OOC_INT64 i0,i1,i2;
301 
302   i0 = (OOC_INT64)RT0__NewObject(_td_Object_Boxed__LongInt.baseTypes[0]);
303   i1 = (OOC_INT64)v;
304   i2 = (OOC_INT64)right;
305   i1 = *(OOC_INT32*)(_check_pointer(i1, 6314));
306   i2 = *(OOC_INT32*)(_check_pointer(i2, 6328));
307   Object_Boxed__LongIntDesc_INIT((Object_Boxed__LongInt)i0, (i1*i2));
308   return (Object_Boxed__LongInt)i0;
309   ;
310 }
311 
Object_Boxed__LongIntDesc_Div(Object_Boxed__LongInt v,Object_Boxed__LongInt right)312 Object_Boxed__LongInt Object_Boxed__LongIntDesc_Div(Object_Boxed__LongInt v, Object_Boxed__LongInt right) {
313   register OOC_INT64 i0,i1,i2;
314 
315   i0 = (OOC_INT64)RT0__NewObject(_td_Object_Boxed__LongInt.baseTypes[0]);
316   i1 = (OOC_INT64)v;
317   i2 = (OOC_INT64)right;
318   i1 = *(OOC_INT32*)(_check_pointer(i1, 6436));
319   i2 = *(OOC_INT32*)(_check_pointer(i2, 6452));
320   Object_Boxed__LongIntDesc_INIT((Object_Boxed__LongInt)i0, (_div(i1,i2)));
321   return (Object_Boxed__LongInt)i0;
322   ;
323 }
324 
Object_Boxed__LongIntDesc_Mod(Object_Boxed__LongInt v,Object_Boxed__LongInt right)325 Object_Boxed__LongInt Object_Boxed__LongIntDesc_Mod(Object_Boxed__LongInt v, Object_Boxed__LongInt right) {
326   register OOC_INT64 i0,i1,i2;
327 
328   i0 = (OOC_INT64)RT0__NewObject(_td_Object_Boxed__LongInt.baseTypes[0]);
329   i1 = (OOC_INT64)v;
330   i2 = (OOC_INT64)right;
331   i1 = *(OOC_INT32*)(_check_pointer(i1, 6560));
332   i2 = *(OOC_INT32*)(_check_pointer(i2, 6576));
333   Object_Boxed__LongIntDesc_INIT((Object_Boxed__LongInt)i0, (_mod(i1,i2)));
334   return (Object_Boxed__LongInt)i0;
335   ;
336 }
337 
Object_Boxed__LongIntDesc_Cmp(Object_Boxed__LongInt v,Object__Object right)338 OOC_INT32 Object_Boxed__LongIntDesc_Cmp(Object_Boxed__LongInt v, Object__Object right) {
339   register OOC_INT64 i0,i1,i2,i3;
340 
341   i0 = (OOC_INT64)v;
342   i1 = (OOC_INT64)right;
343   i2 = *(OOC_INT32*)(_check_pointer(i0, 6670));
344   i3 = *(OOC_INT32*)(_check_pointer((_type_guard(i1, ((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i1, 6685)))), &_td_Object_Boxed__LongIntDesc, 6685)), 6693));
345   i2 = i2==i3;
346   if (i2) goto l7;
347   i1 = *(OOC_INT32*)(_check_pointer((_type_guard(i1, ((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i1, 6747)))), &_td_Object_Boxed__LongIntDesc, 6747)), 6755));
348   i0 = *(OOC_INT32*)(_check_pointer(i0, 6732));
349   i0 = i0<i1;
350   if (i0) goto l5;
351   return 1;
352   goto l8;
353 l5:
354   return (-1);
355   goto l8;
356 l7:
357   return 0;
358 l8:
359   _failed_function(6620); return 0;
360   ;
361 }
362 
Object_Boxed__LongIntDesc_Sign(Object_Boxed__LongInt v)363 OOC_INT32 Object_Boxed__LongIntDesc_Sign(Object_Boxed__LongInt v) {
364   register OOC_INT64 i0,i1;
365 
366   i0 = (OOC_INT64)v;
367   i1 = (OOC_INT64)Object_Boxed__zeroLongInt;
368   i0 = OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 6891)))), Object_Boxed__LongIntDesc_Cmp)),Object_Boxed__LongIntDesc_Cmp)((Object_Boxed__LongInt)i0, (Object__Object)i1);
369   return i0;
370   ;
371 }
372 
Object_Boxed__LongIntDesc_Neg(Object_Boxed__LongInt v)373 Object_Boxed__LongInt Object_Boxed__LongIntDesc_Neg(Object_Boxed__LongInt v) {
374   register OOC_INT64 i0,i1;
375 
376   i0 = (OOC_INT64)RT0__NewObject(_td_Object_Boxed__LongInt.baseTypes[0]);
377   i1 = (OOC_INT64)v;
378   i1 = *(OOC_INT32*)(_check_pointer(i1, 6997));
379   Object_Boxed__LongIntDesc_INIT((Object_Boxed__LongInt)i0, (-i1));
380   return (Object_Boxed__LongInt)i0;
381   ;
382 }
383 
Object_Boxed__LongRealDesc_INIT(Object_Boxed__LongReal v,OOC_REAL64 val)384 void Object_Boxed__LongRealDesc_INIT(Object_Boxed__LongReal v, OOC_REAL64 val) {
385   register OOC_INT64 i0;
386   register OOC_REAL64 d0;
387 
388   i0 = (OOC_INT64)v;
389   d0 = val;
390   *(OOC_REAL64*)(_check_pointer(i0, 7169)) = d0;
391   return;
392   ;
393 }
394 
Object_Boxed__NewLongReal(OOC_REAL64 val)395 Object_Boxed__LongReal Object_Boxed__NewLongReal(OOC_REAL64 val) {
396   register OOC_INT64 i0;
397   register OOC_REAL64 d0;
398 
399   i0 = (OOC_INT64)RT0__NewObject(_td_Object_Boxed__LongReal.baseTypes[0]);
400   d0 = val;
401   Object_Boxed__LongRealDesc_INIT((Object_Boxed__LongReal)i0, d0);
402   return (Object_Boxed__LongReal)i0;
403   ;
404 }
405 
Object_Boxed__ParseLongReal(const OOC_CHAR8 s__ref[],OOC_LEN s_0d)406 Object_Boxed__LongReal Object_Boxed__ParseLongReal(const OOC_CHAR8 s__ref[], OOC_LEN s_0d) {
407   register OOC_INT64 i0;
408   register OOC_REAL64 d0;
409   OOC_ALLOCATE_VPAR(s,OOC_CHAR8 ,s_0d)
410   OOC_INT8 res;
411   OOC_REAL64 real;
412 
413   OOC_INITIALIZE_VPAR(s__ref,s,OOC_CHAR8 ,s_0d)
414   LRealStr__StrToReal((void*)(OOC_INT64)s, s_0d, (void*)(OOC_INT64)&real, (void*)(OOC_INT64)&res);
415   i0 = res;
416   i0 = i0==0;
417   if (i0) goto l3;
418   return (Object_Boxed__LongReal)(OOC_INT64)0;
419   goto l4;
420 l3:
421   d0 = real;
422   i0 = (OOC_INT64)RT0__NewObject(_td_Object_Boxed__LongReal.baseTypes[0]);
423   Object_Boxed__LongRealDesc_INIT((Object_Boxed__LongReal)i0, d0);
424   return (Object_Boxed__LongReal)i0;
425 l4:
426   _failed_function(7380); return 0;
427   ;
428 }
429 
Object_Boxed__LongRealToString(OOC_REAL64 value)430 Object__String Object_Boxed__LongRealToString(OOC_REAL64 value) {
431   register OOC_INT64 i0;
432   register OOC_REAL64 d0;
433   Object_Boxed__LongReal v;
434 
435   i0 = (OOC_INT64)RT0__NewObject(_td_Object_Boxed__LongReal.baseTypes[0]);
436   d0 = value;
437   Object_Boxed__LongRealDesc_INIT((Object_Boxed__LongReal)i0, d0);
438   v = (Object_Boxed__LongReal)i0;
439   i0 = (OOC_INT64)OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 7908)))), Object_Boxed__ObjectDesc_ToString)),Object_Boxed__ObjectDesc_ToString)((Object_Boxed__Object)i0);
440   return (Object__String)i0;
441   ;
442 }
443 
Object_Boxed__ParseLongRealLiteral(const OOC_CHAR8 s__ref[],OOC_LEN s_0d)444 Object_Boxed__LongReal Object_Boxed__ParseLongRealLiteral(const OOC_CHAR8 s__ref[], OOC_LEN s_0d) {
445   register OOC_INT64 i0,i1;
446   register OOC_REAL32 f0;
447   register OOC_REAL64 d0;
448   OOC_ALLOCATE_VPAR(s,OOC_CHAR8 ,s_0d)
449   OOC_INT8 res;
450   OOC_REAL64 longreal;
451   OOC_REAL32 real;
452 
453   OOC_INITIALIZE_VPAR(s__ref,s,OOC_CHAR8 ,s_0d)
454   i0 = *(OOC_UINT8*)((OOC_INT64)s+(_check_index(0, s_0d, OOC_UINT32, 8459)));
455   i0 = i0!=0u;
456   if (i0) goto l3;
457   i0=0u;
458   goto l5;
459 l3:
460   i0 = *(OOC_UINT8*)((OOC_INT64)s+(_check_index(0, s_0d, OOC_UINT32, 8473)));
461   i0 = i0!=68u;
462 
463 l5:
464   if (i0) goto l7;
465   i0=0;
466   goto l17;
467 l7:
468   i0=0;
469 l8_loop:
470   i0 = i0+1;
471   i1 = *(OOC_UINT8*)((OOC_INT64)s+(_check_index(i0, s_0d, OOC_UINT32, 8459)));
472   i1 = i1!=0u;
473   if (i1) goto l11;
474   i1=0u;
475   goto l13;
476 l11:
477   i1 = *(OOC_UINT8*)((OOC_INT64)s+(_check_index(i0, s_0d, OOC_UINT32, 8473)));
478   i1 = i1!=68u;
479 
480 l13:
481   if (i1) goto l8_loop;
482 l17:
483   i1 = *(OOC_UINT8*)((OOC_INT64)s+(_check_index(i0, s_0d, OOC_UINT32, 8539)));
484   i1 = i1==68u;
485   if (i1) goto l24;
486   RealStr__StrToReal((void*)(OOC_INT64)s, s_0d, (void*)(OOC_INT64)&real, (void*)(OOC_INT64)&res);
487   i0 = res;
488   i0 = i0==0;
489   if (i0) goto l22;
490   i0=(OOC_INT64)0;
491   goto l29;
492 l22:
493   f0 = real;
494   i0 = (OOC_INT64)RT0__NewObject(_td_Object_Boxed__LongReal.baseTypes[0]);
495   Object_Boxed__LongRealDesc_INIT((Object_Boxed__LongReal)i0, ((OOC_REAL64)f0));
496 
497   goto l29;
498 l24:
499   *(OOC_UINT8*)((OOC_INT64)s+(_check_index(i0, s_0d, OOC_UINT32, 8562))) = 69u;
500   LRealStr__StrToReal((void*)(OOC_INT64)s, s_0d, (void*)(OOC_INT64)&longreal, (void*)(OOC_INT64)&res);
501   i0 = res;
502   i0 = i0==0;
503   if (i0) goto l27;
504   i0=(OOC_INT64)0;
505   goto l29;
506 l27:
507   d0 = longreal;
508   i0 = (OOC_INT64)RT0__NewObject(_td_Object_Boxed__LongReal.baseTypes[0]);
509   Object_Boxed__LongRealDesc_INIT((Object_Boxed__LongReal)i0, d0);
510 
511 l29:
512   return (Object_Boxed__LongReal)i0;
513   ;
514 }
515 
Object_Boxed__LongRealDesc_Store(Object_Boxed__LongReal v,ADT_Storable__Writer w)516 void Object_Boxed__LongRealDesc_Store(Object_Boxed__LongReal v, ADT_Storable__Writer w) {
517   register OOC_INT64 i0,i1;
518   register OOC_REAL64 d0;
519 
520   i0 = (OOC_INT64)v;
521   i1 = (OOC_INT64)w;
522   d0 = *(OOC_REAL64*)(_check_pointer(i0, 8989));
523   OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i1, 8975)))), IO_BinaryRider__WriterDesc_WriteLReal)),IO_BinaryRider__WriterDesc_WriteLReal)((IO_BinaryRider__Writer)i1, d0);
524   return;
525   ;
526 }
527 
Object_Boxed__LongRealDesc_Load(Object_Boxed__LongReal v,ADT_Storable__Reader r)528 void Object_Boxed__LongRealDesc_Load(Object_Boxed__LongReal v, ADT_Storable__Reader r) {
529   register OOC_INT64 i0,i1;
530 
531   i0 = (OOC_INT64)v;
532   i1 = (OOC_INT64)r;
533   OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i1, 9092)))), IO_BinaryRider__ReaderDesc_ReadLReal)),IO_BinaryRider__ReaderDesc_ReadLReal)((IO_BinaryRider__Reader)i1, (void*)(_check_pointer(i0, 9105)));
534   return;
535   ;
536 }
537 
Object_Boxed__LongRealDesc_Equals(Object_Boxed__LongReal v,Object__Object y)538 OOC_CHAR8 Object_Boxed__LongRealDesc_Equals(Object_Boxed__LongReal v, Object__Object y) {
539   register OOC_INT64 i0,i1;
540   register OOC_REAL64 d0,d1;
541 
542   i0 = (OOC_INT64)y;
543   i1 = OOC_TYPE_TEST(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 9206)))), &_td_Object_Boxed__LongRealDesc);
544   if (i1) goto l3;
545   i0=0u;
546   goto l4;
547 l3:
548   i1 = (OOC_INT64)v;
549   d0 = *(OOC_REAL64*)(_check_pointer(i1, 9223));
550   d1 = *(OOC_REAL64*)(_check_pointer((_type_guard(i0, ((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 9234)))), &_td_Object_Boxed__LongRealDesc, 9234)), 9243));
551   i0 = d0==d1;
552 
553 l4:
554   return i0;
555   ;
556 }
557 
Object_Boxed__LongRealDesc_HashCode(Object_Boxed__LongReal v)558 OOC_INT32 Object_Boxed__LongRealDesc_HashCode(Object_Boxed__LongReal v) {
559   register OOC_INT64 i0;
560   register OOC_REAL64 d0;
561 
562   i0 = (OOC_INT64)v;
563   d0 = *(OOC_REAL64*)(_check_pointer(i0, 9354));
564   i0 = HashCode__LongReal(d0);
565   return i0;
566   ;
567 }
568 
Object_Boxed__LongRealDesc_ToString(Object_Boxed__LongReal v)569 Object__String Object_Boxed__LongRealDesc_ToString(Object_Boxed__LongReal v) {
570   register OOC_INT64 i0;
571   register OOC_REAL64 d0;
572   OOC_CHAR8 str[128];
573 
574   i0 = (OOC_INT64)v;
575   d0 = *(OOC_REAL64*)(_check_pointer(i0, 9494));
576   LRealStr__RealToFloat(d0, 17, (void*)(OOC_INT64)str, 128);
577   i0 = (OOC_INT64)Object__NewLatin1((void*)(OOC_INT64)str, 128);
578   return (Object__String)i0;
579   ;
580 }
581 
Object_Boxed__LongRealDesc_ToLongReal(Object_Boxed__LongReal v)582 OOC_REAL64 Object_Boxed__LongRealDesc_ToLongReal(Object_Boxed__LongReal v) {
583   register OOC_INT64 i0;
584   register OOC_REAL64 d0;
585 
586   i0 = (OOC_INT64)v;
587   d0 = *(OOC_REAL64*)(_check_pointer(i0, 9629));
588   return d0;
589   ;
590 }
591 
Object_Boxed__LongRealDesc_Add(Object_Boxed__LongReal v,Object_Boxed__LongReal right)592 Object_Boxed__LongReal Object_Boxed__LongRealDesc_Add(Object_Boxed__LongReal v, Object_Boxed__LongReal right) {
593   register OOC_INT64 i0,i1,i2;
594   register OOC_REAL64 d0,d1;
595 
596   i0 = (OOC_INT64)RT0__NewObject(_td_Object_Boxed__LongReal.baseTypes[0]);
597   i1 = (OOC_INT64)v;
598   i2 = (OOC_INT64)right;
599   d0 = *(OOC_REAL64*)(_check_pointer(i1, 9747));
600   d1 = *(OOC_REAL64*)(_check_pointer(i2, 9761));
601   Object_Boxed__LongRealDesc_INIT((Object_Boxed__LongReal)i0, (d0+d1));
602   return (Object_Boxed__LongReal)i0;
603   ;
604 }
605 
Object_Boxed__LongRealDesc_Sub(Object_Boxed__LongReal v,Object_Boxed__LongReal right)606 Object_Boxed__LongReal Object_Boxed__LongRealDesc_Sub(Object_Boxed__LongReal v, Object_Boxed__LongReal right) {
607   register OOC_INT64 i0,i1,i2;
608   register OOC_REAL64 d0,d1;
609 
610   i0 = (OOC_INT64)RT0__NewObject(_td_Object_Boxed__LongReal.baseTypes[0]);
611   i1 = (OOC_INT64)v;
612   i2 = (OOC_INT64)right;
613   d0 = *(OOC_REAL64*)(_check_pointer(i1, 9873));
614   d1 = *(OOC_REAL64*)(_check_pointer(i2, 9887));
615   Object_Boxed__LongRealDesc_INIT((Object_Boxed__LongReal)i0, (d0-d1));
616   return (Object_Boxed__LongReal)i0;
617   ;
618 }
619 
Object_Boxed__LongRealDesc_Mul(Object_Boxed__LongReal v,Object_Boxed__LongReal right)620 Object_Boxed__LongReal Object_Boxed__LongRealDesc_Mul(Object_Boxed__LongReal v, Object_Boxed__LongReal right) {
621   register OOC_INT64 i0,i1,i2;
622   register OOC_REAL64 d0,d1;
623 
624   i0 = (OOC_INT64)RT0__NewObject(_td_Object_Boxed__LongReal.baseTypes[0]);
625   i1 = (OOC_INT64)v;
626   i2 = (OOC_INT64)right;
627   d0 = *(OOC_REAL64*)(_check_pointer(i1, 9999));
628   d1 = *(OOC_REAL64*)(_check_pointer(i2, 10013));
629   Object_Boxed__LongRealDesc_INIT((Object_Boxed__LongReal)i0, (d0*d1));
630   return (Object_Boxed__LongReal)i0;
631   ;
632 }
633 
Object_Boxed__LongRealDesc_Div(Object_Boxed__LongReal v,Object_Boxed__LongReal right)634 Object_Boxed__LongReal Object_Boxed__LongRealDesc_Div(Object_Boxed__LongReal v, Object_Boxed__LongReal right) {
635   register OOC_INT64 i0,i1,i2;
636   register OOC_REAL64 d0,d1;
637 
638   i0 = (OOC_INT64)RT0__NewObject(_td_Object_Boxed__LongReal.baseTypes[0]);
639   i1 = (OOC_INT64)v;
640   i2 = (OOC_INT64)right;
641   d0 = *(OOC_REAL64*)(_check_pointer(i1, 10125));
642   d1 = *(OOC_REAL64*)(_check_pointer(i2, 10139));
643   Object_Boxed__LongRealDesc_INIT((Object_Boxed__LongReal)i0, (d0/d1));
644   return (Object_Boxed__LongReal)i0;
645   ;
646 }
647 
Object_Boxed__LongRealDesc_Cmp(Object_Boxed__LongReal v,Object__Object right)648 OOC_INT32 Object_Boxed__LongRealDesc_Cmp(Object_Boxed__LongReal v, Object__Object right) {
649   register OOC_INT64 i0,i1,i2;
650   register OOC_REAL64 d0,d1;
651 
652   i0 = (OOC_INT64)v;
653   i1 = (OOC_INT64)right;
654   d0 = *(OOC_REAL64*)(_check_pointer(i0, 10234));
655   d1 = *(OOC_REAL64*)(_check_pointer((_type_guard(i1, ((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i1, 10249)))), &_td_Object_Boxed__LongRealDesc, 10249)), 10258));
656   i2 = d0==d1;
657   if (i2) goto l7;
658   d0 = *(OOC_REAL64*)(_check_pointer((_type_guard(i1, ((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i1, 10312)))), &_td_Object_Boxed__LongRealDesc, 10312)), 10321));
659   d1 = *(OOC_REAL64*)(_check_pointer(i0, 10297));
660   i0 = d1<d0;
661   if (i0) goto l5;
662   return 1;
663   goto l8;
664 l5:
665   return (-1);
666   goto l8;
667 l7:
668   return 0;
669 l8:
670   _failed_function(10184); return 0;
671   ;
672 }
673 
Object_Boxed__LongRealDesc_Sign(Object_Boxed__LongReal v)674 OOC_INT32 Object_Boxed__LongRealDesc_Sign(Object_Boxed__LongReal v) {
675   register OOC_INT64 i0,i1;
676 
677   i0 = (OOC_INT64)v;
678   i1 = (OOC_INT64)Object_Boxed__zeroLongReal;
679   i0 = OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 10616)))), Object_Boxed__LongRealDesc_Cmp)),Object_Boxed__LongRealDesc_Cmp)((Object_Boxed__LongReal)i0, (Object__Object)i1);
680   return i0;
681   ;
682 }
683 
Object_Boxed__LongRealDesc_Neg(Object_Boxed__LongReal v)684 Object_Boxed__LongReal Object_Boxed__LongRealDesc_Neg(Object_Boxed__LongReal v) {
685   register OOC_INT64 i0,i1;
686   register OOC_REAL64 d0;
687 
688   i0 = (OOC_INT64)RT0__NewObject(_td_Object_Boxed__LongReal.baseTypes[0]);
689   i1 = (OOC_INT64)v;
690   d0 = *(OOC_REAL64*)(_check_pointer(i1, 10726));
691   Object_Boxed__LongRealDesc_INIT((Object_Boxed__LongReal)i0, (-d0));
692   return (Object_Boxed__LongReal)i0;
693   ;
694 }
695 
Object_Boxed__SetDesc_INIT(Object_Boxed__Set v,OOC_UINT32 value)696 void Object_Boxed__SetDesc_INIT(Object_Boxed__Set v, OOC_UINT32 value) {
697   register OOC_INT64 i0,i1;
698 
699   i0 = (OOC_INT64)v;
700   i1 = value;
701   *(OOC_UINT32*)(_check_pointer(i0, 10885)) = i1;
702   return;
703   ;
704 }
705 
Object_Boxed__NewSet(OOC_UINT32 value)706 Object_Boxed__Set Object_Boxed__NewSet(OOC_UINT32 value) {
707   register OOC_INT64 i0,i1;
708 
709   i0 = (OOC_INT64)RT0__NewObject(_td_Object_Boxed__Set.baseTypes[0]);
710   i1 = value;
711   Object_Boxed__SetDesc_INIT((Object_Boxed__Set)i0, i1);
712   return (Object_Boxed__Set)i0;
713   ;
714 }
715 
Object_Boxed__SetToString(OOC_UINT32 value)716 Object__String Object_Boxed__SetToString(OOC_UINT32 value) {
717   register OOC_INT64 i0,i1;
718   Object_Boxed__Set v;
719 
720   i0 = (OOC_INT64)RT0__NewObject(_td_Object_Boxed__Set.baseTypes[0]);
721   i1 = value;
722   Object_Boxed__SetDesc_INIT((Object_Boxed__Set)i0, i1);
723   v = (Object_Boxed__Set)i0;
724   i0 = (OOC_INT64)OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 11286)))), Object_Boxed__ObjectDesc_ToString)),Object_Boxed__ObjectDesc_ToString)((Object_Boxed__Object)i0);
725   return (Object__String)i0;
726   ;
727 }
728 
Object_Boxed__SetDesc_Equals(Object_Boxed__Set v,Object__Object y)729 OOC_CHAR8 Object_Boxed__SetDesc_Equals(Object_Boxed__Set v, Object__Object y) {
730   register OOC_INT64 i0,i1;
731 
732   i0 = (OOC_INT64)y;
733   i1 = OOC_TYPE_TEST(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 11385)))), &_td_Object_Boxed__SetDesc);
734   if (i1) goto l3;
735   return 0u;
736   goto l4;
737 l3:
738   i1 = (OOC_INT64)v;
739   i0 = *(OOC_UINT32*)(_check_pointer(i0, 11406));
740   i1 = *(OOC_UINT32*)(_check_pointer(i1, 11416));
741   return (i0==i1);
742 l4:
743   _failed_function(11338); return 0;
744   ;
745 }
746 
Object_Boxed__SetDesc_Cmp(Object_Boxed__Set v,Object__Object y)747 OOC_INT32 Object_Boxed__SetDesc_Cmp(Object_Boxed__Set v, Object__Object y) {
748 
749   _assert(0u, 127, 11556);
750   _failed_function(11487); return 0;
751   ;
752 }
753 
Object_Boxed__SetDesc_HashCode(Object_Boxed__Set v)754 OOC_INT32 Object_Boxed__SetDesc_HashCode(Object_Boxed__Set v) {
755   register OOC_INT64 i0;
756 
757   i0 = (OOC_INT64)v;
758   i0 = *(OOC_UINT32*)(_check_pointer(i0, 11669));
759   i0 = HashCode__Set(i0);
760   return i0;
761   ;
762 }
763 
Object_Boxed__SetDesc_ToString(Object_Boxed__Set v)764 Object__String Object_Boxed__SetDesc_ToString(Object_Boxed__Set v) {
765   register OOC_INT64 i0,i1,i2,i3,i4;
766   OOC_CHAR8 str[131];
767   OOC_CHAR8 num[8];
768 
769   i0 = (OOC_INT64)v;
770   i0 = *(OOC_UINT32*)(_check_pointer(i0, 11876));
771   _copy_8((const void*)(OOC_CHAR8*)"{",(void*)(OOC_INT64)str,131);
772   i1=0;i2=0u;
773 l1_loop:
774   i3 = _in(i1,i0);
775   if (i3) goto l4;
776   {register OOC_INT64 h0=i1;i1=i2;i2=h0;}
777   goto l32;
778 l4:
779   i3 = i1<31;
780   if (i3) goto l7;
781   i3=0u;
782   goto l9;
783 l7:
784   i3 = _in((i1+1),i0);
785 
786 l9:
787   if (i3) goto l11;
788   i3=i1;
789   goto l22;
790 l11:
791   i3=i1;
792 l12_loop:
793   i3 = i3+1;
794   i4 = i3<31;
795   if (i4) goto l15;
796   i4=0u;
797   goto l17;
798 l15:
799   i4 = _in((i3+1),i0);
800 
801 l17:
802   if (i4) goto l12_loop;
803 l22:
804   if (!i2) goto l24;
805   Strings__Append((OOC_CHAR8*)",", 2, (void*)(OOC_INT64)str, 131);
806 l24:
807   IntStr__IntToStr(i1, (void*)(OOC_INT64)num, 8);
808   Strings__Append((void*)(OOC_INT64)num, 8, (void*)(OOC_INT64)str, 131);
809   i2 = i1<i3;
810   if (!i2) goto l31;
811   i1 = i3==(i1+1);
812   if (i1) goto l29;
813   Strings__Append((OOC_CHAR8*)"..", 3, (void*)(OOC_INT64)str, 131);
814   goto l30;
815 l29:
816   Strings__Append((OOC_CHAR8*)",", 2, (void*)(OOC_INT64)str, 131);
817 l30:
818   IntStr__IntToStr(i3, (void*)(OOC_INT64)num, 8);
819   Strings__Append((void*)(OOC_INT64)num, 8, (void*)(OOC_INT64)str, 131);
820 l31:
821   i2=i3;i1=1u;
822 l32:
823   i2 = i2+1;
824   i3 = i2<=31;
825   if (!i3) goto l36;
826   {register OOC_INT64 h0=i1;i1=i2;i2=h0;}
827   goto l1_loop;
828 l36:
829   Strings__Append((OOC_CHAR8*)"}", 2, (void*)(OOC_INT64)str, 131);
830   i0 = (OOC_INT64)Object__NewLatin1((void*)(OOC_INT64)str, 131);
831   return (Object__String)i0;
832   ;
833 }
834 
Object_Boxed__SetDesc_ToLongInt(Object_Boxed__Set v)835 OOC_INT32 Object_Boxed__SetDesc_ToLongInt(Object_Boxed__Set v) {
836   register OOC_INT64 i0;
837 
838   i0 = (OOC_INT64)v;
839   i0 = *(OOC_UINT32*)(_check_pointer(i0, 12692));
840   return (_type_cast_fast(OOC_INT32, OOC_UINT32, i0));
841   ;
842 }
843 
Object_Boxed__SetDesc_Store(Object_Boxed__Set v,ADT_Storable__Writer w)844 void Object_Boxed__SetDesc_Store(Object_Boxed__Set v, ADT_Storable__Writer w) {
845   register OOC_INT64 i0,i1;
846 
847   i0 = (OOC_INT64)v;
848   i1 = (OOC_INT64)w;
849   i0 = *(OOC_UINT32*)(_check_pointer(i0, 12806));
850   OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i1, 12795)))), IO_BinaryRider__WriterDesc_WriteSet)),IO_BinaryRider__WriterDesc_WriteSet)((IO_BinaryRider__Writer)i1, i0);
851   return;
852   ;
853 }
854 
Object_Boxed__SetDesc_Load(Object_Boxed__Set v,ADT_Storable__Reader r)855 void Object_Boxed__SetDesc_Load(Object_Boxed__Set v, ADT_Storable__Reader r) {
856   register OOC_INT64 i0,i1;
857 
858   i0 = (OOC_INT64)v;
859   i1 = (OOC_INT64)r;
860   OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i1, 12904)))), IO_BinaryRider__ReaderDesc_ReadSet)),IO_BinaryRider__ReaderDesc_ReadSet)((IO_BinaryRider__Reader)i1, (void*)(_check_pointer(i0, 12914)));
861   return;
862   ;
863 }
864 
Object_Boxed__StringDesc_INIT(Object_Boxed__String v,Object__String value)865 void Object_Boxed__StringDesc_INIT(Object_Boxed__String v, Object__String value) {
866   register OOC_INT64 i0,i1;
867 
868   i0 = (OOC_INT64)v;
869   i1 = (OOC_INT64)value;
870   *(OOC_INT64*)(_check_pointer(i0, 13083)) = i1;
871   return;
872   ;
873 }
874 
Object_Boxed__NewString(Object__String value)875 Object_Boxed__String Object_Boxed__NewString(Object__String value) {
876   register OOC_INT64 i0,i1;
877 
878   i0 = (OOC_INT64)value;
879   i1 = *(OOC_INT32*)(_check_pointer(i0, 13242));
880   i1 = i1==0;
881   if (i1) goto l3;
882   i1 = (OOC_INT64)RT0__NewObject(_td_Object_Boxed__String.baseTypes[0]);
883   Object_Boxed__StringDesc_INIT((Object_Boxed__String)i1, (Object__String)i0);
884   return (Object_Boxed__String)i1;
885   goto l4;
886 l3:
887   i0 = (OOC_INT64)Object_Boxed__emptyString;
888   return (Object_Boxed__String)i0;
889 l4:
890   _failed_function(13136); return 0;
891   ;
892 }
893 
Object_Boxed__StringDesc_Cmp(Object_Boxed__String v,Object__Object str)894 OOC_INT32 Object_Boxed__StringDesc_Cmp(Object_Boxed__String v, Object__Object str) {
895   register OOC_INT64 i0,i1,i2;
896 
897   i0 = (OOC_INT64)str;
898   i1 = (OOC_INT64)v;
899   i2 = (OOC_INT64)*(OOC_INT64*)(_check_pointer(i1, 13429));
900   i0 = (OOC_INT64)*(OOC_INT64*)(_check_pointer((_type_guard(i0, ((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 13448)))), &_td_Object_Boxed__StringDesc, 13448)), 13455));
901   i1 = (OOC_INT64)*(OOC_INT64*)(_check_pointer(i1, 13429));
902   i0 = OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i2, 13435)))), Object__StringDesc_Compare)),Object__StringDesc_Compare)((Object__String)i1, (Object__Object)i0);
903   return i0;
904   ;
905 }
906 
Object_Boxed__StringDesc_Equals(Object_Boxed__String v,Object__Object y)907 OOC_CHAR8 Object_Boxed__StringDesc_Equals(Object_Boxed__String v, Object__Object y) {
908   register OOC_INT64 i0,i1,i2;
909 
910   i0 = (OOC_INT64)y;
911   i1 = OOC_TYPE_TEST(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 13553)))), &_td_Object_Boxed__StringDesc);
912   if (i1) goto l3;
913   i0=0u;
914   goto l4;
915 l3:
916   i1 = (OOC_INT64)v;
917   i2 = (OOC_INT64)*(OOC_INT64*)(_check_pointer(i1, 13567));
918   i0 = (OOC_INT64)*(OOC_INT64*)(_check_pointer((_type_guard(i0, ((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 13585)))), &_td_Object_Boxed__StringDesc, 13585)), 13592));
919   i1 = (OOC_INT64)*(OOC_INT64*)(_check_pointer(i1, 13567));
920   i0 = OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i2, 13574)))), Object__StringDesc_Equals)),Object__StringDesc_Equals)((Object__String)i1, (Object__Object)i0);
921 
922 l4:
923   return i0;
924   ;
925 }
926 
Object_Boxed__StringDesc_HashCode(Object_Boxed__String v)927 OOC_INT32 Object_Boxed__StringDesc_HashCode(Object_Boxed__String v) {
928   register OOC_INT64 i0,i1;
929 
930   i0 = (OOC_INT64)v;
931   i1 = (OOC_INT64)*(OOC_INT64*)(_check_pointer(i0, 13683));
932   i0 = (OOC_INT64)*(OOC_INT64*)(_check_pointer(i0, 13683));
933   i0 = OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i1, 13689)))), Object__StringDesc_HashCode)),Object__StringDesc_HashCode)((Object__String)i0);
934   return i0;
935   ;
936 }
937 
Object_Boxed__StringDesc_ToString(Object_Boxed__String v)938 Object__String Object_Boxed__StringDesc_ToString(Object_Boxed__String v) {
939   register OOC_INT64 i0,i1,i2;
940   OOC_INT32 i;
941   OOC_CHAR8 delim[2];
942   ADT_StringBuffer__StringBuffer sb;
943 
944   i0 = (OOC_INT64)v;
945   i1 = (OOC_INT64)*(OOC_INT64*)(_check_pointer(i0, 13867));
946   i2 = (OOC_INT64)*(OOC_INT64*)(_check_pointer(i0, 13867));
947   i1 = OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i1, 13874)))), Object__StringDesc_IndexOf)),Object__StringDesc_IndexOf)((Object__String)i2, 34u, 0);
948   i = i1;
949   i1 = i1<0;
950   if (i1) goto l3;
951   _copy_8((const void*)(OOC_CHAR8*)"\047",(void*)(OOC_INT64)delim,2);
952   goto l4;
953 l3:
954   _copy_8((const void*)(OOC_CHAR8*)"\"",(void*)(OOC_INT64)delim,2);
955 l4:
956   i1 = (OOC_INT64)Object__NewLatin1((void*)(OOC_INT64)delim, 2);
957   i1 = (OOC_INT64)ADT_StringBuffer__New((Object__String)i1);
958   sb = (ADT_StringBuffer__StringBuffer)i1;
959   i0 = (OOC_INT64)*(OOC_INT64*)(_check_pointer(i0, 14035));
960   OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i1, 14026)))), ADT_StringBuffer__StringBufferDesc_Append)),ADT_StringBuffer__StringBufferDesc_Append)((ADT_StringBuffer__StringBuffer)i1, (Object__Object)i0);
961   OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i1, 14050)))), ADT_StringBuffer__StringBufferDesc_AppendLatin1)),ADT_StringBuffer__StringBufferDesc_AppendLatin1)((ADT_StringBuffer__StringBuffer)i1, (void*)(OOC_INT64)delim, 2);
962   i0 = (OOC_INT64)OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i1, 14085)))), ADT_StringBuffer__StringBufferDesc_ToString)),ADT_StringBuffer__StringBufferDesc_ToString)((ADT_StringBuffer__StringBuffer)i1);
963   return (Object__String)i0;
964   ;
965 }
966 
Object_Boxed__StringDesc_Store(Object_Boxed__String v,ADT_Storable__Writer w)967 void Object_Boxed__StringDesc_Store(Object_Boxed__String v, ADT_Storable__Writer w) {
968   register OOC_INT64 i0,i1;
969 
970   i0 = (OOC_INT64)v;
971   i1 = (OOC_INT64)w;
972   i0 = (OOC_INT64)*(OOC_INT64*)(_check_pointer(i0, 14205));
973   OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i1, 14194)))), IO_BinaryRider__WriterDesc_WriteStr)),IO_BinaryRider__WriterDesc_WriteStr)((IO_BinaryRider__Writer)i1, (Object__String)i0);
974   return;
975   ;
976 }
977 
Object_Boxed__StringDesc_Load(Object_Boxed__String v,ADT_Storable__Reader r)978 void Object_Boxed__StringDesc_Load(Object_Boxed__String v, ADT_Storable__Reader r) {
979   register OOC_INT64 i0,i1;
980 
981   i0 = (OOC_INT64)v;
982   i1 = (OOC_INT64)r;
983   OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i1, 14306)))), IO_BinaryRider__ReaderDesc_ReadStr)),IO_BinaryRider__ReaderDesc_ReadStr)((IO_BinaryRider__Reader)i1, (void*)(_check_pointer(i0, 14316)));
984   return;
985   ;
986 }
987 
Object_Boxed__ParseString(const OOC_CHAR8 str[],OOC_LEN str_0d)988 Object_Boxed__String Object_Boxed__ParseString(const OOC_CHAR8 str[], OOC_LEN str_0d) {
989   register OOC_INT64 i0,i1,i2;
990 
991   i0 = *(OOC_UINT8*)((OOC_INT64)str+(_check_index(0, str_0d, OOC_UINT32, 14455)));
992   i0 = i0!=0u;
993   if (i0) goto l3;
994   i0=0;
995   goto l9;
996 l3:
997   i0=0;
998 l4_loop:
999   i0 = i0+1;
1000   i1 = *(OOC_UINT8*)((OOC_INT64)str+(_check_index(i0, str_0d, OOC_UINT32, 14455)));
1001   i1 = i1!=0u;
1002   if (i1) goto l4_loop;
1003 l9:
1004   i1 = i0>=2;
1005   if (i1) goto l12;
1006   i1=0u;
1007   goto l14;
1008 l12:
1009   i1 = *(OOC_UINT8*)((OOC_INT64)str+(_check_index(0, str_0d, OOC_UINT8, 14513)));
1010   i2 = *(OOC_UINT8*)((OOC_INT64)str+(_check_index((i0-1), str_0d, OOC_UINT32, 14522)));
1011   i1 = i1==i2;
1012 
1013 l14:
1014   if (i1) goto l16;
1015   i1=0u;
1016   goto l22;
1017 l16:
1018   i1 = *(OOC_UINT8*)((OOC_INT64)str+(_check_index(0, str_0d, OOC_UINT8, 14536)));
1019   i1 = i1==34u;
1020   if (i1) goto l19;
1021   i1 = *(OOC_UINT8*)((OOC_INT64)str+(_check_index(0, str_0d, OOC_UINT8, 14554)));
1022   i1 = i1==39u;
1023 
1024   goto l22;
1025 l19:
1026   i1=1u;
1027 l22:
1028   if (i1) goto l24;
1029   return (Object_Boxed__String)(OOC_INT64)0;
1030   goto l25;
1031 l24:
1032   i1 = (OOC_INT64)RT0__NewObject(_td_Object_Boxed__String.baseTypes[0]);
1033   i0 = (OOC_INT64)Object__NewLatin1Region((void*)(OOC_INT64)str, str_0d, 1, (i0-1));
1034   Object_Boxed__StringDesc_INIT((Object_Boxed__String)i1, (Object__String)i0);
1035   return (Object_Boxed__String)i1;
1036 l25:
1037   _failed_function(14348); return 0;
1038   ;
1039 }
1040 
OOC_Object_Boxed_init(void)1041 void OOC_Object_Boxed_init(void) {
1042   register OOC_INT64 i0,i1;
1043 
1044   i0 = (OOC_INT64)RT0__NewObject(_td_Object_Boxed__Boolean.baseTypes[0]);
1045   Object_Boxed__BooleanDesc_INIT((Object_Boxed__Boolean)i0, 1u);
1046   Object_Boxed__true = (Object_Boxed__Boolean)i0;
1047   i0 = (OOC_INT64)Object__NewLatin1((OOC_CHAR8*)"TRUE", 5);
1048   Object_Boxed__trueString = (Object__String)i0;
1049   i0 = (OOC_INT64)RT0__NewObject(_td_Object_Boxed__Boolean.baseTypes[0]);
1050   Object_Boxed__BooleanDesc_INIT((Object_Boxed__Boolean)i0, 0u);
1051   Object_Boxed__false = (Object_Boxed__Boolean)i0;
1052   i0 = (OOC_INT64)Object__NewLatin1((OOC_CHAR8*)"FALSE", 6);
1053   Object_Boxed__falseString = (Object__String)i0;
1054   i0 = (OOC_INT64)RT0__NewObject(_td_Object_Boxed__LongReal.baseTypes[0]);
1055   Object_Boxed__LongRealDesc_INIT((Object_Boxed__LongReal)i0, 0.0000000000000000);
1056   Object_Boxed__zeroLongReal = (Object_Boxed__LongReal)i0;
1057   i0 = (OOC_INT64)RT0__NewObject(_td_Object_Boxed__LongReal.baseTypes[0]);
1058   Object_Boxed__LongRealDesc_INIT((Object_Boxed__LongReal)i0, 1.0000000000000000);
1059   Object_Boxed__oneLongReal = (Object_Boxed__LongReal)i0;
1060   i0 = (OOC_INT64)RT0__NewObject(_td_Object_Boxed__LongInt.baseTypes[0]);
1061   Object_Boxed__LongIntDesc_INIT((Object_Boxed__LongInt)i0, 0);
1062   Object_Boxed__zeroLongInt = (Object_Boxed__LongInt)i0;
1063   i0 = (OOC_INT64)RT0__NewObject(_td_Object_Boxed__LongInt.baseTypes[0]);
1064   Object_Boxed__LongIntDesc_INIT((Object_Boxed__LongInt)i0, 1);
1065   Object_Boxed__oneLongInt = (Object_Boxed__LongInt)i0;
1066   i0 = (OOC_INT64)RT0__NewObject(_td_Object_Boxed__String.baseTypes[0]);
1067   Object_Boxed__emptyString = (Object_Boxed__String)i0;
1068   i1 = (OOC_INT64)Object__NewLatin1((OOC_CHAR8*)"", 1);
1069   *(OOC_INT64*)(_check_pointer(i0, 15049)) = i1;
1070   return;
1071   ;
1072 }
1073 
OOC_Object_Boxed_destroy(void)1074 void OOC_Object_Boxed_destroy(void) {
1075 }
1076 
1077 /* --- */
1078