1 #include <Log.d>
2 #include <__oo2c.h>
3 #include <setjmp.h>
4
Log__Done(void)5 OOC_CHAR8 Log__Done(void) {
6 register OOC_INT64 i0;
7
8 i0 = (OOC_INT64)Log__writer;
9 i0 = (OOC_INT64)*(OOC_INT64*)(_check_pointer(i0, 1349));
10 return (i0==0);
11 ;
12 }
13
Log__ClearError(void)14 void Log__ClearError(void) {
15 register OOC_INT64 i0;
16
17 i0 = (OOC_INT64)Log__writer;
18 OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 1427)))), TextRider__WriterDesc_ClearError)),TextRider__WriterDesc_ClearError)((TextRider__Writer)i0);
19 return;
20 ;
21 }
22
Log__SetWriter(TextRider__Writer w)23 void Log__SetWriter(TextRider__Writer w) {
24 register OOC_INT64 i0,i1;
25
26 i0 = (OOC_INT64)w;
27 i1 = i0==(OOC_INT64)0;
28 if (i1) goto l3;
29 Log__writer = (TextRider__Writer)i0;
30 goto l4;
31 l3:
32 i0 = (OOC_INT64)StdChannels__stderr;
33 i0 = (OOC_INT64)TextRider__ConnectWriter((Channel__Channel)i0);
34 Log__writer = (TextRider__Writer)i0;
35 l4:
36 return;
37 ;
38 }
39
Log__Flush(void)40 void Log__Flush(void) {
41 register OOC_INT64 i0,i1;
42
43 i0 = (OOC_INT64)Log__writer;
44 i1 = (OOC_INT64)*(OOC_INT64*)((_check_pointer(i0, 1939))+24);
45 i0 = (OOC_INT64)*(OOC_INT64*)((_check_pointer(i0, 1939))+24);
46 OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i1, 1945)))), Channel__ChannelDesc_Flush)),Channel__ChannelDesc_Flush)((Channel__Channel)i0);
47 return;
48 ;
49 }
50
Log__Char(const OOC_CHAR8 msg[],OOC_LEN msg_0d,OOC_CHAR8 ch)51 void Log__Char(const OOC_CHAR8 msg[], OOC_LEN msg_0d, OOC_CHAR8 ch) {
52 register OOC_INT64 i0,i1;
53
54 i0 = (OOC_INT64)Log__writer;
55 OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 2043)))), TextRider__WriterDesc_WriteString)),TextRider__WriterDesc_WriteString)((TextRider__Writer)i0, (void*)(OOC_INT64)msg, msg_0d);
56 i0 = (OOC_INT64)Log__writer;
57 OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 2074)))), TextRider__WriterDesc_WriteString)),TextRider__WriterDesc_WriteString)((TextRider__Writer)i0, (OOC_CHAR8*)": ", 3);
58 i0 = (OOC_INT64)Log__writer;
59 i1 = ch;
60 OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 2106)))), TextRider__WriterDesc_WriteChar)),TextRider__WriterDesc_WriteChar)((TextRider__Writer)i0, i1);
61 i0 = (OOC_INT64)Log__writer;
62 OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 2134)))), TextRider__WriterDesc_WriteLn)),TextRider__WriterDesc_WriteLn)((TextRider__Writer)i0);
63 return;
64 ;
65 }
66
Log__String(const OOC_CHAR8 msg[],OOC_LEN msg_0d,const OOC_CHAR8 s[],OOC_LEN s_0d)67 void Log__String(const OOC_CHAR8 msg[], OOC_LEN msg_0d, const OOC_CHAR8 s[], OOC_LEN s_0d) {
68 register OOC_INT64 i0;
69
70 i0 = (OOC_INT64)Log__writer;
71 OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 2253)))), TextRider__WriterDesc_WriteString)),TextRider__WriterDesc_WriteString)((TextRider__Writer)i0, (void*)(OOC_INT64)msg, msg_0d);
72 i0 = (OOC_INT64)Log__writer;
73 OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 2284)))), TextRider__WriterDesc_WriteString)),TextRider__WriterDesc_WriteString)((TextRider__Writer)i0, (OOC_CHAR8*)": ", 3);
74 i0 = (OOC_INT64)Log__writer;
75 OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 2316)))), TextRider__WriterDesc_WriteString)),TextRider__WriterDesc_WriteString)((TextRider__Writer)i0, (void*)(OOC_INT64)s, s_0d);
76 i0 = (OOC_INT64)Log__writer;
77 OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 2345)))), TextRider__WriterDesc_WriteLn)),TextRider__WriterDesc_WriteLn)((TextRider__Writer)i0);
78 return;
79 ;
80 }
81
Log__LString(const OOC_CHAR8 msg[],OOC_LEN msg_0d,const OOC_CHAR16 s[],OOC_LEN s_0d)82 void Log__LString(const OOC_CHAR8 msg[], OOC_LEN msg_0d, const OOC_CHAR16 s[], OOC_LEN s_0d) {
83 register OOC_INT64 i0,i1,i2;
84 OOC_INT32 i;
85
86 i0 = (OOC_INT64)Log__writer;
87 OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 2849)))), TextRider__WriterDesc_WriteString)),TextRider__WriterDesc_WriteString)((TextRider__Writer)i0, (void*)(OOC_INT64)msg, msg_0d);
88 i0 = (OOC_INT64)Log__writer;
89 OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 2880)))), TextRider__WriterDesc_WriteString)),TextRider__WriterDesc_WriteString)((TextRider__Writer)i0, (OOC_CHAR8*)": ", 3);
90 i = 0;
91 i0 = *(OOC_UINT16*)((OOC_INT64)s+(_check_index(0, s_0d, OOC_UINT32, 2926))*2);
92 i0 = i0!=0u;
93 if (!i0) goto l42;
94 i0=0;
95 l3_loop:
96 i1 = *(OOC_UINT16*)((OOC_INT64)s+(_check_index(i0, s_0d, OOC_UINT32, 2953))*2);
97 i1 = i1!=0u;
98 if (i1) goto l6;
99 i1=0u;
100 goto l8;
101 l6:
102 i1 = *(OOC_UINT16*)((OOC_INT64)s+(_check_index(i0, s_0d, OOC_UINT32, 2967))*2);
103 i1 = (OOC_UINT16)i1<=(OOC_UINT16)255u;
104
105 l8:
106 if (!i1) goto l20;
107 l11_loop:
108 i1 = (OOC_INT64)Log__writer;
109 i2 = *(OOC_UINT16*)((OOC_INT64)s+(_check_index(i0, s_0d, OOC_UINT32, 3024))*2);
110 OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i1, 3003)))), TextRider__WriterDesc_WriteChar)),TextRider__WriterDesc_WriteChar)((TextRider__Writer)i1, i2);
111 i0 = i0+1;
112 i = i0;
113 i1 = *(OOC_UINT16*)((OOC_INT64)s+(_check_index(i0, s_0d, OOC_UINT32, 2953))*2);
114 i1 = i1!=0u;
115 if (i1) goto l14;
116 i1=0u;
117 goto l16;
118 l14:
119 i1 = *(OOC_UINT16*)((OOC_INT64)s+(_check_index(i0, s_0d, OOC_UINT32, 2967))*2);
120 i1 = (OOC_UINT16)i1<=(OOC_UINT16)255u;
121
122 l16:
123 if (i1) goto l11_loop;
124 l20:
125 i1 = *(OOC_UINT16*)((OOC_INT64)s+(_check_index(i0, s_0d, OOC_UINT32, 3072))*2);
126 i1 = i1!=0u;
127 if (i1) goto l23;
128 i1=0u;
129 goto l25;
130 l23:
131 i1 = *(OOC_UINT16*)((OOC_INT64)s+(_check_index(i0, s_0d, OOC_UINT32, 3086))*2);
132 i1 = (OOC_UINT16)i1>(OOC_UINT16)255u;
133
134 l25:
135 if (!i1) goto l37;
136 l28_loop:
137 i1 = (OOC_INT64)Log__writer;
138 OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i1, 3121)))), TextRider__WriterDesc_WriteChar)),TextRider__WriterDesc_WriteChar)((TextRider__Writer)i1, 63u);
139 i0 = i0+1;
140 i = i0;
141 i1 = *(OOC_UINT16*)((OOC_INT64)s+(_check_index(i0, s_0d, OOC_UINT32, 3072))*2);
142 i1 = i1!=0u;
143 if (i1) goto l31;
144 i1=0u;
145 goto l33;
146 l31:
147 i1 = *(OOC_UINT16*)((OOC_INT64)s+(_check_index(i0, s_0d, OOC_UINT32, 3086))*2);
148 i1 = (OOC_UINT16)i1>(OOC_UINT16)255u;
149
150 l33:
151 if (i1) goto l28_loop;
152 l37:
153 i1 = *(OOC_UINT16*)((OOC_INT64)s+(_check_index(i0, s_0d, OOC_UINT32, 2926))*2);
154 i1 = i1!=0u;
155 if (i1) goto l3_loop;
156 l42:
157 i0 = (OOC_INT64)Log__writer;
158 OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 3185)))), TextRider__WriterDesc_WriteLn)),TextRider__WriterDesc_WriteLn)((TextRider__Writer)i0);
159 return;
160 ;
161 }
162
Log__Object(const OOC_CHAR8 msg[],OOC_LEN msg_0d,Object__Object obj)163 void Log__Object(const OOC_CHAR8 msg[], OOC_LEN msg_0d, Object__Object obj) {
164 register OOC_INT64 i0,i1;
165
166 i0 = (OOC_INT64)Log__writer;
167 OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 3295)))), TextRider__WriterDesc_WriteString)),TextRider__WriterDesc_WriteString)((TextRider__Writer)i0, (void*)(OOC_INT64)msg, msg_0d);
168 i0 = (OOC_INT64)Log__writer;
169 OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 3326)))), TextRider__WriterDesc_WriteString)),TextRider__WriterDesc_WriteString)((TextRider__Writer)i0, (OOC_CHAR8*)": ", 3);
170 i0 = (OOC_INT64)Log__writer;
171 i1 = (OOC_INT64)obj;
172 OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 3358)))), TextRider__WriterDesc_WriteObject)),TextRider__WriterDesc_WriteObject)((TextRider__Writer)i0, (Object__Object)i1);
173 i0 = (OOC_INT64)Log__writer;
174 OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 3389)))), TextRider__WriterDesc_WriteLn)),TextRider__WriterDesc_WriteLn)((TextRider__Writer)i0);
175 return;
176 ;
177 }
178
Log__Bool(const OOC_CHAR8 msg[],OOC_LEN msg_0d,OOC_CHAR8 _bool)179 void Log__Bool(const OOC_CHAR8 msg[], OOC_LEN msg_0d, OOC_CHAR8 _bool) {
180 register OOC_INT64 i0,i1;
181
182 i0 = (OOC_INT64)Log__writer;
183 OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 3494)))), TextRider__WriterDesc_WriteString)),TextRider__WriterDesc_WriteString)((TextRider__Writer)i0, (void*)(OOC_INT64)msg, msg_0d);
184 i0 = (OOC_INT64)Log__writer;
185 OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 3525)))), TextRider__WriterDesc_WriteString)),TextRider__WriterDesc_WriteString)((TextRider__Writer)i0, (OOC_CHAR8*)": ", 3);
186 i0 = (OOC_INT64)Log__writer;
187 i1 = _bool;
188 OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 3557)))), TextRider__WriterDesc_WriteBool)),TextRider__WriterDesc_WriteBool)((TextRider__Writer)i0, i1);
189 i0 = (OOC_INT64)Log__writer;
190 OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 3587)))), TextRider__WriterDesc_WriteLn)),TextRider__WriterDesc_WriteLn)((TextRider__Writer)i0);
191 return;
192 ;
193 }
194
Log__LongInt(const OOC_CHAR8 msg[],OOC_LEN msg_0d,OOC_INT32 lint)195 void Log__LongInt(const OOC_CHAR8 msg[], OOC_LEN msg_0d, OOC_INT32 lint) {
196 register OOC_INT64 i0,i1;
197
198 i0 = (OOC_INT64)Log__writer;
199 OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 3695)))), TextRider__WriterDesc_WriteString)),TextRider__WriterDesc_WriteString)((TextRider__Writer)i0, (void*)(OOC_INT64)msg, msg_0d);
200 i0 = (OOC_INT64)Log__writer;
201 OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 3726)))), TextRider__WriterDesc_WriteString)),TextRider__WriterDesc_WriteString)((TextRider__Writer)i0, (OOC_CHAR8*)": ", 3);
202 i0 = (OOC_INT64)Log__writer;
203 i1 = lint;
204 OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 3758)))), TextRider__WriterDesc_WriteLInt)),TextRider__WriterDesc_WriteLInt)((TextRider__Writer)i0, i1, 0);
205 i0 = (OOC_INT64)Log__writer;
206 OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 3791)))), TextRider__WriterDesc_WriteLn)),TextRider__WriterDesc_WriteLn)((TextRider__Writer)i0);
207 return;
208 ;
209 }
210
Log__ShortInt(const OOC_CHAR8 msg[],OOC_LEN msg_0d,OOC_INT8 sint)211 void Log__ShortInt(const OOC_CHAR8 msg[], OOC_LEN msg_0d, OOC_INT8 sint) {
212 register OOC_INT64 i0,i1;
213
214 i0 = (OOC_INT64)Log__writer;
215 OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 3902)))), TextRider__WriterDesc_WriteString)),TextRider__WriterDesc_WriteString)((TextRider__Writer)i0, (void*)(OOC_INT64)msg, msg_0d);
216 i0 = (OOC_INT64)Log__writer;
217 OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 3933)))), TextRider__WriterDesc_WriteString)),TextRider__WriterDesc_WriteString)((TextRider__Writer)i0, (OOC_CHAR8*)": ", 3);
218 i0 = (OOC_INT64)Log__writer;
219 i1 = sint;
220 OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 3965)))), TextRider__WriterDesc_WriteSInt)),TextRider__WriterDesc_WriteSInt)((TextRider__Writer)i0, i1, 0);
221 i0 = (OOC_INT64)Log__writer;
222 OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 3998)))), TextRider__WriterDesc_WriteLn)),TextRider__WriterDesc_WriteLn)((TextRider__Writer)i0);
223 return;
224 ;
225 }
226
Log__Int(const OOC_CHAR8 msg[],OOC_LEN msg_0d,OOC_INT32 _int)227 void Log__Int(const OOC_CHAR8 msg[], OOC_LEN msg_0d, OOC_INT32 _int) {
228 register OOC_INT64 i0,i1;
229
230 i0 = (OOC_INT64)Log__writer;
231 OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 4103)))), TextRider__WriterDesc_WriteString)),TextRider__WriterDesc_WriteString)((TextRider__Writer)i0, (void*)(OOC_INT64)msg, msg_0d);
232 i0 = (OOC_INT64)Log__writer;
233 OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 4134)))), TextRider__WriterDesc_WriteString)),TextRider__WriterDesc_WriteString)((TextRider__Writer)i0, (OOC_CHAR8*)": ", 3);
234 i0 = (OOC_INT64)Log__writer;
235 i1 = _int;
236 OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 4166)))), TextRider__WriterDesc_WriteLInt)),TextRider__WriterDesc_WriteLInt)((TextRider__Writer)i0, i1, 0);
237 i0 = (OOC_INT64)Log__writer;
238 OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 4198)))), TextRider__WriterDesc_WriteLn)),TextRider__WriterDesc_WriteLn)((TextRider__Writer)i0);
239 return;
240 ;
241 }
242
Log__Hex(const OOC_CHAR8 msg[],OOC_LEN msg_0d,OOC_INT32 lint)243 void Log__Hex(const OOC_CHAR8 msg[], OOC_LEN msg_0d, OOC_INT32 lint) {
244 register OOC_INT64 i0,i1;
245
246 i0 = (OOC_INT64)Log__writer;
247 OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 4299)))), TextRider__WriterDesc_WriteString)),TextRider__WriterDesc_WriteString)((TextRider__Writer)i0, (void*)(OOC_INT64)msg, msg_0d);
248 i0 = (OOC_INT64)Log__writer;
249 OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 4330)))), TextRider__WriterDesc_WriteString)),TextRider__WriterDesc_WriteString)((TextRider__Writer)i0, (OOC_CHAR8*)": ", 3);
250 i0 = (OOC_INT64)Log__writer;
251 i1 = lint;
252 OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 4362)))), TextRider__WriterDesc_WriteHex)),TextRider__WriterDesc_WriteHex)((TextRider__Writer)i0, i1, 8);
253 i0 = (OOC_INT64)Log__writer;
254 OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 4394)))), TextRider__WriterDesc_WriteLn)),TextRider__WriterDesc_WriteLn)((TextRider__Writer)i0);
255 return;
256 ;
257 }
258
Log__HexAdr(const OOC_CHAR8 msg[],OOC_LEN msg_0d,OOC_INT64 adr)259 static void Log__HexAdr(const OOC_CHAR8 msg[], OOC_LEN msg_0d, OOC_INT64 adr) {
260 register OOC_INT64 i0,i1;
261
262 i0 = (OOC_INT64)Log__writer;
263 OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 4499)))), TextRider__WriterDesc_WriteString)),TextRider__WriterDesc_WriteString)((TextRider__Writer)i0, (void*)(OOC_INT64)msg, msg_0d);
264 i0 = (OOC_INT64)Log__writer;
265 OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 4530)))), TextRider__WriterDesc_WriteString)),TextRider__WriterDesc_WriteString)((TextRider__Writer)i0, (OOC_CHAR8*)": ", 3);
266 i0 = (OOC_INT64)Log__writer;
267 i1 = adr;
268 OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 4596)))), TextRider__WriterDesc_WriteHex)),TextRider__WriterDesc_WriteHex)((TextRider__Writer)i0, (_lsh(OOC_INT64, OOC_UINT64, i1, (-32))), 8);
269 i0 = (OOC_INT64)Log__writer;
270 OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 4648)))), TextRider__WriterDesc_WriteHex)),TextRider__WriterDesc_WriteHex)((TextRider__Writer)i0, (_lsh(OOC_INT64, OOC_UINT64, (_lsh(OOC_INT64, OOC_UINT64, i1, 32)), (-32))), 8);
271 i0 = (OOC_INT64)Log__writer;
272 OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 4764)))), TextRider__WriterDesc_WriteLn)),TextRider__WriterDesc_WriteLn)((TextRider__Writer)i0);
273 return;
274 ;
275 }
276
Log__LongReal(const OOC_CHAR8 msg[],OOC_LEN msg_0d,OOC_REAL64 lreal)277 void Log__LongReal(const OOC_CHAR8 msg[], OOC_LEN msg_0d, OOC_REAL64 lreal) {
278 register OOC_INT64 i0;
279 register OOC_REAL64 d0;
280
281 i0 = (OOC_INT64)Log__writer;
282 OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 4876)))), TextRider__WriterDesc_WriteString)),TextRider__WriterDesc_WriteString)((TextRider__Writer)i0, (void*)(OOC_INT64)msg, msg_0d);
283 i0 = (OOC_INT64)Log__writer;
284 OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 4907)))), TextRider__WriterDesc_WriteString)),TextRider__WriterDesc_WriteString)((TextRider__Writer)i0, (OOC_CHAR8*)": ", 3);
285 i0 = (OOC_INT64)Log__writer;
286 d0 = lreal;
287 OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 4939)))), TextRider__WriterDesc_WriteLReal)),TextRider__WriterDesc_WriteLReal)((TextRider__Writer)i0, d0, 24, 17);
288 i0 = (OOC_INT64)Log__writer;
289 OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 4979)))), TextRider__WriterDesc_WriteLn)),TextRider__WriterDesc_WriteLn)((TextRider__Writer)i0);
290 return;
291 ;
292 }
293
Log__Real(const OOC_CHAR8 msg[],OOC_LEN msg_0d,OOC_REAL32 real)294 void Log__Real(const OOC_CHAR8 msg[], OOC_LEN msg_0d, OOC_REAL32 real) {
295 register OOC_INT64 i0;
296 register OOC_REAL32 f0;
297
298 i0 = (OOC_INT64)Log__writer;
299 OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 5083)))), TextRider__WriterDesc_WriteString)),TextRider__WriterDesc_WriteString)((TextRider__Writer)i0, (void*)(OOC_INT64)msg, msg_0d);
300 i0 = (OOC_INT64)Log__writer;
301 OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 5114)))), TextRider__WriterDesc_WriteString)),TextRider__WriterDesc_WriteString)((TextRider__Writer)i0, (OOC_CHAR8*)": ", 3);
302 i0 = (OOC_INT64)Log__writer;
303 f0 = real;
304 OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 5146)))), TextRider__WriterDesc_WriteReal)),TextRider__WriterDesc_WriteReal)((TextRider__Writer)i0, f0, 16, 9);
305 i0 = (OOC_INT64)Log__writer;
306 OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 5183)))), TextRider__WriterDesc_WriteLn)),TextRider__WriterDesc_WriteLn)((TextRider__Writer)i0);
307 return;
308 ;
309 }
310
Log__LongRealEng(OOC_REAL64 lreal)311 void Log__LongRealEng(OOC_REAL64 lreal) {
312 register OOC_INT64 i0;
313
314 i0 = (OOC_INT64)Log__writer;
315 OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 5266)))), TextRider__WriterDesc_WriteLRealEng)),TextRider__WriterDesc_WriteLRealEng)((TextRider__Writer)i0, (void*)(OOC_INT64)&lreal, 26, 17);
316 return;
317 ;
318 }
319
Log__RealEng(OOC_REAL32 real)320 void Log__RealEng(OOC_REAL32 real) {
321 register OOC_INT64 i0;
322 register OOC_REAL32 f0;
323
324 i0 = (OOC_INT64)Log__writer;
325 f0 = real;
326 OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 5369)))), TextRider__WriterDesc_WriteRealEng)),TextRider__WriterDesc_WriteRealEng)((TextRider__Writer)i0, f0, 18, 9);
327 return;
328 ;
329 }
330
Log__Set(const OOC_CHAR8 msg[],OOC_LEN msg_0d,OOC_UINT32 s)331 void Log__Set(const OOC_CHAR8 msg[], OOC_LEN msg_0d, OOC_UINT32 s) {
332 register OOC_INT64 i0,i1;
333
334 i0 = (OOC_INT64)Log__writer;
335 OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 5488)))), TextRider__WriterDesc_WriteString)),TextRider__WriterDesc_WriteString)((TextRider__Writer)i0, (void*)(OOC_INT64)msg, msg_0d);
336 i0 = (OOC_INT64)Log__writer;
337 OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 5519)))), TextRider__WriterDesc_WriteString)),TextRider__WriterDesc_WriteString)((TextRider__Writer)i0, (OOC_CHAR8*)": ", 3);
338 i0 = (OOC_INT64)Log__writer;
339 i1 = s;
340 OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 5551)))), TextRider__WriterDesc_WriteSet)),TextRider__WriterDesc_WriteSet)((TextRider__Writer)i0, i1);
341 i0 = (OOC_INT64)Log__writer;
342 OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 5577)))), TextRider__WriterDesc_WriteLn)),TextRider__WriterDesc_WriteLn)((TextRider__Writer)i0);
343 return;
344 ;
345 }
346
Log__Msg(const OOC_CHAR8 msg[],OOC_LEN msg_0d)347 void Log__Msg(const OOC_CHAR8 msg[], OOC_LEN msg_0d) {
348 register OOC_INT64 i0;
349
350 i0 = (OOC_INT64)Log__writer;
351 OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 5663)))), TextRider__WriterDesc_WriteString)),TextRider__WriterDesc_WriteString)((TextRider__Writer)i0, (void*)(OOC_INT64)msg, msg_0d);
352 i0 = (OOC_INT64)Log__writer;
353 OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 5694)))), TextRider__WriterDesc_WriteLn)),TextRider__WriterDesc_WriteLn)((TextRider__Writer)i0);
354 return;
355 ;
356 }
357
Log__Ln(void)358 void Log__Ln(void) {
359 register OOC_INT64 i0;
360
361 i0 = (OOC_INT64)Log__writer;
362 OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 5749)))), TextRider__WriterDesc_WriteLn)),TextRider__WriterDesc_WriteLn)((TextRider__Writer)i0);
363 return;
364 ;
365 }
366
Log__Ptr(const OOC_CHAR8 msg[],OOC_LEN msg_0d,OOC_PTR ptr)367 void Log__Ptr(const OOC_CHAR8 msg[], OOC_LEN msg_0d, OOC_PTR ptr) {
368 register OOC_INT64 i0,i1;
369
370 i0 = (OOC_INT64)ptr;
371 i1 = i0==(OOC_INT64)0;
372 if (i1) goto l3;
373 Log__HexAdr((void*)(OOC_INT64)msg, msg_0d, (_type_cast_fast(OOC_INT64, OOC_INT64, i0)));
374 goto l4;
375 l3:
376 Log__String((void*)(OOC_INT64)msg, msg_0d, (OOC_CHAR8*)"NIL", 4);
377 l4:
378 return;
379 ;
380 }
381
Log__Adr(const OOC_CHAR8 msg[],OOC_LEN msg_0d,OOC_CHAR8 x[],OOC_LEN x_0d)382 void Log__Adr(const OOC_CHAR8 msg[], OOC_LEN msg_0d, OOC_CHAR8 x[], OOC_LEN x_0d) {
383
384 Log__HexAdr((void*)(OOC_INT64)msg, msg_0d, (OOC_INT64)x);
385 return;
386 ;
387 }
388
Log__Type(const OOC_CHAR8 msg[],OOC_LEN msg_0d,OOC_PTR ptr)389 void Log__Type(const OOC_CHAR8 msg[], OOC_LEN msg_0d, OOC_PTR ptr) {
390 register OOC_INT64 i0,i1;
391 RT0__Struct type;
392 OOC_CHAR8 str[256];
393
394 i0 = (OOC_INT64)ptr;
395 i1 = i0==(OOC_INT64)0;
396 if (i1) goto l3;
397 i0 = (OOC_INT64)RT0__TypeOf((void*)i0);
398 type = (RT0__Struct)i0;
399 i1 = (OOC_INT64)Log__writer;
400 OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i1, 6503)))), TextRider__WriterDesc_WriteString)),TextRider__WriterDesc_WriteString)((TextRider__Writer)i1, (void*)(OOC_INT64)msg, msg_0d);
401 i1 = (OOC_INT64)Log__writer;
402 OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i1, 6536)))), TextRider__WriterDesc_WriteString)),TextRider__WriterDesc_WriteString)((TextRider__Writer)i1, (OOC_CHAR8*)": ", 3);
403 i1 = (OOC_INT64)*(OOC_INT64*)((_check_pointer(i0, 6574))+24);
404 i1 = (OOC_INT64)*(OOC_INT64*)(_check_pointer(i1, 6582));
405 _copy_8((const void*)(_check_pointer(i1, 6588)),(void*)(OOC_INT64)str,256);
406 i1 = (OOC_INT64)Log__writer;
407 OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i1, 6609)))), TextRider__WriterDesc_WriteString)),TextRider__WriterDesc_WriteString)((TextRider__Writer)i1, (void*)(OOC_INT64)str, 256);
408 i1 = (OOC_INT64)Log__writer;
409 OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i1, 6642)))), TextRider__WriterDesc_WriteString)),TextRider__WriterDesc_WriteString)((TextRider__Writer)i1, (OOC_CHAR8*)".", 2);
410 i0 = (OOC_INT64)*(OOC_INT64*)((_check_pointer(i0, 6679))+32);
411 _copy_8((const void*)(_check_pointer(i0, 6685)),(void*)(OOC_INT64)str,256);
412 i0 = (OOC_INT64)Log__writer;
413 OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 6706)))), TextRider__WriterDesc_WriteString)),TextRider__WriterDesc_WriteString)((TextRider__Writer)i0, (void*)(OOC_INT64)str, 256);
414 i0 = (OOC_INT64)Log__writer;
415 OOC_TBCALL(((OOC_INT64)OOC_TBPROC_ADR(((OOC_INT64)OOC_TYPE_TAG((_check_pointer(i0, 6739)))), TextRider__WriterDesc_WriteLn)),TextRider__WriterDesc_WriteLn)((TextRider__Writer)i0);
416 goto l4;
417 l3:
418 Log__String((void*)(OOC_INT64)msg, msg_0d, (OOC_CHAR8*)"NIL", 4);
419 l4:
420 return;
421 ;
422 }
423
OOC_Log_init(void)424 void OOC_Log_init(void) {
425
426 Log__SetWriter((TextRider__Writer)(OOC_INT64)0);
427 return;
428 ;
429 }
430
OOC_Log_destroy(void)431 void OOC_Log_destroy(void) {
432 }
433
434 /* --- */
435