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