?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
2015-06-12 Basile Starynkevitch <basile@starynkevitch.net>
[official-gcc.git] / gcc / melt / generated / warmelt-debug.cc
blobed986457718c0ad8c15e462f0950649fd70ea5b8
1 /* GCC MELT GENERATED C++ FILE warmelt-debug.cc - DO NOT EDIT - see http://gcc-melt.org/ */
2
3 /***+ warmelt-debug without options +***/
4 #include "melt-run.h"
5
6
7 /* used hash from melt-run.h when compiling this file: */
8 MELT_EXTERN const char meltrun_used_md5_melt[] = MELT_RUN_HASHMD5 /* from melt-run.h */;
9
10
11 /**** warmelt-debug declarations ****/
12 /**** MELT GENERATED DECLARATIONS for warmelt-debug ** DO NOT EDIT ; see gcc-melt.org ****/
13
14 /****++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
15 ***
16 Copyright 2009 - 2014 Free Software Foundation, Inc.
17 Contributed by Basile Starynkevitch <basile@starynkevitch.net>
18
19 This file is part of GCC.
20
21 GCC is free software; you can redistribute it and/or modify
22 it under the terms of the GNU General Public License as published by
23 the Free Software Foundation; either version 3, or (at your option)
24 any later version.
25
26 GCC is distributed in the hope that it will be useful,
27 but WITHOUT ANY WARRANTY; without even the implied warranty of
28 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
29 GNU General Public License for more details.
30
31 You should have received a copy of the GNU General Public License
32 along with GCC; see the file COPYING3. If not see
33 <http://www.gnu.org/licenses/>.
34 ***
35 ----------------------------------------------------------------****/
36
37
38 /** ordinary MELT module meltbuild-sources/warmelt-debug**/
39 #define MELT_HAS_INITIAL_ENVIRONMENT 1 /*usualmodule*/
40
41
42
43 class Melt_InitialClassyFrame_WARMELTmiDEBUG_h640816647; // forward declaration fromline 6691
44 typedef Melt_InitialClassyFrame_WARMELTmiDEBUG_h640816647 Melt_InitialFrame;
45 /**** no MELT module variables ****/
46
47 /*** 4 MELT called hook declarations ***/
48
49 /*declare MELT called hook #0 HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER **/
50 MELT_EXTERN melt_ptr_t melthook_HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER (melt_ptr_t melthookdatap, melt_ptr_t meltinp0_PREVENV, const char* meltinp1_MODULNAME);
51
52 /*declare MELT called hook #1 HOOK_SYMBOL_IMPORTER **/
53 MELT_EXTERN melt_ptr_t melthook_HOOK_SYMBOL_IMPORTER (melt_ptr_t melthookdatap, const char* meltinp0_SYMNAMESTR, const char* meltinp1_MODULENAMESTR, melt_ptr_t meltinp2_PARENV);
54
55 /*declare MELT called hook #2 HOOK_SYMBOL_IMPORTER **/
56 MELT_EXTERN melt_ptr_t melthook_HOOK_SYMBOL_IMPORTER (melt_ptr_t melthookdatap, const char* meltinp0_SYMNAMESTR, const char* meltinp1_MODULENAMESTR, melt_ptr_t meltinp2_PARENV);
57
58 /*declare MELT called hook #3 HOOK_VALUE_EXPORTER **/
59 MELT_EXTERN void melthook_HOOK_VALUE_EXPORTER (melt_ptr_t melthookdatap, melt_ptr_t meltinp0_SYM, melt_ptr_t meltinp1_VAL, melt_ptr_t meltinp2_CONTENV);
60
61 /*** end of 4 MELT called hook declarations ***/
62
63 /*** no extra MELT c-headers ***/
64
65
66
67
68 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_1_WARMELTmiDEBUG_REGISTER_TREE_DEBUG_FUN(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
69
70
71
72
73 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_2_WARMELTmiDEBUG_REGISTER_GIMPLE_DEBUG_FUN(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
74
75
76
77
78 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_3_WARMELTmiDEBUG_REGISTER_GIMPLESEQ_DEBUG_FUN(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
79
80
81
82
83 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_4_WARMELTmiDEBUG_REGISTER_EDGE_DEBUG_FUN(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
84
85
86
87
88 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_5_WARMELTmiDEBUG_REGISTER_BASICBLOCK_DEBUG_FUN(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
89
90
91
92
93 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_6_WARMELTmiDEBUG_REGISTER_LOOP_DEBUG_FUN(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
94
95
96
97
98 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_7_WARMELTmiDEBUG_MELT_DEBUG_FUN(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
99
100
101
102
103 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_8_WARMELTmiDEBUG_DBG_OUTOBJECT(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
104
105
106
107
108 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_9_WARMELTmiDEBUG_DBG_OUT(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
109
110
111
112
113 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_10_WARMELTmiDEBUG_DBGOUT_FIELDS(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
114
115
116
117
118 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_11_WARMELTmiDEBUG_DBGOUTAGAIN_FIELDS(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
119
120
121
122
123 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_12_WARMELTmiDEBUG_DBGOUT_NULL_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
124
125
126
127
128 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_13_WARMELTmiDEBUG_DBGOUT_STRING_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
129
130
131
132
133 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_14_WARMELTmiDEBUG_DBGOUT_STRBUF_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
134
135
136
137
138 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_15_WARMELTmiDEBUG_DBGOUT_INTEGER_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
139
140
141
142
143 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_16_WARMELTmiDEBUG_DBGOUT_DOUBLE_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
144
145
146
147
148 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_17_WARMELTmiDEBUG_DBGOUT_MIXINT_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
149
150
151
152
153 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_18_WARMELTmiDEBUG_DBGOUT_MIXLOC_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
154
155
156
157
158 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_19_WARMELTmiDEBUG_DBGOUT_MIXBIGINT_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
159
160
161
162
163 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_20_WARMELTmiDEBUG_DBGOUT_MULTIPLE_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
164
165
166
167
168 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_21_WARMELTmiDEBUG_DBGOUT_ROUTINE_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
169
170
171
172
173 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_22_WARMELTmiDEBUG_LAMBDA_cl1(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
174
175
176
177
178 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_23_WARMELTmiDEBUG_DBGOUT_HOOK_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
179
180
181
182
183 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_24_WARMELTmiDEBUG_LAMBDA_cl2(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
184
185
186
187
188 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_25_WARMELTmiDEBUG_DBGOUT_CLOSURE_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
189
190
191
192
193 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_26_WARMELTmiDEBUG_DBGOUT_LIST_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
194
195
196
197
198 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_27_WARMELTmiDEBUG_DBGOUT_PAIR_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
199
200
201
202
203 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_28_WARMELTmiDEBUG_DBGOUT_MAPOBJECT_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
204
205
206
207
208 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_29_WARMELTmiDEBUG_LAMBDA_cl3(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
209
210
211
212
213 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_30_WARMELTmiDEBUG_LAMBDA_cl4(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
214
215
216
217
218 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_31_WARMELTmiDEBUG_LAMBDA_cl5(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
219
220
221
222
223 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_32_WARMELTmiDEBUG_DBGOUT_MAPSTRING_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
224
225
226
227
228 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_33_WARMELTmiDEBUG_LAMBDA_cl6(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
229
230
231
232
233 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_34_WARMELTmiDEBUG_LAMBDA_cl7(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
234
235
236
237
238 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_35_WARMELTmiDEBUG_DBGOUT_BUCKETLONG_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
239
240
241
242
243 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_36_WARMELTmiDEBUG_DBGOUT_JSONOBJECT_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
244
245
246
247
248 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_37_WARMELTmiDEBUG_DBGOUT_ANYOBJECT_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
249
250
251
252
253 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_38_WARMELTmiDEBUG_DBGOUT_ANYRECV_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
254
255
256
257
258 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_39_WARMELTmiDEBUG_DBGOUTAGAIN_ANYOBJECT_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
259
260
261
262
263 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_40_WARMELTmiDEBUG_DBGOUT_NAMEDOBJECT_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
264
265
266
267
268 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_41_WARMELTmiDEBUG_DBGOUTAGAIN_NAMEDOBJECT_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
269
270
271
272
273 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_42_WARMELTmiDEBUG_DBGOUTAGAIN_SYMBOL_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
274
275
276
277
278 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_43_WARMELTmiDEBUG_DBGOUT_SYMBOL_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
279
280
281
282
283 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_44_WARMELTmiDEBUG_DBGOUT_CLASS_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
284
285
286
287
288 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_45_WARMELTmiDEBUG_DBGOUTAGAIN_KEYWORD_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
289
290
291
292
293 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_46_WARMELTmiDEBUG_DBGOUT_KEYWORD_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
294
295
296
297
298 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_47_WARMELTmiDEBUG_DBGOUTAGAIN_CLONED_SYMBOL_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
299
300
301
302
303 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_48_WARMELTmiDEBUG_DBGOUT_CLONED_SYMBOL_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
304
305
306
307
308 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_49_WARMELTmiDEBUG_DBGOUT_ENVIRONMENT_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
309
310
311
312
313 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_50_WARMELTmiDEBUG_DBGOUTAGAIN_CTYPE_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
314
315
316
317
318 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_51_WARMELTmiDEBUG_DBGOUT_CTYPE_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
319
320
321
322
323 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_52_WARMELTmiDEBUG_DBGOUT_ANYBINDING_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
324
325
326
327
328 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_53_WARMELTmiDEBUG_DEBUG_LESS_FUN(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
329
330
331
332
333 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_54_WARMELTmiDEBUG_DEBUG_MORE_FUN(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
334
335
336
337
338 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_55_WARMELTmiDEBUG_DISPLAY_DEBUG_MESSAGE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
339
340
341 MELT_EXTERN MELT_LOW_OPTIMIZATION void* melt_start_this_module (void*); /*mandatory start of module*/
342
343 MELT_EXTERN const char melt_module_is_gpl_compatible[];
344
345 /*declare opaque initial frame: */
346
347 typedef Melt_InitialClassyFrame_WARMELTmiDEBUG_h640816647 /*opaqueinitialclassy*/ meltinitial_frame_t;
348
349
350 /* define different names when debugging or not */
351 #if MELT_HAVE_DEBUG
352 MELT_EXTERN const char meltmodule_WARMELTmiDEBUG__melt_have_debug_enabled[];
353 #define melt_have_debug_string meltmodule_WARMELTmiDEBUG__melt_have_debug_enabled
354 #else /*!MELT_HAVE_DEBUG*/
355 MELT_EXTERN const char meltmodule_WARMELTmiDEBUG__melt_have_debug_disabled[];
356 #define melt_have_debug_string meltmodule_WARMELTmiDEBUG__melt_have_debug_disabled
357 #endif /*!MELT_HAVE_DEBUG*/
358
359
360
361 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiDEBUG__initialmeltchunk_0 (meltinitial_frame_t*, char*); //declare
362
363 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiDEBUG__initialmeltchunk_1 (meltinitial_frame_t*, char*); //declare
364
365 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiDEBUG__initialmeltchunk_2 (meltinitial_frame_t*, char*); //declare
366
367 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiDEBUG__initialmeltchunk_3 (meltinitial_frame_t*, char*); //declare
368
369 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiDEBUG__initialmeltchunk_4 (meltinitial_frame_t*, char*); //declare
370
371 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiDEBUG__initialmeltchunk_5 (meltinitial_frame_t*, char*); //declare
372
373 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiDEBUG__initialmeltchunk_6 (meltinitial_frame_t*, char*); //declare
374
375 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiDEBUG__initialmeltchunk_7 (meltinitial_frame_t*, char*); //declare
376
377
378
379 /**** warmelt-debug implementations ****/
380 /**** MELT GENERATED IMPLEMENTATIONS for warmelt-debug ** DO NOT EDIT ; see gcc-melt.org ****/
381 /*** no extra MELT implementations ***/
382
383
384
385
386 melt_ptr_t MELT_MODULE_VISIBILITY
387 meltrout_1_WARMELTmiDEBUG_REGISTER_TREE_DEBUG_FUN(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_,
388 const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_)
389 {
390 long current_blocklevel_signals_meltrout_1_WARMELTmiDEBUG_REGISTER_TREE_DEBUG_FUN_melt = melt_blocklevel_signals;
391
392 #if MELT_HAVE_DEBUG
393 static long melt_call_counter__;
394 long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__;
395 #undef meltcallcount
396 #define meltcallcount melt_thiscallcounter__
397 #else
398 #undef meltcallcount
399 #define meltcallcount 0L
400 #endif
401 //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538
402
403 /* start of frame for routine meltrout_1_WARMELTmiDEBUG_REGISTER_TREE_DEBUG_FUN fromline 1752 */
404
405 /** start of frame for meltrout_1_WARMELTmiDEBUG_REGISTER_TREE_DEBUG_FUN of CLASS_PROCROUTINEOBJ from 1555**/
406
407 /*curframdeclclassy*/ class MeltFrame_meltrout_1_WARMELTmiDEBUG_REGISTER_TREE_DEBUG_FUN// fromline 1568
408 : public Melt_CallFrameWithValues<4>
409 {
410 public: /* fromline 1572*/
411 long mcfr_varnum[3];
412 /*classy others*/
413 long _meltsparel;
414 void melt_mark_stuff (void)
415 {
416 } /*end melt_mark_stuff*/
417 virtual void melt_mark_ggc_data (void)
418 {
419 melt_mark_values ();
420 melt_mark_stuff ();
421 }; /*end melt_mark_ggc_data*/
422 MeltFrame_meltrout_1_WARMELTmiDEBUG_REGISTER_TREE_DEBUG_FUN(meltclosure_ptr_t clos) //the closure constructor fromline 1630
423 : Melt_CallFrameWithValues<4> (
424 #if ENABLE_CHECKING /*fromline 1634*/
425 __FILE__, __LINE__,
426 #endif /* ENABLE_CHECKING fromline 1638*/
427 sizeof(MeltFrame_meltrout_1_WARMELTmiDEBUG_REGISTER_TREE_DEBUG_FUN), clos) {};
428 MeltFrame_meltrout_1_WARMELTmiDEBUG_REGISTER_TREE_DEBUG_FUN() //the constructor fromline 1642
429 : Melt_CallFrameWithValues<4> (
430 #if ENABLE_CHECKING /*fromline 1646*/
431 __FILE__, __LINE__,
432 #endif /* ENABLE_CHECKING fromline 1650*/
433 sizeof(MeltFrame_meltrout_1_WARMELTmiDEBUG_REGISTER_TREE_DEBUG_FUN)) {};
434 #if ENABLE_CHECKING /*fromline 1654*/
435 MeltFrame_meltrout_1_WARMELTmiDEBUG_REGISTER_TREE_DEBUG_FUN(const char*fil, int lin) //the constructor fromline 1656
436 : Melt_CallFrameWithValues<4> (fil,lin, sizeof(MeltFrame_meltrout_1_WARMELTmiDEBUG_REGISTER_TREE_DEBUG_FUN)) {};
437 MeltFrame_meltrout_1_WARMELTmiDEBUG_REGISTER_TREE_DEBUG_FUN(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661
438 : Melt_CallFrameWithValues<4> (fil,lin, sizeof(MeltFrame_meltrout_1_WARMELTmiDEBUG_REGISTER_TREE_DEBUG_FUN), clos) {};
439 #endif /* ENABLE_CHECKING fromline 1666*/
440
441 }; // end class MeltFrame_meltrout_1_WARMELTmiDEBUG_REGISTER_TREE_DEBUG_FUN
442
443
444 /** end of frame for meltrout_1_WARMELTmiDEBUG_REGISTER_TREE_DEBUG_FUN fromline 1697**/
445
446 /* end of frame for routine meltrout_1_WARMELTmiDEBUG_REGISTER_TREE_DEBUG_FUN fromline 1756 */
447
448 /* classy proc frame meltrout_1_WARMELTmiDEBUG_REGISTER_TREE_DEBUG_FUN */
449 MeltFrame_meltrout_1_WARMELTmiDEBUG_REGISTER_TREE_DEBUG_FUN
450 meltfram__ /*declfrastruct fromline 1780*/
451 /*classyprocarg meltrout_1_WARMELTmiDEBUG_REGISTER_TREE_DEBUG_FUN fromline 1785*/
452 #if ENABLE_CHECKING
453 (__FILE__, __LINE__, meltclosp_) /* fromline 1789*/
454 #else /*ENABLE_CHECKING */
455 (meltclosp_) /* fromline 1793*/
456 #endif /*ENABLE_CHECKING */
457
458 ;
459 #define meltframe meltfram__
460
461 melt_trace_start("REGISTER_TREE_DEBUG_FUN", meltcallcount);
462 /*use arguments*/
463 (void) meltclosp_;
464 (void)meltfirstargp_;
465 (void)meltxargdescr_;
466 (void)meltxargtab_;
467 (void)meltxresdescr_;
468 (void)meltxrestab_;
469 /*getargs*/
470
471 /*getarg#0*/
472 MELT_LOCATION("warmelt-debug.melt:111:/ getarg");
473 /*_.F__V2*/
474 meltfptr[1] = (melt_ptr_t) meltfirstargp_;
475 ;
476 goto meltlab_endgetargs;
477 meltlab_endgetargs:
478 ;
479 /*body*/
480 /*^block*/
481 /*anyblock*/
482 {
483
484 MELT_LOCATION("warmelt-debug.melt:116:/ quasiblock");
485
486
487 /*^cond*/
488 /*cond*/
489 if (
490 /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!TREE_DEBUG_FUNCONT*/ meltfrout->tabval[0])),
491 (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[1])))
492 ) /*then*/
493 {
494 /*^cond.then*/
495 /*^getslot*/
496 {
497 melt_ptr_t slot=NULL, obj=NULL;
498 obj = (melt_ptr_t)((/*!TREE_DEBUG_FUNCONT*/ meltfrout->tabval[0])) /*=obj*/;
499 melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE");
500 /*_.OLDCONT__V4*/
501 meltfptr[3] = slot;
502 };
503 ;
504 }
505 else /*^cond.else*/
506 {
507
508 /*_.OLDCONT__V4*/ meltfptr[3] = /*reallynil*/ NULL ;;
509 }
510 ;
511
512 MELT_CHECK_SIGNAL();
513 ;
514 /*^compute*/
515 /*_#NULL__L1*/
516 meltfnum[0] =
517 (/*null*/(/*_.F__V2*/ meltfptr[1]) == NULL);;
518 MELT_LOCATION("warmelt-debug.melt:118:/ cond");
519 /*cond*/
520 if (/*_#NULL__L1*/ meltfnum[0]) /*then*/
521 {
522 /*^cond.then*/
523 /*_#OR___L2*/ meltfnum[1] = /*_#NULL__L1*/ meltfnum[0];;
524 }
525 else
526 {
527 MELT_LOCATION("warmelt-debug.melt:118:/ cond.else");
528
529 /*^block*/
530 /*anyblock*/
531 {
532
533 /*_#IS_CLOSURE__L3*/ meltfnum[2] =
534 (melt_magic_discr((melt_ptr_t)(/*_.F__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);;
535 /*^compute*/
536 /*_#OR___L2*/
537 meltfnum[1] = /*_#IS_CLOSURE__L3*/ meltfnum[2];;
538 /*epilog*/
539
540 MELT_LOCATION("warmelt-debug.melt:118:/ clear");
541 /*clear*/ /*_#IS_CLOSURE__L3*/
542 meltfnum[2] = 0 ;
543 }
544 ;
545 }
546 ;
547 /*^cond*/
548 /*cond*/
549 if (/*_#OR___L2*/ meltfnum[1]) /*then*/
550 {
551 /*^cond.then*/
552 /*^block*/
553 /*anyblock*/
554 {
555
556
557 MELT_CHECK_SIGNAL();
558 ;
559 MELT_LOCATION("warmelt-debug.melt:119:/ cond");
560 /*cond*/
561 if (
562 /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!TREE_DEBUG_FUNCONT*/ meltfrout->tabval[0])),
563 (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[1])))
564 ) /*then*/
565 {
566 /*^cond.then*/
567 /*^block*/
568 /*anyblock*/
569 {
570
571 /*^putslot*/
572 /*putslot*/
573 melt_assertmsg("checkobj putslot _ @REFERENCED_VALUE", melt_magic_discr((melt_ptr_t)((/*!TREE_DEBUG_FUNCONT*/ meltfrout->tabval[0]))) == MELTOBMAG_OBJECT);
574 melt_putfield_object(((/*!TREE_DEBUG_FUNCONT*/ meltfrout->tabval[0])), (0), (/*_.F__V2*/ meltfptr[1]), "REFERENCED_VALUE");
575 ;
576 /*^touch*/
577 meltgc_touch((/*!TREE_DEBUG_FUNCONT*/ meltfrout->tabval[0]));
578 ;
579 /*^touchobj*/
580
581 melt_dbgtrace_written_object ((/*!TREE_DEBUG_FUNCONT*/ meltfrout->tabval[0]), "put-fields");
582 ;
583 /*epilog*/
584 }
585 ;
586 } /*noelse*/
587 ;
588 /*epilog*/
589 }
590 ;
591 } /*noelse*/
592 ;
593 /*_.LET___V3*/
594 meltfptr[2] = /*_.OLDCONT__V4*/ meltfptr[3];;
595
596 MELT_LOCATION("warmelt-debug.melt:116:/ clear");
597 /*clear*/ /*_.OLDCONT__V4*/
598 meltfptr[3] = 0 ;
599 /*^clear*/
600 /*clear*/ /*_#NULL__L1*/
601 meltfnum[0] = 0 ;
602 /*^clear*/
603 /*clear*/ /*_#OR___L2*/
604 meltfnum[1] = 0 ;
605 MELT_LOCATION("warmelt-debug.melt:111:/ quasiblock");
606
607
608 /*_._RETVAL___V1*/
609 meltfptr[0] = /*_.LET___V3*/ meltfptr[2];;
610
611 {
612 MELT_LOCATION("warmelt-debug.melt:111:/ locexp");
613 /*ochecknores compilobj_nrep_return*/
614 #if MELT_HAVE_DEBUG
615 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
616 melt_warn_for_no_expected_secondary_results();
617 /* we warned when secondary results are expected but not returned. */
618 #endif /*MELT_HAVE_DEBUG*/
619 ;
620 }
621 ;
622 /*^finalreturn*/
623 ;
624 /*finalret*/
625 goto meltlabend_rout ;
626 /*epilog*/
627
628 /*^clear*/
629 /*clear*/ /*_.LET___V3*/
630 meltfptr[2] = 0 ;
631 }
632
633 ;
634 goto meltlabend_rout;
635 meltlabend_rout:
636 melt_trace_end("REGISTER_TREE_DEBUG_FUN", meltcallcount);
637 melt_blocklevel_signals = current_blocklevel_signals_meltrout_1_WARMELTmiDEBUG_REGISTER_TREE_DEBUG_FUN_melt;
638 return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]);
639 #undef meltcallcount
640 #undef meltfram__
641 #undef MELTFRAM_NBVARNUM
642 #undef MELTFRAM_NBVARPTR
643 } /*end meltrout_1_WARMELTmiDEBUG_REGISTER_TREE_DEBUG_FUN*/
644
645
646
647
648
649
650 melt_ptr_t MELT_MODULE_VISIBILITY
651 meltrout_2_WARMELTmiDEBUG_REGISTER_GIMPLE_DEBUG_FUN(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_,
652 const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_)
653 {
654 long current_blocklevel_signals_meltrout_2_WARMELTmiDEBUG_REGISTER_GIMPLE_DEBUG_FUN_melt = melt_blocklevel_signals;
655
656 #if MELT_HAVE_DEBUG
657 static long melt_call_counter__;
658 long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__;
659 #undef meltcallcount
660 #define meltcallcount melt_thiscallcounter__
661 #else
662 #undef meltcallcount
663 #define meltcallcount 0L
664 #endif
665 //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538
666
667 /* start of frame for routine meltrout_2_WARMELTmiDEBUG_REGISTER_GIMPLE_DEBUG_FUN fromline 1752 */
668
669 /** start of frame for meltrout_2_WARMELTmiDEBUG_REGISTER_GIMPLE_DEBUG_FUN of CLASS_PROCROUTINEOBJ from 1555**/
670
671 /*curframdeclclassy*/ class MeltFrame_meltrout_2_WARMELTmiDEBUG_REGISTER_GIMPLE_DEBUG_FUN// fromline 1568
672 : public Melt_CallFrameWithValues<4>
673 {
674 public: /* fromline 1572*/
675 long mcfr_varnum[3];
676 /*classy others*/
677 long _meltsparel;
678 void melt_mark_stuff (void)
679 {
680 } /*end melt_mark_stuff*/
681 virtual void melt_mark_ggc_data (void)
682 {
683 melt_mark_values ();
684 melt_mark_stuff ();
685 }; /*end melt_mark_ggc_data*/
686 MeltFrame_meltrout_2_WARMELTmiDEBUG_REGISTER_GIMPLE_DEBUG_FUN(meltclosure_ptr_t clos) //the closure constructor fromline 1630
687 : Melt_CallFrameWithValues<4> (
688 #if ENABLE_CHECKING /*fromline 1634*/
689 __FILE__, __LINE__,
690 #endif /* ENABLE_CHECKING fromline 1638*/
691 sizeof(MeltFrame_meltrout_2_WARMELTmiDEBUG_REGISTER_GIMPLE_DEBUG_FUN), clos) {};
692 MeltFrame_meltrout_2_WARMELTmiDEBUG_REGISTER_GIMPLE_DEBUG_FUN() //the constructor fromline 1642
693 : Melt_CallFrameWithValues<4> (
694 #if ENABLE_CHECKING /*fromline 1646*/
695 __FILE__, __LINE__,
696 #endif /* ENABLE_CHECKING fromline 1650*/
697 sizeof(MeltFrame_meltrout_2_WARMELTmiDEBUG_REGISTER_GIMPLE_DEBUG_FUN)) {};
698 #if ENABLE_CHECKING /*fromline 1654*/
699 MeltFrame_meltrout_2_WARMELTmiDEBUG_REGISTER_GIMPLE_DEBUG_FUN(const char*fil, int lin) //the constructor fromline 1656
700 : Melt_CallFrameWithValues<4> (fil,lin, sizeof(MeltFrame_meltrout_2_WARMELTmiDEBUG_REGISTER_GIMPLE_DEBUG_FUN)) {};
701 MeltFrame_meltrout_2_WARMELTmiDEBUG_REGISTER_GIMPLE_DEBUG_FUN(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661
702 : Melt_CallFrameWithValues<4> (fil,lin, sizeof(MeltFrame_meltrout_2_WARMELTmiDEBUG_REGISTER_GIMPLE_DEBUG_FUN), clos) {};
703 #endif /* ENABLE_CHECKING fromline 1666*/
704
705 }; // end class MeltFrame_meltrout_2_WARMELTmiDEBUG_REGISTER_GIMPLE_DEBUG_FUN
706
707
708 /** end of frame for meltrout_2_WARMELTmiDEBUG_REGISTER_GIMPLE_DEBUG_FUN fromline 1697**/
709
710 /* end of frame for routine meltrout_2_WARMELTmiDEBUG_REGISTER_GIMPLE_DEBUG_FUN fromline 1756 */
711
712 /* classy proc frame meltrout_2_WARMELTmiDEBUG_REGISTER_GIMPLE_DEBUG_FUN */
713 MeltFrame_meltrout_2_WARMELTmiDEBUG_REGISTER_GIMPLE_DEBUG_FUN
714 meltfram__ /*declfrastruct fromline 1780*/
715 /*classyprocarg meltrout_2_WARMELTmiDEBUG_REGISTER_GIMPLE_DEBUG_FUN fromline 1785*/
716 #if ENABLE_CHECKING
717 (__FILE__, __LINE__, meltclosp_) /* fromline 1789*/
718 #else /*ENABLE_CHECKING */
719 (meltclosp_) /* fromline 1793*/
720 #endif /*ENABLE_CHECKING */
721
722 ;
723 #define meltframe meltfram__
724
725 melt_trace_start("REGISTER_GIMPLE_DEBUG_FUN", meltcallcount);
726 /*use arguments*/
727 (void) meltclosp_;
728 (void)meltfirstargp_;
729 (void)meltxargdescr_;
730 (void)meltxargtab_;
731 (void)meltxresdescr_;
732 (void)meltxrestab_;
733 /*getargs*/
734
735 /*getarg#0*/
736 MELT_LOCATION("warmelt-debug.melt:124:/ getarg");
737 /*_.F__V2*/
738 meltfptr[1] = (melt_ptr_t) meltfirstargp_;
739 ;
740 goto meltlab_endgetargs;
741 meltlab_endgetargs:
742 ;
743 /*body*/
744 /*^block*/
745 /*anyblock*/
746 {
747
748 MELT_LOCATION("warmelt-debug.melt:129:/ quasiblock");
749
750
751 /*^cond*/
752 /*cond*/
753 if (
754 /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!GIMPLE_DEBUG_FUNCONT*/ meltfrout->tabval[0])),
755 (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[1])))
756 ) /*then*/
757 {
758 /*^cond.then*/
759 /*^getslot*/
760 {
761 melt_ptr_t slot=NULL, obj=NULL;
762 obj = (melt_ptr_t)((/*!GIMPLE_DEBUG_FUNCONT*/ meltfrout->tabval[0])) /*=obj*/;
763 melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE");
764 /*_.OLDCONT__V4*/
765 meltfptr[3] = slot;
766 };
767 ;
768 }
769 else /*^cond.else*/
770 {
771
772 /*_.OLDCONT__V4*/ meltfptr[3] = /*reallynil*/ NULL ;;
773 }
774 ;
775
776 MELT_CHECK_SIGNAL();
777 ;
778 /*^compute*/
779 /*_#NULL__L1*/
780 meltfnum[0] =
781 (/*null*/(/*_.F__V2*/ meltfptr[1]) == NULL);;
782 MELT_LOCATION("warmelt-debug.melt:131:/ cond");
783 /*cond*/
784 if (/*_#NULL__L1*/ meltfnum[0]) /*then*/
785 {
786 /*^cond.then*/
787 /*_#OR___L2*/ meltfnum[1] = /*_#NULL__L1*/ meltfnum[0];;
788 }
789 else
790 {
791 MELT_LOCATION("warmelt-debug.melt:131:/ cond.else");
792
793 /*^block*/
794 /*anyblock*/
795 {
796
797 /*_#IS_CLOSURE__L3*/ meltfnum[2] =
798 (melt_magic_discr((melt_ptr_t)(/*_.F__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);;
799 /*^compute*/
800 /*_#OR___L2*/
801 meltfnum[1] = /*_#IS_CLOSURE__L3*/ meltfnum[2];;
802 /*epilog*/
803
804 MELT_LOCATION("warmelt-debug.melt:131:/ clear");
805 /*clear*/ /*_#IS_CLOSURE__L3*/
806 meltfnum[2] = 0 ;
807 }
808 ;
809 }
810 ;
811 /*^cond*/
812 /*cond*/
813 if (/*_#OR___L2*/ meltfnum[1]) /*then*/
814 {
815 /*^cond.then*/
816 /*^block*/
817 /*anyblock*/
818 {
819
820
821 MELT_CHECK_SIGNAL();
822 ;
823 MELT_LOCATION("warmelt-debug.melt:132:/ cond");
824 /*cond*/
825 if (
826 /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!GIMPLE_DEBUG_FUNCONT*/ meltfrout->tabval[0])),
827 (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[1])))
828 ) /*then*/
829 {
830 /*^cond.then*/
831 /*^block*/
832 /*anyblock*/
833 {
834
835 /*^putslot*/
836 /*putslot*/
837 melt_assertmsg("checkobj putslot _ @REFERENCED_VALUE", melt_magic_discr((melt_ptr_t)((/*!GIMPLE_DEBUG_FUNCONT*/ meltfrout->tabval[0]))) == MELTOBMAG_OBJECT);
838 melt_putfield_object(((/*!GIMPLE_DEBUG_FUNCONT*/ meltfrout->tabval[0])), (0), (/*_.F__V2*/ meltfptr[1]), "REFERENCED_VALUE");
839 ;
840 /*^touch*/
841 meltgc_touch((/*!GIMPLE_DEBUG_FUNCONT*/ meltfrout->tabval[0]));
842 ;
843 /*^touchobj*/
844
845 melt_dbgtrace_written_object ((/*!GIMPLE_DEBUG_FUNCONT*/ meltfrout->tabval[0]), "put-fields");
846 ;
847 /*epilog*/
848 }
849 ;
850 } /*noelse*/
851 ;
852 /*epilog*/
853 }
854 ;
855 } /*noelse*/
856 ;
857 /*_.LET___V3*/
858 meltfptr[2] = /*_.OLDCONT__V4*/ meltfptr[3];;
859
860 MELT_LOCATION("warmelt-debug.melt:129:/ clear");
861 /*clear*/ /*_.OLDCONT__V4*/
862 meltfptr[3] = 0 ;
863 /*^clear*/
864 /*clear*/ /*_#NULL__L1*/
865 meltfnum[0] = 0 ;
866 /*^clear*/
867 /*clear*/ /*_#OR___L2*/
868 meltfnum[1] = 0 ;
869 MELT_LOCATION("warmelt-debug.melt:124:/ quasiblock");
870
871
872 /*_._RETVAL___V1*/
873 meltfptr[0] = /*_.LET___V3*/ meltfptr[2];;
874
875 {
876 MELT_LOCATION("warmelt-debug.melt:124:/ locexp");
877 /*ochecknores compilobj_nrep_return*/
878 #if MELT_HAVE_DEBUG
879 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
880 melt_warn_for_no_expected_secondary_results();
881 /* we warned when secondary results are expected but not returned. */
882 #endif /*MELT_HAVE_DEBUG*/
883 ;
884 }
885 ;
886 /*^finalreturn*/
887 ;
888 /*finalret*/
889 goto meltlabend_rout ;
890 /*epilog*/
891
892 /*^clear*/
893 /*clear*/ /*_.LET___V3*/
894 meltfptr[2] = 0 ;
895 }
896
897 ;
898 goto meltlabend_rout;
899 meltlabend_rout:
900 melt_trace_end("REGISTER_GIMPLE_DEBUG_FUN", meltcallcount);
901 melt_blocklevel_signals = current_blocklevel_signals_meltrout_2_WARMELTmiDEBUG_REGISTER_GIMPLE_DEBUG_FUN_melt;
902 return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]);
903 #undef meltcallcount
904 #undef meltfram__
905 #undef MELTFRAM_NBVARNUM
906 #undef MELTFRAM_NBVARPTR
907 } /*end meltrout_2_WARMELTmiDEBUG_REGISTER_GIMPLE_DEBUG_FUN*/
908
909
910
911
912
913
914 melt_ptr_t MELT_MODULE_VISIBILITY
915 meltrout_3_WARMELTmiDEBUG_REGISTER_GIMPLESEQ_DEBUG_FUN(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_,
916 const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_)
917 {
918 long current_blocklevel_signals_meltrout_3_WARMELTmiDEBUG_REGISTER_GIMPLESEQ_DEBUG_FUN_melt = melt_blocklevel_signals;
919
920 #if MELT_HAVE_DEBUG
921 static long melt_call_counter__;
922 long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__;
923 #undef meltcallcount
924 #define meltcallcount melt_thiscallcounter__
925 #else
926 #undef meltcallcount
927 #define meltcallcount 0L
928 #endif
929 //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538
930
931 /* start of frame for routine meltrout_3_WARMELTmiDEBUG_REGISTER_GIMPLESEQ_DEBUG_FUN fromline 1752 */
932
933 /** start of frame for meltrout_3_WARMELTmiDEBUG_REGISTER_GIMPLESEQ_DEBUG_FUN of CLASS_PROCROUTINEOBJ from 1555**/
934
935 /*curframdeclclassy*/ class MeltFrame_meltrout_3_WARMELTmiDEBUG_REGISTER_GIMPLESEQ_DEBUG_FUN// fromline 1568
936 : public Melt_CallFrameWithValues<4>
937 {
938 public: /* fromline 1572*/
939 long mcfr_varnum[3];
940 /*classy others*/
941 long _meltsparel;
942 void melt_mark_stuff (void)
943 {
944 } /*end melt_mark_stuff*/
945 virtual void melt_mark_ggc_data (void)
946 {
947 melt_mark_values ();
948 melt_mark_stuff ();
949 }; /*end melt_mark_ggc_data*/
950 MeltFrame_meltrout_3_WARMELTmiDEBUG_REGISTER_GIMPLESEQ_DEBUG_FUN(meltclosure_ptr_t clos) //the closure constructor fromline 1630
951 : Melt_CallFrameWithValues<4> (
952 #if ENABLE_CHECKING /*fromline 1634*/
953 __FILE__, __LINE__,
954 #endif /* ENABLE_CHECKING fromline 1638*/
955 sizeof(MeltFrame_meltrout_3_WARMELTmiDEBUG_REGISTER_GIMPLESEQ_DEBUG_FUN), clos) {};
956 MeltFrame_meltrout_3_WARMELTmiDEBUG_REGISTER_GIMPLESEQ_DEBUG_FUN() //the constructor fromline 1642
957 : Melt_CallFrameWithValues<4> (
958 #if ENABLE_CHECKING /*fromline 1646*/
959 __FILE__, __LINE__,
960 #endif /* ENABLE_CHECKING fromline 1650*/
961 sizeof(MeltFrame_meltrout_3_WARMELTmiDEBUG_REGISTER_GIMPLESEQ_DEBUG_FUN)) {};
962 #if ENABLE_CHECKING /*fromline 1654*/
963 MeltFrame_meltrout_3_WARMELTmiDEBUG_REGISTER_GIMPLESEQ_DEBUG_FUN(const char*fil, int lin) //the constructor fromline 1656
964 : Melt_CallFrameWithValues<4> (fil,lin, sizeof(MeltFrame_meltrout_3_WARMELTmiDEBUG_REGISTER_GIMPLESEQ_DEBUG_FUN)) {};
965 MeltFrame_meltrout_3_WARMELTmiDEBUG_REGISTER_GIMPLESEQ_DEBUG_FUN(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661
966 : Melt_CallFrameWithValues<4> (fil,lin, sizeof(MeltFrame_meltrout_3_WARMELTmiDEBUG_REGISTER_GIMPLESEQ_DEBUG_FUN), clos) {};
967 #endif /* ENABLE_CHECKING fromline 1666*/
968
969 }; // end class MeltFrame_meltrout_3_WARMELTmiDEBUG_REGISTER_GIMPLESEQ_DEBUG_FUN
970
971
972 /** end of frame for meltrout_3_WARMELTmiDEBUG_REGISTER_GIMPLESEQ_DEBUG_FUN fromline 1697**/
973
974 /* end of frame for routine meltrout_3_WARMELTmiDEBUG_REGISTER_GIMPLESEQ_DEBUG_FUN fromline 1756 */
975
976 /* classy proc frame meltrout_3_WARMELTmiDEBUG_REGISTER_GIMPLESEQ_DEBUG_FUN */
977 MeltFrame_meltrout_3_WARMELTmiDEBUG_REGISTER_GIMPLESEQ_DEBUG_FUN
978 meltfram__ /*declfrastruct fromline 1780*/
979 /*classyprocarg meltrout_3_WARMELTmiDEBUG_REGISTER_GIMPLESEQ_DEBUG_FUN fromline 1785*/
980 #if ENABLE_CHECKING
981 (__FILE__, __LINE__, meltclosp_) /* fromline 1789*/
982 #else /*ENABLE_CHECKING */
983 (meltclosp_) /* fromline 1793*/
984 #endif /*ENABLE_CHECKING */
985
986 ;
987 #define meltframe meltfram__
988
989 melt_trace_start("REGISTER_GIMPLESEQ_DEBUG_FUN", meltcallcount);
990 /*use arguments*/
991 (void) meltclosp_;
992 (void)meltfirstargp_;
993 (void)meltxargdescr_;
994 (void)meltxargtab_;
995 (void)meltxresdescr_;
996 (void)meltxrestab_;
997 /*getargs*/
998
999 /*getarg#0*/
1000 MELT_LOCATION("warmelt-debug.melt:137:/ getarg");
1001 /*_.F__V2*/
1002 meltfptr[1] = (melt_ptr_t) meltfirstargp_;
1003 ;
1004 goto meltlab_endgetargs;
1005 meltlab_endgetargs:
1006 ;
1007 /*body*/
1008 /*^block*/
1009 /*anyblock*/
1010 {
1011
1012 MELT_LOCATION("warmelt-debug.melt:142:/ quasiblock");
1013
1014
1015 /*^cond*/
1016 /*cond*/
1017 if (
1018 /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!GIMPLESEQ_DEBUG_FUNCONT*/ meltfrout->tabval[0])),
1019 (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[1])))
1020 ) /*then*/
1021 {
1022 /*^cond.then*/
1023 /*^getslot*/
1024 {
1025 melt_ptr_t slot=NULL, obj=NULL;
1026 obj = (melt_ptr_t)((/*!GIMPLESEQ_DEBUG_FUNCONT*/ meltfrout->tabval[0])) /*=obj*/;
1027 melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE");
1028 /*_.OLDCONT__V4*/
1029 meltfptr[3] = slot;
1030 };
1031 ;
1032 }
1033 else /*^cond.else*/
1034 {
1035
1036 /*_.OLDCONT__V4*/ meltfptr[3] = /*reallynil*/ NULL ;;
1037 }
1038 ;
1039
1040 MELT_CHECK_SIGNAL();
1041 ;
1042 /*^compute*/
1043 /*_#NULL__L1*/
1044 meltfnum[0] =
1045 (/*null*/(/*_.F__V2*/ meltfptr[1]) == NULL);;
1046 MELT_LOCATION("warmelt-debug.melt:144:/ cond");
1047 /*cond*/
1048 if (/*_#NULL__L1*/ meltfnum[0]) /*then*/
1049 {
1050 /*^cond.then*/
1051 /*_#OR___L2*/ meltfnum[1] = /*_#NULL__L1*/ meltfnum[0];;
1052 }
1053 else
1054 {
1055 MELT_LOCATION("warmelt-debug.melt:144:/ cond.else");
1056
1057 /*^block*/
1058 /*anyblock*/
1059 {
1060
1061 /*_#IS_CLOSURE__L3*/ meltfnum[2] =
1062 (melt_magic_discr((melt_ptr_t)(/*_.F__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);;
1063 /*^compute*/
1064 /*_#OR___L2*/
1065 meltfnum[1] = /*_#IS_CLOSURE__L3*/ meltfnum[2];;
1066 /*epilog*/
1067
1068 MELT_LOCATION("warmelt-debug.melt:144:/ clear");
1069 /*clear*/ /*_#IS_CLOSURE__L3*/
1070 meltfnum[2] = 0 ;
1071 }
1072 ;
1073 }
1074 ;
1075 /*^cond*/
1076 /*cond*/
1077 if (/*_#OR___L2*/ meltfnum[1]) /*then*/
1078 {
1079 /*^cond.then*/
1080 /*^block*/
1081 /*anyblock*/
1082 {
1083
1084
1085 MELT_CHECK_SIGNAL();
1086 ;
1087 MELT_LOCATION("warmelt-debug.melt:145:/ cond");
1088 /*cond*/
1089 if (
1090 /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!GIMPLESEQ_DEBUG_FUNCONT*/ meltfrout->tabval[0])),
1091 (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[1])))
1092 ) /*then*/
1093 {
1094 /*^cond.then*/
1095 /*^block*/
1096 /*anyblock*/
1097 {
1098
1099 /*^putslot*/
1100 /*putslot*/
1101 melt_assertmsg("checkobj putslot _ @REFERENCED_VALUE", melt_magic_discr((melt_ptr_t)((/*!GIMPLESEQ_DEBUG_FUNCONT*/ meltfrout->tabval[0]))) == MELTOBMAG_OBJECT);
1102 melt_putfield_object(((/*!GIMPLESEQ_DEBUG_FUNCONT*/ meltfrout->tabval[0])), (0), (/*_.F__V2*/ meltfptr[1]), "REFERENCED_VALUE");
1103 ;
1104 /*^touch*/
1105 meltgc_touch((/*!GIMPLESEQ_DEBUG_FUNCONT*/ meltfrout->tabval[0]));
1106 ;
1107 /*^touchobj*/
1108
1109 melt_dbgtrace_written_object ((/*!GIMPLESEQ_DEBUG_FUNCONT*/ meltfrout->tabval[0]), "put-fields");
1110 ;
1111 /*epilog*/
1112 }
1113 ;
1114 } /*noelse*/
1115 ;
1116 /*epilog*/
1117 }
1118 ;
1119 } /*noelse*/
1120 ;
1121 /*_.LET___V3*/
1122 meltfptr[2] = /*_.OLDCONT__V4*/ meltfptr[3];;
1123
1124 MELT_LOCATION("warmelt-debug.melt:142:/ clear");
1125 /*clear*/ /*_.OLDCONT__V4*/
1126 meltfptr[3] = 0 ;
1127 /*^clear*/
1128 /*clear*/ /*_#NULL__L1*/
1129 meltfnum[0] = 0 ;
1130 /*^clear*/
1131 /*clear*/ /*_#OR___L2*/
1132 meltfnum[1] = 0 ;
1133 MELT_LOCATION("warmelt-debug.melt:137:/ quasiblock");
1134
1135
1136 /*_._RETVAL___V1*/
1137 meltfptr[0] = /*_.LET___V3*/ meltfptr[2];;
1138
1139 {
1140 MELT_LOCATION("warmelt-debug.melt:137:/ locexp");
1141 /*ochecknores compilobj_nrep_return*/
1142 #if MELT_HAVE_DEBUG
1143 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
1144 melt_warn_for_no_expected_secondary_results();
1145 /* we warned when secondary results are expected but not returned. */
1146 #endif /*MELT_HAVE_DEBUG*/
1147 ;
1148 }
1149 ;
1150 /*^finalreturn*/
1151 ;
1152 /*finalret*/
1153 goto meltlabend_rout ;
1154 /*epilog*/
1155
1156 /*^clear*/
1157 /*clear*/ /*_.LET___V3*/
1158 meltfptr[2] = 0 ;
1159 }
1160
1161 ;
1162 goto meltlabend_rout;
1163 meltlabend_rout:
1164 melt_trace_end("REGISTER_GIMPLESEQ_DEBUG_FUN", meltcallcount);
1165 melt_blocklevel_signals = current_blocklevel_signals_meltrout_3_WARMELTmiDEBUG_REGISTER_GIMPLESEQ_DEBUG_FUN_melt;
1166 return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]);
1167 #undef meltcallcount
1168 #undef meltfram__
1169 #undef MELTFRAM_NBVARNUM
1170 #undef MELTFRAM_NBVARPTR
1171 } /*end meltrout_3_WARMELTmiDEBUG_REGISTER_GIMPLESEQ_DEBUG_FUN*/
1172
1173
1174
1175
1176
1177
1178 melt_ptr_t MELT_MODULE_VISIBILITY
1179 meltrout_4_WARMELTmiDEBUG_REGISTER_EDGE_DEBUG_FUN(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_,
1180 const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_)
1181 {
1182 long current_blocklevel_signals_meltrout_4_WARMELTmiDEBUG_REGISTER_EDGE_DEBUG_FUN_melt = melt_blocklevel_signals;
1183
1184 #if MELT_HAVE_DEBUG
1185 static long melt_call_counter__;
1186 long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__;
1187 #undef meltcallcount
1188 #define meltcallcount melt_thiscallcounter__
1189 #else
1190 #undef meltcallcount
1191 #define meltcallcount 0L
1192 #endif
1193 //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538
1194
1195 /* start of frame for routine meltrout_4_WARMELTmiDEBUG_REGISTER_EDGE_DEBUG_FUN fromline 1752 */
1196
1197 /** start of frame for meltrout_4_WARMELTmiDEBUG_REGISTER_EDGE_DEBUG_FUN of CLASS_PROCROUTINEOBJ from 1555**/
1198
1199 /*curframdeclclassy*/ class MeltFrame_meltrout_4_WARMELTmiDEBUG_REGISTER_EDGE_DEBUG_FUN// fromline 1568
1200 : public Melt_CallFrameWithValues<4>
1201 {
1202 public: /* fromline 1572*/
1203 long mcfr_varnum[3];
1204 /*classy others*/
1205 long _meltsparel;
1206 void melt_mark_stuff (void)
1207 {
1208 } /*end melt_mark_stuff*/
1209 virtual void melt_mark_ggc_data (void)
1210 {
1211 melt_mark_values ();
1212 melt_mark_stuff ();
1213 }; /*end melt_mark_ggc_data*/
1214 MeltFrame_meltrout_4_WARMELTmiDEBUG_REGISTER_EDGE_DEBUG_FUN(meltclosure_ptr_t clos) //the closure constructor fromline 1630
1215 : Melt_CallFrameWithValues<4> (
1216 #if ENABLE_CHECKING /*fromline 1634*/
1217 __FILE__, __LINE__,
1218 #endif /* ENABLE_CHECKING fromline 1638*/
1219 sizeof(MeltFrame_meltrout_4_WARMELTmiDEBUG_REGISTER_EDGE_DEBUG_FUN), clos) {};
1220 MeltFrame_meltrout_4_WARMELTmiDEBUG_REGISTER_EDGE_DEBUG_FUN() //the constructor fromline 1642
1221 : Melt_CallFrameWithValues<4> (
1222 #if ENABLE_CHECKING /*fromline 1646*/
1223 __FILE__, __LINE__,
1224 #endif /* ENABLE_CHECKING fromline 1650*/
1225 sizeof(MeltFrame_meltrout_4_WARMELTmiDEBUG_REGISTER_EDGE_DEBUG_FUN)) {};
1226 #if ENABLE_CHECKING /*fromline 1654*/
1227 MeltFrame_meltrout_4_WARMELTmiDEBUG_REGISTER_EDGE_DEBUG_FUN(const char*fil, int lin) //the constructor fromline 1656
1228 : Melt_CallFrameWithValues<4> (fil,lin, sizeof(MeltFrame_meltrout_4_WARMELTmiDEBUG_REGISTER_EDGE_DEBUG_FUN)) {};
1229 MeltFrame_meltrout_4_WARMELTmiDEBUG_REGISTER_EDGE_DEBUG_FUN(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661
1230 : Melt_CallFrameWithValues<4> (fil,lin, sizeof(MeltFrame_meltrout_4_WARMELTmiDEBUG_REGISTER_EDGE_DEBUG_FUN), clos) {};
1231 #endif /* ENABLE_CHECKING fromline 1666*/
1232
1233 }; // end class MeltFrame_meltrout_4_WARMELTmiDEBUG_REGISTER_EDGE_DEBUG_FUN
1234
1235
1236 /** end of frame for meltrout_4_WARMELTmiDEBUG_REGISTER_EDGE_DEBUG_FUN fromline 1697**/
1237
1238 /* end of frame for routine meltrout_4_WARMELTmiDEBUG_REGISTER_EDGE_DEBUG_FUN fromline 1756 */
1239
1240 /* classy proc frame meltrout_4_WARMELTmiDEBUG_REGISTER_EDGE_DEBUG_FUN */
1241 MeltFrame_meltrout_4_WARMELTmiDEBUG_REGISTER_EDGE_DEBUG_FUN
1242 meltfram__ /*declfrastruct fromline 1780*/
1243 /*classyprocarg meltrout_4_WARMELTmiDEBUG_REGISTER_EDGE_DEBUG_FUN fromline 1785*/
1244 #if ENABLE_CHECKING
1245 (__FILE__, __LINE__, meltclosp_) /* fromline 1789*/
1246 #else /*ENABLE_CHECKING */
1247 (meltclosp_) /* fromline 1793*/
1248 #endif /*ENABLE_CHECKING */
1249
1250 ;
1251 #define meltframe meltfram__
1252
1253 melt_trace_start("REGISTER_EDGE_DEBUG_FUN", meltcallcount);
1254 /*use arguments*/
1255 (void) meltclosp_;
1256 (void)meltfirstargp_;
1257 (void)meltxargdescr_;
1258 (void)meltxargtab_;
1259 (void)meltxresdescr_;
1260 (void)meltxrestab_;
1261 /*getargs*/
1262
1263 /*getarg#0*/
1264 MELT_LOCATION("warmelt-debug.melt:150:/ getarg");
1265 /*_.F__V2*/
1266 meltfptr[1] = (melt_ptr_t) meltfirstargp_;
1267 ;
1268 goto meltlab_endgetargs;
1269 meltlab_endgetargs:
1270 ;
1271 /*body*/
1272 /*^block*/
1273 /*anyblock*/
1274 {
1275
1276 MELT_LOCATION("warmelt-debug.melt:155:/ quasiblock");
1277
1278
1279 /*^cond*/
1280 /*cond*/
1281 if (
1282 /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!EDGE_DEBUG_FUNCONT*/ meltfrout->tabval[0])),
1283 (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[1])))
1284 ) /*then*/
1285 {
1286 /*^cond.then*/
1287 /*^getslot*/
1288 {
1289 melt_ptr_t slot=NULL, obj=NULL;
1290 obj = (melt_ptr_t)((/*!EDGE_DEBUG_FUNCONT*/ meltfrout->tabval[0])) /*=obj*/;
1291 melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE");
1292 /*_.OLDCONT__V4*/
1293 meltfptr[3] = slot;
1294 };
1295 ;
1296 }
1297 else /*^cond.else*/
1298 {
1299
1300 /*_.OLDCONT__V4*/ meltfptr[3] = /*reallynil*/ NULL ;;
1301 }
1302 ;
1303
1304 MELT_CHECK_SIGNAL();
1305 ;
1306 /*^compute*/
1307 /*_#NULL__L1*/
1308 meltfnum[0] =
1309 (/*null*/(/*_.F__V2*/ meltfptr[1]) == NULL);;
1310 MELT_LOCATION("warmelt-debug.melt:157:/ cond");
1311 /*cond*/
1312 if (/*_#NULL__L1*/ meltfnum[0]) /*then*/
1313 {
1314 /*^cond.then*/
1315 /*_#OR___L2*/ meltfnum[1] = /*_#NULL__L1*/ meltfnum[0];;
1316 }
1317 else
1318 {
1319 MELT_LOCATION("warmelt-debug.melt:157:/ cond.else");
1320
1321 /*^block*/
1322 /*anyblock*/
1323 {
1324
1325 /*_#IS_CLOSURE__L3*/ meltfnum[2] =
1326 (melt_magic_discr((melt_ptr_t)(/*_.F__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);;
1327 /*^compute*/
1328 /*_#OR___L2*/
1329 meltfnum[1] = /*_#IS_CLOSURE__L3*/ meltfnum[2];;
1330 /*epilog*/
1331
1332 MELT_LOCATION("warmelt-debug.melt:157:/ clear");
1333 /*clear*/ /*_#IS_CLOSURE__L3*/
1334 meltfnum[2] = 0 ;
1335 }
1336 ;
1337 }
1338 ;
1339 /*^cond*/
1340 /*cond*/
1341 if (/*_#OR___L2*/ meltfnum[1]) /*then*/
1342 {
1343 /*^cond.then*/
1344 /*^block*/
1345 /*anyblock*/
1346 {
1347
1348
1349 MELT_CHECK_SIGNAL();
1350 ;
1351 MELT_LOCATION("warmelt-debug.melt:158:/ cond");
1352 /*cond*/
1353 if (
1354 /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!EDGE_DEBUG_FUNCONT*/ meltfrout->tabval[0])),
1355 (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[1])))
1356 ) /*then*/
1357 {
1358 /*^cond.then*/
1359 /*^block*/
1360 /*anyblock*/
1361 {
1362
1363 /*^putslot*/
1364 /*putslot*/
1365 melt_assertmsg("checkobj putslot _ @REFERENCED_VALUE", melt_magic_discr((melt_ptr_t)((/*!EDGE_DEBUG_FUNCONT*/ meltfrout->tabval[0]))) == MELTOBMAG_OBJECT);
1366 melt_putfield_object(((/*!EDGE_DEBUG_FUNCONT*/ meltfrout->tabval[0])), (0), (/*_.F__V2*/ meltfptr[1]), "REFERENCED_VALUE");
1367 ;
1368 /*^touch*/
1369 meltgc_touch((/*!EDGE_DEBUG_FUNCONT*/ meltfrout->tabval[0]));
1370 ;
1371 /*^touchobj*/
1372
1373 melt_dbgtrace_written_object ((/*!EDGE_DEBUG_FUNCONT*/ meltfrout->tabval[0]), "put-fields");
1374 ;
1375 /*epilog*/
1376 }
1377 ;
1378 } /*noelse*/
1379 ;
1380 /*epilog*/
1381 }
1382 ;
1383 } /*noelse*/
1384 ;
1385 /*_.LET___V3*/
1386 meltfptr[2] = /*_.OLDCONT__V4*/ meltfptr[3];;
1387
1388 MELT_LOCATION("warmelt-debug.melt:155:/ clear");
1389 /*clear*/ /*_.OLDCONT__V4*/
1390 meltfptr[3] = 0 ;
1391 /*^clear*/
1392 /*clear*/ /*_#NULL__L1*/
1393 meltfnum[0] = 0 ;
1394 /*^clear*/
1395 /*clear*/ /*_#OR___L2*/
1396 meltfnum[1] = 0 ;
1397 MELT_LOCATION("warmelt-debug.melt:150:/ quasiblock");
1398
1399
1400 /*_._RETVAL___V1*/
1401 meltfptr[0] = /*_.LET___V3*/ meltfptr[2];;
1402
1403 {
1404 MELT_LOCATION("warmelt-debug.melt:150:/ locexp");
1405 /*ochecknores compilobj_nrep_return*/
1406 #if MELT_HAVE_DEBUG
1407 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
1408 melt_warn_for_no_expected_secondary_results();
1409 /* we warned when secondary results are expected but not returned. */
1410 #endif /*MELT_HAVE_DEBUG*/
1411 ;
1412 }
1413 ;
1414 /*^finalreturn*/
1415 ;
1416 /*finalret*/
1417 goto meltlabend_rout ;
1418 /*epilog*/
1419
1420 /*^clear*/
1421 /*clear*/ /*_.LET___V3*/
1422 meltfptr[2] = 0 ;
1423 }
1424
1425 ;
1426 goto meltlabend_rout;
1427 meltlabend_rout:
1428 melt_trace_end("REGISTER_EDGE_DEBUG_FUN", meltcallcount);
1429 melt_blocklevel_signals = current_blocklevel_signals_meltrout_4_WARMELTmiDEBUG_REGISTER_EDGE_DEBUG_FUN_melt;
1430 return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]);
1431 #undef meltcallcount
1432 #undef meltfram__
1433 #undef MELTFRAM_NBVARNUM
1434 #undef MELTFRAM_NBVARPTR
1435 } /*end meltrout_4_WARMELTmiDEBUG_REGISTER_EDGE_DEBUG_FUN*/
1436
1437
1438
1439
1440
1441
1442 melt_ptr_t MELT_MODULE_VISIBILITY
1443 meltrout_5_WARMELTmiDEBUG_REGISTER_BASICBLOCK_DEBUG_FUN(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_,
1444 const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_)
1445 {
1446 long current_blocklevel_signals_meltrout_5_WARMELTmiDEBUG_REGISTER_BASICBLOCK_DEBUG_FUN_melt = melt_blocklevel_signals;
1447
1448 #if MELT_HAVE_DEBUG
1449 static long melt_call_counter__;
1450 long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__;
1451 #undef meltcallcount
1452 #define meltcallcount melt_thiscallcounter__
1453 #else
1454 #undef meltcallcount
1455 #define meltcallcount 0L
1456 #endif
1457 //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538
1458
1459 /* start of frame for routine meltrout_5_WARMELTmiDEBUG_REGISTER_BASICBLOCK_DEBUG_FUN fromline 1752 */
1460
1461 /** start of frame for meltrout_5_WARMELTmiDEBUG_REGISTER_BASICBLOCK_DEBUG_FUN of CLASS_PROCROUTINEOBJ from 1555**/
1462
1463 /*curframdeclclassy*/ class MeltFrame_meltrout_5_WARMELTmiDEBUG_REGISTER_BASICBLOCK_DEBUG_FUN// fromline 1568
1464 : public Melt_CallFrameWithValues<4>
1465 {
1466 public: /* fromline 1572*/
1467 long mcfr_varnum[3];
1468 /*classy others*/
1469 long _meltsparel;
1470 void melt_mark_stuff (void)
1471 {
1472 } /*end melt_mark_stuff*/
1473 virtual void melt_mark_ggc_data (void)
1474 {
1475 melt_mark_values ();
1476 melt_mark_stuff ();
1477 }; /*end melt_mark_ggc_data*/
1478 MeltFrame_meltrout_5_WARMELTmiDEBUG_REGISTER_BASICBLOCK_DEBUG_FUN(meltclosure_ptr_t clos) //the closure constructor fromline 1630
1479 : Melt_CallFrameWithValues<4> (
1480 #if ENABLE_CHECKING /*fromline 1634*/
1481 __FILE__, __LINE__,
1482 #endif /* ENABLE_CHECKING fromline 1638*/
1483 sizeof(MeltFrame_meltrout_5_WARMELTmiDEBUG_REGISTER_BASICBLOCK_DEBUG_FUN), clos) {};
1484 MeltFrame_meltrout_5_WARMELTmiDEBUG_REGISTER_BASICBLOCK_DEBUG_FUN() //the constructor fromline 1642
1485 : Melt_CallFrameWithValues<4> (
1486 #if ENABLE_CHECKING /*fromline 1646*/
1487 __FILE__, __LINE__,
1488 #endif /* ENABLE_CHECKING fromline 1650*/
1489 sizeof(MeltFrame_meltrout_5_WARMELTmiDEBUG_REGISTER_BASICBLOCK_DEBUG_FUN)) {};
1490 #if ENABLE_CHECKING /*fromline 1654*/
1491 MeltFrame_meltrout_5_WARMELTmiDEBUG_REGISTER_BASICBLOCK_DEBUG_FUN(const char*fil, int lin) //the constructor fromline 1656
1492 : Melt_CallFrameWithValues<4> (fil,lin, sizeof(MeltFrame_meltrout_5_WARMELTmiDEBUG_REGISTER_BASICBLOCK_DEBUG_FUN)) {};
1493 MeltFrame_meltrout_5_WARMELTmiDEBUG_REGISTER_BASICBLOCK_DEBUG_FUN(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661
1494 : Melt_CallFrameWithValues<4> (fil,lin, sizeof(MeltFrame_meltrout_5_WARMELTmiDEBUG_REGISTER_BASICBLOCK_DEBUG_FUN), clos) {};
1495 #endif /* ENABLE_CHECKING fromline 1666*/
1496
1497 }; // end class MeltFrame_meltrout_5_WARMELTmiDEBUG_REGISTER_BASICBLOCK_DEBUG_FUN
1498
1499
1500 /** end of frame for meltrout_5_WARMELTmiDEBUG_REGISTER_BASICBLOCK_DEBUG_FUN fromline 1697**/
1501
1502 /* end of frame for routine meltrout_5_WARMELTmiDEBUG_REGISTER_BASICBLOCK_DEBUG_FUN fromline 1756 */
1503
1504 /* classy proc frame meltrout_5_WARMELTmiDEBUG_REGISTER_BASICBLOCK_DEBUG_FUN */
1505 MeltFrame_meltrout_5_WARMELTmiDEBUG_REGISTER_BASICBLOCK_DEBUG_FUN
1506 meltfram__ /*declfrastruct fromline 1780*/
1507 /*classyprocarg meltrout_5_WARMELTmiDEBUG_REGISTER_BASICBLOCK_DEBUG_FUN fromline 1785*/
1508 #if ENABLE_CHECKING
1509 (__FILE__, __LINE__, meltclosp_) /* fromline 1789*/
1510 #else /*ENABLE_CHECKING */
1511 (meltclosp_) /* fromline 1793*/
1512 #endif /*ENABLE_CHECKING */
1513
1514 ;
1515 #define meltframe meltfram__
1516
1517 melt_trace_start("REGISTER_BASICBLOCK_DEBUG_FUN", meltcallcount);
1518 /*use arguments*/
1519 (void) meltclosp_;
1520 (void)meltfirstargp_;
1521 (void)meltxargdescr_;
1522 (void)meltxargtab_;
1523 (void)meltxresdescr_;
1524 (void)meltxrestab_;
1525 /*getargs*/
1526
1527 /*getarg#0*/
1528 MELT_LOCATION("warmelt-debug.melt:163:/ getarg");
1529 /*_.F__V2*/
1530 meltfptr[1] = (melt_ptr_t) meltfirstargp_;
1531 ;
1532 goto meltlab_endgetargs;
1533 meltlab_endgetargs:
1534 ;
1535 /*body*/
1536 /*^block*/
1537 /*anyblock*/
1538 {
1539
1540 MELT_LOCATION("warmelt-debug.melt:168:/ quasiblock");
1541
1542
1543 /*^cond*/
1544 /*cond*/
1545 if (
1546 /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!BASICBLOCK_DEBUG_FUNCONT*/ meltfrout->tabval[0])),
1547 (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[1])))
1548 ) /*then*/
1549 {
1550 /*^cond.then*/
1551 /*^getslot*/
1552 {
1553 melt_ptr_t slot=NULL, obj=NULL;
1554 obj = (melt_ptr_t)((/*!BASICBLOCK_DEBUG_FUNCONT*/ meltfrout->tabval[0])) /*=obj*/;
1555 melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE");
1556 /*_.OLDCONT__V4*/
1557 meltfptr[3] = slot;
1558 };
1559 ;
1560 }
1561 else /*^cond.else*/
1562 {
1563
1564 /*_.OLDCONT__V4*/ meltfptr[3] = /*reallynil*/ NULL ;;
1565 }
1566 ;
1567
1568 MELT_CHECK_SIGNAL();
1569 ;
1570 /*^compute*/
1571 /*_#NULL__L1*/
1572 meltfnum[0] =
1573 (/*null*/(/*_.F__V2*/ meltfptr[1]) == NULL);;
1574 MELT_LOCATION("warmelt-debug.melt:170:/ cond");
1575 /*cond*/
1576 if (/*_#NULL__L1*/ meltfnum[0]) /*then*/
1577 {
1578 /*^cond.then*/
1579 /*_#OR___L2*/ meltfnum[1] = /*_#NULL__L1*/ meltfnum[0];;
1580 }
1581 else
1582 {
1583 MELT_LOCATION("warmelt-debug.melt:170:/ cond.else");
1584
1585 /*^block*/
1586 /*anyblock*/
1587 {
1588
1589 /*_#IS_CLOSURE__L3*/ meltfnum[2] =
1590 (melt_magic_discr((melt_ptr_t)(/*_.F__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);;
1591 /*^compute*/
1592 /*_#OR___L2*/
1593 meltfnum[1] = /*_#IS_CLOSURE__L3*/ meltfnum[2];;
1594 /*epilog*/
1595
1596 MELT_LOCATION("warmelt-debug.melt:170:/ clear");
1597 /*clear*/ /*_#IS_CLOSURE__L3*/
1598 meltfnum[2] = 0 ;
1599 }
1600 ;
1601 }
1602 ;
1603 /*^cond*/
1604 /*cond*/
1605 if (/*_#OR___L2*/ meltfnum[1]) /*then*/
1606 {
1607 /*^cond.then*/
1608 /*^block*/
1609 /*anyblock*/
1610 {
1611
1612
1613 MELT_CHECK_SIGNAL();
1614 ;
1615 MELT_LOCATION("warmelt-debug.melt:171:/ cond");
1616 /*cond*/
1617 if (
1618 /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!BASICBLOCK_DEBUG_FUNCONT*/ meltfrout->tabval[0])),
1619 (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[1])))
1620 ) /*then*/
1621 {
1622 /*^cond.then*/
1623 /*^block*/
1624 /*anyblock*/
1625 {
1626
1627 /*^putslot*/
1628 /*putslot*/
1629 melt_assertmsg("checkobj putslot _ @REFERENCED_VALUE", melt_magic_discr((melt_ptr_t)((/*!BASICBLOCK_DEBUG_FUNCONT*/ meltfrout->tabval[0]))) == MELTOBMAG_OBJECT);
1630 melt_putfield_object(((/*!BASICBLOCK_DEBUG_FUNCONT*/ meltfrout->tabval[0])), (0), (/*_.F__V2*/ meltfptr[1]), "REFERENCED_VALUE");
1631 ;
1632 /*^touch*/
1633 meltgc_touch((/*!BASICBLOCK_DEBUG_FUNCONT*/ meltfrout->tabval[0]));
1634 ;
1635 /*^touchobj*/
1636
1637 melt_dbgtrace_written_object ((/*!BASICBLOCK_DEBUG_FUNCONT*/ meltfrout->tabval[0]), "put-fields");
1638 ;
1639 /*epilog*/
1640 }
1641 ;
1642 } /*noelse*/
1643 ;
1644 /*epilog*/
1645 }
1646 ;
1647 } /*noelse*/
1648 ;
1649 /*_.LET___V3*/
1650 meltfptr[2] = /*_.OLDCONT__V4*/ meltfptr[3];;
1651
1652 MELT_LOCATION("warmelt-debug.melt:168:/ clear");
1653 /*clear*/ /*_.OLDCONT__V4*/
1654 meltfptr[3] = 0 ;
1655 /*^clear*/
1656 /*clear*/ /*_#NULL__L1*/
1657 meltfnum[0] = 0 ;
1658 /*^clear*/
1659 /*clear*/ /*_#OR___L2*/
1660 meltfnum[1] = 0 ;
1661 MELT_LOCATION("warmelt-debug.melt:163:/ quasiblock");
1662
1663
1664 /*_._RETVAL___V1*/
1665 meltfptr[0] = /*_.LET___V3*/ meltfptr[2];;
1666
1667 {
1668 MELT_LOCATION("warmelt-debug.melt:163:/ locexp");
1669 /*ochecknores compilobj_nrep_return*/
1670 #if MELT_HAVE_DEBUG
1671 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
1672 melt_warn_for_no_expected_secondary_results();
1673 /* we warned when secondary results are expected but not returned. */
1674 #endif /*MELT_HAVE_DEBUG*/
1675 ;
1676 }
1677 ;
1678 /*^finalreturn*/
1679 ;
1680 /*finalret*/
1681 goto meltlabend_rout ;
1682 /*epilog*/
1683
1684 /*^clear*/
1685 /*clear*/ /*_.LET___V3*/
1686 meltfptr[2] = 0 ;
1687 }
1688
1689 ;
1690 goto meltlabend_rout;
1691 meltlabend_rout:
1692 melt_trace_end("REGISTER_BASICBLOCK_DEBUG_FUN", meltcallcount);
1693 melt_blocklevel_signals = current_blocklevel_signals_meltrout_5_WARMELTmiDEBUG_REGISTER_BASICBLOCK_DEBUG_FUN_melt;
1694 return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]);
1695 #undef meltcallcount
1696 #undef meltfram__
1697 #undef MELTFRAM_NBVARNUM
1698 #undef MELTFRAM_NBVARPTR
1699 } /*end meltrout_5_WARMELTmiDEBUG_REGISTER_BASICBLOCK_DEBUG_FUN*/
1700
1701
1702
1703
1704
1705
1706 melt_ptr_t MELT_MODULE_VISIBILITY
1707 meltrout_6_WARMELTmiDEBUG_REGISTER_LOOP_DEBUG_FUN(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_,
1708 const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_)
1709 {
1710 long current_blocklevel_signals_meltrout_6_WARMELTmiDEBUG_REGISTER_LOOP_DEBUG_FUN_melt = melt_blocklevel_signals;
1711
1712 #if MELT_HAVE_DEBUG
1713 static long melt_call_counter__;
1714 long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__;
1715 #undef meltcallcount
1716 #define meltcallcount melt_thiscallcounter__
1717 #else
1718 #undef meltcallcount
1719 #define meltcallcount 0L
1720 #endif
1721 //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538
1722
1723 /* start of frame for routine meltrout_6_WARMELTmiDEBUG_REGISTER_LOOP_DEBUG_FUN fromline 1752 */
1724
1725 /** start of frame for meltrout_6_WARMELTmiDEBUG_REGISTER_LOOP_DEBUG_FUN of CLASS_PROCROUTINEOBJ from 1555**/
1726
1727 /*curframdeclclassy*/ class MeltFrame_meltrout_6_WARMELTmiDEBUG_REGISTER_LOOP_DEBUG_FUN// fromline 1568
1728 : public Melt_CallFrameWithValues<4>
1729 {
1730 public: /* fromline 1572*/
1731 long mcfr_varnum[3];
1732 /*classy others*/
1733 long _meltsparel;
1734 void melt_mark_stuff (void)
1735 {
1736 } /*end melt_mark_stuff*/
1737 virtual void melt_mark_ggc_data (void)
1738 {
1739 melt_mark_values ();
1740 melt_mark_stuff ();
1741 }; /*end melt_mark_ggc_data*/
1742 MeltFrame_meltrout_6_WARMELTmiDEBUG_REGISTER_LOOP_DEBUG_FUN(meltclosure_ptr_t clos) //the closure constructor fromline 1630
1743 : Melt_CallFrameWithValues<4> (
1744 #if ENABLE_CHECKING /*fromline 1634*/
1745 __FILE__, __LINE__,
1746 #endif /* ENABLE_CHECKING fromline 1638*/
1747 sizeof(MeltFrame_meltrout_6_WARMELTmiDEBUG_REGISTER_LOOP_DEBUG_FUN), clos) {};
1748 MeltFrame_meltrout_6_WARMELTmiDEBUG_REGISTER_LOOP_DEBUG_FUN() //the constructor fromline 1642
1749 : Melt_CallFrameWithValues<4> (
1750 #if ENABLE_CHECKING /*fromline 1646*/
1751 __FILE__, __LINE__,
1752 #endif /* ENABLE_CHECKING fromline 1650*/
1753 sizeof(MeltFrame_meltrout_6_WARMELTmiDEBUG_REGISTER_LOOP_DEBUG_FUN)) {};
1754 #if ENABLE_CHECKING /*fromline 1654*/
1755 MeltFrame_meltrout_6_WARMELTmiDEBUG_REGISTER_LOOP_DEBUG_FUN(const char*fil, int lin) //the constructor fromline 1656
1756 : Melt_CallFrameWithValues<4> (fil,lin, sizeof(MeltFrame_meltrout_6_WARMELTmiDEBUG_REGISTER_LOOP_DEBUG_FUN)) {};
1757 MeltFrame_meltrout_6_WARMELTmiDEBUG_REGISTER_LOOP_DEBUG_FUN(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661
1758 : Melt_CallFrameWithValues<4> (fil,lin, sizeof(MeltFrame_meltrout_6_WARMELTmiDEBUG_REGISTER_LOOP_DEBUG_FUN), clos) {};
1759 #endif /* ENABLE_CHECKING fromline 1666*/
1760
1761 }; // end class MeltFrame_meltrout_6_WARMELTmiDEBUG_REGISTER_LOOP_DEBUG_FUN
1762
1763
1764 /** end of frame for meltrout_6_WARMELTmiDEBUG_REGISTER_LOOP_DEBUG_FUN fromline 1697**/
1765
1766 /* end of frame for routine meltrout_6_WARMELTmiDEBUG_REGISTER_LOOP_DEBUG_FUN fromline 1756 */
1767
1768 /* classy proc frame meltrout_6_WARMELTmiDEBUG_REGISTER_LOOP_DEBUG_FUN */
1769 MeltFrame_meltrout_6_WARMELTmiDEBUG_REGISTER_LOOP_DEBUG_FUN
1770 meltfram__ /*declfrastruct fromline 1780*/
1771 /*classyprocarg meltrout_6_WARMELTmiDEBUG_REGISTER_LOOP_DEBUG_FUN fromline 1785*/
1772 #if ENABLE_CHECKING
1773 (__FILE__, __LINE__, meltclosp_) /* fromline 1789*/
1774 #else /*ENABLE_CHECKING */
1775 (meltclosp_) /* fromline 1793*/
1776 #endif /*ENABLE_CHECKING */
1777
1778 ;
1779 #define meltframe meltfram__
1780
1781 melt_trace_start("REGISTER_LOOP_DEBUG_FUN", meltcallcount);
1782 /*use arguments*/
1783 (void) meltclosp_;
1784 (void)meltfirstargp_;
1785 (void)meltxargdescr_;
1786 (void)meltxargtab_;
1787 (void)meltxresdescr_;
1788 (void)meltxrestab_;
1789 /*getargs*/
1790
1791 /*getarg#0*/
1792 MELT_LOCATION("warmelt-debug.melt:176:/ getarg");
1793 /*_.F__V2*/
1794 meltfptr[1] = (melt_ptr_t) meltfirstargp_;
1795 ;
1796 goto meltlab_endgetargs;
1797 meltlab_endgetargs:
1798 ;
1799 /*body*/
1800 /*^block*/
1801 /*anyblock*/
1802 {
1803
1804 MELT_LOCATION("warmelt-debug.melt:181:/ quasiblock");
1805
1806
1807 /*^cond*/
1808 /*cond*/
1809 if (
1810 /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!LOOP_DEBUG_FUNCONT*/ meltfrout->tabval[0])),
1811 (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[1])))
1812 ) /*then*/
1813 {
1814 /*^cond.then*/
1815 /*^getslot*/
1816 {
1817 melt_ptr_t slot=NULL, obj=NULL;
1818 obj = (melt_ptr_t)((/*!LOOP_DEBUG_FUNCONT*/ meltfrout->tabval[0])) /*=obj*/;
1819 melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE");
1820 /*_.OLDCONT__V4*/
1821 meltfptr[3] = slot;
1822 };
1823 ;
1824 }
1825 else /*^cond.else*/
1826 {
1827
1828 /*_.OLDCONT__V4*/ meltfptr[3] = /*reallynil*/ NULL ;;
1829 }
1830 ;
1831
1832 MELT_CHECK_SIGNAL();
1833 ;
1834 /*^compute*/
1835 /*_#NULL__L1*/
1836 meltfnum[0] =
1837 (/*null*/(/*_.F__V2*/ meltfptr[1]) == NULL);;
1838 MELT_LOCATION("warmelt-debug.melt:183:/ cond");
1839 /*cond*/
1840 if (/*_#NULL__L1*/ meltfnum[0]) /*then*/
1841 {
1842 /*^cond.then*/
1843 /*_#OR___L2*/ meltfnum[1] = /*_#NULL__L1*/ meltfnum[0];;
1844 }
1845 else
1846 {
1847 MELT_LOCATION("warmelt-debug.melt:183:/ cond.else");
1848
1849 /*^block*/
1850 /*anyblock*/
1851 {
1852
1853 /*_#IS_CLOSURE__L3*/ meltfnum[2] =
1854 (melt_magic_discr((melt_ptr_t)(/*_.F__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);;
1855 /*^compute*/
1856 /*_#OR___L2*/
1857 meltfnum[1] = /*_#IS_CLOSURE__L3*/ meltfnum[2];;
1858 /*epilog*/
1859
1860 MELT_LOCATION("warmelt-debug.melt:183:/ clear");
1861 /*clear*/ /*_#IS_CLOSURE__L3*/
1862 meltfnum[2] = 0 ;
1863 }
1864 ;
1865 }
1866 ;
1867 /*^cond*/
1868 /*cond*/
1869 if (/*_#OR___L2*/ meltfnum[1]) /*then*/
1870 {
1871 /*^cond.then*/
1872 /*^block*/
1873 /*anyblock*/
1874 {
1875
1876
1877 MELT_CHECK_SIGNAL();
1878 ;
1879 MELT_LOCATION("warmelt-debug.melt:184:/ cond");
1880 /*cond*/
1881 if (
1882 /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!LOOP_DEBUG_FUNCONT*/ meltfrout->tabval[0])),
1883 (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[1])))
1884 ) /*then*/
1885 {
1886 /*^cond.then*/
1887 /*^block*/
1888 /*anyblock*/
1889 {
1890
1891 /*^putslot*/
1892 /*putslot*/
1893 melt_assertmsg("checkobj putslot _ @REFERENCED_VALUE", melt_magic_discr((melt_ptr_t)((/*!LOOP_DEBUG_FUNCONT*/ meltfrout->tabval[0]))) == MELTOBMAG_OBJECT);
1894 melt_putfield_object(((/*!LOOP_DEBUG_FUNCONT*/ meltfrout->tabval[0])), (0), (/*_.F__V2*/ meltfptr[1]), "REFERENCED_VALUE");
1895 ;
1896 /*^touch*/
1897 meltgc_touch((/*!LOOP_DEBUG_FUNCONT*/ meltfrout->tabval[0]));
1898 ;
1899 /*^touchobj*/
1900
1901 melt_dbgtrace_written_object ((/*!LOOP_DEBUG_FUNCONT*/ meltfrout->tabval[0]), "put-fields");
1902 ;
1903 /*epilog*/
1904 }
1905 ;
1906 } /*noelse*/
1907 ;
1908 /*epilog*/
1909 }
1910 ;
1911 } /*noelse*/
1912 ;
1913 /*_.LET___V3*/
1914 meltfptr[2] = /*_.OLDCONT__V4*/ meltfptr[3];;
1915
1916 MELT_LOCATION("warmelt-debug.melt:181:/ clear");
1917 /*clear*/ /*_.OLDCONT__V4*/
1918 meltfptr[3] = 0 ;
1919 /*^clear*/
1920 /*clear*/ /*_#NULL__L1*/
1921 meltfnum[0] = 0 ;
1922 /*^clear*/
1923 /*clear*/ /*_#OR___L2*/
1924 meltfnum[1] = 0 ;
1925 MELT_LOCATION("warmelt-debug.melt:176:/ quasiblock");
1926
1927
1928 /*_._RETVAL___V1*/
1929 meltfptr[0] = /*_.LET___V3*/ meltfptr[2];;
1930
1931 {
1932 MELT_LOCATION("warmelt-debug.melt:176:/ locexp");
1933 /*ochecknores compilobj_nrep_return*/
1934 #if MELT_HAVE_DEBUG
1935 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
1936 melt_warn_for_no_expected_secondary_results();
1937 /* we warned when secondary results are expected but not returned. */
1938 #endif /*MELT_HAVE_DEBUG*/
1939 ;
1940 }
1941 ;
1942 /*^finalreturn*/
1943 ;
1944 /*finalret*/
1945 goto meltlabend_rout ;
1946 /*epilog*/
1947
1948 /*^clear*/
1949 /*clear*/ /*_.LET___V3*/
1950 meltfptr[2] = 0 ;
1951 }
1952
1953 ;
1954 goto meltlabend_rout;
1955 meltlabend_rout:
1956 melt_trace_end("REGISTER_LOOP_DEBUG_FUN", meltcallcount);
1957 melt_blocklevel_signals = current_blocklevel_signals_meltrout_6_WARMELTmiDEBUG_REGISTER_LOOP_DEBUG_FUN_melt;
1958 return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]);
1959 #undef meltcallcount
1960 #undef meltfram__
1961 #undef MELTFRAM_NBVARNUM
1962 #undef MELTFRAM_NBVARPTR
1963 } /*end meltrout_6_WARMELTmiDEBUG_REGISTER_LOOP_DEBUG_FUN*/
1964
1965
1966
1967
1968
1969
1970 melt_ptr_t MELT_MODULE_VISIBILITY
1971 meltrout_7_WARMELTmiDEBUG_MELT_DEBUG_FUN(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_,
1972 const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_)
1973 {
1974 /*variadic*/ int variad_MELT_DEBUG_FUN_ix = 0, variad_MELT_DEBUG_FUN_len = melt_argdescr_length (meltxargdescr_);
1975 #define melt_variadic_length (0+variad_MELT_DEBUG_FUN_len)
1976 #define melt_variadic_index variad_MELT_DEBUG_FUN_ix
1977
1978 long current_blocklevel_signals_meltrout_7_WARMELTmiDEBUG_MELT_DEBUG_FUN_melt = melt_blocklevel_signals;
1979
1980 #if MELT_HAVE_DEBUG
1981 static long melt_call_counter__;
1982 long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__;
1983 #undef meltcallcount
1984 #define meltcallcount melt_thiscallcounter__
1985 #else
1986 #undef meltcallcount
1987 #define meltcallcount 0L
1988 #endif
1989 //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538
1990
1991 /* start of frame for routine meltrout_7_WARMELTmiDEBUG_MELT_DEBUG_FUN fromline 1752 */
1992
1993 /** start of frame for meltrout_7_WARMELTmiDEBUG_MELT_DEBUG_FUN of CLASS_PROCROUTINEOBJ from 1555**/
1994
1995 /*curframdeclclassy*/ class MeltFrame_meltrout_7_WARMELTmiDEBUG_MELT_DEBUG_FUN// fromline 1568
1996 : public Melt_CallFrameWithValues<70>
1997 {
1998 public: /* fromline 1572*/
1999 long mcfr_varnum[37];
2000 /*classy others*/
2001 const char* loc_CSTRING__o0;
2002 const char* loc_CSTRING__o1;
2003 const char* loc_CSTRING__o2;
2004 tree loc_TREE__o3;
2005 gimple loc_GIMPLE__o4;
2006 gimple_seq loc_GIMPLE_SEQ__o5;
2007 edge loc_EDGE__o6;
2008 loop_p loc_LOOP__o7;
2009 tree loc_TREE__o8;
2010 gimple loc_GIMPLE__o9;
2011 gimple_seq loc_GIMPLE_SEQ__o10;
2012 edge loc_EDGE__o11;
2013 basic_block loc_BASIC_BLOCK__o12;
2014 loop_p loc_LOOP__o13;
2015 long _meltsparel;
2016 void melt_mark_stuff (void)
2017 {
2018 /*marking tree*/
2019 /*:tree marker*/ gt_ggc_mx_tree_node (loc_TREE__o3);
2020 /*marking gimple*/
2021 /*:gimple marker*/
2022 gt_ggc_mx_gimple_statement_d (loc_GIMPLE__o4);
2023 /*marking gimple_seq*/
2024 /*:gimple_seq marker, really gimple marker*/
2025 gt_ggc_mx_gimple_statement_d (loc_GIMPLE_SEQ__o5);
2026 /*marking edge*/
2027 /*:edge marker*/
2028 gt_ggc_mx_edge_def (loc_EDGE__o6);
2029 /*marking loop_p*/
2030 /*:loop marker*/
2031 gt_ggc_mx_loop (loc_LOOP__o7);
2032 /*marking tree*/
2033 /*:tree marker*/
2034 gt_ggc_mx_tree_node (loc_TREE__o8);
2035 /*marking gimple*/
2036 /*:gimple marker*/
2037 gt_ggc_mx_gimple_statement_d (loc_GIMPLE__o9);
2038 /*marking gimple_seq*/
2039 /*:gimple_seq marker, really gimple marker*/
2040 gt_ggc_mx_gimple_statement_d (loc_GIMPLE_SEQ__o10);
2041 /*marking edge*/
2042 /*:edge marker*/
2043 gt_ggc_mx_edge_def (loc_EDGE__o11);
2044 /*marking basic_block*/
2045 /*:basic_block marker*/
2046 gt_ggc_mx_basic_block_def (loc_BASIC_BLOCK__o12);
2047 /*marking loop_p*/
2048 /*:loop marker*/
2049 gt_ggc_mx_loop (loc_LOOP__o13);
2050 } /*end melt_mark_stuff*/
2051 virtual void melt_mark_ggc_data (void)
2052 {
2053 melt_mark_values ();
2054 melt_mark_stuff ();
2055 }; /*end melt_mark_ggc_data*/
2056 MeltFrame_meltrout_7_WARMELTmiDEBUG_MELT_DEBUG_FUN(meltclosure_ptr_t clos) //the closure constructor fromline 1630
2057 : Melt_CallFrameWithValues<70> (
2058 #if ENABLE_CHECKING /*fromline 1634*/
2059 __FILE__, __LINE__,
2060 #endif /* ENABLE_CHECKING fromline 1638*/
2061 sizeof(MeltFrame_meltrout_7_WARMELTmiDEBUG_MELT_DEBUG_FUN), clos) {};
2062 MeltFrame_meltrout_7_WARMELTmiDEBUG_MELT_DEBUG_FUN() //the constructor fromline 1642
2063 : Melt_CallFrameWithValues<70> (
2064 #if ENABLE_CHECKING /*fromline 1646*/
2065 __FILE__, __LINE__,
2066 #endif /* ENABLE_CHECKING fromline 1650*/
2067 sizeof(MeltFrame_meltrout_7_WARMELTmiDEBUG_MELT_DEBUG_FUN)) {};
2068 #if ENABLE_CHECKING /*fromline 1654*/
2069 MeltFrame_meltrout_7_WARMELTmiDEBUG_MELT_DEBUG_FUN(const char*fil, int lin) //the constructor fromline 1656
2070 : Melt_CallFrameWithValues<70> (fil,lin, sizeof(MeltFrame_meltrout_7_WARMELTmiDEBUG_MELT_DEBUG_FUN)) {};
2071 MeltFrame_meltrout_7_WARMELTmiDEBUG_MELT_DEBUG_FUN(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661
2072 : Melt_CallFrameWithValues<70> (fil,lin, sizeof(MeltFrame_meltrout_7_WARMELTmiDEBUG_MELT_DEBUG_FUN), clos) {};
2073 #endif /* ENABLE_CHECKING fromline 1666*/
2074
2075 }; // end class MeltFrame_meltrout_7_WARMELTmiDEBUG_MELT_DEBUG_FUN
2076
2077
2078 /** end of frame for meltrout_7_WARMELTmiDEBUG_MELT_DEBUG_FUN fromline 1697**/
2079
2080 /* end of frame for routine meltrout_7_WARMELTmiDEBUG_MELT_DEBUG_FUN fromline 1756 */
2081
2082 /* classy proc frame meltrout_7_WARMELTmiDEBUG_MELT_DEBUG_FUN */
2083 MeltFrame_meltrout_7_WARMELTmiDEBUG_MELT_DEBUG_FUN
2084 meltfram__ /*declfrastruct fromline 1780*/
2085 /*classyprocarg meltrout_7_WARMELTmiDEBUG_MELT_DEBUG_FUN fromline 1785*/
2086 #if ENABLE_CHECKING
2087 (__FILE__, __LINE__, meltclosp_) /* fromline 1789*/
2088 #else /*ENABLE_CHECKING */
2089 (meltclosp_) /* fromline 1793*/
2090 #endif /*ENABLE_CHECKING */
2091
2092 ;
2093 #define meltframe meltfram__
2094
2095 melt_trace_start("MELT_DEBUG_FUN", meltcallcount);
2096 /*use arguments*/
2097 (void) meltclosp_;
2098 (void)meltfirstargp_;
2099 (void)meltxargdescr_;
2100 (void)meltxargtab_;
2101 (void)meltxresdescr_;
2102 (void)meltxrestab_;
2103 /*getargs*/
2104
2105 /*getarg#0*/
2106 MELT_LOCATION("warmelt-debug.melt:199:/ getarg");
2107 /*_.NOTHING__V2*/
2108 meltfptr[1] = (melt_ptr_t) meltfirstargp_;
2109
2110 /*getarg#1*/
2111 /*^getarg*/
2112 if (meltxargdescr_[0] != MELTBPAR_LONG) /*getargrest*/
2113 {
2114 variad_MELT_DEBUG_FUN_ix = variad_MELT_DEBUG_FUN_len;
2115 goto meltlab_endgetargs;
2116 }
2117 variad_MELT_DEBUG_FUN_ix = 1;
2118 /*_#COUNT__L1*/
2119 meltfnum[0] = meltxargtab_[0].meltbp_long;
2120
2121 /*getarg#2*/
2122 /*^getarg*/
2123 if (meltxargdescr_[1] != MELTBPAR_CSTRING) /*getargrest*/
2124 {
2125 variad_MELT_DEBUG_FUN_ix = variad_MELT_DEBUG_FUN_len;
2126 goto meltlab_endgetargs;
2127 }
2128 variad_MELT_DEBUG_FUN_ix = 2;
2129 /*_?*/
2130 meltfram__.loc_CSTRING__o0 = meltxargtab_[1].meltbp_cstring;
2131
2132 /*getarg#3*/
2133 /*^getarg*/
2134 if (meltxargdescr_[2] != MELTBPAR_LONG) /*getargrest*/
2135 {
2136 variad_MELT_DEBUG_FUN_ix = variad_MELT_DEBUG_FUN_len;
2137 goto meltlab_endgetargs;
2138 }
2139 variad_MELT_DEBUG_FUN_ix = 3;
2140 /*_#LINENO__L2*/
2141 meltfnum[1] = meltxargtab_[2].meltbp_long;
2142 ;
2143 goto meltlab_endgetargs;
2144 meltlab_endgetargs:
2145 ;
2146 /*body*/
2147 /*^block*/
2148 /*anyblock*/
2149 {
2150
2151
2152 MELT_CHECK_SIGNAL();
2153 ;
2154 /*_#MELT_HAS_FLAG_DEBUG_SET__L3*/
2155 meltfnum[2] =
2156 /*MELT_HAS_FLAG_DEBUG_SET*/ melt_flag_debug;;
2157 MELT_LOCATION("warmelt-debug.melt:200:/ cond");
2158 /*cond*/
2159 if (/*_#MELT_HAS_FLAG_DEBUG_SET__L3*/ meltfnum[2]) /*then*/
2160 {
2161 /*^cond.then*/
2162 /*^block*/
2163 /*anyblock*/
2164 {
2165
2166 MELT_LOCATION("warmelt-debug.melt:201:/ quasiblock");
2167
2168
2169 /*_#DBGCOUNTER__L4*/
2170 meltfnum[3] = 0;;
2171 MELT_LOCATION("warmelt-debug.melt:202:/ cond");
2172 /*cond*/
2173 if (
2174 /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!INITIAL_SYSTEM_DATA*/ meltfrout->tabval[0])),
2175 (melt_ptr_t)((/*!CLASS_SYSTEM_DATA*/ meltfrout->tabval[1])))
2176 ) /*then*/
2177 {
2178 /*^cond.then*/
2179 /*^getslot*/
2180 {
2181 melt_ptr_t slot=NULL, obj=NULL;
2182 obj = (melt_ptr_t)((/*!INITIAL_SYSTEM_DATA*/ meltfrout->tabval[0])) /*=obj*/;
2183 melt_object_get_field(slot,obj, 8, "SYSDATA_DUMPFILE");
2184 /*_.DUMPF__V3*/
2185 meltfptr[2] = slot;
2186 };
2187 ;
2188 }
2189 else /*^cond.else*/
2190 {
2191
2192 /*_.DUMPF__V3*/ meltfptr[2] = /*reallynil*/ NULL ;;
2193 }
2194 ;
2195 MELT_LOCATION("warmelt-debug.melt:203:/ cond");
2196 /*cond*/
2197 if (
2198 /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!INITIAL_SYSTEM_DATA*/ meltfrout->tabval[0])),
2199 (melt_ptr_t)((/*!CLASS_SYSTEM_DATA*/ meltfrout->tabval[1])))
2200 ) /*then*/
2201 {
2202 /*^cond.then*/
2203 /*^getslot*/
2204 {
2205 melt_ptr_t slot=NULL, obj=NULL;
2206 obj = (melt_ptr_t)((/*!INITIAL_SYSTEM_DATA*/ meltfrout->tabval[0])) /*=obj*/;
2207 melt_object_get_field(slot,obj, 7, "SYSDATA_STDERR");
2208 /*_.STDERRF__V4*/
2209 meltfptr[3] = slot;
2210 };
2211 ;
2212 }
2213 else /*^cond.else*/
2214 {
2215
2216 /*_.STDERRF__V4*/ meltfptr[3] = /*reallynil*/ NULL ;;
2217 }
2218 ;
2219 /*^compute*/
2220 /*_.OUT__V5*/
2221 meltfptr[4] = /*_.DUMPF__V3*/ meltfptr[2];;
2222 /*^compute*/
2223 /*_.OCCMAP__V6*/
2224 meltfptr[5] =
2225 (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ meltfrout->tabval[2])), (50)));;
2226 /*^compute*/
2227 /*_#DEBUG_DEPTH__L5*/
2228 meltfnum[4] =
2229 (long) (melt_debug_depth ());;
2230 /*^compute*/
2231 /*_.BOXEDMAXDEPTH__V7*/
2232 meltfptr[6] =
2233 (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[3])), (/*_#DEBUG_DEPTH__L5*/ meltfnum[4])));;
2234
2235 {
2236 MELT_LOCATION("warmelt-debug.melt:208:/ locexp");
2237 /* melt_debug_fun GETDBGCOUNTER__1*/ /*_#DBGCOUNTER__L4*/
2238 meltfnum[3] = melt_dbgcounter ;
2239 ;
2240 }
2241 ;
2242
2243 {
2244 MELT_LOCATION("warmelt-debug.melt:214:/ locexp");
2245 /* melt_debug_fun ENSUREGOODOUT_CHK__1*/
2246 {
2247 static int nbwarn ;
2248 if (melt_get_file ((melt_ptr_t) /*_.OUT__V5*/ meltfptr[4]) == NULL)
2249 {
2250 gcc_assert (melt_get_file ((melt_ptr_t) /*_.STDERRF__V4*/ meltfptr[3]) == stderr) ;
2251 /*_.OUT__V5*/
2252 meltfptr[4] = /*_.STDERRF__V4*/ meltfptr[3] ;
2253 if (nbwarn++ <= 0)
2254 {
2255 inform (UNKNOWN_LOCATION,
2256 "MELT debug output goes to stderr because we have no dump_file.") ;
2257 }
2258 }
2259 } /* end melt_debug_fun ENSUREGOODOUT_CHK__1*/ ;
2260 }
2261 ;
2262
2263 MELT_CHECK_SIGNAL();
2264 ;
2265 /*_#NULL__L6*/
2266 meltfnum[5] =
2267 (/*null*/(/*_.OUT__V5*/ meltfptr[4]) == NULL);;
2268 MELT_LOCATION("warmelt-debug.melt:226:/ cond");
2269 /*cond*/
2270 if (/*_#NULL__L6*/ meltfnum[5]) /*then*/
2271 {
2272 /*^cond.then*/
2273 /*^block*/
2274 /*anyblock*/
2275 {
2276
2277 MELT_LOCATION("warmelt-debug.melt:227:/ compute");
2278 /*_.OUT__V5*/
2279 meltfptr[4] = /*_.SETQ___V9*/ meltfptr[8] = /*_.STDERRF__V4*/ meltfptr[3];;
2280 /*_._IF___V8*/
2281 meltfptr[7] = /*_.SETQ___V9*/ meltfptr[8];;
2282 /*epilog*/
2283
2284 MELT_LOCATION("warmelt-debug.melt:226:/ clear");
2285 /*clear*/ /*_.SETQ___V9*/
2286 meltfptr[8] = 0 ;
2287 }
2288 ;
2289 }
2290 else /*^cond.else*/
2291 {
2292
2293 /*_._IF___V8*/ meltfptr[7] = /*reallynil*/ NULL ;;
2294 }
2295 ;
2296
2297 MELT_CHECK_SIGNAL();
2298 ;
2299 /*^compute*/
2300 /*_#NULL__L7*/
2301 meltfnum[6] =
2302 (/*null*/(/*_.OUT__V5*/ meltfptr[4]) == NULL);;
2303 MELT_LOCATION("warmelt-debug.melt:231:/ cond");
2304 /*cond*/
2305 if (/*_#NULL__L7*/ meltfnum[6]) /*then*/
2306 {
2307 /*^cond.then*/
2308 /*^block*/
2309 /*anyblock*/
2310 {
2311
2312 /*_.MAKE_STRBUF__V11*/ meltfptr[10] =
2313 (melt_ptr_t) meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ meltfrout->tabval[4])), (const char*)0);;
2314 MELT_LOCATION("warmelt-debug.melt:232:/ compute");
2315 /*_.OUT__V5*/
2316 meltfptr[4] = /*_.SETQ___V12*/ meltfptr[11] = /*_.MAKE_STRBUF__V11*/ meltfptr[10];;
2317 /*_._IF___V10*/
2318 meltfptr[8] = /*_.SETQ___V12*/ meltfptr[11];;
2319 /*epilog*/
2320
2321 MELT_LOCATION("warmelt-debug.melt:231:/ clear");
2322 /*clear*/ /*_.MAKE_STRBUF__V11*/
2323 meltfptr[10] = 0 ;
2324 /*^clear*/
2325 /*clear*/ /*_.SETQ___V12*/
2326 meltfptr[11] = 0 ;
2327 }
2328 ;
2329 }
2330 else /*^cond.else*/
2331 {
2332
2333 /*_._IF___V10*/ meltfptr[8] = /*reallynil*/ NULL ;;
2334 }
2335 ;
2336
2337 #if MELT_HAVE_DEBUG
2338 MELT_LOCATION("warmelt-debug.melt:233:/ cppif.then");
2339 /*^block*/
2340 /*anyblock*/
2341 {
2342
2343
2344 MELT_CHECK_SIGNAL();
2345 ;
2346 /*_#IS_OUT__L8*/
2347 meltfnum[7] =
2348 (melt_is_out ((melt_ptr_t) /*_.OUT__V5*/ meltfptr[4])) ;;
2349 MELT_LOCATION("warmelt-debug.melt:233:/ cond");
2350 /*cond*/
2351 if (/*_#IS_OUT__L8*/ meltfnum[7]) /*then*/
2352 {
2353 /*^cond.then*/
2354 /*_._IFELSE___V14*/ meltfptr[11] = (/*nil*/NULL);;
2355 }
2356 else
2357 {
2358 MELT_LOCATION("warmelt-debug.melt:233:/ cond.else");
2359
2360 /*^block*/
2361 /*anyblock*/
2362 {
2363
2364
2365 MELT_CHECK_SIGNAL();
2366 ;
2367 /*^apply*/
2368 /*apply*/
2369 {
2370 union meltparam_un argtab[4];
2371 memset(&argtab, 0, sizeof(argtab));
2372 /*^apply.arg*/
2373 argtab[0].meltbp_cstring = "check good out";
2374 /*^apply.arg*/
2375 argtab[1].meltbp_cstring = "warmelt-debug.melt";
2376 /*^apply.arg*/
2377 argtab[2].meltbp_long = 233;
2378 /*^apply.arg*/
2379 argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OUT__V5*/ meltfptr[4];
2380 /*_.MELT_ASSERT_FAILURE_FUN__V15*/
2381 meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[5])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
2382 }
2383 ;
2384 /*_._IFELSE___V14*/
2385 meltfptr[11] = /*_.MELT_ASSERT_FAILURE_FUN__V15*/ meltfptr[14];;
2386 /*epilog*/
2387
2388 MELT_LOCATION("warmelt-debug.melt:233:/ clear");
2389 /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V15*/
2390 meltfptr[14] = 0 ;
2391 }
2392 ;
2393 }
2394 ;
2395 /*_.IFCPP___V13*/
2396 meltfptr[10] = /*_._IFELSE___V14*/ meltfptr[11];;
2397 /*epilog*/
2398
2399 MELT_LOCATION("warmelt-debug.melt:233:/ clear");
2400 /*clear*/ /*_#IS_OUT__L8*/
2401 meltfnum[7] = 0 ;
2402 /*^clear*/
2403 /*clear*/ /*_._IFELSE___V14*/
2404 meltfptr[11] = 0 ;
2405 }
2406
2407 #else /*MELT_HAVE_DEBUG*/
2408 /*^cppif.else*/
2409 /*_.IFCPP___V13*/ meltfptr[10] = (/*nil*/NULL);
2410 #endif /*MELT_HAVE_DEBUG*/
2411 ;
2412
2413 #if MELT_HAVE_DEBUG
2414 MELT_LOCATION("warmelt-debug.melt:234:/ cppif.then");
2415 /*^block*/
2416 /*anyblock*/
2417 {
2418
2419
2420 MELT_CHECK_SIGNAL();
2421 ;
2422 /*_#GET_INT__L9*/
2423 meltfnum[7] =
2424 (melt_get_int((melt_ptr_t)(/*_.BOXEDMAXDEPTH__V7*/ meltfptr[6])));;
2425 /*^compute*/
2426 /*_#gtI__L10*/
2427 meltfnum[9] =
2428 ((/*_#GET_INT__L9*/ meltfnum[7]) > (1));;
2429 MELT_LOCATION("warmelt-debug.melt:234:/ cond");
2430 /*cond*/
2431 if (/*_#gtI__L10*/ meltfnum[9]) /*then*/
2432 {
2433 /*^cond.then*/
2434 /*_._IFELSE___V17*/ meltfptr[11] = (/*nil*/NULL);;
2435 }
2436 else
2437 {
2438 MELT_LOCATION("warmelt-debug.melt:234:/ cond.else");
2439
2440 /*^block*/
2441 /*anyblock*/
2442 {
2443
2444
2445 MELT_CHECK_SIGNAL();
2446 ;
2447 /*^apply*/
2448 /*apply*/
2449 {
2450 union meltparam_un argtab[4];
2451 memset(&argtab, 0, sizeof(argtab));
2452 /*^apply.arg*/
2453 argtab[0].meltbp_cstring = "check boxedmaxdepth";
2454 /*^apply.arg*/
2455 argtab[1].meltbp_cstring = "warmelt-debug.melt";
2456 /*^apply.arg*/
2457 argtab[2].meltbp_long = 234;
2458 /*^apply.arg*/
2459 argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.BOXEDMAXDEPTH__V7*/ meltfptr[6];
2460 /*_.MELT_ASSERT_FAILURE_FUN__V18*/
2461 meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[5])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
2462 }
2463 ;
2464 /*_._IFELSE___V17*/
2465 meltfptr[11] = /*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17];;
2466 /*epilog*/
2467
2468 MELT_LOCATION("warmelt-debug.melt:234:/ clear");
2469 /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V18*/
2470 meltfptr[17] = 0 ;
2471 }
2472 ;
2473 }
2474 ;
2475 /*_.IFCPP___V16*/
2476 meltfptr[14] = /*_._IFELSE___V17*/ meltfptr[11];;
2477 /*epilog*/
2478
2479 MELT_LOCATION("warmelt-debug.melt:234:/ clear");
2480 /*clear*/ /*_#GET_INT__L9*/
2481 meltfnum[7] = 0 ;
2482 /*^clear*/
2483 /*clear*/ /*_#gtI__L10*/
2484 meltfnum[9] = 0 ;
2485 /*^clear*/
2486 /*clear*/ /*_._IFELSE___V17*/
2487 meltfptr[11] = 0 ;
2488 }
2489
2490 #else /*MELT_HAVE_DEBUG*/
2491 /*^cppif.else*/
2492 /*_.IFCPP___V16*/ meltfptr[14] = (/*nil*/NULL);
2493 #endif /*MELT_HAVE_DEBUG*/
2494 ;
2495 /*citerblock BLOCK_SIGNALS*/
2496 {
2497 /* block_signals meltcit1__BLKSIGNAL start */
2498 long meltcit1__BLKSIGNAL_lev = melt_blocklevel_signals;
2499 melt_blocklevel_signals = meltcit1__BLKSIGNAL_lev + 1;
2500
2501
2502
2503 MELT_LOCATION("warmelt-debug.melt:239:/ quasiblock");
2504
2505
2506
2507 MELT_CHECK_SIGNAL();
2508 ;
2509 MELT_LOCATION("warmelt-debug.melt:240:/ quasiblock");
2510
2511
2512 /*^rawallocobj*/
2513 /*rawallocobj*/
2514 {
2515 melt_ptr_t newobj = 0;
2516 melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ meltfrout->tabval[6])), (3), "CLASS_DEBUG_INFORMATION");
2517 /*_.INST__V20*/
2518 meltfptr[11] =
2519 newobj;
2520 };
2521 ;
2522 /*^putslot*/
2523 /*putslot*/
2524 melt_assertmsg("checkobj putslot _ @DBGI_OUT", melt_magic_discr((melt_ptr_t)(/*_.INST__V20*/ meltfptr[11])) == MELTOBMAG_OBJECT);
2525 melt_putfield_object((/*_.INST__V20*/ meltfptr[11]), (0), (/*_.OUT__V5*/ meltfptr[4]), "DBGI_OUT");
2526 ;
2527 /*^putslot*/
2528 /*putslot*/
2529 melt_assertmsg("checkobj putslot _ @DBGI_OCCMAP", melt_magic_discr((melt_ptr_t)(/*_.INST__V20*/ meltfptr[11])) == MELTOBMAG_OBJECT);
2530 melt_putfield_object((/*_.INST__V20*/ meltfptr[11]), (1), (/*_.OCCMAP__V6*/ meltfptr[5]), "DBGI_OCCMAP");
2531 ;
2532 /*^putslot*/
2533 /*putslot*/
2534 melt_assertmsg("checkobj putslot _ @DBGI_MAXDEPTH", melt_magic_discr((melt_ptr_t)(/*_.INST__V20*/ meltfptr[11])) == MELTOBMAG_OBJECT);
2535 melt_putfield_object((/*_.INST__V20*/ meltfptr[11]), (2), (/*_.BOXEDMAXDEPTH__V7*/ meltfptr[6]), "DBGI_MAXDEPTH");
2536 ;
2537 /*^touchobj*/
2538
2539 melt_dbgtrace_written_object (/*_.INST__V20*/ meltfptr[11], "newly made instance");
2540 ;
2541 /*_.DBGI__V19*/
2542 meltfptr[17] = /*_.INST__V20*/ meltfptr[11];;
2543 /*^compute*/
2544 /*_#FRAMDEPTH__L11*/
2545 meltfnum[7] =
2546 (melt_curframdepth());;
2547 /*^compute*/
2548 /*_#OUTLEN__L12*/
2549 meltfnum[9] =
2550 melt_output_length ((melt_ptr_t)/*_.OUT__V5*/ meltfptr[4]);;
2551 /*^compute*/
2552 /*_#LASTSTROUTLEN__L13*/
2553 meltfnum[12] = /*_#OUTLEN__L12*/ meltfnum[9];;
2554 /*^compute*/
2555 /*_#INITOUTLEN__L14*/
2556 meltfnum[13] = /*_#OUTLEN__L12*/ meltfnum[9];;
2557
2558 MELT_CHECK_SIGNAL();
2559 ;
2560 /*^compute*/
2561 /*_#pcIRAW__L15*/
2562 meltfnum[14] =
2563 ((/*_#DBGCOUNTER__L4*/ meltfnum[3]) % (512));;
2564 /*^compute*/
2565 /*_#NOT__L16*/
2566 meltfnum[15] =
2567 (!(/*_#pcIRAW__L15*/ meltfnum[14]));;
2568 MELT_LOCATION("warmelt-debug.melt:249:/ cond");
2569 /*cond*/
2570 if (/*_#NOT__L16*/ meltfnum[15]) /*then*/
2571 {
2572 /*^cond.then*/
2573 /*^block*/
2574 /*anyblock*/
2575 {
2576
2577
2578 {
2579 MELT_LOCATION("warmelt-debug.melt:250:/ locexp");
2580 /* melt_debug_fun GETTIME_CHK__1 start */
2581 char GETTIME_CHK__1timbuf[32];
2582 static char GETTIME_CHK__1buf[64];
2583 time_t GETTIME_CHK__1now = 0;
2584 time (& GETTIME_CHK__1now);
2585 strftime (GETTIME_CHK__1timbuf, sizeof(GETTIME_CHK__1timbuf),
2586 "%T", localtime(& GETTIME_CHK__1now));
2587 snprintf (GETTIME_CHK__1buf, sizeof(GETTIME_CHK__1buf),
2588 "%s, %.3f cpu, %.3f real sec.",
2589 GETTIME_CHK__1timbuf, clock() * 1.0e-6,
2590 (double) melt_relative_time_millisec() * 1.0e-3);
2591 /*^block*/
2592 /*anyblock*/
2593 {
2594
2595 /*_?*/ meltfram__.loc_CSTRING__o1 =
2596 /*melt_debug_fun TIMESTR_CHK__1*/
2597 GETTIME_CHK__1buf ;;
2598
2599 MELT_CHECK_SIGNAL();
2600 ;
2601 MELT_LOCATION("warmelt-debug.melt:264:/ apply");
2602 /*apply*/
2603 {
2604 union meltparam_un argtab[3];
2605 memset(&argtab, 0, sizeof(argtab));
2606 /*^apply.arg*/
2607 argtab[0].meltbp_cstring = "\n!!!!++++++++@~.@~.@~.@~.@~.@~.@~.@~. ";
2608 /*^apply.arg*/
2609 argtab[1].meltbp_cstring = /*_?*/ meltfram__.loc_CSTRING__o1;
2610 /*^apply.arg*/
2611 argtab[2].meltbp_cstring = "\n";
2612 /*_.ADD2OUT__V21*/
2613 meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.OUT__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
2614 }
2615 ;
2616
2617 {
2618 MELT_LOCATION("warmelt-debug.melt:269:/ locexp");
2619 /*void*/
2620 (void)0;
2621 }
2622 ;
2623 MELT_LOCATION("warmelt-debug.melt:263:/ quasiblock");
2624
2625
2626 /*epilog*/
2627
2628 MELT_LOCATION("warmelt-debug.melt:250:/ clear");
2629 /*clear*/ /*_?*/
2630 meltfram__.loc_CSTRING__o1 = 0 ;
2631 /*^clear*/
2632 /*clear*/ /*_.ADD2OUT__V21*/
2633 meltfptr[20] = 0 ;
2634 }
2635
2636 /* melt_debug_fun GETTIME_CHK__1 end */
2637 ;
2638 }
2639 ;
2640 MELT_LOCATION("warmelt-debug.melt:249:/ quasiblock");
2641
2642
2643 /*epilog*/
2644 }
2645 ;
2646 } /*noelse*/
2647 ;
2648 /*_#miI__L17*/
2649 meltfnum[16] =
2650 ((/*_#FRAMDEPTH__L11*/ meltfnum[7]) - (1));;
2651
2652 MELT_CHECK_SIGNAL();
2653 ;
2654 MELT_LOCATION("warmelt-debug.melt:272:/ apply");
2655 /*apply*/
2656 {
2657 union meltparam_un argtab[5];
2658 memset(&argtab, 0, sizeof(argtab));
2659 /*^apply.arg*/
2660 argtab[0].meltbp_cstring = "!!!!****####";
2661 /*^apply.arg*/
2662 argtab[1].meltbp_long = /*_#DBGCOUNTER__L4*/ meltfnum[3];
2663 /*^apply.arg*/
2664 argtab[2].meltbp_cstring = "#^";
2665 /*^apply.arg*/
2666 argtab[3].meltbp_long = /*_#miI__L17*/ meltfnum[16];
2667 /*^apply.arg*/
2668 argtab[4].meltbp_cstring = ":";
2669 /*_.ADD2OUT__V22*/
2670 meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.OUT__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
2671 }
2672 ;
2673
2674 MELT_CHECK_SIGNAL();
2675 ;
2676 MELT_LOCATION("warmelt-debug.melt:273:/ cond");
2677 /*cond*/
2678 if (/*_?*/ meltfram__.loc_CSTRING__o0) /*then*/
2679 {
2680 /*^cond.then*/
2681 /*^block*/
2682 /*anyblock*/
2683 {
2684
2685
2686 MELT_CHECK_SIGNAL();
2687 ;
2688 MELT_LOCATION("warmelt-debug.melt:274:/ apply");
2689 /*apply*/
2690 {
2691 union meltparam_un argtab[4];
2692 memset(&argtab, 0, sizeof(argtab));
2693 /*^apply.arg*/
2694 argtab[0].meltbp_cstring = /*_?*/ meltfram__.loc_CSTRING__o0;
2695 /*^apply.arg*/
2696 argtab[1].meltbp_cstring = ":";
2697 /*^apply.arg*/
2698 argtab[2].meltbp_long = /*_#LINENO__L2*/ meltfnum[1];
2699 /*^apply.arg*/
2700 argtab[3].meltbp_cstring = ":";
2701 /*_.ADD2OUT__V24*/
2702 meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.OUT__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
2703 }
2704 ;
2705 /*_._IF___V23*/
2706 meltfptr[22] = /*_.ADD2OUT__V24*/ meltfptr[23];;
2707 /*epilog*/
2708
2709 MELT_LOCATION("warmelt-debug.melt:273:/ clear");
2710 /*clear*/ /*_.ADD2OUT__V24*/
2711 meltfptr[23] = 0 ;
2712 }
2713 ;
2714 }
2715 else /*^cond.else*/
2716 {
2717
2718 /*_._IF___V23*/ meltfptr[22] = /*reallynil*/ NULL ;;
2719 }
2720 ;
2721
2722 MELT_CHECK_SIGNAL();
2723 ;
2724 /*^compute*/
2725 /*_#gtI__L18*/
2726 meltfnum[17] =
2727 ((/*_#COUNT__L1*/ meltfnum[0]) > (0));;
2728 MELT_LOCATION("warmelt-debug.melt:275:/ cond");
2729 /*cond*/
2730 if (/*_#gtI__L18*/ meltfnum[17]) /*then*/
2731 {
2732 /*^cond.then*/
2733 /*^block*/
2734 /*anyblock*/
2735 {
2736
2737
2738 MELT_CHECK_SIGNAL();
2739 ;
2740 MELT_LOCATION("warmelt-debug.melt:276:/ apply");
2741 /*apply*/
2742 {
2743 union meltparam_un argtab[3];
2744 memset(&argtab, 0, sizeof(argtab));
2745 /*^apply.arg*/
2746 argtab[0].meltbp_cstring = " !";
2747 /*^apply.arg*/
2748 argtab[1].meltbp_long = /*_#COUNT__L1*/ meltfnum[0];
2749 /*^apply.arg*/
2750 argtab[2].meltbp_cstring = ": ";
2751 /*_.ADD2OUT__V26*/
2752 meltfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.OUT__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
2753 }
2754 ;
2755 MELT_LOCATION("warmelt-debug.melt:275:/ quasiblock");
2756
2757
2758 /*_.PROGN___V27*/
2759 meltfptr[26] = /*_.ADD2OUT__V26*/ meltfptr[25];;
2760 /*^compute*/
2761 /*_._IF___V25*/
2762 meltfptr[23] = /*_.PROGN___V27*/ meltfptr[26];;
2763 /*epilog*/
2764
2765 MELT_LOCATION("warmelt-debug.melt:275:/ clear");
2766 /*clear*/ /*_.ADD2OUT__V26*/
2767 meltfptr[25] = 0 ;
2768 /*^clear*/
2769 /*clear*/ /*_.PROGN___V27*/
2770 meltfptr[26] = 0 ;
2771 }
2772 ;
2773 }
2774 else /*^cond.else*/
2775 {
2776
2777 /*_._IF___V25*/ meltfptr[23] = /*reallynil*/ NULL ;;
2778 }
2779 ;
2780 MELT_LOCATION("warmelt-debug.melt:278:/ loop");
2781 /*loop*/
2782 {
2783 meltlabloop_ARGLOOP_1:;/*^loopbody*/
2784
2785 /*^block*/
2786 /*anyblock*/
2787 {
2788
2789
2790 MELT_CHECK_SIGNAL();
2791 ;
2792 MELT_LOCATION("warmelt-debug.melt:281:/ cond");
2793 /*cond*/
2794 if (/*ifvariadic nomore*/ variad_MELT_DEBUG_FUN_ix == variad_MELT_DEBUG_FUN_len) /*then*/
2795 {
2796 /*^cond.then*/
2797 /*^block*/
2798 /*anyblock*/
2799 {
2800
2801 /*^compute*/
2802
2803 /*consume variadic !*/ variad_MELT_DEBUG_FUN_ix += 0;;
2804 MELT_LOCATION("warmelt-debug.melt:282:/ quasiblock");
2805
2806
2807 /*^compute*/
2808 /*_.ARGLOOP__V29*/
2809 meltfptr[26] = /*reallynil*/ NULL ;;
2810
2811 /*^exit*/
2812 /*exit*/
2813 {
2814 goto meltlabexit_ARGLOOP_1;
2815 }
2816 ;
2817 /*epilog*/
2818 }
2819 ;
2820 }
2821 else
2822 {
2823 MELT_LOCATION("warmelt-debug.melt:281:/ cond.else");
2824
2825 /*^block*/
2826 /*anyblock*/
2827 {
2828
2829 MELT_LOCATION("warmelt-debug.melt:283:/ cond");
2830 /*cond*/
2831 if (/*ifvariadic arg#1*/ variad_MELT_DEBUG_FUN_ix>=0 && variad_MELT_DEBUG_FUN_ix + 1 <= variad_MELT_DEBUG_FUN_len && meltxargdescr_[variad_MELT_DEBUG_FUN_ix]== MELTBPAR_LONG) /*then*/
2832 {
2833 /*^cond.then*/
2834 /*^block*/
2835 /*anyblock*/
2836 {
2837
2838 /*^compute*/
2839 /*_#L__L19*/ meltfnum[18] =
2840 /*variadic argument stuff*/ meltxargtab_[variad_MELT_DEBUG_FUN_ix + 0].meltbp_long;;
2841 /*^compute*/
2842
2843 /*consume variadic LONG !*/
2844 variad_MELT_DEBUG_FUN_ix += 1;;
2845
2846 {
2847 MELT_LOCATION("warmelt-debug.melt:284:/ locexp");
2848 meltgc_add_out_dec((melt_ptr_t)(/*_.OUT__V5*/ meltfptr[4]), (/*_#L__L19*/ meltfnum[18]));
2849 }
2850 ;
2851 /*epilog*/
2852
2853 MELT_LOCATION("warmelt-debug.melt:283:/ clear");
2854 /*clear*/ /*_#L__L19*/
2855 meltfnum[18] = 0 ;
2856 }
2857 ;
2858 }
2859 else /*^cond.else*/
2860 {
2861
2862 /*^block*/
2863 /*anyblock*/
2864 {
2865
2866 MELT_LOCATION("warmelt-debug.melt:285:/ cond");
2867 /*cond*/
2868 if (/*ifvariadic arg#1*/ variad_MELT_DEBUG_FUN_ix>=0 && variad_MELT_DEBUG_FUN_ix + 1 <= variad_MELT_DEBUG_FUN_len && meltxargdescr_[variad_MELT_DEBUG_FUN_ix]== MELTBPAR_CSTRING) /*then*/
2869 {
2870 /*^cond.then*/
2871 /*^block*/
2872 /*anyblock*/
2873 {
2874
2875 /*^compute*/
2876 /*_?*/ meltfram__.loc_CSTRING__o2 =
2877 /*variadic argument stuff*/ meltxargtab_[variad_MELT_DEBUG_FUN_ix + 0].meltbp_cstring;;
2878 /*^compute*/
2879
2880 /*consume variadic CSTRING !*/
2881 variad_MELT_DEBUG_FUN_ix += 1;;
2882 MELT_LOCATION("warmelt-debug.melt:286:/ quasiblock");
2883
2884
2885 /*_#CUROUTLEN__L20*/
2886 meltfnum[18] =
2887 melt_output_length ((melt_ptr_t)/*_.OUT__V5*/ meltfptr[4]);;
2888
2889 MELT_CHECK_SIGNAL();
2890 ;
2891 MELT_LOCATION("warmelt-debug.melt:288:/ block");
2892 /*anyblock*/
2893 {
2894
2895 /*^objgoto*/
2896 /*objgoto*/ goto mtch1_0;
2897 ;
2898
2899 /*objlabel*/
2900 mtch1_0:
2901 ;
2902 MELT_LOCATION("warmelt-debug.melt:289:/ objlabel");
2903 /* objlabel */
2904 #if MELTDEBUG_MATCHING
2905 static long meltlab_count_1;
2906 meltlab_count_1++;
2907 debugeprintf("objlabel_1 mtch1_*CLASS_NORMTESTER_MATCHER/32ec7060. *CLASS_OBJLABELINSTR/2f85c3cf. %ld", meltlab_count_1);
2908 #endif
2909
2910 ;
2911 /*^cond*/
2912 /*cond*/
2913 if (
2914 /* cstring_prefixed STRPREFIXED_mtch1__1 test*/ (/*_?*/ meltfram__.loc_CSTRING__o2 && " " && !strncmp(/*_?*/ meltfram__.loc_CSTRING__o2, " ", strlen ( " "))) ) /*then*/
2915 {
2916 /*^cond.then*/
2917 /*^block*/
2918 /*anyblock*/
2919 {
2920
2921
2922 {
2923 /*^locexp*/
2924 ;
2925 }
2926 ;
2927 /*^objgoto*/
2928 /*objgoto*/
2929 goto mtch1_1;
2930 ;
2931 }
2932 ;
2933 }
2934 else /*^cond.else*/
2935 {
2936
2937 /*^block*/
2938 /*anyblock*/
2939 {
2940
2941 MELT_LOCATION("warmelt-debug.melt:292:/ objgoto");
2942 /*objgoto*/
2943 goto mtch1_2;
2944 ;
2945 }
2946 ;
2947 }
2948 ;
2949
2950 /*objlabel*/
2951 mtch1_1:
2952 ;
2953 MELT_LOCATION("warmelt-debug.melt:289:/ objlabel");
2954 /* objlabel */
2955 #if MELTDEBUG_MATCHING
2956 static long meltlab_count_2;
2957 meltlab_count_2++;
2958 debugeprintf("objlabel_2 mtch1_*CLASS_NORMTESTER_SUCCESS/2cda9763. *CLASS_OBJLABELINSTR/2064825d. %ld", meltlab_count_2);
2959 #endif
2960
2961 ;
2962 /*^quasiblock*/
2963
2964
2965
2966 MELT_CHECK_SIGNAL();
2967 ;
2968 /*_#plI__L21*/
2969 meltfnum[20] =
2970 ((/*_#LASTSTROUTLEN__L13*/ meltfnum[12]) + (70));;
2971 /*^compute*/
2972 /*_#gtI__L22*/
2973 meltfnum[21] =
2974 ((/*_#CUROUTLEN__L20*/ meltfnum[18]) > (/*_#plI__L21*/ meltfnum[20]));;
2975 MELT_LOCATION("warmelt-debug.melt:290:/ cond");
2976 /*cond*/
2977 if (/*_#gtI__L22*/ meltfnum[21]) /*then*/
2978 {
2979 /*^cond.then*/
2980 /*^block*/
2981 /*anyblock*/
2982 {
2983
2984
2985 {
2986 MELT_LOCATION("warmelt-debug.melt:291:/ locexp");
2987 meltgc_out_add_indent((melt_ptr_t)(/*_.OUT__V5*/ meltfptr[4]), (0), 0);;
2988 }
2989 ;
2990 /*epilog*/
2991 }
2992 ;
2993 } /*noelse*/
2994 ;
2995
2996 MELT_LOCATION("warmelt-debug.melt:289:/ clear");
2997 /*clear*/ /*_#plI__L21*/
2998 meltfnum[20] = 0 ;
2999 /*^clear*/
3000 /*clear*/ /*_#gtI__L22*/
3001 meltfnum[21] = 0 ;
3002 /*^objgoto*/
3003 /*objgoto*/
3004 goto mtch1__end /*endmatch*/;
3005 ;
3006
3007 /*objlabel*/
3008 mtch1_2:
3009 ;
3010 MELT_LOCATION("warmelt-debug.melt:292:/ objlabel");
3011 /* objlabel */
3012 #if MELTDEBUG_MATCHING
3013 static long meltlab_count_3;
3014 meltlab_count_3++;
3015 debugeprintf("objlabel_3 mtch1_*CLASS_NORMTESTER_SUCCESS/3efa513c. *CLASS_OBJLABELINSTR/12eaf53a. %ld", meltlab_count_3);
3016 #endif
3017
3018 ;
3019 /*^quasiblock*/
3020
3021
3022
3023 {
3024 /*^locexp*/
3025 /*void*/(void)0;
3026 }
3027 ;
3028
3029 /*^objgoto*/
3030 /*objgoto*/
3031 goto mtch1__end /*endmatch*/;
3032 ;
3033
3034 /*objlabel*/
3035 mtch1__end:
3036 ;
3037 MELT_LOCATION("warmelt-debug.melt:288:/ objlabel");
3038 /* objlabel */
3039 #if MELTDEBUG_MATCHING
3040 static long meltlab_count_4;
3041 meltlab_count_4++;
3042 debugeprintf("objlabel_4 mtch1__end_h81269952 *CLASS_OBJLABELINSTR/4d814c0. %ld", meltlab_count_4);
3043 #endif
3044
3045 ;
3046 }
3047 ;
3048
3049 MELT_LOCATION("warmelt-debug.melt:286:/ clear");
3050 /*clear*/ /*_#CUROUTLEN__L20*/
3051 meltfnum[18] = 0 ;
3052 /*_#OUTPUT_LENGTH__L23*/
3053 meltfnum[20] =
3054 melt_output_length ((melt_ptr_t)/*_.OUT__V5*/ meltfptr[4]);;
3055 MELT_LOCATION("warmelt-debug.melt:294:/ compute");
3056 /*_#LASTSTROUTLEN__L13*/
3057 meltfnum[12] = /*_#SETQ___L24*/ meltfnum[21] = /*_#OUTPUT_LENGTH__L23*/ meltfnum[20];;
3058
3059 {
3060 MELT_LOCATION("warmelt-debug.melt:295:/ locexp");
3061 meltgc_add_out((melt_ptr_t)(/*_.OUT__V5*/ meltfptr[4]), (/*_?*/ meltfram__.loc_CSTRING__o2));
3062 }
3063 ;
3064
3065 MELT_CHECK_SIGNAL();
3066 ;
3067 /*epilog*/
3068
3069 MELT_LOCATION("warmelt-debug.melt:285:/ clear");
3070 /*clear*/ /*_?*/
3071 meltfram__.loc_CSTRING__o2 = 0 ;
3072 /*^clear*/
3073 /*clear*/ /*_#OUTPUT_LENGTH__L23*/
3074 meltfnum[20] = 0 ;
3075 /*^clear*/
3076 /*clear*/ /*_#SETQ___L24*/
3077 meltfnum[21] = 0 ;
3078 }
3079 ;
3080 }
3081 else /*^cond.else*/
3082 {
3083
3084 /*^block*/
3085 /*anyblock*/
3086 {
3087
3088 MELT_LOCATION("warmelt-debug.melt:297:/ cond");
3089 /*cond*/
3090 if (/*ifvariadic arg#1*/ variad_MELT_DEBUG_FUN_ix>=0 && variad_MELT_DEBUG_FUN_ix + 1 <= variad_MELT_DEBUG_FUN_len && meltxargdescr_[variad_MELT_DEBUG_FUN_ix]== MELTBPAR_PTR) /*then*/
3091 {
3092 /*^cond.then*/
3093 /*^block*/
3094 /*anyblock*/
3095 {
3096
3097 /*^compute*/
3098 /*_.VAL__V30*/ meltfptr[29] =
3099 /*variadic argument value*/ ((meltxargtab_[variad_MELT_DEBUG_FUN_ix + 0].meltbp_aptr) ? (*(meltxargtab_[variad_MELT_DEBUG_FUN_ix + 0].meltbp_aptr)) : NULL);;
3100 /*^compute*/
3101
3102 /*consume variadic Value !*/
3103 variad_MELT_DEBUG_FUN_ix += 1;;
3104
3105 {
3106 MELT_LOCATION("warmelt-debug.melt:298:/ locexp");
3107 meltgc_add_out((melt_ptr_t)(/*_.OUT__V5*/ meltfptr[4]), ( " "));
3108 }
3109 ;
3110
3111 MELT_CHECK_SIGNAL();
3112 ;
3113 /*_#NULL__L25*/
3114 meltfnum[18] =
3115 (/*null*/(/*_.VAL__V30*/ meltfptr[29]) == NULL);;
3116 MELT_LOCATION("warmelt-debug.melt:300:/ cond");
3117 /*cond*/
3118 if (/*_#NULL__L25*/ meltfnum[18]) /*then*/
3119 {
3120 /*^cond.then*/
3121 /*^block*/
3122 /*anyblock*/
3123 {
3124
3125
3126 {
3127 MELT_LOCATION("warmelt-debug.melt:301:/ locexp");
3128 meltgc_add_out((melt_ptr_t)(/*_.OUT__V5*/ meltfptr[4]), ( "(**nil**)"));
3129 }
3130 ;
3131 /*epilog*/
3132 }
3133 ;
3134 }
3135 else
3136 {
3137 MELT_LOCATION("warmelt-debug.melt:300:/ cond.else");
3138
3139 /*^block*/
3140 /*anyblock*/
3141 {
3142
3143
3144 MELT_CHECK_SIGNAL();
3145 ;
3146 /*_.DISCRIM__V31*/
3147 meltfptr[30] =
3148 ((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.VAL__V30*/ meltfptr[29]))));;
3149 /*^compute*/
3150 /*_#eqeq__L26*/
3151 meltfnum[20] =
3152 ((/*_.DISCRIM__V31*/ meltfptr[30]) == ((/*!DISCR_DEBUG_CLOSURE*/ meltfrout->tabval[9])));;
3153 MELT_LOCATION("warmelt-debug.melt:302:/ cond");
3154 /*cond*/
3155 if (/*_#eqeq__L26*/ meltfnum[20]) /*then*/
3156 {
3157 /*^cond.then*/
3158 /*^block*/
3159 /*anyblock*/
3160 {
3161
3162 MELT_LOCATION("warmelt-debug.melt:304:/ cond");
3163 /*cond*/
3164 if (/*ifvariadic nomore*/ variad_MELT_DEBUG_FUN_ix == variad_MELT_DEBUG_FUN_len) /*then*/
3165 {
3166 /*^cond.then*/
3167 /*^block*/
3168 /*anyblock*/
3169 {
3170
3171 /*^compute*/
3172
3173 /*consume variadic !*/ variad_MELT_DEBUG_FUN_ix += 0;;
3174
3175 MELT_CHECK_SIGNAL();
3176 ;
3177 MELT_LOCATION("warmelt-debug.melt:307:/ apply");
3178 /*apply*/
3179 {
3180 union meltparam_un argtab[2];
3181 memset(&argtab, 0, sizeof(argtab));
3182 /*^apply.arg*/
3183 argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V19*/ meltfptr[17];
3184 /*^apply.arg*/
3185 argtab[1].meltbp_long = 0;
3186 /*_.DBG_OUT__V32*/
3187 meltfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.VAL__V30*/ meltfptr[29]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
3188 }
3189 ;
3190 /*epilog*/
3191
3192 MELT_LOCATION("warmelt-debug.melt:304:/ clear");
3193 /*clear*/ /*_.DBG_OUT__V32*/
3194 meltfptr[31] = 0 ;
3195 }
3196 ;
3197 }
3198 else /*^cond.else*/
3199 {
3200
3201 /*^block*/
3202 /*anyblock*/
3203 {
3204
3205 MELT_LOCATION("warmelt-debug.melt:309:/ cond");
3206 /*cond*/
3207 if (/*ifvariadic arg#1*/ variad_MELT_DEBUG_FUN_ix>=0 && variad_MELT_DEBUG_FUN_ix + 1 <= variad_MELT_DEBUG_FUN_len && meltxargdescr_[variad_MELT_DEBUG_FUN_ix]== MELTBPAR_PTR) /*then*/
3208 {
3209 /*^cond.then*/
3210 /*^block*/
3211 /*anyblock*/
3212 {
3213
3214 /*^compute*/
3215 /*_.VV__V33*/ meltfptr[31] =
3216 /*variadic argument value*/ ((meltxargtab_[variad_MELT_DEBUG_FUN_ix + 0].meltbp_aptr) ? (*(meltxargtab_[variad_MELT_DEBUG_FUN_ix + 0].meltbp_aptr)) : NULL);;
3217 /*^compute*/
3218
3219 /*consume variadic Value !*/
3220 variad_MELT_DEBUG_FUN_ix += 1;;
3221
3222 MELT_CHECK_SIGNAL();
3223 ;
3224 MELT_LOCATION("warmelt-debug.melt:310:/ apply");
3225 /*apply*/
3226 {
3227 union meltparam_un argtab[1];
3228 memset(&argtab, 0, sizeof(argtab));
3229 /*^apply.arg*/
3230 argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VV__V33*/ meltfptr[31];
3231 /*_.VAL__V34*/
3232 meltfptr[33] = melt_apply ((meltclosure_ptr_t)(/*_.VAL__V30*/ meltfptr[29]), (melt_ptr_t)(/*_.DBGI__V19*/ meltfptr[17]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
3233 }
3234 ;
3235 /*epilog*/
3236
3237 MELT_LOCATION("warmelt-debug.melt:309:/ clear");
3238 /*clear*/ /*_.VV__V33*/
3239 meltfptr[31] = 0 ;
3240 /*^clear*/
3241 /*clear*/ /*_.VAL__V34*/
3242 meltfptr[33] = 0 ;
3243 }
3244 ;
3245 }
3246 else /*^cond.else*/
3247 {
3248
3249 /*^block*/
3250 /*anyblock*/
3251 {
3252
3253 MELT_LOCATION("warmelt-debug.melt:311:/ cond");
3254 /*cond*/
3255 if (/*ifvariadic arg#1*/ variad_MELT_DEBUG_FUN_ix>=0 && variad_MELT_DEBUG_FUN_ix + 1 <= variad_MELT_DEBUG_FUN_len && meltxargdescr_[variad_MELT_DEBUG_FUN_ix]== MELTBPAR_LONG) /*then*/
3256 {
3257 /*^cond.then*/
3258 /*^block*/
3259 /*anyblock*/
3260 {
3261
3262 /*^compute*/
3263 /*_#LL__L27*/ meltfnum[21] =
3264 /*variadic argument stuff*/ meltxargtab_[variad_MELT_DEBUG_FUN_ix + 0].meltbp_long;;
3265 /*^compute*/
3266
3267 /*consume variadic LONG !*/
3268 variad_MELT_DEBUG_FUN_ix += 1;;
3269
3270 MELT_CHECK_SIGNAL();
3271 ;
3272 MELT_LOCATION("warmelt-debug.melt:312:/ apply");
3273 /*apply*/
3274 {
3275 union meltparam_un argtab[1];
3276 memset(&argtab, 0, sizeof(argtab));
3277 /*^apply.arg*/
3278 argtab[0].meltbp_long = /*_#LL__L27*/ meltfnum[21];
3279 /*_.VAL__V35*/
3280 meltfptr[31] = melt_apply ((meltclosure_ptr_t)(/*_.VAL__V30*/ meltfptr[29]), (melt_ptr_t)(/*_.DBGI__V19*/ meltfptr[17]), (MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
3281 }
3282 ;
3283 /*epilog*/
3284
3285 MELT_LOCATION("warmelt-debug.melt:311:/ clear");
3286 /*clear*/ /*_#LL__L27*/
3287 meltfnum[21] = 0 ;
3288 /*^clear*/
3289 /*clear*/ /*_.VAL__V35*/
3290 meltfptr[31] = 0 ;
3291 }
3292 ;
3293 }
3294 else /*^cond.else*/
3295 {
3296
3297 /*^block*/
3298 /*anyblock*/
3299 {
3300
3301 MELT_LOCATION("warmelt-debug.melt:313:/ cond");
3302 /*cond*/
3303 if (/*ifvariadic arg#1*/ variad_MELT_DEBUG_FUN_ix>=0 && variad_MELT_DEBUG_FUN_ix + 1 <= variad_MELT_DEBUG_FUN_len && meltxargdescr_[variad_MELT_DEBUG_FUN_ix]== MELTBPAR_TREE) /*then*/
3304 {
3305 /*^cond.then*/
3306 /*^block*/
3307 /*anyblock*/
3308 {
3309
3310 /*^compute*/
3311 /*_?*/ meltfram__.loc_TREE__o3 =
3312 /*variadic argument stuff*/ meltxargtab_[variad_MELT_DEBUG_FUN_ix + 0].meltbp_tree;;
3313 /*^compute*/
3314
3315 /*consume variadic TREE !*/
3316 variad_MELT_DEBUG_FUN_ix += 1;;
3317
3318 MELT_CHECK_SIGNAL();
3319 ;
3320 MELT_LOCATION("warmelt-debug.melt:314:/ apply");
3321 /*apply*/
3322 {
3323 union meltparam_un argtab[1];
3324 memset(&argtab, 0, sizeof(argtab));
3325 /*^apply.arg*/
3326 argtab[0].meltbp_tree = /*_?*/ meltfram__.loc_TREE__o3;
3327 /*_.VAL__V36*/
3328 meltfptr[33] = melt_apply ((meltclosure_ptr_t)(/*_.VAL__V30*/ meltfptr[29]), (melt_ptr_t)(/*_.DBGI__V19*/ meltfptr[17]), (MELTBPARSTR_TREE ""), argtab, "", (union meltparam_un*)0);
3329 }
3330 ;
3331 /*epilog*/
3332
3333 MELT_LOCATION("warmelt-debug.melt:313:/ clear");
3334 /*clear*/ /*_?*/
3335 meltfram__.loc_TREE__o3 = 0 ;
3336 /*^clear*/
3337 /*clear*/ /*_.VAL__V36*/
3338 meltfptr[33] = 0 ;
3339 }
3340 ;
3341 }
3342 else /*^cond.else*/
3343 {
3344
3345 /*^block*/
3346 /*anyblock*/
3347 {
3348
3349 MELT_LOCATION("warmelt-debug.melt:315:/ cond");
3350 /*cond*/
3351 if (/*ifvariadic arg#1*/ variad_MELT_DEBUG_FUN_ix>=0 && variad_MELT_DEBUG_FUN_ix + 1 <= variad_MELT_DEBUG_FUN_len && meltxargdescr_[variad_MELT_DEBUG_FUN_ix]== MELTBPAR_GIMPLE) /*then*/
3352 {
3353 /*^cond.then*/
3354 /*^block*/
3355 /*anyblock*/
3356 {
3357
3358 /*^compute*/
3359 /*_?*/ meltfram__.loc_GIMPLE__o4 =
3360 /*variadic argument stuff*/ meltxargtab_[variad_MELT_DEBUG_FUN_ix + 0].meltbp_gimple;;
3361 /*^compute*/
3362
3363 /*consume variadic GIMPLE !*/
3364 variad_MELT_DEBUG_FUN_ix += 1;;
3365
3366 MELT_CHECK_SIGNAL();
3367 ;
3368 MELT_LOCATION("warmelt-debug.melt:316:/ apply");
3369 /*apply*/
3370 {
3371 union meltparam_un argtab[1];
3372 memset(&argtab, 0, sizeof(argtab));
3373 /*^apply.arg*/
3374 argtab[0].meltbp_gimple = /*_?*/ meltfram__.loc_GIMPLE__o4;
3375 /*_.VAL__V37*/
3376 meltfptr[31] = melt_apply ((meltclosure_ptr_t)(/*_.VAL__V30*/ meltfptr[29]), (melt_ptr_t)(/*_.DBGI__V19*/ meltfptr[17]), (MELTBPARSTR_GIMPLE ""), argtab, "", (union meltparam_un*)0);
3377 }
3378 ;
3379 /*epilog*/
3380
3381 MELT_LOCATION("warmelt-debug.melt:315:/ clear");
3382 /*clear*/ /*_?*/
3383 meltfram__.loc_GIMPLE__o4 = 0 ;
3384 /*^clear*/
3385 /*clear*/ /*_.VAL__V37*/
3386 meltfptr[31] = 0 ;
3387 }
3388 ;
3389 }
3390 else /*^cond.else*/
3391 {
3392
3393 /*^block*/
3394 /*anyblock*/
3395 {
3396
3397 MELT_LOCATION("warmelt-debug.melt:317:/ cond");
3398 /*cond*/
3399 if (/*ifvariadic arg#1*/ variad_MELT_DEBUG_FUN_ix>=0 && variad_MELT_DEBUG_FUN_ix + 1 <= variad_MELT_DEBUG_FUN_len && meltxargdescr_[variad_MELT_DEBUG_FUN_ix]== MELTBPAR_GIMPLESEQ) /*then*/
3400 {
3401 /*^cond.then*/
3402 /*^block*/
3403 /*anyblock*/
3404 {
3405
3406 /*^compute*/
3407 /*_?*/ meltfram__.loc_GIMPLE_SEQ__o5 =
3408 /*variadic argument stuff*/ meltxargtab_[variad_MELT_DEBUG_FUN_ix + 0].meltbp_gimpleseq;;
3409 /*^compute*/
3410
3411 /*consume variadic GIMPLE_SEQ !*/
3412 variad_MELT_DEBUG_FUN_ix += 1;;
3413
3414 MELT_CHECK_SIGNAL();
3415 ;
3416 MELT_LOCATION("warmelt-debug.melt:318:/ apply");
3417 /*apply*/
3418 {
3419 union meltparam_un argtab[1];
3420 memset(&argtab, 0, sizeof(argtab));
3421 /*^apply.arg*/
3422 argtab[0].meltbp_gimpleseq = /*_?*/ meltfram__.loc_GIMPLE_SEQ__o5;
3423 /*_.VAL__V38*/
3424 meltfptr[33] = melt_apply ((meltclosure_ptr_t)(/*_.VAL__V30*/ meltfptr[29]), (melt_ptr_t)(/*_.DBGI__V19*/ meltfptr[17]), (MELTBPARSTR_GIMPLESEQ ""), argtab, "", (union meltparam_un*)0);
3425 }
3426 ;
3427 /*epilog*/
3428
3429 MELT_LOCATION("warmelt-debug.melt:317:/ clear");
3430 /*clear*/ /*_?*/
3431 meltfram__.loc_GIMPLE_SEQ__o5 = 0 ;
3432 /*^clear*/
3433 /*clear*/ /*_.VAL__V38*/
3434 meltfptr[33] = 0 ;
3435 }
3436 ;
3437 }
3438 else /*^cond.else*/
3439 {
3440
3441 /*^block*/
3442 /*anyblock*/
3443 {
3444
3445 MELT_LOCATION("warmelt-debug.melt:319:/ cond");
3446 /*cond*/
3447 if (/*ifvariadic arg#1*/ variad_MELT_DEBUG_FUN_ix>=0 && variad_MELT_DEBUG_FUN_ix + 1 <= variad_MELT_DEBUG_FUN_len && meltxargdescr_[variad_MELT_DEBUG_FUN_ix]== MELTBPAR_EDGE) /*then*/
3448 {
3449 /*^cond.then*/
3450 /*^block*/
3451 /*anyblock*/
3452 {
3453
3454 /*^compute*/
3455 /*_?*/ meltfram__.loc_EDGE__o6 =
3456 /*variadic argument stuff*/ meltxargtab_[variad_MELT_DEBUG_FUN_ix + 0].meltbp_edge;;
3457 /*^compute*/
3458
3459 /*consume variadic EDGE !*/
3460 variad_MELT_DEBUG_FUN_ix += 1;;
3461
3462 MELT_CHECK_SIGNAL();
3463 ;
3464 MELT_LOCATION("warmelt-debug.melt:320:/ apply");
3465 /*apply*/
3466 {
3467 union meltparam_un argtab[1];
3468 memset(&argtab, 0, sizeof(argtab));
3469 /*^apply.arg*/
3470 argtab[0].meltbp_edge = /*_?*/ meltfram__.loc_EDGE__o6;
3471 /*_.VAL__V39*/
3472 meltfptr[31] = melt_apply ((meltclosure_ptr_t)(/*_.VAL__V30*/ meltfptr[29]), (melt_ptr_t)(/*_.DBGI__V19*/ meltfptr[17]), (MELTBPARSTR_EDGE ""), argtab, "", (union meltparam_un*)0);
3473 }
3474 ;
3475 /*epilog*/
3476
3477 MELT_LOCATION("warmelt-debug.melt:319:/ clear");
3478 /*clear*/ /*_?*/
3479 meltfram__.loc_EDGE__o6 = 0 ;
3480 /*^clear*/
3481 /*clear*/ /*_.VAL__V39*/
3482 meltfptr[31] = 0 ;
3483 }
3484 ;
3485 }
3486 else /*^cond.else*/
3487 {
3488
3489 /*^block*/
3490 /*anyblock*/
3491 {
3492
3493 MELT_LOCATION("warmelt-debug.melt:321:/ cond");
3494 /*cond*/
3495 if (/*ifvariadic arg#1*/ variad_MELT_DEBUG_FUN_ix>=0 && variad_MELT_DEBUG_FUN_ix + 1 <= variad_MELT_DEBUG_FUN_len && meltxargdescr_[variad_MELT_DEBUG_FUN_ix]== MELTBPAR_LOOP) /*then*/
3496 {
3497 /*^cond.then*/
3498 /*^block*/
3499 /*anyblock*/
3500 {
3501
3502 /*^compute*/
3503 /*_?*/ meltfram__.loc_LOOP__o7 =
3504 /*variadic argument stuff*/ meltxargtab_[variad_MELT_DEBUG_FUN_ix + 0].meltbp_loop;;
3505 /*^compute*/
3506
3507 /*consume variadic LOOP !*/
3508 variad_MELT_DEBUG_FUN_ix += 1;;
3509
3510 MELT_CHECK_SIGNAL();
3511 ;
3512 MELT_LOCATION("warmelt-debug.melt:322:/ apply");
3513 /*apply*/
3514 {
3515 union meltparam_un argtab[1];
3516 memset(&argtab, 0, sizeof(argtab));
3517 /*^apply.arg*/
3518 argtab[0].meltbp_loop = /*_?*/ meltfram__.loc_LOOP__o7;
3519 /*_.VAL__V40*/
3520 meltfptr[33] = melt_apply ((meltclosure_ptr_t)(/*_.VAL__V30*/ meltfptr[29]), (melt_ptr_t)(/*_.DBGI__V19*/ meltfptr[17]), (MELTBPARSTR_LOOP ""), argtab, "", (union meltparam_un*)0);
3521 }
3522 ;
3523 /*epilog*/
3524
3525 MELT_LOCATION("warmelt-debug.melt:321:/ clear");
3526 /*clear*/ /*_?*/
3527 meltfram__.loc_LOOP__o7 = 0 ;
3528 /*^clear*/
3529 /*clear*/ /*_.VAL__V40*/
3530 meltfptr[33] = 0 ;
3531 }
3532 ;
3533 } /*noelse*/
3534 ;
3535 /*epilog*/
3536 }
3537 ;
3538 }
3539 ;
3540 /*epilog*/
3541 }
3542 ;
3543 }
3544 ;
3545 /*epilog*/
3546 }
3547 ;
3548 }
3549 ;
3550 /*epilog*/
3551 }
3552 ;
3553 }
3554 ;
3555 /*epilog*/
3556 }
3557 ;
3558 }
3559 ;
3560 /*epilog*/
3561 }
3562 ;
3563 }
3564 ;
3565 /*epilog*/
3566 }
3567 ;
3568 }
3569 ;
3570
3571 {
3572 MELT_LOCATION("warmelt-debug.melt:324:/ locexp");
3573 /*void*/
3574 (void)0;
3575 }
3576 ;
3577 MELT_LOCATION("warmelt-debug.melt:302:/ quasiblock");
3578
3579
3580 /*epilog*/
3581 }
3582 ;
3583 }
3584 else /*^cond.else*/
3585 {
3586
3587 /*^block*/
3588 /*anyblock*/
3589 {
3590
3591
3592 MELT_CHECK_SIGNAL();
3593 ;
3594 MELT_LOCATION("warmelt-debug.melt:327:/ apply");
3595 /*apply*/
3596 {
3597 union meltparam_un argtab[2];
3598 memset(&argtab, 0, sizeof(argtab));
3599 /*^apply.arg*/
3600 argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V19*/ meltfptr[17];
3601 /*^apply.arg*/
3602 argtab[1].meltbp_long = 0;
3603 /*_.DBG_OUT__V41*/
3604 meltfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.VAL__V30*/ meltfptr[29]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
3605 }
3606 ;
3607
3608 {
3609 MELT_LOCATION("warmelt-debug.melt:328:/ locexp");
3610 /*void*/
3611 (void)0;
3612 }
3613 ;
3614 MELT_LOCATION("warmelt-debug.melt:326:/ quasiblock");
3615
3616
3617 /*epilog*/
3618
3619 MELT_LOCATION("warmelt-debug.melt:302:/ clear");
3620 /*clear*/ /*_.DBG_OUT__V41*/
3621 meltfptr[31] = 0 ;
3622 }
3623 ;
3624 }
3625 ;
3626 /*epilog*/
3627
3628 MELT_LOCATION("warmelt-debug.melt:300:/ clear");
3629 /*clear*/ /*_.DISCRIM__V31*/
3630 meltfptr[30] = 0 ;
3631 /*^clear*/
3632 /*clear*/ /*_#eqeq__L26*/
3633 meltfnum[20] = 0 ;
3634 }
3635 ;
3636 }
3637 ;
3638
3639 MELT_CHECK_SIGNAL();
3640 ;
3641 /*epilog*/
3642
3643 MELT_LOCATION("warmelt-debug.melt:297:/ clear");
3644 /*clear*/ /*_.VAL__V30*/
3645 meltfptr[29] = 0 ;
3646 /*^clear*/
3647 /*clear*/ /*_#NULL__L25*/
3648 meltfnum[18] = 0 ;
3649 }
3650 ;
3651 }
3652 else /*^cond.else*/
3653 {
3654
3655 /*^block*/
3656 /*anyblock*/
3657 {
3658
3659 MELT_LOCATION("warmelt-debug.melt:330:/ cond");
3660 /*cond*/
3661 if (/*ifvariadic arg#1*/ variad_MELT_DEBUG_FUN_ix>=0 && variad_MELT_DEBUG_FUN_ix + 1 <= variad_MELT_DEBUG_FUN_len && meltxargdescr_[variad_MELT_DEBUG_FUN_ix]== MELTBPAR_TREE) /*then*/
3662 {
3663 /*^cond.then*/
3664 /*^block*/
3665 /*anyblock*/
3666 {
3667
3668 /*^compute*/
3669 /*_?*/ meltfram__.loc_TREE__o8 =
3670 /*variadic argument stuff*/ meltxargtab_[variad_MELT_DEBUG_FUN_ix + 0].meltbp_tree;;
3671 /*^compute*/
3672
3673 /*consume variadic TREE !*/
3674 variad_MELT_DEBUG_FUN_ix += 1;;
3675 MELT_LOCATION("warmelt-debug.melt:331:/ quasiblock");
3676
3677
3678 /*^cond*/
3679 /*cond*/
3680 if (
3681 /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!TREE_DEBUG_FUNCONT*/ meltfrout->tabval[11])),
3682 (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[12])))
3683 ) /*then*/
3684 {
3685 /*^cond.then*/
3686 /*^getslot*/
3687 {
3688 melt_ptr_t slot=NULL, obj=NULL;
3689 obj = (melt_ptr_t)((/*!TREE_DEBUG_FUNCONT*/ meltfrout->tabval[11])) /*=obj*/;
3690 melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE");
3691 /*_.TDF__V43*/
3692 meltfptr[31] = slot;
3693 };
3694 ;
3695 }
3696 else /*^cond.else*/
3697 {
3698
3699 /*_.TDF__V43*/ meltfptr[31] = /*reallynil*/ NULL ;;
3700 }
3701 ;
3702
3703 MELT_CHECK_SIGNAL();
3704 ;
3705 /*^compute*/
3706 /*_#IS_CLOSURE__L28*/
3707 meltfnum[21] =
3708 (melt_magic_discr((melt_ptr_t)(/*_.TDF__V43*/ meltfptr[31])) == MELTOBMAG_CLOSURE);;
3709 MELT_LOCATION("warmelt-debug.melt:333:/ cond");
3710 /*cond*/
3711 if (/*_#IS_CLOSURE__L28*/ meltfnum[21]) /*then*/
3712 {
3713 /*^cond.then*/
3714 /*^block*/
3715 /*anyblock*/
3716 {
3717
3718
3719 MELT_CHECK_SIGNAL();
3720 ;
3721 MELT_LOCATION("warmelt-debug.melt:334:/ apply");
3722 /*apply*/
3723 {
3724 union meltparam_un argtab[1];
3725 memset(&argtab, 0, sizeof(argtab));
3726 /*^apply.arg*/
3727 argtab[0].meltbp_tree = /*_?*/ meltfram__.loc_TREE__o8;
3728 /*_.TDF__V45*/
3729 meltfptr[29] = melt_apply ((meltclosure_ptr_t)(/*_.TDF__V43*/ meltfptr[31]), (melt_ptr_t)(/*_.DBGI__V19*/ meltfptr[17]), (MELTBPARSTR_TREE ""), argtab, "", (union meltparam_un*)0);
3730 }
3731 ;
3732 /*_._IFELSE___V44*/
3733 meltfptr[30] = /*_.TDF__V45*/ meltfptr[29];;
3734 /*epilog*/
3735
3736 MELT_LOCATION("warmelt-debug.melt:333:/ clear");
3737 /*clear*/ /*_.TDF__V45*/
3738 meltfptr[29] = 0 ;
3739 }
3740 ;
3741 }
3742 else /*^cond.else*/
3743 {
3744
3745 /*^block*/
3746 /*anyblock*/
3747 {
3748
3749
3750 MELT_CHECK_SIGNAL();
3751 ;
3752 MELT_LOCATION("warmelt-debug.melt:335:/ cond");
3753 /*cond*/
3754 if (/*_?*/ meltfram__.loc_TREE__o8) /*then*/
3755 {
3756 /*^cond.then*/
3757 /*^block*/
3758 /*anyblock*/
3759 {
3760
3761
3762
3763
3764 {
3765 MELT_LOCATION("warmelt-debug.melt:336:/ locexp");
3766 meltgc_add_out((melt_ptr_t)(/*_.OUT__V5*/ meltfptr[4]), ( " ?*tree*?"));
3767 }
3768 ;
3769 /*clear*/ /*_._IFELSE___V44*/
3770 meltfptr[30] = 0 ;
3771 /*epilog*/
3772 }
3773 ;
3774 }
3775 else
3776 {
3777 MELT_LOCATION("warmelt-debug.melt:335:/ cond.else");
3778
3779 /*^block*/
3780 /*anyblock*/
3781 {
3782
3783
3784
3785
3786 {
3787 MELT_LOCATION("warmelt-debug.melt:337:/ locexp");
3788 meltgc_add_out((melt_ptr_t)(/*_.OUT__V5*/ meltfptr[4]), ( " ?*nulltree*?"));
3789 }
3790 ;
3791 /*clear*/ /*_._IFELSE___V44*/
3792 meltfptr[30] = 0 ;
3793 /*epilog*/
3794 }
3795 ;
3796 }
3797 ;
3798 /*epilog*/
3799 }
3800 ;
3801 }
3802 ;
3803 /*^compute*/
3804 /*_.LET___V42*/
3805 meltfptr[33] = /*_._IFELSE___V44*/ meltfptr[30];;
3806
3807 MELT_LOCATION("warmelt-debug.melt:331:/ clear");
3808 /*clear*/ /*_.TDF__V43*/
3809 meltfptr[31] = 0 ;
3810 /*^clear*/
3811 /*clear*/ /*_#IS_CLOSURE__L28*/
3812 meltfnum[21] = 0 ;
3813 /*^clear*/
3814 /*clear*/ /*_._IFELSE___V44*/
3815 meltfptr[30] = 0 ;
3816 /*epilog*/
3817
3818 MELT_LOCATION("warmelt-debug.melt:330:/ clear");
3819 /*clear*/ /*_?*/
3820 meltfram__.loc_TREE__o8 = 0 ;
3821 /*^clear*/
3822 /*clear*/ /*_.LET___V42*/
3823 meltfptr[33] = 0 ;
3824 }
3825 ;
3826 }
3827 else /*^cond.else*/
3828 {
3829
3830 /*^block*/
3831 /*anyblock*/
3832 {
3833
3834 MELT_LOCATION("warmelt-debug.melt:338:/ cond");
3835 /*cond*/
3836 if (/*ifvariadic arg#1*/ variad_MELT_DEBUG_FUN_ix>=0 && variad_MELT_DEBUG_FUN_ix + 1 <= variad_MELT_DEBUG_FUN_len && meltxargdescr_[variad_MELT_DEBUG_FUN_ix]== MELTBPAR_GIMPLE) /*then*/
3837 {
3838 /*^cond.then*/
3839 /*^block*/
3840 /*anyblock*/
3841 {
3842
3843 /*^compute*/
3844 /*_?*/ meltfram__.loc_GIMPLE__o9 =
3845 /*variadic argument stuff*/ meltxargtab_[variad_MELT_DEBUG_FUN_ix + 0].meltbp_gimple;;
3846 /*^compute*/
3847
3848 /*consume variadic GIMPLE !*/
3849 variad_MELT_DEBUG_FUN_ix += 1;;
3850 MELT_LOCATION("warmelt-debug.melt:339:/ quasiblock");
3851
3852
3853 /*^cond*/
3854 /*cond*/
3855 if (
3856 /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!GIMPLE_DEBUG_FUNCONT*/ meltfrout->tabval[13])),
3857 (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[12])))
3858 ) /*then*/
3859 {
3860 /*^cond.then*/
3861 /*^getslot*/
3862 {
3863 melt_ptr_t slot=NULL, obj=NULL;
3864 obj = (melt_ptr_t)((/*!GIMPLE_DEBUG_FUNCONT*/ meltfrout->tabval[13])) /*=obj*/;
3865 melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE");
3866 /*_.GDF__V47*/
3867 meltfptr[31] = slot;
3868 };
3869 ;
3870 }
3871 else /*^cond.else*/
3872 {
3873
3874 /*_.GDF__V47*/ meltfptr[31] = /*reallynil*/ NULL ;;
3875 }
3876 ;
3877
3878 MELT_CHECK_SIGNAL();
3879 ;
3880 /*^compute*/
3881 /*_#IS_CLOSURE__L29*/
3882 meltfnum[20] =
3883 (melt_magic_discr((melt_ptr_t)(/*_.GDF__V47*/ meltfptr[31])) == MELTOBMAG_CLOSURE);;
3884 MELT_LOCATION("warmelt-debug.melt:341:/ cond");
3885 /*cond*/
3886 if (/*_#IS_CLOSURE__L29*/ meltfnum[20]) /*then*/
3887 {
3888 /*^cond.then*/
3889 /*^block*/
3890 /*anyblock*/
3891 {
3892
3893
3894 MELT_CHECK_SIGNAL();
3895 ;
3896 MELT_LOCATION("warmelt-debug.melt:342:/ apply");
3897 /*apply*/
3898 {
3899 union meltparam_un argtab[1];
3900 memset(&argtab, 0, sizeof(argtab));
3901 /*^apply.arg*/
3902 argtab[0].meltbp_gimple = /*_?*/ meltfram__.loc_GIMPLE__o9;
3903 /*_.GDF__V49*/
3904 meltfptr[33] = melt_apply ((meltclosure_ptr_t)(/*_.GDF__V47*/ meltfptr[31]), (melt_ptr_t)(/*_.DBGI__V19*/ meltfptr[17]), (MELTBPARSTR_GIMPLE ""), argtab, "", (union meltparam_un*)0);
3905 }
3906 ;
3907 /*_._IFELSE___V48*/
3908 meltfptr[30] = /*_.GDF__V49*/ meltfptr[33];;
3909 /*epilog*/
3910
3911 MELT_LOCATION("warmelt-debug.melt:341:/ clear");
3912 /*clear*/ /*_.GDF__V49*/
3913 meltfptr[33] = 0 ;
3914 }
3915 ;
3916 }
3917 else /*^cond.else*/
3918 {
3919
3920 /*^block*/
3921 /*anyblock*/
3922 {
3923
3924
3925 MELT_CHECK_SIGNAL();
3926 ;
3927 MELT_LOCATION("warmelt-debug.melt:343:/ cond");
3928 /*cond*/
3929 if (/*_?*/ meltfram__.loc_GIMPLE__o9) /*then*/
3930 {
3931 /*^cond.then*/
3932 /*^block*/
3933 /*anyblock*/
3934 {
3935
3936
3937
3938
3939 {
3940 MELT_LOCATION("warmelt-debug.melt:344:/ locexp");
3941 meltgc_add_out((melt_ptr_t)(/*_.OUT__V5*/ meltfptr[4]), ( " ?*gimple*?"));
3942 }
3943 ;
3944 /*clear*/ /*_._IFELSE___V48*/
3945 meltfptr[30] = 0 ;
3946 /*epilog*/
3947 }
3948 ;
3949 }
3950 else
3951 {
3952 MELT_LOCATION("warmelt-debug.melt:343:/ cond.else");
3953
3954 /*^block*/
3955 /*anyblock*/
3956 {
3957
3958
3959
3960
3961 {
3962 MELT_LOCATION("warmelt-debug.melt:345:/ locexp");
3963 meltgc_add_out((melt_ptr_t)(/*_.OUT__V5*/ meltfptr[4]), ( " ?*nullgimple*?"));
3964 }
3965 ;
3966 /*clear*/ /*_._IFELSE___V48*/
3967 meltfptr[30] = 0 ;
3968 /*epilog*/
3969 }
3970 ;
3971 }
3972 ;
3973 /*epilog*/
3974 }
3975 ;
3976 }
3977 ;
3978 /*^compute*/
3979 /*_.LET___V46*/
3980 meltfptr[29] = /*_._IFELSE___V48*/ meltfptr[30];;
3981
3982 MELT_LOCATION("warmelt-debug.melt:339:/ clear");
3983 /*clear*/ /*_.GDF__V47*/
3984 meltfptr[31] = 0 ;
3985 /*^clear*/
3986 /*clear*/ /*_#IS_CLOSURE__L29*/
3987 meltfnum[20] = 0 ;
3988 /*^clear*/
3989 /*clear*/ /*_._IFELSE___V48*/
3990 meltfptr[30] = 0 ;
3991 /*epilog*/
3992
3993 MELT_LOCATION("warmelt-debug.melt:338:/ clear");
3994 /*clear*/ /*_?*/
3995 meltfram__.loc_GIMPLE__o9 = 0 ;
3996 /*^clear*/
3997 /*clear*/ /*_.LET___V46*/
3998 meltfptr[29] = 0 ;
3999 }
4000 ;
4001 }
4002 else /*^cond.else*/
4003 {
4004
4005 /*^block*/
4006 /*anyblock*/
4007 {
4008
4009 MELT_LOCATION("warmelt-debug.melt:346:/ cond");
4010 /*cond*/
4011 if (/*ifvariadic arg#1*/ variad_MELT_DEBUG_FUN_ix>=0 && variad_MELT_DEBUG_FUN_ix + 1 <= variad_MELT_DEBUG_FUN_len && meltxargdescr_[variad_MELT_DEBUG_FUN_ix]== MELTBPAR_GIMPLESEQ) /*then*/
4012 {
4013 /*^cond.then*/
4014 /*^block*/
4015 /*anyblock*/
4016 {
4017
4018 /*^compute*/
4019 /*_?*/ meltfram__.loc_GIMPLE_SEQ__o10 =
4020 /*variadic argument stuff*/ meltxargtab_[variad_MELT_DEBUG_FUN_ix + 0].meltbp_gimpleseq;;
4021 /*^compute*/
4022
4023 /*consume variadic GIMPLE_SEQ !*/
4024 variad_MELT_DEBUG_FUN_ix += 1;;
4025 MELT_LOCATION("warmelt-debug.melt:347:/ quasiblock");
4026
4027
4028 /*^cond*/
4029 /*cond*/
4030 if (
4031 /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!GIMPLESEQ_DEBUG_FUNCONT*/ meltfrout->tabval[14])),
4032 (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[12])))
4033 ) /*then*/
4034 {
4035 /*^cond.then*/
4036 /*^getslot*/
4037 {
4038 melt_ptr_t slot=NULL, obj=NULL;
4039 obj = (melt_ptr_t)((/*!GIMPLESEQ_DEBUG_FUNCONT*/ meltfrout->tabval[14])) /*=obj*/;
4040 melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE");
4041 /*_.GSDF__V51*/
4042 meltfptr[31] = slot;
4043 };
4044 ;
4045 }
4046 else /*^cond.else*/
4047 {
4048
4049 /*_.GSDF__V51*/ meltfptr[31] = /*reallynil*/ NULL ;;
4050 }
4051 ;
4052
4053 MELT_CHECK_SIGNAL();
4054 ;
4055 /*^compute*/
4056 /*_#IS_CLOSURE__L30*/
4057 meltfnum[18] =
4058 (melt_magic_discr((melt_ptr_t)(/*_.GSDF__V51*/ meltfptr[31])) == MELTOBMAG_CLOSURE);;
4059 MELT_LOCATION("warmelt-debug.melt:349:/ cond");
4060 /*cond*/
4061 if (/*_#IS_CLOSURE__L30*/ meltfnum[18]) /*then*/
4062 {
4063 /*^cond.then*/
4064 /*^block*/
4065 /*anyblock*/
4066 {
4067
4068
4069 MELT_CHECK_SIGNAL();
4070 ;
4071 MELT_LOCATION("warmelt-debug.melt:350:/ apply");
4072 /*apply*/
4073 {
4074 union meltparam_un argtab[1];
4075 memset(&argtab, 0, sizeof(argtab));
4076 /*^apply.arg*/
4077 argtab[0].meltbp_gimpleseq = /*_?*/ meltfram__.loc_GIMPLE_SEQ__o10;
4078 /*_.GSDF__V53*/
4079 meltfptr[29] = melt_apply ((meltclosure_ptr_t)(/*_.GSDF__V51*/ meltfptr[31]), (melt_ptr_t)(/*_.DBGI__V19*/ meltfptr[17]), (MELTBPARSTR_GIMPLESEQ ""), argtab, "", (union meltparam_un*)0);
4080 }
4081 ;
4082 /*_._IFELSE___V52*/
4083 meltfptr[30] = /*_.GSDF__V53*/ meltfptr[29];;
4084 /*epilog*/
4085
4086 MELT_LOCATION("warmelt-debug.melt:349:/ clear");
4087 /*clear*/ /*_.GSDF__V53*/
4088 meltfptr[29] = 0 ;
4089 }
4090 ;
4091 }
4092 else /*^cond.else*/
4093 {
4094
4095 /*^block*/
4096 /*anyblock*/
4097 {
4098
4099
4100 MELT_CHECK_SIGNAL();
4101 ;
4102 MELT_LOCATION("warmelt-debug.melt:351:/ cond");
4103 /*cond*/
4104 if (/*_?*/ meltfram__.loc_GIMPLE_SEQ__o10) /*then*/
4105 {
4106 /*^cond.then*/
4107 /*^block*/
4108 /*anyblock*/
4109 {
4110
4111
4112
4113
4114 {
4115 MELT_LOCATION("warmelt-debug.melt:352:/ locexp");
4116 meltgc_add_out((melt_ptr_t)(/*_.OUT__V5*/ meltfptr[4]), ( " ?*gimpleseq*?"));
4117 }
4118 ;
4119 /*clear*/ /*_._IFELSE___V52*/
4120 meltfptr[30] = 0 ;
4121 /*epilog*/
4122 }
4123 ;
4124 }
4125 else
4126 {
4127 MELT_LOCATION("warmelt-debug.melt:351:/ cond.else");
4128
4129 /*^block*/
4130 /*anyblock*/
4131 {
4132
4133
4134
4135
4136 {
4137 MELT_LOCATION("warmelt-debug.melt:353:/ locexp");
4138 meltgc_add_out((melt_ptr_t)(/*_.OUT__V5*/ meltfptr[4]), ( " ?*nullgimpleseq*?"));
4139 }
4140 ;
4141 /*clear*/ /*_._IFELSE___V52*/
4142 meltfptr[30] = 0 ;
4143 /*epilog*/
4144 }
4145 ;
4146 }
4147 ;
4148 /*epilog*/
4149 }
4150 ;
4151 }
4152 ;
4153 /*^compute*/
4154 /*_.LET___V50*/
4155 meltfptr[33] = /*_._IFELSE___V52*/ meltfptr[30];;
4156
4157 MELT_LOCATION("warmelt-debug.melt:347:/ clear");
4158 /*clear*/ /*_.GSDF__V51*/
4159 meltfptr[31] = 0 ;
4160 /*^clear*/
4161 /*clear*/ /*_#IS_CLOSURE__L30*/
4162 meltfnum[18] = 0 ;
4163 /*^clear*/
4164 /*clear*/ /*_._IFELSE___V52*/
4165 meltfptr[30] = 0 ;
4166 /*epilog*/
4167
4168 MELT_LOCATION("warmelt-debug.melt:346:/ clear");
4169 /*clear*/ /*_?*/
4170 meltfram__.loc_GIMPLE_SEQ__o10 = 0 ;
4171 /*^clear*/
4172 /*clear*/ /*_.LET___V50*/
4173 meltfptr[33] = 0 ;
4174 }
4175 ;
4176 }
4177 else /*^cond.else*/
4178 {
4179
4180 /*^block*/
4181 /*anyblock*/
4182 {
4183
4184 MELT_LOCATION("warmelt-debug.melt:354:/ cond");
4185 /*cond*/
4186 if (/*ifvariadic arg#1*/ variad_MELT_DEBUG_FUN_ix>=0 && variad_MELT_DEBUG_FUN_ix + 1 <= variad_MELT_DEBUG_FUN_len && meltxargdescr_[variad_MELT_DEBUG_FUN_ix]== MELTBPAR_EDGE) /*then*/
4187 {
4188 /*^cond.then*/
4189 /*^block*/
4190 /*anyblock*/
4191 {
4192
4193 /*^compute*/
4194 /*_?*/ meltfram__.loc_EDGE__o11 =
4195 /*variadic argument stuff*/ meltxargtab_[variad_MELT_DEBUG_FUN_ix + 0].meltbp_edge;;
4196 /*^compute*/
4197
4198 /*consume variadic EDGE !*/
4199 variad_MELT_DEBUG_FUN_ix += 1;;
4200 MELT_LOCATION("warmelt-debug.melt:355:/ quasiblock");
4201
4202
4203 /*^cond*/
4204 /*cond*/
4205 if (
4206 /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!EDGE_DEBUG_FUNCONT*/ meltfrout->tabval[15])),
4207 (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[12])))
4208 ) /*then*/
4209 {
4210 /*^cond.then*/
4211 /*^getslot*/
4212 {
4213 melt_ptr_t slot=NULL, obj=NULL;
4214 obj = (melt_ptr_t)((/*!EDGE_DEBUG_FUNCONT*/ meltfrout->tabval[15])) /*=obj*/;
4215 melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE");
4216 /*_.EDF__V55*/
4217 meltfptr[31] = slot;
4218 };
4219 ;
4220 }
4221 else /*^cond.else*/
4222 {
4223
4224 /*_.EDF__V55*/ meltfptr[31] = /*reallynil*/ NULL ;;
4225 }
4226 ;
4227
4228 MELT_CHECK_SIGNAL();
4229 ;
4230 /*^compute*/
4231 /*_#IS_CLOSURE__L31*/
4232 meltfnum[21] =
4233 (melt_magic_discr((melt_ptr_t)(/*_.EDF__V55*/ meltfptr[31])) == MELTOBMAG_CLOSURE);;
4234 MELT_LOCATION("warmelt-debug.melt:357:/ cond");
4235 /*cond*/
4236 if (/*_#IS_CLOSURE__L31*/ meltfnum[21]) /*then*/
4237 {
4238 /*^cond.then*/
4239 /*^block*/
4240 /*anyblock*/
4241 {
4242
4243
4244 MELT_CHECK_SIGNAL();
4245 ;
4246 MELT_LOCATION("warmelt-debug.melt:358:/ apply");
4247 /*apply*/
4248 {
4249 union meltparam_un argtab[1];
4250 memset(&argtab, 0, sizeof(argtab));
4251 /*^apply.arg*/
4252 argtab[0].meltbp_edge = /*_?*/ meltfram__.loc_EDGE__o11;
4253 /*_.EDF__V57*/
4254 meltfptr[33] = melt_apply ((meltclosure_ptr_t)(/*_.EDF__V55*/ meltfptr[31]), (melt_ptr_t)(/*_.DBGI__V19*/ meltfptr[17]), (MELTBPARSTR_EDGE ""), argtab, "", (union meltparam_un*)0);
4255 }
4256 ;
4257 /*_._IFELSE___V56*/
4258 meltfptr[30] = /*_.EDF__V57*/ meltfptr[33];;
4259 /*epilog*/
4260
4261 MELT_LOCATION("warmelt-debug.melt:357:/ clear");
4262 /*clear*/ /*_.EDF__V57*/
4263 meltfptr[33] = 0 ;
4264 }
4265 ;
4266 }
4267 else /*^cond.else*/
4268 {
4269
4270 /*^block*/
4271 /*anyblock*/
4272 {
4273
4274
4275 MELT_CHECK_SIGNAL();
4276 ;
4277 MELT_LOCATION("warmelt-debug.melt:359:/ cond");
4278 /*cond*/
4279 if (/*_?*/ meltfram__.loc_EDGE__o11) /*then*/
4280 {
4281 /*^cond.then*/
4282 /*^block*/
4283 /*anyblock*/
4284 {
4285
4286
4287
4288
4289 {
4290 MELT_LOCATION("warmelt-debug.melt:360:/ locexp");
4291 meltgc_add_out((melt_ptr_t)(/*_.OUT__V5*/ meltfptr[4]), ( " ?*edge*?"));
4292 }
4293 ;
4294 /*clear*/ /*_._IFELSE___V56*/
4295 meltfptr[30] = 0 ;
4296 /*epilog*/
4297 }
4298 ;
4299 }
4300 else
4301 {
4302 MELT_LOCATION("warmelt-debug.melt:359:/ cond.else");
4303
4304 /*^block*/
4305 /*anyblock*/
4306 {
4307
4308
4309
4310
4311 {
4312 MELT_LOCATION("warmelt-debug.melt:361:/ locexp");
4313 meltgc_add_out((melt_ptr_t)(/*_.OUT__V5*/ meltfptr[4]), ( " ?*nulledge*?"));
4314 }
4315 ;
4316 /*clear*/ /*_._IFELSE___V56*/
4317 meltfptr[30] = 0 ;
4318 /*epilog*/
4319 }
4320 ;
4321 }
4322 ;
4323 /*epilog*/
4324 }
4325 ;
4326 }
4327 ;
4328 /*^compute*/
4329 /*_.LET___V54*/
4330 meltfptr[29] = /*_._IFELSE___V56*/ meltfptr[30];;
4331
4332 MELT_LOCATION("warmelt-debug.melt:355:/ clear");
4333 /*clear*/ /*_.EDF__V55*/
4334 meltfptr[31] = 0 ;
4335 /*^clear*/
4336 /*clear*/ /*_#IS_CLOSURE__L31*/
4337 meltfnum[21] = 0 ;
4338 /*^clear*/
4339 /*clear*/ /*_._IFELSE___V56*/
4340 meltfptr[30] = 0 ;
4341 /*epilog*/
4342
4343 MELT_LOCATION("warmelt-debug.melt:354:/ clear");
4344 /*clear*/ /*_?*/
4345 meltfram__.loc_EDGE__o11 = 0 ;
4346 /*^clear*/
4347 /*clear*/ /*_.LET___V54*/
4348 meltfptr[29] = 0 ;
4349 }
4350 ;
4351 }
4352 else /*^cond.else*/
4353 {
4354
4355 /*^block*/
4356 /*anyblock*/
4357 {
4358
4359 MELT_LOCATION("warmelt-debug.melt:362:/ cond");
4360 /*cond*/
4361 if (/*ifvariadic arg#1*/ variad_MELT_DEBUG_FUN_ix>=0 && variad_MELT_DEBUG_FUN_ix + 1 <= variad_MELT_DEBUG_FUN_len && meltxargdescr_[variad_MELT_DEBUG_FUN_ix]== MELTBPAR_BB) /*then*/
4362 {
4363 /*^cond.then*/
4364 /*^block*/
4365 /*anyblock*/
4366 {
4367
4368 /*^compute*/
4369 /*_?*/ meltfram__.loc_BASIC_BLOCK__o12 =
4370 /*variadic argument stuff*/ meltxargtab_[variad_MELT_DEBUG_FUN_ix + 0].meltbp_bb;;
4371 /*^compute*/
4372
4373 /*consume variadic BASIC_BLOCK !*/
4374 variad_MELT_DEBUG_FUN_ix += 1;;
4375 MELT_LOCATION("warmelt-debug.melt:363:/ quasiblock");
4376
4377
4378 /*^cond*/
4379 /*cond*/
4380 if (
4381 /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!BASICBLOCK_DEBUG_FUNCONT*/ meltfrout->tabval[16])),
4382 (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[12])))
4383 ) /*then*/
4384 {
4385 /*^cond.then*/
4386 /*^getslot*/
4387 {
4388 melt_ptr_t slot=NULL, obj=NULL;
4389 obj = (melt_ptr_t)((/*!BASICBLOCK_DEBUG_FUNCONT*/ meltfrout->tabval[16])) /*=obj*/;
4390 melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE");
4391 /*_.BDF__V59*/
4392 meltfptr[31] = slot;
4393 };
4394 ;
4395 }
4396 else /*^cond.else*/
4397 {
4398
4399 /*_.BDF__V59*/ meltfptr[31] = /*reallynil*/ NULL ;;
4400 }
4401 ;
4402
4403 MELT_CHECK_SIGNAL();
4404 ;
4405 /*^compute*/
4406 /*_#IS_CLOSURE__L32*/
4407 meltfnum[20] =
4408 (melt_magic_discr((melt_ptr_t)(/*_.BDF__V59*/ meltfptr[31])) == MELTOBMAG_CLOSURE);;
4409 MELT_LOCATION("warmelt-debug.melt:365:/ cond");
4410 /*cond*/
4411 if (/*_#IS_CLOSURE__L32*/ meltfnum[20]) /*then*/
4412 {
4413 /*^cond.then*/
4414 /*^block*/
4415 /*anyblock*/
4416 {
4417
4418
4419 MELT_CHECK_SIGNAL();
4420 ;
4421 MELT_LOCATION("warmelt-debug.melt:366:/ apply");
4422 /*apply*/
4423 {
4424 union meltparam_un argtab[1];
4425 memset(&argtab, 0, sizeof(argtab));
4426 /*^apply.arg*/
4427 argtab[0].meltbp_bb = /*_?*/ meltfram__.loc_BASIC_BLOCK__o12;
4428 /*_.BDF__V61*/
4429 meltfptr[29] = melt_apply ((meltclosure_ptr_t)(/*_.BDF__V59*/ meltfptr[31]), (melt_ptr_t)(/*_.DBGI__V19*/ meltfptr[17]), (MELTBPARSTR_BB ""), argtab, "", (union meltparam_un*)0);
4430 }
4431 ;
4432 /*_._IFELSE___V60*/
4433 meltfptr[30] = /*_.BDF__V61*/ meltfptr[29];;
4434 /*epilog*/
4435
4436 MELT_LOCATION("warmelt-debug.melt:365:/ clear");
4437 /*clear*/ /*_.BDF__V61*/
4438 meltfptr[29] = 0 ;
4439 }
4440 ;
4441 }
4442 else /*^cond.else*/
4443 {
4444
4445 /*^block*/
4446 /*anyblock*/
4447 {
4448
4449
4450 MELT_CHECK_SIGNAL();
4451 ;
4452 MELT_LOCATION("warmelt-debug.melt:367:/ cond");
4453 /*cond*/
4454 if (/*_?*/ meltfram__.loc_BASIC_BLOCK__o12) /*then*/
4455 {
4456 /*^cond.then*/
4457 /*^block*/
4458 /*anyblock*/
4459 {
4460
4461
4462
4463
4464 {
4465 MELT_LOCATION("warmelt-debug.melt:368:/ locexp");
4466 meltgc_add_out((melt_ptr_t)(/*_.OUT__V5*/ meltfptr[4]), ( " ?*basicblock*?"));
4467 }
4468 ;
4469 /*clear*/ /*_._IFELSE___V60*/
4470 meltfptr[30] = 0 ;
4471 /*epilog*/
4472 }
4473 ;
4474 }
4475 else
4476 {
4477 MELT_LOCATION("warmelt-debug.melt:367:/ cond.else");
4478
4479 /*^block*/
4480 /*anyblock*/
4481 {
4482
4483
4484
4485
4486 {
4487 MELT_LOCATION("warmelt-debug.melt:369:/ locexp");
4488 meltgc_add_out((melt_ptr_t)(/*_.OUT__V5*/ meltfptr[4]), ( " ?*nullbasicblock*?"));
4489 }
4490 ;
4491 /*clear*/ /*_._IFELSE___V60*/
4492 meltfptr[30] = 0 ;
4493 /*epilog*/
4494 }
4495 ;
4496 }
4497 ;
4498 /*epilog*/
4499 }
4500 ;
4501 }
4502 ;
4503 /*^compute*/
4504 /*_.LET___V58*/
4505 meltfptr[33] = /*_._IFELSE___V60*/ meltfptr[30];;
4506
4507 MELT_LOCATION("warmelt-debug.melt:363:/ clear");
4508 /*clear*/ /*_.BDF__V59*/
4509 meltfptr[31] = 0 ;
4510 /*^clear*/
4511 /*clear*/ /*_#IS_CLOSURE__L32*/
4512 meltfnum[20] = 0 ;
4513 /*^clear*/
4514 /*clear*/ /*_._IFELSE___V60*/
4515 meltfptr[30] = 0 ;
4516 /*epilog*/
4517
4518 MELT_LOCATION("warmelt-debug.melt:362:/ clear");
4519 /*clear*/ /*_?*/
4520 meltfram__.loc_BASIC_BLOCK__o12 = 0 ;
4521 /*^clear*/
4522 /*clear*/ /*_.LET___V58*/
4523 meltfptr[33] = 0 ;
4524 }
4525 ;
4526 }
4527 else /*^cond.else*/
4528 {
4529
4530 /*^block*/
4531 /*anyblock*/
4532 {
4533
4534 MELT_LOCATION("warmelt-debug.melt:370:/ cond");
4535 /*cond*/
4536 if (/*ifvariadic arg#1*/ variad_MELT_DEBUG_FUN_ix>=0 && variad_MELT_DEBUG_FUN_ix + 1 <= variad_MELT_DEBUG_FUN_len && meltxargdescr_[variad_MELT_DEBUG_FUN_ix]== MELTBPAR_LOOP) /*then*/
4537 {
4538 /*^cond.then*/
4539 /*^block*/
4540 /*anyblock*/
4541 {
4542
4543 /*^compute*/
4544 /*_?*/ meltfram__.loc_LOOP__o13 =
4545 /*variadic argument stuff*/ meltxargtab_[variad_MELT_DEBUG_FUN_ix + 0].meltbp_loop;;
4546 /*^compute*/
4547
4548 /*consume variadic LOOP !*/
4549 variad_MELT_DEBUG_FUN_ix += 1;;
4550 MELT_LOCATION("warmelt-debug.melt:371:/ quasiblock");
4551
4552
4553 /*^cond*/
4554 /*cond*/
4555 if (
4556 /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!LOOP_DEBUG_FUNCONT*/ meltfrout->tabval[17])),
4557 (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[12])))
4558 ) /*then*/
4559 {
4560 /*^cond.then*/
4561 /*^getslot*/
4562 {
4563 melt_ptr_t slot=NULL, obj=NULL;
4564 obj = (melt_ptr_t)((/*!LOOP_DEBUG_FUNCONT*/ meltfrout->tabval[17])) /*=obj*/;
4565 melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE");
4566 /*_.LDF__V63*/
4567 meltfptr[31] = slot;
4568 };
4569 ;
4570 }
4571 else /*^cond.else*/
4572 {
4573
4574 /*_.LDF__V63*/ meltfptr[31] = /*reallynil*/ NULL ;;
4575 }
4576 ;
4577
4578 MELT_CHECK_SIGNAL();
4579 ;
4580 /*^compute*/
4581 /*_#IS_CLOSURE__L33*/
4582 meltfnum[18] =
4583 (melt_magic_discr((melt_ptr_t)(/*_.LDF__V63*/ meltfptr[31])) == MELTOBMAG_CLOSURE);;
4584 MELT_LOCATION("warmelt-debug.melt:373:/ cond");
4585 /*cond*/
4586 if (/*_#IS_CLOSURE__L33*/ meltfnum[18]) /*then*/
4587 {
4588 /*^cond.then*/
4589 /*^block*/
4590 /*anyblock*/
4591 {
4592
4593
4594 MELT_CHECK_SIGNAL();
4595 ;
4596 MELT_LOCATION("warmelt-debug.melt:374:/ apply");
4597 /*apply*/
4598 {
4599 union meltparam_un argtab[1];
4600 memset(&argtab, 0, sizeof(argtab));
4601 /*^apply.arg*/
4602 argtab[0].meltbp_loop = /*_?*/ meltfram__.loc_LOOP__o13;
4603 /*_.LDF__V65*/
4604 meltfptr[33] = melt_apply ((meltclosure_ptr_t)(/*_.LDF__V63*/ meltfptr[31]), (melt_ptr_t)(/*_.DBGI__V19*/ meltfptr[17]), (MELTBPARSTR_LOOP ""), argtab, "", (union meltparam_un*)0);
4605 }
4606 ;
4607 /*_._IFELSE___V64*/
4608 meltfptr[30] = /*_.LDF__V65*/ meltfptr[33];;
4609 /*epilog*/
4610
4611 MELT_LOCATION("warmelt-debug.melt:373:/ clear");
4612 /*clear*/ /*_.LDF__V65*/
4613 meltfptr[33] = 0 ;
4614 }
4615 ;
4616 }
4617 else /*^cond.else*/
4618 {
4619
4620 /*^block*/
4621 /*anyblock*/
4622 {
4623
4624
4625 MELT_CHECK_SIGNAL();
4626 ;
4627 MELT_LOCATION("warmelt-debug.melt:375:/ cond");
4628 /*cond*/
4629 if (/*_?*/ meltfram__.loc_LOOP__o13) /*then*/
4630 {
4631 /*^cond.then*/
4632 /*^block*/
4633 /*anyblock*/
4634 {
4635
4636
4637
4638
4639 {
4640 MELT_LOCATION("warmelt-debug.melt:376:/ locexp");
4641 meltgc_add_out((melt_ptr_t)(/*_.OUT__V5*/ meltfptr[4]), ( " ?*loop*?"));
4642 }
4643 ;
4644 /*clear*/ /*_._IFELSE___V64*/
4645 meltfptr[30] = 0 ;
4646 /*epilog*/
4647 }
4648 ;
4649 }
4650 else
4651 {
4652 MELT_LOCATION("warmelt-debug.melt:375:/ cond.else");
4653
4654 /*^block*/
4655 /*anyblock*/
4656 {
4657
4658
4659
4660
4661 {
4662 MELT_LOCATION("warmelt-debug.melt:377:/ locexp");
4663 meltgc_add_out((melt_ptr_t)(/*_.OUT__V5*/ meltfptr[4]), ( " ?*loop*?"));
4664 }
4665 ;
4666 /*clear*/ /*_._IFELSE___V64*/
4667 meltfptr[30] = 0 ;
4668 /*epilog*/
4669 }
4670 ;
4671 }
4672 ;
4673 /*epilog*/
4674 }
4675 ;
4676 }
4677 ;
4678 /*^compute*/
4679 /*_.LET___V62*/
4680 meltfptr[29] = /*_._IFELSE___V64*/ meltfptr[30];;
4681
4682 MELT_LOCATION("warmelt-debug.melt:371:/ clear");
4683 /*clear*/ /*_.LDF__V63*/
4684 meltfptr[31] = 0 ;
4685 /*^clear*/
4686 /*clear*/ /*_#IS_CLOSURE__L33*/
4687 meltfnum[18] = 0 ;
4688 /*^clear*/
4689 /*clear*/ /*_._IFELSE___V64*/
4690 meltfptr[30] = 0 ;
4691 /*epilog*/
4692
4693 MELT_LOCATION("warmelt-debug.melt:370:/ clear");
4694 /*clear*/ /*_?*/
4695 meltfram__.loc_LOOP__o13 = 0 ;
4696 /*^clear*/
4697 /*clear*/ /*_.LET___V62*/
4698 meltfptr[29] = 0 ;
4699 }
4700 ;
4701 }
4702 else /*^cond.else*/
4703 {
4704
4705 /*^block*/
4706 /*anyblock*/
4707 {
4708
4709 MELT_LOCATION("warmelt-debug.melt:379:/ quasiblock");
4710
4711
4712 /*_.VCTYP__V67*/
4713 meltfptr[31] =
4714 /*variadic_type_code*/
4715 #ifdef melt_variadic_index
4716 (((melt_variadic_index + 0) >= 0
4717 && (melt_variadic_index + 0) < melt_variadic_length)
4718 ? melt_code_to_ctype (meltxargdescr_[melt_variadic_index + 0]
4719 & MELT_ARGDESCR_MAX)
4720 : NULL)
4721 #else
4722 NULL /* no variadic_ctype outside of variadic functions */
4723 #endif /*melt_variadic_index*/
4724 ;;
4725 MELT_LOCATION("warmelt-debug.melt:380:/ cond");
4726 /*cond*/
4727 if (
4728 /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.VCTYP__V67*/ meltfptr[31]),
4729 (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[18])))
4730 ) /*then*/
4731 {
4732 /*^cond.then*/
4733 /*^getslot*/
4734 {
4735 melt_ptr_t slot=NULL, obj=NULL;
4736 obj = (melt_ptr_t)(/*_.VCTYP__V67*/ meltfptr[31]) /*=obj*/;
4737 melt_object_get_field(slot,obj, 1, "NAMED_NAME");
4738 /*_.VCTYPNAME__V68*/
4739 meltfptr[30] = slot;
4740 };
4741 ;
4742 }
4743 else /*^cond.else*/
4744 {
4745
4746 /*_.VCTYPNAME__V68*/ meltfptr[30] = /*reallynil*/ NULL ;;
4747 }
4748 ;
4749
4750 {
4751 MELT_LOCATION("warmelt-debug.melt:382:/ locexp");
4752 /* WARNBADCTYPE__1 */
4753 warning (0,
4754 "MELT invalid ctype %s in (DEBUG ...) file %s line %d",
4755 melt_string_str ((melt_ptr_t) /*_.VCTYPNAME__V68*/ meltfptr[30]),
4756 /*_?*/ meltfram__.loc_CSTRING__o0, (int) /*_#LINENO__L2*/ meltfnum[1]) ;
4757 ;
4758 }
4759 ;
4760 MELT_LOCATION("warmelt-debug.melt:388:/ cond");
4761 /*cond*/
4762 if (
4763 /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.VCTYP__V67*/ meltfptr[31]),
4764 (melt_ptr_t)((/*!CLASS_QUASI_CTYPE*/ meltfrout->tabval[19])))
4765 ) /*then*/
4766 {
4767 /*^cond.then*/
4768 /*^getslot*/
4769 {
4770 melt_ptr_t slot=NULL, obj=NULL;
4771 obj = (melt_ptr_t)(/*_.VCTYP__V67*/ meltfptr[31]) /*=obj*/;
4772 melt_object_get_field(slot,obj, 2, "CTYPE_KEYWORD");
4773 /*_.CTYPE_KEYWORD__V69*/
4774 meltfptr[29] = slot;
4775 };
4776 ;
4777 }
4778 else /*^cond.else*/
4779 {
4780
4781 /*_.CTYPE_KEYWORD__V69*/ meltfptr[29] = /*reallynil*/ NULL ;;
4782 }
4783 ;
4784
4785 MELT_CHECK_SIGNAL();
4786 ;
4787 MELT_LOCATION("warmelt-debug.melt:388:/ apply");
4788 /*apply*/
4789 {
4790 union meltparam_un argtab[3];
4791 memset(&argtab, 0, sizeof(argtab));
4792 /*^apply.arg*/
4793 argtab[0].meltbp_cstring = "??:";
4794 /*^apply.arg*/
4795 argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.CTYPE_KEYWORD__V69*/ meltfptr[29];
4796 /*^apply.arg*/
4797 argtab[2].meltbp_cstring = "?? ";
4798 /*_.ADD2OUT__V70*/
4799 meltfptr[69] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.OUT__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
4800 }
4801 ;
4802 /*_.LET___V66*/
4803 meltfptr[33] = /*_.ADD2OUT__V70*/ meltfptr[69];;
4804
4805 MELT_LOCATION("warmelt-debug.melt:379:/ clear");
4806 /*clear*/ /*_.VCTYP__V67*/
4807 meltfptr[31] = 0 ;
4808 /*^clear*/
4809 /*clear*/ /*_.VCTYPNAME__V68*/
4810 meltfptr[30] = 0 ;
4811 /*^clear*/
4812 /*clear*/ /*_.CTYPE_KEYWORD__V69*/
4813 meltfptr[29] = 0 ;
4814 /*^clear*/
4815 /*clear*/ /*_.ADD2OUT__V70*/
4816 meltfptr[69] = 0 ;
4817 /*epilog*/
4818
4819 MELT_LOCATION("warmelt-debug.melt:370:/ clear");
4820 /*clear*/ /*_.LET___V66*/
4821 meltfptr[33] = 0 ;
4822 }
4823 ;
4824 }
4825 ;
4826 /*epilog*/
4827 }
4828 ;
4829 }
4830 ;
4831 /*epilog*/
4832 }
4833 ;
4834 }
4835 ;
4836 /*epilog*/
4837 }
4838 ;
4839 }
4840 ;
4841 /*epilog*/
4842 }
4843 ;
4844 }
4845 ;
4846 /*epilog*/
4847 }
4848 ;
4849 }
4850 ;
4851 /*epilog*/
4852 }
4853 ;
4854 }
4855 ;
4856 /*epilog*/
4857 }
4858 ;
4859 }
4860 ;
4861 /*epilog*/
4862 }
4863 ;
4864 }
4865 ;
4866 /*epilog*/
4867 }
4868 ;
4869 }
4870 ;
4871 /*_#OUTPUT_LENGTH__L34*/
4872 meltfnum[21] =
4873 melt_output_length ((melt_ptr_t)/*_.OUT__V5*/ meltfptr[4]);;
4874 MELT_LOCATION("warmelt-debug.melt:390:/ compute");
4875 /*_#OUTLEN__L12*/
4876 meltfnum[9] = /*_#SETQ___L35*/ meltfnum[20] = /*_#OUTPUT_LENGTH__L34*/ meltfnum[21];;
4877
4878 MELT_CHECK_SIGNAL();
4879 ;
4880 /*epilog*/
4881
4882 MELT_LOCATION("warmelt-debug.melt:278:/ clear");
4883 /*clear*/ /*_#OUTPUT_LENGTH__L34*/
4884 meltfnum[21] = 0 ;
4885 /*^clear*/
4886 /*clear*/ /*_#SETQ___L35*/
4887 meltfnum[20] = 0 ;
4888 }
4889 ;
4890 ;
4891 goto meltlabloop_ARGLOOP_1;
4892 meltlabexit_ARGLOOP_1:;/*^loopepilog*/
4893 /*loopepilog*/
4894 /*_.FOREVER___V28*/
4895 meltfptr[25] = /*_.ARGLOOP__V29*/ meltfptr[26];;
4896 }
4897 ;
4898
4899 MELT_CHECK_SIGNAL();
4900 ;
4901 /*^compute*/
4902 /*_#plI__L36*/
4903 meltfnum[18] =
4904 ((/*_#INITOUTLEN__L14*/ meltfnum[13]) + (200));;
4905 /*^compute*/
4906 /*_#gtI__L37*/
4907 meltfnum[21] =
4908 ((/*_#OUTLEN__L12*/ meltfnum[9]) > (/*_#plI__L36*/ meltfnum[18]));;
4909 MELT_LOCATION("warmelt-debug.melt:394:/ cond");
4910 /*cond*/
4911 if (/*_#gtI__L37*/ meltfnum[21]) /*then*/
4912 {
4913 /*^cond.then*/
4914 /*^block*/
4915 /*anyblock*/
4916 {
4917
4918
4919 {
4920 MELT_LOCATION("warmelt-debug.melt:395:/ locexp");
4921 meltgc_add_out((melt_ptr_t)(/*_.OUT__V5*/ meltfptr[4]), ( " .##."));
4922 }
4923 ;
4924
4925 {
4926 MELT_LOCATION("warmelt-debug.melt:396:/ locexp");
4927 meltgc_out_add_indent((melt_ptr_t)(/*_.OUT__V5*/ meltfptr[4]), (0), 0);;
4928 }
4929 ;
4930 MELT_LOCATION("warmelt-debug.melt:394:/ quasiblock");
4931
4932
4933 /*epilog*/
4934 }
4935 ;
4936 } /*noelse*/
4937 ;
4938
4939 {
4940 MELT_LOCATION("warmelt-debug.melt:397:/ locexp");
4941 meltgc_out_add_indent((melt_ptr_t)(/*_.OUT__V5*/ meltfptr[4]), (0), 0);;
4942 }
4943 ;
4944
4945 {
4946 MELT_LOCATION("warmelt-debug.melt:399:/ locexp");
4947 /* melt_debug_fun FINALFLUSH_CHK__1 */
4948 melt_flush (melt_get_file (/*_.OUT__V5*/ meltfptr[4]));
4949 ;
4950 }
4951 ;
4952
4953 MELT_LOCATION("warmelt-debug.melt:239:/ clear");
4954 /*clear*/ /*_.DBGI__V19*/
4955 meltfptr[17] = 0 ;
4956 /*^clear*/
4957 /*clear*/ /*_#FRAMDEPTH__L11*/
4958 meltfnum[7] = 0 ;
4959 /*^clear*/
4960 /*clear*/ /*_#OUTLEN__L12*/
4961 meltfnum[9] = 0 ;
4962 /*^clear*/
4963 /*clear*/ /*_#LASTSTROUTLEN__L13*/
4964 meltfnum[12] = 0 ;
4965 /*^clear*/
4966 /*clear*/ /*_#INITOUTLEN__L14*/
4967 meltfnum[13] = 0 ;
4968 /*^clear*/
4969 /*clear*/ /*_#pcIRAW__L15*/
4970 meltfnum[14] = 0 ;
4971 /*^clear*/
4972 /*clear*/ /*_#NOT__L16*/
4973 meltfnum[15] = 0 ;
4974 /*^clear*/
4975 /*clear*/ /*_#miI__L17*/
4976 meltfnum[16] = 0 ;
4977 /*^clear*/
4978 /*clear*/ /*_.ADD2OUT__V22*/
4979 meltfptr[20] = 0 ;
4980 /*^clear*/
4981 /*clear*/ /*_._IF___V23*/
4982 meltfptr[22] = 0 ;
4983 /*^clear*/
4984 /*clear*/ /*_#gtI__L18*/
4985 meltfnum[17] = 0 ;
4986 /*^clear*/
4987 /*clear*/ /*_._IF___V25*/
4988 meltfptr[23] = 0 ;
4989 /*^clear*/
4990 /*clear*/ /*_.FOREVER___V28*/
4991 meltfptr[25] = 0 ;
4992 /*^clear*/
4993 /*clear*/ /*_#plI__L36*/
4994 meltfnum[18] = 0 ;
4995 /*^clear*/
4996 /*clear*/ /*_#gtI__L37*/
4997 meltfnum[21] = 0 ;
4998 /* block_signals meltcit1__BLKSIGNAL end */
4999 melt_blocklevel_signals = meltcit1__BLKSIGNAL_lev;
5000 MELT_CHECK_SIGNAL();
5001
5002
5003 /*citerepilog*/
5004 } /*endciterblock BLOCK_SIGNALS*/
5005 ;
5006
5007 MELT_LOCATION("warmelt-debug.melt:201:/ clear");
5008 /*clear*/ /*_#DBGCOUNTER__L4*/
5009 meltfnum[3] = 0 ;
5010 /*^clear*/
5011 /*clear*/ /*_.DUMPF__V3*/
5012 meltfptr[2] = 0 ;
5013 /*^clear*/
5014 /*clear*/ /*_.STDERRF__V4*/
5015 meltfptr[3] = 0 ;
5016 /*^clear*/
5017 /*clear*/ /*_.OUT__V5*/
5018 meltfptr[4] = 0 ;
5019 /*^clear*/
5020 /*clear*/ /*_.OCCMAP__V6*/
5021 meltfptr[5] = 0 ;
5022 /*^clear*/
5023 /*clear*/ /*_#DEBUG_DEPTH__L5*/
5024 meltfnum[4] = 0 ;
5025 /*^clear*/
5026 /*clear*/ /*_.BOXEDMAXDEPTH__V7*/
5027 meltfptr[6] = 0 ;
5028 /*^clear*/
5029 /*clear*/ /*_#NULL__L6*/
5030 meltfnum[5] = 0 ;
5031 /*^clear*/
5032 /*clear*/ /*_._IF___V8*/
5033 meltfptr[7] = 0 ;
5034 /*^clear*/
5035 /*clear*/ /*_#NULL__L7*/
5036 meltfnum[6] = 0 ;
5037 /*^clear*/
5038 /*clear*/ /*_._IF___V10*/
5039 meltfptr[8] = 0 ;
5040 /*^clear*/
5041 /*clear*/ /*_.IFCPP___V13*/
5042 meltfptr[10] = 0 ;
5043 /*^clear*/
5044 /*clear*/ /*_.IFCPP___V16*/
5045 meltfptr[14] = 0 ;
5046 /*epilog*/
5047 }
5048 ;
5049 } /*noelse*/
5050 ;
5051 /*epilog*/
5052
5053 MELT_LOCATION("warmelt-debug.melt:199:/ clear");
5054 /*clear*/ /*_#MELT_HAS_FLAG_DEBUG_SET__L3*/
5055 meltfnum[2] = 0 ;
5056 }
5057
5058 ;
5059 goto meltlabend_rout;
5060 meltlabend_rout:
5061 melt_trace_end("MELT_DEBUG_FUN", meltcallcount);
5062 melt_blocklevel_signals = current_blocklevel_signals_meltrout_7_WARMELTmiDEBUG_MELT_DEBUG_FUN_melt;
5063 return (melt_ptr_t)(/*noretval*/ NULL);
5064 #undef melt_variadic_length
5065 #undef melt_variadic_index
5066
5067 #undef meltcallcount
5068 #undef meltfram__
5069 #undef MELTFRAM_NBVARNUM
5070 #undef MELTFRAM_NBVARPTR
5071 } /*end meltrout_7_WARMELTmiDEBUG_MELT_DEBUG_FUN*/
5072
5073
5074
5075
5076
5077
5078
5079 /****** emitted syntax checking for C generating devices *****/
5080 #if MELT_HAVE_DEBUG
5081
5082 /* generated syntax checking routine for 4 C generating devices */
5083 MELT_EXTERN void MELT_MODULE_VISIBILITY melt_syntax_tester_WARMELTmiDEBUG (void);
5084
5085 void
5086 melt_syntax_tester_WARMELTmiDEBUG (void)
5087 {
5088 if (1) return;
5089 #define meltcallcount -1L /* in melt_syntax_tester_WARMELTmiDEBUG */
5090
5091
5092 /* generating device #1 */
5093 /*primitive-syntax DEBUG_DEPTH*/
5094 {
5095 long primres_0 =
5096 (long) (melt_debug_depth ());
5097 if (primres_0) return;
5098 } /*end primitive-syntax DEBUG_DEPTH*/
5099
5100
5101
5102 /* generating device #2 */
5103 /*primitive-syntax MELT_REALLY_NEED_DEBUG*/
5104 {
5105 long meltprimf_0_DEPTH =0;
5106 long primres_1 =
5107 /*MELT_REALLY_NEED_DEBUG*/ (melt_need_debug ((int) meltprimf_0_DEPTH));
5108 if (primres_1) return;
5109 } /*end primitive-syntax MELT_REALLY_NEED_DEBUG*/
5110
5111
5112
5113 /* generating device #3 */
5114 /*primitive-syntax MELT_HAS_FLAG_DEBUG_SET*/
5115 {
5116 long primres_2 =
5117 /*MELT_HAS_FLAG_DEBUG_SET*/ melt_flag_debug;
5118 if (primres_2) return;
5119 } /*end primitive-syntax MELT_HAS_FLAG_DEBUG_SET*/
5120
5121
5122
5123 /* generating device #4 */
5124 /*primitive-syntax MELT_REALLY_NEED_DBGLIM*/
5125 {
5126 long meltprimf_0_DEPTH =0;
5127 long meltprimf_1_LIMIT =0;
5128 long primres_3 =
5129 ( /*MELT_REALLY_NEED_DBGLIM*/ melt_need_debug_limit ((int) meltprimf_0_DEPTH, (int) meltprimf_1_LIMIT));
5130 if (primres_3) return;
5131 } /*end primitive-syntax MELT_REALLY_NEED_DBGLIM*/
5132
5133
5134 } /* end generated melt_syntax_tester_WARMELTmiDEBUG */
5135 #endif /*MELT_HAVE_DEBUG syntaxcheck*/
5136
5137
5138
5139
5140 const char melt_module_is_gpl_compatible[]= "warmelt-debug: GPLv3+";
5141
5142 /* the frame for initial routine */
5143 /** start of frame for melt_start_this_module of CLASS_INITIAL_MODULE_ROUTINEOBJ from 1555**/
5144
5145 /*curframdeclclassy*/
5146 class Melt_InitialClassyFrame_WARMELTmiDEBUG_h640816647// fromline 1568
5147 : public Melt_CallFrameWithValues<444>
5148 {
5149 public: /* fromline 1572*/
5150 // no classy longs
5151 /*classy others*/
5152 long _meltsparel;
5153 void melt_mark_stuff (void)
5154 {
5155 } /*end melt_mark_stuff*/
5156 virtual void melt_mark_ggc_data (void)
5157 {
5158 melt_mark_values ();
5159 melt_mark_stuff ();
5160 }; /*end melt_mark_ggc_data*/
5161 Melt_InitialClassyFrame_WARMELTmiDEBUG_h640816647(meltclosure_ptr_t clos) //the closure constructor fromline 1630
5162 : Melt_CallFrameWithValues<444> (
5163 #if ENABLE_CHECKING /*fromline 1634*/
5164 __FILE__, __LINE__,
5165 #endif /* ENABLE_CHECKING fromline 1638*/
5166 sizeof(Melt_InitialClassyFrame_WARMELTmiDEBUG_h640816647), clos) {};
5167 Melt_InitialClassyFrame_WARMELTmiDEBUG_h640816647() //the constructor fromline 1642
5168 : Melt_CallFrameWithValues<444> (
5169 #if ENABLE_CHECKING /*fromline 1646*/
5170 __FILE__, __LINE__,
5171 #endif /* ENABLE_CHECKING fromline 1650*/
5172 sizeof(Melt_InitialClassyFrame_WARMELTmiDEBUG_h640816647)) {};
5173 #if ENABLE_CHECKING /*fromline 1654*/
5174 Melt_InitialClassyFrame_WARMELTmiDEBUG_h640816647(const char*fil, int lin) //the constructor fromline 1656
5175 : Melt_CallFrameWithValues<444> (fil,lin, sizeof(Melt_InitialClassyFrame_WARMELTmiDEBUG_h640816647)) {};
5176 #endif /* ENABLE_CHECKING fromline 1666*/
5177
5178 }; // end class Melt_InitialClassyFrame_WARMELTmiDEBUG_h640816647
5179
5180
5181 /** end of frame for melt_start_this_module fromline 1697**/
5182
5183
5184
5185 static void melt_initialize_module_meltdata_WARMELTmiDEBUG (meltinitial_frame_t *iniframp__, char meltpredefinited[])
5186 {
5187 #define meltfram__ (*iniframp__)
5188
5189 /* curframe_cdat_struct */ struct meltcdata_st
5190 {
5191 void* meltcdata_inigap[2]; /* could help debugging */
5192
5193 struct MELT_OBJECT_STRUCT(3) dsym_1__HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER;
5194 struct MELT_STRING_STRUCT(38) dstr_2__HOOK_FRESH_ENVIRONMENT_R;
5195 struct MELT_OBJECT_STRUCT(3) dsym_3__CLASS_DEBUG_INFORMATION;
5196 struct MELT_STRING_STRUCT(23) dstr_4__CLASS_DEBUG_INFORMATION;
5197 struct MELT_OBJECT_STRUCT(3) dsym_5__CLASS_ROOT;
5198 struct MELT_STRING_STRUCT(10) dstr_6__CLASS_ROOT;
5199 struct MELT_OBJECT_STRUCT(8) dobj_7__CLASS_DEBUG_INFORMATION;
5200 struct MELT_STRING_STRUCT(23) dstr_8__CLASS_DEBUG_INFORMATION;
5201 struct MELT_MULTIPLE_STRUCT(1) dtup_9_syCLASS_DEBUG_INFORMATION;
5202 struct MELT_MULTIPLE_STRUCT(3) dtup_10_syCLASS_DEBUG_INFORMATION;
5203 struct MELT_OBJECT_STRUCT(3) dsym_11__DBGI_OUT;
5204 struct MELT_STRING_STRUCT(8) dstr_12__DBGI_OUT;
5205 struct MELT_OBJECT_STRUCT(4) dobj_13__DBGI_OUT;
5206 struct MELT_STRING_STRUCT(8) dstr_14__DBGI_OUT;
5207 struct MELT_OBJECT_STRUCT(3) dsym_15__DBGI_OCCMAP;
5208 struct MELT_STRING_STRUCT(11) dstr_16__DBGI_OCCMAP;
5209 struct MELT_OBJECT_STRUCT(4) dobj_17__DBGI_OCCMAP;
5210 struct MELT_STRING_STRUCT(11) dstr_18__DBGI_OCCMAP;
5211 struct MELT_OBJECT_STRUCT(3) dsym_19__DBGI_MAXDEPTH;
5212 struct MELT_STRING_STRUCT(13) dstr_20__DBGI_MAXDEPTH;
5213 struct MELT_OBJECT_STRUCT(4) dobj_21__DBGI_MAXDEPTH;
5214 struct MELT_STRING_STRUCT(13) dstr_22__DBGI_MAXDEPTH;
5215 struct MELT_OBJECT_STRUCT(3) dsym_23__CLASS_DEBUG_OUTPUT_INFORMATION;
5216 struct MELT_STRING_STRUCT(30) dstr_24__CLASS_DEBUG_OUTPUT_INFOR;
5217 struct MELT_OBJECT_STRUCT(8) dobj_25__CLASS_DEBUG_OUTPUT_INFORMATION;
5218 struct MELT_STRING_STRUCT(30) dstr_26__CLASS_DEBUG_OUTPUT_INFOR;
5219 struct MELT_MULTIPLE_STRUCT(2) dtup_27_syCLASS_DEBUG_OUTPUT_INFORMATION;
5220 struct MELT_MULTIPLE_STRUCT(3) dtup_28_syCLASS_DEBUG_OUTPUT_INFORMATION;
5221 struct MELT_OBJECT_STRUCT(3) dsym_29__DEBUG_DEPTH;
5222 struct MELT_STRING_STRUCT(11) dstr_30__DEBUG_DEPTH;
5223 struct MELT_OBJECT_STRUCT(5) dobj_31__DEBUG_DEPTH;
5224 struct MELT_MULTIPLE_STRUCT(1) dtup_32_syDEBUG_DEPTH;
5225 struct MELT_MULTIPLE_STRUCT(0) dtup_33_syDEBUG_DEPTH;
5226 struct MELT_STRING_STRUCT(28) dstr_34__long_melt_debug_depth;
5227 struct MELT_STRING_STRUCT(11) dstr_35__DEBUG_DEPTH;
5228 struct MELT_OBJECT_STRUCT(3) dsym_36__MELT_REALLY_NEED_DEBUG;
5229 struct MELT_STRING_STRUCT(22) dstr_37__MELT_REALLY_NEED_DEBUG;
5230 struct MELT_OBJECT_STRUCT(5) dobj_38__MELT_REALLY_NEED_DEBUG;
5231 struct MELT_MULTIPLE_STRUCT(3) dtup_39_syMELT_REALLY_NEED_DEBUG;
5232 struct MELT_MULTIPLE_STRUCT(1) dtup_40_syMELT_REALLY_NEED_DEBUG;
5233 struct MELT_OBJECT_STRUCT(3) dsym_41__DEPTH;
5234 struct MELT_STRING_STRUCT(5) dstr_42__DEPTH;
5235 struct MELT_OBJECT_STRUCT(2) dobj_43;
5236 struct MELT_STRING_STRUCT(51) dstr_44__MELT_REALLY_NEED_DEBUG;
5237 struct MELT_STRING_STRUCT(2) dstr_45__;
5238 struct MELT_STRING_STRUCT(22) dstr_46__MELT_REALLY_NEED_DEBUG;
5239 struct MELT_OBJECT_STRUCT(3) dsym_47__MELT_HAS_FLAG_DEBUG_SET;
5240 struct MELT_STRING_STRUCT(23) dstr_48__MELT_HAS_FLAG_DEBUG_SET;
5241 struct MELT_OBJECT_STRUCT(5) dobj_49__MELT_HAS_FLAG_DEBUG_SET;
5242 struct MELT_MULTIPLE_STRUCT(1) dtup_50_syMELT_HAS_FLAG_DEBUG_SET;
5243 struct MELT_MULTIPLE_STRUCT(0) dtup_51_syMELT_HAS_FLAG_DEBUG_SET;
5244 struct MELT_STRING_STRUCT(43) dstr_52__MELT_HAS_FLAG_DEBUG_SE;
5245 struct MELT_STRING_STRUCT(23) dstr_53__MELT_HAS_FLAG_DEBUG_SET;
5246 struct MELT_OBJECT_STRUCT(3) dsym_54__MELT_REALLY_NEED_DBGLIM;
5247 struct MELT_STRING_STRUCT(23) dstr_55__MELT_REALLY_NEED_DBGLIM;
5248 struct MELT_OBJECT_STRUCT(5) dobj_56__MELT_REALLY_NEED_DBGLIM;
5249 struct MELT_MULTIPLE_STRUCT(5) dtup_57_syMELT_REALLY_NEED_DBGLIM;
5250 struct MELT_MULTIPLE_STRUCT(2) dtup_58_syMELT_REALLY_NEED_DBGLIM;
5251 struct MELT_OBJECT_STRUCT(2) dobj_59;
5252 struct MELT_OBJECT_STRUCT(3) dsym_60__LIMIT;
5253 struct MELT_STRING_STRUCT(5) dstr_61__LIMIT;
5254 struct MELT_OBJECT_STRUCT(2) dobj_62;
5255 struct MELT_STRING_STRUCT(59) dstr_63__MELT_REALLY_NEED_DBG;
5256 struct MELT_STRING_STRUCT(8) dstr_64__int_;
5257 struct MELT_STRING_STRUCT(2) dstr_65__;
5258 struct MELT_STRING_STRUCT(23) dstr_66__MELT_REALLY_NEED_DBGLIM;
5259 struct MELT_OBJECT_STRUCT(3) dsym_67__DBG_OUTPUT;
5260 struct MELT_STRING_STRUCT(10) dstr_68__DBG_OUTPUT;
5261 struct MELT_OBJECT_STRUCT(3) dsym_69__CLASS_SELECTOR;
5262 struct MELT_STRING_STRUCT(14) dstr_70__CLASS_SELECTOR;
5263 struct MELT_OBJECT_STRUCT(3) dsym_71__RECV;
5264 struct MELT_STRING_STRUCT(4) dstr_72__RECV;
5265 struct MELT_OBJECT_STRUCT(2) dobj_73;
5266 struct MELT_OBJECT_STRUCT(3) dsym_74__DBGINFO;
5267 struct MELT_STRING_STRUCT(7) dstr_75__DBGINFO;
5268 struct MELT_OBJECT_STRUCT(2) dobj_76;
5269 struct MELT_OBJECT_STRUCT(2) dobj_77;
5270 struct MELT_MULTIPLE_STRUCT(3) dtup_78_syDBG_OUTPUT;
5271 struct MELT_OBJECT_STRUCT(4) dobj_79__DBG_OUTPUT;
5272 struct MELT_STRING_STRUCT(10) dstr_80__DBG_OUTPUT;
5273 struct MELT_OBJECT_STRUCT(3) dsym_81__DBG_OUTPUTAGAIN;
5274 struct MELT_STRING_STRUCT(15) dstr_82__DBG_OUTPUTAGAIN;
5275 struct MELT_OBJECT_STRUCT(2) dobj_83;
5276 struct MELT_OBJECT_STRUCT(2) dobj_84;
5277 struct MELT_OBJECT_STRUCT(2) dobj_85;
5278 struct MELT_MULTIPLE_STRUCT(3) dtup_86_syDBG_OUTPUTAGAIN;
5279 struct MELT_OBJECT_STRUCT(4) dobj_87__DBG_OUTPUTAGAIN;
5280 struct MELT_STRING_STRUCT(15) dstr_88__DBG_OUTPUTAGAIN;
5281 struct MELT_OBJECT_STRUCT(3) dsym_89__TREE_DEBUG_FUNCONT;
5282 struct MELT_STRING_STRUCT(18) dstr_90__TREE_DEBUG_FUNCONT;
5283 struct MELT_OBJECT_STRUCT(3) dsym_91__CLASS_REFERENCE;
5284 struct MELT_STRING_STRUCT(15) dstr_92__CLASS_REFERENCE;
5285 struct MELT_OBJECT_STRUCT(1) dobj_93__TREE_DEBUG_FUNCONT;
5286 struct MELT_ROUTINE_STRUCT(2) drout_94__REGISTER_TREE_DEBUG_FUN;
5287 struct MELT_CLOSURE_STRUCT(0) dclo_95__REGISTER_TREE_DEBUG_FUN;
5288 struct MELT_OBJECT_STRUCT(3) dsym_96__GIMPLE_DEBUG_FUNCONT;
5289 struct MELT_STRING_STRUCT(20) dstr_97__GIMPLE_DEBUG_FUNCONT;
5290 struct MELT_OBJECT_STRUCT(1) dobj_98__GIMPLE_DEBUG_FUNCONT;
5291 struct MELT_ROUTINE_STRUCT(2) drout_99__REGISTER_GIMPLE_DEBUG_FUN;
5292 struct MELT_CLOSURE_STRUCT(0) dclo_100__REGISTER_GIMPLE_DEBUG_FUN;
5293 struct MELT_OBJECT_STRUCT(3) dsym_101__GIMPLESEQ_DEBUG_FUNCONT;
5294 struct MELT_STRING_STRUCT(23) dstr_102__GIMPLESEQ_DEBUG_FUNCONT;
5295 struct MELT_OBJECT_STRUCT(1) dobj_103__GIMPLESEQ_DEBUG_FUNCONT;
5296 struct MELT_ROUTINE_STRUCT(2) drout_104__REGISTER_GIMPLESEQ_DEBUG_FUN;
5297 struct MELT_CLOSURE_STRUCT(0) dclo_105__REGISTER_GIMPLESEQ_DEBUG_FUN;
5298 struct MELT_OBJECT_STRUCT(3) dsym_106__EDGE_DEBUG_FUNCONT;
5299 struct MELT_STRING_STRUCT(18) dstr_107__EDGE_DEBUG_FUNCONT;
5300 struct MELT_OBJECT_STRUCT(1) dobj_108__EDGE_DEBUG_FUNCONT;
5301 struct MELT_ROUTINE_STRUCT(2) drout_109__REGISTER_EDGE_DEBUG_FUN;
5302 struct MELT_CLOSURE_STRUCT(0) dclo_110__REGISTER_EDGE_DEBUG_FUN;
5303 struct MELT_OBJECT_STRUCT(3) dsym_111__BASICBLOCK_DEBUG_FUNCONT;
5304 struct MELT_STRING_STRUCT(24) dstr_112__BASICBLOCK_DEBUG_FUNCONT;
5305 struct MELT_OBJECT_STRUCT(1) dobj_113__BASICBLOCK_DEBUG_FUNCONT;
5306 struct MELT_ROUTINE_STRUCT(2) drout_114__REGISTER_BASICBLOCK_DEBUG_FUN;
5307 struct MELT_CLOSURE_STRUCT(0) dclo_115__REGISTER_BASICBLOCK_DEBUG_FUN;
5308 struct MELT_OBJECT_STRUCT(3) dsym_116__LOOP_DEBUG_FUNCONT;
5309 struct MELT_STRING_STRUCT(18) dstr_117__LOOP_DEBUG_FUNCONT;
5310 struct MELT_OBJECT_STRUCT(1) dobj_118__LOOP_DEBUG_FUNCONT;
5311 struct MELT_ROUTINE_STRUCT(2) drout_119__REGISTER_LOOP_DEBUG_FUN;
5312 struct MELT_CLOSURE_STRUCT(0) dclo_120__REGISTER_LOOP_DEBUG_FUN;
5313 struct MELT_OBJECT_STRUCT(3) dsym_121__DISCR_DEBUG_CLOSURE;
5314 struct MELT_STRING_STRUCT(19) dstr_122__DISCR_DEBUG_CLOSURE;
5315 struct MELT_OBJECT_STRUCT(3) dsym_123__CLASS_DISCRIMINANT;
5316 struct MELT_STRING_STRUCT(18) dstr_124__CLASS_DISCRIMINANT;
5317 struct MELT_OBJECT_STRUCT(5) dobj_125__DISCR_DEBUG_CLOSURE;
5318 struct MELT_OBJECT_STRUCT(3) dsym_126__DISCR_CLOSURE;
5319 struct MELT_STRING_STRUCT(13) dstr_127__DISCR_CLOSURE;
5320 struct MELT_STRING_STRUCT(19) dstr_128__DISCR_DEBUG_CLOSURE;
5321 struct MELT_ROUTINE_STRUCT(20) drout_129__MELT_DEBUG_FUN;
5322 struct MELT_CLOSURE_STRUCT(0) dclo_130__MELT_DEBUG_FUN;
5323 struct MELT_OBJECT_STRUCT(3) dsym_131__INITIAL_SYSTEM_DATA;
5324 struct MELT_STRING_STRUCT(19) dstr_132__INITIAL_SYSTEM_DATA;
5325 struct MELT_OBJECT_STRUCT(3) dsym_133__CLASS_SYSTEM_DATA;
5326 struct MELT_STRING_STRUCT(17) dstr_134__CLASS_SYSTEM_DATA;
5327 struct MELT_OBJECT_STRUCT(3) dsym_135__DISCR_MAP_OBJECTS;
5328 struct MELT_STRING_STRUCT(17) dstr_136__DISCR_MAP_OBJECTS;
5329 struct MELT_OBJECT_STRUCT(3) dsym_137__DISCR_INTEGER;
5330 struct MELT_STRING_STRUCT(13) dstr_138__DISCR_INTEGER;
5331 struct MELT_OBJECT_STRUCT(3) dsym_139__DISCR_STRBUF;
5332 struct MELT_STRING_STRUCT(12) dstr_140__DISCR_STRBUF;
5333 struct MELT_OBJECT_STRUCT(3) dsym_141__MELT_ASSERT_FAILURE_FUN;
5334 struct MELT_STRING_STRUCT(23) dstr_142__MELT_ASSERT_FAILURE_FUN;
5335 struct MELT_OBJECT_STRUCT(3) dsym_143__ADD2OUT;
5336 struct MELT_STRING_STRUCT(7) dstr_144__ADD2OUT;
5337 struct MELT_OBJECT_STRUCT(3) dsym_145__CSTRING_PREFIXED;
5338 struct MELT_STRING_STRUCT(16) dstr_146__CSTRING_PREFIXED;
5339 struct MELT_OBJECT_STRUCT(3) dsym_147__CLASS_NAMED;
5340 struct MELT_STRING_STRUCT(11) dstr_148__CLASS_NAMED;
5341 struct MELT_OBJECT_STRUCT(3) dsym_149__CLASS_QUASI_CTYPE;
5342 struct MELT_STRING_STRUCT(17) dstr_150__CLASS_QUASI_CTYPE;
5343 struct MELT_ROUTINE_STRUCT(5) drout_151__DBG_OUTOBJECT;
5344 struct MELT_CLOSURE_STRUCT(0) dclo_152__DBG_OUTOBJECT;
5345 struct MELT_ROUTINE_STRUCT(4) drout_153__DBG_OUT;
5346 struct MELT_CLOSURE_STRUCT(0) dclo_154__DBG_OUT;
5347 struct MELT_ROUTINE_STRUCT(3) drout_155__DBGOUT_FIELDS;
5348 struct MELT_CLOSURE_STRUCT(0) dclo_156__DBGOUT_FIELDS;
5349 struct MELT_ROUTINE_STRUCT(4) drout_157__DBGOUTAGAIN_FIELDS;
5350 struct MELT_CLOSURE_STRUCT(0) dclo_158__DBGOUTAGAIN_FIELDS;
5351 struct MELT_ROUTINE_STRUCT(2) drout_159__DBGOUT_NULL_METHOD;
5352 struct MELT_CLOSURE_STRUCT(0) dclo_160__DBGOUT_NULL_METHOD;
5353 struct MELT_OBJECT_STRUCT(3) dsym_161__INSTALL_METHOD;
5354 struct MELT_STRING_STRUCT(14) dstr_162__INSTALL_METHOD;
5355 struct MELT_OBJECT_STRUCT(3) dsym_163__DISCR_NULL_RECEIVER;
5356 struct MELT_STRING_STRUCT(19) dstr_164__DISCR_NULL_RECEIVER;
5357 struct MELT_ROUTINE_STRUCT(4) drout_165__DBGOUT_STRING_METHOD;
5358 struct MELT_CLOSURE_STRUCT(0) dclo_166__DBGOUT_STRING_METHOD;
5359 struct MELT_OBJECT_STRUCT(3) dsym_167__DISCR_STRING;
5360 struct MELT_STRING_STRUCT(12) dstr_168__DISCR_STRING;
5361 struct MELT_OBJECT_STRUCT(3) dsym_169__DISCR_VERBATIM_STRING;
5362 struct MELT_STRING_STRUCT(21) dstr_170__DISCR_VERBATIM_STRING;
5363 struct MELT_ROUTINE_STRUCT(4) drout_171__DBGOUT_STRBUF_METHOD;
5364 struct MELT_CLOSURE_STRUCT(0) dclo_172__DBGOUT_STRBUF_METHOD;
5365 struct MELT_ROUTINE_STRUCT(5) drout_173__DBGOUT_INTEGER_METHOD;
5366 struct MELT_CLOSURE_STRUCT(0) dclo_174__DBGOUT_INTEGER_METHOD;
5367 struct MELT_OBJECT_STRUCT(3) dsym_175__DISCR_CONSTANT_INTEGER;
5368 struct MELT_STRING_STRUCT(22) dstr_176__DISCR_CONSTANT_INTEGER;
5369 struct MELT_ROUTINE_STRUCT(5) drout_177__DBGOUT_DOUBLE_METHOD;
5370 struct MELT_CLOSURE_STRUCT(0) dclo_178__DBGOUT_DOUBLE_METHOD;
5371 struct MELT_OBJECT_STRUCT(3) dsym_179__DISCR_DOUBLE;
5372 struct MELT_STRING_STRUCT(12) dstr_180__DISCR_DOUBLE;
5373 struct MELT_OBJECT_STRUCT(3) dsym_181__DISCR_CONSTANT_DOUBLE;
5374 struct MELT_STRING_STRUCT(21) dstr_182__DISCR_CONSTANT_DOUBLE;
5375 struct MELT_ROUTINE_STRUCT(5) drout_183__DBGOUT_MIXINT_METHOD;
5376 struct MELT_CLOSURE_STRUCT(0) dclo_184__DBGOUT_MIXINT_METHOD;
5377 struct MELT_OBJECT_STRUCT(3) dsym_185__DISCR_MIXED_INTEGER;
5378 struct MELT_STRING_STRUCT(19) dstr_186__DISCR_MIXED_INTEGER;
5379 struct MELT_ROUTINE_STRUCT(3) drout_187__DBGOUT_MIXLOC_METHOD;
5380 struct MELT_CLOSURE_STRUCT(0) dclo_188__DBGOUT_MIXLOC_METHOD;
5381 struct MELT_OBJECT_STRUCT(3) dsym_189__DISCR_MIXED_LOCATION;
5382 struct MELT_STRING_STRUCT(20) dstr_190__DISCR_MIXED_LOCATION;
5383 struct MELT_ROUTINE_STRUCT(3) drout_191__DBGOUT_MIXBIGINT_METHOD;
5384 struct MELT_CLOSURE_STRUCT(0) dclo_192__DBGOUT_MIXBIGINT_METHOD;
5385 struct MELT_OBJECT_STRUCT(3) dsym_193__DISCR_MIXED_BIGINT;
5386 struct MELT_STRING_STRUCT(18) dstr_194__DISCR_MIXED_BIGINT;
5387 struct MELT_ROUTINE_STRUCT(4) drout_195__DBGOUT_MULTIPLE_METHOD;
5388 struct MELT_CLOSURE_STRUCT(0) dclo_196__DBGOUT_MULTIPLE_METHOD;
5389 struct MELT_OBJECT_STRUCT(3) dsym_197__DISCR_MULTIPLE;
5390 struct MELT_STRING_STRUCT(14) dstr_198__DISCR_MULTIPLE;
5391 struct MELT_ROUTINE_STRUCT(7) drout_199__DBGOUT_ROUTINE_METHOD;
5392 struct MELT_CLOSURE_STRUCT(0) dclo_200__DBGOUT_ROUTINE_METHOD;
5393 struct MELT_OBJECT_STRUCT(3) dsym_201__DISCR_ROUTINE;
5394 struct MELT_STRING_STRUCT(13) dstr_202__DISCR_ROUTINE;
5395 struct MELT_OBJECT_STRUCT(3) dsym_203__ROUTINE_EVERY;
5396 struct MELT_STRING_STRUCT(13) dstr_204__ROUTINE_EVERY;
5397 struct MELT_ROUTINE_STRUCT(1) drout_205__LAMBDA_;
5398 struct MELT_ROUTINE_STRUCT(9) drout_206__DBGOUT_HOOK_METHOD;
5399 struct MELT_CLOSURE_STRUCT(0) dclo_207__DBGOUT_HOOK_METHOD;
5400 struct MELT_OBJECT_STRUCT(3) dsym_208__HOOK_EVERY;
5401 struct MELT_STRING_STRUCT(10) dstr_209__HOOK_EVERY;
5402 struct MELT_ROUTINE_STRUCT(2) drout_210__LAMBDA_;
5403 struct MELT_OBJECT_STRUCT(3) dsym_211__DISCR_HOOK;
5404 struct MELT_STRING_STRUCT(10) dstr_212__DISCR_HOOK;
5405 struct MELT_ROUTINE_STRUCT(5) drout_213__DBGOUT_CLOSURE_METHOD;
5406 struct MELT_CLOSURE_STRUCT(0) dclo_214__DBGOUT_CLOSURE_METHOD;
5407 struct MELT_ROUTINE_STRUCT(5) drout_215__DBGOUT_LIST_METHOD;
5408 struct MELT_CLOSURE_STRUCT(0) dclo_216__DBGOUT_LIST_METHOD;
5409 struct MELT_OBJECT_STRUCT(3) dsym_217__DISCR_LIST;
5410 struct MELT_STRING_STRUCT(10) dstr_218__DISCR_LIST;
5411 struct MELT_ROUTINE_STRUCT(5) drout_219__DBGOUT_PAIR_METHOD;
5412 struct MELT_CLOSURE_STRUCT(0) dclo_220__DBGOUT_PAIR_METHOD;
5413 struct MELT_OBJECT_STRUCT(3) dsym_221__DISCR_PAIR;
5414 struct MELT_STRING_STRUCT(10) dstr_222__DISCR_PAIR;
5415 struct MELT_ROUTINE_STRUCT(18) drout_223__DBGOUT_MAPOBJECT_METHOD;
5416 struct MELT_CLOSURE_STRUCT(0) dclo_224__DBGOUT_MAPOBJECT_METHOD;
5417 struct MELT_OBJECT_STRUCT(3) dsym_225__MAPOBJECT_EVERY;
5418 struct MELT_STRING_STRUCT(15) dstr_226__MAPOBJECT_EVERY;
5419 struct MELT_ROUTINE_STRUCT(1) drout_227__LAMBDA_;
5420 struct MELT_OBJECT_STRUCT(3) dsym_228__MULTIPLE_SORT;
5421 struct MELT_STRING_STRUCT(13) dstr_229__MULTIPLE_SORT;
5422 struct MELT_ROUTINE_STRUCT(4) drout_230__LAMBDA_;
5423 struct MELT_OBJECT_STRUCT(3) dsym_231__COMPARE_OBJ_RANKED;
5424 struct MELT_STRING_STRUCT(18) dstr_232__COMPARE_OBJ_RANKED;
5425 struct meltint_st dint_233__;
5426 struct meltint_st dint_234__;
5427 struct meltint_st dint_235__;
5428 struct MELT_OBJECT_STRUCT(3) dsym_236__MULTIPLE_EVERY;
5429 struct MELT_STRING_STRUCT(14) dstr_237__MULTIPLE_EVERY;
5430 struct MELT_ROUTINE_STRUCT(3) drout_238__LAMBDA_;
5431 struct MELT_ROUTINE_STRUCT(14) drout_239__DBGOUT_MAPSTRING_METHOD;
5432 struct MELT_CLOSURE_STRUCT(0) dclo_240__DBGOUT_MAPSTRING_METHOD;
5433 struct MELT_OBJECT_STRUCT(3) dsym_241__MAPSTRING_EVERY;
5434 struct MELT_STRING_STRUCT(15) dstr_242__MAPSTRING_EVERY;
5435 struct MELT_ROUTINE_STRUCT(1) drout_243__LAMBDA_;
5436 struct MELT_ROUTINE_STRUCT(4) drout_244__LAMBDA_;
5437 struct meltint_st dint_245__;
5438 struct meltint_st dint_246__;
5439 struct meltint_st dint_247__;
5440 struct MELT_OBJECT_STRUCT(3) dsym_248__DISCR_MAP_STRINGS;
5441 struct MELT_STRING_STRUCT(17) dstr_249__DISCR_MAP_STRINGS;
5442 struct MELT_ROUTINE_STRUCT(6) drout_250__DBGOUT_BUCKETLONG_METHOD;
5443 struct MELT_CLOSURE_STRUCT(0) dclo_251__DBGOUT_BUCKETLONG_METHOD;
5444 struct MELT_OBJECT_STRUCT(3) dsym_252__DISCR_BUCKET_LONGS;
5445 struct MELT_STRING_STRUCT(18) dstr_253__DISCR_BUCKET_LONGS;
5446 struct MELT_ROUTINE_STRUCT(5) drout_254__DBGOUT_JSONOBJECT_METHOD;
5447 struct MELT_CLOSURE_STRUCT(0) dclo_255__DBGOUT_JSONOBJECT_METHOD;
5448 struct MELT_OBJECT_STRUCT(3) dsym_256__DISCR_JSONOBJECT;
5449 struct MELT_STRING_STRUCT(16) dstr_257__DISCR_JSONOBJECT;
5450 struct MELT_ROUTINE_STRUCT(3) drout_258__DBGOUT_ANYOBJECT_METHOD;
5451 struct MELT_CLOSURE_STRUCT(0) dclo_259__DBGOUT_ANYOBJECT_METHOD;
5452 struct MELT_ROUTINE_STRUCT(3) drout_260__DBGOUT_ANYRECV_METHOD;
5453 struct MELT_CLOSURE_STRUCT(0) dclo_261__DBGOUT_ANYRECV_METHOD;
5454 struct MELT_OBJECT_STRUCT(3) dsym_262__DISCR_ANY_RECEIVER;
5455 struct MELT_STRING_STRUCT(18) dstr_263__DISCR_ANY_RECEIVER;
5456 struct MELT_ROUTINE_STRUCT(2) drout_264__DBGOUTAGAIN_ANYOBJECT_METHOD;
5457 struct MELT_CLOSURE_STRUCT(0) dclo_265__DBGOUTAGAIN_ANYOBJECT_METHOD;
5458 struct MELT_ROUTINE_STRUCT(5) drout_266__DBGOUT_NAMEDOBJECT_METHOD;
5459 struct MELT_CLOSURE_STRUCT(0) dclo_267__DBGOUT_NAMEDOBJECT_METHOD;
5460 struct MELT_OBJECT_STRUCT(3) dsym_268__DBGOUT_NAMEDOBJECT_METHOD;
5461 struct MELT_STRING_STRUCT(25) dstr_269__DBGOUT_NAMEDOBJECT_METHO;
5462 struct MELT_ROUTINE_STRUCT(3) drout_270__DBGOUTAGAIN_NAMEDOBJECT_METHOD;
5463 struct MELT_CLOSURE_STRUCT(0) dclo_271__DBGOUTAGAIN_NAMEDOBJECT_METHOD;
5464 struct MELT_ROUTINE_STRUCT(3) drout_272__DBGOUTAGAIN_SYMBOL_METHOD;
5465 struct MELT_CLOSURE_STRUCT(0) dclo_273__DBGOUTAGAIN_SYMBOL_METHOD;
5466 struct MELT_OBJECT_STRUCT(3) dsym_274__CLASS_SYMBOL;
5467 struct MELT_STRING_STRUCT(12) dstr_275__CLASS_SYMBOL;
5468 struct MELT_ROUTINE_STRUCT(5) drout_276__DBGOUT_SYMBOL_METHOD;
5469 struct MELT_CLOSURE_STRUCT(0) dclo_277__DBGOUT_SYMBOL_METHOD;
5470 struct MELT_ROUTINE_STRUCT(5) drout_278__DBGOUT_CLASS_METHOD;
5471 struct MELT_CLOSURE_STRUCT(0) dclo_279__DBGOUT_CLASS_METHOD;
5472 struct MELT_OBJECT_STRUCT(3) dsym_280__CLASS_CLASS;
5473 struct MELT_STRING_STRUCT(11) dstr_281__CLASS_CLASS;
5474 struct MELT_ROUTINE_STRUCT(3) drout_282__DBGOUTAGAIN_KEYWORD_METHOD;
5475 struct MELT_CLOSURE_STRUCT(0) dclo_283__DBGOUTAGAIN_KEYWORD_METHOD;
5476 struct MELT_OBJECT_STRUCT(3) dsym_284__CLASS_KEYWORD;
5477 struct MELT_STRING_STRUCT(13) dstr_285__CLASS_KEYWORD;
5478 struct MELT_ROUTINE_STRUCT(5) drout_286__DBGOUT_KEYWORD_METHOD;
5479 struct MELT_CLOSURE_STRUCT(0) dclo_287__DBGOUT_KEYWORD_METHOD;
5480 struct MELT_ROUTINE_STRUCT(0) drout_288__DBGOUTAGAIN_CLONED_SYMBOL_METHOD;
5481 struct MELT_CLOSURE_STRUCT(0) dclo_289__DBGOUTAGAIN_CLONED_SYMBOL_METHOD;
5482 struct MELT_OBJECT_STRUCT(3) dsym_290__CLASS_CLONED_SYMBOL;
5483 struct MELT_STRING_STRUCT(19) dstr_291__CLASS_CLONED_SYMBOL;
5484 struct MELT_ROUTINE_STRUCT(5) drout_292__DBGOUT_CLONED_SYMBOL_METHOD;
5485 struct MELT_CLOSURE_STRUCT(0) dclo_293__DBGOUT_CLONED_SYMBOL_METHOD;
5486 struct MELT_ROUTINE_STRUCT(10) drout_294__DBGOUT_ENVIRONMENT_METHOD;
5487 struct MELT_CLOSURE_STRUCT(0) dclo_295__DBGOUT_ENVIRONMENT_METHOD;
5488 struct MELT_OBJECT_STRUCT(3) dsym_296__CLASS_ENVIRONMENT;
5489 struct MELT_STRING_STRUCT(17) dstr_297__CLASS_ENVIRONMENT;
5490 struct MELT_OBJECT_STRUCT(3) dsym_298__ENV_PREV;
5491 struct MELT_STRING_STRUCT(8) dstr_299__ENV_PREV;
5492 struct MELT_OBJECT_STRUCT(3) dsym_300__CLASS_DESCRIBED_ENVIRONMENT;
5493 struct MELT_STRING_STRUCT(27) dstr_301__CLASS_DESCRIBED_ENVIRONM;
5494 struct MELT_ROUTINE_STRUCT(0) drout_302__DBGOUTAGAIN_CTYPE_METHOD;
5495 struct MELT_CLOSURE_STRUCT(0) dclo_303__DBGOUTAGAIN_CTYPE_METHOD;
5496 struct MELT_OBJECT_STRUCT(3) dsym_304__CLASS_CTYPE;
5497 struct MELT_STRING_STRUCT(11) dstr_305__CLASS_CTYPE;
5498 struct MELT_ROUTINE_STRUCT(5) drout_306__DBGOUT_CTYPE_METHOD;
5499 struct MELT_CLOSURE_STRUCT(0) dclo_307__DBGOUT_CTYPE_METHOD;
5500 struct MELT_ROUTINE_STRUCT(5) drout_308__DBGOUT_ANYBINDING_METHOD;
5501 struct MELT_CLOSURE_STRUCT(0) dclo_309__DBGOUT_ANYBINDING_METHOD;
5502 struct MELT_OBJECT_STRUCT(3) dsym_310__CLASS_ANY_BINDING;
5503 struct MELT_STRING_STRUCT(17) dstr_311__CLASS_ANY_BINDING;
5504 struct MELT_ROUTINE_STRUCT(3) drout_312__DEBUG_LESS_FUN;
5505 struct MELT_CLOSURE_STRUCT(0) dclo_313__DEBUG_LESS_FUN;
5506 struct MELT_OBJECT_STRUCT(3) dsym_314__DEBUG_LESS;
5507 struct MELT_STRING_STRUCT(10) dstr_315__DEBUG_LESS;
5508 struct MELT_ROUTINE_STRUCT(6) drout_316__DEBUG_MORE_FUN;
5509 struct MELT_CLOSURE_STRUCT(0) dclo_317__DEBUG_MORE_FUN;
5510 struct MELT_OBJECT_STRUCT(3) dsym_318__DEBUG_MORE;
5511 struct MELT_STRING_STRUCT(10) dstr_319__DEBUG_MORE;
5512 struct MELT_ROUTINE_STRUCT(5) drout_320__DISPLAY_DEBUG_MESSAGE;
5513 struct MELT_CLOSURE_STRUCT(0) dclo_321__DISPLAY_DEBUG_MESSAGE;
5514 struct MELT_OBJECT_STRUCT(3) dsym_322__DBG_OUT;
5515 struct MELT_STRING_STRUCT(7) dstr_323__DBG_OUT;
5516 struct MELT_OBJECT_STRUCT(3) dsym_324__DBG_OUTOBJECT;
5517 struct MELT_STRING_STRUCT(13) dstr_325__DBG_OUTOBJECT;
5518 struct MELT_OBJECT_STRUCT(3) dsym_326__DBGOUT_FIELDS;
5519 struct MELT_STRING_STRUCT(13) dstr_327__DBGOUT_FIELDS;
5520 struct MELT_OBJECT_STRUCT(3) dsym_328__DBGOUTAGAIN_FIELDS;
5521 struct MELT_STRING_STRUCT(18) dstr_329__DBGOUTAGAIN_FIELDS;
5522 struct MELT_OBJECT_STRUCT(3) dsym_330__DISPLAY_DEBUG_MESSAGE;
5523 struct MELT_STRING_STRUCT(21) dstr_331__DISPLAY_DEBUG_MESSAGE;
5524 struct MELT_OBJECT_STRUCT(3) dsym_332__MELT_DEBUG_FUN;
5525 struct MELT_STRING_STRUCT(14) dstr_333__MELT_DEBUG_FUN;
5526 struct MELT_OBJECT_STRUCT(3) dsym_334__REGISTER_BASICBLOCK_DEBUG_FUN;
5527 struct MELT_STRING_STRUCT(29) dstr_335__REGISTER_BASICBLOCK_DEBU;
5528 struct MELT_OBJECT_STRUCT(3) dsym_336__REGISTER_EDGE_DEBUG_FUN;
5529 struct MELT_STRING_STRUCT(23) dstr_337__REGISTER_EDGE_DEBUG_FUN;
5530 struct MELT_OBJECT_STRUCT(3) dsym_338__REGISTER_GIMPLE_DEBUG_FUN;
5531 struct MELT_STRING_STRUCT(25) dstr_339__REGISTER_GIMPLE_DEBUG_FU;
5532 struct MELT_OBJECT_STRUCT(3) dsym_340__REGISTER_GIMPLESEQ_DEBUG_FUN;
5533 struct MELT_STRING_STRUCT(28) dstr_341__REGISTER_GIMPLESEQ_DEBUG;
5534 struct MELT_OBJECT_STRUCT(3) dsym_342__REGISTER_LOOP_DEBUG_FUN;
5535 struct MELT_STRING_STRUCT(23) dstr_343__REGISTER_LOOP_DEBUG_FUN;
5536 struct MELT_OBJECT_STRUCT(3) dsym_344__REGISTER_TREE_DEBUG_FUN;
5537 struct MELT_STRING_STRUCT(23) dstr_345__REGISTER_TREE_DEBUG_FUN;
5538 long spare_;
5539 } *meltcdat = NULL;
5540 dbgprintf ("start melt_initialize_module_meltdata_WARMELTmiDEBUG iniframp__=%p", (void*) iniframp__);
5541 (void) meltpredefinited; /* avoid warning if non-used. */
5542 /*curframe_cdat_fill */
5543 meltcdat = (struct meltcdata_st*) meltgc_allocate(sizeof(*meltcdat),0);
5544 melt_prohibit_garbcoll = TRUE;
5545 /*initial routine predef*/
5546 /*initial routine fill*/
5547
5548
5549 /*iniobj dsym_1__HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER*/
5550 /*uniqueobj*/
5551 if (!/*_._VALDATA___V58*/ meltfptr[57])
5552 /*_._VALDATA___V58*/ meltfptr[57] = (melt_ptr_t )&meltcdat->dsym_1__HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER;
5553 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1__HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
5554 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1__HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
5555 meltcdat->dsym_1__HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
5556 meltcdat->dsym_1__HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER.obj_hash = 824058733;
5557 meltcdat->dsym_1__HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER.obj_len = 3;
5558
5559
5560 /*inistring dstr_2__HOOK_FRESH_ENVIRONMENT_R*/
5561 /*_._VALSTR___V59*/
5562 meltfptr[58] = (melt_ptr_t) &meltcdat->dstr_2__HOOK_FRESH_ENVIRONMENT_R;
5563 meltcdat->dstr_2__HOOK_FRESH_ENVIRONMENT_R.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
5564 /*small inistring*/
5565 strncpy(meltcdat->dstr_2__HOOK_FRESH_ENVIRONMENT_R.val, "HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER", sizeof (meltcdat->dstr_2__HOOK_FRESH_ENVIRONMENT_R.val)-1);
5566 meltcdat->dstr_2__HOOK_FRESH_ENVIRONMENT_R.val[38] = (char)0 ;
5567 meltcdat->dstr_2__HOOK_FRESH_ENVIRONMENT_R.slen = 38 ;
5568
5569
5570 /*iniobj dsym_3__CLASS_DEBUG_INFORMATION*/
5571 /*uniqueobj*/
5572 if (!/*_._VALDATA___V60*/ meltfptr[59])
5573 /*_._VALDATA___V60*/ meltfptr[59] = (melt_ptr_t )&meltcdat->dsym_3__CLASS_DEBUG_INFORMATION;
5574 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_3__CLASS_DEBUG_INFORMATION", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
5575 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_3__CLASS_DEBUG_INFORMATION", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
5576 meltcdat->dsym_3__CLASS_DEBUG_INFORMATION.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
5577 meltcdat->dsym_3__CLASS_DEBUG_INFORMATION.obj_hash = 190162903;
5578 meltcdat->dsym_3__CLASS_DEBUG_INFORMATION.obj_len = 3;
5579
5580
5581 /*inistring dstr_4__CLASS_DEBUG_INFORMATION*/
5582 /*_._VALSTR___V61*/
5583 meltfptr[60] = (melt_ptr_t) &meltcdat->dstr_4__CLASS_DEBUG_INFORMATION;
5584 meltcdat->dstr_4__CLASS_DEBUG_INFORMATION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
5585 /*small inistring*/
5586 strncpy(meltcdat->dstr_4__CLASS_DEBUG_INFORMATION.val, "CLASS_DEBUG_INFORMATION", sizeof (meltcdat->dstr_4__CLASS_DEBUG_INFORMATION.val)-1);
5587 meltcdat->dstr_4__CLASS_DEBUG_INFORMATION.val[23] = (char)0 ;
5588 meltcdat->dstr_4__CLASS_DEBUG_INFORMATION.slen = 23 ;
5589
5590
5591 /*iniobj dsym_5__CLASS_ROOT*/
5592 /*uniqueobj*/
5593 if (!/*_._VALDATA___V62*/ meltfptr[61])
5594 /*_._VALDATA___V62*/ meltfptr[61] = (melt_ptr_t )&meltcdat->dsym_5__CLASS_ROOT;
5595 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_5__CLASS_ROOT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
5596 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_5__CLASS_ROOT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
5597 meltcdat->dsym_5__CLASS_ROOT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
5598 meltcdat->dsym_5__CLASS_ROOT.obj_hash = 60568825;
5599 meltcdat->dsym_5__CLASS_ROOT.obj_len = 3;
5600
5601
5602 /*inistring dstr_6__CLASS_ROOT*/
5603 /*_._VALSTR___V63*/
5604 meltfptr[62] = (melt_ptr_t) &meltcdat->dstr_6__CLASS_ROOT;
5605 meltcdat->dstr_6__CLASS_ROOT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
5606 /*small inistring*/
5607 strncpy(meltcdat->dstr_6__CLASS_ROOT.val, "CLASS_ROOT", sizeof (meltcdat->dstr_6__CLASS_ROOT.val)-1);
5608 meltcdat->dstr_6__CLASS_ROOT.val[10] = (char)0 ;
5609 meltcdat->dstr_6__CLASS_ROOT.slen = 10 ;
5610
5611 MELT_LOCATION("warmelt-debug.melt:42:/ iniobj");
5612
5613 /*iniobj dobj_7__CLASS_DEBUG_INFORMATION*/
5614 /*_._VALDATA___V64*/
5615 meltfptr[63] = (melt_ptr_t )&meltcdat->dobj_7__CLASS_DEBUG_INFORMATION;
5616 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_7__CLASS_DEBUG_INFORMATION", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS))))) == MELTOBMAG_OBJECT);
5617 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_7__CLASS_DEBUG_INFORMATION", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT);
5618 meltcdat->dobj_7__CLASS_DEBUG_INFORMATION.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS))));
5619 meltcdat->dobj_7__CLASS_DEBUG_INFORMATION.obj_num = MELTOBMAG_OBJECT;
5620 meltcdat->dobj_7__CLASS_DEBUG_INFORMATION.obj_hash = 918061638;
5621 meltcdat->dobj_7__CLASS_DEBUG_INFORMATION.obj_len = 8;
5622
5623
5624 /*inistring dstr_8__CLASS_DEBUG_INFORMATION*/
5625 /*_._VALSTR___V65*/
5626 meltfptr[64] = (melt_ptr_t) &meltcdat->dstr_8__CLASS_DEBUG_INFORMATION;
5627 meltcdat->dstr_8__CLASS_DEBUG_INFORMATION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
5628 /*small inistring*/
5629 strncpy(meltcdat->dstr_8__CLASS_DEBUG_INFORMATION.val, "CLASS_DEBUG_INFORMATION", sizeof (meltcdat->dstr_8__CLASS_DEBUG_INFORMATION.val)-1);
5630 meltcdat->dstr_8__CLASS_DEBUG_INFORMATION.val[23] = (char)0 ;
5631 meltcdat->dstr_8__CLASS_DEBUG_INFORMATION.slen = 23 ;
5632
5633 /*inimult dtup_9_syCLASS_DEBUG_INFORMATION*/
5634 /*_._VALTUP___V66*/
5635 meltfptr[65] = (melt_ptr_t) &meltcdat->dtup_9_syCLASS_DEBUG_INFORMATION;
5636 meltcdat->dtup_9_syCLASS_DEBUG_INFORMATION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE))));
5637 meltcdat->dtup_9_syCLASS_DEBUG_INFORMATION.nbval = 1;
5638 /*inimult dtup_10_syCLASS_DEBUG_INFORMATION*/
5639 /*_._VALTUP___V73*/
5640 meltfptr[72] = (melt_ptr_t) &meltcdat->dtup_10_syCLASS_DEBUG_INFORMATION;
5641 meltcdat->dtup_10_syCLASS_DEBUG_INFORMATION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE))));
5642 meltcdat->dtup_10_syCLASS_DEBUG_INFORMATION.nbval = 3;
5643
5644 /*iniobj dsym_11__DBGI_OUT*/
5645 /*uniqueobj*/
5646 if (!/*_._VALDATA___V74*/ meltfptr[73])
5647 /*_._VALDATA___V74*/ meltfptr[73] = (melt_ptr_t )&meltcdat->dsym_11__DBGI_OUT;
5648 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_11__DBGI_OUT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
5649 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_11__DBGI_OUT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
5650 meltcdat->dsym_11__DBGI_OUT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
5651 meltcdat->dsym_11__DBGI_OUT.obj_hash = 639486128;
5652 meltcdat->dsym_11__DBGI_OUT.obj_len = 3;
5653
5654
5655 /*inistring dstr_12__DBGI_OUT*/
5656 /*_._VALSTR___V75*/
5657 meltfptr[74] = (melt_ptr_t) &meltcdat->dstr_12__DBGI_OUT;
5658 meltcdat->dstr_12__DBGI_OUT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
5659 /*small inistring*/
5660 strncpy(meltcdat->dstr_12__DBGI_OUT.val, "DBGI_OUT", sizeof (meltcdat->dstr_12__DBGI_OUT.val)-1);
5661 meltcdat->dstr_12__DBGI_OUT.val[8] = (char)0 ;
5662 meltcdat->dstr_12__DBGI_OUT.slen = 8 ;
5663
5664 /*^iniobj*/
5665
5666 /*iniobj dobj_13__DBGI_OUT*/
5667 /*_._VALDATA___V67*/
5668 meltfptr[66] = (melt_ptr_t )&meltcdat->dobj_13__DBGI_OUT;
5669 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_13__DBGI_OUT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD))))) == MELTOBMAG_OBJECT);
5670 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_13__DBGI_OUT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT);
5671 meltcdat->dobj_13__DBGI_OUT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD))));
5672 meltcdat->dobj_13__DBGI_OUT.obj_num = 0;
5673 meltcdat->dobj_13__DBGI_OUT.obj_hash = 158660297;
5674 meltcdat->dobj_13__DBGI_OUT.obj_len = 4;
5675
5676
5677 /*inistring dstr_14__DBGI_OUT*/
5678 /*_._VALSTR___V68*/
5679 meltfptr[67] = (melt_ptr_t) &meltcdat->dstr_14__DBGI_OUT;
5680 meltcdat->dstr_14__DBGI_OUT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
5681 /*small inistring*/
5682 strncpy(meltcdat->dstr_14__DBGI_OUT.val, "DBGI_OUT", sizeof (meltcdat->dstr_14__DBGI_OUT.val)-1);
5683 meltcdat->dstr_14__DBGI_OUT.val[8] = (char)0 ;
5684 meltcdat->dstr_14__DBGI_OUT.slen = 8 ;
5685
5686
5687 /*iniobj dsym_15__DBGI_OCCMAP*/
5688 /*uniqueobj*/
5689 if (!/*_._VALDATA___V76*/ meltfptr[75])
5690 /*_._VALDATA___V76*/ meltfptr[75] = (melt_ptr_t )&meltcdat->dsym_15__DBGI_OCCMAP;
5691 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_15__DBGI_OCCMAP", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
5692 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_15__DBGI_OCCMAP", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
5693 meltcdat->dsym_15__DBGI_OCCMAP.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
5694 meltcdat->dsym_15__DBGI_OCCMAP.obj_hash = 701804047;
5695 meltcdat->dsym_15__DBGI_OCCMAP.obj_len = 3;
5696
5697
5698 /*inistring dstr_16__DBGI_OCCMAP*/
5699 /*_._VALSTR___V77*/
5700 meltfptr[76] = (melt_ptr_t) &meltcdat->dstr_16__DBGI_OCCMAP;
5701 meltcdat->dstr_16__DBGI_OCCMAP.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
5702 /*small inistring*/
5703 strncpy(meltcdat->dstr_16__DBGI_OCCMAP.val, "DBGI_OCCMAP", sizeof (meltcdat->dstr_16__DBGI_OCCMAP.val)-1);
5704 meltcdat->dstr_16__DBGI_OCCMAP.val[11] = (char)0 ;
5705 meltcdat->dstr_16__DBGI_OCCMAP.slen = 11 ;
5706
5707 /*^iniobj*/
5708
5709 /*iniobj dobj_17__DBGI_OCCMAP*/
5710 /*_._VALDATA___V69*/
5711 meltfptr[68] = (melt_ptr_t )&meltcdat->dobj_17__DBGI_OCCMAP;
5712 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_17__DBGI_OCCMAP", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD))))) == MELTOBMAG_OBJECT);
5713 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_17__DBGI_OCCMAP", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT);
5714 meltcdat->dobj_17__DBGI_OCCMAP.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD))));
5715 meltcdat->dobj_17__DBGI_OCCMAP.obj_num = 1;
5716 meltcdat->dobj_17__DBGI_OCCMAP.obj_hash = 323846956;
5717 meltcdat->dobj_17__DBGI_OCCMAP.obj_len = 4;
5718
5719
5720 /*inistring dstr_18__DBGI_OCCMAP*/
5721 /*_._VALSTR___V70*/
5722 meltfptr[69] = (melt_ptr_t) &meltcdat->dstr_18__DBGI_OCCMAP;
5723 meltcdat->dstr_18__DBGI_OCCMAP.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
5724 /*small inistring*/
5725 strncpy(meltcdat->dstr_18__DBGI_OCCMAP.val, "DBGI_OCCMAP", sizeof (meltcdat->dstr_18__DBGI_OCCMAP.val)-1);
5726 meltcdat->dstr_18__DBGI_OCCMAP.val[11] = (char)0 ;
5727 meltcdat->dstr_18__DBGI_OCCMAP.slen = 11 ;
5728
5729
5730 /*iniobj dsym_19__DBGI_MAXDEPTH*/
5731 /*uniqueobj*/
5732 if (!/*_._VALDATA___V78*/ meltfptr[77])
5733 /*_._VALDATA___V78*/ meltfptr[77] = (melt_ptr_t )&meltcdat->dsym_19__DBGI_MAXDEPTH;
5734 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_19__DBGI_MAXDEPTH", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
5735 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_19__DBGI_MAXDEPTH", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
5736 meltcdat->dsym_19__DBGI_MAXDEPTH.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
5737 meltcdat->dsym_19__DBGI_MAXDEPTH.obj_hash = 732580240;
5738 meltcdat->dsym_19__DBGI_MAXDEPTH.obj_len = 3;
5739
5740
5741 /*inistring dstr_20__DBGI_MAXDEPTH*/
5742 /*_._VALSTR___V79*/
5743 meltfptr[78] = (melt_ptr_t) &meltcdat->dstr_20__DBGI_MAXDEPTH;
5744 meltcdat->dstr_20__DBGI_MAXDEPTH.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
5745 /*small inistring*/
5746 strncpy(meltcdat->dstr_20__DBGI_MAXDEPTH.val, "DBGI_MAXDEPTH", sizeof (meltcdat->dstr_20__DBGI_MAXDEPTH.val)-1);
5747 meltcdat->dstr_20__DBGI_MAXDEPTH.val[13] = (char)0 ;
5748 meltcdat->dstr_20__DBGI_MAXDEPTH.slen = 13 ;
5749
5750 /*^iniobj*/
5751
5752 /*iniobj dobj_21__DBGI_MAXDEPTH*/
5753 /*_._VALDATA___V71*/
5754 meltfptr[70] = (melt_ptr_t )&meltcdat->dobj_21__DBGI_MAXDEPTH;
5755 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_21__DBGI_MAXDEPTH", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD))))) == MELTOBMAG_OBJECT);
5756 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_21__DBGI_MAXDEPTH", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT);
5757 meltcdat->dobj_21__DBGI_MAXDEPTH.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD))));
5758 meltcdat->dobj_21__DBGI_MAXDEPTH.obj_num = 2;
5759 meltcdat->dobj_21__DBGI_MAXDEPTH.obj_hash = 283532193;
5760 meltcdat->dobj_21__DBGI_MAXDEPTH.obj_len = 4;
5761
5762
5763 /*inistring dstr_22__DBGI_MAXDEPTH*/
5764 /*_._VALSTR___V72*/
5765 meltfptr[71] = (melt_ptr_t) &meltcdat->dstr_22__DBGI_MAXDEPTH;
5766 meltcdat->dstr_22__DBGI_MAXDEPTH.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
5767 /*small inistring*/
5768 strncpy(meltcdat->dstr_22__DBGI_MAXDEPTH.val, "DBGI_MAXDEPTH", sizeof (meltcdat->dstr_22__DBGI_MAXDEPTH.val)-1);
5769 meltcdat->dstr_22__DBGI_MAXDEPTH.val[13] = (char)0 ;
5770 meltcdat->dstr_22__DBGI_MAXDEPTH.slen = 13 ;
5771
5772
5773 /*iniobj dsym_23__CLASS_DEBUG_OUTPUT_INFORMATION*/
5774 /*uniqueobj*/
5775 if (!/*_._VALDATA___V80*/ meltfptr[79])
5776 /*_._VALDATA___V80*/ meltfptr[79] = (melt_ptr_t )&meltcdat->dsym_23__CLASS_DEBUG_OUTPUT_INFORMATION;
5777 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_23__CLASS_DEBUG_OUTPUT_INFORMATION", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
5778 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_23__CLASS_DEBUG_OUTPUT_INFORMATION", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
5779 meltcdat->dsym_23__CLASS_DEBUG_OUTPUT_INFORMATION.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
5780 meltcdat->dsym_23__CLASS_DEBUG_OUTPUT_INFORMATION.obj_hash = 436769164;
5781 meltcdat->dsym_23__CLASS_DEBUG_OUTPUT_INFORMATION.obj_len = 3;
5782
5783
5784 /*inistring dstr_24__CLASS_DEBUG_OUTPUT_INFOR*/
5785 /*_._VALSTR___V81*/
5786 meltfptr[80] = (melt_ptr_t) &meltcdat->dstr_24__CLASS_DEBUG_OUTPUT_INFOR;
5787 meltcdat->dstr_24__CLASS_DEBUG_OUTPUT_INFOR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
5788 /*small inistring*/
5789 strncpy(meltcdat->dstr_24__CLASS_DEBUG_OUTPUT_INFOR.val, "CLASS_DEBUG_OUTPUT_INFORMATION", sizeof (meltcdat->dstr_24__CLASS_DEBUG_OUTPUT_INFOR.val)-1);
5790 meltcdat->dstr_24__CLASS_DEBUG_OUTPUT_INFOR.val[30] = (char)0 ;
5791 meltcdat->dstr_24__CLASS_DEBUG_OUTPUT_INFOR.slen = 30 ;
5792
5793 MELT_LOCATION("warmelt-debug.melt:53:/ iniobj");
5794
5795 /*iniobj dobj_25__CLASS_DEBUG_OUTPUT_INFORMATION*/
5796 /*_._VALDATA___V82*/
5797 meltfptr[81] = (melt_ptr_t )&meltcdat->dobj_25__CLASS_DEBUG_OUTPUT_INFORMATION;
5798 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_25__CLASS_DEBUG_OUTPUT_INFORMATION", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS))))) == MELTOBMAG_OBJECT);
5799 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_25__CLASS_DEBUG_OUTPUT_INFORMATION", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT);
5800 meltcdat->dobj_25__CLASS_DEBUG_OUTPUT_INFORMATION.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS))));
5801 meltcdat->dobj_25__CLASS_DEBUG_OUTPUT_INFORMATION.obj_num = MELTOBMAG_OBJECT;
5802 meltcdat->dobj_25__CLASS_DEBUG_OUTPUT_INFORMATION.obj_hash = 950326136;
5803 meltcdat->dobj_25__CLASS_DEBUG_OUTPUT_INFORMATION.obj_len = 8;
5804
5805
5806 /*inistring dstr_26__CLASS_DEBUG_OUTPUT_INFOR*/
5807 /*_._VALSTR___V83*/
5808 meltfptr[82] = (melt_ptr_t) &meltcdat->dstr_26__CLASS_DEBUG_OUTPUT_INFOR;
5809 meltcdat->dstr_26__CLASS_DEBUG_OUTPUT_INFOR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
5810 /*small inistring*/
5811 strncpy(meltcdat->dstr_26__CLASS_DEBUG_OUTPUT_INFOR.val, "CLASS_DEBUG_OUTPUT_INFORMATION", sizeof (meltcdat->dstr_26__CLASS_DEBUG_OUTPUT_INFOR.val)-1);
5812 meltcdat->dstr_26__CLASS_DEBUG_OUTPUT_INFOR.val[30] = (char)0 ;
5813 meltcdat->dstr_26__CLASS_DEBUG_OUTPUT_INFOR.slen = 30 ;
5814
5815 /*inimult dtup_27_syCLASS_DEBUG_OUTPUT_INFORMATION*/
5816 /*_._VALTUP___V84*/
5817 meltfptr[83] = (melt_ptr_t) &meltcdat->dtup_27_syCLASS_DEBUG_OUTPUT_INFORMATION;
5818 meltcdat->dtup_27_syCLASS_DEBUG_OUTPUT_INFORMATION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE))));
5819 meltcdat->dtup_27_syCLASS_DEBUG_OUTPUT_INFORMATION.nbval = 2;
5820 /*inimult dtup_28_syCLASS_DEBUG_OUTPUT_INFORMATION*/
5821 /*_._VALTUP___V85*/
5822 meltfptr[84] = (melt_ptr_t) &meltcdat->dtup_28_syCLASS_DEBUG_OUTPUT_INFORMATION;
5823 meltcdat->dtup_28_syCLASS_DEBUG_OUTPUT_INFORMATION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE))));
5824 meltcdat->dtup_28_syCLASS_DEBUG_OUTPUT_INFORMATION.nbval = 3;
5825
5826 /*iniobj dsym_29__DEBUG_DEPTH*/
5827 /*uniqueobj*/
5828 if (!/*_._VALDATA___V86*/ meltfptr[85])
5829 /*_._VALDATA___V86*/ meltfptr[85] = (melt_ptr_t )&meltcdat->dsym_29__DEBUG_DEPTH;
5830 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_29__DEBUG_DEPTH", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
5831 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_29__DEBUG_DEPTH", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
5832 meltcdat->dsym_29__DEBUG_DEPTH.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
5833 meltcdat->dsym_29__DEBUG_DEPTH.obj_hash = 532594980;
5834 meltcdat->dsym_29__DEBUG_DEPTH.obj_len = 3;
5835
5836
5837 /*inistring dstr_30__DEBUG_DEPTH*/
5838 /*_._VALSTR___V87*/
5839 meltfptr[86] = (melt_ptr_t) &meltcdat->dstr_30__DEBUG_DEPTH;
5840 meltcdat->dstr_30__DEBUG_DEPTH.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
5841 /*small inistring*/
5842 strncpy(meltcdat->dstr_30__DEBUG_DEPTH.val, "DEBUG_DEPTH", sizeof (meltcdat->dstr_30__DEBUG_DEPTH.val)-1);
5843 meltcdat->dstr_30__DEBUG_DEPTH.val[11] = (char)0 ;
5844 meltcdat->dstr_30__DEBUG_DEPTH.slen = 11 ;
5845
5846 MELT_LOCATION("warmelt-debug.melt:64:/ iniobj");
5847
5848 /*iniobj dobj_31__DEBUG_DEPTH*/
5849 /*_._VALDATA___V88*/
5850 meltfptr[87] = (melt_ptr_t )&meltcdat->dobj_31__DEBUG_DEPTH;
5851 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_31__DEBUG_DEPTH", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_PRIMITIVE))))) == MELTOBMAG_OBJECT);
5852 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_31__DEBUG_DEPTH", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT);
5853 meltcdat->dobj_31__DEBUG_DEPTH.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_PRIMITIVE))));
5854 meltcdat->dobj_31__DEBUG_DEPTH.obj_hash = 203758355;
5855 meltcdat->dobj_31__DEBUG_DEPTH.obj_len = 5;
5856
5857 /*inimult dtup_32_syDEBUG_DEPTH*/
5858 /*_._VALTUP___V92*/
5859 meltfptr[91] = (melt_ptr_t) &meltcdat->dtup_32_syDEBUG_DEPTH;
5860 meltcdat->dtup_32_syDEBUG_DEPTH.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_MULTIPLE))));
5861 meltcdat->dtup_32_syDEBUG_DEPTH.nbval = 1;
5862 /*inimult dtup_33_syDEBUG_DEPTH*/
5863 /*_._VALTUP___V90*/
5864 meltfptr[89] = (melt_ptr_t) &meltcdat->dtup_33_syDEBUG_DEPTH;
5865 meltcdat->dtup_33_syDEBUG_DEPTH.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_MULTIPLE))));
5866 meltcdat->dtup_33_syDEBUG_DEPTH.nbval = 0;
5867
5868 /*inistring dstr_34__long_melt_debug_depth*/
5869 /*_._VALSTR___V91*/
5870 meltfptr[90] = (melt_ptr_t) &meltcdat->dstr_34__long_melt_debug_depth;
5871 meltcdat->dstr_34__long_melt_debug_depth.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
5872 /*small inistring*/
5873 strncpy(meltcdat->dstr_34__long_melt_debug_depth.val, "(long) (melt_debug_depth ())", sizeof (meltcdat->dstr_34__long_melt_debug_depth.val)-1);
5874 meltcdat->dstr_34__long_melt_debug_depth.val[28] = (char)0 ;
5875 meltcdat->dstr_34__long_melt_debug_depth.slen = 28 ;
5876
5877
5878 /*inistring dstr_35__DEBUG_DEPTH*/
5879 /*_._VALSTR___V89*/
5880 meltfptr[88] = (melt_ptr_t) &meltcdat->dstr_35__DEBUG_DEPTH;
5881 meltcdat->dstr_35__DEBUG_DEPTH.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
5882 /*small inistring*/
5883 strncpy(meltcdat->dstr_35__DEBUG_DEPTH.val, "DEBUG_DEPTH", sizeof (meltcdat->dstr_35__DEBUG_DEPTH.val)-1);
5884 meltcdat->dstr_35__DEBUG_DEPTH.val[11] = (char)0 ;
5885 meltcdat->dstr_35__DEBUG_DEPTH.slen = 11 ;
5886
5887
5888 /*iniobj dsym_36__MELT_REALLY_NEED_DEBUG*/
5889 /*uniqueobj*/
5890 if (!/*_._VALDATA___V93*/ meltfptr[92])
5891 /*_._VALDATA___V93*/ meltfptr[92] = (melt_ptr_t )&meltcdat->dsym_36__MELT_REALLY_NEED_DEBUG;
5892 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_36__MELT_REALLY_NEED_DEBUG", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
5893 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_36__MELT_REALLY_NEED_DEBUG", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
5894 meltcdat->dsym_36__MELT_REALLY_NEED_DEBUG.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
5895 meltcdat->dsym_36__MELT_REALLY_NEED_DEBUG.obj_hash = 542840019;
5896 meltcdat->dsym_36__MELT_REALLY_NEED_DEBUG.obj_len = 3;
5897
5898
5899 /*inistring dstr_37__MELT_REALLY_NEED_DEBUG*/
5900 /*_._VALSTR___V94*/
5901 meltfptr[93] = (melt_ptr_t) &meltcdat->dstr_37__MELT_REALLY_NEED_DEBUG;
5902 meltcdat->dstr_37__MELT_REALLY_NEED_DEBUG.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
5903 /*small inistring*/
5904 strncpy(meltcdat->dstr_37__MELT_REALLY_NEED_DEBUG.val, "MELT_REALLY_NEED_DEBUG", sizeof (meltcdat->dstr_37__MELT_REALLY_NEED_DEBUG.val)-1);
5905 meltcdat->dstr_37__MELT_REALLY_NEED_DEBUG.val[22] = (char)0 ;
5906 meltcdat->dstr_37__MELT_REALLY_NEED_DEBUG.slen = 22 ;
5907
5908 MELT_LOCATION("warmelt-debug.melt:72:/ iniobj");
5909
5910 /*iniobj dobj_38__MELT_REALLY_NEED_DEBUG*/
5911 /*_._VALDATA___V95*/
5912 meltfptr[94] = (melt_ptr_t )&meltcdat->dobj_38__MELT_REALLY_NEED_DEBUG;
5913 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_38__MELT_REALLY_NEED_DEBUG", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_PRIMITIVE))))) == MELTOBMAG_OBJECT);
5914 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_38__MELT_REALLY_NEED_DEBUG", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT);
5915 meltcdat->dobj_38__MELT_REALLY_NEED_DEBUG.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_PRIMITIVE))));
5916 meltcdat->dobj_38__MELT_REALLY_NEED_DEBUG.obj_hash = 395337743;
5917 meltcdat->dobj_38__MELT_REALLY_NEED_DEBUG.obj_len = 5;
5918
5919 /*inimult dtup_39_syMELT_REALLY_NEED_DEBUG*/
5920 /*_._VALTUP___V103*/
5921 meltfptr[102] = (melt_ptr_t) &meltcdat->dtup_39_syMELT_REALLY_NEED_DEBUG;
5922 meltcdat->dtup_39_syMELT_REALLY_NEED_DEBUG.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_MULTIPLE))));
5923 meltcdat->dtup_39_syMELT_REALLY_NEED_DEBUG.nbval = 3;
5924 /*inimult dtup_40_syMELT_REALLY_NEED_DEBUG*/
5925 /*_._VALTUP___V100*/
5926 meltfptr[99] = (melt_ptr_t) &meltcdat->dtup_40_syMELT_REALLY_NEED_DEBUG;
5927 meltcdat->dtup_40_syMELT_REALLY_NEED_DEBUG.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_MULTIPLE))));
5928 meltcdat->dtup_40_syMELT_REALLY_NEED_DEBUG.nbval = 1;
5929
5930 /*iniobj dsym_41__DEPTH*/
5931 /*uniqueobj*/
5932 if (!/*_._VALDATA___V98*/ meltfptr[97])
5933 /*_._VALDATA___V98*/ meltfptr[97] = (melt_ptr_t )&meltcdat->dsym_41__DEPTH;
5934 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_41__DEPTH", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
5935 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_41__DEPTH", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
5936 meltcdat->dsym_41__DEPTH.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
5937 meltcdat->dsym_41__DEPTH.obj_hash = 52029444;
5938 meltcdat->dsym_41__DEPTH.obj_len = 3;
5939
5940
5941 /*inistring dstr_42__DEPTH*/
5942 /*_._VALSTR___V99*/
5943 meltfptr[98] = (melt_ptr_t) &meltcdat->dstr_42__DEPTH;
5944 meltcdat->dstr_42__DEPTH.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
5945 /*small inistring*/
5946 strncpy(meltcdat->dstr_42__DEPTH.val, "DEPTH", sizeof (meltcdat->dstr_42__DEPTH.val)-1);
5947 meltcdat->dstr_42__DEPTH.val[5] = (char)0 ;
5948 meltcdat->dstr_42__DEPTH.slen = 5 ;
5949
5950 /*^iniobj*/
5951
5952 /*iniobj dobj_43*/
5953 /*_._VALDATA___V97*/
5954 meltfptr[96] = (melt_ptr_t )&meltcdat->dobj_43;
5955 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_43", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FORMAL_BINDING))))) == MELTOBMAG_OBJECT);
5956 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_43", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT);
5957 meltcdat->dobj_43.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
5958 meltcdat->dobj_43.obj_num = 0;
5959 meltcdat->dobj_43.obj_hash = 62899840;
5960 meltcdat->dobj_43.obj_len = 2;
5961
5962
5963 /*inistring dstr_44__MELT_REALLY_NEED_DEBUG*/
5964 /*_._VALSTR___V101*/
5965 meltfptr[100] = (melt_ptr_t) &meltcdat->dstr_44__MELT_REALLY_NEED_DEBUG;
5966 meltcdat->dstr_44__MELT_REALLY_NEED_DEBUG.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
5967 /*small inistring*/
5968 strncpy(meltcdat->dstr_44__MELT_REALLY_NEED_DEBUG.val, "/*MELT_REALLY_NEED_DEBUG*/ (melt_need_debug ((int) ", sizeof (meltcdat->dstr_44__MELT_REALLY_NEED_DEBUG.val)-1);
5969 meltcdat->dstr_44__MELT_REALLY_NEED_DEBUG.val[51] = (char)0 ;
5970 meltcdat->dstr_44__MELT_REALLY_NEED_DEBUG.slen = 51 ;
5971
5972
5973 /*inistring dstr_45__*/
5974 /*_._VALSTR___V102*/
5975 meltfptr[101] = (melt_ptr_t) &meltcdat->dstr_45__;
5976 meltcdat->dstr_45__.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
5977 /*small inistring*/
5978 strncpy(meltcdat->dstr_45__.val, "))", sizeof (meltcdat->dstr_45__.val)-1);
5979 meltcdat->dstr_45__.val[2] = (char)0 ;
5980 meltcdat->dstr_45__.slen = 2 ;
5981
5982
5983 /*inistring dstr_46__MELT_REALLY_NEED_DEBUG*/
5984 /*_._VALSTR___V96*/
5985 meltfptr[95] = (melt_ptr_t) &meltcdat->dstr_46__MELT_REALLY_NEED_DEBUG;
5986 meltcdat->dstr_46__MELT_REALLY_NEED_DEBUG.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
5987 /*small inistring*/
5988 strncpy(meltcdat->dstr_46__MELT_REALLY_NEED_DEBUG.val, "MELT_REALLY_NEED_DEBUG", sizeof (meltcdat->dstr_46__MELT_REALLY_NEED_DEBUG.val)-1);
5989 meltcdat->dstr_46__MELT_REALLY_NEED_DEBUG.val[22] = (char)0 ;
5990 meltcdat->dstr_46__MELT_REALLY_NEED_DEBUG.slen = 22 ;
5991
5992
5993 /*iniobj dsym_47__MELT_HAS_FLAG_DEBUG_SET*/
5994 /*uniqueobj*/
5995 if (!/*_._VALDATA___V104*/ meltfptr[103])
5996 /*_._VALDATA___V104*/ meltfptr[103] = (melt_ptr_t )&meltcdat->dsym_47__MELT_HAS_FLAG_DEBUG_SET;
5997 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_47__MELT_HAS_FLAG_DEBUG_SET", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
5998 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_47__MELT_HAS_FLAG_DEBUG_SET", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
5999 meltcdat->dsym_47__MELT_HAS_FLAG_DEBUG_SET.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
6000 meltcdat->dsym_47__MELT_HAS_FLAG_DEBUG_SET.obj_hash = 125931725;
6001 meltcdat->dsym_47__MELT_HAS_FLAG_DEBUG_SET.obj_len = 3;
6002
6003
6004 /*inistring dstr_48__MELT_HAS_FLAG_DEBUG_SET*/
6005 /*_._VALSTR___V105*/
6006 meltfptr[104] = (melt_ptr_t) &meltcdat->dstr_48__MELT_HAS_FLAG_DEBUG_SET;
6007 meltcdat->dstr_48__MELT_HAS_FLAG_DEBUG_SET.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
6008 /*small inistring*/
6009 strncpy(meltcdat->dstr_48__MELT_HAS_FLAG_DEBUG_SET.val, "MELT_HAS_FLAG_DEBUG_SET", sizeof (meltcdat->dstr_48__MELT_HAS_FLAG_DEBUG_SET.val)-1);
6010 meltcdat->dstr_48__MELT_HAS_FLAG_DEBUG_SET.val[23] = (char)0 ;
6011 meltcdat->dstr_48__MELT_HAS_FLAG_DEBUG_SET.slen = 23 ;
6012
6013 MELT_LOCATION("warmelt-debug.melt:77:/ iniobj");
6014
6015 /*iniobj dobj_49__MELT_HAS_FLAG_DEBUG_SET*/
6016 /*_._VALDATA___V106*/
6017 meltfptr[105] = (melt_ptr_t )&meltcdat->dobj_49__MELT_HAS_FLAG_DEBUG_SET;
6018 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_49__MELT_HAS_FLAG_DEBUG_SET", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_PRIMITIVE))))) == MELTOBMAG_OBJECT);
6019 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_49__MELT_HAS_FLAG_DEBUG_SET", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT);
6020 meltcdat->dobj_49__MELT_HAS_FLAG_DEBUG_SET.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_PRIMITIVE))));
6021 meltcdat->dobj_49__MELT_HAS_FLAG_DEBUG_SET.obj_hash = 186348021;
6022 meltcdat->dobj_49__MELT_HAS_FLAG_DEBUG_SET.obj_len = 5;
6023
6024 /*inimult dtup_50_syMELT_HAS_FLAG_DEBUG_SET*/
6025 /*_._VALTUP___V110*/
6026 meltfptr[109] = (melt_ptr_t) &meltcdat->dtup_50_syMELT_HAS_FLAG_DEBUG_SET;
6027 meltcdat->dtup_50_syMELT_HAS_FLAG_DEBUG_SET.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_MULTIPLE))));
6028 meltcdat->dtup_50_syMELT_HAS_FLAG_DEBUG_SET.nbval = 1;
6029 /*inimult dtup_51_syMELT_HAS_FLAG_DEBUG_SET*/
6030 /*_._VALTUP___V108*/
6031 meltfptr[107] = (melt_ptr_t) &meltcdat->dtup_51_syMELT_HAS_FLAG_DEBUG_SET;
6032 meltcdat->dtup_51_syMELT_HAS_FLAG_DEBUG_SET.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_MULTIPLE))));
6033 meltcdat->dtup_51_syMELT_HAS_FLAG_DEBUG_SET.nbval = 0;
6034
6035 /*inistring dstr_52__MELT_HAS_FLAG_DEBUG_SE*/
6036 /*_._VALSTR___V109*/
6037 meltfptr[108] = (melt_ptr_t) &meltcdat->dstr_52__MELT_HAS_FLAG_DEBUG_SE;
6038 meltcdat->dstr_52__MELT_HAS_FLAG_DEBUG_SE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
6039 /*small inistring*/
6040 strncpy(meltcdat->dstr_52__MELT_HAS_FLAG_DEBUG_SE.val, "/*MELT_HAS_FLAG_DEBUG_SET*/ melt_flag_debug", sizeof (meltcdat->dstr_52__MELT_HAS_FLAG_DEBUG_SE.val)-1);
6041 meltcdat->dstr_52__MELT_HAS_FLAG_DEBUG_SE.val[43] = (char)0 ;
6042 meltcdat->dstr_52__MELT_HAS_FLAG_DEBUG_SE.slen = 43 ;
6043
6044
6045 /*inistring dstr_53__MELT_HAS_FLAG_DEBUG_SET*/
6046 /*_._VALSTR___V107*/
6047 meltfptr[106] = (melt_ptr_t) &meltcdat->dstr_53__MELT_HAS_FLAG_DEBUG_SET;
6048 meltcdat->dstr_53__MELT_HAS_FLAG_DEBUG_SET.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
6049 /*small inistring*/
6050 strncpy(meltcdat->dstr_53__MELT_HAS_FLAG_DEBUG_SET.val, "MELT_HAS_FLAG_DEBUG_SET", sizeof (meltcdat->dstr_53__MELT_HAS_FLAG_DEBUG_SET.val)-1);
6051 meltcdat->dstr_53__MELT_HAS_FLAG_DEBUG_SET.val[23] = (char)0 ;
6052 meltcdat->dstr_53__MELT_HAS_FLAG_DEBUG_SET.slen = 23 ;
6053
6054
6055 /*iniobj dsym_54__MELT_REALLY_NEED_DBGLIM*/
6056 /*uniqueobj*/
6057 if (!/*_._VALDATA___V111*/ meltfptr[110])
6058 /*_._VALDATA___V111*/ meltfptr[110] = (melt_ptr_t )&meltcdat->dsym_54__MELT_REALLY_NEED_DBGLIM;
6059 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_54__MELT_REALLY_NEED_DBGLIM", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
6060 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_54__MELT_REALLY_NEED_DBGLIM", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
6061 meltcdat->dsym_54__MELT_REALLY_NEED_DBGLIM.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
6062 meltcdat->dsym_54__MELT_REALLY_NEED_DBGLIM.obj_hash = 1026196939;
6063 meltcdat->dsym_54__MELT_REALLY_NEED_DBGLIM.obj_len = 3;
6064
6065
6066 /*inistring dstr_55__MELT_REALLY_NEED_DBGLIM*/
6067 /*_._VALSTR___V112*/
6068 meltfptr[111] = (melt_ptr_t) &meltcdat->dstr_55__MELT_REALLY_NEED_DBGLIM;
6069 meltcdat->dstr_55__MELT_REALLY_NEED_DBGLIM.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
6070 /*small inistring*/
6071 strncpy(meltcdat->dstr_55__MELT_REALLY_NEED_DBGLIM.val, "MELT_REALLY_NEED_DBGLIM", sizeof (meltcdat->dstr_55__MELT_REALLY_NEED_DBGLIM.val)-1);
6072 meltcdat->dstr_55__MELT_REALLY_NEED_DBGLIM.val[23] = (char)0 ;
6073 meltcdat->dstr_55__MELT_REALLY_NEED_DBGLIM.slen = 23 ;
6074
6075 MELT_LOCATION("warmelt-debug.melt:80:/ iniobj");
6076
6077 /*iniobj dobj_56__MELT_REALLY_NEED_DBGLIM*/
6078 /*_._VALDATA___V113*/
6079 meltfptr[112] = (melt_ptr_t )&meltcdat->dobj_56__MELT_REALLY_NEED_DBGLIM;
6080 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_56__MELT_REALLY_NEED_DBGLIM", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_PRIMITIVE))))) == MELTOBMAG_OBJECT);
6081 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_56__MELT_REALLY_NEED_DBGLIM", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT);
6082 meltcdat->dobj_56__MELT_REALLY_NEED_DBGLIM.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_PRIMITIVE))));
6083 meltcdat->dobj_56__MELT_REALLY_NEED_DBGLIM.obj_hash = 618864001;
6084 meltcdat->dobj_56__MELT_REALLY_NEED_DBGLIM.obj_len = 5;
6085
6086 /*inimult dtup_57_syMELT_REALLY_NEED_DBGLIM*/
6087 /*_._VALTUP___V123*/
6088 meltfptr[122] = (melt_ptr_t) &meltcdat->dtup_57_syMELT_REALLY_NEED_DBGLIM;
6089 meltcdat->dtup_57_syMELT_REALLY_NEED_DBGLIM.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_MULTIPLE))));
6090 meltcdat->dtup_57_syMELT_REALLY_NEED_DBGLIM.nbval = 5;
6091 /*inimult dtup_58_syMELT_REALLY_NEED_DBGLIM*/
6092 /*_._VALTUP___V119*/
6093 meltfptr[118] = (melt_ptr_t) &meltcdat->dtup_58_syMELT_REALLY_NEED_DBGLIM;
6094 meltcdat->dtup_58_syMELT_REALLY_NEED_DBGLIM.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_MULTIPLE))));
6095 meltcdat->dtup_58_syMELT_REALLY_NEED_DBGLIM.nbval = 2;
6096 /*^iniobj*/
6097
6098 /*iniobj dobj_59*/
6099 /*_._VALDATA___V115*/
6100 meltfptr[114] = (melt_ptr_t )&meltcdat->dobj_59;
6101 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_59", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FORMAL_BINDING))))) == MELTOBMAG_OBJECT);
6102 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_59", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT);
6103 meltcdat->dobj_59.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
6104 meltcdat->dobj_59.obj_num = 0;
6105 meltcdat->dobj_59.obj_hash = 135841293;
6106 meltcdat->dobj_59.obj_len = 2;
6107
6108
6109 /*iniobj dsym_60__LIMIT*/
6110 /*uniqueobj*/
6111 if (!/*_._VALDATA___V117*/ meltfptr[116])
6112 /*_._VALDATA___V117*/ meltfptr[116] = (melt_ptr_t )&meltcdat->dsym_60__LIMIT;
6113 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_60__LIMIT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
6114 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_60__LIMIT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
6115 meltcdat->dsym_60__LIMIT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
6116 meltcdat->dsym_60__LIMIT.obj_hash = 133458422;
6117 meltcdat->dsym_60__LIMIT.obj_len = 3;
6118
6119
6120 /*inistring dstr_61__LIMIT*/
6121 /*_._VALSTR___V118*/
6122 meltfptr[117] = (melt_ptr_t) &meltcdat->dstr_61__LIMIT;
6123 meltcdat->dstr_61__LIMIT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
6124 /*small inistring*/
6125 strncpy(meltcdat->dstr_61__LIMIT.val, "LIMIT", sizeof (meltcdat->dstr_61__LIMIT.val)-1);
6126 meltcdat->dstr_61__LIMIT.val[5] = (char)0 ;
6127 meltcdat->dstr_61__LIMIT.slen = 5 ;
6128
6129 /*^iniobj*/
6130
6131 /*iniobj dobj_62*/
6132 /*_._VALDATA___V116*/
6133 meltfptr[115] = (melt_ptr_t )&meltcdat->dobj_62;
6134 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_62", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FORMAL_BINDING))))) == MELTOBMAG_OBJECT);
6135 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_62", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT);
6136 meltcdat->dobj_62.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
6137 meltcdat->dobj_62.obj_num = 1;
6138 meltcdat->dobj_62.obj_hash = 892586131;
6139 meltcdat->dobj_62.obj_len = 2;
6140
6141
6142 /*inistring dstr_63__MELT_REALLY_NEED_DBG*/
6143 /*_._VALSTR___V120*/
6144 meltfptr[119] = (melt_ptr_t) &meltcdat->dstr_63__MELT_REALLY_NEED_DBG;
6145 meltcdat->dstr_63__MELT_REALLY_NEED_DBG.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
6146 /*small inistring*/
6147 strncpy(meltcdat->dstr_63__MELT_REALLY_NEED_DBG.val, "( /*MELT_REALLY_NEED_DBGLIM*/ melt_need_debug_limit ((int) ", sizeof (meltcdat->dstr_63__MELT_REALLY_NEED_DBG.val)-1);
6148 meltcdat->dstr_63__MELT_REALLY_NEED_DBG.val[59] = (char)0 ;
6149 meltcdat->dstr_63__MELT_REALLY_NEED_DBG.slen = 59 ;
6150
6151
6152 /*inistring dstr_64__int_*/
6153 /*_._VALSTR___V121*/
6154 meltfptr[120] = (melt_ptr_t) &meltcdat->dstr_64__int_;
6155 meltcdat->dstr_64__int_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
6156 /*small inistring*/
6157 strncpy(meltcdat->dstr_64__int_.val, ", (int) ", sizeof (meltcdat->dstr_64__int_.val)-1);
6158 meltcdat->dstr_64__int_.val[8] = (char)0 ;
6159 meltcdat->dstr_64__int_.slen = 8 ;
6160
6161
6162 /*inistring dstr_65__*/
6163 /*_._VALSTR___V122*/
6164 meltfptr[121] = (melt_ptr_t) &meltcdat->dstr_65__;
6165 meltcdat->dstr_65__.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
6166 /*small inistring*/
6167 strncpy(meltcdat->dstr_65__.val, "))", sizeof (meltcdat->dstr_65__.val)-1);
6168 meltcdat->dstr_65__.val[2] = (char)0 ;
6169 meltcdat->dstr_65__.slen = 2 ;
6170
6171
6172 /*inistring dstr_66__MELT_REALLY_NEED_DBGLIM*/
6173 /*_._VALSTR___V114*/
6174 meltfptr[113] = (melt_ptr_t) &meltcdat->dstr_66__MELT_REALLY_NEED_DBGLIM;
6175 meltcdat->dstr_66__MELT_REALLY_NEED_DBGLIM.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
6176 /*small inistring*/
6177 strncpy(meltcdat->dstr_66__MELT_REALLY_NEED_DBGLIM.val, "MELT_REALLY_NEED_DBGLIM", sizeof (meltcdat->dstr_66__MELT_REALLY_NEED_DBGLIM.val)-1);
6178 meltcdat->dstr_66__MELT_REALLY_NEED_DBGLIM.val[23] = (char)0 ;
6179 meltcdat->dstr_66__MELT_REALLY_NEED_DBGLIM.slen = 23 ;
6180
6181
6182 /*iniobj dsym_67__DBG_OUTPUT*/
6183 /*uniqueobj*/
6184 if (!/*_._VALDATA___V124*/ meltfptr[123])
6185 /*_._VALDATA___V124*/ meltfptr[123] = (melt_ptr_t )&meltcdat->dsym_67__DBG_OUTPUT;
6186 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_67__DBG_OUTPUT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
6187 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_67__DBG_OUTPUT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
6188 meltcdat->dsym_67__DBG_OUTPUT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
6189 meltcdat->dsym_67__DBG_OUTPUT.obj_hash = 225394304;
6190 meltcdat->dsym_67__DBG_OUTPUT.obj_len = 3;
6191
6192
6193 /*inistring dstr_68__DBG_OUTPUT*/
6194 /*_._VALSTR___V125*/
6195 meltfptr[124] = (melt_ptr_t) &meltcdat->dstr_68__DBG_OUTPUT;
6196 meltcdat->dstr_68__DBG_OUTPUT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
6197 /*small inistring*/
6198 strncpy(meltcdat->dstr_68__DBG_OUTPUT.val, "DBG_OUTPUT", sizeof (meltcdat->dstr_68__DBG_OUTPUT.val)-1);
6199 meltcdat->dstr_68__DBG_OUTPUT.val[10] = (char)0 ;
6200 meltcdat->dstr_68__DBG_OUTPUT.slen = 10 ;
6201
6202
6203 /*iniobj dsym_69__CLASS_SELECTOR*/
6204 /*uniqueobj*/
6205 if (!/*_._VALDATA___V126*/ meltfptr[125])
6206 /*_._VALDATA___V126*/ meltfptr[125] = (melt_ptr_t )&meltcdat->dsym_69__CLASS_SELECTOR;
6207 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_69__CLASS_SELECTOR", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
6208 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_69__CLASS_SELECTOR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
6209 meltcdat->dsym_69__CLASS_SELECTOR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
6210 meltcdat->dsym_69__CLASS_SELECTOR.obj_hash = 100646971;
6211 meltcdat->dsym_69__CLASS_SELECTOR.obj_len = 3;
6212
6213
6214 /*inistring dstr_70__CLASS_SELECTOR*/
6215 /*_._VALSTR___V127*/
6216 meltfptr[126] = (melt_ptr_t) &meltcdat->dstr_70__CLASS_SELECTOR;
6217 meltcdat->dstr_70__CLASS_SELECTOR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
6218 /*small inistring*/
6219 strncpy(meltcdat->dstr_70__CLASS_SELECTOR.val, "CLASS_SELECTOR", sizeof (meltcdat->dstr_70__CLASS_SELECTOR.val)-1);
6220 meltcdat->dstr_70__CLASS_SELECTOR.val[14] = (char)0 ;
6221 meltcdat->dstr_70__CLASS_SELECTOR.slen = 14 ;
6222
6223
6224 /*iniobj dsym_71__RECV*/
6225 /*uniqueobj*/
6226 if (!/*_._VALDATA___V128*/ meltfptr[127])
6227 /*_._VALDATA___V128*/ meltfptr[127] = (melt_ptr_t )&meltcdat->dsym_71__RECV;
6228 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_71__RECV", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
6229 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_71__RECV", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
6230 meltcdat->dsym_71__RECV.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
6231 meltcdat->dsym_71__RECV.obj_hash = 10842790;
6232 meltcdat->dsym_71__RECV.obj_len = 3;
6233
6234
6235 /*inistring dstr_72__RECV*/
6236 /*_._VALSTR___V129*/
6237 meltfptr[128] = (melt_ptr_t) &meltcdat->dstr_72__RECV;
6238 meltcdat->dstr_72__RECV.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
6239 /*small inistring*/
6240 strncpy(meltcdat->dstr_72__RECV.val, "RECV", sizeof (meltcdat->dstr_72__RECV.val)-1);
6241 meltcdat->dstr_72__RECV.val[4] = (char)0 ;
6242 meltcdat->dstr_72__RECV.slen = 4 ;
6243
6244 MELT_LOCATION("warmelt-debug.melt:90:/ iniobj");
6245
6246 /*iniobj dobj_73*/
6247 /*_._VALDATA___V130*/
6248 meltfptr[129] = (melt_ptr_t )&meltcdat->dobj_73;
6249 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_73", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FORMAL_BINDING))))) == MELTOBMAG_OBJECT);
6250 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_73", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT);
6251 meltcdat->dobj_73.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
6252 meltcdat->dobj_73.obj_num = 0;
6253 meltcdat->dobj_73.obj_hash = 450011831;
6254 meltcdat->dobj_73.obj_len = 2;
6255
6256
6257 /*iniobj dsym_74__DBGINFO*/
6258 /*uniqueobj*/
6259 if (!/*_._VALDATA___V131*/ meltfptr[130])
6260 /*_._VALDATA___V131*/ meltfptr[130] = (melt_ptr_t )&meltcdat->dsym_74__DBGINFO;
6261 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_74__DBGINFO", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
6262 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_74__DBGINFO", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
6263 meltcdat->dsym_74__DBGINFO.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
6264 meltcdat->dsym_74__DBGINFO.obj_hash = 587771081;
6265 meltcdat->dsym_74__DBGINFO.obj_len = 3;
6266
6267
6268 /*inistring dstr_75__DBGINFO*/
6269 /*_._VALSTR___V132*/
6270 meltfptr[131] = (melt_ptr_t) &meltcdat->dstr_75__DBGINFO;
6271 meltcdat->dstr_75__DBGINFO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
6272 /*small inistring*/
6273 strncpy(meltcdat->dstr_75__DBGINFO.val, "DBGINFO", sizeof (meltcdat->dstr_75__DBGINFO.val)-1);
6274 meltcdat->dstr_75__DBGINFO.val[7] = (char)0 ;
6275 meltcdat->dstr_75__DBGINFO.slen = 7 ;
6276
6277 /*^iniobj*/
6278
6279 /*iniobj dobj_76*/
6280 /*_._VALDATA___V133*/
6281 meltfptr[132] = (melt_ptr_t )&meltcdat->dobj_76;
6282 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_76", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FORMAL_BINDING))))) == MELTOBMAG_OBJECT);
6283 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_76", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT);
6284 meltcdat->dobj_76.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
6285 meltcdat->dobj_76.obj_num = 1;
6286 meltcdat->dobj_76.obj_hash = 245119801;
6287 meltcdat->dobj_76.obj_len = 2;
6288
6289 /*^iniobj*/
6290
6291 /*iniobj dobj_77*/
6292 /*_._VALDATA___V134*/
6293 meltfptr[133] = (melt_ptr_t )&meltcdat->dobj_77;
6294 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_77", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FORMAL_BINDING))))) == MELTOBMAG_OBJECT);
6295 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_77", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT);
6296 meltcdat->dobj_77.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
6297 meltcdat->dobj_77.obj_num = 2;
6298 meltcdat->dobj_77.obj_hash = 698921438;
6299 meltcdat->dobj_77.obj_len = 2;
6300
6301 /*inimult dtup_78_syDBG_OUTPUT*/
6302 /*_._VALTUP___V135*/
6303 meltfptr[134] = (melt_ptr_t) &meltcdat->dtup_78_syDBG_OUTPUT;
6304 meltcdat->dtup_78_syDBG_OUTPUT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_MULTIPLE))));
6305 meltcdat->dtup_78_syDBG_OUTPUT.nbval = 3;
6306 /*^iniobj*/
6307
6308 /*iniobj dobj_79__DBG_OUTPUT*/
6309 /*_._VALDATA___V136*/
6310 meltfptr[135] = (melt_ptr_t )&meltcdat->dobj_79__DBG_OUTPUT;
6311 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_79__DBG_OUTPUT", melt_magic_discr ((melt_ptr_t) (/*_.CLASS_SELECTOR__V9*/ meltfptr[8])) == MELTOBMAG_OBJECT);
6312 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_79__DBG_OUTPUT", ((meltobject_ptr_t) (/*_.CLASS_SELECTOR__V9*/ meltfptr[8]))->meltobj_magic == MELTOBMAG_OBJECT);
6313 meltcdat->dobj_79__DBG_OUTPUT.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V9*/ meltfptr[8]);
6314 meltcdat->dobj_79__DBG_OUTPUT.obj_hash = 555487535;
6315 meltcdat->dobj_79__DBG_OUTPUT.obj_len = 4;
6316
6317
6318 /*inistring dstr_80__DBG_OUTPUT*/
6319 /*_._VALSTR___V137*/
6320 meltfptr[136] = (melt_ptr_t) &meltcdat->dstr_80__DBG_OUTPUT;
6321 meltcdat->dstr_80__DBG_OUTPUT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
6322 /*small inistring*/
6323 strncpy(meltcdat->dstr_80__DBG_OUTPUT.val, "DBG_OUTPUT", sizeof (meltcdat->dstr_80__DBG_OUTPUT.val)-1);
6324 meltcdat->dstr_80__DBG_OUTPUT.val[10] = (char)0 ;
6325 meltcdat->dstr_80__DBG_OUTPUT.slen = 10 ;
6326
6327
6328 /*iniobj dsym_81__DBG_OUTPUTAGAIN*/
6329 /*uniqueobj*/
6330 if (!/*_._VALDATA___V138*/ meltfptr[137])
6331 /*_._VALDATA___V138*/ meltfptr[137] = (melt_ptr_t )&meltcdat->dsym_81__DBG_OUTPUTAGAIN;
6332 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_81__DBG_OUTPUTAGAIN", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
6333 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_81__DBG_OUTPUTAGAIN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
6334 meltcdat->dsym_81__DBG_OUTPUTAGAIN.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
6335 meltcdat->dsym_81__DBG_OUTPUTAGAIN.obj_hash = 28744821;
6336 meltcdat->dsym_81__DBG_OUTPUTAGAIN.obj_len = 3;
6337
6338
6339 /*inistring dstr_82__DBG_OUTPUTAGAIN*/
6340 /*_._VALSTR___V139*/
6341 meltfptr[138] = (melt_ptr_t) &meltcdat->dstr_82__DBG_OUTPUTAGAIN;
6342 meltcdat->dstr_82__DBG_OUTPUTAGAIN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
6343 /*small inistring*/
6344 strncpy(meltcdat->dstr_82__DBG_OUTPUTAGAIN.val, "DBG_OUTPUTAGAIN", sizeof (meltcdat->dstr_82__DBG_OUTPUTAGAIN.val)-1);
6345 meltcdat->dstr_82__DBG_OUTPUTAGAIN.val[15] = (char)0 ;
6346 meltcdat->dstr_82__DBG_OUTPUTAGAIN.slen = 15 ;
6347
6348 MELT_LOCATION("warmelt-debug.melt:99:/ iniobj");
6349
6350 /*iniobj dobj_83*/
6351 /*_._VALDATA___V140*/
6352 meltfptr[139] = (melt_ptr_t )&meltcdat->dobj_83;
6353 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_83", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FORMAL_BINDING))))) == MELTOBMAG_OBJECT);
6354 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_83", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT);
6355 meltcdat->dobj_83.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
6356 meltcdat->dobj_83.obj_num = 0;
6357 meltcdat->dobj_83.obj_hash = 910933289;
6358 meltcdat->dobj_83.obj_len = 2;
6359
6360 /*^iniobj*/
6361
6362 /*iniobj dobj_84*/
6363 /*_._VALDATA___V141*/
6364 meltfptr[140] = (melt_ptr_t )&meltcdat->dobj_84;
6365 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_84", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FORMAL_BINDING))))) == MELTOBMAG_OBJECT);
6366 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_84", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT);
6367 meltcdat->dobj_84.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
6368 meltcdat->dobj_84.obj_num = 1;
6369 meltcdat->dobj_84.obj_hash = 566197093;
6370 meltcdat->dobj_84.obj_len = 2;
6371
6372 /*^iniobj*/
6373
6374 /*iniobj dobj_85*/
6375 /*_._VALDATA___V142*/
6376 meltfptr[141] = (melt_ptr_t )&meltcdat->dobj_85;
6377 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_85", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FORMAL_BINDING))))) == MELTOBMAG_OBJECT);
6378 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_85", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT);
6379 meltcdat->dobj_85.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
6380 meltcdat->dobj_85.obj_num = 2;
6381 meltcdat->dobj_85.obj_hash = 364945117;
6382 meltcdat->dobj_85.obj_len = 2;
6383
6384 /*inimult dtup_86_syDBG_OUTPUTAGAIN*/
6385 /*_._VALTUP___V143*/
6386 meltfptr[142] = (melt_ptr_t) &meltcdat->dtup_86_syDBG_OUTPUTAGAIN;
6387 meltcdat->dtup_86_syDBG_OUTPUTAGAIN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_MULTIPLE))));
6388 meltcdat->dtup_86_syDBG_OUTPUTAGAIN.nbval = 3;
6389 /*^iniobj*/
6390
6391 /*iniobj dobj_87__DBG_OUTPUTAGAIN*/
6392 /*_._VALDATA___V144*/
6393 meltfptr[143] = (melt_ptr_t )&meltcdat->dobj_87__DBG_OUTPUTAGAIN;
6394 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_87__DBG_OUTPUTAGAIN", melt_magic_discr ((melt_ptr_t) (/*_.CLASS_SELECTOR__V9*/ meltfptr[8])) == MELTOBMAG_OBJECT);
6395 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_87__DBG_OUTPUTAGAIN", ((meltobject_ptr_t) (/*_.CLASS_SELECTOR__V9*/ meltfptr[8]))->meltobj_magic == MELTOBMAG_OBJECT);
6396 meltcdat->dobj_87__DBG_OUTPUTAGAIN.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V9*/ meltfptr[8]);
6397 meltcdat->dobj_87__DBG_OUTPUTAGAIN.obj_hash = 618155565;
6398 meltcdat->dobj_87__DBG_OUTPUTAGAIN.obj_len = 4;
6399
6400
6401 /*inistring dstr_88__DBG_OUTPUTAGAIN*/
6402 /*_._VALSTR___V145*/
6403 meltfptr[144] = (melt_ptr_t) &meltcdat->dstr_88__DBG_OUTPUTAGAIN;
6404 meltcdat->dstr_88__DBG_OUTPUTAGAIN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
6405 /*small inistring*/
6406 strncpy(meltcdat->dstr_88__DBG_OUTPUTAGAIN.val, "DBG_OUTPUTAGAIN", sizeof (meltcdat->dstr_88__DBG_OUTPUTAGAIN.val)-1);
6407 meltcdat->dstr_88__DBG_OUTPUTAGAIN.val[15] = (char)0 ;
6408 meltcdat->dstr_88__DBG_OUTPUTAGAIN.slen = 15 ;
6409
6410
6411 /*iniobj dsym_89__TREE_DEBUG_FUNCONT*/
6412 /*uniqueobj*/
6413 if (!/*_._VALDATA___V146*/ meltfptr[145])
6414 /*_._VALDATA___V146*/ meltfptr[145] = (melt_ptr_t )&meltcdat->dsym_89__TREE_DEBUG_FUNCONT;
6415 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_89__TREE_DEBUG_FUNCONT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
6416 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_89__TREE_DEBUG_FUNCONT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
6417 meltcdat->dsym_89__TREE_DEBUG_FUNCONT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
6418 meltcdat->dsym_89__TREE_DEBUG_FUNCONT.obj_hash = 374867797;
6419 meltcdat->dsym_89__TREE_DEBUG_FUNCONT.obj_len = 3;
6420
6421
6422 /*inistring dstr_90__TREE_DEBUG_FUNCONT*/
6423 /*_._VALSTR___V147*/
6424 meltfptr[146] = (melt_ptr_t) &meltcdat->dstr_90__TREE_DEBUG_FUNCONT;
6425 meltcdat->dstr_90__TREE_DEBUG_FUNCONT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
6426 /*small inistring*/
6427 strncpy(meltcdat->dstr_90__TREE_DEBUG_FUNCONT.val, "TREE_DEBUG_FUNCONT", sizeof (meltcdat->dstr_90__TREE_DEBUG_FUNCONT.val)-1);
6428 meltcdat->dstr_90__TREE_DEBUG_FUNCONT.val[18] = (char)0 ;
6429 meltcdat->dstr_90__TREE_DEBUG_FUNCONT.slen = 18 ;
6430
6431
6432 /*iniobj dsym_91__CLASS_REFERENCE*/
6433 /*uniqueobj*/
6434 if (!/*_._VALDATA___V148*/ meltfptr[147])
6435 /*_._VALDATA___V148*/ meltfptr[147] = (melt_ptr_t )&meltcdat->dsym_91__CLASS_REFERENCE;
6436 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_91__CLASS_REFERENCE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
6437 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_91__CLASS_REFERENCE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
6438 meltcdat->dsym_91__CLASS_REFERENCE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
6439 meltcdat->dsym_91__CLASS_REFERENCE.obj_hash = 896623907;
6440 meltcdat->dsym_91__CLASS_REFERENCE.obj_len = 3;
6441
6442
6443 /*inistring dstr_92__CLASS_REFERENCE*/
6444 /*_._VALSTR___V149*/
6445 meltfptr[148] = (melt_ptr_t) &meltcdat->dstr_92__CLASS_REFERENCE;
6446 meltcdat->dstr_92__CLASS_REFERENCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
6447 /*small inistring*/
6448 strncpy(meltcdat->dstr_92__CLASS_REFERENCE.val, "CLASS_REFERENCE", sizeof (meltcdat->dstr_92__CLASS_REFERENCE.val)-1);
6449 meltcdat->dstr_92__CLASS_REFERENCE.val[15] = (char)0 ;
6450 meltcdat->dstr_92__CLASS_REFERENCE.slen = 15 ;
6451
6452 MELT_LOCATION("warmelt-debug.melt:110:/ iniobj");
6453
6454 /*iniobj dobj_93__TREE_DEBUG_FUNCONT*/
6455 /*_._VALDATA___V150*/
6456 meltfptr[149] = (melt_ptr_t )&meltcdat->dobj_93__TREE_DEBUG_FUNCONT;
6457 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_93__TREE_DEBUG_FUNCONT", melt_magic_discr ((melt_ptr_t) (/*_.CLASS_REFERENCE__V10*/ meltfptr[9])) == MELTOBMAG_OBJECT);
6458 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_93__TREE_DEBUG_FUNCONT", ((meltobject_ptr_t) (/*_.CLASS_REFERENCE__V10*/ meltfptr[9]))->meltobj_magic == MELTOBMAG_OBJECT);
6459 meltcdat->dobj_93__TREE_DEBUG_FUNCONT.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_REFERENCE__V10*/ meltfptr[9]);
6460 meltcdat->dobj_93__TREE_DEBUG_FUNCONT.obj_hash = 403168008;
6461 meltcdat->dobj_93__TREE_DEBUG_FUNCONT.obj_len = 1;
6462
6463 /*inirout drout_94__REGISTER_TREE_DEBUG_FUN*/
6464 /*iniroutlocvar*/ /*_._VALROUT___V151*/
6465 meltfptr[150] = (melt_ptr_t) &meltcdat->drout_94__REGISTER_TREE_DEBUG_FUN;
6466 meltcdat->drout_94__REGISTER_TREE_DEBUG_FUN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE))));
6467 strncpy (meltcdat->drout_94__REGISTER_TREE_DEBUG_FUN.routdescr, "REGISTER_TREE_DEBUG_FUN @warmelt-debug.melt:111", MELT_ROUTDESCR_LEN - 1);
6468 meltcdat->drout_94__REGISTER_TREE_DEBUG_FUN.nbval = 2;
6469 MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_94__REGISTER_TREE_DEBUG_FUN, meltrout_1_WARMELTmiDEBUG_REGISTER_TREE_DEBUG_FUN);
6470
6471 /*iniclos dclo_95__REGISTER_TREE_DEBUG_FUN*/
6472 /*_._VALCLO___V152*/
6473 meltfptr[151] = (melt_ptr_t) &meltcdat->dclo_95__REGISTER_TREE_DEBUG_FUN;
6474 meltcdat->dclo_95__REGISTER_TREE_DEBUG_FUN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE))));
6475 meltcdat->dclo_95__REGISTER_TREE_DEBUG_FUN.nbval = 0;
6476
6477
6478 /*iniobj dsym_96__GIMPLE_DEBUG_FUNCONT*/
6479 /*uniqueobj*/
6480 if (!/*_._VALDATA___V153*/ meltfptr[152])
6481 /*_._VALDATA___V153*/ meltfptr[152] = (melt_ptr_t )&meltcdat->dsym_96__GIMPLE_DEBUG_FUNCONT;
6482 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_96__GIMPLE_DEBUG_FUNCONT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
6483 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_96__GIMPLE_DEBUG_FUNCONT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
6484 meltcdat->dsym_96__GIMPLE_DEBUG_FUNCONT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
6485 meltcdat->dsym_96__GIMPLE_DEBUG_FUNCONT.obj_hash = 51178959;
6486 meltcdat->dsym_96__GIMPLE_DEBUG_FUNCONT.obj_len = 3;
6487
6488
6489 /*inistring dstr_97__GIMPLE_DEBUG_FUNCONT*/
6490 /*_._VALSTR___V154*/
6491 meltfptr[153] = (melt_ptr_t) &meltcdat->dstr_97__GIMPLE_DEBUG_FUNCONT;
6492 meltcdat->dstr_97__GIMPLE_DEBUG_FUNCONT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
6493 /*small inistring*/
6494 strncpy(meltcdat->dstr_97__GIMPLE_DEBUG_FUNCONT.val, "GIMPLE_DEBUG_FUNCONT", sizeof (meltcdat->dstr_97__GIMPLE_DEBUG_FUNCONT.val)-1);
6495 meltcdat->dstr_97__GIMPLE_DEBUG_FUNCONT.val[20] = (char)0 ;
6496 meltcdat->dstr_97__GIMPLE_DEBUG_FUNCONT.slen = 20 ;
6497
6498 MELT_LOCATION("warmelt-debug.melt:123:/ iniobj");
6499
6500 /*iniobj dobj_98__GIMPLE_DEBUG_FUNCONT*/
6501 /*_._VALDATA___V155*/
6502 meltfptr[154] = (melt_ptr_t )&meltcdat->dobj_98__GIMPLE_DEBUG_FUNCONT;
6503 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_98__GIMPLE_DEBUG_FUNCONT", melt_magic_discr ((melt_ptr_t) (/*_.CLASS_REFERENCE__V10*/ meltfptr[9])) == MELTOBMAG_OBJECT);
6504 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_98__GIMPLE_DEBUG_FUNCONT", ((meltobject_ptr_t) (/*_.CLASS_REFERENCE__V10*/ meltfptr[9]))->meltobj_magic == MELTOBMAG_OBJECT);
6505 meltcdat->dobj_98__GIMPLE_DEBUG_FUNCONT.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_REFERENCE__V10*/ meltfptr[9]);
6506 meltcdat->dobj_98__GIMPLE_DEBUG_FUNCONT.obj_hash = 1026421656;
6507 meltcdat->dobj_98__GIMPLE_DEBUG_FUNCONT.obj_len = 1;
6508
6509 /*inirout drout_99__REGISTER_GIMPLE_DEBUG_FUN*/
6510 /*iniroutlocvar*/ /*_._VALROUT___V156*/
6511 meltfptr[155] = (melt_ptr_t) &meltcdat->drout_99__REGISTER_GIMPLE_DEBUG_FUN;
6512 meltcdat->drout_99__REGISTER_GIMPLE_DEBUG_FUN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE))));
6513 strncpy (meltcdat->drout_99__REGISTER_GIMPLE_DEBUG_FUN.routdescr, "REGISTER_GIMPLE_DEBUG_FUN @warmelt-debug.melt:124", MELT_ROUTDESCR_LEN - 1);
6514 meltcdat->drout_99__REGISTER_GIMPLE_DEBUG_FUN.nbval = 2;
6515 MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_99__REGISTER_GIMPLE_DEBUG_FUN, meltrout_2_WARMELTmiDEBUG_REGISTER_GIMPLE_DEBUG_FUN);
6516
6517 /*iniclos dclo_100__REGISTER_GIMPLE_DEBUG_FUN*/
6518 /*_._VALCLO___V157*/
6519 meltfptr[156] = (melt_ptr_t) &meltcdat->dclo_100__REGISTER_GIMPLE_DEBUG_FUN;
6520 meltcdat->dclo_100__REGISTER_GIMPLE_DEBUG_FUN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE))));
6521 meltcdat->dclo_100__REGISTER_GIMPLE_DEBUG_FUN.nbval = 0;
6522
6523
6524 /*iniobj dsym_101__GIMPLESEQ_DEBUG_FUNCONT*/
6525 /*uniqueobj*/
6526 if (!/*_._VALDATA___V158*/ meltfptr[157])
6527 /*_._VALDATA___V158*/ meltfptr[157] = (melt_ptr_t )&meltcdat->dsym_101__GIMPLESEQ_DEBUG_FUNCONT;
6528 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_101__GIMPLESEQ_DEBUG_FUNCONT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
6529 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_101__GIMPLESEQ_DEBUG_FUNCONT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
6530 meltcdat->dsym_101__GIMPLESEQ_DEBUG_FUNCONT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
6531 meltcdat->dsym_101__GIMPLESEQ_DEBUG_FUNCONT.obj_hash = 813085508;
6532 meltcdat->dsym_101__GIMPLESEQ_DEBUG_FUNCONT.obj_len = 3;
6533
6534
6535 /*inistring dstr_102__GIMPLESEQ_DEBUG_FUNCONT*/
6536 /*_._VALSTR___V159*/
6537 meltfptr[158] = (melt_ptr_t) &meltcdat->dstr_102__GIMPLESEQ_DEBUG_FUNCONT;
6538 meltcdat->dstr_102__GIMPLESEQ_DEBUG_FUNCONT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
6539 /*small inistring*/
6540 strncpy(meltcdat->dstr_102__GIMPLESEQ_DEBUG_FUNCONT.val, "GIMPLESEQ_DEBUG_FUNCONT", sizeof (meltcdat->dstr_102__GIMPLESEQ_DEBUG_FUNCONT.val)-1);
6541 meltcdat->dstr_102__GIMPLESEQ_DEBUG_FUNCONT.val[23] = (char)0 ;
6542 meltcdat->dstr_102__GIMPLESEQ_DEBUG_FUNCONT.slen = 23 ;
6543
6544 MELT_LOCATION("warmelt-debug.melt:136:/ iniobj");
6545
6546 /*iniobj dobj_103__GIMPLESEQ_DEBUG_FUNCONT*/
6547 /*_._VALDATA___V160*/
6548 meltfptr[159] = (melt_ptr_t )&meltcdat->dobj_103__GIMPLESEQ_DEBUG_FUNCONT;
6549 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_103__GIMPLESEQ_DEBUG_FUNCONT", melt_magic_discr ((melt_ptr_t) (/*_.CLASS_REFERENCE__V10*/ meltfptr[9])) == MELTOBMAG_OBJECT);
6550 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_103__GIMPLESEQ_DEBUG_FUNCONT", ((meltobject_ptr_t) (/*_.CLASS_REFERENCE__V10*/ meltfptr[9]))->meltobj_magic == MELTOBMAG_OBJECT);
6551 meltcdat->dobj_103__GIMPLESEQ_DEBUG_FUNCONT.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_REFERENCE__V10*/ meltfptr[9]);
6552 meltcdat->dobj_103__GIMPLESEQ_DEBUG_FUNCONT.obj_hash = 84224615;
6553 meltcdat->dobj_103__GIMPLESEQ_DEBUG_FUNCONT.obj_len = 1;
6554
6555 /*inirout drout_104__REGISTER_GIMPLESEQ_DEBUG_FUN*/
6556 /*iniroutlocvar*/ /*_._VALROUT___V161*/
6557 meltfptr[160] = (melt_ptr_t) &meltcdat->drout_104__REGISTER_GIMPLESEQ_DEBUG_FUN;
6558 meltcdat->drout_104__REGISTER_GIMPLESEQ_DEBUG_FUN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE))));
6559 strncpy (meltcdat->drout_104__REGISTER_GIMPLESEQ_DEBUG_FUN.routdescr, "REGISTER_GIMPLESEQ_DEBUG_FUN @warmelt-debug.melt:137", MELT_ROUTDESCR_LEN - 1);
6560 meltcdat->drout_104__REGISTER_GIMPLESEQ_DEBUG_FUN.nbval = 2;
6561 MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_104__REGISTER_GIMPLESEQ_DEBUG_FUN, meltrout_3_WARMELTmiDEBUG_REGISTER_GIMPLESEQ_DEBUG_FUN);
6562
6563 /*iniclos dclo_105__REGISTER_GIMPLESEQ_DEBUG_FUN*/
6564 /*_._VALCLO___V162*/
6565 meltfptr[161] = (melt_ptr_t) &meltcdat->dclo_105__REGISTER_GIMPLESEQ_DEBUG_FUN;
6566 meltcdat->dclo_105__REGISTER_GIMPLESEQ_DEBUG_FUN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE))));
6567 meltcdat->dclo_105__REGISTER_GIMPLESEQ_DEBUG_FUN.nbval = 0;
6568
6569
6570 /*iniobj dsym_106__EDGE_DEBUG_FUNCONT*/
6571 /*uniqueobj*/
6572 if (!/*_._VALDATA___V163*/ meltfptr[162])
6573 /*_._VALDATA___V163*/ meltfptr[162] = (melt_ptr_t )&meltcdat->dsym_106__EDGE_DEBUG_FUNCONT;
6574 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_106__EDGE_DEBUG_FUNCONT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
6575 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_106__EDGE_DEBUG_FUNCONT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
6576 meltcdat->dsym_106__EDGE_DEBUG_FUNCONT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
6577 meltcdat->dsym_106__EDGE_DEBUG_FUNCONT.obj_hash = 803948317;
6578 meltcdat->dsym_106__EDGE_DEBUG_FUNCONT.obj_len = 3;
6579
6580
6581 /*inistring dstr_107__EDGE_DEBUG_FUNCONT*/
6582 /*_._VALSTR___V164*/
6583 meltfptr[163] = (melt_ptr_t) &meltcdat->dstr_107__EDGE_DEBUG_FUNCONT;
6584 meltcdat->dstr_107__EDGE_DEBUG_FUNCONT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
6585 /*small inistring*/
6586 strncpy(meltcdat->dstr_107__EDGE_DEBUG_FUNCONT.val, "EDGE_DEBUG_FUNCONT", sizeof (meltcdat->dstr_107__EDGE_DEBUG_FUNCONT.val)-1);
6587 meltcdat->dstr_107__EDGE_DEBUG_FUNCONT.val[18] = (char)0 ;
6588 meltcdat->dstr_107__EDGE_DEBUG_FUNCONT.slen = 18 ;
6589
6590 MELT_LOCATION("warmelt-debug.melt:149:/ iniobj");
6591
6592 /*iniobj dobj_108__EDGE_DEBUG_FUNCONT*/
6593 /*_._VALDATA___V165*/
6594 meltfptr[164] = (melt_ptr_t )&meltcdat->dobj_108__EDGE_DEBUG_FUNCONT;
6595 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_108__EDGE_DEBUG_FUNCONT", melt_magic_discr ((melt_ptr_t) (/*_.CLASS_REFERENCE__V10*/ meltfptr[9])) == MELTOBMAG_OBJECT);
6596 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_108__EDGE_DEBUG_FUNCONT", ((meltobject_ptr_t) (/*_.CLASS_REFERENCE__V10*/ meltfptr[9]))->meltobj_magic == MELTOBMAG_OBJECT);
6597 meltcdat->dobj_108__EDGE_DEBUG_FUNCONT.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_REFERENCE__V10*/ meltfptr[9]);
6598 meltcdat->dobj_108__EDGE_DEBUG_FUNCONT.obj_hash = 803145880;
6599 meltcdat->dobj_108__EDGE_DEBUG_FUNCONT.obj_len = 1;
6600
6601 /*inirout drout_109__REGISTER_EDGE_DEBUG_FUN*/
6602 /*iniroutlocvar*/ /*_._VALROUT___V166*/
6603 meltfptr[165] = (melt_ptr_t) &meltcdat->drout_109__REGISTER_EDGE_DEBUG_FUN;
6604 meltcdat->drout_109__REGISTER_EDGE_DEBUG_FUN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE))));
6605 strncpy (meltcdat->drout_109__REGISTER_EDGE_DEBUG_FUN.routdescr, "REGISTER_EDGE_DEBUG_FUN @warmelt-debug.melt:150", MELT_ROUTDESCR_LEN - 1);
6606 meltcdat->drout_109__REGISTER_EDGE_DEBUG_FUN.nbval = 2;
6607 MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_109__REGISTER_EDGE_DEBUG_FUN, meltrout_4_WARMELTmiDEBUG_REGISTER_EDGE_DEBUG_FUN);
6608
6609 /*iniclos dclo_110__REGISTER_EDGE_DEBUG_FUN*/
6610 /*_._VALCLO___V167*/
6611 meltfptr[166] = (melt_ptr_t) &meltcdat->dclo_110__REGISTER_EDGE_DEBUG_FUN;
6612 meltcdat->dclo_110__REGISTER_EDGE_DEBUG_FUN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE))));
6613 meltcdat->dclo_110__REGISTER_EDGE_DEBUG_FUN.nbval = 0;
6614
6615
6616 /*iniobj dsym_111__BASICBLOCK_DEBUG_FUNCONT*/
6617 /*uniqueobj*/
6618 if (!/*_._VALDATA___V168*/ meltfptr[167])
6619 /*_._VALDATA___V168*/ meltfptr[167] = (melt_ptr_t )&meltcdat->dsym_111__BASICBLOCK_DEBUG_FUNCONT;
6620 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_111__BASICBLOCK_DEBUG_FUNCONT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
6621 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_111__BASICBLOCK_DEBUG_FUNCONT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
6622 meltcdat->dsym_111__BASICBLOCK_DEBUG_FUNCONT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
6623 meltcdat->dsym_111__BASICBLOCK_DEBUG_FUNCONT.obj_hash = 507389899;
6624 meltcdat->dsym_111__BASICBLOCK_DEBUG_FUNCONT.obj_len = 3;
6625
6626
6627 /*inistring dstr_112__BASICBLOCK_DEBUG_FUNCONT*/
6628 /*_._VALSTR___V169*/
6629 meltfptr[168] = (melt_ptr_t) &meltcdat->dstr_112__BASICBLOCK_DEBUG_FUNCONT;
6630 meltcdat->dstr_112__BASICBLOCK_DEBUG_FUNCONT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
6631 /*small inistring*/
6632 strncpy(meltcdat->dstr_112__BASICBLOCK_DEBUG_FUNCONT.val, "BASICBLOCK_DEBUG_FUNCONT", sizeof (meltcdat->dstr_112__BASICBLOCK_DEBUG_FUNCONT.val)-1);
6633 meltcdat->dstr_112__BASICBLOCK_DEBUG_FUNCONT.val[24] = (char)0 ;
6634 meltcdat->dstr_112__BASICBLOCK_DEBUG_FUNCONT.slen = 24 ;
6635
6636 MELT_LOCATION("warmelt-debug.melt:162:/ iniobj");
6637
6638 /*iniobj dobj_113__BASICBLOCK_DEBUG_FUNCONT*/
6639 /*_._VALDATA___V170*/
6640 meltfptr[169] = (melt_ptr_t )&meltcdat->dobj_113__BASICBLOCK_DEBUG_FUNCONT;
6641 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_113__BASICBLOCK_DEBUG_FUNCONT", melt_magic_discr ((melt_ptr_t) (/*_.CLASS_REFERENCE__V10*/ meltfptr[9])) == MELTOBMAG_OBJECT);
6642 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_113__BASICBLOCK_DEBUG_FUNCONT", ((meltobject_ptr_t) (/*_.CLASS_REFERENCE__V10*/ meltfptr[9]))->meltobj_magic == MELTOBMAG_OBJECT);
6643 meltcdat->dobj_113__BASICBLOCK_DEBUG_FUNCONT.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_REFERENCE__V10*/ meltfptr[9]);
6644 meltcdat->dobj_113__BASICBLOCK_DEBUG_FUNCONT.obj_hash = 1006777100;
6645 meltcdat->dobj_113__BASICBLOCK_DEBUG_FUNCONT.obj_len = 1;
6646
6647 /*inirout drout_114__REGISTER_BASICBLOCK_DEBUG_FUN*/
6648 /*iniroutlocvar*/ /*_._VALROUT___V171*/
6649 meltfptr[170] = (melt_ptr_t) &meltcdat->drout_114__REGISTER_BASICBLOCK_DEBUG_FUN;
6650 meltcdat->drout_114__REGISTER_BASICBLOCK_DEBUG_FUN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE))));
6651 strncpy (meltcdat->drout_114__REGISTER_BASICBLOCK_DEBUG_FUN.routdescr, "REGISTER_BASICBLOCK_DEBUG_FUN @warmelt-debug.melt:163", MELT_ROUTDESCR_LEN - 1);
6652 meltcdat->drout_114__REGISTER_BASICBLOCK_DEBUG_FUN.nbval = 2;
6653 MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_114__REGISTER_BASICBLOCK_DEBUG_FUN, meltrout_5_WARMELTmiDEBUG_REGISTER_BASICBLOCK_DEBUG_FUN);
6654
6655 /*iniclos dclo_115__REGISTER_BASICBLOCK_DEBUG_FUN*/
6656 /*_._VALCLO___V172*/
6657 meltfptr[171] = (melt_ptr_t) &meltcdat->dclo_115__REGISTER_BASICBLOCK_DEBUG_FUN;
6658 meltcdat->dclo_115__REGISTER_BASICBLOCK_DEBUG_FUN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE))));
6659 meltcdat->dclo_115__REGISTER_BASICBLOCK_DEBUG_FUN.nbval = 0;
6660
6661
6662 /*iniobj dsym_116__LOOP_DEBUG_FUNCONT*/
6663 /*uniqueobj*/
6664 if (!/*_._VALDATA___V173*/ meltfptr[172])
6665 /*_._VALDATA___V173*/ meltfptr[172] = (melt_ptr_t )&meltcdat->dsym_116__LOOP_DEBUG_FUNCONT;
6666 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_116__LOOP_DEBUG_FUNCONT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
6667 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_116__LOOP_DEBUG_FUNCONT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
6668 meltcdat->dsym_116__LOOP_DEBUG_FUNCONT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
6669 meltcdat->dsym_116__LOOP_DEBUG_FUNCONT.obj_hash = 436769164;
6670 meltcdat->dsym_116__LOOP_DEBUG_FUNCONT.obj_len = 3;
6671
6672
6673 /*inistring dstr_117__LOOP_DEBUG_FUNCONT*/
6674 /*_._VALSTR___V174*/
6675 meltfptr[173] = (melt_ptr_t) &meltcdat->dstr_117__LOOP_DEBUG_FUNCONT;
6676 meltcdat->dstr_117__LOOP_DEBUG_FUNCONT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
6677 /*small inistring*/
6678 strncpy(meltcdat->dstr_117__LOOP_DEBUG_FUNCONT.val, "LOOP_DEBUG_FUNCONT", sizeof (meltcdat->dstr_117__LOOP_DEBUG_FUNCONT.val)-1);
6679 meltcdat->dstr_117__LOOP_DEBUG_FUNCONT.val[18] = (char)0 ;
6680 meltcdat->dstr_117__LOOP_DEBUG_FUNCONT.slen = 18 ;
6681
6682 MELT_LOCATION("warmelt-debug.melt:175:/ iniobj");
6683
6684 /*iniobj dobj_118__LOOP_DEBUG_FUNCONT*/
6685 /*_._VALDATA___V175*/
6686 meltfptr[174] = (melt_ptr_t )&meltcdat->dobj_118__LOOP_DEBUG_FUNCONT;
6687 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_118__LOOP_DEBUG_FUNCONT", melt_magic_discr ((melt_ptr_t) (/*_.CLASS_REFERENCE__V10*/ meltfptr[9])) == MELTOBMAG_OBJECT);
6688 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_118__LOOP_DEBUG_FUNCONT", ((meltobject_ptr_t) (/*_.CLASS_REFERENCE__V10*/ meltfptr[9]))->meltobj_magic == MELTOBMAG_OBJECT);
6689 meltcdat->dobj_118__LOOP_DEBUG_FUNCONT.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_REFERENCE__V10*/ meltfptr[9]);
6690 meltcdat->dobj_118__LOOP_DEBUG_FUNCONT.obj_hash = 608531599;
6691 meltcdat->dobj_118__LOOP_DEBUG_FUNCONT.obj_len = 1;
6692
6693 /*inirout drout_119__REGISTER_LOOP_DEBUG_FUN*/
6694 /*iniroutlocvar*/ /*_._VALROUT___V176*/
6695 meltfptr[175] = (melt_ptr_t) &meltcdat->drout_119__REGISTER_LOOP_DEBUG_FUN;
6696 meltcdat->drout_119__REGISTER_LOOP_DEBUG_FUN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE))));
6697 strncpy (meltcdat->drout_119__REGISTER_LOOP_DEBUG_FUN.routdescr, "REGISTER_LOOP_DEBUG_FUN @warmelt-debug.melt:176", MELT_ROUTDESCR_LEN - 1);
6698 meltcdat->drout_119__REGISTER_LOOP_DEBUG_FUN.nbval = 2;
6699 MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_119__REGISTER_LOOP_DEBUG_FUN, meltrout_6_WARMELTmiDEBUG_REGISTER_LOOP_DEBUG_FUN);
6700
6701 /*iniclos dclo_120__REGISTER_LOOP_DEBUG_FUN*/
6702 /*_._VALCLO___V177*/
6703 meltfptr[176] = (melt_ptr_t) &meltcdat->dclo_120__REGISTER_LOOP_DEBUG_FUN;
6704 meltcdat->dclo_120__REGISTER_LOOP_DEBUG_FUN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE))));
6705 meltcdat->dclo_120__REGISTER_LOOP_DEBUG_FUN.nbval = 0;
6706
6707
6708 /*iniobj dsym_121__DISCR_DEBUG_CLOSURE*/
6709 /*uniqueobj*/
6710 if (!/*_._VALDATA___V178*/ meltfptr[177])
6711 /*_._VALDATA___V178*/ meltfptr[177] = (melt_ptr_t )&meltcdat->dsym_121__DISCR_DEBUG_CLOSURE;
6712 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_121__DISCR_DEBUG_CLOSURE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
6713 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_121__DISCR_DEBUG_CLOSURE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
6714 meltcdat->dsym_121__DISCR_DEBUG_CLOSURE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
6715 meltcdat->dsym_121__DISCR_DEBUG_CLOSURE.obj_hash = 726425766;
6716 meltcdat->dsym_121__DISCR_DEBUG_CLOSURE.obj_len = 3;
6717
6718
6719 /*inistring dstr_122__DISCR_DEBUG_CLOSURE*/
6720 /*_._VALSTR___V179*/
6721 meltfptr[178] = (melt_ptr_t) &meltcdat->dstr_122__DISCR_DEBUG_CLOSURE;
6722 meltcdat->dstr_122__DISCR_DEBUG_CLOSURE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
6723 /*small inistring*/
6724 strncpy(meltcdat->dstr_122__DISCR_DEBUG_CLOSURE.val, "DISCR_DEBUG_CLOSURE", sizeof (meltcdat->dstr_122__DISCR_DEBUG_CLOSURE.val)-1);
6725 meltcdat->dstr_122__DISCR_DEBUG_CLOSURE.val[19] = (char)0 ;
6726 meltcdat->dstr_122__DISCR_DEBUG_CLOSURE.slen = 19 ;
6727
6728
6729 /*iniobj dsym_123__CLASS_DISCRIMINANT*/
6730 /*uniqueobj*/
6731 if (!/*_._VALDATA___V180*/ meltfptr[179])
6732 /*_._VALDATA___V180*/ meltfptr[179] = (melt_ptr_t )&meltcdat->dsym_123__CLASS_DISCRIMINANT;
6733 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_123__CLASS_DISCRIMINANT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
6734 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_123__CLASS_DISCRIMINANT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
6735 meltcdat->dsym_123__CLASS_DISCRIMINANT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
6736 meltcdat->dsym_123__CLASS_DISCRIMINANT.obj_hash = 535191995;
6737 meltcdat->dsym_123__CLASS_DISCRIMINANT.obj_len = 3;
6738
6739
6740 /*inistring dstr_124__CLASS_DISCRIMINANT*/
6741 /*_._VALSTR___V181*/
6742 meltfptr[180] = (melt_ptr_t) &meltcdat->dstr_124__CLASS_DISCRIMINANT;
6743 meltcdat->dstr_124__CLASS_DISCRIMINANT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
6744 /*small inistring*/
6745 strncpy(meltcdat->dstr_124__CLASS_DISCRIMINANT.val, "CLASS_DISCRIMINANT", sizeof (meltcdat->dstr_124__CLASS_DISCRIMINANT.val)-1);
6746 meltcdat->dstr_124__CLASS_DISCRIMINANT.val[18] = (char)0 ;
6747 meltcdat->dstr_124__CLASS_DISCRIMINANT.slen = 18 ;
6748
6749 MELT_LOCATION("warmelt-debug.melt:188:/ iniobj");
6750
6751 /*iniobj dobj_125__DISCR_DEBUG_CLOSURE*/
6752 /*_._VALDATA___V182*/
6753 meltfptr[181] = (melt_ptr_t )&meltcdat->dobj_125__DISCR_DEBUG_CLOSURE;
6754 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_125__DISCR_DEBUG_CLOSURE", melt_magic_discr ((melt_ptr_t) (/*_.CLASS_DISCRIMINANT__V11*/ meltfptr[10])) == MELTOBMAG_OBJECT);
6755 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_125__DISCR_DEBUG_CLOSURE", ((meltobject_ptr_t) (/*_.CLASS_DISCRIMINANT__V11*/ meltfptr[10]))->meltobj_magic == MELTOBMAG_OBJECT);
6756 meltcdat->dobj_125__DISCR_DEBUG_CLOSURE.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_DISCRIMINANT__V11*/ meltfptr[10]);
6757 meltcdat->dobj_125__DISCR_DEBUG_CLOSURE.obj_num = MELTOBMAG_CLOSURE;
6758 meltcdat->dobj_125__DISCR_DEBUG_CLOSURE.obj_hash = 980366766;
6759 meltcdat->dobj_125__DISCR_DEBUG_CLOSURE.obj_len = 5;
6760
6761
6762 /*iniobj dsym_126__DISCR_CLOSURE*/
6763 /*uniqueobj*/
6764 if (!/*_._VALDATA___V184*/ meltfptr[183])
6765 /*_._VALDATA___V184*/ meltfptr[183] = (melt_ptr_t )&meltcdat->dsym_126__DISCR_CLOSURE;
6766 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_126__DISCR_CLOSURE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
6767 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_126__DISCR_CLOSURE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
6768 meltcdat->dsym_126__DISCR_CLOSURE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
6769 meltcdat->dsym_126__DISCR_CLOSURE.obj_hash = 99248147;
6770 meltcdat->dsym_126__DISCR_CLOSURE.obj_len = 3;
6771
6772
6773 /*inistring dstr_127__DISCR_CLOSURE*/
6774 /*_._VALSTR___V185*/
6775 meltfptr[184] = (melt_ptr_t) &meltcdat->dstr_127__DISCR_CLOSURE;
6776 meltcdat->dstr_127__DISCR_CLOSURE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
6777 /*small inistring*/
6778 strncpy(meltcdat->dstr_127__DISCR_CLOSURE.val, "DISCR_CLOSURE", sizeof (meltcdat->dstr_127__DISCR_CLOSURE.val)-1);
6779 meltcdat->dstr_127__DISCR_CLOSURE.val[13] = (char)0 ;
6780 meltcdat->dstr_127__DISCR_CLOSURE.slen = 13 ;
6781
6782
6783 /*inistring dstr_128__DISCR_DEBUG_CLOSURE*/
6784 /*_._VALSTR___V183*/
6785 meltfptr[182] = (melt_ptr_t) &meltcdat->dstr_128__DISCR_DEBUG_CLOSURE;
6786 meltcdat->dstr_128__DISCR_DEBUG_CLOSURE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
6787 /*small inistring*/
6788 strncpy(meltcdat->dstr_128__DISCR_DEBUG_CLOSURE.val, "DISCR_DEBUG_CLOSURE", sizeof (meltcdat->dstr_128__DISCR_DEBUG_CLOSURE.val)-1);
6789 meltcdat->dstr_128__DISCR_DEBUG_CLOSURE.val[19] = (char)0 ;
6790 meltcdat->dstr_128__DISCR_DEBUG_CLOSURE.slen = 19 ;
6791
6792 /*inirout drout_129__MELT_DEBUG_FUN*/
6793 /*iniroutlocvar*/ /*_._VALROUT___V186*/
6794 meltfptr[185] = (melt_ptr_t) &meltcdat->drout_129__MELT_DEBUG_FUN;
6795 meltcdat->drout_129__MELT_DEBUG_FUN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE))));
6796 strncpy (meltcdat->drout_129__MELT_DEBUG_FUN.routdescr, "MELT_DEBUG_FUN @warmelt-debug.melt:199", MELT_ROUTDESCR_LEN - 1);
6797 meltcdat->drout_129__MELT_DEBUG_FUN.nbval = 20;
6798 MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_129__MELT_DEBUG_FUN, meltrout_7_WARMELTmiDEBUG_MELT_DEBUG_FUN);
6799
6800 /*iniclos dclo_130__MELT_DEBUG_FUN*/
6801 /*_._VALCLO___V191*/
6802 meltfptr[190] = (melt_ptr_t) &meltcdat->dclo_130__MELT_DEBUG_FUN;
6803 meltcdat->dclo_130__MELT_DEBUG_FUN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE))));
6804 meltcdat->dclo_130__MELT_DEBUG_FUN.nbval = 0;
6805
6806
6807 /*iniobj dsym_131__INITIAL_SYSTEM_DATA*/
6808 /*uniqueobj*/
6809 if (!/*_._VALDATA___V192*/ meltfptr[191])
6810 /*_._VALDATA___V192*/ meltfptr[191] = (melt_ptr_t )&meltcdat->dsym_131__INITIAL_SYSTEM_DATA;
6811 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_131__INITIAL_SYSTEM_DATA", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
6812 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_131__INITIAL_SYSTEM_DATA", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
6813 meltcdat->dsym_131__INITIAL_SYSTEM_DATA.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
6814 meltcdat->dsym_131__INITIAL_SYSTEM_DATA.obj_hash = 771349808;
6815 meltcdat->dsym_131__INITIAL_SYSTEM_DATA.obj_len = 3;
6816
6817
6818 /*inistring dstr_132__INITIAL_SYSTEM_DATA*/
6819 /*_._VALSTR___V193*/
6820 meltfptr[192] = (melt_ptr_t) &meltcdat->dstr_132__INITIAL_SYSTEM_DATA;
6821 meltcdat->dstr_132__INITIAL_SYSTEM_DATA.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
6822 /*small inistring*/
6823 strncpy(meltcdat->dstr_132__INITIAL_SYSTEM_DATA.val, "INITIAL_SYSTEM_DATA", sizeof (meltcdat->dstr_132__INITIAL_SYSTEM_DATA.val)-1);
6824 meltcdat->dstr_132__INITIAL_SYSTEM_DATA.val[19] = (char)0 ;
6825 meltcdat->dstr_132__INITIAL_SYSTEM_DATA.slen = 19 ;
6826
6827
6828 /*iniobj dsym_133__CLASS_SYSTEM_DATA*/
6829 /*uniqueobj*/
6830 if (!/*_._VALDATA___V194*/ meltfptr[193])
6831 /*_._VALDATA___V194*/ meltfptr[193] = (melt_ptr_t )&meltcdat->dsym_133__CLASS_SYSTEM_DATA;
6832 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_133__CLASS_SYSTEM_DATA", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
6833 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_133__CLASS_SYSTEM_DATA", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
6834 meltcdat->dsym_133__CLASS_SYSTEM_DATA.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
6835 meltcdat->dsym_133__CLASS_SYSTEM_DATA.obj_hash = 648451867;
6836 meltcdat->dsym_133__CLASS_SYSTEM_DATA.obj_len = 3;
6837
6838
6839 /*inistring dstr_134__CLASS_SYSTEM_DATA*/
6840 /*_._VALSTR___V195*/
6841 meltfptr[194] = (melt_ptr_t) &meltcdat->dstr_134__CLASS_SYSTEM_DATA;
6842 meltcdat->dstr_134__CLASS_SYSTEM_DATA.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
6843 /*small inistring*/
6844 strncpy(meltcdat->dstr_134__CLASS_SYSTEM_DATA.val, "CLASS_SYSTEM_DATA", sizeof (meltcdat->dstr_134__CLASS_SYSTEM_DATA.val)-1);
6845 meltcdat->dstr_134__CLASS_SYSTEM_DATA.val[17] = (char)0 ;
6846 meltcdat->dstr_134__CLASS_SYSTEM_DATA.slen = 17 ;
6847
6848
6849 /*iniobj dsym_135__DISCR_MAP_OBJECTS*/
6850 /*uniqueobj*/
6851 if (!/*_._VALDATA___V196*/ meltfptr[195])
6852 /*_._VALDATA___V196*/ meltfptr[195] = (melt_ptr_t )&meltcdat->dsym_135__DISCR_MAP_OBJECTS;
6853 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_135__DISCR_MAP_OBJECTS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
6854 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_135__DISCR_MAP_OBJECTS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
6855 meltcdat->dsym_135__DISCR_MAP_OBJECTS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
6856 meltcdat->dsym_135__DISCR_MAP_OBJECTS.obj_hash = 217147088;
6857 meltcdat->dsym_135__DISCR_MAP_OBJECTS.obj_len = 3;
6858
6859
6860 /*inistring dstr_136__DISCR_MAP_OBJECTS*/
6861 /*_._VALSTR___V197*/
6862 meltfptr[196] = (melt_ptr_t) &meltcdat->dstr_136__DISCR_MAP_OBJECTS;
6863 meltcdat->dstr_136__DISCR_MAP_OBJECTS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
6864 /*small inistring*/
6865 strncpy(meltcdat->dstr_136__DISCR_MAP_OBJECTS.val, "DISCR_MAP_OBJECTS", sizeof (meltcdat->dstr_136__DISCR_MAP_OBJECTS.val)-1);
6866 meltcdat->dstr_136__DISCR_MAP_OBJECTS.val[17] = (char)0 ;
6867 meltcdat->dstr_136__DISCR_MAP_OBJECTS.slen = 17 ;
6868
6869
6870 /*iniobj dsym_137__DISCR_INTEGER*/
6871 /*uniqueobj*/
6872 if (!/*_._VALDATA___V198*/ meltfptr[197])
6873 /*_._VALDATA___V198*/ meltfptr[197] = (melt_ptr_t )&meltcdat->dsym_137__DISCR_INTEGER;
6874 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_137__DISCR_INTEGER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
6875 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_137__DISCR_INTEGER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
6876 meltcdat->dsym_137__DISCR_INTEGER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
6877 meltcdat->dsym_137__DISCR_INTEGER.obj_hash = 119182103;
6878 meltcdat->dsym_137__DISCR_INTEGER.obj_len = 3;
6879
6880
6881 /*inistring dstr_138__DISCR_INTEGER*/
6882 /*_._VALSTR___V199*/
6883 meltfptr[198] = (melt_ptr_t) &meltcdat->dstr_138__DISCR_INTEGER;
6884 meltcdat->dstr_138__DISCR_INTEGER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
6885 /*small inistring*/
6886 strncpy(meltcdat->dstr_138__DISCR_INTEGER.val, "DISCR_INTEGER", sizeof (meltcdat->dstr_138__DISCR_INTEGER.val)-1);
6887 meltcdat->dstr_138__DISCR_INTEGER.val[13] = (char)0 ;
6888 meltcdat->dstr_138__DISCR_INTEGER.slen = 13 ;
6889
6890
6891 /*iniobj dsym_139__DISCR_STRBUF*/
6892 /*uniqueobj*/
6893 if (!/*_._VALDATA___V200*/ meltfptr[199])
6894 /*_._VALDATA___V200*/ meltfptr[199] = (melt_ptr_t )&meltcdat->dsym_139__DISCR_STRBUF;
6895 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_139__DISCR_STRBUF", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
6896 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_139__DISCR_STRBUF", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
6897 meltcdat->dsym_139__DISCR_STRBUF.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
6898 meltcdat->dsym_139__DISCR_STRBUF.obj_hash = 492035674;
6899 meltcdat->dsym_139__DISCR_STRBUF.obj_len = 3;
6900
6901
6902 /*inistring dstr_140__DISCR_STRBUF*/
6903 /*_._VALSTR___V201*/
6904 meltfptr[200] = (melt_ptr_t) &meltcdat->dstr_140__DISCR_STRBUF;
6905 meltcdat->dstr_140__DISCR_STRBUF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
6906 /*small inistring*/
6907 strncpy(meltcdat->dstr_140__DISCR_STRBUF.val, "DISCR_STRBUF", sizeof (meltcdat->dstr_140__DISCR_STRBUF.val)-1);
6908 meltcdat->dstr_140__DISCR_STRBUF.val[12] = (char)0 ;
6909 meltcdat->dstr_140__DISCR_STRBUF.slen = 12 ;
6910
6911
6912 /*iniobj dsym_141__MELT_ASSERT_FAILURE_FUN*/
6913 /*uniqueobj*/
6914 if (!/*_._VALDATA___V202*/ meltfptr[201])
6915 /*_._VALDATA___V202*/ meltfptr[201] = (melt_ptr_t )&meltcdat->dsym_141__MELT_ASSERT_FAILURE_FUN;
6916 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_141__MELT_ASSERT_FAILURE_FUN", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
6917 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_141__MELT_ASSERT_FAILURE_FUN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
6918 meltcdat->dsym_141__MELT_ASSERT_FAILURE_FUN.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
6919 meltcdat->dsym_141__MELT_ASSERT_FAILURE_FUN.obj_hash = 215547874;
6920 meltcdat->dsym_141__MELT_ASSERT_FAILURE_FUN.obj_len = 3;
6921
6922
6923 /*inistring dstr_142__MELT_ASSERT_FAILURE_FUN*/
6924 /*_._VALSTR___V203*/
6925 meltfptr[202] = (melt_ptr_t) &meltcdat->dstr_142__MELT_ASSERT_FAILURE_FUN;
6926 meltcdat->dstr_142__MELT_ASSERT_FAILURE_FUN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
6927 /*small inistring*/
6928 strncpy(meltcdat->dstr_142__MELT_ASSERT_FAILURE_FUN.val, "MELT_ASSERT_FAILURE_FUN", sizeof (meltcdat->dstr_142__MELT_ASSERT_FAILURE_FUN.val)-1);
6929 meltcdat->dstr_142__MELT_ASSERT_FAILURE_FUN.val[23] = (char)0 ;
6930 meltcdat->dstr_142__MELT_ASSERT_FAILURE_FUN.slen = 23 ;
6931
6932
6933 /*iniobj dsym_143__ADD2OUT*/
6934 /*uniqueobj*/
6935 if (!/*_._VALDATA___V204*/ meltfptr[203])
6936 /*_._VALDATA___V204*/ meltfptr[203] = (melt_ptr_t )&meltcdat->dsym_143__ADD2OUT;
6937 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_143__ADD2OUT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
6938 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_143__ADD2OUT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
6939 meltcdat->dsym_143__ADD2OUT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
6940 meltcdat->dsym_143__ADD2OUT.obj_hash = 901325062;
6941 meltcdat->dsym_143__ADD2OUT.obj_len = 3;
6942
6943
6944 /*inistring dstr_144__ADD2OUT*/
6945 /*_._VALSTR___V205*/
6946 meltfptr[204] = (melt_ptr_t) &meltcdat->dstr_144__ADD2OUT;
6947 meltcdat->dstr_144__ADD2OUT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
6948 /*small inistring*/
6949 strncpy(meltcdat->dstr_144__ADD2OUT.val, "ADD2OUT", sizeof (meltcdat->dstr_144__ADD2OUT.val)-1);
6950 meltcdat->dstr_144__ADD2OUT.val[7] = (char)0 ;
6951 meltcdat->dstr_144__ADD2OUT.slen = 7 ;
6952
6953
6954 /*iniobj dsym_145__CSTRING_PREFIXED*/
6955 /*uniqueobj*/
6956 if (!/*_._VALDATA___V206*/ meltfptr[205])
6957 /*_._VALDATA___V206*/ meltfptr[205] = (melt_ptr_t )&meltcdat->dsym_145__CSTRING_PREFIXED;
6958 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_145__CSTRING_PREFIXED", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
6959 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_145__CSTRING_PREFIXED", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
6960 meltcdat->dsym_145__CSTRING_PREFIXED.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
6961 meltcdat->dsym_145__CSTRING_PREFIXED.obj_hash = 976907042;
6962 meltcdat->dsym_145__CSTRING_PREFIXED.obj_len = 3;
6963
6964
6965 /*inistring dstr_146__CSTRING_PREFIXED*/
6966 /*_._VALSTR___V207*/
6967 meltfptr[206] = (melt_ptr_t) &meltcdat->dstr_146__CSTRING_PREFIXED;
6968 meltcdat->dstr_146__CSTRING_PREFIXED.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
6969 /*small inistring*/
6970 strncpy(meltcdat->dstr_146__CSTRING_PREFIXED.val, "CSTRING_PREFIXED", sizeof (meltcdat->dstr_146__CSTRING_PREFIXED.val)-1);
6971 meltcdat->dstr_146__CSTRING_PREFIXED.val[16] = (char)0 ;
6972 meltcdat->dstr_146__CSTRING_PREFIXED.slen = 16 ;
6973
6974
6975 /*iniobj dsym_147__CLASS_NAMED*/
6976 /*uniqueobj*/
6977 if (!/*_._VALDATA___V208*/ meltfptr[207])
6978 /*_._VALDATA___V208*/ meltfptr[207] = (melt_ptr_t )&meltcdat->dsym_147__CLASS_NAMED;
6979 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_147__CLASS_NAMED", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
6980 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_147__CLASS_NAMED", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
6981 meltcdat->dsym_147__CLASS_NAMED.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
6982 meltcdat->dsym_147__CLASS_NAMED.obj_hash = 60407004;
6983 meltcdat->dsym_147__CLASS_NAMED.obj_len = 3;
6984
6985
6986 /*inistring dstr_148__CLASS_NAMED*/
6987 /*_._VALSTR___V209*/
6988 meltfptr[208] = (melt_ptr_t) &meltcdat->dstr_148__CLASS_NAMED;
6989 meltcdat->dstr_148__CLASS_NAMED.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
6990 /*small inistring*/
6991 strncpy(meltcdat->dstr_148__CLASS_NAMED.val, "CLASS_NAMED", sizeof (meltcdat->dstr_148__CLASS_NAMED.val)-1);
6992 meltcdat->dstr_148__CLASS_NAMED.val[11] = (char)0 ;
6993 meltcdat->dstr_148__CLASS_NAMED.slen = 11 ;
6994
6995
6996 /*iniobj dsym_149__CLASS_QUASI_CTYPE*/
6997 /*uniqueobj*/
6998 if (!/*_._VALDATA___V210*/ meltfptr[209])
6999 /*_._VALDATA___V210*/ meltfptr[209] = (melt_ptr_t )&meltcdat->dsym_149__CLASS_QUASI_CTYPE;
7000 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_149__CLASS_QUASI_CTYPE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
7001 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_149__CLASS_QUASI_CTYPE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
7002 meltcdat->dsym_149__CLASS_QUASI_CTYPE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
7003 meltcdat->dsym_149__CLASS_QUASI_CTYPE.obj_hash = 680718258;
7004 meltcdat->dsym_149__CLASS_QUASI_CTYPE.obj_len = 3;
7005
7006
7007 /*inistring dstr_150__CLASS_QUASI_CTYPE*/
7008 /*_._VALSTR___V211*/
7009 meltfptr[210] = (melt_ptr_t) &meltcdat->dstr_150__CLASS_QUASI_CTYPE;
7010 meltcdat->dstr_150__CLASS_QUASI_CTYPE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
7011 /*small inistring*/
7012 strncpy(meltcdat->dstr_150__CLASS_QUASI_CTYPE.val, "CLASS_QUASI_CTYPE", sizeof (meltcdat->dstr_150__CLASS_QUASI_CTYPE.val)-1);
7013 meltcdat->dstr_150__CLASS_QUASI_CTYPE.val[17] = (char)0 ;
7014 meltcdat->dstr_150__CLASS_QUASI_CTYPE.slen = 17 ;
7015
7016 /*inirout drout_151__DBG_OUTOBJECT*/
7017 /*iniroutlocvar*/ /*_._VALROUT___V190*/
7018 meltfptr[189] = (melt_ptr_t) &meltcdat->drout_151__DBG_OUTOBJECT;
7019 meltcdat->drout_151__DBG_OUTOBJECT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE))));
7020 strncpy (meltcdat->drout_151__DBG_OUTOBJECT.routdescr, "DBG_OUTOBJECT @warmelt-debug.melt:409", MELT_ROUTDESCR_LEN - 1);
7021 meltcdat->drout_151__DBG_OUTOBJECT.nbval = 5;
7022 MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_151__DBG_OUTOBJECT, meltrout_8_WARMELTmiDEBUG_DBG_OUTOBJECT);
7023
7024 /*iniclos dclo_152__DBG_OUTOBJECT*/
7025 /*_._VALCLO___V189*/
7026 meltfptr[188] = (melt_ptr_t) &meltcdat->dclo_152__DBG_OUTOBJECT;
7027 meltcdat->dclo_152__DBG_OUTOBJECT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE))));
7028 meltcdat->dclo_152__DBG_OUTOBJECT.nbval = 0;
7029
7030 /*inirout drout_153__DBG_OUT*/
7031 /*iniroutlocvar*/ /*_._VALROUT___V188*/
7032 meltfptr[187] = (melt_ptr_t) &meltcdat->drout_153__DBG_OUT;
7033 meltcdat->drout_153__DBG_OUT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE))));
7034 strncpy (meltcdat->drout_153__DBG_OUT.routdescr, "DBG_OUT @warmelt-debug.melt:429", MELT_ROUTDESCR_LEN - 1);
7035 meltcdat->drout_153__DBG_OUT.nbval = 4;
7036 MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_153__DBG_OUT, meltrout_9_WARMELTmiDEBUG_DBG_OUT);
7037
7038 /*iniclos dclo_154__DBG_OUT*/
7039 /*_._VALCLO___V187*/
7040 meltfptr[186] = (melt_ptr_t) &meltcdat->dclo_154__DBG_OUT;
7041 meltcdat->dclo_154__DBG_OUT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE))));
7042 meltcdat->dclo_154__DBG_OUT.nbval = 0;
7043
7044 /*inirout drout_155__DBGOUT_FIELDS*/
7045 /*iniroutlocvar*/ /*_._VALROUT___V212*/
7046 meltfptr[211] = (melt_ptr_t) &meltcdat->drout_155__DBGOUT_FIELDS;
7047 meltcdat->drout_155__DBGOUT_FIELDS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE))));
7048 strncpy (meltcdat->drout_155__DBGOUT_FIELDS.routdescr, "DBGOUT_FIELDS @warmelt-debug.melt:457", MELT_ROUTDESCR_LEN - 1);
7049 meltcdat->drout_155__DBGOUT_FIELDS.nbval = 3;
7050 MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_155__DBGOUT_FIELDS, meltrout_10_WARMELTmiDEBUG_DBGOUT_FIELDS);
7051
7052 /*iniclos dclo_156__DBGOUT_FIELDS*/
7053 /*_._VALCLO___V213*/
7054 meltfptr[212] = (melt_ptr_t) &meltcdat->dclo_156__DBGOUT_FIELDS;
7055 meltcdat->dclo_156__DBGOUT_FIELDS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE))));
7056 meltcdat->dclo_156__DBGOUT_FIELDS.nbval = 0;
7057
7058 /*inirout drout_157__DBGOUTAGAIN_FIELDS*/
7059 /*iniroutlocvar*/ /*_._VALROUT___V214*/
7060 meltfptr[213] = (melt_ptr_t) &meltcdat->drout_157__DBGOUTAGAIN_FIELDS;
7061 meltcdat->drout_157__DBGOUTAGAIN_FIELDS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE))));
7062 strncpy (meltcdat->drout_157__DBGOUTAGAIN_FIELDS.routdescr, "DBGOUTAGAIN_FIELDS @warmelt-debug.melt:510", MELT_ROUTDESCR_LEN - 1);
7063 meltcdat->drout_157__DBGOUTAGAIN_FIELDS.nbval = 4;
7064 MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_157__DBGOUTAGAIN_FIELDS, meltrout_11_WARMELTmiDEBUG_DBGOUTAGAIN_FIELDS);
7065
7066 /*iniclos dclo_158__DBGOUTAGAIN_FIELDS*/
7067 /*_._VALCLO___V215*/
7068 meltfptr[214] = (melt_ptr_t) &meltcdat->dclo_158__DBGOUTAGAIN_FIELDS;
7069 meltcdat->dclo_158__DBGOUTAGAIN_FIELDS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE))));
7070 meltcdat->dclo_158__DBGOUTAGAIN_FIELDS.nbval = 0;
7071
7072 /*inirout drout_159__DBGOUT_NULL_METHOD*/
7073 /*iniroutlocvar*/ /*_._VALROUT___V216*/
7074 meltfptr[215] = (melt_ptr_t) &meltcdat->drout_159__DBGOUT_NULL_METHOD;
7075 meltcdat->drout_159__DBGOUT_NULL_METHOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE))));
7076 strncpy (meltcdat->drout_159__DBGOUT_NULL_METHOD.routdescr, "DBGOUT_NULL_METHOD @warmelt-debug.melt:553", MELT_ROUTDESCR_LEN - 1);
7077 meltcdat->drout_159__DBGOUT_NULL_METHOD.nbval = 2;
7078 MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_159__DBGOUT_NULL_METHOD, meltrout_12_WARMELTmiDEBUG_DBGOUT_NULL_METHOD);
7079
7080 /*iniclos dclo_160__DBGOUT_NULL_METHOD*/
7081 /*_._VALCLO___V217*/
7082 meltfptr[216] = (melt_ptr_t) &meltcdat->dclo_160__DBGOUT_NULL_METHOD;
7083 meltcdat->dclo_160__DBGOUT_NULL_METHOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE))));
7084 meltcdat->dclo_160__DBGOUT_NULL_METHOD.nbval = 0;
7085
7086
7087 /*iniobj dsym_161__INSTALL_METHOD*/
7088 /*uniqueobj*/
7089 if (!/*_._VALDATA___V218*/ meltfptr[217])
7090 /*_._VALDATA___V218*/ meltfptr[217] = (melt_ptr_t )&meltcdat->dsym_161__INSTALL_METHOD;
7091 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_161__INSTALL_METHOD", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
7092 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_161__INSTALL_METHOD", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
7093 meltcdat->dsym_161__INSTALL_METHOD.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
7094 meltcdat->dsym_161__INSTALL_METHOD.obj_hash = 680699224;
7095 meltcdat->dsym_161__INSTALL_METHOD.obj_len = 3;
7096
7097
7098 /*inistring dstr_162__INSTALL_METHOD*/
7099 /*_._VALSTR___V219*/
7100 meltfptr[218] = (melt_ptr_t) &meltcdat->dstr_162__INSTALL_METHOD;
7101 meltcdat->dstr_162__INSTALL_METHOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
7102 /*small inistring*/
7103 strncpy(meltcdat->dstr_162__INSTALL_METHOD.val, "INSTALL_METHOD", sizeof (meltcdat->dstr_162__INSTALL_METHOD.val)-1);
7104 meltcdat->dstr_162__INSTALL_METHOD.val[14] = (char)0 ;
7105 meltcdat->dstr_162__INSTALL_METHOD.slen = 14 ;
7106
7107
7108 /*iniobj dsym_163__DISCR_NULL_RECEIVER*/
7109 /*uniqueobj*/
7110 if (!/*_._VALDATA___V220*/ meltfptr[219])
7111 /*_._VALDATA___V220*/ meltfptr[219] = (melt_ptr_t )&meltcdat->dsym_163__DISCR_NULL_RECEIVER;
7112 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_163__DISCR_NULL_RECEIVER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
7113 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_163__DISCR_NULL_RECEIVER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
7114 meltcdat->dsym_163__DISCR_NULL_RECEIVER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
7115 meltcdat->dsym_163__DISCR_NULL_RECEIVER.obj_hash = 1063609307;
7116 meltcdat->dsym_163__DISCR_NULL_RECEIVER.obj_len = 3;
7117
7118
7119 /*inistring dstr_164__DISCR_NULL_RECEIVER*/
7120 /*_._VALSTR___V221*/
7121 meltfptr[220] = (melt_ptr_t) &meltcdat->dstr_164__DISCR_NULL_RECEIVER;
7122 meltcdat->dstr_164__DISCR_NULL_RECEIVER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
7123 /*small inistring*/
7124 strncpy(meltcdat->dstr_164__DISCR_NULL_RECEIVER.val, "DISCR_NULL_RECEIVER", sizeof (meltcdat->dstr_164__DISCR_NULL_RECEIVER.val)-1);
7125 meltcdat->dstr_164__DISCR_NULL_RECEIVER.val[19] = (char)0 ;
7126 meltcdat->dstr_164__DISCR_NULL_RECEIVER.slen = 19 ;
7127
7128 /*inirout drout_165__DBGOUT_STRING_METHOD*/
7129 /*iniroutlocvar*/ /*_._VALROUT___V222*/
7130 meltfptr[221] = (melt_ptr_t) &meltcdat->drout_165__DBGOUT_STRING_METHOD;
7131 meltcdat->drout_165__DBGOUT_STRING_METHOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE))));
7132 strncpy (meltcdat->drout_165__DBGOUT_STRING_METHOD.routdescr, "DBGOUT_STRING_METHOD @warmelt-debug.melt:562", MELT_ROUTDESCR_LEN - 1);
7133 meltcdat->drout_165__DBGOUT_STRING_METHOD.nbval = 4;
7134 MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_165__DBGOUT_STRING_METHOD, meltrout_13_WARMELTmiDEBUG_DBGOUT_STRING_METHOD);
7135
7136 /*iniclos dclo_166__DBGOUT_STRING_METHOD*/
7137 /*_._VALCLO___V223*/
7138 meltfptr[222] = (melt_ptr_t) &meltcdat->dclo_166__DBGOUT_STRING_METHOD;
7139 meltcdat->dclo_166__DBGOUT_STRING_METHOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE))));
7140 meltcdat->dclo_166__DBGOUT_STRING_METHOD.nbval = 0;
7141
7142
7143 /*iniobj dsym_167__DISCR_STRING*/
7144 /*uniqueobj*/
7145 if (!/*_._VALDATA___V224*/ meltfptr[223])
7146 /*_._VALDATA___V224*/ meltfptr[223] = (melt_ptr_t )&meltcdat->dsym_167__DISCR_STRING;
7147 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_167__DISCR_STRING", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
7148 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_167__DISCR_STRING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
7149 meltcdat->dsym_167__DISCR_STRING.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
7150 meltcdat->dsym_167__DISCR_STRING.obj_hash = 100436219;
7151 meltcdat->dsym_167__DISCR_STRING.obj_len = 3;
7152
7153
7154 /*inistring dstr_168__DISCR_STRING*/
7155 /*_._VALSTR___V225*/
7156 meltfptr[224] = (melt_ptr_t) &meltcdat->dstr_168__DISCR_STRING;
7157 meltcdat->dstr_168__DISCR_STRING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
7158 /*small inistring*/
7159 strncpy(meltcdat->dstr_168__DISCR_STRING.val, "DISCR_STRING", sizeof (meltcdat->dstr_168__DISCR_STRING.val)-1);
7160 meltcdat->dstr_168__DISCR_STRING.val[12] = (char)0 ;
7161 meltcdat->dstr_168__DISCR_STRING.slen = 12 ;
7162
7163
7164 /*iniobj dsym_169__DISCR_VERBATIM_STRING*/
7165 /*uniqueobj*/
7166 if (!/*_._VALDATA___V226*/ meltfptr[225])
7167 /*_._VALDATA___V226*/ meltfptr[225] = (melt_ptr_t )&meltcdat->dsym_169__DISCR_VERBATIM_STRING;
7168 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_169__DISCR_VERBATIM_STRING", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
7169 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_169__DISCR_VERBATIM_STRING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
7170 meltcdat->dsym_169__DISCR_VERBATIM_STRING.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
7171 meltcdat->dsym_169__DISCR_VERBATIM_STRING.obj_hash = 258402049;
7172 meltcdat->dsym_169__DISCR_VERBATIM_STRING.obj_len = 3;
7173
7174
7175 /*inistring dstr_170__DISCR_VERBATIM_STRING*/
7176 /*_._VALSTR___V227*/
7177 meltfptr[226] = (melt_ptr_t) &meltcdat->dstr_170__DISCR_VERBATIM_STRING;
7178 meltcdat->dstr_170__DISCR_VERBATIM_STRING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
7179 /*small inistring*/
7180 strncpy(meltcdat->dstr_170__DISCR_VERBATIM_STRING.val, "DISCR_VERBATIM_STRING", sizeof (meltcdat->dstr_170__DISCR_VERBATIM_STRING.val)-1);
7181 meltcdat->dstr_170__DISCR_VERBATIM_STRING.val[21] = (char)0 ;
7182 meltcdat->dstr_170__DISCR_VERBATIM_STRING.slen = 21 ;
7183
7184 /*inirout drout_171__DBGOUT_STRBUF_METHOD*/
7185 /*iniroutlocvar*/ /*_._VALROUT___V228*/
7186 meltfptr[227] = (melt_ptr_t) &meltcdat->drout_171__DBGOUT_STRBUF_METHOD;
7187 meltcdat->drout_171__DBGOUT_STRBUF_METHOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE))));
7188 strncpy (meltcdat->drout_171__DBGOUT_STRBUF_METHOD.routdescr, "DBGOUT_STRBUF_METHOD @warmelt-debug.melt:591", MELT_ROUTDESCR_LEN - 1);
7189 meltcdat->drout_171__DBGOUT_STRBUF_METHOD.nbval = 4;
7190 MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_171__DBGOUT_STRBUF_METHOD, meltrout_14_WARMELTmiDEBUG_DBGOUT_STRBUF_METHOD);
7191
7192 /*iniclos dclo_172__DBGOUT_STRBUF_METHOD*/
7193 /*_._VALCLO___V229*/
7194 meltfptr[228] = (melt_ptr_t) &meltcdat->dclo_172__DBGOUT_STRBUF_METHOD;
7195 meltcdat->dclo_172__DBGOUT_STRBUF_METHOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE))));
7196 meltcdat->dclo_172__DBGOUT_STRBUF_METHOD.nbval = 0;
7197
7198 /*inirout drout_173__DBGOUT_INTEGER_METHOD*/
7199 /*iniroutlocvar*/ /*_._VALROUT___V230*/
7200 meltfptr[229] = (melt_ptr_t) &meltcdat->drout_173__DBGOUT_INTEGER_METHOD;
7201 meltcdat->drout_173__DBGOUT_INTEGER_METHOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE))));
7202 strncpy (meltcdat->drout_173__DBGOUT_INTEGER_METHOD.routdescr, "DBGOUT_INTEGER_METHOD @warmelt-debug.melt:677", MELT_ROUTDESCR_LEN - 1);
7203 meltcdat->drout_173__DBGOUT_INTEGER_METHOD.nbval = 5;
7204 MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_173__DBGOUT_INTEGER_METHOD, meltrout_15_WARMELTmiDEBUG_DBGOUT_INTEGER_METHOD);
7205
7206 /*iniclos dclo_174__DBGOUT_INTEGER_METHOD*/
7207 /*_._VALCLO___V231*/
7208 meltfptr[230] = (melt_ptr_t) &meltcdat->dclo_174__DBGOUT_INTEGER_METHOD;
7209 meltcdat->dclo_174__DBGOUT_INTEGER_METHOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE))));
7210 meltcdat->dclo_174__DBGOUT_INTEGER_METHOD.nbval = 0;
7211
7212
7213 /*iniobj dsym_175__DISCR_CONSTANT_INTEGER*/
7214 /*uniqueobj*/
7215 if (!/*_._VALDATA___V232*/ meltfptr[231])
7216 /*_._VALDATA___V232*/ meltfptr[231] = (melt_ptr_t )&meltcdat->dsym_175__DISCR_CONSTANT_INTEGER;
7217 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_175__DISCR_CONSTANT_INTEGER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
7218 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_175__DISCR_CONSTANT_INTEGER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
7219 meltcdat->dsym_175__DISCR_CONSTANT_INTEGER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
7220 meltcdat->dsym_175__DISCR_CONSTANT_INTEGER.obj_hash = 1007078494;
7221 meltcdat->dsym_175__DISCR_CONSTANT_INTEGER.obj_len = 3;
7222
7223
7224 /*inistring dstr_176__DISCR_CONSTANT_INTEGER*/
7225 /*_._VALSTR___V233*/
7226 meltfptr[232] = (melt_ptr_t) &meltcdat->dstr_176__DISCR_CONSTANT_INTEGER;
7227 meltcdat->dstr_176__DISCR_CONSTANT_INTEGER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
7228 /*small inistring*/
7229 strncpy(meltcdat->dstr_176__DISCR_CONSTANT_INTEGER.val, "DISCR_CONSTANT_INTEGER", sizeof (meltcdat->dstr_176__DISCR_CONSTANT_INTEGER.val)-1);
7230 meltcdat->dstr_176__DISCR_CONSTANT_INTEGER.val[22] = (char)0 ;
7231 meltcdat->dstr_176__DISCR_CONSTANT_INTEGER.slen = 22 ;
7232
7233 /*inirout drout_177__DBGOUT_DOUBLE_METHOD*/
7234 /*iniroutlocvar*/ /*_._VALROUT___V234*/
7235 meltfptr[233] = (melt_ptr_t) &meltcdat->drout_177__DBGOUT_DOUBLE_METHOD;
7236 meltcdat->drout_177__DBGOUT_DOUBLE_METHOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE))));
7237 strncpy (meltcdat->drout_177__DBGOUT_DOUBLE_METHOD.routdescr, "DBGOUT_DOUBLE_METHOD @warmelt-debug.melt:698", MELT_ROUTDESCR_LEN - 1);
7238 meltcdat->drout_177__DBGOUT_DOUBLE_METHOD.nbval = 5;
7239 MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_177__DBGOUT_DOUBLE_METHOD, meltrout_16_WARMELTmiDEBUG_DBGOUT_DOUBLE_METHOD);
7240
7241 /*iniclos dclo_178__DBGOUT_DOUBLE_METHOD*/
7242 /*_._VALCLO___V235*/
7243 meltfptr[234] = (melt_ptr_t) &meltcdat->dclo_178__DBGOUT_DOUBLE_METHOD;
7244 meltcdat->dclo_178__DBGOUT_DOUBLE_METHOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE))));
7245 meltcdat->dclo_178__DBGOUT_DOUBLE_METHOD.nbval = 0;
7246
7247
7248 /*iniobj dsym_179__DISCR_DOUBLE*/
7249 /*uniqueobj*/
7250 if (!/*_._VALDATA___V236*/ meltfptr[235])
7251 /*_._VALDATA___V236*/ meltfptr[235] = (melt_ptr_t )&meltcdat->dsym_179__DISCR_DOUBLE;
7252 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_179__DISCR_DOUBLE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
7253 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_179__DISCR_DOUBLE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
7254 meltcdat->dsym_179__DISCR_DOUBLE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
7255 meltcdat->dsym_179__DISCR_DOUBLE.obj_hash = 676444586;
7256 meltcdat->dsym_179__DISCR_DOUBLE.obj_len = 3;
7257
7258
7259 /*inistring dstr_180__DISCR_DOUBLE*/
7260 /*_._VALSTR___V237*/
7261 meltfptr[236] = (melt_ptr_t) &meltcdat->dstr_180__DISCR_DOUBLE;
7262 meltcdat->dstr_180__DISCR_DOUBLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
7263 /*small inistring*/
7264 strncpy(meltcdat->dstr_180__DISCR_DOUBLE.val, "DISCR_DOUBLE", sizeof (meltcdat->dstr_180__DISCR_DOUBLE.val)-1);
7265 meltcdat->dstr_180__DISCR_DOUBLE.val[12] = (char)0 ;
7266 meltcdat->dstr_180__DISCR_DOUBLE.slen = 12 ;
7267
7268
7269 /*iniobj dsym_181__DISCR_CONSTANT_DOUBLE*/
7270 /*uniqueobj*/
7271 if (!/*_._VALDATA___V238*/ meltfptr[237])
7272 /*_._VALDATA___V238*/ meltfptr[237] = (melt_ptr_t )&meltcdat->dsym_181__DISCR_CONSTANT_DOUBLE;
7273 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_181__DISCR_CONSTANT_DOUBLE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
7274 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_181__DISCR_CONSTANT_DOUBLE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
7275 meltcdat->dsym_181__DISCR_CONSTANT_DOUBLE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
7276 meltcdat->dsym_181__DISCR_CONSTANT_DOUBLE.obj_hash = 752140697;
7277 meltcdat->dsym_181__DISCR_CONSTANT_DOUBLE.obj_len = 3;
7278
7279
7280 /*inistring dstr_182__DISCR_CONSTANT_DOUBLE*/
7281 /*_._VALSTR___V239*/
7282 meltfptr[238] = (melt_ptr_t) &meltcdat->dstr_182__DISCR_CONSTANT_DOUBLE;
7283 meltcdat->dstr_182__DISCR_CONSTANT_DOUBLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
7284 /*small inistring*/
7285 strncpy(meltcdat->dstr_182__DISCR_CONSTANT_DOUBLE.val, "DISCR_CONSTANT_DOUBLE", sizeof (meltcdat->dstr_182__DISCR_CONSTANT_DOUBLE.val)-1);
7286 meltcdat->dstr_182__DISCR_CONSTANT_DOUBLE.val[21] = (char)0 ;
7287 meltcdat->dstr_182__DISCR_CONSTANT_DOUBLE.slen = 21 ;
7288
7289 /*inirout drout_183__DBGOUT_MIXINT_METHOD*/
7290 /*iniroutlocvar*/ /*_._VALROUT___V240*/
7291 meltfptr[239] = (melt_ptr_t) &meltcdat->drout_183__DBGOUT_MIXINT_METHOD;
7292 meltcdat->drout_183__DBGOUT_MIXINT_METHOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE))));
7293 strncpy (meltcdat->drout_183__DBGOUT_MIXINT_METHOD.routdescr, "DBGOUT_MIXINT_METHOD @warmelt-debug.melt:717", MELT_ROUTDESCR_LEN - 1);
7294 meltcdat->drout_183__DBGOUT_MIXINT_METHOD.nbval = 5;
7295 MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_183__DBGOUT_MIXINT_METHOD, meltrout_17_WARMELTmiDEBUG_DBGOUT_MIXINT_METHOD);
7296
7297 /*iniclos dclo_184__DBGOUT_MIXINT_METHOD*/
7298 /*_._VALCLO___V241*/
7299 meltfptr[240] = (melt_ptr_t) &meltcdat->dclo_184__DBGOUT_MIXINT_METHOD;
7300 meltcdat->dclo_184__DBGOUT_MIXINT_METHOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE))));
7301 meltcdat->dclo_184__DBGOUT_MIXINT_METHOD.nbval = 0;
7302
7303
7304 /*iniobj dsym_185__DISCR_MIXED_INTEGER*/
7305 /*uniqueobj*/
7306 if (!/*_._VALDATA___V242*/ meltfptr[241])
7307 /*_._VALDATA___V242*/ meltfptr[241] = (melt_ptr_t )&meltcdat->dsym_185__DISCR_MIXED_INTEGER;
7308 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_185__DISCR_MIXED_INTEGER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
7309 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_185__DISCR_MIXED_INTEGER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
7310 meltcdat->dsym_185__DISCR_MIXED_INTEGER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
7311 meltcdat->dsym_185__DISCR_MIXED_INTEGER.obj_hash = 355248820;
7312 meltcdat->dsym_185__DISCR_MIXED_INTEGER.obj_len = 3;
7313
7314
7315 /*inistring dstr_186__DISCR_MIXED_INTEGER*/
7316 /*_._VALSTR___V243*/
7317 meltfptr[242] = (melt_ptr_t) &meltcdat->dstr_186__DISCR_MIXED_INTEGER;
7318 meltcdat->dstr_186__DISCR_MIXED_INTEGER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
7319 /*small inistring*/
7320 strncpy(meltcdat->dstr_186__DISCR_MIXED_INTEGER.val, "DISCR_MIXED_INTEGER", sizeof (meltcdat->dstr_186__DISCR_MIXED_INTEGER.val)-1);
7321 meltcdat->dstr_186__DISCR_MIXED_INTEGER.val[19] = (char)0 ;
7322 meltcdat->dstr_186__DISCR_MIXED_INTEGER.slen = 19 ;
7323
7324 /*inirout drout_187__DBGOUT_MIXLOC_METHOD*/
7325 /*iniroutlocvar*/ /*_._VALROUT___V244*/
7326 meltfptr[243] = (melt_ptr_t) &meltcdat->drout_187__DBGOUT_MIXLOC_METHOD;
7327 meltcdat->drout_187__DBGOUT_MIXLOC_METHOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE))));
7328 strncpy (meltcdat->drout_187__DBGOUT_MIXLOC_METHOD.routdescr, "DBGOUT_MIXLOC_METHOD @warmelt-debug.melt:746", MELT_ROUTDESCR_LEN - 1);
7329 meltcdat->drout_187__DBGOUT_MIXLOC_METHOD.nbval = 3;
7330 MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_187__DBGOUT_MIXLOC_METHOD, meltrout_18_WARMELTmiDEBUG_DBGOUT_MIXLOC_METHOD);
7331
7332 /*iniclos dclo_188__DBGOUT_MIXLOC_METHOD*/
7333 /*_._VALCLO___V245*/
7334 meltfptr[244] = (melt_ptr_t) &meltcdat->dclo_188__DBGOUT_MIXLOC_METHOD;
7335 meltcdat->dclo_188__DBGOUT_MIXLOC_METHOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE))));
7336 meltcdat->dclo_188__DBGOUT_MIXLOC_METHOD.nbval = 0;
7337
7338
7339 /*iniobj dsym_189__DISCR_MIXED_LOCATION*/
7340 /*uniqueobj*/
7341 if (!/*_._VALDATA___V246*/ meltfptr[245])
7342 /*_._VALDATA___V246*/ meltfptr[245] = (melt_ptr_t )&meltcdat->dsym_189__DISCR_MIXED_LOCATION;
7343 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_189__DISCR_MIXED_LOCATION", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
7344 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_189__DISCR_MIXED_LOCATION", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
7345 meltcdat->dsym_189__DISCR_MIXED_LOCATION.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
7346 meltcdat->dsym_189__DISCR_MIXED_LOCATION.obj_hash = 1019373807;
7347 meltcdat->dsym_189__DISCR_MIXED_LOCATION.obj_len = 3;
7348
7349
7350 /*inistring dstr_190__DISCR_MIXED_LOCATION*/
7351 /*_._VALSTR___V247*/
7352 meltfptr[246] = (melt_ptr_t) &meltcdat->dstr_190__DISCR_MIXED_LOCATION;
7353 meltcdat->dstr_190__DISCR_MIXED_LOCATION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
7354 /*small inistring*/
7355 strncpy(meltcdat->dstr_190__DISCR_MIXED_LOCATION.val, "DISCR_MIXED_LOCATION", sizeof (meltcdat->dstr_190__DISCR_MIXED_LOCATION.val)-1);
7356 meltcdat->dstr_190__DISCR_MIXED_LOCATION.val[20] = (char)0 ;
7357 meltcdat->dstr_190__DISCR_MIXED_LOCATION.slen = 20 ;
7358
7359 /*inirout drout_191__DBGOUT_MIXBIGINT_METHOD*/
7360 /*iniroutlocvar*/ /*_._VALROUT___V248*/
7361 meltfptr[247] = (melt_ptr_t) &meltcdat->drout_191__DBGOUT_MIXBIGINT_METHOD;
7362 meltcdat->drout_191__DBGOUT_MIXBIGINT_METHOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE))));
7363 strncpy (meltcdat->drout_191__DBGOUT_MIXBIGINT_METHOD.routdescr, "DBGOUT_MIXBIGINT_METHOD @warmelt-debug.melt:776", MELT_ROUTDESCR_LEN - 1);
7364 meltcdat->drout_191__DBGOUT_MIXBIGINT_METHOD.nbval = 3;
7365 MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_191__DBGOUT_MIXBIGINT_METHOD, meltrout_19_WARMELTmiDEBUG_DBGOUT_MIXBIGINT_METHOD);
7366
7367 /*iniclos dclo_192__DBGOUT_MIXBIGINT_METHOD*/
7368 /*_._VALCLO___V249*/
7369 meltfptr[248] = (melt_ptr_t) &meltcdat->dclo_192__DBGOUT_MIXBIGINT_METHOD;
7370 meltcdat->dclo_192__DBGOUT_MIXBIGINT_METHOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE))));
7371 meltcdat->dclo_192__DBGOUT_MIXBIGINT_METHOD.nbval = 0;
7372
7373
7374 /*iniobj dsym_193__DISCR_MIXED_BIGINT*/
7375 /*uniqueobj*/
7376 if (!/*_._VALDATA___V250*/ meltfptr[249])
7377 /*_._VALDATA___V250*/ meltfptr[249] = (melt_ptr_t )&meltcdat->dsym_193__DISCR_MIXED_BIGINT;
7378 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_193__DISCR_MIXED_BIGINT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
7379 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_193__DISCR_MIXED_BIGINT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
7380 meltcdat->dsym_193__DISCR_MIXED_BIGINT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
7381 meltcdat->dsym_193__DISCR_MIXED_BIGINT.obj_hash = 484145131;
7382 meltcdat->dsym_193__DISCR_MIXED_BIGINT.obj_len = 3;
7383
7384
7385 /*inistring dstr_194__DISCR_MIXED_BIGINT*/
7386 /*_._VALSTR___V251*/
7387 meltfptr[250] = (melt_ptr_t) &meltcdat->dstr_194__DISCR_MIXED_BIGINT;
7388 meltcdat->dstr_194__DISCR_MIXED_BIGINT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
7389 /*small inistring*/
7390 strncpy(meltcdat->dstr_194__DISCR_MIXED_BIGINT.val, "DISCR_MIXED_BIGINT", sizeof (meltcdat->dstr_194__DISCR_MIXED_BIGINT.val)-1);
7391 meltcdat->dstr_194__DISCR_MIXED_BIGINT.val[18] = (char)0 ;
7392 meltcdat->dstr_194__DISCR_MIXED_BIGINT.slen = 18 ;
7393
7394 /*inirout drout_195__DBGOUT_MULTIPLE_METHOD*/
7395 /*iniroutlocvar*/ /*_._VALROUT___V252*/
7396 meltfptr[251] = (melt_ptr_t) &meltcdat->drout_195__DBGOUT_MULTIPLE_METHOD;
7397 meltcdat->drout_195__DBGOUT_MULTIPLE_METHOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE))));
7398 strncpy (meltcdat->drout_195__DBGOUT_MULTIPLE_METHOD.routdescr, "DBGOUT_MULTIPLE_METHOD @warmelt-debug.melt:799", MELT_ROUTDESCR_LEN - 1);
7399 meltcdat->drout_195__DBGOUT_MULTIPLE_METHOD.nbval = 4;
7400 MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_195__DBGOUT_MULTIPLE_METHOD, meltrout_20_WARMELTmiDEBUG_DBGOUT_MULTIPLE_METHOD);
7401
7402 /*iniclos dclo_196__DBGOUT_MULTIPLE_METHOD*/
7403 /*_._VALCLO___V253*/
7404 meltfptr[252] = (melt_ptr_t) &meltcdat->dclo_196__DBGOUT_MULTIPLE_METHOD;
7405 meltcdat->dclo_196__DBGOUT_MULTIPLE_METHOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE))));
7406 meltcdat->dclo_196__DBGOUT_MULTIPLE_METHOD.nbval = 0;
7407
7408
7409 /*iniobj dsym_197__DISCR_MULTIPLE*/
7410 /*uniqueobj*/
7411 if (!/*_._VALDATA___V254*/ meltfptr[253])
7412 /*_._VALDATA___V254*/ meltfptr[253] = (melt_ptr_t )&meltcdat->dsym_197__DISCR_MULTIPLE;
7413 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_197__DISCR_MULTIPLE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
7414 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_197__DISCR_MULTIPLE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
7415 meltcdat->dsym_197__DISCR_MULTIPLE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
7416 meltcdat->dsym_197__DISCR_MULTIPLE.obj_hash = 91864583;
7417 meltcdat->dsym_197__DISCR_MULTIPLE.obj_len = 3;
7418
7419
7420 /*inistring dstr_198__DISCR_MULTIPLE*/
7421 /*_._VALSTR___V255*/
7422 meltfptr[254] = (melt_ptr_t) &meltcdat->dstr_198__DISCR_MULTIPLE;
7423 meltcdat->dstr_198__DISCR_MULTIPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
7424 /*small inistring*/
7425 strncpy(meltcdat->dstr_198__DISCR_MULTIPLE.val, "DISCR_MULTIPLE", sizeof (meltcdat->dstr_198__DISCR_MULTIPLE.val)-1);
7426 meltcdat->dstr_198__DISCR_MULTIPLE.val[14] = (char)0 ;
7427 meltcdat->dstr_198__DISCR_MULTIPLE.slen = 14 ;
7428
7429 /*inirout drout_199__DBGOUT_ROUTINE_METHOD*/
7430 /*iniroutlocvar*/ /*_._VALROUT___V256*/
7431 meltfptr[255] = (melt_ptr_t) &meltcdat->drout_199__DBGOUT_ROUTINE_METHOD;
7432 meltcdat->drout_199__DBGOUT_ROUTINE_METHOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE))));
7433 strncpy (meltcdat->drout_199__DBGOUT_ROUTINE_METHOD.routdescr, "DBGOUT_ROUTINE_METHOD @warmelt-debug.melt:834", MELT_ROUTDESCR_LEN - 1);
7434 meltcdat->drout_199__DBGOUT_ROUTINE_METHOD.nbval = 7;
7435 MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_199__DBGOUT_ROUTINE_METHOD, meltrout_21_WARMELTmiDEBUG_DBGOUT_ROUTINE_METHOD);
7436
7437 /*iniclos dclo_200__DBGOUT_ROUTINE_METHOD*/
7438 /*_._VALCLO___V258*/
7439 meltfptr[257] = (melt_ptr_t) &meltcdat->dclo_200__DBGOUT_ROUTINE_METHOD;
7440 meltcdat->dclo_200__DBGOUT_ROUTINE_METHOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE))));
7441 meltcdat->dclo_200__DBGOUT_ROUTINE_METHOD.nbval = 0;
7442
7443
7444 /*iniobj dsym_201__DISCR_ROUTINE*/
7445 /*uniqueobj*/
7446 if (!/*_._VALDATA___V259*/ meltfptr[258])
7447 /*_._VALDATA___V259*/ meltfptr[258] = (melt_ptr_t )&meltcdat->dsym_201__DISCR_ROUTINE;
7448 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_201__DISCR_ROUTINE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
7449 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_201__DISCR_ROUTINE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
7450 meltcdat->dsym_201__DISCR_ROUTINE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
7451 meltcdat->dsym_201__DISCR_ROUTINE.obj_hash = 30464565;
7452 meltcdat->dsym_201__DISCR_ROUTINE.obj_len = 3;
7453
7454
7455 /*inistring dstr_202__DISCR_ROUTINE*/
7456 /*_._VALSTR___V260*/
7457 meltfptr[259] = (melt_ptr_t) &meltcdat->dstr_202__DISCR_ROUTINE;
7458 meltcdat->dstr_202__DISCR_ROUTINE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
7459 /*small inistring*/
7460 strncpy(meltcdat->dstr_202__DISCR_ROUTINE.val, "DISCR_ROUTINE", sizeof (meltcdat->dstr_202__DISCR_ROUTINE.val)-1);
7461 meltcdat->dstr_202__DISCR_ROUTINE.val[13] = (char)0 ;
7462 meltcdat->dstr_202__DISCR_ROUTINE.slen = 13 ;
7463
7464
7465 /*iniobj dsym_203__ROUTINE_EVERY*/
7466 /*uniqueobj*/
7467 if (!/*_._VALDATA___V261*/ meltfptr[260])
7468 /*_._VALDATA___V261*/ meltfptr[260] = (melt_ptr_t )&meltcdat->dsym_203__ROUTINE_EVERY;
7469 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_203__ROUTINE_EVERY", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
7470 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_203__ROUTINE_EVERY", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
7471 meltcdat->dsym_203__ROUTINE_EVERY.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
7472 meltcdat->dsym_203__ROUTINE_EVERY.obj_hash = 347090207;
7473 meltcdat->dsym_203__ROUTINE_EVERY.obj_len = 3;
7474
7475
7476 /*inistring dstr_204__ROUTINE_EVERY*/
7477 /*_._VALSTR___V262*/
7478 meltfptr[261] = (melt_ptr_t) &meltcdat->dstr_204__ROUTINE_EVERY;
7479 meltcdat->dstr_204__ROUTINE_EVERY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
7480 /*small inistring*/
7481 strncpy(meltcdat->dstr_204__ROUTINE_EVERY.val, "ROUTINE_EVERY", sizeof (meltcdat->dstr_204__ROUTINE_EVERY.val)-1);
7482 meltcdat->dstr_204__ROUTINE_EVERY.val[13] = (char)0 ;
7483 meltcdat->dstr_204__ROUTINE_EVERY.slen = 13 ;
7484
7485 /*inirout drout_205__LAMBDA_*/
7486 /*iniroutlocvar*/ /*_._VALROUT___V257*/
7487 meltfptr[256] = (melt_ptr_t) &meltcdat->drout_205__LAMBDA_;
7488 meltcdat->drout_205__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE))));
7489 strncpy (meltcdat->drout_205__LAMBDA_.routdescr, "LAMBDA_ @warmelt-debug.melt:850", MELT_ROUTDESCR_LEN - 1);
7490 meltcdat->drout_205__LAMBDA_.nbval = 1;
7491 MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_205__LAMBDA_, meltrout_22_WARMELTmiDEBUG_LAMBDA_cl1);
7492
7493 /*inirout drout_206__DBGOUT_HOOK_METHOD*/
7494 /*iniroutlocvar*/ /*_._VALROUT___V263*/
7495 meltfptr[262] = (melt_ptr_t) &meltcdat->drout_206__DBGOUT_HOOK_METHOD;
7496 meltcdat->drout_206__DBGOUT_HOOK_METHOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE))));
7497 strncpy (meltcdat->drout_206__DBGOUT_HOOK_METHOD.routdescr, "DBGOUT_HOOK_METHOD @warmelt-debug.melt:862", MELT_ROUTDESCR_LEN - 1);
7498 meltcdat->drout_206__DBGOUT_HOOK_METHOD.nbval = 9;
7499 MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_206__DBGOUT_HOOK_METHOD, meltrout_23_WARMELTmiDEBUG_DBGOUT_HOOK_METHOD);
7500
7501 /*iniclos dclo_207__DBGOUT_HOOK_METHOD*/
7502 /*_._VALCLO___V265*/
7503 meltfptr[264] = (melt_ptr_t) &meltcdat->dclo_207__DBGOUT_HOOK_METHOD;
7504 meltcdat->dclo_207__DBGOUT_HOOK_METHOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE))));
7505 meltcdat->dclo_207__DBGOUT_HOOK_METHOD.nbval = 0;
7506
7507
7508 /*iniobj dsym_208__HOOK_EVERY*/
7509 /*uniqueobj*/
7510 if (!/*_._VALDATA___V266*/ meltfptr[265])
7511 /*_._VALDATA___V266*/ meltfptr[265] = (melt_ptr_t )&meltcdat->dsym_208__HOOK_EVERY;
7512 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_208__HOOK_EVERY", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
7513 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_208__HOOK_EVERY", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
7514 meltcdat->dsym_208__HOOK_EVERY.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
7515 meltcdat->dsym_208__HOOK_EVERY.obj_hash = 523777531;
7516 meltcdat->dsym_208__HOOK_EVERY.obj_len = 3;
7517
7518
7519 /*inistring dstr_209__HOOK_EVERY*/
7520 /*_._VALSTR___V267*/
7521 meltfptr[266] = (melt_ptr_t) &meltcdat->dstr_209__HOOK_EVERY;
7522 meltcdat->dstr_209__HOOK_EVERY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
7523 /*small inistring*/
7524 strncpy(meltcdat->dstr_209__HOOK_EVERY.val, "HOOK_EVERY", sizeof (meltcdat->dstr_209__HOOK_EVERY.val)-1);
7525 meltcdat->dstr_209__HOOK_EVERY.val[10] = (char)0 ;
7526 meltcdat->dstr_209__HOOK_EVERY.slen = 10 ;
7527
7528 /*inirout drout_210__LAMBDA_*/
7529 /*iniroutlocvar*/ /*_._VALROUT___V264*/
7530 meltfptr[263] = (melt_ptr_t) &meltcdat->drout_210__LAMBDA_;
7531 meltcdat->drout_210__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE))));
7532 strncpy (meltcdat->drout_210__LAMBDA_.routdescr, "LAMBDA_ @warmelt-debug.melt:877", MELT_ROUTDESCR_LEN - 1);
7533 meltcdat->drout_210__LAMBDA_.nbval = 2;
7534 MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_210__LAMBDA_, meltrout_24_WARMELTmiDEBUG_LAMBDA_cl2);
7535
7536
7537 /*iniobj dsym_211__DISCR_HOOK*/
7538 /*uniqueobj*/
7539 if (!/*_._VALDATA___V268*/ meltfptr[267])
7540 /*_._VALDATA___V268*/ meltfptr[267] = (melt_ptr_t )&meltcdat->dsym_211__DISCR_HOOK;
7541 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_211__DISCR_HOOK", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
7542 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_211__DISCR_HOOK", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
7543 meltcdat->dsym_211__DISCR_HOOK.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
7544 meltcdat->dsym_211__DISCR_HOOK.obj_hash = 494767084;
7545 meltcdat->dsym_211__DISCR_HOOK.obj_len = 3;
7546
7547
7548 /*inistring dstr_212__DISCR_HOOK*/
7549 /*_._VALSTR___V269*/
7550 meltfptr[268] = (melt_ptr_t) &meltcdat->dstr_212__DISCR_HOOK;
7551 meltcdat->dstr_212__DISCR_HOOK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
7552 /*small inistring*/
7553 strncpy(meltcdat->dstr_212__DISCR_HOOK.val, "DISCR_HOOK", sizeof (meltcdat->dstr_212__DISCR_HOOK.val)-1);
7554 meltcdat->dstr_212__DISCR_HOOK.val[10] = (char)0 ;
7555 meltcdat->dstr_212__DISCR_HOOK.slen = 10 ;
7556
7557 /*inirout drout_213__DBGOUT_CLOSURE_METHOD*/
7558 /*iniroutlocvar*/ /*_._VALROUT___V270*/
7559 meltfptr[269] = (melt_ptr_t) &meltcdat->drout_213__DBGOUT_CLOSURE_METHOD;
7560 meltcdat->drout_213__DBGOUT_CLOSURE_METHOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE))));
7561 strncpy (meltcdat->drout_213__DBGOUT_CLOSURE_METHOD.routdescr, "DBGOUT_CLOSURE_METHOD @warmelt-debug.melt:895", MELT_ROUTDESCR_LEN - 1);
7562 meltcdat->drout_213__DBGOUT_CLOSURE_METHOD.nbval = 5;
7563 MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_213__DBGOUT_CLOSURE_METHOD, meltrout_25_WARMELTmiDEBUG_DBGOUT_CLOSURE_METHOD);
7564
7565 /*iniclos dclo_214__DBGOUT_CLOSURE_METHOD*/
7566 /*_._VALCLO___V271*/
7567 meltfptr[270] = (melt_ptr_t) &meltcdat->dclo_214__DBGOUT_CLOSURE_METHOD;
7568 meltcdat->dclo_214__DBGOUT_CLOSURE_METHOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE))));
7569 meltcdat->dclo_214__DBGOUT_CLOSURE_METHOD.nbval = 0;
7570
7571 /*inirout drout_215__DBGOUT_LIST_METHOD*/
7572 /*iniroutlocvar*/ /*_._VALROUT___V272*/
7573 meltfptr[271] = (melt_ptr_t) &meltcdat->drout_215__DBGOUT_LIST_METHOD;
7574 meltcdat->drout_215__DBGOUT_LIST_METHOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE))));
7575 strncpy (meltcdat->drout_215__DBGOUT_LIST_METHOD.routdescr, "DBGOUT_LIST_METHOD @warmelt-debug.melt:942", MELT_ROUTDESCR_LEN - 1);
7576 meltcdat->drout_215__DBGOUT_LIST_METHOD.nbval = 5;
7577 MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_215__DBGOUT_LIST_METHOD, meltrout_26_WARMELTmiDEBUG_DBGOUT_LIST_METHOD);
7578
7579 /*iniclos dclo_216__DBGOUT_LIST_METHOD*/
7580 /*_._VALCLO___V273*/
7581 meltfptr[272] = (melt_ptr_t) &meltcdat->dclo_216__DBGOUT_LIST_METHOD;
7582 meltcdat->dclo_216__DBGOUT_LIST_METHOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE))));
7583 meltcdat->dclo_216__DBGOUT_LIST_METHOD.nbval = 0;
7584
7585
7586 /*iniobj dsym_217__DISCR_LIST*/
7587 /*uniqueobj*/
7588 if (!/*_._VALDATA___V274*/ meltfptr[273])
7589 /*_._VALDATA___V274*/ meltfptr[273] = (melt_ptr_t )&meltcdat->dsym_217__DISCR_LIST;
7590 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_217__DISCR_LIST", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
7591 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_217__DISCR_LIST", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
7592 meltcdat->dsym_217__DISCR_LIST.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
7593 meltcdat->dsym_217__DISCR_LIST.obj_hash = 98407634;
7594 meltcdat->dsym_217__DISCR_LIST.obj_len = 3;
7595
7596
7597 /*inistring dstr_218__DISCR_LIST*/
7598 /*_._VALSTR___V275*/
7599 meltfptr[274] = (melt_ptr_t) &meltcdat->dstr_218__DISCR_LIST;
7600 meltcdat->dstr_218__DISCR_LIST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
7601 /*small inistring*/
7602 strncpy(meltcdat->dstr_218__DISCR_LIST.val, "DISCR_LIST", sizeof (meltcdat->dstr_218__DISCR_LIST.val)-1);
7603 meltcdat->dstr_218__DISCR_LIST.val[10] = (char)0 ;
7604 meltcdat->dstr_218__DISCR_LIST.slen = 10 ;
7605
7606 /*inirout drout_219__DBGOUT_PAIR_METHOD*/
7607 /*iniroutlocvar*/ /*_._VALROUT___V276*/
7608 meltfptr[275] = (melt_ptr_t) &meltcdat->drout_219__DBGOUT_PAIR_METHOD;
7609 meltcdat->drout_219__DBGOUT_PAIR_METHOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE))));
7610 strncpy (meltcdat->drout_219__DBGOUT_PAIR_METHOD.routdescr, "DBGOUT_PAIR_METHOD @warmelt-debug.melt:989", MELT_ROUTDESCR_LEN - 1);
7611 meltcdat->drout_219__DBGOUT_PAIR_METHOD.nbval = 5;
7612 MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_219__DBGOUT_PAIR_METHOD, meltrout_27_WARMELTmiDEBUG_DBGOUT_PAIR_METHOD);
7613
7614 /*iniclos dclo_220__DBGOUT_PAIR_METHOD*/
7615 /*_._VALCLO___V277*/
7616 meltfptr[276] = (melt_ptr_t) &meltcdat->dclo_220__DBGOUT_PAIR_METHOD;
7617 meltcdat->dclo_220__DBGOUT_PAIR_METHOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE))));
7618 meltcdat->dclo_220__DBGOUT_PAIR_METHOD.nbval = 0;
7619
7620
7621 /*iniobj dsym_221__DISCR_PAIR*/
7622 /*uniqueobj*/
7623 if (!/*_._VALDATA___V278*/ meltfptr[277])
7624 /*_._VALDATA___V278*/ meltfptr[277] = (melt_ptr_t )&meltcdat->dsym_221__DISCR_PAIR;
7625 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_221__DISCR_PAIR", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
7626 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_221__DISCR_PAIR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
7627 meltcdat->dsym_221__DISCR_PAIR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
7628 meltcdat->dsym_221__DISCR_PAIR.obj_hash = 69333571;
7629 meltcdat->dsym_221__DISCR_PAIR.obj_len = 3;
7630
7631
7632 /*inistring dstr_222__DISCR_PAIR*/
7633 /*_._VALSTR___V279*/
7634 meltfptr[278] = (melt_ptr_t) &meltcdat->dstr_222__DISCR_PAIR;
7635 meltcdat->dstr_222__DISCR_PAIR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
7636 /*small inistring*/
7637 strncpy(meltcdat->dstr_222__DISCR_PAIR.val, "DISCR_PAIR", sizeof (meltcdat->dstr_222__DISCR_PAIR.val)-1);
7638 meltcdat->dstr_222__DISCR_PAIR.val[10] = (char)0 ;
7639 meltcdat->dstr_222__DISCR_PAIR.slen = 10 ;
7640
7641 /*inirout drout_223__DBGOUT_MAPOBJECT_METHOD*/
7642 /*iniroutlocvar*/ /*_._VALROUT___V280*/
7643 meltfptr[279] = (melt_ptr_t) &meltcdat->drout_223__DBGOUT_MAPOBJECT_METHOD;
7644 meltcdat->drout_223__DBGOUT_MAPOBJECT_METHOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE))));
7645 strncpy (meltcdat->drout_223__DBGOUT_MAPOBJECT_METHOD.routdescr, "DBGOUT_MAPOBJECT_METHOD @warmelt-debug.melt:1014", MELT_ROUTDESCR_LEN - 1);
7646 meltcdat->drout_223__DBGOUT_MAPOBJECT_METHOD.nbval = 18;
7647 MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_223__DBGOUT_MAPOBJECT_METHOD, meltrout_28_WARMELTmiDEBUG_DBGOUT_MAPOBJECT_METHOD);
7648
7649 /*iniclos dclo_224__DBGOUT_MAPOBJECT_METHOD*/
7650 /*_._VALCLO___V287*/
7651 meltfptr[286] = (melt_ptr_t) &meltcdat->dclo_224__DBGOUT_MAPOBJECT_METHOD;
7652 meltcdat->dclo_224__DBGOUT_MAPOBJECT_METHOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE))));
7653 meltcdat->dclo_224__DBGOUT_MAPOBJECT_METHOD.nbval = 0;
7654
7655
7656 /*iniobj dsym_225__MAPOBJECT_EVERY*/
7657 /*uniqueobj*/
7658 if (!/*_._VALDATA___V288*/ meltfptr[287])
7659 /*_._VALDATA___V288*/ meltfptr[287] = (melt_ptr_t )&meltcdat->dsym_225__MAPOBJECT_EVERY;
7660 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_225__MAPOBJECT_EVERY", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
7661 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_225__MAPOBJECT_EVERY", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
7662 meltcdat->dsym_225__MAPOBJECT_EVERY.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
7663 meltcdat->dsym_225__MAPOBJECT_EVERY.obj_hash = 726732435;
7664 meltcdat->dsym_225__MAPOBJECT_EVERY.obj_len = 3;
7665
7666
7667 /*inistring dstr_226__MAPOBJECT_EVERY*/
7668 /*_._VALSTR___V289*/
7669 meltfptr[288] = (melt_ptr_t) &meltcdat->dstr_226__MAPOBJECT_EVERY;
7670 meltcdat->dstr_226__MAPOBJECT_EVERY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
7671 /*small inistring*/
7672 strncpy(meltcdat->dstr_226__MAPOBJECT_EVERY.val, "MAPOBJECT_EVERY", sizeof (meltcdat->dstr_226__MAPOBJECT_EVERY.val)-1);
7673 meltcdat->dstr_226__MAPOBJECT_EVERY.val[15] = (char)0 ;
7674 meltcdat->dstr_226__MAPOBJECT_EVERY.slen = 15 ;
7675
7676 /*inirout drout_227__LAMBDA_*/
7677 /*iniroutlocvar*/ /*_._VALROUT___V281*/
7678 meltfptr[280] = (melt_ptr_t) &meltcdat->drout_227__LAMBDA_;
7679 meltcdat->drout_227__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE))));
7680 strncpy (meltcdat->drout_227__LAMBDA_.routdescr, "LAMBDA_ @warmelt-debug.melt:1054", MELT_ROUTDESCR_LEN - 1);
7681 meltcdat->drout_227__LAMBDA_.nbval = 1;
7682 MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_227__LAMBDA_, meltrout_29_WARMELTmiDEBUG_LAMBDA_cl3);
7683
7684
7685 /*iniobj dsym_228__MULTIPLE_SORT*/
7686 /*uniqueobj*/
7687 if (!/*_._VALDATA___V290*/ meltfptr[289])
7688 /*_._VALDATA___V290*/ meltfptr[289] = (melt_ptr_t )&meltcdat->dsym_228__MULTIPLE_SORT;
7689 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_228__MULTIPLE_SORT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
7690 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_228__MULTIPLE_SORT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
7691 meltcdat->dsym_228__MULTIPLE_SORT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
7692 meltcdat->dsym_228__MULTIPLE_SORT.obj_hash = 959027783;
7693 meltcdat->dsym_228__MULTIPLE_SORT.obj_len = 3;
7694
7695
7696 /*inistring dstr_229__MULTIPLE_SORT*/
7697 /*_._VALSTR___V291*/
7698 meltfptr[290] = (melt_ptr_t) &meltcdat->dstr_229__MULTIPLE_SORT;
7699 meltcdat->dstr_229__MULTIPLE_SORT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
7700 /*small inistring*/
7701 strncpy(meltcdat->dstr_229__MULTIPLE_SORT.val, "MULTIPLE_SORT", sizeof (meltcdat->dstr_229__MULTIPLE_SORT.val)-1);
7702 meltcdat->dstr_229__MULTIPLE_SORT.val[13] = (char)0 ;
7703 meltcdat->dstr_229__MULTIPLE_SORT.slen = 13 ;
7704
7705 /*inirout drout_230__LAMBDA_*/
7706 /*iniroutlocvar*/ /*_._VALROUT___V282*/
7707 meltfptr[281] = (melt_ptr_t) &meltcdat->drout_230__LAMBDA_;
7708 meltcdat->drout_230__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE))));
7709 strncpy (meltcdat->drout_230__LAMBDA_.routdescr, "LAMBDA_ @warmelt-debug.melt:1067", MELT_ROUTDESCR_LEN - 1);
7710 meltcdat->drout_230__LAMBDA_.nbval = 4;
7711 MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_230__LAMBDA_, meltrout_30_WARMELTmiDEBUG_LAMBDA_cl4);
7712
7713
7714 /*iniobj dsym_231__COMPARE_OBJ_RANKED*/
7715 /*uniqueobj*/
7716 if (!/*_._VALDATA___V292*/ meltfptr[291])
7717 /*_._VALDATA___V292*/ meltfptr[291] = (melt_ptr_t )&meltcdat->dsym_231__COMPARE_OBJ_RANKED;
7718 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_231__COMPARE_OBJ_RANKED", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
7719 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_231__COMPARE_OBJ_RANKED", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
7720 meltcdat->dsym_231__COMPARE_OBJ_RANKED.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
7721 meltcdat->dsym_231__COMPARE_OBJ_RANKED.obj_hash = 657124045;
7722 meltcdat->dsym_231__COMPARE_OBJ_RANKED.obj_len = 3;
7723
7724
7725 /*inistring dstr_232__COMPARE_OBJ_RANKED*/
7726 /*_._VALSTR___V293*/
7727 meltfptr[292] = (melt_ptr_t) &meltcdat->dstr_232__COMPARE_OBJ_RANKED;
7728 meltcdat->dstr_232__COMPARE_OBJ_RANKED.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
7729 /*small inistring*/
7730 strncpy(meltcdat->dstr_232__COMPARE_OBJ_RANKED.val, "COMPARE_OBJ_RANKED", sizeof (meltcdat->dstr_232__COMPARE_OBJ_RANKED.val)-1);
7731 meltcdat->dstr_232__COMPARE_OBJ_RANKED.val[18] = (char)0 ;
7732 meltcdat->dstr_232__COMPARE_OBJ_RANKED.slen = 18 ;
7733
7734 /*iniboxint dint_233__*/
7735 /*_._VALBXINT___V283*/
7736 meltfptr[282] = (melt_ptr_t) &meltcdat->dint_233__;
7737 meltcdat->dint_233__.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CONSTANT_INTEGER))));
7738 meltcdat->dint_233__.val = -1;
7739
7740 /*iniboxint dint_234__*/
7741 /*_._VALBXINT___V284*/
7742 meltfptr[283] = (melt_ptr_t) &meltcdat->dint_234__;
7743 meltcdat->dint_234__.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CONSTANT_INTEGER))));
7744 meltcdat->dint_234__.val = 0;
7745
7746 /*iniboxint dint_235__*/
7747 /*_._VALBXINT___V285*/
7748 meltfptr[284] = (melt_ptr_t) &meltcdat->dint_235__;
7749 meltcdat->dint_235__.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CONSTANT_INTEGER))));
7750 meltcdat->dint_235__.val = 1;
7751
7752
7753 /*iniobj dsym_236__MULTIPLE_EVERY*/
7754 /*uniqueobj*/
7755 if (!/*_._VALDATA___V294*/ meltfptr[293])
7756 /*_._VALDATA___V294*/ meltfptr[293] = (melt_ptr_t )&meltcdat->dsym_236__MULTIPLE_EVERY;
7757 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_236__MULTIPLE_EVERY", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
7758 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_236__MULTIPLE_EVERY", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
7759 meltcdat->dsym_236__MULTIPLE_EVERY.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
7760 meltcdat->dsym_236__MULTIPLE_EVERY.obj_hash = 130098745;
7761 meltcdat->dsym_236__MULTIPLE_EVERY.obj_len = 3;
7762
7763
7764 /*inistring dstr_237__MULTIPLE_EVERY*/
7765 /*_._VALSTR___V295*/
7766 meltfptr[294] = (melt_ptr_t) &meltcdat->dstr_237__MULTIPLE_EVERY;
7767 meltcdat->dstr_237__MULTIPLE_EVERY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
7768 /*small inistring*/
7769 strncpy(meltcdat->dstr_237__MULTIPLE_EVERY.val, "MULTIPLE_EVERY", sizeof (meltcdat->dstr_237__MULTIPLE_EVERY.val)-1);
7770 meltcdat->dstr_237__MULTIPLE_EVERY.val[14] = (char)0 ;
7771 meltcdat->dstr_237__MULTIPLE_EVERY.slen = 14 ;
7772
7773 /*inirout drout_238__LAMBDA_*/
7774 /*iniroutlocvar*/ /*_._VALROUT___V286*/
7775 meltfptr[285] = (melt_ptr_t) &meltcdat->drout_238__LAMBDA_;
7776 meltcdat->drout_238__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE))));
7777 strncpy (meltcdat->drout_238__LAMBDA_.routdescr, "LAMBDA_ @warmelt-debug.melt:1083", MELT_ROUTDESCR_LEN - 1);
7778 meltcdat->drout_238__LAMBDA_.nbval = 3;
7779 MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_238__LAMBDA_, meltrout_31_WARMELTmiDEBUG_LAMBDA_cl5);
7780
7781 /*inirout drout_239__DBGOUT_MAPSTRING_METHOD*/
7782 /*iniroutlocvar*/ /*_._VALROUT___V296*/
7783 meltfptr[295] = (melt_ptr_t) &meltcdat->drout_239__DBGOUT_MAPSTRING_METHOD;
7784 meltcdat->drout_239__DBGOUT_MAPSTRING_METHOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE))));
7785 strncpy (meltcdat->drout_239__DBGOUT_MAPSTRING_METHOD.routdescr, "DBGOUT_MAPSTRING_METHOD @warmelt-debug.melt:1108", MELT_ROUTDESCR_LEN - 1);
7786 meltcdat->drout_239__DBGOUT_MAPSTRING_METHOD.nbval = 14;
7787 MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_239__DBGOUT_MAPSTRING_METHOD, meltrout_32_WARMELTmiDEBUG_DBGOUT_MAPSTRING_METHOD);
7788
7789 /*iniclos dclo_240__DBGOUT_MAPSTRING_METHOD*/
7790 /*_._VALCLO___V302*/
7791 meltfptr[301] = (melt_ptr_t) &meltcdat->dclo_240__DBGOUT_MAPSTRING_METHOD;
7792 meltcdat->dclo_240__DBGOUT_MAPSTRING_METHOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE))));
7793 meltcdat->dclo_240__DBGOUT_MAPSTRING_METHOD.nbval = 0;
7794
7795
7796 /*iniobj dsym_241__MAPSTRING_EVERY*/
7797 /*uniqueobj*/
7798 if (!/*_._VALDATA___V303*/ meltfptr[302])
7799 /*_._VALDATA___V303*/ meltfptr[302] = (melt_ptr_t )&meltcdat->dsym_241__MAPSTRING_EVERY;
7800 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_241__MAPSTRING_EVERY", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
7801 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_241__MAPSTRING_EVERY", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
7802 meltcdat->dsym_241__MAPSTRING_EVERY.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
7803 meltcdat->dsym_241__MAPSTRING_EVERY.obj_hash = 173778712;
7804 meltcdat->dsym_241__MAPSTRING_EVERY.obj_len = 3;
7805
7806
7807 /*inistring dstr_242__MAPSTRING_EVERY*/
7808 /*_._VALSTR___V304*/
7809 meltfptr[303] = (melt_ptr_t) &meltcdat->dstr_242__MAPSTRING_EVERY;
7810 meltcdat->dstr_242__MAPSTRING_EVERY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
7811 /*small inistring*/
7812 strncpy(meltcdat->dstr_242__MAPSTRING_EVERY.val, "MAPSTRING_EVERY", sizeof (meltcdat->dstr_242__MAPSTRING_EVERY.val)-1);
7813 meltcdat->dstr_242__MAPSTRING_EVERY.val[15] = (char)0 ;
7814 meltcdat->dstr_242__MAPSTRING_EVERY.slen = 15 ;
7815
7816 /*inirout drout_243__LAMBDA_*/
7817 /*iniroutlocvar*/ /*_._VALROUT___V297*/
7818 meltfptr[296] = (melt_ptr_t) &meltcdat->drout_243__LAMBDA_;
7819 meltcdat->drout_243__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE))));
7820 strncpy (meltcdat->drout_243__LAMBDA_.routdescr, "LAMBDA_ @warmelt-debug.melt:1143", MELT_ROUTDESCR_LEN - 1);
7821 meltcdat->drout_243__LAMBDA_.nbval = 1;
7822 MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_243__LAMBDA_, meltrout_33_WARMELTmiDEBUG_LAMBDA_cl6);
7823
7824 /*inirout drout_244__LAMBDA_*/
7825 /*iniroutlocvar*/ /*_._VALROUT___V298*/
7826 meltfptr[297] = (melt_ptr_t) &meltcdat->drout_244__LAMBDA_;
7827 meltcdat->drout_244__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE))));
7828 strncpy (meltcdat->drout_244__LAMBDA_.routdescr, "LAMBDA_ @warmelt-debug.melt:1155", MELT_ROUTDESCR_LEN - 1);
7829 meltcdat->drout_244__LAMBDA_.nbval = 4;
7830 MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_244__LAMBDA_, meltrout_34_WARMELTmiDEBUG_LAMBDA_cl7);
7831
7832 /*iniboxint dint_245__*/
7833 /*_._VALBXINT___V299*/
7834 meltfptr[298] = (melt_ptr_t) &meltcdat->dint_245__;
7835 meltcdat->dint_245__.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CONSTANT_INTEGER))));
7836 meltcdat->dint_245__.val = -1;
7837
7838 /*iniboxint dint_246__*/
7839 /*_._VALBXINT___V300*/
7840 meltfptr[299] = (melt_ptr_t) &meltcdat->dint_246__;
7841 meltcdat->dint_246__.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CONSTANT_INTEGER))));
7842 meltcdat->dint_246__.val = 0;
7843
7844 /*iniboxint dint_247__*/
7845 /*_._VALBXINT___V301*/
7846 meltfptr[300] = (melt_ptr_t) &meltcdat->dint_247__;
7847 meltcdat->dint_247__.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CONSTANT_INTEGER))));
7848 meltcdat->dint_247__.val = 1;
7849
7850
7851 /*iniobj dsym_248__DISCR_MAP_STRINGS*/
7852 /*uniqueobj*/
7853 if (!/*_._VALDATA___V305*/ meltfptr[304])
7854 /*_._VALDATA___V305*/ meltfptr[304] = (melt_ptr_t )&meltcdat->dsym_248__DISCR_MAP_STRINGS;
7855 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_248__DISCR_MAP_STRINGS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
7856 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_248__DISCR_MAP_STRINGS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
7857 meltcdat->dsym_248__DISCR_MAP_STRINGS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
7858 meltcdat->dsym_248__DISCR_MAP_STRINGS.obj_hash = 344609662;
7859 meltcdat->dsym_248__DISCR_MAP_STRINGS.obj_len = 3;
7860
7861
7862 /*inistring dstr_249__DISCR_MAP_STRINGS*/
7863 /*_._VALSTR___V306*/
7864 meltfptr[305] = (melt_ptr_t) &meltcdat->dstr_249__DISCR_MAP_STRINGS;
7865 meltcdat->dstr_249__DISCR_MAP_STRINGS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
7866 /*small inistring*/
7867 strncpy(meltcdat->dstr_249__DISCR_MAP_STRINGS.val, "DISCR_MAP_STRINGS", sizeof (meltcdat->dstr_249__DISCR_MAP_STRINGS.val)-1);
7868 meltcdat->dstr_249__DISCR_MAP_STRINGS.val[17] = (char)0 ;
7869 meltcdat->dstr_249__DISCR_MAP_STRINGS.slen = 17 ;
7870
7871 /*inirout drout_250__DBGOUT_BUCKETLONG_METHOD*/
7872 /*iniroutlocvar*/ /*_._VALROUT___V307*/
7873 meltfptr[306] = (melt_ptr_t) &meltcdat->drout_250__DBGOUT_BUCKETLONG_METHOD;
7874 meltcdat->drout_250__DBGOUT_BUCKETLONG_METHOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE))));
7875 strncpy (meltcdat->drout_250__DBGOUT_BUCKETLONG_METHOD.routdescr, "DBGOUT_BUCKETLONG_METHOD @warmelt-debug.melt:1191", MELT_ROUTDESCR_LEN - 1);
7876 meltcdat->drout_250__DBGOUT_BUCKETLONG_METHOD.nbval = 6;
7877 MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_250__DBGOUT_BUCKETLONG_METHOD, meltrout_35_WARMELTmiDEBUG_DBGOUT_BUCKETLONG_METHOD);
7878
7879 /*iniclos dclo_251__DBGOUT_BUCKETLONG_METHOD*/
7880 /*_._VALCLO___V308*/
7881 meltfptr[307] = (melt_ptr_t) &meltcdat->dclo_251__DBGOUT_BUCKETLONG_METHOD;
7882 meltcdat->dclo_251__DBGOUT_BUCKETLONG_METHOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE))));
7883 meltcdat->dclo_251__DBGOUT_BUCKETLONG_METHOD.nbval = 0;
7884
7885
7886 /*iniobj dsym_252__DISCR_BUCKET_LONGS*/
7887 /*uniqueobj*/
7888 if (!/*_._VALDATA___V309*/ meltfptr[308])
7889 /*_._VALDATA___V309*/ meltfptr[308] = (melt_ptr_t )&meltcdat->dsym_252__DISCR_BUCKET_LONGS;
7890 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_252__DISCR_BUCKET_LONGS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
7891 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_252__DISCR_BUCKET_LONGS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
7892 meltcdat->dsym_252__DISCR_BUCKET_LONGS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
7893 meltcdat->dsym_252__DISCR_BUCKET_LONGS.obj_hash = 603682282;
7894 meltcdat->dsym_252__DISCR_BUCKET_LONGS.obj_len = 3;
7895
7896
7897 /*inistring dstr_253__DISCR_BUCKET_LONGS*/
7898 /*_._VALSTR___V310*/
7899 meltfptr[309] = (melt_ptr_t) &meltcdat->dstr_253__DISCR_BUCKET_LONGS;
7900 meltcdat->dstr_253__DISCR_BUCKET_LONGS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
7901 /*small inistring*/
7902 strncpy(meltcdat->dstr_253__DISCR_BUCKET_LONGS.val, "DISCR_BUCKET_LONGS", sizeof (meltcdat->dstr_253__DISCR_BUCKET_LONGS.val)-1);
7903 meltcdat->dstr_253__DISCR_BUCKET_LONGS.val[18] = (char)0 ;
7904 meltcdat->dstr_253__DISCR_BUCKET_LONGS.slen = 18 ;
7905
7906 /*inirout drout_254__DBGOUT_JSONOBJECT_METHOD*/
7907 /*iniroutlocvar*/ /*_._VALROUT___V311*/
7908 meltfptr[310] = (melt_ptr_t) &meltcdat->drout_254__DBGOUT_JSONOBJECT_METHOD;
7909 meltcdat->drout_254__DBGOUT_JSONOBJECT_METHOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE))));
7910 strncpy (meltcdat->drout_254__DBGOUT_JSONOBJECT_METHOD.routdescr, "DBGOUT_JSONOBJECT_METHOD @warmelt-debug.melt:1228", MELT_ROUTDESCR_LEN - 1);
7911 meltcdat->drout_254__DBGOUT_JSONOBJECT_METHOD.nbval = 5;
7912 MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_254__DBGOUT_JSONOBJECT_METHOD, meltrout_36_WARMELTmiDEBUG_DBGOUT_JSONOBJECT_METHOD);
7913
7914 /*iniclos dclo_255__DBGOUT_JSONOBJECT_METHOD*/
7915 /*_._VALCLO___V312*/
7916 meltfptr[311] = (melt_ptr_t) &meltcdat->dclo_255__DBGOUT_JSONOBJECT_METHOD;
7917 meltcdat->dclo_255__DBGOUT_JSONOBJECT_METHOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE))));
7918 meltcdat->dclo_255__DBGOUT_JSONOBJECT_METHOD.nbval = 0;
7919
7920
7921 /*iniobj dsym_256__DISCR_JSONOBJECT*/
7922 /*uniqueobj*/
7923 if (!/*_._VALDATA___V313*/ meltfptr[312])
7924 /*_._VALDATA___V313*/ meltfptr[312] = (melt_ptr_t )&meltcdat->dsym_256__DISCR_JSONOBJECT;
7925 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_256__DISCR_JSONOBJECT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
7926 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_256__DISCR_JSONOBJECT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
7927 meltcdat->dsym_256__DISCR_JSONOBJECT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
7928 meltcdat->dsym_256__DISCR_JSONOBJECT.obj_hash = 358391776;
7929 meltcdat->dsym_256__DISCR_JSONOBJECT.obj_len = 3;
7930
7931
7932 /*inistring dstr_257__DISCR_JSONOBJECT*/
7933 /*_._VALSTR___V314*/
7934 meltfptr[313] = (melt_ptr_t) &meltcdat->dstr_257__DISCR_JSONOBJECT;
7935 meltcdat->dstr_257__DISCR_JSONOBJECT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
7936 /*small inistring*/
7937 strncpy(meltcdat->dstr_257__DISCR_JSONOBJECT.val, "DISCR_JSONOBJECT", sizeof (meltcdat->dstr_257__DISCR_JSONOBJECT.val)-1);
7938 meltcdat->dstr_257__DISCR_JSONOBJECT.val[16] = (char)0 ;
7939 meltcdat->dstr_257__DISCR_JSONOBJECT.slen = 16 ;
7940
7941 /*inirout drout_258__DBGOUT_ANYOBJECT_METHOD*/
7942 /*iniroutlocvar*/ /*_._VALROUT___V315*/
7943 meltfptr[314] = (melt_ptr_t) &meltcdat->drout_258__DBGOUT_ANYOBJECT_METHOD;
7944 meltcdat->drout_258__DBGOUT_ANYOBJECT_METHOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE))));
7945 strncpy (meltcdat->drout_258__DBGOUT_ANYOBJECT_METHOD.routdescr, "DBGOUT_ANYOBJECT_METHOD @warmelt-debug.melt:1262", MELT_ROUTDESCR_LEN - 1);
7946 meltcdat->drout_258__DBGOUT_ANYOBJECT_METHOD.nbval = 3;
7947 MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_258__DBGOUT_ANYOBJECT_METHOD, meltrout_37_WARMELTmiDEBUG_DBGOUT_ANYOBJECT_METHOD);
7948
7949 /*iniclos dclo_259__DBGOUT_ANYOBJECT_METHOD*/
7950 /*_._VALCLO___V316*/
7951 meltfptr[315] = (melt_ptr_t) &meltcdat->dclo_259__DBGOUT_ANYOBJECT_METHOD;
7952 meltcdat->dclo_259__DBGOUT_ANYOBJECT_METHOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE))));
7953 meltcdat->dclo_259__DBGOUT_ANYOBJECT_METHOD.nbval = 0;
7954
7955 /*inirout drout_260__DBGOUT_ANYRECV_METHOD*/
7956 /*iniroutlocvar*/ /*_._VALROUT___V317*/
7957 meltfptr[316] = (melt_ptr_t) &meltcdat->drout_260__DBGOUT_ANYRECV_METHOD;
7958 meltcdat->drout_260__DBGOUT_ANYRECV_METHOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE))));
7959 strncpy (meltcdat->drout_260__DBGOUT_ANYRECV_METHOD.routdescr, "DBGOUT_ANYRECV_METHOD @warmelt-debug.melt:1287", MELT_ROUTDESCR_LEN - 1);
7960 meltcdat->drout_260__DBGOUT_ANYRECV_METHOD.nbval = 3;
7961 MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_260__DBGOUT_ANYRECV_METHOD, meltrout_38_WARMELTmiDEBUG_DBGOUT_ANYRECV_METHOD);
7962
7963 /*iniclos dclo_261__DBGOUT_ANYRECV_METHOD*/
7964 /*_._VALCLO___V318*/
7965 meltfptr[317] = (melt_ptr_t) &meltcdat->dclo_261__DBGOUT_ANYRECV_METHOD;
7966 meltcdat->dclo_261__DBGOUT_ANYRECV_METHOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE))));
7967 meltcdat->dclo_261__DBGOUT_ANYRECV_METHOD.nbval = 0;
7968
7969
7970 /*iniobj dsym_262__DISCR_ANY_RECEIVER*/
7971 /*uniqueobj*/
7972 if (!/*_._VALDATA___V319*/ meltfptr[318])
7973 /*_._VALDATA___V319*/ meltfptr[318] = (melt_ptr_t )&meltcdat->dsym_262__DISCR_ANY_RECEIVER;
7974 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_262__DISCR_ANY_RECEIVER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
7975 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_262__DISCR_ANY_RECEIVER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
7976 meltcdat->dsym_262__DISCR_ANY_RECEIVER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
7977 meltcdat->dsym_262__DISCR_ANY_RECEIVER.obj_hash = 95947314;
7978 meltcdat->dsym_262__DISCR_ANY_RECEIVER.obj_len = 3;
7979
7980
7981 /*inistring dstr_263__DISCR_ANY_RECEIVER*/
7982 /*_._VALSTR___V320*/
7983 meltfptr[319] = (melt_ptr_t) &meltcdat->dstr_263__DISCR_ANY_RECEIVER;
7984 meltcdat->dstr_263__DISCR_ANY_RECEIVER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
7985 /*small inistring*/
7986 strncpy(meltcdat->dstr_263__DISCR_ANY_RECEIVER.val, "DISCR_ANY_RECEIVER", sizeof (meltcdat->dstr_263__DISCR_ANY_RECEIVER.val)-1);
7987 meltcdat->dstr_263__DISCR_ANY_RECEIVER.val[18] = (char)0 ;
7988 meltcdat->dstr_263__DISCR_ANY_RECEIVER.slen = 18 ;
7989
7990 /*inirout drout_264__DBGOUTAGAIN_ANYOBJECT_METHOD*/
7991 /*iniroutlocvar*/ /*_._VALROUT___V321*/
7992 meltfptr[320] = (melt_ptr_t) &meltcdat->drout_264__DBGOUTAGAIN_ANYOBJECT_METHOD;
7993 meltcdat->drout_264__DBGOUTAGAIN_ANYOBJECT_METHOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE))));
7994 strncpy (meltcdat->drout_264__DBGOUTAGAIN_ANYOBJECT_METHOD.routdescr, "DBGOUTAGAIN_ANYOBJECT_METHOD @warmelt-debug.melt:1298", MELT_ROUTDESCR_LEN - 1);
7995 meltcdat->drout_264__DBGOUTAGAIN_ANYOBJECT_METHOD.nbval = 2;
7996 MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_264__DBGOUTAGAIN_ANYOBJECT_METHOD, meltrout_39_WARMELTmiDEBUG_DBGOUTAGAIN_ANYOBJECT_METHOD);
7997
7998 /*iniclos dclo_265__DBGOUTAGAIN_ANYOBJECT_METHOD*/
7999 /*_._VALCLO___V322*/
8000 meltfptr[321] = (melt_ptr_t) &meltcdat->dclo_265__DBGOUTAGAIN_ANYOBJECT_METHOD;
8001 meltcdat->dclo_265__DBGOUTAGAIN_ANYOBJECT_METHOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE))));
8002 meltcdat->dclo_265__DBGOUTAGAIN_ANYOBJECT_METHOD.nbval = 0;
8003
8004 /*inirout drout_266__DBGOUT_NAMEDOBJECT_METHOD*/
8005 /*iniroutlocvar*/ /*_._VALROUT___V323*/
8006 meltfptr[322] = (melt_ptr_t) &meltcdat->drout_266__DBGOUT_NAMEDOBJECT_METHOD;
8007 meltcdat->drout_266__DBGOUT_NAMEDOBJECT_METHOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE))));
8008 strncpy (meltcdat->drout_266__DBGOUT_NAMEDOBJECT_METHOD.routdescr, "DBGOUT_NAMEDOBJECT_METHOD @warmelt-debug.melt:1316", MELT_ROUTDESCR_LEN - 1);
8009 meltcdat->drout_266__DBGOUT_NAMEDOBJECT_METHOD.nbval = 5;
8010 MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_266__DBGOUT_NAMEDOBJECT_METHOD, meltrout_40_WARMELTmiDEBUG_DBGOUT_NAMEDOBJECT_METHOD);
8011
8012 /*iniclos dclo_267__DBGOUT_NAMEDOBJECT_METHOD*/
8013 /*_._VALCLO___V324*/
8014 meltfptr[323] = (melt_ptr_t) &meltcdat->dclo_267__DBGOUT_NAMEDOBJECT_METHOD;
8015 meltcdat->dclo_267__DBGOUT_NAMEDOBJECT_METHOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE))));
8016 meltcdat->dclo_267__DBGOUT_NAMEDOBJECT_METHOD.nbval = 0;
8017
8018
8019 /*iniobj dsym_268__DBGOUT_NAMEDOBJECT_METHOD*/
8020 /*uniqueobj*/
8021 if (!/*_._VALDATA___V325*/ meltfptr[324])
8022 /*_._VALDATA___V325*/ meltfptr[324] = (melt_ptr_t )&meltcdat->dsym_268__DBGOUT_NAMEDOBJECT_METHOD;
8023 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_268__DBGOUT_NAMEDOBJECT_METHOD", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
8024 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_268__DBGOUT_NAMEDOBJECT_METHOD", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
8025 meltcdat->dsym_268__DBGOUT_NAMEDOBJECT_METHOD.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
8026 meltcdat->dsym_268__DBGOUT_NAMEDOBJECT_METHOD.obj_hash = 359355803;
8027 meltcdat->dsym_268__DBGOUT_NAMEDOBJECT_METHOD.obj_len = 3;
8028
8029
8030 /*inistring dstr_269__DBGOUT_NAMEDOBJECT_METHO*/
8031 /*_._VALSTR___V326*/
8032 meltfptr[325] = (melt_ptr_t) &meltcdat->dstr_269__DBGOUT_NAMEDOBJECT_METHO;
8033 meltcdat->dstr_269__DBGOUT_NAMEDOBJECT_METHO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
8034 /*small inistring*/
8035 strncpy(meltcdat->dstr_269__DBGOUT_NAMEDOBJECT_METHO.val, "DBGOUT_NAMEDOBJECT_METHOD", sizeof (meltcdat->dstr_269__DBGOUT_NAMEDOBJECT_METHO.val)-1);
8036 meltcdat->dstr_269__DBGOUT_NAMEDOBJECT_METHO.val[25] = (char)0 ;
8037 meltcdat->dstr_269__DBGOUT_NAMEDOBJECT_METHO.slen = 25 ;
8038
8039 /*inirout drout_270__DBGOUTAGAIN_NAMEDOBJECT_METHOD*/
8040 /*iniroutlocvar*/ /*_._VALROUT___V327*/
8041 meltfptr[326] = (melt_ptr_t) &meltcdat->drout_270__DBGOUTAGAIN_NAMEDOBJECT_METHOD;
8042 meltcdat->drout_270__DBGOUTAGAIN_NAMEDOBJECT_METHOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE))));
8043 strncpy (meltcdat->drout_270__DBGOUTAGAIN_NAMEDOBJECT_METHOD.routdescr, "DBGOUTAGAIN_NAMEDOBJECT_METHOD @warmelt-debug.melt:1353", MELT_ROUTDESCR_LEN - 1);
8044 meltcdat->drout_270__DBGOUTAGAIN_NAMEDOBJECT_METHOD.nbval = 3;
8045 MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_270__DBGOUTAGAIN_NAMEDOBJECT_METHOD, meltrout_41_WARMELTmiDEBUG_DBGOUTAGAIN_NAMEDOBJECT_METHOD);
8046
8047 /*iniclos dclo_271__DBGOUTAGAIN_NAMEDOBJECT_METHOD*/
8048 /*_._VALCLO___V328*/
8049 meltfptr[327] = (melt_ptr_t) &meltcdat->dclo_271__DBGOUTAGAIN_NAMEDOBJECT_METHOD;
8050 meltcdat->dclo_271__DBGOUTAGAIN_NAMEDOBJECT_METHOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE))));
8051 meltcdat->dclo_271__DBGOUTAGAIN_NAMEDOBJECT_METHOD.nbval = 0;
8052
8053 /*inirout drout_272__DBGOUTAGAIN_SYMBOL_METHOD*/
8054 /*iniroutlocvar*/ /*_._VALROUT___V329*/
8055 meltfptr[328] = (melt_ptr_t) &meltcdat->drout_272__DBGOUTAGAIN_SYMBOL_METHOD;
8056 meltcdat->drout_272__DBGOUTAGAIN_SYMBOL_METHOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE))));
8057 strncpy (meltcdat->drout_272__DBGOUTAGAIN_SYMBOL_METHOD.routdescr, "DBGOUTAGAIN_SYMBOL_METHOD @warmelt-debug.melt:1371", MELT_ROUTDESCR_LEN - 1);
8058 meltcdat->drout_272__DBGOUTAGAIN_SYMBOL_METHOD.nbval = 3;
8059 MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_272__DBGOUTAGAIN_SYMBOL_METHOD, meltrout_42_WARMELTmiDEBUG_DBGOUTAGAIN_SYMBOL_METHOD);
8060
8061 /*iniclos dclo_273__DBGOUTAGAIN_SYMBOL_METHOD*/
8062 /*_._VALCLO___V330*/
8063 meltfptr[329] = (melt_ptr_t) &meltcdat->dclo_273__DBGOUTAGAIN_SYMBOL_METHOD;
8064 meltcdat->dclo_273__DBGOUTAGAIN_SYMBOL_METHOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE))));
8065 meltcdat->dclo_273__DBGOUTAGAIN_SYMBOL_METHOD.nbval = 0;
8066
8067
8068 /*iniobj dsym_274__CLASS_SYMBOL*/
8069 /*uniqueobj*/
8070 if (!/*_._VALDATA___V331*/ meltfptr[330])
8071 /*_._VALDATA___V331*/ meltfptr[330] = (melt_ptr_t )&meltcdat->dsym_274__CLASS_SYMBOL;
8072 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_274__CLASS_SYMBOL", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
8073 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_274__CLASS_SYMBOL", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
8074 meltcdat->dsym_274__CLASS_SYMBOL.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
8075 meltcdat->dsym_274__CLASS_SYMBOL.obj_hash = 53524182;
8076 meltcdat->dsym_274__CLASS_SYMBOL.obj_len = 3;
8077
8078
8079 /*inistring dstr_275__CLASS_SYMBOL*/
8080 /*_._VALSTR___V332*/
8081 meltfptr[331] = (melt_ptr_t) &meltcdat->dstr_275__CLASS_SYMBOL;
8082 meltcdat->dstr_275__CLASS_SYMBOL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
8083 /*small inistring*/
8084 strncpy(meltcdat->dstr_275__CLASS_SYMBOL.val, "CLASS_SYMBOL", sizeof (meltcdat->dstr_275__CLASS_SYMBOL.val)-1);
8085 meltcdat->dstr_275__CLASS_SYMBOL.val[12] = (char)0 ;
8086 meltcdat->dstr_275__CLASS_SYMBOL.slen = 12 ;
8087
8088 /*inirout drout_276__DBGOUT_SYMBOL_METHOD*/
8089 /*iniroutlocvar*/ /*_._VALROUT___V333*/
8090 meltfptr[332] = (melt_ptr_t) &meltcdat->drout_276__DBGOUT_SYMBOL_METHOD;
8091 meltcdat->drout_276__DBGOUT_SYMBOL_METHOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE))));
8092 strncpy (meltcdat->drout_276__DBGOUT_SYMBOL_METHOD.routdescr, "DBGOUT_SYMBOL_METHOD @warmelt-debug.melt:1389", MELT_ROUTDESCR_LEN - 1);
8093 meltcdat->drout_276__DBGOUT_SYMBOL_METHOD.nbval = 5;
8094 MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_276__DBGOUT_SYMBOL_METHOD, meltrout_43_WARMELTmiDEBUG_DBGOUT_SYMBOL_METHOD);
8095
8096 /*iniclos dclo_277__DBGOUT_SYMBOL_METHOD*/
8097 /*_._VALCLO___V334*/
8098 meltfptr[333] = (melt_ptr_t) &meltcdat->dclo_277__DBGOUT_SYMBOL_METHOD;
8099 meltcdat->dclo_277__DBGOUT_SYMBOL_METHOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE))));
8100 meltcdat->dclo_277__DBGOUT_SYMBOL_METHOD.nbval = 0;
8101
8102 /*inirout drout_278__DBGOUT_CLASS_METHOD*/
8103 /*iniroutlocvar*/ /*_._VALROUT___V335*/
8104 meltfptr[334] = (melt_ptr_t) &meltcdat->drout_278__DBGOUT_CLASS_METHOD;
8105 meltcdat->drout_278__DBGOUT_CLASS_METHOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE))));
8106 strncpy (meltcdat->drout_278__DBGOUT_CLASS_METHOD.routdescr, "DBGOUT_CLASS_METHOD @warmelt-debug.melt:1399", MELT_ROUTDESCR_LEN - 1);
8107 meltcdat->drout_278__DBGOUT_CLASS_METHOD.nbval = 5;
8108 MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_278__DBGOUT_CLASS_METHOD, meltrout_44_WARMELTmiDEBUG_DBGOUT_CLASS_METHOD);
8109
8110 /*iniclos dclo_279__DBGOUT_CLASS_METHOD*/
8111 /*_._VALCLO___V336*/
8112 meltfptr[335] = (melt_ptr_t) &meltcdat->dclo_279__DBGOUT_CLASS_METHOD;
8113 meltcdat->dclo_279__DBGOUT_CLASS_METHOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE))));
8114 meltcdat->dclo_279__DBGOUT_CLASS_METHOD.nbval = 0;
8115
8116
8117 /*iniobj dsym_280__CLASS_CLASS*/
8118 /*uniqueobj*/
8119 if (!/*_._VALDATA___V337*/ meltfptr[336])
8120 /*_._VALDATA___V337*/ meltfptr[336] = (melt_ptr_t )&meltcdat->dsym_280__CLASS_CLASS;
8121 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_280__CLASS_CLASS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
8122 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_280__CLASS_CLASS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
8123 meltcdat->dsym_280__CLASS_CLASS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
8124 meltcdat->dsym_280__CLASS_CLASS.obj_hash = 60141292;
8125 meltcdat->dsym_280__CLASS_CLASS.obj_len = 3;
8126
8127
8128 /*inistring dstr_281__CLASS_CLASS*/
8129 /*_._VALSTR___V338*/
8130 meltfptr[337] = (melt_ptr_t) &meltcdat->dstr_281__CLASS_CLASS;
8131 meltcdat->dstr_281__CLASS_CLASS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
8132 /*small inistring*/
8133 strncpy(meltcdat->dstr_281__CLASS_CLASS.val, "CLASS_CLASS", sizeof (meltcdat->dstr_281__CLASS_CLASS.val)-1);
8134 meltcdat->dstr_281__CLASS_CLASS.val[11] = (char)0 ;
8135 meltcdat->dstr_281__CLASS_CLASS.slen = 11 ;
8136
8137 /*inirout drout_282__DBGOUTAGAIN_KEYWORD_METHOD*/
8138 /*iniroutlocvar*/ /*_._VALROUT___V339*/
8139 meltfptr[338] = (melt_ptr_t) &meltcdat->drout_282__DBGOUTAGAIN_KEYWORD_METHOD;
8140 meltcdat->drout_282__DBGOUTAGAIN_KEYWORD_METHOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE))));
8141 strncpy (meltcdat->drout_282__DBGOUTAGAIN_KEYWORD_METHOD.routdescr, "DBGOUTAGAIN_KEYWORD_METHOD @warmelt-debug.melt:1409", MELT_ROUTDESCR_LEN - 1);
8142 meltcdat->drout_282__DBGOUTAGAIN_KEYWORD_METHOD.nbval = 3;
8143 MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_282__DBGOUTAGAIN_KEYWORD_METHOD, meltrout_45_WARMELTmiDEBUG_DBGOUTAGAIN_KEYWORD_METHOD);
8144
8145 /*iniclos dclo_283__DBGOUTAGAIN_KEYWORD_METHOD*/
8146 /*_._VALCLO___V340*/
8147 meltfptr[339] = (melt_ptr_t) &meltcdat->dclo_283__DBGOUTAGAIN_KEYWORD_METHOD;
8148 meltcdat->dclo_283__DBGOUTAGAIN_KEYWORD_METHOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE))));
8149 meltcdat->dclo_283__DBGOUTAGAIN_KEYWORD_METHOD.nbval = 0;
8150
8151
8152 /*iniobj dsym_284__CLASS_KEYWORD*/
8153 /*uniqueobj*/
8154 if (!/*_._VALDATA___V341*/ meltfptr[340])
8155 /*_._VALDATA___V341*/ meltfptr[340] = (melt_ptr_t )&meltcdat->dsym_284__CLASS_KEYWORD;
8156 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_284__CLASS_KEYWORD", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
8157 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_284__CLASS_KEYWORD", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
8158 meltcdat->dsym_284__CLASS_KEYWORD.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
8159 meltcdat->dsym_284__CLASS_KEYWORD.obj_hash = 14992133;
8160 meltcdat->dsym_284__CLASS_KEYWORD.obj_len = 3;
8161
8162
8163 /*inistring dstr_285__CLASS_KEYWORD*/
8164 /*_._VALSTR___V342*/
8165 meltfptr[341] = (melt_ptr_t) &meltcdat->dstr_285__CLASS_KEYWORD;
8166 meltcdat->dstr_285__CLASS_KEYWORD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
8167 /*small inistring*/
8168 strncpy(meltcdat->dstr_285__CLASS_KEYWORD.val, "CLASS_KEYWORD", sizeof (meltcdat->dstr_285__CLASS_KEYWORD.val)-1);
8169 meltcdat->dstr_285__CLASS_KEYWORD.val[13] = (char)0 ;
8170 meltcdat->dstr_285__CLASS_KEYWORD.slen = 13 ;
8171
8172 /*inirout drout_286__DBGOUT_KEYWORD_METHOD*/
8173 /*iniroutlocvar*/ /*_._VALROUT___V343*/
8174 meltfptr[342] = (melt_ptr_t) &meltcdat->drout_286__DBGOUT_KEYWORD_METHOD;
8175 meltcdat->drout_286__DBGOUT_KEYWORD_METHOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE))));
8176 strncpy (meltcdat->drout_286__DBGOUT_KEYWORD_METHOD.routdescr, "DBGOUT_KEYWORD_METHOD @warmelt-debug.melt:1422", MELT_ROUTDESCR_LEN - 1);
8177 meltcdat->drout_286__DBGOUT_KEYWORD_METHOD.nbval = 5;
8178 MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_286__DBGOUT_KEYWORD_METHOD, meltrout_46_WARMELTmiDEBUG_DBGOUT_KEYWORD_METHOD);
8179
8180 /*iniclos dclo_287__DBGOUT_KEYWORD_METHOD*/
8181 /*_._VALCLO___V344*/
8182 meltfptr[343] = (melt_ptr_t) &meltcdat->dclo_287__DBGOUT_KEYWORD_METHOD;
8183 meltcdat->dclo_287__DBGOUT_KEYWORD_METHOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE))));
8184 meltcdat->dclo_287__DBGOUT_KEYWORD_METHOD.nbval = 0;
8185
8186 /*inirout drout_288__DBGOUTAGAIN_CLONED_SYMBOL_METHOD*/
8187 /*iniroutlocvar*/ /*_._VALROUT___V345*/
8188 meltfptr[344] = (melt_ptr_t) &meltcdat->drout_288__DBGOUTAGAIN_CLONED_SYMBOL_METHOD;
8189 meltcdat->drout_288__DBGOUTAGAIN_CLONED_SYMBOL_METHOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE))));
8190 strncpy (meltcdat->drout_288__DBGOUTAGAIN_CLONED_SYMBOL_METHOD.routdescr, "DBGOUTAGAIN_CLONED_SYMBOL_METHOD @warmelt-debug.melt:1432", MELT_ROUTDESCR_LEN - 1);
8191 meltcdat->drout_288__DBGOUTAGAIN_CLONED_SYMBOL_METHOD.nbval = 0;
8192 MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_288__DBGOUTAGAIN_CLONED_SYMBOL_METHOD, meltrout_47_WARMELTmiDEBUG_DBGOUTAGAIN_CLONED_SYMBOL_METHOD);
8193
8194 /*iniclos dclo_289__DBGOUTAGAIN_CLONED_SYMBOL_METHOD*/
8195 /*_._VALCLO___V346*/
8196 meltfptr[345] = (melt_ptr_t) &meltcdat->dclo_289__DBGOUTAGAIN_CLONED_SYMBOL_METHOD;
8197 meltcdat->dclo_289__DBGOUTAGAIN_CLONED_SYMBOL_METHOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE))));
8198 meltcdat->dclo_289__DBGOUTAGAIN_CLONED_SYMBOL_METHOD.nbval = 0;
8199
8200
8201 /*iniobj dsym_290__CLASS_CLONED_SYMBOL*/
8202 /*uniqueobj*/
8203 if (!/*_._VALDATA___V347*/ meltfptr[346])
8204 /*_._VALDATA___V347*/ meltfptr[346] = (melt_ptr_t )&meltcdat->dsym_290__CLASS_CLONED_SYMBOL;
8205 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_290__CLASS_CLONED_SYMBOL", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
8206 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_290__CLASS_CLONED_SYMBOL", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
8207 meltcdat->dsym_290__CLASS_CLONED_SYMBOL.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
8208 meltcdat->dsym_290__CLASS_CLONED_SYMBOL.obj_hash = 933549728;
8209 meltcdat->dsym_290__CLASS_CLONED_SYMBOL.obj_len = 3;
8210
8211
8212 /*inistring dstr_291__CLASS_CLONED_SYMBOL*/
8213 /*_._VALSTR___V348*/
8214 meltfptr[347] = (melt_ptr_t) &meltcdat->dstr_291__CLASS_CLONED_SYMBOL;
8215 meltcdat->dstr_291__CLASS_CLONED_SYMBOL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
8216 /*small inistring*/
8217 strncpy(meltcdat->dstr_291__CLASS_CLONED_SYMBOL.val, "CLASS_CLONED_SYMBOL", sizeof (meltcdat->dstr_291__CLASS_CLONED_SYMBOL.val)-1);
8218 meltcdat->dstr_291__CLASS_CLONED_SYMBOL.val[19] = (char)0 ;
8219 meltcdat->dstr_291__CLASS_CLONED_SYMBOL.slen = 19 ;
8220
8221 /*inirout drout_292__DBGOUT_CLONED_SYMBOL_METHOD*/
8222 /*iniroutlocvar*/ /*_._VALROUT___V349*/
8223 meltfptr[348] = (melt_ptr_t) &meltcdat->drout_292__DBGOUT_CLONED_SYMBOL_METHOD;
8224 meltcdat->drout_292__DBGOUT_CLONED_SYMBOL_METHOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE))));
8225 strncpy (meltcdat->drout_292__DBGOUT_CLONED_SYMBOL_METHOD.routdescr, "DBGOUT_CLONED_SYMBOL_METHOD @warmelt-debug.melt:1447", MELT_ROUTDESCR_LEN - 1);
8226 meltcdat->drout_292__DBGOUT_CLONED_SYMBOL_METHOD.nbval = 5;
8227 MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_292__DBGOUT_CLONED_SYMBOL_METHOD, meltrout_48_WARMELTmiDEBUG_DBGOUT_CLONED_SYMBOL_METHOD);
8228
8229 /*iniclos dclo_293__DBGOUT_CLONED_SYMBOL_METHOD*/
8230 /*_._VALCLO___V350*/
8231 meltfptr[349] = (melt_ptr_t) &meltcdat->dclo_293__DBGOUT_CLONED_SYMBOL_METHOD;
8232 meltcdat->dclo_293__DBGOUT_CLONED_SYMBOL_METHOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE))));
8233 meltcdat->dclo_293__DBGOUT_CLONED_SYMBOL_METHOD.nbval = 0;
8234
8235 /*inirout drout_294__DBGOUT_ENVIRONMENT_METHOD*/
8236 /*iniroutlocvar*/ /*_._VALROUT___V351*/
8237 meltfptr[350] = (melt_ptr_t) &meltcdat->drout_294__DBGOUT_ENVIRONMENT_METHOD;
8238 meltcdat->drout_294__DBGOUT_ENVIRONMENT_METHOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE))));
8239 strncpy (meltcdat->drout_294__DBGOUT_ENVIRONMENT_METHOD.routdescr, "DBGOUT_ENVIRONMENT_METHOD @warmelt-debug.melt:1458", MELT_ROUTDESCR_LEN - 1);
8240 meltcdat->drout_294__DBGOUT_ENVIRONMENT_METHOD.nbval = 10;
8241 MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_294__DBGOUT_ENVIRONMENT_METHOD, meltrout_49_WARMELTmiDEBUG_DBGOUT_ENVIRONMENT_METHOD);
8242
8243 /*iniclos dclo_295__DBGOUT_ENVIRONMENT_METHOD*/
8244 /*_._VALCLO___V352*/
8245 meltfptr[351] = (melt_ptr_t) &meltcdat->dclo_295__DBGOUT_ENVIRONMENT_METHOD;
8246 meltcdat->dclo_295__DBGOUT_ENVIRONMENT_METHOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE))));
8247 meltcdat->dclo_295__DBGOUT_ENVIRONMENT_METHOD.nbval = 0;
8248
8249
8250 /*iniobj dsym_296__CLASS_ENVIRONMENT*/
8251 /*uniqueobj*/
8252 if (!/*_._VALDATA___V353*/ meltfptr[352])
8253 /*_._VALDATA___V353*/ meltfptr[352] = (melt_ptr_t )&meltcdat->dsym_296__CLASS_ENVIRONMENT;
8254 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_296__CLASS_ENVIRONMENT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
8255 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_296__CLASS_ENVIRONMENT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
8256 meltcdat->dsym_296__CLASS_ENVIRONMENT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
8257 meltcdat->dsym_296__CLASS_ENVIRONMENT.obj_hash = 59212821;
8258 meltcdat->dsym_296__CLASS_ENVIRONMENT.obj_len = 3;
8259
8260
8261 /*inistring dstr_297__CLASS_ENVIRONMENT*/
8262 /*_._VALSTR___V354*/
8263 meltfptr[353] = (melt_ptr_t) &meltcdat->dstr_297__CLASS_ENVIRONMENT;
8264 meltcdat->dstr_297__CLASS_ENVIRONMENT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
8265 /*small inistring*/
8266 strncpy(meltcdat->dstr_297__CLASS_ENVIRONMENT.val, "CLASS_ENVIRONMENT", sizeof (meltcdat->dstr_297__CLASS_ENVIRONMENT.val)-1);
8267 meltcdat->dstr_297__CLASS_ENVIRONMENT.val[17] = (char)0 ;
8268 meltcdat->dstr_297__CLASS_ENVIRONMENT.slen = 17 ;
8269
8270
8271 /*iniobj dsym_298__ENV_PREV*/
8272 /*uniqueobj*/
8273 if (!/*_._VALDATA___V355*/ meltfptr[354])
8274 /*_._VALDATA___V355*/ meltfptr[354] = (melt_ptr_t )&meltcdat->dsym_298__ENV_PREV;
8275 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_298__ENV_PREV", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
8276 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_298__ENV_PREV", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
8277 meltcdat->dsym_298__ENV_PREV.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
8278 meltcdat->dsym_298__ENV_PREV.obj_hash = 363634370;
8279 meltcdat->dsym_298__ENV_PREV.obj_len = 3;
8280
8281
8282 /*inistring dstr_299__ENV_PREV*/
8283 /*_._VALSTR___V356*/
8284 meltfptr[355] = (melt_ptr_t) &meltcdat->dstr_299__ENV_PREV;
8285 meltcdat->dstr_299__ENV_PREV.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
8286 /*small inistring*/
8287 strncpy(meltcdat->dstr_299__ENV_PREV.val, "ENV_PREV", sizeof (meltcdat->dstr_299__ENV_PREV.val)-1);
8288 meltcdat->dstr_299__ENV_PREV.val[8] = (char)0 ;
8289 meltcdat->dstr_299__ENV_PREV.slen = 8 ;
8290
8291
8292 /*iniobj dsym_300__CLASS_DESCRIBED_ENVIRONMENT*/
8293 /*uniqueobj*/
8294 if (!/*_._VALDATA___V357*/ meltfptr[356])
8295 /*_._VALDATA___V357*/ meltfptr[356] = (melt_ptr_t )&meltcdat->dsym_300__CLASS_DESCRIBED_ENVIRONMENT;
8296 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_300__CLASS_DESCRIBED_ENVIRONMENT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
8297 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_300__CLASS_DESCRIBED_ENVIRONMENT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
8298 meltcdat->dsym_300__CLASS_DESCRIBED_ENVIRONMENT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
8299 meltcdat->dsym_300__CLASS_DESCRIBED_ENVIRONMENT.obj_hash = 918201662;
8300 meltcdat->dsym_300__CLASS_DESCRIBED_ENVIRONMENT.obj_len = 3;
8301
8302
8303 /*inistring dstr_301__CLASS_DESCRIBED_ENVIRONM*/
8304 /*_._VALSTR___V358*/
8305 meltfptr[357] = (melt_ptr_t) &meltcdat->dstr_301__CLASS_DESCRIBED_ENVIRONM;
8306 meltcdat->dstr_301__CLASS_DESCRIBED_ENVIRONM.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
8307 /*small inistring*/
8308 strncpy(meltcdat->dstr_301__CLASS_DESCRIBED_ENVIRONM.val, "CLASS_DESCRIBED_ENVIRONMENT", sizeof (meltcdat->dstr_301__CLASS_DESCRIBED_ENVIRONM.val)-1);
8309 meltcdat->dstr_301__CLASS_DESCRIBED_ENVIRONM.val[27] = (char)0 ;
8310 meltcdat->dstr_301__CLASS_DESCRIBED_ENVIRONM.slen = 27 ;
8311
8312 /*inirout drout_302__DBGOUTAGAIN_CTYPE_METHOD*/
8313 /*iniroutlocvar*/ /*_._VALROUT___V359*/
8314 meltfptr[358] = (melt_ptr_t) &meltcdat->drout_302__DBGOUTAGAIN_CTYPE_METHOD;
8315 meltcdat->drout_302__DBGOUTAGAIN_CTYPE_METHOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE))));
8316 strncpy (meltcdat->drout_302__DBGOUTAGAIN_CTYPE_METHOD.routdescr, "DBGOUTAGAIN_CTYPE_METHOD @warmelt-debug.melt:1530", MELT_ROUTDESCR_LEN - 1);
8317 meltcdat->drout_302__DBGOUTAGAIN_CTYPE_METHOD.nbval = 0;
8318 MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_302__DBGOUTAGAIN_CTYPE_METHOD, meltrout_50_WARMELTmiDEBUG_DBGOUTAGAIN_CTYPE_METHOD);
8319
8320 /*iniclos dclo_303__DBGOUTAGAIN_CTYPE_METHOD*/
8321 /*_._VALCLO___V360*/
8322 meltfptr[359] = (melt_ptr_t) &meltcdat->dclo_303__DBGOUTAGAIN_CTYPE_METHOD;
8323 meltcdat->dclo_303__DBGOUTAGAIN_CTYPE_METHOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE))));
8324 meltcdat->dclo_303__DBGOUTAGAIN_CTYPE_METHOD.nbval = 0;
8325
8326
8327 /*iniobj dsym_304__CLASS_CTYPE*/
8328 /*uniqueobj*/
8329 if (!/*_._VALDATA___V361*/ meltfptr[360])
8330 /*_._VALDATA___V361*/ meltfptr[360] = (melt_ptr_t )&meltcdat->dsym_304__CLASS_CTYPE;
8331 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_304__CLASS_CTYPE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
8332 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_304__CLASS_CTYPE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
8333 meltcdat->dsym_304__CLASS_CTYPE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
8334 meltcdat->dsym_304__CLASS_CTYPE.obj_hash = 78610803;
8335 meltcdat->dsym_304__CLASS_CTYPE.obj_len = 3;
8336
8337
8338 /*inistring dstr_305__CLASS_CTYPE*/
8339 /*_._VALSTR___V362*/
8340 meltfptr[361] = (melt_ptr_t) &meltcdat->dstr_305__CLASS_CTYPE;
8341 meltcdat->dstr_305__CLASS_CTYPE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
8342 /*small inistring*/
8343 strncpy(meltcdat->dstr_305__CLASS_CTYPE.val, "CLASS_CTYPE", sizeof (meltcdat->dstr_305__CLASS_CTYPE.val)-1);
8344 meltcdat->dstr_305__CLASS_CTYPE.val[11] = (char)0 ;
8345 meltcdat->dstr_305__CLASS_CTYPE.slen = 11 ;
8346
8347 /*inirout drout_306__DBGOUT_CTYPE_METHOD*/
8348 /*iniroutlocvar*/ /*_._VALROUT___V363*/
8349 meltfptr[362] = (melt_ptr_t) &meltcdat->drout_306__DBGOUT_CTYPE_METHOD;
8350 meltcdat->drout_306__DBGOUT_CTYPE_METHOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE))));
8351 strncpy (meltcdat->drout_306__DBGOUT_CTYPE_METHOD.routdescr, "DBGOUT_CTYPE_METHOD @warmelt-debug.melt:1542", MELT_ROUTDESCR_LEN - 1);
8352 meltcdat->drout_306__DBGOUT_CTYPE_METHOD.nbval = 5;
8353 MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_306__DBGOUT_CTYPE_METHOD, meltrout_51_WARMELTmiDEBUG_DBGOUT_CTYPE_METHOD);
8354
8355 /*iniclos dclo_307__DBGOUT_CTYPE_METHOD*/
8356 /*_._VALCLO___V364*/
8357 meltfptr[363] = (melt_ptr_t) &meltcdat->dclo_307__DBGOUT_CTYPE_METHOD;
8358 meltcdat->dclo_307__DBGOUT_CTYPE_METHOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE))));
8359 meltcdat->dclo_307__DBGOUT_CTYPE_METHOD.nbval = 0;
8360
8361 /*inirout drout_308__DBGOUT_ANYBINDING_METHOD*/
8362 /*iniroutlocvar*/ /*_._VALROUT___V365*/
8363 meltfptr[364] = (melt_ptr_t) &meltcdat->drout_308__DBGOUT_ANYBINDING_METHOD;
8364 meltcdat->drout_308__DBGOUT_ANYBINDING_METHOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE))));
8365 strncpy (meltcdat->drout_308__DBGOUT_ANYBINDING_METHOD.routdescr, "DBGOUT_ANYBINDING_METHOD @warmelt-debug.melt:1552", MELT_ROUTDESCR_LEN - 1);
8366 meltcdat->drout_308__DBGOUT_ANYBINDING_METHOD.nbval = 5;
8367 MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_308__DBGOUT_ANYBINDING_METHOD, meltrout_52_WARMELTmiDEBUG_DBGOUT_ANYBINDING_METHOD);
8368
8369 /*iniclos dclo_309__DBGOUT_ANYBINDING_METHOD*/
8370 /*_._VALCLO___V366*/
8371 meltfptr[365] = (melt_ptr_t) &meltcdat->dclo_309__DBGOUT_ANYBINDING_METHOD;
8372 meltcdat->dclo_309__DBGOUT_ANYBINDING_METHOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE))));
8373 meltcdat->dclo_309__DBGOUT_ANYBINDING_METHOD.nbval = 0;
8374
8375
8376 /*iniobj dsym_310__CLASS_ANY_BINDING*/
8377 /*uniqueobj*/
8378 if (!/*_._VALDATA___V367*/ meltfptr[366])
8379 /*_._VALDATA___V367*/ meltfptr[366] = (melt_ptr_t )&meltcdat->dsym_310__CLASS_ANY_BINDING;
8380 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_310__CLASS_ANY_BINDING", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
8381 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_310__CLASS_ANY_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
8382 meltcdat->dsym_310__CLASS_ANY_BINDING.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
8383 meltcdat->dsym_310__CLASS_ANY_BINDING.obj_hash = 935770;
8384 meltcdat->dsym_310__CLASS_ANY_BINDING.obj_len = 3;
8385
8386
8387 /*inistring dstr_311__CLASS_ANY_BINDING*/
8388 /*_._VALSTR___V368*/
8389 meltfptr[367] = (melt_ptr_t) &meltcdat->dstr_311__CLASS_ANY_BINDING;
8390 meltcdat->dstr_311__CLASS_ANY_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
8391 /*small inistring*/
8392 strncpy(meltcdat->dstr_311__CLASS_ANY_BINDING.val, "CLASS_ANY_BINDING", sizeof (meltcdat->dstr_311__CLASS_ANY_BINDING.val)-1);
8393 meltcdat->dstr_311__CLASS_ANY_BINDING.val[17] = (char)0 ;
8394 meltcdat->dstr_311__CLASS_ANY_BINDING.slen = 17 ;
8395
8396 /*inirout drout_312__DEBUG_LESS_FUN*/
8397 /*iniroutlocvar*/ /*_._VALROUT___V369*/
8398 meltfptr[368] = (melt_ptr_t) &meltcdat->drout_312__DEBUG_LESS_FUN;
8399 meltcdat->drout_312__DEBUG_LESS_FUN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE))));
8400 strncpy (meltcdat->drout_312__DEBUG_LESS_FUN.routdescr, "DEBUG_LESS_FUN @warmelt-debug.melt:1581", MELT_ROUTDESCR_LEN - 1);
8401 meltcdat->drout_312__DEBUG_LESS_FUN.nbval = 3;
8402 MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_312__DEBUG_LESS_FUN, meltrout_53_WARMELTmiDEBUG_DEBUG_LESS_FUN);
8403
8404 /*iniclos dclo_313__DEBUG_LESS_FUN*/
8405 /*_._VALCLO___V370*/
8406 meltfptr[369] = (melt_ptr_t) &meltcdat->dclo_313__DEBUG_LESS_FUN;
8407 meltcdat->dclo_313__DEBUG_LESS_FUN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE))));
8408 meltcdat->dclo_313__DEBUG_LESS_FUN.nbval = 0;
8409
8410
8411 /*iniobj dsym_314__DEBUG_LESS*/
8412 /*uniqueobj*/
8413 if (!/*_._VALDATA___V371*/ meltfptr[370])
8414 /*_._VALDATA___V371*/ meltfptr[370] = (melt_ptr_t )&meltcdat->dsym_314__DEBUG_LESS;
8415 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_314__DEBUG_LESS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
8416 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_314__DEBUG_LESS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
8417 meltcdat->dsym_314__DEBUG_LESS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
8418 meltcdat->dsym_314__DEBUG_LESS.obj_hash = 977096719;
8419 meltcdat->dsym_314__DEBUG_LESS.obj_len = 3;
8420
8421
8422 /*inistring dstr_315__DEBUG_LESS*/
8423 /*_._VALSTR___V372*/
8424 meltfptr[371] = (melt_ptr_t) &meltcdat->dstr_315__DEBUG_LESS;
8425 meltcdat->dstr_315__DEBUG_LESS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
8426 /*small inistring*/
8427 strncpy(meltcdat->dstr_315__DEBUG_LESS.val, "DEBUG_LESS", sizeof (meltcdat->dstr_315__DEBUG_LESS.val)-1);
8428 meltcdat->dstr_315__DEBUG_LESS.val[10] = (char)0 ;
8429 meltcdat->dstr_315__DEBUG_LESS.slen = 10 ;
8430
8431 /*inirout drout_316__DEBUG_MORE_FUN*/
8432 /*iniroutlocvar*/ /*_._VALROUT___V373*/
8433 meltfptr[372] = (melt_ptr_t) &meltcdat->drout_316__DEBUG_MORE_FUN;
8434 meltcdat->drout_316__DEBUG_MORE_FUN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE))));
8435 strncpy (meltcdat->drout_316__DEBUG_MORE_FUN.routdescr, "DEBUG_MORE_FUN @warmelt-debug.melt:1595", MELT_ROUTDESCR_LEN - 1);
8436 meltcdat->drout_316__DEBUG_MORE_FUN.nbval = 6;
8437 MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_316__DEBUG_MORE_FUN, meltrout_54_WARMELTmiDEBUG_DEBUG_MORE_FUN);
8438
8439 /*iniclos dclo_317__DEBUG_MORE_FUN*/
8440 /*_._VALCLO___V374*/
8441 meltfptr[373] = (melt_ptr_t) &meltcdat->dclo_317__DEBUG_MORE_FUN;
8442 meltcdat->dclo_317__DEBUG_MORE_FUN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE))));
8443 meltcdat->dclo_317__DEBUG_MORE_FUN.nbval = 0;
8444
8445
8446 /*iniobj dsym_318__DEBUG_MORE*/
8447 /*uniqueobj*/
8448 if (!/*_._VALDATA___V375*/ meltfptr[374])
8449 /*_._VALDATA___V375*/ meltfptr[374] = (melt_ptr_t )&meltcdat->dsym_318__DEBUG_MORE;
8450 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_318__DEBUG_MORE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
8451 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_318__DEBUG_MORE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
8452 meltcdat->dsym_318__DEBUG_MORE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
8453 meltcdat->dsym_318__DEBUG_MORE.obj_hash = 1017542478;
8454 meltcdat->dsym_318__DEBUG_MORE.obj_len = 3;
8455
8456
8457 /*inistring dstr_319__DEBUG_MORE*/
8458 /*_._VALSTR___V376*/
8459 meltfptr[375] = (melt_ptr_t) &meltcdat->dstr_319__DEBUG_MORE;
8460 meltcdat->dstr_319__DEBUG_MORE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
8461 /*small inistring*/
8462 strncpy(meltcdat->dstr_319__DEBUG_MORE.val, "DEBUG_MORE", sizeof (meltcdat->dstr_319__DEBUG_MORE.val)-1);
8463 meltcdat->dstr_319__DEBUG_MORE.val[10] = (char)0 ;
8464 meltcdat->dstr_319__DEBUG_MORE.slen = 10 ;
8465
8466 /*inirout drout_320__DISPLAY_DEBUG_MESSAGE*/
8467 /*iniroutlocvar*/ /*_._VALROUT___V377*/
8468 meltfptr[376] = (melt_ptr_t) &meltcdat->drout_320__DISPLAY_DEBUG_MESSAGE;
8469 meltcdat->drout_320__DISPLAY_DEBUG_MESSAGE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE))));
8470 strncpy (meltcdat->drout_320__DISPLAY_DEBUG_MESSAGE.routdescr, "DISPLAY_DEBUG_MESSAGE @warmelt-debug.melt:1627", MELT_ROUTDESCR_LEN - 1);
8471 meltcdat->drout_320__DISPLAY_DEBUG_MESSAGE.nbval = 5;
8472 MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_320__DISPLAY_DEBUG_MESSAGE, meltrout_55_WARMELTmiDEBUG_DISPLAY_DEBUG_MESSAGE);
8473
8474 /*iniclos dclo_321__DISPLAY_DEBUG_MESSAGE*/
8475 /*_._VALCLO___V378*/
8476 meltfptr[377] = (melt_ptr_t) &meltcdat->dclo_321__DISPLAY_DEBUG_MESSAGE;
8477 meltcdat->dclo_321__DISPLAY_DEBUG_MESSAGE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE))));
8478 meltcdat->dclo_321__DISPLAY_DEBUG_MESSAGE.nbval = 0;
8479
8480
8481 /*iniobj dsym_322__DBG_OUT*/
8482 /*uniqueobj*/
8483 if (!/*_._VALDATA___V379*/ meltfptr[378])
8484 /*_._VALDATA___V379*/ meltfptr[378] = (melt_ptr_t )&meltcdat->dsym_322__DBG_OUT;
8485 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_322__DBG_OUT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
8486 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_322__DBG_OUT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
8487 meltcdat->dsym_322__DBG_OUT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
8488 meltcdat->dsym_322__DBG_OUT.obj_hash = 492035674;
8489 meltcdat->dsym_322__DBG_OUT.obj_len = 3;
8490
8491
8492 /*inistring dstr_323__DBG_OUT*/
8493 /*_._VALSTR___V380*/
8494 meltfptr[379] = (melt_ptr_t) &meltcdat->dstr_323__DBG_OUT;
8495 meltcdat->dstr_323__DBG_OUT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
8496 /*small inistring*/
8497 strncpy(meltcdat->dstr_323__DBG_OUT.val, "DBG_OUT", sizeof (meltcdat->dstr_323__DBG_OUT.val)-1);
8498 meltcdat->dstr_323__DBG_OUT.val[7] = (char)0 ;
8499 meltcdat->dstr_323__DBG_OUT.slen = 7 ;
8500
8501
8502 /*iniobj dsym_324__DBG_OUTOBJECT*/
8503 /*uniqueobj*/
8504 if (!/*_._VALDATA___V381*/ meltfptr[380])
8505 /*_._VALDATA___V381*/ meltfptr[380] = (melt_ptr_t )&meltcdat->dsym_324__DBG_OUTOBJECT;
8506 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_324__DBG_OUTOBJECT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
8507 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_324__DBG_OUTOBJECT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
8508 meltcdat->dsym_324__DBG_OUTOBJECT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
8509 meltcdat->dsym_324__DBG_OUTOBJECT.obj_hash = 723698673;
8510 meltcdat->dsym_324__DBG_OUTOBJECT.obj_len = 3;
8511
8512
8513 /*inistring dstr_325__DBG_OUTOBJECT*/
8514 /*_._VALSTR___V382*/
8515 meltfptr[381] = (melt_ptr_t) &meltcdat->dstr_325__DBG_OUTOBJECT;
8516 meltcdat->dstr_325__DBG_OUTOBJECT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
8517 /*small inistring*/
8518 strncpy(meltcdat->dstr_325__DBG_OUTOBJECT.val, "DBG_OUTOBJECT", sizeof (meltcdat->dstr_325__DBG_OUTOBJECT.val)-1);
8519 meltcdat->dstr_325__DBG_OUTOBJECT.val[13] = (char)0 ;
8520 meltcdat->dstr_325__DBG_OUTOBJECT.slen = 13 ;
8521
8522
8523 /*iniobj dsym_326__DBGOUT_FIELDS*/
8524 /*uniqueobj*/
8525 if (!/*_._VALDATA___V383*/ meltfptr[382])
8526 /*_._VALDATA___V383*/ meltfptr[382] = (melt_ptr_t )&meltcdat->dsym_326__DBGOUT_FIELDS;
8527 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_326__DBGOUT_FIELDS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
8528 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_326__DBGOUT_FIELDS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
8529 meltcdat->dsym_326__DBGOUT_FIELDS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
8530 meltcdat->dsym_326__DBGOUT_FIELDS.obj_hash = 795625446;
8531 meltcdat->dsym_326__DBGOUT_FIELDS.obj_len = 3;
8532
8533
8534 /*inistring dstr_327__DBGOUT_FIELDS*/
8535 /*_._VALSTR___V384*/
8536 meltfptr[383] = (melt_ptr_t) &meltcdat->dstr_327__DBGOUT_FIELDS;
8537 meltcdat->dstr_327__DBGOUT_FIELDS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
8538 /*small inistring*/
8539 strncpy(meltcdat->dstr_327__DBGOUT_FIELDS.val, "DBGOUT_FIELDS", sizeof (meltcdat->dstr_327__DBGOUT_FIELDS.val)-1);
8540 meltcdat->dstr_327__DBGOUT_FIELDS.val[13] = (char)0 ;
8541 meltcdat->dstr_327__DBGOUT_FIELDS.slen = 13 ;
8542
8543
8544 /*iniobj dsym_328__DBGOUTAGAIN_FIELDS*/
8545 /*uniqueobj*/
8546 if (!/*_._VALDATA___V385*/ meltfptr[384])
8547 /*_._VALDATA___V385*/ meltfptr[384] = (melt_ptr_t )&meltcdat->dsym_328__DBGOUTAGAIN_FIELDS;
8548 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_328__DBGOUTAGAIN_FIELDS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
8549 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_328__DBGOUTAGAIN_FIELDS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
8550 meltcdat->dsym_328__DBGOUTAGAIN_FIELDS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
8551 meltcdat->dsym_328__DBGOUTAGAIN_FIELDS.obj_hash = 961773165;
8552 meltcdat->dsym_328__DBGOUTAGAIN_FIELDS.obj_len = 3;
8553
8554
8555 /*inistring dstr_329__DBGOUTAGAIN_FIELDS*/
8556 /*_._VALSTR___V386*/
8557 meltfptr[385] = (melt_ptr_t) &meltcdat->dstr_329__DBGOUTAGAIN_FIELDS;
8558 meltcdat->dstr_329__DBGOUTAGAIN_FIELDS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
8559 /*small inistring*/
8560 strncpy(meltcdat->dstr_329__DBGOUTAGAIN_FIELDS.val, "DBGOUTAGAIN_FIELDS", sizeof (meltcdat->dstr_329__DBGOUTAGAIN_FIELDS.val)-1);
8561 meltcdat->dstr_329__DBGOUTAGAIN_FIELDS.val[18] = (char)0 ;
8562 meltcdat->dstr_329__DBGOUTAGAIN_FIELDS.slen = 18 ;
8563
8564
8565 /*iniobj dsym_330__DISPLAY_DEBUG_MESSAGE*/
8566 /*uniqueobj*/
8567 if (!/*_._VALDATA___V387*/ meltfptr[386])
8568 /*_._VALDATA___V387*/ meltfptr[386] = (melt_ptr_t )&meltcdat->dsym_330__DISPLAY_DEBUG_MESSAGE;
8569 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_330__DISPLAY_DEBUG_MESSAGE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
8570 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_330__DISPLAY_DEBUG_MESSAGE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
8571 meltcdat->dsym_330__DISPLAY_DEBUG_MESSAGE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
8572 meltcdat->dsym_330__DISPLAY_DEBUG_MESSAGE.obj_hash = 759618783;
8573 meltcdat->dsym_330__DISPLAY_DEBUG_MESSAGE.obj_len = 3;
8574
8575
8576 /*inistring dstr_331__DISPLAY_DEBUG_MESSAGE*/
8577 /*_._VALSTR___V388*/
8578 meltfptr[387] = (melt_ptr_t) &meltcdat->dstr_331__DISPLAY_DEBUG_MESSAGE;
8579 meltcdat->dstr_331__DISPLAY_DEBUG_MESSAGE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
8580 /*small inistring*/
8581 strncpy(meltcdat->dstr_331__DISPLAY_DEBUG_MESSAGE.val, "DISPLAY_DEBUG_MESSAGE", sizeof (meltcdat->dstr_331__DISPLAY_DEBUG_MESSAGE.val)-1);
8582 meltcdat->dstr_331__DISPLAY_DEBUG_MESSAGE.val[21] = (char)0 ;
8583 meltcdat->dstr_331__DISPLAY_DEBUG_MESSAGE.slen = 21 ;
8584
8585
8586 /*iniobj dsym_332__MELT_DEBUG_FUN*/
8587 /*uniqueobj*/
8588 if (!/*_._VALDATA___V389*/ meltfptr[388])
8589 /*_._VALDATA___V389*/ meltfptr[388] = (melt_ptr_t )&meltcdat->dsym_332__MELT_DEBUG_FUN;
8590 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_332__MELT_DEBUG_FUN", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
8591 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_332__MELT_DEBUG_FUN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
8592 meltcdat->dsym_332__MELT_DEBUG_FUN.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
8593 meltcdat->dsym_332__MELT_DEBUG_FUN.obj_hash = 972123377;
8594 meltcdat->dsym_332__MELT_DEBUG_FUN.obj_len = 3;
8595
8596
8597 /*inistring dstr_333__MELT_DEBUG_FUN*/
8598 /*_._VALSTR___V390*/
8599 meltfptr[389] = (melt_ptr_t) &meltcdat->dstr_333__MELT_DEBUG_FUN;
8600 meltcdat->dstr_333__MELT_DEBUG_FUN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
8601 /*small inistring*/
8602 strncpy(meltcdat->dstr_333__MELT_DEBUG_FUN.val, "MELT_DEBUG_FUN", sizeof (meltcdat->dstr_333__MELT_DEBUG_FUN.val)-1);
8603 meltcdat->dstr_333__MELT_DEBUG_FUN.val[14] = (char)0 ;
8604 meltcdat->dstr_333__MELT_DEBUG_FUN.slen = 14 ;
8605
8606
8607 /*iniobj dsym_334__REGISTER_BASICBLOCK_DEBUG_FUN*/
8608 /*uniqueobj*/
8609 if (!/*_._VALDATA___V391*/ meltfptr[390])
8610 /*_._VALDATA___V391*/ meltfptr[390] = (melt_ptr_t )&meltcdat->dsym_334__REGISTER_BASICBLOCK_DEBUG_FUN;
8611 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_334__REGISTER_BASICBLOCK_DEBUG_FUN", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
8612 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_334__REGISTER_BASICBLOCK_DEBUG_FUN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
8613 meltcdat->dsym_334__REGISTER_BASICBLOCK_DEBUG_FUN.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
8614 meltcdat->dsym_334__REGISTER_BASICBLOCK_DEBUG_FUN.obj_hash = 475134270;
8615 meltcdat->dsym_334__REGISTER_BASICBLOCK_DEBUG_FUN.obj_len = 3;
8616
8617
8618 /*inistring dstr_335__REGISTER_BASICBLOCK_DEBU*/
8619 /*_._VALSTR___V392*/
8620 meltfptr[391] = (melt_ptr_t) &meltcdat->dstr_335__REGISTER_BASICBLOCK_DEBU;
8621 meltcdat->dstr_335__REGISTER_BASICBLOCK_DEBU.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
8622 /*small inistring*/
8623 strncpy(meltcdat->dstr_335__REGISTER_BASICBLOCK_DEBU.val, "REGISTER_BASICBLOCK_DEBUG_FUN", sizeof (meltcdat->dstr_335__REGISTER_BASICBLOCK_DEBU.val)-1);
8624 meltcdat->dstr_335__REGISTER_BASICBLOCK_DEBU.val[29] = (char)0 ;
8625 meltcdat->dstr_335__REGISTER_BASICBLOCK_DEBU.slen = 29 ;
8626
8627
8628 /*iniobj dsym_336__REGISTER_EDGE_DEBUG_FUN*/
8629 /*uniqueobj*/
8630 if (!/*_._VALDATA___V393*/ meltfptr[392])
8631 /*_._VALDATA___V393*/ meltfptr[392] = (melt_ptr_t )&meltcdat->dsym_336__REGISTER_EDGE_DEBUG_FUN;
8632 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_336__REGISTER_EDGE_DEBUG_FUN", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
8633 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_336__REGISTER_EDGE_DEBUG_FUN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
8634 meltcdat->dsym_336__REGISTER_EDGE_DEBUG_FUN.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
8635 meltcdat->dsym_336__REGISTER_EDGE_DEBUG_FUN.obj_hash = 739045024;
8636 meltcdat->dsym_336__REGISTER_EDGE_DEBUG_FUN.obj_len = 3;
8637
8638
8639 /*inistring dstr_337__REGISTER_EDGE_DEBUG_FUN*/
8640 /*_._VALSTR___V394*/
8641 meltfptr[393] = (melt_ptr_t) &meltcdat->dstr_337__REGISTER_EDGE_DEBUG_FUN;
8642 meltcdat->dstr_337__REGISTER_EDGE_DEBUG_FUN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
8643 /*small inistring*/
8644 strncpy(meltcdat->dstr_337__REGISTER_EDGE_DEBUG_FUN.val, "REGISTER_EDGE_DEBUG_FUN", sizeof (meltcdat->dstr_337__REGISTER_EDGE_DEBUG_FUN.val)-1);
8645 meltcdat->dstr_337__REGISTER_EDGE_DEBUG_FUN.val[23] = (char)0 ;
8646 meltcdat->dstr_337__REGISTER_EDGE_DEBUG_FUN.slen = 23 ;
8647
8648
8649 /*iniobj dsym_338__REGISTER_GIMPLE_DEBUG_FUN*/
8650 /*uniqueobj*/
8651 if (!/*_._VALDATA___V395*/ meltfptr[394])
8652 /*_._VALDATA___V395*/ meltfptr[394] = (melt_ptr_t )&meltcdat->dsym_338__REGISTER_GIMPLE_DEBUG_FUN;
8653 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_338__REGISTER_GIMPLE_DEBUG_FUN", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
8654 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_338__REGISTER_GIMPLE_DEBUG_FUN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
8655 meltcdat->dsym_338__REGISTER_GIMPLE_DEBUG_FUN.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
8656 meltcdat->dsym_338__REGISTER_GIMPLE_DEBUG_FUN.obj_hash = 158282506;
8657 meltcdat->dsym_338__REGISTER_GIMPLE_DEBUG_FUN.obj_len = 3;
8658
8659
8660 /*inistring dstr_339__REGISTER_GIMPLE_DEBUG_FU*/
8661 /*_._VALSTR___V396*/
8662 meltfptr[395] = (melt_ptr_t) &meltcdat->dstr_339__REGISTER_GIMPLE_DEBUG_FU;
8663 meltcdat->dstr_339__REGISTER_GIMPLE_DEBUG_FU.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
8664 /*small inistring*/
8665 strncpy(meltcdat->dstr_339__REGISTER_GIMPLE_DEBUG_FU.val, "REGISTER_GIMPLE_DEBUG_FUN", sizeof (meltcdat->dstr_339__REGISTER_GIMPLE_DEBUG_FU.val)-1);
8666 meltcdat->dstr_339__REGISTER_GIMPLE_DEBUG_FU.val[25] = (char)0 ;
8667 meltcdat->dstr_339__REGISTER_GIMPLE_DEBUG_FU.slen = 25 ;
8668
8669
8670 /*iniobj dsym_340__REGISTER_GIMPLESEQ_DEBUG_FUN*/
8671 /*uniqueobj*/
8672 if (!/*_._VALDATA___V397*/ meltfptr[396])
8673 /*_._VALDATA___V397*/ meltfptr[396] = (melt_ptr_t )&meltcdat->dsym_340__REGISTER_GIMPLESEQ_DEBUG_FUN;
8674 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_340__REGISTER_GIMPLESEQ_DEBUG_FUN", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
8675 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_340__REGISTER_GIMPLESEQ_DEBUG_FUN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
8676 meltcdat->dsym_340__REGISTER_GIMPLESEQ_DEBUG_FUN.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
8677 meltcdat->dsym_340__REGISTER_GIMPLESEQ_DEBUG_FUN.obj_hash = 247154639;
8678 meltcdat->dsym_340__REGISTER_GIMPLESEQ_DEBUG_FUN.obj_len = 3;
8679
8680
8681 /*inistring dstr_341__REGISTER_GIMPLESEQ_DEBUG*/
8682 /*_._VALSTR___V398*/
8683 meltfptr[397] = (melt_ptr_t) &meltcdat->dstr_341__REGISTER_GIMPLESEQ_DEBUG;
8684 meltcdat->dstr_341__REGISTER_GIMPLESEQ_DEBUG.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
8685 /*small inistring*/
8686 strncpy(meltcdat->dstr_341__REGISTER_GIMPLESEQ_DEBUG.val, "REGISTER_GIMPLESEQ_DEBUG_FUN", sizeof (meltcdat->dstr_341__REGISTER_GIMPLESEQ_DEBUG.val)-1);
8687 meltcdat->dstr_341__REGISTER_GIMPLESEQ_DEBUG.val[28] = (char)0 ;
8688 meltcdat->dstr_341__REGISTER_GIMPLESEQ_DEBUG.slen = 28 ;
8689
8690
8691 /*iniobj dsym_342__REGISTER_LOOP_DEBUG_FUN*/
8692 /*uniqueobj*/
8693 if (!/*_._VALDATA___V399*/ meltfptr[398])
8694 /*_._VALDATA___V399*/ meltfptr[398] = (melt_ptr_t )&meltcdat->dsym_342__REGISTER_LOOP_DEBUG_FUN;
8695 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_342__REGISTER_LOOP_DEBUG_FUN", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
8696 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_342__REGISTER_LOOP_DEBUG_FUN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
8697 meltcdat->dsym_342__REGISTER_LOOP_DEBUG_FUN.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
8698 meltcdat->dsym_342__REGISTER_LOOP_DEBUG_FUN.obj_hash = 182074459;
8699 meltcdat->dsym_342__REGISTER_LOOP_DEBUG_FUN.obj_len = 3;
8700
8701
8702 /*inistring dstr_343__REGISTER_LOOP_DEBUG_FUN*/
8703 /*_._VALSTR___V400*/
8704 meltfptr[399] = (melt_ptr_t) &meltcdat->dstr_343__REGISTER_LOOP_DEBUG_FUN;
8705 meltcdat->dstr_343__REGISTER_LOOP_DEBUG_FUN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
8706 /*small inistring*/
8707 strncpy(meltcdat->dstr_343__REGISTER_LOOP_DEBUG_FUN.val, "REGISTER_LOOP_DEBUG_FUN", sizeof (meltcdat->dstr_343__REGISTER_LOOP_DEBUG_FUN.val)-1);
8708 meltcdat->dstr_343__REGISTER_LOOP_DEBUG_FUN.val[23] = (char)0 ;
8709 meltcdat->dstr_343__REGISTER_LOOP_DEBUG_FUN.slen = 23 ;
8710
8711
8712 /*iniobj dsym_344__REGISTER_TREE_DEBUG_FUN*/
8713 /*uniqueobj*/
8714 if (!/*_._VALDATA___V401*/ meltfptr[400])
8715 /*_._VALDATA___V401*/ meltfptr[400] = (melt_ptr_t )&meltcdat->dsym_344__REGISTER_TREE_DEBUG_FUN;
8716 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_344__REGISTER_TREE_DEBUG_FUN", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT);
8717 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_344__REGISTER_TREE_DEBUG_FUN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT);
8718 meltcdat->dsym_344__REGISTER_TREE_DEBUG_FUN.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))));
8719 meltcdat->dsym_344__REGISTER_TREE_DEBUG_FUN.obj_hash = 352695421;
8720 meltcdat->dsym_344__REGISTER_TREE_DEBUG_FUN.obj_len = 3;
8721
8722
8723 /*inistring dstr_345__REGISTER_TREE_DEBUG_FUN*/
8724 /*_._VALSTR___V402*/
8725 meltfptr[401] = (melt_ptr_t) &meltcdat->dstr_345__REGISTER_TREE_DEBUG_FUN;
8726 meltcdat->dstr_345__REGISTER_TREE_DEBUG_FUN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING))));
8727 /*small inistring*/
8728 strncpy(meltcdat->dstr_345__REGISTER_TREE_DEBUG_FUN.val, "REGISTER_TREE_DEBUG_FUN", sizeof (meltcdat->dstr_345__REGISTER_TREE_DEBUG_FUN.val)-1);
8729 meltcdat->dstr_345__REGISTER_TREE_DEBUG_FUN.val[23] = (char)0 ;
8730 meltcdat->dstr_345__REGISTER_TREE_DEBUG_FUN.slen = 23 ;
8731 meltcdat = NULL;
8732 melt_prohibit_garbcoll = FALSE;
8733
8734 #undef meltfram__
8735 } /*end melt_initialize_module_meltdata_WARMELTmiDEBUG*/
8736
8737
8738
8739 #if MELT_HAVE_DEBUG
8740 const char meltmodule_WARMELTmiDEBUG__melt_have_debug_enabled[] = "MELT module warmelt-debug have debug enabled";
8741 #else /*!MELT_HAVE_DEBUG*/
8742 const char meltmodule_WARMELTmiDEBUG__melt_have_debug_disabled[] = "MELT module warmelt-debug have debug disabled";
8743 #endif /*MELT_HAVE_DEBUG*/
8744
8745
8746 void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_)
8747 {
8748
8749 char meltpredefinited[MELTGLOB__LASTGLOB+8];
8750
8751 #if MELT_HAVE_DEBUG
8752 static long melt_call_counter__;
8753 long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__;
8754 #undef meltcallcount
8755 #define meltcallcount melt_thiscallcounter__
8756 #else
8757 #undef meltcallcount
8758 #define meltcallcount 0L
8759 #endif
8760 //// emitted by output_curframe_declstruct_init using LAMBDA_ @warmelt-outobj.melt:2253
8761
8762 /* start of frame for routine melt_start_this_module fromline 1752 */
8763
8764 /*startiniframdecl*/
8765
8766 /* end of frame for routine melt_start_this_module fromline 1756 */
8767
8768
8769 debugeprintf("sizeof Melt_InitialFrame in melt_start_this_module=%d", (int) sizeof(Melt_InitialFrame));
8770 /* classy initial frame melt_start_this_module fromline 1773*/
8771 Melt_InitialFrame
8772 meltfram__ /*declfrastruct fromline 1780*/
8773 /*classyinitroutinearg melt_start_this_module fromline 1819*/
8774 #if ENABLE_CHECKING
8775 /*classyinitroutfram fromline 1823:*/ (__FILE__, __LINE__)
8776 #endif /*ENABLE_CHECKING fromline1825*/
8777
8778 ;
8779 #define meltframe meltfram__
8780
8781 /**initial routine prologue**/
8782 /**COMMENT: get previous environment **/;
8783
8784 /*^compute*/
8785 /*_._PREVENV___V4*/
8786 meltfptr[3] = /*getprevenv*/ (melt_ptr_t) modargp_;
8787 /*^comment*/
8788 /**COMMENT: compute boxloc **/;
8789
8790 /*^cond*/
8791 /*cond*/
8792 if (/*_._CONTENV___V2*/ meltfptr[1]) /*then*/
8793 {
8794 }
8795 else /*^cond.else*/
8796 {
8797
8798 /*^compute*/
8799
8800 /* compile2obj_initproc emitted initialization of environment reference for warmelt-debug */
8801 if (/*_._PREVENV___V4*/ meltfptr[3])
8802 {
8803 /*_._CONTENV___V2*/ meltfptr[1] = melthookproc_HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER
8804 ((melt_ptr_t) /*_._PREVENV___V4*/ meltfptr[3], "warmelt-debug") ;
8805 }
8806 else /* no prevenv */
8807 {
8808 #if MELT_HAS_INITIAL_ENVIRONMENT>0
8809 if (!melt_flag_bootstrapping)
8810 warning(0, "MELT is not creating a fresh environment reference for warmelt-debug without parent env.") ;
8811 #endif /* MELT_HAS_INITIAL_ENVIRONMENT>0 */
8812 }
8813 ;;
8814 }
8815
8816 /*^comment*/
8817 /**COMMENT: get symbols & keywords for initial procedure **/;
8818
8819 /*^getnamedsymbol*/
8820 /*getnamedsym:HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER*/
8821
8822 if (NULL == /*_._VALDATA___V58*/ meltfptr[57])
8823 {
8824 #if !MELT_HAS_INITIAL_ENVIRONMENT
8825 #error MELT getting named symbol HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER without initial environment
8826 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
8827 melt_ptr_t meltsy_HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER = melthookproc_HOOK_NAMED_SYMBOL ("HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER", (long) MELT_GET);
8828 /*_._VALDATA___V58*/
8829 meltfptr[57] = (melt_ptr_t) meltsy_HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER;
8830 } /*endgetnamedsym HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER*/
8831
8832
8833 /*^getnamedsymbol*/
8834 /*getnamedsym:CLASS_DEBUG_INFORMATION*/
8835
8836 if (NULL == /*_._VALDATA___V60*/ meltfptr[59])
8837 {
8838 #if !MELT_HAS_INITIAL_ENVIRONMENT
8839 #error MELT getting named symbol CLASS_DEBUG_INFORMATION without initial environment
8840 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
8841 melt_ptr_t meltsy_CLASS_DEBUG_INFORMATION = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_DEBUG_INFORMATION", (long) MELT_GET);
8842 /*_._VALDATA___V60*/
8843 meltfptr[59] = (melt_ptr_t) meltsy_CLASS_DEBUG_INFORMATION;
8844 } /*endgetnamedsym CLASS_DEBUG_INFORMATION*/
8845
8846
8847 /*^getnamedsymbol*/
8848 /*getnamedsym:CLASS_ROOT*/
8849
8850 if (NULL == /*_._VALDATA___V62*/ meltfptr[61])
8851 {
8852 #if !MELT_HAS_INITIAL_ENVIRONMENT
8853 #error MELT getting named symbol CLASS_ROOT without initial environment
8854 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
8855 melt_ptr_t meltsy_CLASS_ROOT = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_ROOT", (long) MELT_GET);
8856 /*_._VALDATA___V62*/
8857 meltfptr[61] = (melt_ptr_t) meltsy_CLASS_ROOT;
8858 } /*endgetnamedsym CLASS_ROOT*/
8859
8860
8861 /*^getnamedsymbol*/
8862 /*getnamedsym:DBGI_OUT*/
8863
8864 if (NULL == /*_._VALDATA___V74*/ meltfptr[73])
8865 {
8866 #if !MELT_HAS_INITIAL_ENVIRONMENT
8867 #error MELT getting named symbol DBGI_OUT without initial environment
8868 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
8869 melt_ptr_t meltsy_DBGI_OUT = melthookproc_HOOK_NAMED_SYMBOL ("DBGI_OUT", (long) MELT_GET);
8870 /*_._VALDATA___V74*/
8871 meltfptr[73] = (melt_ptr_t) meltsy_DBGI_OUT;
8872 } /*endgetnamedsym DBGI_OUT*/
8873
8874
8875 /*^getnamedsymbol*/
8876 /*getnamedsym:DBGI_OCCMAP*/
8877
8878 if (NULL == /*_._VALDATA___V76*/ meltfptr[75])
8879 {
8880 #if !MELT_HAS_INITIAL_ENVIRONMENT
8881 #error MELT getting named symbol DBGI_OCCMAP without initial environment
8882 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
8883 melt_ptr_t meltsy_DBGI_OCCMAP = melthookproc_HOOK_NAMED_SYMBOL ("DBGI_OCCMAP", (long) MELT_GET);
8884 /*_._VALDATA___V76*/
8885 meltfptr[75] = (melt_ptr_t) meltsy_DBGI_OCCMAP;
8886 } /*endgetnamedsym DBGI_OCCMAP*/
8887
8888
8889 /*^getnamedsymbol*/
8890 /*getnamedsym:DBGI_MAXDEPTH*/
8891
8892 if (NULL == /*_._VALDATA___V78*/ meltfptr[77])
8893 {
8894 #if !MELT_HAS_INITIAL_ENVIRONMENT
8895 #error MELT getting named symbol DBGI_MAXDEPTH without initial environment
8896 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
8897 melt_ptr_t meltsy_DBGI_MAXDEPTH = melthookproc_HOOK_NAMED_SYMBOL ("DBGI_MAXDEPTH", (long) MELT_GET);
8898 /*_._VALDATA___V78*/
8899 meltfptr[77] = (melt_ptr_t) meltsy_DBGI_MAXDEPTH;
8900 } /*endgetnamedsym DBGI_MAXDEPTH*/
8901
8902
8903 /*^getnamedsymbol*/
8904 /*getnamedsym:CLASS_DEBUG_OUTPUT_INFORMATION*/
8905
8906 if (NULL == /*_._VALDATA___V80*/ meltfptr[79])
8907 {
8908 #if !MELT_HAS_INITIAL_ENVIRONMENT
8909 #error MELT getting named symbol CLASS_DEBUG_OUTPUT_INFORMATION without initial environment
8910 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
8911 melt_ptr_t meltsy_CLASS_DEBUG_OUTPUT_INFORMATION = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_DEBUG_OUTPUT_INFORMATION", (long) MELT_GET);
8912 /*_._VALDATA___V80*/
8913 meltfptr[79] = (melt_ptr_t) meltsy_CLASS_DEBUG_OUTPUT_INFORMATION;
8914 } /*endgetnamedsym CLASS_DEBUG_OUTPUT_INFORMATION*/
8915
8916
8917 /*^getnamedsymbol*/
8918 /*getnamedsym:DEBUG_DEPTH*/
8919
8920 if (NULL == /*_._VALDATA___V86*/ meltfptr[85])
8921 {
8922 #if !MELT_HAS_INITIAL_ENVIRONMENT
8923 #error MELT getting named symbol DEBUG_DEPTH without initial environment
8924 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
8925 melt_ptr_t meltsy_DEBUG_DEPTH = melthookproc_HOOK_NAMED_SYMBOL ("DEBUG_DEPTH", (long) MELT_GET);
8926 /*_._VALDATA___V86*/
8927 meltfptr[85] = (melt_ptr_t) meltsy_DEBUG_DEPTH;
8928 } /*endgetnamedsym DEBUG_DEPTH*/
8929
8930
8931 /*^getnamedsymbol*/
8932 /*getnamedsym:MELT_REALLY_NEED_DEBUG*/
8933
8934 if (NULL == /*_._VALDATA___V93*/ meltfptr[92])
8935 {
8936 #if !MELT_HAS_INITIAL_ENVIRONMENT
8937 #error MELT getting named symbol MELT_REALLY_NEED_DEBUG without initial environment
8938 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
8939 melt_ptr_t meltsy_MELT_REALLY_NEED_DEBUG = melthookproc_HOOK_NAMED_SYMBOL ("MELT_REALLY_NEED_DEBUG", (long) MELT_GET);
8940 /*_._VALDATA___V93*/
8941 meltfptr[92] = (melt_ptr_t) meltsy_MELT_REALLY_NEED_DEBUG;
8942 } /*endgetnamedsym MELT_REALLY_NEED_DEBUG*/
8943
8944
8945 /*^getnamedsymbol*/
8946 /*getnamedsym:DEPTH*/
8947
8948 if (NULL == /*_._VALDATA___V98*/ meltfptr[97])
8949 {
8950 #if !MELT_HAS_INITIAL_ENVIRONMENT
8951 #error MELT getting named symbol DEPTH without initial environment
8952 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
8953 melt_ptr_t meltsy_DEPTH = melthookproc_HOOK_NAMED_SYMBOL ("DEPTH", (long) MELT_GET);
8954 /*_._VALDATA___V98*/
8955 meltfptr[97] = (melt_ptr_t) meltsy_DEPTH;
8956 } /*endgetnamedsym DEPTH*/
8957
8958
8959 /*^getnamedsymbol*/
8960 /*getnamedsym:MELT_HAS_FLAG_DEBUG_SET*/
8961
8962 if (NULL == /*_._VALDATA___V104*/ meltfptr[103])
8963 {
8964 #if !MELT_HAS_INITIAL_ENVIRONMENT
8965 #error MELT getting named symbol MELT_HAS_FLAG_DEBUG_SET without initial environment
8966 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
8967 melt_ptr_t meltsy_MELT_HAS_FLAG_DEBUG_SET = melthookproc_HOOK_NAMED_SYMBOL ("MELT_HAS_FLAG_DEBUG_SET", (long) MELT_GET);
8968 /*_._VALDATA___V104*/
8969 meltfptr[103] = (melt_ptr_t) meltsy_MELT_HAS_FLAG_DEBUG_SET;
8970 } /*endgetnamedsym MELT_HAS_FLAG_DEBUG_SET*/
8971
8972
8973 /*^getnamedsymbol*/
8974 /*getnamedsym:MELT_REALLY_NEED_DBGLIM*/
8975
8976 if (NULL == /*_._VALDATA___V111*/ meltfptr[110])
8977 {
8978 #if !MELT_HAS_INITIAL_ENVIRONMENT
8979 #error MELT getting named symbol MELT_REALLY_NEED_DBGLIM without initial environment
8980 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
8981 melt_ptr_t meltsy_MELT_REALLY_NEED_DBGLIM = melthookproc_HOOK_NAMED_SYMBOL ("MELT_REALLY_NEED_DBGLIM", (long) MELT_GET);
8982 /*_._VALDATA___V111*/
8983 meltfptr[110] = (melt_ptr_t) meltsy_MELT_REALLY_NEED_DBGLIM;
8984 } /*endgetnamedsym MELT_REALLY_NEED_DBGLIM*/
8985
8986
8987 /*^getnamedsymbol*/
8988 /*getnamedsym:LIMIT*/
8989
8990 if (NULL == /*_._VALDATA___V117*/ meltfptr[116])
8991 {
8992 #if !MELT_HAS_INITIAL_ENVIRONMENT
8993 #error MELT getting named symbol LIMIT without initial environment
8994 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
8995 melt_ptr_t meltsy_LIMIT = melthookproc_HOOK_NAMED_SYMBOL ("LIMIT", (long) MELT_GET);
8996 /*_._VALDATA___V117*/
8997 meltfptr[116] = (melt_ptr_t) meltsy_LIMIT;
8998 } /*endgetnamedsym LIMIT*/
8999
9000
9001 /*^getnamedsymbol*/
9002 /*getnamedsym:DBG_OUTPUT*/
9003
9004 if (NULL == /*_._VALDATA___V124*/ meltfptr[123])
9005 {
9006 #if !MELT_HAS_INITIAL_ENVIRONMENT
9007 #error MELT getting named symbol DBG_OUTPUT without initial environment
9008 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
9009 melt_ptr_t meltsy_DBG_OUTPUT = melthookproc_HOOK_NAMED_SYMBOL ("DBG_OUTPUT", (long) MELT_GET);
9010 /*_._VALDATA___V124*/
9011 meltfptr[123] = (melt_ptr_t) meltsy_DBG_OUTPUT;
9012 } /*endgetnamedsym DBG_OUTPUT*/
9013
9014
9015 /*^getnamedsymbol*/
9016 /*getnamedsym:CLASS_SELECTOR*/
9017
9018 if (NULL == /*_._VALDATA___V126*/ meltfptr[125])
9019 {
9020 #if !MELT_HAS_INITIAL_ENVIRONMENT
9021 #error MELT getting named symbol CLASS_SELECTOR without initial environment
9022 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
9023 melt_ptr_t meltsy_CLASS_SELECTOR = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SELECTOR", (long) MELT_GET);
9024 /*_._VALDATA___V126*/
9025 meltfptr[125] = (melt_ptr_t) meltsy_CLASS_SELECTOR;
9026 } /*endgetnamedsym CLASS_SELECTOR*/
9027
9028
9029 /*^getnamedsymbol*/
9030 /*getnamedsym:RECV*/
9031
9032 if (NULL == /*_._VALDATA___V128*/ meltfptr[127])
9033 {
9034 #if !MELT_HAS_INITIAL_ENVIRONMENT
9035 #error MELT getting named symbol RECV without initial environment
9036 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
9037 melt_ptr_t meltsy_RECV = melthookproc_HOOK_NAMED_SYMBOL ("RECV", (long) MELT_GET);
9038 /*_._VALDATA___V128*/
9039 meltfptr[127] = (melt_ptr_t) meltsy_RECV;
9040 } /*endgetnamedsym RECV*/
9041
9042
9043 /*^getnamedsymbol*/
9044 /*getnamedsym:DBGINFO*/
9045
9046 if (NULL == /*_._VALDATA___V131*/ meltfptr[130])
9047 {
9048 #if !MELT_HAS_INITIAL_ENVIRONMENT
9049 #error MELT getting named symbol DBGINFO without initial environment
9050 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
9051 melt_ptr_t meltsy_DBGINFO = melthookproc_HOOK_NAMED_SYMBOL ("DBGINFO", (long) MELT_GET);
9052 /*_._VALDATA___V131*/
9053 meltfptr[130] = (melt_ptr_t) meltsy_DBGINFO;
9054 } /*endgetnamedsym DBGINFO*/
9055
9056
9057 /*^getnamedsymbol*/
9058 /*getnamedsym:DBG_OUTPUTAGAIN*/
9059
9060 if (NULL == /*_._VALDATA___V138*/ meltfptr[137])
9061 {
9062 #if !MELT_HAS_INITIAL_ENVIRONMENT
9063 #error MELT getting named symbol DBG_OUTPUTAGAIN without initial environment
9064 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
9065 melt_ptr_t meltsy_DBG_OUTPUTAGAIN = melthookproc_HOOK_NAMED_SYMBOL ("DBG_OUTPUTAGAIN", (long) MELT_GET);
9066 /*_._VALDATA___V138*/
9067 meltfptr[137] = (melt_ptr_t) meltsy_DBG_OUTPUTAGAIN;
9068 } /*endgetnamedsym DBG_OUTPUTAGAIN*/
9069
9070
9071 /*^getnamedsymbol*/
9072 /*getnamedsym:TREE_DEBUG_FUNCONT*/
9073
9074 if (NULL == /*_._VALDATA___V146*/ meltfptr[145])
9075 {
9076 #if !MELT_HAS_INITIAL_ENVIRONMENT
9077 #error MELT getting named symbol TREE_DEBUG_FUNCONT without initial environment
9078 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
9079 melt_ptr_t meltsy_TREE_DEBUG_FUNCONT = melthookproc_HOOK_NAMED_SYMBOL ("TREE_DEBUG_FUNCONT", (long) MELT_GET);
9080 /*_._VALDATA___V146*/
9081 meltfptr[145] = (melt_ptr_t) meltsy_TREE_DEBUG_FUNCONT;
9082 } /*endgetnamedsym TREE_DEBUG_FUNCONT*/
9083
9084
9085 /*^getnamedsymbol*/
9086 /*getnamedsym:CLASS_REFERENCE*/
9087
9088 if (NULL == /*_._VALDATA___V148*/ meltfptr[147])
9089 {
9090 #if !MELT_HAS_INITIAL_ENVIRONMENT
9091 #error MELT getting named symbol CLASS_REFERENCE without initial environment
9092 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
9093 melt_ptr_t meltsy_CLASS_REFERENCE = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_REFERENCE", (long) MELT_GET);
9094 /*_._VALDATA___V148*/
9095 meltfptr[147] = (melt_ptr_t) meltsy_CLASS_REFERENCE;
9096 } /*endgetnamedsym CLASS_REFERENCE*/
9097
9098
9099 /*^getnamedsymbol*/
9100 /*getnamedsym:GIMPLE_DEBUG_FUNCONT*/
9101
9102 if (NULL == /*_._VALDATA___V153*/ meltfptr[152])
9103 {
9104 #if !MELT_HAS_INITIAL_ENVIRONMENT
9105 #error MELT getting named symbol GIMPLE_DEBUG_FUNCONT without initial environment
9106 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
9107 melt_ptr_t meltsy_GIMPLE_DEBUG_FUNCONT = melthookproc_HOOK_NAMED_SYMBOL ("GIMPLE_DEBUG_FUNCONT", (long) MELT_GET);
9108 /*_._VALDATA___V153*/
9109 meltfptr[152] = (melt_ptr_t) meltsy_GIMPLE_DEBUG_FUNCONT;
9110 } /*endgetnamedsym GIMPLE_DEBUG_FUNCONT*/
9111
9112
9113 /*^getnamedsymbol*/
9114 /*getnamedsym:GIMPLESEQ_DEBUG_FUNCONT*/
9115
9116 if (NULL == /*_._VALDATA___V158*/ meltfptr[157])
9117 {
9118 #if !MELT_HAS_INITIAL_ENVIRONMENT
9119 #error MELT getting named symbol GIMPLESEQ_DEBUG_FUNCONT without initial environment
9120 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
9121 melt_ptr_t meltsy_GIMPLESEQ_DEBUG_FUNCONT = melthookproc_HOOK_NAMED_SYMBOL ("GIMPLESEQ_DEBUG_FUNCONT", (long) MELT_GET);
9122 /*_._VALDATA___V158*/
9123 meltfptr[157] = (melt_ptr_t) meltsy_GIMPLESEQ_DEBUG_FUNCONT;
9124 } /*endgetnamedsym GIMPLESEQ_DEBUG_FUNCONT*/
9125
9126
9127 /*^getnamedsymbol*/
9128 /*getnamedsym:EDGE_DEBUG_FUNCONT*/
9129
9130 if (NULL == /*_._VALDATA___V163*/ meltfptr[162])
9131 {
9132 #if !MELT_HAS_INITIAL_ENVIRONMENT
9133 #error MELT getting named symbol EDGE_DEBUG_FUNCONT without initial environment
9134 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
9135 melt_ptr_t meltsy_EDGE_DEBUG_FUNCONT = melthookproc_HOOK_NAMED_SYMBOL ("EDGE_DEBUG_FUNCONT", (long) MELT_GET);
9136 /*_._VALDATA___V163*/
9137 meltfptr[162] = (melt_ptr_t) meltsy_EDGE_DEBUG_FUNCONT;
9138 } /*endgetnamedsym EDGE_DEBUG_FUNCONT*/
9139
9140
9141 /*^getnamedsymbol*/
9142 /*getnamedsym:BASICBLOCK_DEBUG_FUNCONT*/
9143
9144 if (NULL == /*_._VALDATA___V168*/ meltfptr[167])
9145 {
9146 #if !MELT_HAS_INITIAL_ENVIRONMENT
9147 #error MELT getting named symbol BASICBLOCK_DEBUG_FUNCONT without initial environment
9148 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
9149 melt_ptr_t meltsy_BASICBLOCK_DEBUG_FUNCONT = melthookproc_HOOK_NAMED_SYMBOL ("BASICBLOCK_DEBUG_FUNCONT", (long) MELT_GET);
9150 /*_._VALDATA___V168*/
9151 meltfptr[167] = (melt_ptr_t) meltsy_BASICBLOCK_DEBUG_FUNCONT;
9152 } /*endgetnamedsym BASICBLOCK_DEBUG_FUNCONT*/
9153
9154
9155 /*^getnamedsymbol*/
9156 /*getnamedsym:LOOP_DEBUG_FUNCONT*/
9157
9158 if (NULL == /*_._VALDATA___V173*/ meltfptr[172])
9159 {
9160 #if !MELT_HAS_INITIAL_ENVIRONMENT
9161 #error MELT getting named symbol LOOP_DEBUG_FUNCONT without initial environment
9162 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
9163 melt_ptr_t meltsy_LOOP_DEBUG_FUNCONT = melthookproc_HOOK_NAMED_SYMBOL ("LOOP_DEBUG_FUNCONT", (long) MELT_GET);
9164 /*_._VALDATA___V173*/
9165 meltfptr[172] = (melt_ptr_t) meltsy_LOOP_DEBUG_FUNCONT;
9166 } /*endgetnamedsym LOOP_DEBUG_FUNCONT*/
9167
9168
9169 /*^getnamedsymbol*/
9170 /*getnamedsym:DISCR_DEBUG_CLOSURE*/
9171
9172 if (NULL == /*_._VALDATA___V178*/ meltfptr[177])
9173 {
9174 #if !MELT_HAS_INITIAL_ENVIRONMENT
9175 #error MELT getting named symbol DISCR_DEBUG_CLOSURE without initial environment
9176 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
9177 melt_ptr_t meltsy_DISCR_DEBUG_CLOSURE = melthookproc_HOOK_NAMED_SYMBOL ("DISCR_DEBUG_CLOSURE", (long) MELT_GET);
9178 /*_._VALDATA___V178*/
9179 meltfptr[177] = (melt_ptr_t) meltsy_DISCR_DEBUG_CLOSURE;
9180 } /*endgetnamedsym DISCR_DEBUG_CLOSURE*/
9181
9182
9183 /*^getnamedsymbol*/
9184 /*getnamedsym:CLASS_DISCRIMINANT*/
9185
9186 if (NULL == /*_._VALDATA___V180*/ meltfptr[179])
9187 {
9188 #if !MELT_HAS_INITIAL_ENVIRONMENT
9189 #error MELT getting named symbol CLASS_DISCRIMINANT without initial environment
9190 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
9191 melt_ptr_t meltsy_CLASS_DISCRIMINANT = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_DISCRIMINANT", (long) MELT_GET);
9192 /*_._VALDATA___V180*/
9193 meltfptr[179] = (melt_ptr_t) meltsy_CLASS_DISCRIMINANT;
9194 } /*endgetnamedsym CLASS_DISCRIMINANT*/
9195
9196
9197 /*^getnamedsymbol*/
9198 /*getnamedsym:DISCR_CLOSURE*/
9199
9200 if (NULL == /*_._VALDATA___V184*/ meltfptr[183])
9201 {
9202 #if !MELT_HAS_INITIAL_ENVIRONMENT
9203 #error MELT getting named symbol DISCR_CLOSURE without initial environment
9204 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
9205 melt_ptr_t meltsy_DISCR_CLOSURE = melthookproc_HOOK_NAMED_SYMBOL ("DISCR_CLOSURE", (long) MELT_GET);
9206 /*_._VALDATA___V184*/
9207 meltfptr[183] = (melt_ptr_t) meltsy_DISCR_CLOSURE;
9208 } /*endgetnamedsym DISCR_CLOSURE*/
9209
9210
9211 /*^getnamedsymbol*/
9212 /*getnamedsym:INITIAL_SYSTEM_DATA*/
9213
9214 if (NULL == /*_._VALDATA___V192*/ meltfptr[191])
9215 {
9216 #if !MELT_HAS_INITIAL_ENVIRONMENT
9217 #error MELT getting named symbol INITIAL_SYSTEM_DATA without initial environment
9218 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
9219 melt_ptr_t meltsy_INITIAL_SYSTEM_DATA = melthookproc_HOOK_NAMED_SYMBOL ("INITIAL_SYSTEM_DATA", (long) MELT_GET);
9220 /*_._VALDATA___V192*/
9221 meltfptr[191] = (melt_ptr_t) meltsy_INITIAL_SYSTEM_DATA;
9222 } /*endgetnamedsym INITIAL_SYSTEM_DATA*/
9223
9224
9225 /*^getnamedsymbol*/
9226 /*getnamedsym:CLASS_SYSTEM_DATA*/
9227
9228 if (NULL == /*_._VALDATA___V194*/ meltfptr[193])
9229 {
9230 #if !MELT_HAS_INITIAL_ENVIRONMENT
9231 #error MELT getting named symbol CLASS_SYSTEM_DATA without initial environment
9232 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
9233 melt_ptr_t meltsy_CLASS_SYSTEM_DATA = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SYSTEM_DATA", (long) MELT_GET);
9234 /*_._VALDATA___V194*/
9235 meltfptr[193] = (melt_ptr_t) meltsy_CLASS_SYSTEM_DATA;
9236 } /*endgetnamedsym CLASS_SYSTEM_DATA*/
9237
9238
9239 /*^getnamedsymbol*/
9240 /*getnamedsym:DISCR_MAP_OBJECTS*/
9241
9242 if (NULL == /*_._VALDATA___V196*/ meltfptr[195])
9243 {
9244 #if !MELT_HAS_INITIAL_ENVIRONMENT
9245 #error MELT getting named symbol DISCR_MAP_OBJECTS without initial environment
9246 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
9247 melt_ptr_t meltsy_DISCR_MAP_OBJECTS = melthookproc_HOOK_NAMED_SYMBOL ("DISCR_MAP_OBJECTS", (long) MELT_GET);
9248 /*_._VALDATA___V196*/
9249 meltfptr[195] = (melt_ptr_t) meltsy_DISCR_MAP_OBJECTS;
9250 } /*endgetnamedsym DISCR_MAP_OBJECTS*/
9251
9252
9253 /*^getnamedsymbol*/
9254 /*getnamedsym:DISCR_INTEGER*/
9255
9256 if (NULL == /*_._VALDATA___V198*/ meltfptr[197])
9257 {
9258 #if !MELT_HAS_INITIAL_ENVIRONMENT
9259 #error MELT getting named symbol DISCR_INTEGER without initial environment
9260 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
9261 melt_ptr_t meltsy_DISCR_INTEGER = melthookproc_HOOK_NAMED_SYMBOL ("DISCR_INTEGER", (long) MELT_GET);
9262 /*_._VALDATA___V198*/
9263 meltfptr[197] = (melt_ptr_t) meltsy_DISCR_INTEGER;
9264 } /*endgetnamedsym DISCR_INTEGER*/
9265
9266
9267 /*^getnamedsymbol*/
9268 /*getnamedsym:DISCR_STRBUF*/
9269
9270 if (NULL == /*_._VALDATA___V200*/ meltfptr[199])
9271 {
9272 #if !MELT_HAS_INITIAL_ENVIRONMENT
9273 #error MELT getting named symbol DISCR_STRBUF without initial environment
9274 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
9275 melt_ptr_t meltsy_DISCR_STRBUF = melthookproc_HOOK_NAMED_SYMBOL ("DISCR_STRBUF", (long) MELT_GET);
9276 /*_._VALDATA___V200*/
9277 meltfptr[199] = (melt_ptr_t) meltsy_DISCR_STRBUF;
9278 } /*endgetnamedsym DISCR_STRBUF*/
9279
9280
9281 /*^getnamedsymbol*/
9282 /*getnamedsym:MELT_ASSERT_FAILURE_FUN*/
9283
9284 if (NULL == /*_._VALDATA___V202*/ meltfptr[201])
9285 {
9286 #if !MELT_HAS_INITIAL_ENVIRONMENT
9287 #error MELT getting named symbol MELT_ASSERT_FAILURE_FUN without initial environment
9288 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
9289 melt_ptr_t meltsy_MELT_ASSERT_FAILURE_FUN = melthookproc_HOOK_NAMED_SYMBOL ("MELT_ASSERT_FAILURE_FUN", (long) MELT_GET);
9290 /*_._VALDATA___V202*/
9291 meltfptr[201] = (melt_ptr_t) meltsy_MELT_ASSERT_FAILURE_FUN;
9292 } /*endgetnamedsym MELT_ASSERT_FAILURE_FUN*/
9293
9294
9295 /*^getnamedsymbol*/
9296 /*getnamedsym:ADD2OUT*/
9297
9298 if (NULL == /*_._VALDATA___V204*/ meltfptr[203])
9299 {
9300 #if !MELT_HAS_INITIAL_ENVIRONMENT
9301 #error MELT getting named symbol ADD2OUT without initial environment
9302 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
9303 melt_ptr_t meltsy_ADD2OUT = melthookproc_HOOK_NAMED_SYMBOL ("ADD2OUT", (long) MELT_GET);
9304 /*_._VALDATA___V204*/
9305 meltfptr[203] = (melt_ptr_t) meltsy_ADD2OUT;
9306 } /*endgetnamedsym ADD2OUT*/
9307
9308
9309 /*^getnamedsymbol*/
9310 /*getnamedsym:CSTRING_PREFIXED*/
9311
9312 if (NULL == /*_._VALDATA___V206*/ meltfptr[205])
9313 {
9314 #if !MELT_HAS_INITIAL_ENVIRONMENT
9315 #error MELT getting named symbol CSTRING_PREFIXED without initial environment
9316 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
9317 melt_ptr_t meltsy_CSTRING_PREFIXED = melthookproc_HOOK_NAMED_SYMBOL ("CSTRING_PREFIXED", (long) MELT_GET);
9318 /*_._VALDATA___V206*/
9319 meltfptr[205] = (melt_ptr_t) meltsy_CSTRING_PREFIXED;
9320 } /*endgetnamedsym CSTRING_PREFIXED*/
9321
9322
9323 /*^getnamedsymbol*/
9324 /*getnamedsym:CLASS_NAMED*/
9325
9326 if (NULL == /*_._VALDATA___V208*/ meltfptr[207])
9327 {
9328 #if !MELT_HAS_INITIAL_ENVIRONMENT
9329 #error MELT getting named symbol CLASS_NAMED without initial environment
9330 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
9331 melt_ptr_t meltsy_CLASS_NAMED = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_NAMED", (long) MELT_GET);
9332 /*_._VALDATA___V208*/
9333 meltfptr[207] = (melt_ptr_t) meltsy_CLASS_NAMED;
9334 } /*endgetnamedsym CLASS_NAMED*/
9335
9336
9337 /*^getnamedsymbol*/
9338 /*getnamedsym:CLASS_QUASI_CTYPE*/
9339
9340 if (NULL == /*_._VALDATA___V210*/ meltfptr[209])
9341 {
9342 #if !MELT_HAS_INITIAL_ENVIRONMENT
9343 #error MELT getting named symbol CLASS_QUASI_CTYPE without initial environment
9344 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
9345 melt_ptr_t meltsy_CLASS_QUASI_CTYPE = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_QUASI_CTYPE", (long) MELT_GET);
9346 /*_._VALDATA___V210*/
9347 meltfptr[209] = (melt_ptr_t) meltsy_CLASS_QUASI_CTYPE;
9348 } /*endgetnamedsym CLASS_QUASI_CTYPE*/
9349
9350
9351 /*^getnamedsymbol*/
9352 /*getnamedsym:INSTALL_METHOD*/
9353
9354 if (NULL == /*_._VALDATA___V218*/ meltfptr[217])
9355 {
9356 #if !MELT_HAS_INITIAL_ENVIRONMENT
9357 #error MELT getting named symbol INSTALL_METHOD without initial environment
9358 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
9359 melt_ptr_t meltsy_INSTALL_METHOD = melthookproc_HOOK_NAMED_SYMBOL ("INSTALL_METHOD", (long) MELT_GET);
9360 /*_._VALDATA___V218*/
9361 meltfptr[217] = (melt_ptr_t) meltsy_INSTALL_METHOD;
9362 } /*endgetnamedsym INSTALL_METHOD*/
9363
9364
9365 /*^getnamedsymbol*/
9366 /*getnamedsym:DISCR_NULL_RECEIVER*/
9367
9368 if (NULL == /*_._VALDATA___V220*/ meltfptr[219])
9369 {
9370 #if !MELT_HAS_INITIAL_ENVIRONMENT
9371 #error MELT getting named symbol DISCR_NULL_RECEIVER without initial environment
9372 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
9373 melt_ptr_t meltsy_DISCR_NULL_RECEIVER = melthookproc_HOOK_NAMED_SYMBOL ("DISCR_NULL_RECEIVER", (long) MELT_GET);
9374 /*_._VALDATA___V220*/
9375 meltfptr[219] = (melt_ptr_t) meltsy_DISCR_NULL_RECEIVER;
9376 } /*endgetnamedsym DISCR_NULL_RECEIVER*/
9377
9378
9379 /*^getnamedsymbol*/
9380 /*getnamedsym:DISCR_STRING*/
9381
9382 if (NULL == /*_._VALDATA___V224*/ meltfptr[223])
9383 {
9384 #if !MELT_HAS_INITIAL_ENVIRONMENT
9385 #error MELT getting named symbol DISCR_STRING without initial environment
9386 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
9387 melt_ptr_t meltsy_DISCR_STRING = melthookproc_HOOK_NAMED_SYMBOL ("DISCR_STRING", (long) MELT_GET);
9388 /*_._VALDATA___V224*/
9389 meltfptr[223] = (melt_ptr_t) meltsy_DISCR_STRING;
9390 } /*endgetnamedsym DISCR_STRING*/
9391
9392
9393 /*^getnamedsymbol*/
9394 /*getnamedsym:DISCR_VERBATIM_STRING*/
9395
9396 if (NULL == /*_._VALDATA___V226*/ meltfptr[225])
9397 {
9398 #if !MELT_HAS_INITIAL_ENVIRONMENT
9399 #error MELT getting named symbol DISCR_VERBATIM_STRING without initial environment
9400 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
9401 melt_ptr_t meltsy_DISCR_VERBATIM_STRING = melthookproc_HOOK_NAMED_SYMBOL ("DISCR_VERBATIM_STRING", (long) MELT_GET);
9402 /*_._VALDATA___V226*/
9403 meltfptr[225] = (melt_ptr_t) meltsy_DISCR_VERBATIM_STRING;
9404 } /*endgetnamedsym DISCR_VERBATIM_STRING*/
9405
9406
9407 /*^getnamedsymbol*/
9408 /*getnamedsym:DISCR_CONSTANT_INTEGER*/
9409
9410 if (NULL == /*_._VALDATA___V232*/ meltfptr[231])
9411 {
9412 #if !MELT_HAS_INITIAL_ENVIRONMENT
9413 #error MELT getting named symbol DISCR_CONSTANT_INTEGER without initial environment
9414 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
9415 melt_ptr_t meltsy_DISCR_CONSTANT_INTEGER = melthookproc_HOOK_NAMED_SYMBOL ("DISCR_CONSTANT_INTEGER", (long) MELT_GET);
9416 /*_._VALDATA___V232*/
9417 meltfptr[231] = (melt_ptr_t) meltsy_DISCR_CONSTANT_INTEGER;
9418 } /*endgetnamedsym DISCR_CONSTANT_INTEGER*/
9419
9420
9421 /*^getnamedsymbol*/
9422 /*getnamedsym:DISCR_DOUBLE*/
9423
9424 if (NULL == /*_._VALDATA___V236*/ meltfptr[235])
9425 {
9426 #if !MELT_HAS_INITIAL_ENVIRONMENT
9427 #error MELT getting named symbol DISCR_DOUBLE without initial environment
9428 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
9429 melt_ptr_t meltsy_DISCR_DOUBLE = melthookproc_HOOK_NAMED_SYMBOL ("DISCR_DOUBLE", (long) MELT_GET);
9430 /*_._VALDATA___V236*/
9431 meltfptr[235] = (melt_ptr_t) meltsy_DISCR_DOUBLE;
9432 } /*endgetnamedsym DISCR_DOUBLE*/
9433
9434
9435 /*^getnamedsymbol*/
9436 /*getnamedsym:DISCR_CONSTANT_DOUBLE*/
9437
9438 if (NULL == /*_._VALDATA___V238*/ meltfptr[237])
9439 {
9440 #if !MELT_HAS_INITIAL_ENVIRONMENT
9441 #error MELT getting named symbol DISCR_CONSTANT_DOUBLE without initial environment
9442 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
9443 melt_ptr_t meltsy_DISCR_CONSTANT_DOUBLE = melthookproc_HOOK_NAMED_SYMBOL ("DISCR_CONSTANT_DOUBLE", (long) MELT_GET);
9444 /*_._VALDATA___V238*/
9445 meltfptr[237] = (melt_ptr_t) meltsy_DISCR_CONSTANT_DOUBLE;
9446 } /*endgetnamedsym DISCR_CONSTANT_DOUBLE*/
9447
9448
9449 /*^getnamedsymbol*/
9450 /*getnamedsym:DISCR_MIXED_INTEGER*/
9451
9452 if (NULL == /*_._VALDATA___V242*/ meltfptr[241])
9453 {
9454 #if !MELT_HAS_INITIAL_ENVIRONMENT
9455 #error MELT getting named symbol DISCR_MIXED_INTEGER without initial environment
9456 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
9457 melt_ptr_t meltsy_DISCR_MIXED_INTEGER = melthookproc_HOOK_NAMED_SYMBOL ("DISCR_MIXED_INTEGER", (long) MELT_GET);
9458 /*_._VALDATA___V242*/
9459 meltfptr[241] = (melt_ptr_t) meltsy_DISCR_MIXED_INTEGER;
9460 } /*endgetnamedsym DISCR_MIXED_INTEGER*/
9461
9462
9463 /*^getnamedsymbol*/
9464 /*getnamedsym:DISCR_MIXED_LOCATION*/
9465
9466 if (NULL == /*_._VALDATA___V246*/ meltfptr[245])
9467 {
9468 #if !MELT_HAS_INITIAL_ENVIRONMENT
9469 #error MELT getting named symbol DISCR_MIXED_LOCATION without initial environment
9470 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
9471 melt_ptr_t meltsy_DISCR_MIXED_LOCATION = melthookproc_HOOK_NAMED_SYMBOL ("DISCR_MIXED_LOCATION", (long) MELT_GET);
9472 /*_._VALDATA___V246*/
9473 meltfptr[245] = (melt_ptr_t) meltsy_DISCR_MIXED_LOCATION;
9474 } /*endgetnamedsym DISCR_MIXED_LOCATION*/
9475
9476
9477 /*^getnamedsymbol*/
9478 /*getnamedsym:DISCR_MIXED_BIGINT*/
9479
9480 if (NULL == /*_._VALDATA___V250*/ meltfptr[249])
9481 {
9482 #if !MELT_HAS_INITIAL_ENVIRONMENT
9483 #error MELT getting named symbol DISCR_MIXED_BIGINT without initial environment
9484 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
9485 melt_ptr_t meltsy_DISCR_MIXED_BIGINT = melthookproc_HOOK_NAMED_SYMBOL ("DISCR_MIXED_BIGINT", (long) MELT_GET);
9486 /*_._VALDATA___V250*/
9487 meltfptr[249] = (melt_ptr_t) meltsy_DISCR_MIXED_BIGINT;
9488 } /*endgetnamedsym DISCR_MIXED_BIGINT*/
9489
9490
9491 /*^getnamedsymbol*/
9492 /*getnamedsym:DISCR_MULTIPLE*/
9493
9494 if (NULL == /*_._VALDATA___V254*/ meltfptr[253])
9495 {
9496 #if !MELT_HAS_INITIAL_ENVIRONMENT
9497 #error MELT getting named symbol DISCR_MULTIPLE without initial environment
9498 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
9499 melt_ptr_t meltsy_DISCR_MULTIPLE = melthookproc_HOOK_NAMED_SYMBOL ("DISCR_MULTIPLE", (long) MELT_GET);
9500 /*_._VALDATA___V254*/
9501 meltfptr[253] = (melt_ptr_t) meltsy_DISCR_MULTIPLE;
9502 } /*endgetnamedsym DISCR_MULTIPLE*/
9503
9504
9505 /*^getnamedsymbol*/
9506 /*getnamedsym:DISCR_ROUTINE*/
9507
9508 if (NULL == /*_._VALDATA___V259*/ meltfptr[258])
9509 {
9510 #if !MELT_HAS_INITIAL_ENVIRONMENT
9511 #error MELT getting named symbol DISCR_ROUTINE without initial environment
9512 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
9513 melt_ptr_t meltsy_DISCR_ROUTINE = melthookproc_HOOK_NAMED_SYMBOL ("DISCR_ROUTINE", (long) MELT_GET);
9514 /*_._VALDATA___V259*/
9515 meltfptr[258] = (melt_ptr_t) meltsy_DISCR_ROUTINE;
9516 } /*endgetnamedsym DISCR_ROUTINE*/
9517
9518
9519 /*^getnamedsymbol*/
9520 /*getnamedsym:ROUTINE_EVERY*/
9521
9522 if (NULL == /*_._VALDATA___V261*/ meltfptr[260])
9523 {
9524 #if !MELT_HAS_INITIAL_ENVIRONMENT
9525 #error MELT getting named symbol ROUTINE_EVERY without initial environment
9526 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
9527 melt_ptr_t meltsy_ROUTINE_EVERY = melthookproc_HOOK_NAMED_SYMBOL ("ROUTINE_EVERY", (long) MELT_GET);
9528 /*_._VALDATA___V261*/
9529 meltfptr[260] = (melt_ptr_t) meltsy_ROUTINE_EVERY;
9530 } /*endgetnamedsym ROUTINE_EVERY*/
9531
9532
9533 /*^getnamedsymbol*/
9534 /*getnamedsym:HOOK_EVERY*/
9535
9536 if (NULL == /*_._VALDATA___V266*/ meltfptr[265])
9537 {
9538 #if !MELT_HAS_INITIAL_ENVIRONMENT
9539 #error MELT getting named symbol HOOK_EVERY without initial environment
9540 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
9541 melt_ptr_t meltsy_HOOK_EVERY = melthookproc_HOOK_NAMED_SYMBOL ("HOOK_EVERY", (long) MELT_GET);
9542 /*_._VALDATA___V266*/
9543 meltfptr[265] = (melt_ptr_t) meltsy_HOOK_EVERY;
9544 } /*endgetnamedsym HOOK_EVERY*/
9545
9546
9547 /*^getnamedsymbol*/
9548 /*getnamedsym:DISCR_HOOK*/
9549
9550 if (NULL == /*_._VALDATA___V268*/ meltfptr[267])
9551 {
9552 #if !MELT_HAS_INITIAL_ENVIRONMENT
9553 #error MELT getting named symbol DISCR_HOOK without initial environment
9554 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
9555 melt_ptr_t meltsy_DISCR_HOOK = melthookproc_HOOK_NAMED_SYMBOL ("DISCR_HOOK", (long) MELT_GET);
9556 /*_._VALDATA___V268*/
9557 meltfptr[267] = (melt_ptr_t) meltsy_DISCR_HOOK;
9558 } /*endgetnamedsym DISCR_HOOK*/
9559
9560
9561 /*^getnamedsymbol*/
9562 /*getnamedsym:DISCR_LIST*/
9563
9564 if (NULL == /*_._VALDATA___V274*/ meltfptr[273])
9565 {
9566 #if !MELT_HAS_INITIAL_ENVIRONMENT
9567 #error MELT getting named symbol DISCR_LIST without initial environment
9568 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
9569 melt_ptr_t meltsy_DISCR_LIST = melthookproc_HOOK_NAMED_SYMBOL ("DISCR_LIST", (long) MELT_GET);
9570 /*_._VALDATA___V274*/
9571 meltfptr[273] = (melt_ptr_t) meltsy_DISCR_LIST;
9572 } /*endgetnamedsym DISCR_LIST*/
9573
9574
9575 /*^getnamedsymbol*/
9576 /*getnamedsym:DISCR_PAIR*/
9577
9578 if (NULL == /*_._VALDATA___V278*/ meltfptr[277])
9579 {
9580 #if !MELT_HAS_INITIAL_ENVIRONMENT
9581 #error MELT getting named symbol DISCR_PAIR without initial environment
9582 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
9583 melt_ptr_t meltsy_DISCR_PAIR = melthookproc_HOOK_NAMED_SYMBOL ("DISCR_PAIR", (long) MELT_GET);
9584 /*_._VALDATA___V278*/
9585 meltfptr[277] = (melt_ptr_t) meltsy_DISCR_PAIR;
9586 } /*endgetnamedsym DISCR_PAIR*/
9587
9588
9589 /*^getnamedsymbol*/
9590 /*getnamedsym:MAPOBJECT_EVERY*/
9591
9592 if (NULL == /*_._VALDATA___V288*/ meltfptr[287])
9593 {
9594 #if !MELT_HAS_INITIAL_ENVIRONMENT
9595 #error MELT getting named symbol MAPOBJECT_EVERY without initial environment
9596 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
9597 melt_ptr_t meltsy_MAPOBJECT_EVERY = melthookproc_HOOK_NAMED_SYMBOL ("MAPOBJECT_EVERY", (long) MELT_GET);
9598 /*_._VALDATA___V288*/
9599 meltfptr[287] = (melt_ptr_t) meltsy_MAPOBJECT_EVERY;
9600 } /*endgetnamedsym MAPOBJECT_EVERY*/
9601
9602
9603 /*^getnamedsymbol*/
9604 /*getnamedsym:MULTIPLE_SORT*/
9605
9606 if (NULL == /*_._VALDATA___V290*/ meltfptr[289])
9607 {
9608 #if !MELT_HAS_INITIAL_ENVIRONMENT
9609 #error MELT getting named symbol MULTIPLE_SORT without initial environment
9610 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
9611 melt_ptr_t meltsy_MULTIPLE_SORT = melthookproc_HOOK_NAMED_SYMBOL ("MULTIPLE_SORT", (long) MELT_GET);
9612 /*_._VALDATA___V290*/
9613 meltfptr[289] = (melt_ptr_t) meltsy_MULTIPLE_SORT;
9614 } /*endgetnamedsym MULTIPLE_SORT*/
9615
9616
9617 /*^getnamedsymbol*/
9618 /*getnamedsym:COMPARE_OBJ_RANKED*/
9619
9620 if (NULL == /*_._VALDATA___V292*/ meltfptr[291])
9621 {
9622 #if !MELT_HAS_INITIAL_ENVIRONMENT
9623 #error MELT getting named symbol COMPARE_OBJ_RANKED without initial environment
9624 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
9625 melt_ptr_t meltsy_COMPARE_OBJ_RANKED = melthookproc_HOOK_NAMED_SYMBOL ("COMPARE_OBJ_RANKED", (long) MELT_GET);
9626 /*_._VALDATA___V292*/
9627 meltfptr[291] = (melt_ptr_t) meltsy_COMPARE_OBJ_RANKED;
9628 } /*endgetnamedsym COMPARE_OBJ_RANKED*/
9629
9630
9631 /*^getnamedsymbol*/
9632 /*getnamedsym:MULTIPLE_EVERY*/
9633
9634 if (NULL == /*_._VALDATA___V294*/ meltfptr[293])
9635 {
9636 #if !MELT_HAS_INITIAL_ENVIRONMENT
9637 #error MELT getting named symbol MULTIPLE_EVERY without initial environment
9638 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
9639 melt_ptr_t meltsy_MULTIPLE_EVERY = melthookproc_HOOK_NAMED_SYMBOL ("MULTIPLE_EVERY", (long) MELT_GET);
9640 /*_._VALDATA___V294*/
9641 meltfptr[293] = (melt_ptr_t) meltsy_MULTIPLE_EVERY;
9642 } /*endgetnamedsym MULTIPLE_EVERY*/
9643
9644
9645 /*^getnamedsymbol*/
9646 /*getnamedsym:MAPSTRING_EVERY*/
9647
9648 if (NULL == /*_._VALDATA___V303*/ meltfptr[302])
9649 {
9650 #if !MELT_HAS_INITIAL_ENVIRONMENT
9651 #error MELT getting named symbol MAPSTRING_EVERY without initial environment
9652 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
9653 melt_ptr_t meltsy_MAPSTRING_EVERY = melthookproc_HOOK_NAMED_SYMBOL ("MAPSTRING_EVERY", (long) MELT_GET);
9654 /*_._VALDATA___V303*/
9655 meltfptr[302] = (melt_ptr_t) meltsy_MAPSTRING_EVERY;
9656 } /*endgetnamedsym MAPSTRING_EVERY*/
9657
9658
9659 /*^getnamedsymbol*/
9660 /*getnamedsym:DISCR_MAP_STRINGS*/
9661
9662 if (NULL == /*_._VALDATA___V305*/ meltfptr[304])
9663 {
9664 #if !MELT_HAS_INITIAL_ENVIRONMENT
9665 #error MELT getting named symbol DISCR_MAP_STRINGS without initial environment
9666 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
9667 melt_ptr_t meltsy_DISCR_MAP_STRINGS = melthookproc_HOOK_NAMED_SYMBOL ("DISCR_MAP_STRINGS", (long) MELT_GET);
9668 /*_._VALDATA___V305*/
9669 meltfptr[304] = (melt_ptr_t) meltsy_DISCR_MAP_STRINGS;
9670 } /*endgetnamedsym DISCR_MAP_STRINGS*/
9671
9672
9673 /*^getnamedsymbol*/
9674 /*getnamedsym:DISCR_BUCKET_LONGS*/
9675
9676 if (NULL == /*_._VALDATA___V309*/ meltfptr[308])
9677 {
9678 #if !MELT_HAS_INITIAL_ENVIRONMENT
9679 #error MELT getting named symbol DISCR_BUCKET_LONGS without initial environment
9680 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
9681 melt_ptr_t meltsy_DISCR_BUCKET_LONGS = melthookproc_HOOK_NAMED_SYMBOL ("DISCR_BUCKET_LONGS", (long) MELT_GET);
9682 /*_._VALDATA___V309*/
9683 meltfptr[308] = (melt_ptr_t) meltsy_DISCR_BUCKET_LONGS;
9684 } /*endgetnamedsym DISCR_BUCKET_LONGS*/
9685
9686
9687 /*^getnamedsymbol*/
9688 /*getnamedsym:DISCR_JSONOBJECT*/
9689
9690 if (NULL == /*_._VALDATA___V313*/ meltfptr[312])
9691 {
9692 #if !MELT_HAS_INITIAL_ENVIRONMENT
9693 #error MELT getting named symbol DISCR_JSONOBJECT without initial environment
9694 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
9695 melt_ptr_t meltsy_DISCR_JSONOBJECT = melthookproc_HOOK_NAMED_SYMBOL ("DISCR_JSONOBJECT", (long) MELT_GET);
9696 /*_._VALDATA___V313*/
9697 meltfptr[312] = (melt_ptr_t) meltsy_DISCR_JSONOBJECT;
9698 } /*endgetnamedsym DISCR_JSONOBJECT*/
9699
9700
9701 /*^getnamedsymbol*/
9702 /*getnamedsym:DISCR_ANY_RECEIVER*/
9703
9704 if (NULL == /*_._VALDATA___V319*/ meltfptr[318])
9705 {
9706 #if !MELT_HAS_INITIAL_ENVIRONMENT
9707 #error MELT getting named symbol DISCR_ANY_RECEIVER without initial environment
9708 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
9709 melt_ptr_t meltsy_DISCR_ANY_RECEIVER = melthookproc_HOOK_NAMED_SYMBOL ("DISCR_ANY_RECEIVER", (long) MELT_GET);
9710 /*_._VALDATA___V319*/
9711 meltfptr[318] = (melt_ptr_t) meltsy_DISCR_ANY_RECEIVER;
9712 } /*endgetnamedsym DISCR_ANY_RECEIVER*/
9713
9714
9715 /*^getnamedsymbol*/
9716 /*getnamedsym:DBGOUT_NAMEDOBJECT_METHOD*/
9717
9718 if (NULL == /*_._VALDATA___V325*/ meltfptr[324])
9719 {
9720 #if !MELT_HAS_INITIAL_ENVIRONMENT
9721 #error MELT getting named symbol DBGOUT_NAMEDOBJECT_METHOD without initial environment
9722 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
9723 melt_ptr_t meltsy_DBGOUT_NAMEDOBJECT_METHOD = melthookproc_HOOK_NAMED_SYMBOL ("DBGOUT_NAMEDOBJECT_METHOD", (long) MELT_GET);
9724 /*_._VALDATA___V325*/
9725 meltfptr[324] = (melt_ptr_t) meltsy_DBGOUT_NAMEDOBJECT_METHOD;
9726 } /*endgetnamedsym DBGOUT_NAMEDOBJECT_METHOD*/
9727
9728
9729 /*^getnamedsymbol*/
9730 /*getnamedsym:CLASS_SYMBOL*/
9731
9732 if (NULL == /*_._VALDATA___V331*/ meltfptr[330])
9733 {
9734 #if !MELT_HAS_INITIAL_ENVIRONMENT
9735 #error MELT getting named symbol CLASS_SYMBOL without initial environment
9736 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
9737 melt_ptr_t meltsy_CLASS_SYMBOL = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SYMBOL", (long) MELT_GET);
9738 /*_._VALDATA___V331*/
9739 meltfptr[330] = (melt_ptr_t) meltsy_CLASS_SYMBOL;
9740 } /*endgetnamedsym CLASS_SYMBOL*/
9741
9742
9743 /*^getnamedsymbol*/
9744 /*getnamedsym:CLASS_CLASS*/
9745
9746 if (NULL == /*_._VALDATA___V337*/ meltfptr[336])
9747 {
9748 #if !MELT_HAS_INITIAL_ENVIRONMENT
9749 #error MELT getting named symbol CLASS_CLASS without initial environment
9750 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
9751 melt_ptr_t meltsy_CLASS_CLASS = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_CLASS", (long) MELT_GET);
9752 /*_._VALDATA___V337*/
9753 meltfptr[336] = (melt_ptr_t) meltsy_CLASS_CLASS;
9754 } /*endgetnamedsym CLASS_CLASS*/
9755
9756
9757 /*^getnamedsymbol*/
9758 /*getnamedsym:CLASS_KEYWORD*/
9759
9760 if (NULL == /*_._VALDATA___V341*/ meltfptr[340])
9761 {
9762 #if !MELT_HAS_INITIAL_ENVIRONMENT
9763 #error MELT getting named symbol CLASS_KEYWORD without initial environment
9764 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
9765 melt_ptr_t meltsy_CLASS_KEYWORD = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_KEYWORD", (long) MELT_GET);
9766 /*_._VALDATA___V341*/
9767 meltfptr[340] = (melt_ptr_t) meltsy_CLASS_KEYWORD;
9768 } /*endgetnamedsym CLASS_KEYWORD*/
9769
9770
9771 /*^getnamedsymbol*/
9772 /*getnamedsym:CLASS_CLONED_SYMBOL*/
9773
9774 if (NULL == /*_._VALDATA___V347*/ meltfptr[346])
9775 {
9776 #if !MELT_HAS_INITIAL_ENVIRONMENT
9777 #error MELT getting named symbol CLASS_CLONED_SYMBOL without initial environment
9778 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
9779 melt_ptr_t meltsy_CLASS_CLONED_SYMBOL = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_CLONED_SYMBOL", (long) MELT_GET);
9780 /*_._VALDATA___V347*/
9781 meltfptr[346] = (melt_ptr_t) meltsy_CLASS_CLONED_SYMBOL;
9782 } /*endgetnamedsym CLASS_CLONED_SYMBOL*/
9783
9784
9785 /*^getnamedsymbol*/
9786 /*getnamedsym:CLASS_ENVIRONMENT*/
9787
9788 if (NULL == /*_._VALDATA___V353*/ meltfptr[352])
9789 {
9790 #if !MELT_HAS_INITIAL_ENVIRONMENT
9791 #error MELT getting named symbol CLASS_ENVIRONMENT without initial environment
9792 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
9793 melt_ptr_t meltsy_CLASS_ENVIRONMENT = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_ENVIRONMENT", (long) MELT_GET);
9794 /*_._VALDATA___V353*/
9795 meltfptr[352] = (melt_ptr_t) meltsy_CLASS_ENVIRONMENT;
9796 } /*endgetnamedsym CLASS_ENVIRONMENT*/
9797
9798
9799 /*^getnamedsymbol*/
9800 /*getnamedsym:ENV_PREV*/
9801
9802 if (NULL == /*_._VALDATA___V355*/ meltfptr[354])
9803 {
9804 #if !MELT_HAS_INITIAL_ENVIRONMENT
9805 #error MELT getting named symbol ENV_PREV without initial environment
9806 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
9807 melt_ptr_t meltsy_ENV_PREV = melthookproc_HOOK_NAMED_SYMBOL ("ENV_PREV", (long) MELT_GET);
9808 /*_._VALDATA___V355*/
9809 meltfptr[354] = (melt_ptr_t) meltsy_ENV_PREV;
9810 } /*endgetnamedsym ENV_PREV*/
9811
9812
9813 /*^getnamedsymbol*/
9814 /*getnamedsym:CLASS_DESCRIBED_ENVIRONMENT*/
9815
9816 if (NULL == /*_._VALDATA___V357*/ meltfptr[356])
9817 {
9818 #if !MELT_HAS_INITIAL_ENVIRONMENT
9819 #error MELT getting named symbol CLASS_DESCRIBED_ENVIRONMENT without initial environment
9820 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
9821 melt_ptr_t meltsy_CLASS_DESCRIBED_ENVIRONMENT = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_DESCRIBED_ENVIRONMENT", (long) MELT_GET);
9822 /*_._VALDATA___V357*/
9823 meltfptr[356] = (melt_ptr_t) meltsy_CLASS_DESCRIBED_ENVIRONMENT;
9824 } /*endgetnamedsym CLASS_DESCRIBED_ENVIRONMENT*/
9825
9826
9827 /*^getnamedsymbol*/
9828 /*getnamedsym:CLASS_CTYPE*/
9829
9830 if (NULL == /*_._VALDATA___V361*/ meltfptr[360])
9831 {
9832 #if !MELT_HAS_INITIAL_ENVIRONMENT
9833 #error MELT getting named symbol CLASS_CTYPE without initial environment
9834 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
9835 melt_ptr_t meltsy_CLASS_CTYPE = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_CTYPE", (long) MELT_GET);
9836 /*_._VALDATA___V361*/
9837 meltfptr[360] = (melt_ptr_t) meltsy_CLASS_CTYPE;
9838 } /*endgetnamedsym CLASS_CTYPE*/
9839
9840
9841 /*^getnamedsymbol*/
9842 /*getnamedsym:CLASS_ANY_BINDING*/
9843
9844 if (NULL == /*_._VALDATA___V367*/ meltfptr[366])
9845 {
9846 #if !MELT_HAS_INITIAL_ENVIRONMENT
9847 #error MELT getting named symbol CLASS_ANY_BINDING without initial environment
9848 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
9849 melt_ptr_t meltsy_CLASS_ANY_BINDING = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_ANY_BINDING", (long) MELT_GET);
9850 /*_._VALDATA___V367*/
9851 meltfptr[366] = (melt_ptr_t) meltsy_CLASS_ANY_BINDING;
9852 } /*endgetnamedsym CLASS_ANY_BINDING*/
9853
9854
9855 /*^getnamedsymbol*/
9856 /*getnamedsym:DEBUG_LESS*/
9857
9858 if (NULL == /*_._VALDATA___V371*/ meltfptr[370])
9859 {
9860 #if !MELT_HAS_INITIAL_ENVIRONMENT
9861 #error MELT getting named symbol DEBUG_LESS without initial environment
9862 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
9863 melt_ptr_t meltsy_DEBUG_LESS = melthookproc_HOOK_NAMED_SYMBOL ("DEBUG_LESS", (long) MELT_GET);
9864 /*_._VALDATA___V371*/
9865 meltfptr[370] = (melt_ptr_t) meltsy_DEBUG_LESS;
9866 } /*endgetnamedsym DEBUG_LESS*/
9867
9868
9869 /*^getnamedsymbol*/
9870 /*getnamedsym:DEBUG_MORE*/
9871
9872 if (NULL == /*_._VALDATA___V375*/ meltfptr[374])
9873 {
9874 #if !MELT_HAS_INITIAL_ENVIRONMENT
9875 #error MELT getting named symbol DEBUG_MORE without initial environment
9876 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
9877 melt_ptr_t meltsy_DEBUG_MORE = melthookproc_HOOK_NAMED_SYMBOL ("DEBUG_MORE", (long) MELT_GET);
9878 /*_._VALDATA___V375*/
9879 meltfptr[374] = (melt_ptr_t) meltsy_DEBUG_MORE;
9880 } /*endgetnamedsym DEBUG_MORE*/
9881
9882
9883 /*^getnamedsymbol*/
9884 /*getnamedsym:DBG_OUT*/
9885
9886 if (NULL == /*_._VALDATA___V379*/ meltfptr[378])
9887 {
9888 #if !MELT_HAS_INITIAL_ENVIRONMENT
9889 #error MELT getting named symbol DBG_OUT without initial environment
9890 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
9891 melt_ptr_t meltsy_DBG_OUT = melthookproc_HOOK_NAMED_SYMBOL ("DBG_OUT", (long) MELT_GET);
9892 /*_._VALDATA___V379*/
9893 meltfptr[378] = (melt_ptr_t) meltsy_DBG_OUT;
9894 } /*endgetnamedsym DBG_OUT*/
9895
9896
9897 /*^getnamedsymbol*/
9898 /*getnamedsym:DBG_OUTOBJECT*/
9899
9900 if (NULL == /*_._VALDATA___V381*/ meltfptr[380])
9901 {
9902 #if !MELT_HAS_INITIAL_ENVIRONMENT
9903 #error MELT getting named symbol DBG_OUTOBJECT without initial environment
9904 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
9905 melt_ptr_t meltsy_DBG_OUTOBJECT = melthookproc_HOOK_NAMED_SYMBOL ("DBG_OUTOBJECT", (long) MELT_GET);
9906 /*_._VALDATA___V381*/
9907 meltfptr[380] = (melt_ptr_t) meltsy_DBG_OUTOBJECT;
9908 } /*endgetnamedsym DBG_OUTOBJECT*/
9909
9910
9911 /*^getnamedsymbol*/
9912 /*getnamedsym:DBGOUT_FIELDS*/
9913
9914 if (NULL == /*_._VALDATA___V383*/ meltfptr[382])
9915 {
9916 #if !MELT_HAS_INITIAL_ENVIRONMENT
9917 #error MELT getting named symbol DBGOUT_FIELDS without initial environment
9918 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
9919 melt_ptr_t meltsy_DBGOUT_FIELDS = melthookproc_HOOK_NAMED_SYMBOL ("DBGOUT_FIELDS", (long) MELT_GET);
9920 /*_._VALDATA___V383*/
9921 meltfptr[382] = (melt_ptr_t) meltsy_DBGOUT_FIELDS;
9922 } /*endgetnamedsym DBGOUT_FIELDS*/
9923
9924
9925 /*^getnamedsymbol*/
9926 /*getnamedsym:DBGOUTAGAIN_FIELDS*/
9927
9928 if (NULL == /*_._VALDATA___V385*/ meltfptr[384])
9929 {
9930 #if !MELT_HAS_INITIAL_ENVIRONMENT
9931 #error MELT getting named symbol DBGOUTAGAIN_FIELDS without initial environment
9932 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
9933 melt_ptr_t meltsy_DBGOUTAGAIN_FIELDS = melthookproc_HOOK_NAMED_SYMBOL ("DBGOUTAGAIN_FIELDS", (long) MELT_GET);
9934 /*_._VALDATA___V385*/
9935 meltfptr[384] = (melt_ptr_t) meltsy_DBGOUTAGAIN_FIELDS;
9936 } /*endgetnamedsym DBGOUTAGAIN_FIELDS*/
9937
9938
9939 /*^getnamedsymbol*/
9940 /*getnamedsym:DISPLAY_DEBUG_MESSAGE*/
9941
9942 if (NULL == /*_._VALDATA___V387*/ meltfptr[386])
9943 {
9944 #if !MELT_HAS_INITIAL_ENVIRONMENT
9945 #error MELT getting named symbol DISPLAY_DEBUG_MESSAGE without initial environment
9946 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
9947 melt_ptr_t meltsy_DISPLAY_DEBUG_MESSAGE = melthookproc_HOOK_NAMED_SYMBOL ("DISPLAY_DEBUG_MESSAGE", (long) MELT_GET);
9948 /*_._VALDATA___V387*/
9949 meltfptr[386] = (melt_ptr_t) meltsy_DISPLAY_DEBUG_MESSAGE;
9950 } /*endgetnamedsym DISPLAY_DEBUG_MESSAGE*/
9951
9952
9953 /*^getnamedsymbol*/
9954 /*getnamedsym:MELT_DEBUG_FUN*/
9955
9956 if (NULL == /*_._VALDATA___V389*/ meltfptr[388])
9957 {
9958 #if !MELT_HAS_INITIAL_ENVIRONMENT
9959 #error MELT getting named symbol MELT_DEBUG_FUN without initial environment
9960 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
9961 melt_ptr_t meltsy_MELT_DEBUG_FUN = melthookproc_HOOK_NAMED_SYMBOL ("MELT_DEBUG_FUN", (long) MELT_GET);
9962 /*_._VALDATA___V389*/
9963 meltfptr[388] = (melt_ptr_t) meltsy_MELT_DEBUG_FUN;
9964 } /*endgetnamedsym MELT_DEBUG_FUN*/
9965
9966
9967 /*^getnamedsymbol*/
9968 /*getnamedsym:REGISTER_BASICBLOCK_DEBUG_FUN*/
9969
9970 if (NULL == /*_._VALDATA___V391*/ meltfptr[390])
9971 {
9972 #if !MELT_HAS_INITIAL_ENVIRONMENT
9973 #error MELT getting named symbol REGISTER_BASICBLOCK_DEBUG_FUN without initial environment
9974 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
9975 melt_ptr_t meltsy_REGISTER_BASICBLOCK_DEBUG_FUN = melthookproc_HOOK_NAMED_SYMBOL ("REGISTER_BASICBLOCK_DEBUG_FUN", (long) MELT_GET);
9976 /*_._VALDATA___V391*/
9977 meltfptr[390] = (melt_ptr_t) meltsy_REGISTER_BASICBLOCK_DEBUG_FUN;
9978 } /*endgetnamedsym REGISTER_BASICBLOCK_DEBUG_FUN*/
9979
9980
9981 /*^getnamedsymbol*/
9982 /*getnamedsym:REGISTER_EDGE_DEBUG_FUN*/
9983
9984 if (NULL == /*_._VALDATA___V393*/ meltfptr[392])
9985 {
9986 #if !MELT_HAS_INITIAL_ENVIRONMENT
9987 #error MELT getting named symbol REGISTER_EDGE_DEBUG_FUN without initial environment
9988 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
9989 melt_ptr_t meltsy_REGISTER_EDGE_DEBUG_FUN = melthookproc_HOOK_NAMED_SYMBOL ("REGISTER_EDGE_DEBUG_FUN", (long) MELT_GET);
9990 /*_._VALDATA___V393*/
9991 meltfptr[392] = (melt_ptr_t) meltsy_REGISTER_EDGE_DEBUG_FUN;
9992 } /*endgetnamedsym REGISTER_EDGE_DEBUG_FUN*/
9993
9994
9995 /*^getnamedsymbol*/
9996 /*getnamedsym:REGISTER_GIMPLE_DEBUG_FUN*/
9997
9998 if (NULL == /*_._VALDATA___V395*/ meltfptr[394])
9999 {
10000 #if !MELT_HAS_INITIAL_ENVIRONMENT
10001 #error MELT getting named symbol REGISTER_GIMPLE_DEBUG_FUN without initial environment
10002 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
10003 melt_ptr_t meltsy_REGISTER_GIMPLE_DEBUG_FUN = melthookproc_HOOK_NAMED_SYMBOL ("REGISTER_GIMPLE_DEBUG_FUN", (long) MELT_GET);
10004 /*_._VALDATA___V395*/
10005 meltfptr[394] = (melt_ptr_t) meltsy_REGISTER_GIMPLE_DEBUG_FUN;
10006 } /*endgetnamedsym REGISTER_GIMPLE_DEBUG_FUN*/
10007
10008
10009 /*^getnamedsymbol*/
10010 /*getnamedsym:REGISTER_GIMPLESEQ_DEBUG_FUN*/
10011
10012 if (NULL == /*_._VALDATA___V397*/ meltfptr[396])
10013 {
10014 #if !MELT_HAS_INITIAL_ENVIRONMENT
10015 #error MELT getting named symbol REGISTER_GIMPLESEQ_DEBUG_FUN without initial environment
10016 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
10017 melt_ptr_t meltsy_REGISTER_GIMPLESEQ_DEBUG_FUN = melthookproc_HOOK_NAMED_SYMBOL ("REGISTER_GIMPLESEQ_DEBUG_FUN", (long) MELT_GET);
10018 /*_._VALDATA___V397*/
10019 meltfptr[396] = (melt_ptr_t) meltsy_REGISTER_GIMPLESEQ_DEBUG_FUN;
10020 } /*endgetnamedsym REGISTER_GIMPLESEQ_DEBUG_FUN*/
10021
10022
10023 /*^getnamedsymbol*/
10024 /*getnamedsym:REGISTER_LOOP_DEBUG_FUN*/
10025
10026 if (NULL == /*_._VALDATA___V399*/ meltfptr[398])
10027 {
10028 #if !MELT_HAS_INITIAL_ENVIRONMENT
10029 #error MELT getting named symbol REGISTER_LOOP_DEBUG_FUN without initial environment
10030 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
10031 melt_ptr_t meltsy_REGISTER_LOOP_DEBUG_FUN = melthookproc_HOOK_NAMED_SYMBOL ("REGISTER_LOOP_DEBUG_FUN", (long) MELT_GET);
10032 /*_._VALDATA___V399*/
10033 meltfptr[398] = (melt_ptr_t) meltsy_REGISTER_LOOP_DEBUG_FUN;
10034 } /*endgetnamedsym REGISTER_LOOP_DEBUG_FUN*/
10035
10036
10037 /*^getnamedsymbol*/
10038 /*getnamedsym:REGISTER_TREE_DEBUG_FUN*/
10039
10040 if (NULL == /*_._VALDATA___V401*/ meltfptr[400])
10041 {
10042 #if !MELT_HAS_INITIAL_ENVIRONMENT
10043 #error MELT getting named symbol REGISTER_TREE_DEBUG_FUN without initial environment
10044 #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/
10045 melt_ptr_t meltsy_REGISTER_TREE_DEBUG_FUN = melthookproc_HOOK_NAMED_SYMBOL ("REGISTER_TREE_DEBUG_FUN", (long) MELT_GET);
10046 /*_._VALDATA___V401*/
10047 meltfptr[400] = (melt_ptr_t) meltsy_REGISTER_TREE_DEBUG_FUN;
10048 } /*endgetnamedsym REGISTER_TREE_DEBUG_FUN*/
10049
10050
10051 /*^comment*/
10052 /**COMMENT: before getting imported values thru hook **/;
10053
10054 MELT_LOCATION("warmelt-debug.melt:4:/ compute");
10055 /*_.HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER__V7*/
10056 meltfptr[6] =
10057 /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER", "warmelt-debug", /*_._PREVENV___V4*/ meltfptr[3]) ;
10058 MELT_LOCATION("warmelt-debug.melt:42:/ compute");
10059 /*_.CLASS_ROOT__V8*/
10060 meltfptr[7] =
10061 /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_ROOT", "warmelt-debug", /*_._PREVENV___V4*/ meltfptr[3]) ;
10062 MELT_LOCATION("warmelt-debug.melt:90:/ compute");
10063 /*_.CLASS_SELECTOR__V9*/
10064 meltfptr[8] =
10065 /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_SELECTOR", "warmelt-debug", /*_._PREVENV___V4*/ meltfptr[3]) ;
10066 MELT_LOCATION("warmelt-debug.melt:110:/ compute");
10067 /*_.CLASS_REFERENCE__V10*/
10068 meltfptr[9] =
10069 /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_REFERENCE", "warmelt-debug", /*_._PREVENV___V4*/ meltfptr[3]) ;
10070 MELT_LOCATION("warmelt-debug.melt:188:/ compute");
10071 /*_.CLASS_DISCRIMINANT__V11*/
10072 meltfptr[10] =
10073 /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_DISCRIMINANT", "warmelt-debug", /*_._PREVENV___V4*/ meltfptr[3]) ;
10074 /*^compute*/
10075 /*_.DISCR_CLOSURE__V12*/
10076 meltfptr[11] =
10077 /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DISCR_CLOSURE", "warmelt-debug", /*_._PREVENV___V4*/ meltfptr[3]) ;
10078 MELT_LOCATION("warmelt-debug.melt:202:/ compute");
10079 /*_.INITIAL_SYSTEM_DATA__V13*/
10080 meltfptr[12] =
10081 /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "INITIAL_SYSTEM_DATA", "warmelt-debug", /*_._PREVENV___V4*/ meltfptr[3]) ;
10082 /*^compute*/
10083 /*_.CLASS_SYSTEM_DATA__V14*/
10084 meltfptr[13] =
10085 /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_SYSTEM_DATA", "warmelt-debug", /*_._PREVENV___V4*/ meltfptr[3]) ;
10086 MELT_LOCATION("warmelt-debug.melt:205:/ compute");
10087 /*_.DISCR_MAP_OBJECTS__V15*/
10088 meltfptr[14] =
10089 /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DISCR_MAP_OBJECTS", "warmelt-debug", /*_._PREVENV___V4*/ meltfptr[3]) ;
10090 MELT_LOCATION("warmelt-debug.melt:206:/ compute");
10091 /*_.DISCR_INTEGER__V16*/
10092 meltfptr[15] =
10093 /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DISCR_INTEGER", "warmelt-debug", /*_._PREVENV___V4*/ meltfptr[3]) ;
10094 MELT_LOCATION("warmelt-debug.melt:232:/ compute");
10095 /*_.DISCR_STRBUF__V17*/
10096 meltfptr[16] =
10097 /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DISCR_STRBUF", "warmelt-debug", /*_._PREVENV___V4*/ meltfptr[3]) ;
10098 MELT_LOCATION("warmelt-debug.melt:233:/ compute");
10099 /*_.MELT_ASSERT_FAILURE_FUN__V18*/
10100 meltfptr[17] =
10101 /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "MELT_ASSERT_FAILURE_FUN", "warmelt-debug", /*_._PREVENV___V4*/ meltfptr[3]) ;
10102 MELT_LOCATION("warmelt-debug.melt:264:/ compute");
10103 /*_.ADD2OUT__V19*/
10104 meltfptr[18] =
10105 /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "ADD2OUT", "warmelt-debug", /*_._PREVENV___V4*/ meltfptr[3]) ;
10106 MELT_LOCATION("warmelt-debug.melt:289:/ compute");
10107 /*_.CSTRING_PREFIXED__V20*/
10108 meltfptr[19] =
10109 /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CSTRING_PREFIXED", "warmelt-debug", /*_._PREVENV___V4*/ meltfptr[3]) ;
10110 MELT_LOCATION("warmelt-debug.melt:380:/ compute");
10111 /*_.CLASS_NAMED__V21*/
10112 meltfptr[20] =
10113 /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_NAMED", "warmelt-debug", /*_._PREVENV___V4*/ meltfptr[3]) ;
10114 MELT_LOCATION("warmelt-debug.melt:388:/ compute");
10115 /*_.CLASS_QUASI_CTYPE__V22*/
10116 meltfptr[21] =
10117 /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_QUASI_CTYPE", "warmelt-debug", /*_._PREVENV___V4*/ meltfptr[3]) ;
10118 MELT_LOCATION("warmelt-debug.melt:558:/ compute");
10119 /*_.INSTALL_METHOD__V23*/
10120 meltfptr[22] =
10121 /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "INSTALL_METHOD", "warmelt-debug", /*_._PREVENV___V4*/ meltfptr[3]) ;
10122 /*^compute*/
10123 /*_.DISCR_NULL_RECEIVER__V24*/
10124 meltfptr[23] =
10125 /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DISCR_NULL_RECEIVER", "warmelt-debug", /*_._PREVENV___V4*/ meltfptr[3]) ;
10126 MELT_LOCATION("warmelt-debug.melt:567:/ compute");
10127 /*_.DISCR_STRING__V25*/
10128 meltfptr[24] =
10129 /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DISCR_STRING", "warmelt-debug", /*_._PREVENV___V4*/ meltfptr[3]) ;
10130 MELT_LOCATION("warmelt-debug.melt:572:/ compute");
10131 /*_.DISCR_VERBATIM_STRING__V26*/
10132 meltfptr[25] =
10133 /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DISCR_VERBATIM_STRING", "warmelt-debug", /*_._PREVENV___V4*/ meltfptr[3]) ;
10134 MELT_LOCATION("warmelt-debug.melt:686:/ compute");
10135 /*_.DISCR_CONSTANT_INTEGER__V27*/
10136 meltfptr[26] =
10137 /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DISCR_CONSTANT_INTEGER", "warmelt-debug", /*_._PREVENV___V4*/ meltfptr[3]) ;
10138 MELT_LOCATION("warmelt-debug.melt:704:/ compute");
10139 /*_.DISCR_DOUBLE__V28*/
10140 meltfptr[27] =
10141 /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DISCR_DOUBLE", "warmelt-debug", /*_._PREVENV___V4*/ meltfptr[3]) ;
10142 MELT_LOCATION("warmelt-debug.melt:706:/ compute");
10143 /*_.DISCR_CONSTANT_DOUBLE__V29*/
10144 meltfptr[28] =
10145 /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DISCR_CONSTANT_DOUBLE", "warmelt-debug", /*_._PREVENV___V4*/ meltfptr[3]) ;
10146 MELT_LOCATION("warmelt-debug.melt:723:/ compute");
10147 /*_.DISCR_MIXED_INTEGER__V30*/
10148 meltfptr[29] =
10149 /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DISCR_MIXED_INTEGER", "warmelt-debug", /*_._PREVENV___V4*/ meltfptr[3]) ;
10150 MELT_LOCATION("warmelt-debug.melt:753:/ compute");
10151 /*_.DISCR_MIXED_LOCATION__V31*/
10152 meltfptr[30] =
10153 /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DISCR_MIXED_LOCATION", "warmelt-debug", /*_._PREVENV___V4*/ meltfptr[3]) ;
10154 MELT_LOCATION("warmelt-debug.melt:796:/ compute");
10155 /*_.DISCR_MIXED_BIGINT__V32*/
10156 meltfptr[31] =
10157 /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DISCR_MIXED_BIGINT", "warmelt-debug", /*_._PREVENV___V4*/ meltfptr[3]) ;
10158 MELT_LOCATION("warmelt-debug.melt:804:/ compute");
10159 /*_.DISCR_MULTIPLE__V33*/
10160 meltfptr[32] =
10161 /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DISCR_MULTIPLE", "warmelt-debug", /*_._PREVENV___V4*/ meltfptr[3]) ;
10162 MELT_LOCATION("warmelt-debug.melt:841:/ compute");
10163 /*_.DISCR_ROUTINE__V34*/
10164 meltfptr[33] =
10165 /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DISCR_ROUTINE", "warmelt-debug", /*_._PREVENV___V4*/ meltfptr[3]) ;
10166 MELT_LOCATION("warmelt-debug.melt:849:/ compute");
10167 /*_.ROUTINE_EVERY__V35*/
10168 meltfptr[34] =
10169 /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "ROUTINE_EVERY", "warmelt-debug", /*_._PREVENV___V4*/ meltfptr[3]) ;
10170 MELT_LOCATION("warmelt-debug.melt:876:/ compute");
10171 /*_.HOOK_EVERY__V36*/
10172 meltfptr[35] =
10173 /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "HOOK_EVERY", "warmelt-debug", /*_._PREVENV___V4*/ meltfptr[3]) ;
10174 MELT_LOCATION("warmelt-debug.melt:890:/ compute");
10175 /*_.DISCR_HOOK__V37*/
10176 meltfptr[36] =
10177 /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DISCR_HOOK", "warmelt-debug", /*_._PREVENV___V4*/ meltfptr[3]) ;
10178 MELT_LOCATION("warmelt-debug.melt:948:/ compute");
10179 /*_.DISCR_LIST__V38*/
10180 meltfptr[37] =
10181 /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DISCR_LIST", "warmelt-debug", /*_._PREVENV___V4*/ meltfptr[3]) ;
10182 MELT_LOCATION("warmelt-debug.melt:995:/ compute");
10183 /*_.DISCR_PAIR__V39*/
10184 meltfptr[38] =
10185 /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DISCR_PAIR", "warmelt-debug", /*_._PREVENV___V4*/ meltfptr[3]) ;
10186 MELT_LOCATION("warmelt-debug.melt:1052:/ compute");
10187 /*_.MAPOBJECT_EVERY__V40*/
10188 meltfptr[39] =
10189 /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "MAPOBJECT_EVERY", "warmelt-debug", /*_._PREVENV___V4*/ meltfptr[3]) ;
10190 MELT_LOCATION("warmelt-debug.melt:1065:/ compute");
10191 /*_.MULTIPLE_SORT__V41*/
10192 meltfptr[40] =
10193 /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "MULTIPLE_SORT", "warmelt-debug", /*_._PREVENV___V4*/ meltfptr[3]) ;
10194 MELT_LOCATION("warmelt-debug.melt:1075:/ compute");
10195 /*_.COMPARE_OBJ_RANKED__V42*/
10196 meltfptr[41] =
10197 /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "COMPARE_OBJ_RANKED", "warmelt-debug", /*_._PREVENV___V4*/ meltfptr[3]) ;
10198 MELT_LOCATION("warmelt-debug.melt:1081:/ compute");
10199 /*_.MULTIPLE_EVERY__V43*/
10200 meltfptr[42] =
10201 /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "MULTIPLE_EVERY", "warmelt-debug", /*_._PREVENV___V4*/ meltfptr[3]) ;
10202 MELT_LOCATION("warmelt-debug.melt:1141:/ compute");
10203 /*_.MAPSTRING_EVERY__V44*/
10204 meltfptr[43] =
10205 /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "MAPSTRING_EVERY", "warmelt-debug", /*_._PREVENV___V4*/ meltfptr[3]) ;
10206 MELT_LOCATION("warmelt-debug.melt:1186:/ compute");
10207 /*_.DISCR_MAP_STRINGS__V45*/
10208 meltfptr[44] =
10209 /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DISCR_MAP_STRINGS", "warmelt-debug", /*_._PREVENV___V4*/ meltfptr[3]) ;
10210 MELT_LOCATION("warmelt-debug.melt:1224:/ compute");
10211 /*_.DISCR_BUCKET_LONGS__V46*/
10212 meltfptr[45] =
10213 /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DISCR_BUCKET_LONGS", "warmelt-debug", /*_._PREVENV___V4*/ meltfptr[3]) ;
10214 MELT_LOCATION("warmelt-debug.melt:1259:/ compute");
10215 /*_.DISCR_JSONOBJECT__V47*/
10216 meltfptr[46] =
10217 /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DISCR_JSONOBJECT", "warmelt-debug", /*_._PREVENV___V4*/ meltfptr[3]) ;
10218 MELT_LOCATION("warmelt-debug.melt:1295:/ compute");
10219 /*_.DISCR_ANY_RECEIVER__V48*/
10220 meltfptr[47] =
10221 /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DISCR_ANY_RECEIVER", "warmelt-debug", /*_._PREVENV___V4*/ meltfptr[3]) ;
10222 MELT_LOCATION("warmelt-debug.melt:1373:/ compute");
10223 /*_.CLASS_SYMBOL__V49*/
10224 meltfptr[48] =
10225 /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_SYMBOL", "warmelt-debug", /*_._PREVENV___V4*/ meltfptr[3]) ;
10226 MELT_LOCATION("warmelt-debug.melt:1401:/ compute");
10227 /*_.CLASS_CLASS__V50*/
10228 meltfptr[49] =
10229 /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_CLASS", "warmelt-debug", /*_._PREVENV___V4*/ meltfptr[3]) ;
10230 MELT_LOCATION("warmelt-debug.melt:1411:/ compute");
10231 /*_.CLASS_KEYWORD__V51*/
10232 meltfptr[50] =
10233 /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_KEYWORD", "warmelt-debug", /*_._PREVENV___V4*/ meltfptr[3]) ;
10234 MELT_LOCATION("warmelt-debug.melt:1445:/ compute");
10235 /*_.CLASS_CLONED_SYMBOL__V52*/
10236 meltfptr[51] =
10237 /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_CLONED_SYMBOL", "warmelt-debug", /*_._PREVENV___V4*/ meltfptr[3]) ;
10238 MELT_LOCATION("warmelt-debug.melt:1460:/ compute");
10239 /*_.CLASS_ENVIRONMENT__V53*/
10240 meltfptr[52] =
10241 /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_ENVIRONMENT", "warmelt-debug", /*_._PREVENV___V4*/ meltfptr[3]) ;
10242 MELT_LOCATION("warmelt-debug.melt:1498:/ compute");
10243 /*_.ENV_PREV__V54*/
10244 meltfptr[53] =
10245 /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "ENV_PREV", "warmelt-debug", /*_._PREVENV___V4*/ meltfptr[3]) ;
10246 MELT_LOCATION("warmelt-debug.melt:1519:/ compute");
10247 /*_.CLASS_DESCRIBED_ENVIRONMENT__V55*/
10248 meltfptr[54] =
10249 /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_DESCRIBED_ENVIRONMENT", "warmelt-debug", /*_._PREVENV___V4*/ meltfptr[3]) ;
10250 MELT_LOCATION("warmelt-debug.melt:1539:/ compute");
10251 /*_.CLASS_CTYPE__V56*/
10252 meltfptr[55] =
10253 /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_CTYPE", "warmelt-debug", /*_._PREVENV___V4*/ meltfptr[3]) ;
10254 MELT_LOCATION("warmelt-debug.melt:1554:/ compute");
10255 /*_.CLASS_ANY_BINDING__V57*/
10256 meltfptr[56] =
10257 /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_ANY_BINDING", "warmelt-debug", /*_._PREVENV___V4*/ meltfptr[3]) ;
10258 /**COMMENT: after getting imported values **/;
10259
10260 /**initial routine cdata initializer**/
10261
10262 memset(meltpredefinited, 0, sizeof(meltpredefinited));
10263 melt_initialize_module_meltdata_WARMELTmiDEBUG (&meltfram__, meltpredefinited);
10264 /**initial routine body**/
10265
10266 debugeprintf (" in initialization of warmelt-debug thru 8 chunk routines with frame @%p of %d bytes",
10267 /*fromline 2338*/ (void*)&meltfram__, (int) sizeof(meltfram__));
10268 melt_debuggc_eprintf ("initialization of warmelt-debug thru 8 chunks, frame @%p of %d bytes",
10269 (void*)&meltfram__, (int) sizeof(meltfram__));
10270
10271 meltmod__WARMELTmiDEBUG__initialmeltchunk_0 (&meltfram__, meltpredefinited);
10272 meltmod__WARMELTmiDEBUG__initialmeltchunk_1 (&meltfram__, meltpredefinited);
10273 meltmod__WARMELTmiDEBUG__initialmeltchunk_2 (&meltfram__, meltpredefinited);
10274 meltmod__WARMELTmiDEBUG__initialmeltchunk_3 (&meltfram__, meltpredefinited);
10275 meltmod__WARMELTmiDEBUG__initialmeltchunk_4 (&meltfram__, meltpredefinited);
10276 meltmod__WARMELTmiDEBUG__initialmeltchunk_5 (&meltfram__, meltpredefinited);
10277 meltmod__WARMELTmiDEBUG__initialmeltchunk_6 (&meltfram__, meltpredefinited);
10278 meltmod__WARMELTmiDEBUG__initialmeltchunk_7 (&meltfram__, meltpredefinited);;
10279 goto meltlabend_rout;
10280 meltlabend_rout:
10281 ;
10282 {
10283 /* return out of initial fromline 2371 */ melt_ptr_t retval = /*_._RETINIT___V1*/ meltfptr[0];
10284 debugeprintf ("returning @%p from initial routine of warmelt-debug", (void*)retval); /*fromline 2379*/
10285 return retval;
10286 }
10287 #undef meltcallcount
10288 #undef meltfram__
10289 #undef MELTFRAM_NBVARNUM
10290 #undef MELTFRAM_NBVARPTR
10291 } /* end melt_start_this_module fromline 2391 */
10292
10293
10294 void meltmod__WARMELTmiDEBUG__initialmeltchunk_0 (meltinitial_frame_t* meltframptr__, char meltpredefinited[])
10295 {
10296 #define meltfram__ (*meltframptr__)
10297 #undef meltcallcount
10298 #define meltcallcount 0L
10299 (void) meltpredefinited;
10300 /**COMMENT: start of oinibody **/;
10301
10302 /*putslot*/
10303 melt_assertmsg("checkobj putslot ~dsym_1__HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V58*/ meltfptr[57])) == MELTOBMAG_OBJECT);
10304
10305 melt_assertmsg("checkoff putslot ~dsym_1__HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V58*/ meltfptr[57]))));
10306 ((meltobject_ptr_t)(/*_._VALDATA___V58*/ meltfptr[57]))->obj_vartab[1] = (melt_ptr_t)(
10307 /*_._VALSTR___V59*/ meltfptr[58]);
10308
10309 /*touch:_VALUEDATA_*/
10310 meltgc_touch(/*_._VALDATA___V58*/ meltfptr[57]);
10311
10312
10313 melt_dbgtrace_written_object (/*_._VALDATA___V58*/ meltfptr[57], "new static instance");
10314
10315 /*putslot*/
10316 melt_assertmsg("checkobj putslot ~dsym_3__CLASS_DEBUG_INFORMATION @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V60*/ meltfptr[59])) == MELTOBMAG_OBJECT);
10317
10318 melt_assertmsg("checkoff putslot ~dsym_3__CLASS_DEBUG_INFORMATION @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V60*/ meltfptr[59]))));
10319 ((meltobject_ptr_t)(/*_._VALDATA___V60*/ meltfptr[59]))->obj_vartab[1] = (melt_ptr_t)(
10320 /*_._VALSTR___V61*/ meltfptr[60]);
10321
10322 /*touch:_VALUEDATA_*/
10323 meltgc_touch(/*_._VALDATA___V60*/ meltfptr[59]);
10324
10325
10326 melt_dbgtrace_written_object (/*_._VALDATA___V60*/ meltfptr[59], "new static instance");
10327
10328 /*putslot*/
10329 melt_assertmsg("checkobj putslot ~dsym_5__CLASS_ROOT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V62*/ meltfptr[61])) == MELTOBMAG_OBJECT);
10330
10331 melt_assertmsg("checkoff putslot ~dsym_5__CLASS_ROOT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V62*/ meltfptr[61]))));
10332 ((meltobject_ptr_t)(/*_._VALDATA___V62*/ meltfptr[61]))->obj_vartab[1] = (melt_ptr_t)(
10333 /*_._VALSTR___V63*/ meltfptr[62]);
10334
10335 /*touch:_VALUEDATA_*/
10336 meltgc_touch(/*_._VALDATA___V62*/ meltfptr[61]);
10337
10338
10339 melt_dbgtrace_written_object (/*_._VALDATA___V62*/ meltfptr[61], "new static instance");
10340
10341 MELT_LOCATION("warmelt-debug.melt:42:/ initchunk");
10342 /*^putslot*/
10343 /*putslot*/
10344 melt_assertmsg("checkobj putslot ~dobj_7__CLASS_DEBUG_INFORMATION @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V64*/ meltfptr[63])) == MELTOBMAG_OBJECT);
10345
10346 melt_assertmsg("checkoff putslot ~dobj_7__CLASS_DEBUG_INFORMATION @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V64*/ meltfptr[63]))));
10347 ((meltobject_ptr_t)(/*_._VALDATA___V64*/ meltfptr[63]))->obj_vartab[1] = (melt_ptr_t)(
10348 /*_._VALSTR___V65*/ meltfptr[64]);
10349
10350 MELT_LOCATION("warmelt-debug.melt:42:/ initchunk");
10351 /*^putslot*/
10352 /*putslot*/
10353 melt_assertmsg("checkobj putslot ~dobj_7__CLASS_DEBUG_INFORMATION @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V64*/ meltfptr[63])) == MELTOBMAG_OBJECT);
10354
10355 melt_assertmsg("checkoff putslot ~dobj_7__CLASS_DEBUG_INFORMATION @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V64*/ meltfptr[63]))));
10356 ((meltobject_ptr_t)(/*_._VALDATA___V64*/ meltfptr[63]))->obj_vartab[4] = (melt_ptr_t)(
10357 /*_.CLASS_ROOT__V8*/ meltfptr[7]);
10358
10359 /*putupl#7*/
10360 melt_assertmsg("putupl #7 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V66*/ meltfptr[65]))== MELTOBMAG_MULTIPLE);
10361 melt_assertmsg("putupl #7 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V66*/ meltfptr[65]))));
10362 ((meltmultiple_ptr_t)(/*_._VALTUP___V66*/ meltfptr[65]))->tabval[0] = (melt_ptr_t)(/*_.CLASS_ROOT__V8*/ meltfptr[7]);
10363
10364 /*touch:_INITUP_*/
10365 meltgc_touch(/*_._VALTUP___V66*/ meltfptr[65]);
10366
10367 MELT_LOCATION("warmelt-debug.melt:42:/ initchunk");
10368 /*^putslot*/
10369 /*putslot*/
10370 melt_assertmsg("checkobj putslot ~dobj_7__CLASS_DEBUG_INFORMATION @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V64*/ meltfptr[63])) == MELTOBMAG_OBJECT);
10371
10372 melt_assertmsg("checkoff putslot ~dobj_7__CLASS_DEBUG_INFORMATION @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V64*/ meltfptr[63]))));
10373 ((meltobject_ptr_t)(/*_._VALDATA___V64*/ meltfptr[63]))->obj_vartab[5] = (melt_ptr_t)(
10374 /*_._VALTUP___V66*/ meltfptr[65]);
10375
10376 MELT_LOCATION("warmelt-debug.melt:42:/ initchunk");
10377 /*^putslot*/
10378 /*putslot*/
10379 melt_assertmsg("checkobj putslot ~dobj_13__DBGI_OUT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V67*/ meltfptr[66])) == MELTOBMAG_OBJECT);
10380
10381 melt_assertmsg("checkoff putslot ~dobj_13__DBGI_OUT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V67*/ meltfptr[66]))));
10382 ((meltobject_ptr_t)(/*_._VALDATA___V67*/ meltfptr[66]))->obj_vartab[1] = (melt_ptr_t)(
10383 /*_._VALSTR___V68*/ meltfptr[67]);
10384
10385 MELT_LOCATION("warmelt-debug.melt:42:/ initchunk");
10386 /*^putslot*/
10387 /*putslot*/
10388 melt_assertmsg("checkobj putslot ~dobj_13__DBGI_OUT @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V67*/ meltfptr[66])) == MELTOBMAG_OBJECT);
10389
10390 melt_assertmsg("checkoff putslot ~dobj_13__DBGI_OUT @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V67*/ meltfptr[66]))));
10391 ((meltobject_ptr_t)(/*_._VALDATA___V67*/ meltfptr[66]))->obj_vartab[2] = (melt_ptr_t)(
10392 /*_._VALDATA___V64*/ meltfptr[63]);
10393
10394 MELT_LOCATION("warmelt-debug.melt:42:/ initchunk");
10395 /*^touch*/
10396 /*touch:_VALUEDATA_*/
10397 meltgc_touch(/*_._VALDATA___V67*/ meltfptr[66]);
10398
10399 MELT_LOCATION("warmelt-debug.melt:42:/ initchunk");
10400 /*^touchobj*/
10401
10402 melt_dbgtrace_written_object (/*_._VALDATA___V67*/ meltfptr[66], "new static instance");
10403
10404 MELT_LOCATION("warmelt-debug.melt:42:/ initchunk");
10405 /*^putslot*/
10406 /*putslot*/
10407 melt_assertmsg("checkobj putslot ~dobj_17__DBGI_OCCMAP @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V69*/ meltfptr[68])) == MELTOBMAG_OBJECT);
10408
10409 melt_assertmsg("checkoff putslot ~dobj_17__DBGI_OCCMAP @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V69*/ meltfptr[68]))));
10410 ((meltobject_ptr_t)(/*_._VALDATA___V69*/ meltfptr[68]))->obj_vartab[1] = (melt_ptr_t)(
10411 /*_._VALSTR___V70*/ meltfptr[69]);
10412
10413 MELT_LOCATION("warmelt-debug.melt:42:/ initchunk");
10414 /*^putslot*/
10415 /*putslot*/
10416 melt_assertmsg("checkobj putslot ~dobj_17__DBGI_OCCMAP @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V69*/ meltfptr[68])) == MELTOBMAG_OBJECT);
10417
10418 melt_assertmsg("checkoff putslot ~dobj_17__DBGI_OCCMAP @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V69*/ meltfptr[68]))));
10419 ((meltobject_ptr_t)(/*_._VALDATA___V69*/ meltfptr[68]))->obj_vartab[2] = (melt_ptr_t)(
10420 /*_._VALDATA___V64*/ meltfptr[63]);
10421
10422 MELT_LOCATION("warmelt-debug.melt:42:/ initchunk");
10423 /*^touch*/
10424 /*touch:_VALUEDATA_*/
10425 meltgc_touch(/*_._VALDATA___V69*/ meltfptr[68]);
10426
10427 MELT_LOCATION("warmelt-debug.melt:42:/ initchunk");
10428 /*^touchobj*/
10429
10430 melt_dbgtrace_written_object (/*_._VALDATA___V69*/ meltfptr[68], "new static instance");
10431
10432 MELT_LOCATION("warmelt-debug.melt:42:/ initchunk");
10433 /*^putslot*/
10434 /*putslot*/
10435 melt_assertmsg("checkobj putslot ~dobj_21__DBGI_MAXDEPTH @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V71*/ meltfptr[70])) == MELTOBMAG_OBJECT);
10436
10437 melt_assertmsg("checkoff putslot ~dobj_21__DBGI_MAXDEPTH @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V71*/ meltfptr[70]))));
10438 ((meltobject_ptr_t)(/*_._VALDATA___V71*/ meltfptr[70]))->obj_vartab[1] = (melt_ptr_t)(
10439 /*_._VALSTR___V72*/ meltfptr[71]);
10440
10441 MELT_LOCATION("warmelt-debug.melt:42:/ initchunk");
10442 /*^putslot*/
10443 /*putslot*/
10444 melt_assertmsg("checkobj putslot ~dobj_21__DBGI_MAXDEPTH @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V71*/ meltfptr[70])) == MELTOBMAG_OBJECT);
10445
10446 melt_assertmsg("checkoff putslot ~dobj_21__DBGI_MAXDEPTH @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V71*/ meltfptr[70]))));
10447 ((meltobject_ptr_t)(/*_._VALDATA___V71*/ meltfptr[70]))->obj_vartab[2] = (melt_ptr_t)(
10448 /*_._VALDATA___V64*/ meltfptr[63]);
10449
10450 MELT_LOCATION("warmelt-debug.melt:42:/ initchunk");
10451 /*^touch*/
10452 /*touch:_VALUEDATA_*/
10453 meltgc_touch(/*_._VALDATA___V71*/ meltfptr[70]);
10454
10455 MELT_LOCATION("warmelt-debug.melt:42:/ initchunk");
10456 /*^touchobj*/
10457
10458 melt_dbgtrace_written_object (/*_._VALDATA___V71*/ meltfptr[70], "new static instance");
10459
10460 /*putupl#8*/
10461 melt_assertmsg("putupl #8 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V73*/ meltfptr[72]))== MELTOBMAG_MULTIPLE);
10462 melt_assertmsg("putupl #8 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V73*/ meltfptr[72]))));
10463 ((meltmultiple_ptr_t)(/*_._VALTUP___V73*/ meltfptr[72]))->tabval[0] = (melt_ptr_t)(/*_._VALDATA___V67*/ meltfptr[66]);
10464
10465 /*putupl#9*/
10466 melt_assertmsg("putupl #9 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V73*/ meltfptr[72]))== MELTOBMAG_MULTIPLE);
10467 melt_assertmsg("putupl #9 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V73*/ meltfptr[72]))));
10468 ((meltmultiple_ptr_t)(/*_._VALTUP___V73*/ meltfptr[72]))->tabval[1] = (melt_ptr_t)(/*_._VALDATA___V69*/ meltfptr[68]);
10469
10470 /*putupl#10*/
10471 melt_assertmsg("putupl #10 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V73*/ meltfptr[72]))== MELTOBMAG_MULTIPLE);
10472 melt_assertmsg("putupl #10 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V73*/ meltfptr[72]))));
10473 ((meltmultiple_ptr_t)(/*_._VALTUP___V73*/ meltfptr[72]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V71*/ meltfptr[70]);
10474
10475 /*touch:_INITUP_*/
10476 meltgc_touch(/*_._VALTUP___V73*/ meltfptr[72]);
10477
10478 MELT_LOCATION("warmelt-debug.melt:42:/ initchunk");
10479 /*^putslot*/
10480 /*putslot*/
10481 melt_assertmsg("checkobj putslot ~dobj_7__CLASS_DEBUG_INFORMATION @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V64*/ meltfptr[63])) == MELTOBMAG_OBJECT);
10482
10483 melt_assertmsg("checkoff putslot ~dobj_7__CLASS_DEBUG_INFORMATION @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V64*/ meltfptr[63]))));
10484 ((meltobject_ptr_t)(/*_._VALDATA___V64*/ meltfptr[63]))->obj_vartab[6] = (melt_ptr_t)(
10485 /*_._VALTUP___V73*/ meltfptr[72]);
10486
10487 MELT_LOCATION("warmelt-debug.melt:42:/ initchunk");
10488 /*^touch*/
10489 /*touch:_VALUEDATA_*/
10490 meltgc_touch(/*_._VALDATA___V64*/ meltfptr[63]);
10491
10492 MELT_LOCATION("warmelt-debug.melt:42:/ initchunk");
10493 /*^touchobj*/
10494
10495 melt_dbgtrace_written_object (/*_._VALDATA___V64*/ meltfptr[63], "new static instance");
10496
10497 /*putslot*/
10498 melt_assertmsg("checkobj putslot ~dsym_11__DBGI_OUT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V74*/ meltfptr[73])) == MELTOBMAG_OBJECT);
10499
10500 melt_assertmsg("checkoff putslot ~dsym_11__DBGI_OUT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V74*/ meltfptr[73]))));
10501 ((meltobject_ptr_t)(/*_._VALDATA___V74*/ meltfptr[73]))->obj_vartab[1] = (melt_ptr_t)(
10502 /*_._VALSTR___V75*/ meltfptr[74]);
10503
10504 /*touch:_VALUEDATA_*/
10505 meltgc_touch(/*_._VALDATA___V74*/ meltfptr[73]);
10506
10507
10508 melt_dbgtrace_written_object (/*_._VALDATA___V74*/ meltfptr[73], "new static instance");
10509
10510 /*putslot*/
10511 melt_assertmsg("checkobj putslot ~dsym_15__DBGI_OCCMAP @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V76*/ meltfptr[75])) == MELTOBMAG_OBJECT);
10512
10513 melt_assertmsg("checkoff putslot ~dsym_15__DBGI_OCCMAP @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V76*/ meltfptr[75]))));
10514 ((meltobject_ptr_t)(/*_._VALDATA___V76*/ meltfptr[75]))->obj_vartab[1] = (melt_ptr_t)(
10515 /*_._VALSTR___V77*/ meltfptr[76]);
10516
10517 /*touch:_VALUEDATA_*/
10518 meltgc_touch(/*_._VALDATA___V76*/ meltfptr[75]);
10519
10520
10521 melt_dbgtrace_written_object (/*_._VALDATA___V76*/ meltfptr[75], "new static instance");
10522
10523 /*putslot*/
10524 melt_assertmsg("checkobj putslot ~dsym_19__DBGI_MAXDEPTH @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V78*/ meltfptr[77])) == MELTOBMAG_OBJECT);
10525
10526 melt_assertmsg("checkoff putslot ~dsym_19__DBGI_MAXDEPTH @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V78*/ meltfptr[77]))));
10527 ((meltobject_ptr_t)(/*_._VALDATA___V78*/ meltfptr[77]))->obj_vartab[1] = (melt_ptr_t)(
10528 /*_._VALSTR___V79*/ meltfptr[78]);
10529
10530 /*touch:_VALUEDATA_*/
10531 meltgc_touch(/*_._VALDATA___V78*/ meltfptr[77]);
10532
10533
10534 melt_dbgtrace_written_object (/*_._VALDATA___V78*/ meltfptr[77], "new static instance");
10535
10536 /*putslot*/
10537 melt_assertmsg("checkobj putslot ~dsym_23__CLASS_DEBUG_OUTPUT_INFORMATION @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V80*/ meltfptr[79])) == MELTOBMAG_OBJECT);
10538
10539 melt_assertmsg("checkoff putslot ~dsym_23__CLASS_DEBUG_OUTPUT_INFORMATION @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V80*/ meltfptr[79]))));
10540 ((meltobject_ptr_t)(/*_._VALDATA___V80*/ meltfptr[79]))->obj_vartab[1] = (melt_ptr_t)(
10541 /*_._VALSTR___V81*/ meltfptr[80]);
10542
10543 /*touch:_VALUEDATA_*/
10544 meltgc_touch(/*_._VALDATA___V80*/ meltfptr[79]);
10545
10546
10547 melt_dbgtrace_written_object (/*_._VALDATA___V80*/ meltfptr[79], "new static instance");
10548
10549 MELT_LOCATION("warmelt-debug.melt:53:/ initchunk");
10550 /*^putslot*/
10551 /*putslot*/
10552 melt_assertmsg("checkobj putslot ~dobj_25__CLASS_DEBUG_OUTPUT_INFORMATION @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V82*/ meltfptr[81])) == MELTOBMAG_OBJECT);
10553
10554 melt_assertmsg("checkoff putslot ~dobj_25__CLASS_DEBUG_OUTPUT_INFORMATION @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V82*/ meltfptr[81]))));
10555 ((meltobject_ptr_t)(/*_._VALDATA___V82*/ meltfptr[81]))->obj_vartab[1] = (melt_ptr_t)(
10556 /*_._VALSTR___V83*/ meltfptr[82]);
10557
10558 MELT_LOCATION("warmelt-debug.melt:53:/ initchunk");
10559 /*^putslot*/
10560 /*putslot*/
10561 melt_assertmsg("checkobj putslot ~dobj_25__CLASS_DEBUG_OUTPUT_INFORMATION @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V82*/ meltfptr[81])) == MELTOBMAG_OBJECT);
10562
10563 melt_assertmsg("checkoff putslot ~dobj_25__CLASS_DEBUG_OUTPUT_INFORMATION @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V82*/ meltfptr[81]))));
10564 ((meltobject_ptr_t)(/*_._VALDATA___V82*/ meltfptr[81]))->obj_vartab[4] = (melt_ptr_t)(
10565 /*_._VALDATA___V64*/ meltfptr[63]);
10566
10567 /*putupl#11*/
10568 melt_assertmsg("putupl #11 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V84*/ meltfptr[83]))== MELTOBMAG_MULTIPLE);
10569 melt_assertmsg("putupl #11 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V84*/ meltfptr[83]))));
10570 ((meltmultiple_ptr_t)(/*_._VALTUP___V84*/ meltfptr[83]))->tabval[0] = (melt_ptr_t)(/*_.CLASS_ROOT__V8*/ meltfptr[7]);
10571
10572 /*putupl#12*/
10573 melt_assertmsg("putupl #12 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V84*/ meltfptr[83]))== MELTOBMAG_MULTIPLE);
10574 melt_assertmsg("putupl #12 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V84*/ meltfptr[83]))));
10575 ((meltmultiple_ptr_t)(/*_._VALTUP___V84*/ meltfptr[83]))->tabval[1] = (melt_ptr_t)(/*_._VALDATA___V64*/ meltfptr[63]);
10576
10577 /*touch:_INITUP_*/
10578 meltgc_touch(/*_._VALTUP___V84*/ meltfptr[83]);
10579
10580 MELT_LOCATION("warmelt-debug.melt:53:/ initchunk");
10581 /*^putslot*/
10582 /*putslot*/
10583 melt_assertmsg("checkobj putslot ~dobj_25__CLASS_DEBUG_OUTPUT_INFORMATION @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V82*/ meltfptr[81])) == MELTOBMAG_OBJECT);
10584
10585 melt_assertmsg("checkoff putslot ~dobj_25__CLASS_DEBUG_OUTPUT_INFORMATION @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V82*/ meltfptr[81]))));
10586 ((meltobject_ptr_t)(/*_._VALDATA___V82*/ meltfptr[81]))->obj_vartab[5] = (melt_ptr_t)(
10587 /*_._VALTUP___V84*/ meltfptr[83]);
10588
10589 /*putupl#13*/
10590 melt_assertmsg("putupl #13 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V85*/ meltfptr[84]))== MELTOBMAG_MULTIPLE);
10591 melt_assertmsg("putupl #13 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V85*/ meltfptr[84]))));
10592 ((meltmultiple_ptr_t)(/*_._VALTUP___V85*/ meltfptr[84]))->tabval[0] = (melt_ptr_t)(/*_._VALDATA___V67*/ meltfptr[66]);
10593
10594 /*putupl#14*/
10595 melt_assertmsg("putupl #14 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V85*/ meltfptr[84]))== MELTOBMAG_MULTIPLE);
10596 melt_assertmsg("putupl #14 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V85*/ meltfptr[84]))));
10597 ((meltmultiple_ptr_t)(/*_._VALTUP___V85*/ meltfptr[84]))->tabval[1] = (melt_ptr_t)(/*_._VALDATA___V69*/ meltfptr[68]);
10598
10599 /*putupl#15*/
10600 melt_assertmsg("putupl #15 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V85*/ meltfptr[84]))== MELTOBMAG_MULTIPLE);
10601 melt_assertmsg("putupl #15 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V85*/ meltfptr[84]))));
10602 ((meltmultiple_ptr_t)(/*_._VALTUP___V85*/ meltfptr[84]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V71*/ meltfptr[70]);
10603
10604 /*touch:_INITUP_*/
10605 meltgc_touch(/*_._VALTUP___V85*/ meltfptr[84]);
10606
10607 MELT_LOCATION("warmelt-debug.melt:53:/ initchunk");
10608 /*^putslot*/
10609 /*putslot*/
10610 melt_assertmsg("checkobj putslot ~dobj_25__CLASS_DEBUG_OUTPUT_INFORMATION @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V82*/ meltfptr[81])) == MELTOBMAG_OBJECT);
10611
10612 melt_assertmsg("checkoff putslot ~dobj_25__CLASS_DEBUG_OUTPUT_INFORMATION @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V82*/ meltfptr[81]))));
10613 ((meltobject_ptr_t)(/*_._VALDATA___V82*/ meltfptr[81]))->obj_vartab[6] = (melt_ptr_t)(
10614 /*_._VALTUP___V85*/ meltfptr[84]);
10615
10616 MELT_LOCATION("warmelt-debug.melt:53:/ initchunk");
10617 /*^touch*/
10618 /*touch:_VALUEDATA_*/
10619 meltgc_touch(/*_._VALDATA___V82*/ meltfptr[81]);
10620
10621 MELT_LOCATION("warmelt-debug.melt:53:/ initchunk");
10622 /*^touchobj*/
10623
10624 melt_dbgtrace_written_object (/*_._VALDATA___V82*/ meltfptr[81], "new static instance");
10625
10626 /*putslot*/
10627 melt_assertmsg("checkobj putslot ~dsym_29__DEBUG_DEPTH @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V86*/ meltfptr[85])) == MELTOBMAG_OBJECT);
10628
10629 melt_assertmsg("checkoff putslot ~dsym_29__DEBUG_DEPTH @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V86*/ meltfptr[85]))));
10630 ((meltobject_ptr_t)(/*_._VALDATA___V86*/ meltfptr[85]))->obj_vartab[1] = (melt_ptr_t)(
10631 /*_._VALSTR___V87*/ meltfptr[86]);
10632
10633 /*touch:_VALUEDATA_*/
10634 meltgc_touch(/*_._VALDATA___V86*/ meltfptr[85]);
10635
10636
10637 melt_dbgtrace_written_object (/*_._VALDATA___V86*/ meltfptr[85], "new static instance");
10638
10639 MELT_LOCATION("warmelt-debug.melt:64:/ initchunk");
10640 /*^putslot*/
10641 /*putslot*/
10642 melt_assertmsg("checkobj putslot ~dobj_31__DEBUG_DEPTH @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V88*/ meltfptr[87])) == MELTOBMAG_OBJECT);
10643
10644 melt_assertmsg("checkoff putslot ~dobj_31__DEBUG_DEPTH @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V88*/ meltfptr[87]))));
10645 ((meltobject_ptr_t)(/*_._VALDATA___V88*/ meltfptr[87]))->obj_vartab[1] = (melt_ptr_t)(
10646 /*_._VALSTR___V89*/ meltfptr[88]);
10647
10648 /*touch:_INITUP_*/
10649 meltgc_touch(/*_._VALTUP___V90*/ meltfptr[89]);
10650
10651 MELT_LOCATION("warmelt-debug.melt:64:/ initchunk");
10652 /*^putslot*/
10653 /*putslot*/
10654 melt_assertmsg("checkobj putslot ~dobj_31__DEBUG_DEPTH @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V88*/ meltfptr[87])) == MELTOBMAG_OBJECT);
10655
10656 melt_assertmsg("checkoff putslot ~dobj_31__DEBUG_DEPTH @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V88*/ meltfptr[87]))));
10657 ((meltobject_ptr_t)(/*_._VALDATA___V88*/ meltfptr[87]))->obj_vartab[2] = (melt_ptr_t)(
10658 /*_._VALTUP___V90*/ meltfptr[89]);
10659
10660 MELT_LOCATION("warmelt-debug.melt:64:/ initchunk");
10661 /*^putslot*/
10662 /*putslot*/
10663 melt_assertmsg("checkobj putslot ~dobj_31__DEBUG_DEPTH @#3", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V88*/ meltfptr[87])) == MELTOBMAG_OBJECT);
10664
10665 melt_assertmsg("checkoff putslot ~dobj_31__DEBUG_DEPTH @#3", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_._VALDATA___V88*/ meltfptr[87]))));
10666 ((meltobject_ptr_t)(/*_._VALDATA___V88*/ meltfptr[87]))->obj_vartab[3] = (melt_ptr_t)(
10667 ((melt_ptr_t)(MELT_PREDEF(CTYPE_LONG))));
10668
10669 /*putupl#16*/
10670 melt_assertmsg("putupl #16 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V92*/ meltfptr[91]))== MELTOBMAG_MULTIPLE);
10671 melt_assertmsg("putupl #16 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V92*/ meltfptr[91]))));
10672 ((meltmultiple_ptr_t)(/*_._VALTUP___V92*/ meltfptr[91]))->tabval[0] = (melt_ptr_t)(/*_._VALSTR___V91*/ meltfptr[90]);
10673
10674 /*touch:_INITUP_*/
10675 meltgc_touch(/*_._VALTUP___V92*/ meltfptr[91]);
10676
10677 MELT_LOCATION("warmelt-debug.melt:64:/ initchunk");
10678 /*^putslot*/
10679 /*putslot*/
10680 melt_assertmsg("checkobj putslot ~dobj_31__DEBUG_DEPTH @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V88*/ meltfptr[87])) == MELTOBMAG_OBJECT);
10681
10682 melt_assertmsg("checkoff putslot ~dobj_31__DEBUG_DEPTH @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V88*/ meltfptr[87]))));
10683 ((meltobject_ptr_t)(/*_._VALDATA___V88*/ meltfptr[87]))->obj_vartab[4] = (melt_ptr_t)(
10684 /*_._VALTUP___V92*/ meltfptr[91]);
10685
10686 MELT_LOCATION("warmelt-debug.melt:64:/ initchunk");
10687 /*^touch*/
10688 /*touch:_VALUEDATA_*/
10689 meltgc_touch(/*_._VALDATA___V88*/ meltfptr[87]);
10690
10691 MELT_LOCATION("warmelt-debug.melt:64:/ initchunk");
10692 /*^touchobj*/
10693
10694 melt_dbgtrace_written_object (/*_._VALDATA___V88*/ meltfptr[87], "new static instance");
10695
10696 /*putslot*/
10697 melt_assertmsg("checkobj putslot ~dsym_36__MELT_REALLY_NEED_DEBUG @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V93*/ meltfptr[92])) == MELTOBMAG_OBJECT);
10698
10699 melt_assertmsg("checkoff putslot ~dsym_36__MELT_REALLY_NEED_DEBUG @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V93*/ meltfptr[92]))));
10700 ((meltobject_ptr_t)(/*_._VALDATA___V93*/ meltfptr[92]))->obj_vartab[1] = (melt_ptr_t)(
10701 /*_._VALSTR___V94*/ meltfptr[93]);
10702
10703 /*touch:_VALUEDATA_*/
10704 meltgc_touch(/*_._VALDATA___V93*/ meltfptr[92]);
10705
10706
10707 melt_dbgtrace_written_object (/*_._VALDATA___V93*/ meltfptr[92], "new static instance");
10708
10709 MELT_LOCATION("warmelt-debug.melt:72:/ initchunk");
10710 /*^putslot*/
10711 /*putslot*/
10712 melt_assertmsg("checkobj putslot ~dobj_38__MELT_REALLY_NEED_DEBUG @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V95*/ meltfptr[94])) == MELTOBMAG_OBJECT);
10713
10714 melt_assertmsg("checkoff putslot ~dobj_38__MELT_REALLY_NEED_DEBUG @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V95*/ meltfptr[94]))));
10715 ((meltobject_ptr_t)(/*_._VALDATA___V95*/ meltfptr[94]))->obj_vartab[1] = (melt_ptr_t)(
10716 /*_._VALSTR___V96*/ meltfptr[95]);
10717
10718 /*putslot*/
10719 melt_assertmsg("checkobj putslot ~dsym_41__DEPTH @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V98*/ meltfptr[97])) == MELTOBMAG_OBJECT);
10720
10721 melt_assertmsg("checkoff putslot ~dsym_41__DEPTH @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V98*/ meltfptr[97]))));
10722 ((meltobject_ptr_t)(/*_._VALDATA___V98*/ meltfptr[97]))->obj_vartab[1] = (melt_ptr_t)(
10723 /*_._VALSTR___V99*/ meltfptr[98]);
10724
10725 /*touch:_VALUEDATA_*/
10726 meltgc_touch(/*_._VALDATA___V98*/ meltfptr[97]);
10727
10728
10729 melt_dbgtrace_written_object (/*_._VALDATA___V98*/ meltfptr[97], "new static instance");
10730
10731 MELT_LOCATION("warmelt-debug.melt:72:/ initchunk");
10732 /*^putslot*/
10733 /*putslot*/
10734 melt_assertmsg("checkobj putslot ~dobj_43 @#0", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V97*/ meltfptr[96])) == MELTOBMAG_OBJECT);
10735
10736 melt_assertmsg("checkoff putslot ~dobj_43 @#0", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_._VALDATA___V97*/ meltfptr[96]))));
10737 ((meltobject_ptr_t)(/*_._VALDATA___V97*/ meltfptr[96]))->obj_vartab[0] = (melt_ptr_t)(
10738 /*_._VALDATA___V98*/ meltfptr[97]);
10739
10740 MELT_LOCATION("warmelt-debug.melt:72:/ initchunk");
10741 /*^putslot*/
10742 /*putslot*/
10743 melt_assertmsg("checkobj putslot ~dobj_43 @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V97*/ meltfptr[96])) == MELTOBMAG_OBJECT);
10744
10745 melt_assertmsg("checkoff putslot ~dobj_43 @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V97*/ meltfptr[96]))));
10746 ((meltobject_ptr_t)(/*_._VALDATA___V97*/ meltfptr[96]))->obj_vartab[1] = (melt_ptr_t)(
10747 ((melt_ptr_t)(MELT_PREDEF(CTYPE_LONG))));
10748
10749 MELT_LOCATION("warmelt-debug.melt:72:/ initchunk");
10750 /*^touch*/
10751 /*touch:_VALUEDATA_*/
10752 meltgc_touch(/*_._VALDATA___V97*/ meltfptr[96]);
10753
10754 MELT_LOCATION("warmelt-debug.melt:72:/ initchunk");
10755 /*^touchobj*/
10756
10757 melt_dbgtrace_written_object (/*_._VALDATA___V97*/ meltfptr[96], "new static instance");
10758
10759 /*putupl#17*/
10760 melt_assertmsg("putupl #17 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V100*/ meltfptr[99]))== MELTOBMAG_MULTIPLE);
10761 melt_assertmsg("putupl #17 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V100*/ meltfptr[99]))));
10762 ((meltmultiple_ptr_t)(/*_._VALTUP___V100*/ meltfptr[99]))->tabval[0] = (melt_ptr_t)(/*_._VALDATA___V97*/ meltfptr[96]);
10763
10764 /*touch:_INITUP_*/
10765 meltgc_touch(/*_._VALTUP___V100*/ meltfptr[99]);
10766
10767 MELT_LOCATION("warmelt-debug.melt:72:/ initchunk");
10768 /*^putslot*/
10769 /*putslot*/
10770 melt_assertmsg("checkobj putslot ~dobj_38__MELT_REALLY_NEED_DEBUG @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V95*/ meltfptr[94])) == MELTOBMAG_OBJECT);
10771
10772 melt_assertmsg("checkoff putslot ~dobj_38__MELT_REALLY_NEED_DEBUG @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V95*/ meltfptr[94]))));
10773 ((meltobject_ptr_t)(/*_._VALDATA___V95*/ meltfptr[94]))->obj_vartab[2] = (melt_ptr_t)(
10774 /*_._VALTUP___V100*/ meltfptr[99]);
10775
10776 MELT_LOCATION("warmelt-debug.melt:72:/ initchunk");
10777 /*^putslot*/
10778 /*putslot*/
10779 melt_assertmsg("checkobj putslot ~dobj_38__MELT_REALLY_NEED_DEBUG @#3", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V95*/ meltfptr[94])) == MELTOBMAG_OBJECT);
10780
10781 melt_assertmsg("checkoff putslot ~dobj_38__MELT_REALLY_NEED_DEBUG @#3", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_._VALDATA___V95*/ meltfptr[94]))));
10782 ((meltobject_ptr_t)(/*_._VALDATA___V95*/ meltfptr[94]))->obj_vartab[3] = (melt_ptr_t)(
10783 ((melt_ptr_t)(MELT_PREDEF(CTYPE_LONG))));
10784
10785 /*putupl#18*/
10786 melt_assertmsg("putupl #18 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V103*/ meltfptr[102]))== MELTOBMAG_MULTIPLE);
10787 melt_assertmsg("putupl #18 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V103*/ meltfptr[102]))));
10788 ((meltmultiple_ptr_t)(/*_._VALTUP___V103*/ meltfptr[102]))->tabval[0] = (melt_ptr_t)(/*_._VALSTR___V101*/ meltfptr[100]);
10789
10790 /*putupl#19*/
10791 melt_assertmsg("putupl #19 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V103*/ meltfptr[102]))== MELTOBMAG_MULTIPLE);
10792 melt_assertmsg("putupl #19 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V103*/ meltfptr[102]))));
10793 ((meltmultiple_ptr_t)(/*_._VALTUP___V103*/ meltfptr[102]))->tabval[1] = (melt_ptr_t)(/*_._VALDATA___V98*/ meltfptr[97]);
10794
10795 /*putupl#20*/
10796 melt_assertmsg("putupl #20 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V103*/ meltfptr[102]))== MELTOBMAG_MULTIPLE);
10797 melt_assertmsg("putupl #20 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V103*/ meltfptr[102]))));
10798 ((meltmultiple_ptr_t)(/*_._VALTUP___V103*/ meltfptr[102]))->tabval[2] = (melt_ptr_t)(/*_._VALSTR___V102*/ meltfptr[101]);
10799
10800 /*touch:_INITUP_*/
10801 meltgc_touch(/*_._VALTUP___V103*/ meltfptr[102]);
10802
10803 MELT_LOCATION("warmelt-debug.melt:72:/ initchunk");
10804 /*^putslot*/
10805 /*putslot*/
10806 melt_assertmsg("checkobj putslot ~dobj_38__MELT_REALLY_NEED_DEBUG @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V95*/ meltfptr[94])) == MELTOBMAG_OBJECT);
10807
10808 melt_assertmsg("checkoff putslot ~dobj_38__MELT_REALLY_NEED_DEBUG @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V95*/ meltfptr[94]))));
10809 ((meltobject_ptr_t)(/*_._VALDATA___V95*/ meltfptr[94]))->obj_vartab[4] = (melt_ptr_t)(
10810 /*_._VALTUP___V103*/ meltfptr[102]);
10811
10812 MELT_LOCATION("warmelt-debug.melt:72:/ initchunk");
10813 /*^touch*/
10814 /*touch:_VALUEDATA_*/
10815 meltgc_touch(/*_._VALDATA___V95*/ meltfptr[94]);
10816
10817 MELT_LOCATION("warmelt-debug.melt:72:/ initchunk");
10818 /*^touchobj*/
10819
10820 melt_dbgtrace_written_object (/*_._VALDATA___V95*/ meltfptr[94], "new static instance");
10821
10822 /*putslot*/
10823 melt_assertmsg("checkobj putslot ~dsym_47__MELT_HAS_FLAG_DEBUG_SET @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V104*/ meltfptr[103])) == MELTOBMAG_OBJECT);
10824
10825 melt_assertmsg("checkoff putslot ~dsym_47__MELT_HAS_FLAG_DEBUG_SET @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V104*/ meltfptr[103]))));
10826 ((meltobject_ptr_t)(/*_._VALDATA___V104*/ meltfptr[103]))->obj_vartab[1] = (melt_ptr_t)(
10827 /*_._VALSTR___V105*/ meltfptr[104]);
10828
10829 /*touch:_VALUEDATA_*/
10830 meltgc_touch(/*_._VALDATA___V104*/ meltfptr[103]);
10831
10832
10833 melt_dbgtrace_written_object (/*_._VALDATA___V104*/ meltfptr[103], "new static instance");
10834
10835 MELT_LOCATION("warmelt-debug.melt:77:/ initchunk");
10836 /*^putslot*/
10837 /*putslot*/
10838 melt_assertmsg("checkobj putslot ~dobj_49__MELT_HAS_FLAG_DEBUG_SET @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V106*/ meltfptr[105])) == MELTOBMAG_OBJECT);
10839
10840 melt_assertmsg("checkoff putslot ~dobj_49__MELT_HAS_FLAG_DEBUG_SET @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V106*/ meltfptr[105]))));
10841 ((meltobject_ptr_t)(/*_._VALDATA___V106*/ meltfptr[105]))->obj_vartab[1] = (melt_ptr_t)(
10842 /*_._VALSTR___V107*/ meltfptr[106]);
10843
10844 /*touch:_INITUP_*/
10845 meltgc_touch(/*_._VALTUP___V108*/ meltfptr[107]);
10846
10847 MELT_LOCATION("warmelt-debug.melt:77:/ initchunk");
10848 /*^putslot*/
10849 /*putslot*/
10850 melt_assertmsg("checkobj putslot ~dobj_49__MELT_HAS_FLAG_DEBUG_SET @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V106*/ meltfptr[105])) == MELTOBMAG_OBJECT);
10851
10852 melt_assertmsg("checkoff putslot ~dobj_49__MELT_HAS_FLAG_DEBUG_SET @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V106*/ meltfptr[105]))));
10853 ((meltobject_ptr_t)(/*_._VALDATA___V106*/ meltfptr[105]))->obj_vartab[2] = (melt_ptr_t)(
10854 /*_._VALTUP___V108*/ meltfptr[107]);
10855
10856 MELT_LOCATION("warmelt-debug.melt:77:/ initchunk");
10857 /*^putslot*/
10858 /*putslot*/
10859 melt_assertmsg("checkobj putslot ~dobj_49__MELT_HAS_FLAG_DEBUG_SET @#3", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V106*/ meltfptr[105])) == MELTOBMAG_OBJECT);
10860
10861 melt_assertmsg("checkoff putslot ~dobj_49__MELT_HAS_FLAG_DEBUG_SET @#3", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_._VALDATA___V106*/ meltfptr[105]))));
10862 ((meltobject_ptr_t)(/*_._VALDATA___V106*/ meltfptr[105]))->obj_vartab[3] = (melt_ptr_t)(
10863 ((melt_ptr_t)(MELT_PREDEF(CTYPE_LONG))));
10864
10865 /*putupl#21*/
10866 melt_assertmsg("putupl #21 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V110*/ meltfptr[109]))== MELTOBMAG_MULTIPLE);
10867 melt_assertmsg("putupl #21 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V110*/ meltfptr[109]))));
10868 ((meltmultiple_ptr_t)(/*_._VALTUP___V110*/ meltfptr[109]))->tabval[0] = (melt_ptr_t)(/*_._VALSTR___V109*/ meltfptr[108]);
10869
10870 /*touch:_INITUP_*/
10871 meltgc_touch(/*_._VALTUP___V110*/ meltfptr[109]);
10872
10873 MELT_LOCATION("warmelt-debug.melt:77:/ initchunk");
10874 /*^putslot*/
10875 /*putslot*/
10876 melt_assertmsg("checkobj putslot ~dobj_49__MELT_HAS_FLAG_DEBUG_SET @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V106*/ meltfptr[105])) == MELTOBMAG_OBJECT);
10877
10878 melt_assertmsg("checkoff putslot ~dobj_49__MELT_HAS_FLAG_DEBUG_SET @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V106*/ meltfptr[105]))));
10879 ((meltobject_ptr_t)(/*_._VALDATA___V106*/ meltfptr[105]))->obj_vartab[4] = (melt_ptr_t)(
10880 /*_._VALTUP___V110*/ meltfptr[109]);
10881
10882 MELT_LOCATION("warmelt-debug.melt:77:/ initchunk");
10883 /*^touch*/
10884 /*touch:_VALUEDATA_*/
10885 meltgc_touch(/*_._VALDATA___V106*/ meltfptr[105]);
10886
10887 MELT_LOCATION("warmelt-debug.melt:77:/ initchunk");
10888 /*^touchobj*/
10889
10890 melt_dbgtrace_written_object (/*_._VALDATA___V106*/ meltfptr[105], "new static instance");
10891
10892 /*putslot*/
10893 melt_assertmsg("checkobj putslot ~dsym_54__MELT_REALLY_NEED_DBGLIM @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V111*/ meltfptr[110])) == MELTOBMAG_OBJECT);
10894
10895 melt_assertmsg("checkoff putslot ~dsym_54__MELT_REALLY_NEED_DBGLIM @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V111*/ meltfptr[110]))));
10896 ((meltobject_ptr_t)(/*_._VALDATA___V111*/ meltfptr[110]))->obj_vartab[1] = (melt_ptr_t)(
10897 /*_._VALSTR___V112*/ meltfptr[111]);
10898
10899 /*touch:_VALUEDATA_*/
10900 meltgc_touch(/*_._VALDATA___V111*/ meltfptr[110]);
10901
10902
10903 melt_dbgtrace_written_object (/*_._VALDATA___V111*/ meltfptr[110], "new static instance");
10904
10905 MELT_LOCATION("warmelt-debug.melt:80:/ initchunk");
10906 /*^putslot*/
10907 /*putslot*/
10908 melt_assertmsg("checkobj putslot ~dobj_56__MELT_REALLY_NEED_DBGLIM @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V113*/ meltfptr[112])) == MELTOBMAG_OBJECT);
10909
10910 melt_assertmsg("checkoff putslot ~dobj_56__MELT_REALLY_NEED_DBGLIM @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V113*/ meltfptr[112]))));
10911 ((meltobject_ptr_t)(/*_._VALDATA___V113*/ meltfptr[112]))->obj_vartab[1] = (melt_ptr_t)(
10912 /*_._VALSTR___V114*/ meltfptr[113]);
10913
10914 MELT_LOCATION("warmelt-debug.melt:80:/ initchunk");
10915 /*^putslot*/
10916 /*putslot*/
10917 melt_assertmsg("checkobj putslot ~dobj_59 @#0", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V115*/ meltfptr[114])) == MELTOBMAG_OBJECT);
10918
10919 melt_assertmsg("checkoff putslot ~dobj_59 @#0", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_._VALDATA___V115*/ meltfptr[114]))));
10920 ((meltobject_ptr_t)(/*_._VALDATA___V115*/ meltfptr[114]))->obj_vartab[0] = (melt_ptr_t)(
10921 /*_._VALDATA___V98*/ meltfptr[97]);
10922
10923 MELT_LOCATION("warmelt-debug.melt:80:/ initchunk");
10924 /*^putslot*/
10925 /*putslot*/
10926 melt_assertmsg("checkobj putslot ~dobj_59 @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V115*/ meltfptr[114])) == MELTOBMAG_OBJECT);
10927
10928 melt_assertmsg("checkoff putslot ~dobj_59 @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V115*/ meltfptr[114]))));
10929 ((meltobject_ptr_t)(/*_._VALDATA___V115*/ meltfptr[114]))->obj_vartab[1] = (melt_ptr_t)(
10930 ((melt_ptr_t)(MELT_PREDEF(CTYPE_LONG))));
10931
10932 MELT_LOCATION("warmelt-debug.melt:80:/ initchunk");
10933 /*^touch*/
10934 /*touch:_VALUEDATA_*/
10935 meltgc_touch(/*_._VALDATA___V115*/ meltfptr[114]);
10936
10937 MELT_LOCATION("warmelt-debug.melt:80:/ initchunk");
10938 /*^touchobj*/
10939
10940 melt_dbgtrace_written_object (/*_._VALDATA___V115*/ meltfptr[114], "new static instance");
10941
10942 /*putslot*/
10943 melt_assertmsg("checkobj putslot ~dsym_60__LIMIT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V117*/ meltfptr[116])) == MELTOBMAG_OBJECT);
10944
10945 melt_assertmsg("checkoff putslot ~dsym_60__LIMIT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V117*/ meltfptr[116]))));
10946 ((meltobject_ptr_t)(/*_._VALDATA___V117*/ meltfptr[116]))->obj_vartab[1] = (melt_ptr_t)(
10947 /*_._VALSTR___V118*/ meltfptr[117]);
10948
10949 /*touch:_VALUEDATA_*/
10950 meltgc_touch(/*_._VALDATA___V117*/ meltfptr[116]);
10951
10952
10953 melt_dbgtrace_written_object (/*_._VALDATA___V117*/ meltfptr[116], "new static instance");
10954
10955 MELT_LOCATION("warmelt-debug.melt:80:/ initchunk");
10956 /*^putslot*/
10957 /*putslot*/
10958 melt_assertmsg("checkobj putslot ~dobj_62 @#0", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V116*/ meltfptr[115])) == MELTOBMAG_OBJECT);
10959
10960 melt_assertmsg("checkoff putslot ~dobj_62 @#0", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_._VALDATA___V116*/ meltfptr[115]))));
10961 ((meltobject_ptr_t)(/*_._VALDATA___V116*/ meltfptr[115]))->obj_vartab[0] = (melt_ptr_t)(
10962 /*_._VALDATA___V117*/ meltfptr[116]);
10963
10964 MELT_LOCATION("warmelt-debug.melt:80:/ initchunk");
10965 /*^putslot*/
10966 /*putslot*/
10967 melt_assertmsg("checkobj putslot ~dobj_62 @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V116*/ meltfptr[115])) == MELTOBMAG_OBJECT);
10968
10969 melt_assertmsg("checkoff putslot ~dobj_62 @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V116*/ meltfptr[115]))));
10970 ((meltobject_ptr_t)(/*_._VALDATA___V116*/ meltfptr[115]))->obj_vartab[1] = (melt_ptr_t)(
10971 ((melt_ptr_t)(MELT_PREDEF(CTYPE_LONG))));
10972
10973 MELT_LOCATION("warmelt-debug.melt:80:/ initchunk");
10974 /*^touch*/
10975 /*touch:_VALUEDATA_*/
10976 meltgc_touch(/*_._VALDATA___V116*/ meltfptr[115]);
10977
10978 MELT_LOCATION("warmelt-debug.melt:80:/ initchunk");
10979 /*^touchobj*/
10980
10981 melt_dbgtrace_written_object (/*_._VALDATA___V116*/ meltfptr[115], "new static instance");
10982
10983 /*putupl#22*/
10984 melt_assertmsg("putupl #22 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V119*/ meltfptr[118]))== MELTOBMAG_MULTIPLE);
10985 melt_assertmsg("putupl #22 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V119*/ meltfptr[118]))));
10986 ((meltmultiple_ptr_t)(/*_._VALTUP___V119*/ meltfptr[118]))->tabval[0] = (melt_ptr_t)(/*_._VALDATA___V115*/ meltfptr[114]);
10987
10988 /*putupl#23*/
10989 melt_assertmsg("putupl #23 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V119*/ meltfptr[118]))== MELTOBMAG_MULTIPLE);
10990 melt_assertmsg("putupl #23 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V119*/ meltfptr[118]))));
10991 ((meltmultiple_ptr_t)(/*_._VALTUP___V119*/ meltfptr[118]))->tabval[1] = (melt_ptr_t)(/*_._VALDATA___V116*/ meltfptr[115]);
10992
10993 /*touch:_INITUP_*/
10994 meltgc_touch(/*_._VALTUP___V119*/ meltfptr[118]);
10995
10996 MELT_LOCATION("warmelt-debug.melt:80:/ initchunk");
10997 /*^putslot*/
10998 /*putslot*/
10999 melt_assertmsg("checkobj putslot ~dobj_56__MELT_REALLY_NEED_DBGLIM @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V113*/ meltfptr[112])) == MELTOBMAG_OBJECT);
11000
11001 melt_assertmsg("checkoff putslot ~dobj_56__MELT_REALLY_NEED_DBGLIM @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V113*/ meltfptr[112]))));
11002 ((meltobject_ptr_t)(/*_._VALDATA___V113*/ meltfptr[112]))->obj_vartab[2] = (melt_ptr_t)(
11003 /*_._VALTUP___V119*/ meltfptr[118]);
11004
11005 MELT_LOCATION("warmelt-debug.melt:80:/ initchunk");
11006 /*^putslot*/
11007 /*putslot*/
11008 melt_assertmsg("checkobj putslot ~dobj_56__MELT_REALLY_NEED_DBGLIM @#3", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V113*/ meltfptr[112])) == MELTOBMAG_OBJECT);
11009
11010 melt_assertmsg("checkoff putslot ~dobj_56__MELT_REALLY_NEED_DBGLIM @#3", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_._VALDATA___V113*/ meltfptr[112]))));
11011 ((meltobject_ptr_t)(/*_._VALDATA___V113*/ meltfptr[112]))->obj_vartab[3] = (melt_ptr_t)(
11012 ((melt_ptr_t)(MELT_PREDEF(CTYPE_LONG))));
11013
11014 /*putupl#24*/
11015 melt_assertmsg("putupl #24 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V123*/ meltfptr[122]))== MELTOBMAG_MULTIPLE);
11016 melt_assertmsg("putupl #24 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V123*/ meltfptr[122]))));
11017 ((meltmultiple_ptr_t)(/*_._VALTUP___V123*/ meltfptr[122]))->tabval[0] = (melt_ptr_t)(/*_._VALSTR___V120*/ meltfptr[119]);
11018
11019 /*putupl#25*/
11020 melt_assertmsg("putupl #25 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V123*/ meltfptr[122]))== MELTOBMAG_MULTIPLE);
11021 melt_assertmsg("putupl #25 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V123*/ meltfptr[122]))));
11022 ((meltmultiple_ptr_t)(/*_._VALTUP___V123*/ meltfptr[122]))->tabval[1] = (melt_ptr_t)(/*_._VALDATA___V98*/ meltfptr[97]);
11023
11024 /*putupl#26*/
11025 melt_assertmsg("putupl #26 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V123*/ meltfptr[122]))== MELTOBMAG_MULTIPLE);
11026 melt_assertmsg("putupl #26 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V123*/ meltfptr[122]))));
11027 ((meltmultiple_ptr_t)(/*_._VALTUP___V123*/ meltfptr[122]))->tabval[2] = (melt_ptr_t)(/*_._VALSTR___V121*/ meltfptr[120]);
11028
11029
11030 #undef meltfram__
11031 } /*end of meltmod__WARMELTmiDEBUG__initialmeltchunk_0*/
11032
11033
11034
11035 void meltmod__WARMELTmiDEBUG__initialmeltchunk_1 (meltinitial_frame_t* meltframptr__, char meltpredefinited[])
11036 {
11037 #define meltfram__ (*meltframptr__)
11038 #undef meltcallcount
11039 #define meltcallcount 0L
11040 (void) meltpredefinited;
11041 /*putupl#27*/
11042 melt_assertmsg("putupl #27 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V123*/ meltfptr[122]))== MELTOBMAG_MULTIPLE);
11043 melt_assertmsg("putupl #27 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V123*/ meltfptr[122]))));
11044 ((meltmultiple_ptr_t)(/*_._VALTUP___V123*/ meltfptr[122]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V117*/ meltfptr[116]);
11045
11046 /*putupl#28*/
11047 melt_assertmsg("putupl #28 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V123*/ meltfptr[122]))== MELTOBMAG_MULTIPLE);
11048 melt_assertmsg("putupl #28 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V123*/ meltfptr[122]))));
11049 ((meltmultiple_ptr_t)(/*_._VALTUP___V123*/ meltfptr[122]))->tabval[4] = (melt_ptr_t)(/*_._VALSTR___V122*/ meltfptr[121]);
11050
11051 /*touch:_INITUP_*/
11052 meltgc_touch(/*_._VALTUP___V123*/ meltfptr[122]);
11053
11054 MELT_LOCATION("warmelt-debug.melt:80:/ initchunk");
11055 /*^putslot*/
11056 /*putslot*/
11057 melt_assertmsg("checkobj putslot ~dobj_56__MELT_REALLY_NEED_DBGLIM @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V113*/ meltfptr[112])) == MELTOBMAG_OBJECT);
11058
11059 melt_assertmsg("checkoff putslot ~dobj_56__MELT_REALLY_NEED_DBGLIM @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V113*/ meltfptr[112]))));
11060 ((meltobject_ptr_t)(/*_._VALDATA___V113*/ meltfptr[112]))->obj_vartab[4] = (melt_ptr_t)(
11061 /*_._VALTUP___V123*/ meltfptr[122]);
11062
11063 MELT_LOCATION("warmelt-debug.melt:80:/ initchunk");
11064 /*^touch*/
11065 /*touch:_VALUEDATA_*/
11066 meltgc_touch(/*_._VALDATA___V113*/ meltfptr[112]);
11067
11068 MELT_LOCATION("warmelt-debug.melt:80:/ initchunk");
11069 /*^touchobj*/
11070
11071 melt_dbgtrace_written_object (/*_._VALDATA___V113*/ meltfptr[112], "new static instance");
11072
11073 /*putslot*/
11074 melt_assertmsg("checkobj putslot ~dsym_67__DBG_OUTPUT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V124*/ meltfptr[123])) == MELTOBMAG_OBJECT);
11075
11076 melt_assertmsg("checkoff putslot ~dsym_67__DBG_OUTPUT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V124*/ meltfptr[123]))));
11077 ((meltobject_ptr_t)(/*_._VALDATA___V124*/ meltfptr[123]))->obj_vartab[1] = (melt_ptr_t)(
11078 /*_._VALSTR___V125*/ meltfptr[124]);
11079
11080 /*touch:_VALUEDATA_*/
11081 meltgc_touch(/*_._VALDATA___V124*/ meltfptr[123]);
11082
11083
11084 melt_dbgtrace_written_object (/*_._VALDATA___V124*/ meltfptr[123], "new static instance");
11085
11086 /*putslot*/
11087 melt_assertmsg("checkobj putslot ~dsym_69__CLASS_SELECTOR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V126*/ meltfptr[125])) == MELTOBMAG_OBJECT);
11088
11089 melt_assertmsg("checkoff putslot ~dsym_69__CLASS_SELECTOR @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V126*/ meltfptr[125]))));
11090 ((meltobject_ptr_t)(/*_._VALDATA___V126*/ meltfptr[125]))->obj_vartab[1] = (melt_ptr_t)(
11091 /*_._VALSTR___V127*/ meltfptr[126]);
11092
11093 /*touch:_VALUEDATA_*/
11094 meltgc_touch(/*_._VALDATA___V126*/ meltfptr[125]);
11095
11096
11097 melt_dbgtrace_written_object (/*_._VALDATA___V126*/ meltfptr[125], "new static instance");
11098
11099 /*putslot*/
11100 melt_assertmsg("checkobj putslot ~dsym_71__RECV @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V128*/ meltfptr[127])) == MELTOBMAG_OBJECT);
11101
11102 melt_assertmsg("checkoff putslot ~dsym_71__RECV @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V128*/ meltfptr[127]))));
11103 ((meltobject_ptr_t)(/*_._VALDATA___V128*/ meltfptr[127]))->obj_vartab[1] = (melt_ptr_t)(
11104 /*_._VALSTR___V129*/ meltfptr[128]);
11105
11106 /*touch:_VALUEDATA_*/
11107 meltgc_touch(/*_._VALDATA___V128*/ meltfptr[127]);
11108
11109
11110 melt_dbgtrace_written_object (/*_._VALDATA___V128*/ meltfptr[127], "new static instance");
11111
11112 MELT_LOCATION("warmelt-debug.melt:90:/ initchunk");
11113 /*^putslot*/
11114 /*putslot*/
11115 melt_assertmsg("checkobj putslot ~dobj_73 @#0", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V130*/ meltfptr[129])) == MELTOBMAG_OBJECT);
11116
11117 melt_assertmsg("checkoff putslot ~dobj_73 @#0", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_._VALDATA___V130*/ meltfptr[129]))));
11118 ((meltobject_ptr_t)(/*_._VALDATA___V130*/ meltfptr[129]))->obj_vartab[0] = (melt_ptr_t)(
11119 /*_._VALDATA___V128*/ meltfptr[127]);
11120
11121 MELT_LOCATION("warmelt-debug.melt:90:/ initchunk");
11122 /*^putslot*/
11123 /*putslot*/
11124 melt_assertmsg("checkobj putslot ~dobj_73 @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V130*/ meltfptr[129])) == MELTOBMAG_OBJECT);
11125
11126 melt_assertmsg("checkoff putslot ~dobj_73 @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V130*/ meltfptr[129]))));
11127 ((meltobject_ptr_t)(/*_._VALDATA___V130*/ meltfptr[129]))->obj_vartab[1] = (melt_ptr_t)(
11128 ((melt_ptr_t)(MELT_PREDEF(CTYPE_VALUE))));
11129
11130 MELT_LOCATION("warmelt-debug.melt:90:/ initchunk");
11131 /*^touch*/
11132 /*touch:_VALUEDATA_*/
11133 meltgc_touch(/*_._VALDATA___V130*/ meltfptr[129]);
11134
11135 MELT_LOCATION("warmelt-debug.melt:90:/ initchunk");
11136 /*^touchobj*/
11137
11138 melt_dbgtrace_written_object (/*_._VALDATA___V130*/ meltfptr[129], "new static instance");
11139
11140 /*putslot*/
11141 melt_assertmsg("checkobj putslot ~dsym_74__DBGINFO @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V131*/ meltfptr[130])) == MELTOBMAG_OBJECT);
11142
11143 melt_assertmsg("checkoff putslot ~dsym_74__DBGINFO @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V131*/ meltfptr[130]))));
11144 ((meltobject_ptr_t)(/*_._VALDATA___V131*/ meltfptr[130]))->obj_vartab[1] = (melt_ptr_t)(
11145 /*_._VALSTR___V132*/ meltfptr[131]);
11146
11147 /*touch:_VALUEDATA_*/
11148 meltgc_touch(/*_._VALDATA___V131*/ meltfptr[130]);
11149
11150
11151 melt_dbgtrace_written_object (/*_._VALDATA___V131*/ meltfptr[130], "new static instance");
11152
11153 MELT_LOCATION("warmelt-debug.melt:90:/ initchunk");
11154 /*^putslot*/
11155 /*putslot*/
11156 melt_assertmsg("checkobj putslot ~dobj_76 @#0", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V133*/ meltfptr[132])) == MELTOBMAG_OBJECT);
11157
11158 melt_assertmsg("checkoff putslot ~dobj_76 @#0", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_._VALDATA___V133*/ meltfptr[132]))));
11159 ((meltobject_ptr_t)(/*_._VALDATA___V133*/ meltfptr[132]))->obj_vartab[0] = (melt_ptr_t)(
11160 /*_._VALDATA___V131*/ meltfptr[130]);
11161
11162 MELT_LOCATION("warmelt-debug.melt:90:/ initchunk");
11163 /*^putslot*/
11164 /*putslot*/
11165 melt_assertmsg("checkobj putslot ~dobj_76 @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V133*/ meltfptr[132])) == MELTOBMAG_OBJECT);
11166
11167 melt_assertmsg("checkoff putslot ~dobj_76 @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V133*/ meltfptr[132]))));
11168 ((meltobject_ptr_t)(/*_._VALDATA___V133*/ meltfptr[132]))->obj_vartab[1] = (melt_ptr_t)(
11169 ((melt_ptr_t)(MELT_PREDEF(CTYPE_VALUE))));
11170
11171 MELT_LOCATION("warmelt-debug.melt:90:/ initchunk");
11172 /*^touch*/
11173 /*touch:_VALUEDATA_*/
11174 meltgc_touch(/*_._VALDATA___V133*/ meltfptr[132]);
11175
11176 MELT_LOCATION("warmelt-debug.melt:90:/ initchunk");
11177 /*^touchobj*/
11178
11179 melt_dbgtrace_written_object (/*_._VALDATA___V133*/ meltfptr[132], "new static instance");
11180
11181 MELT_LOCATION("warmelt-debug.melt:90:/ initchunk");
11182 /*^putslot*/
11183 /*putslot*/
11184 melt_assertmsg("checkobj putslot ~dobj_77 @#0", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V134*/ meltfptr[133])) == MELTOBMAG_OBJECT);
11185
11186 melt_assertmsg("checkoff putslot ~dobj_77 @#0", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_._VALDATA___V134*/ meltfptr[133]))));
11187 ((meltobject_ptr_t)(/*_._VALDATA___V134*/ meltfptr[133]))->obj_vartab[0] = (melt_ptr_t)(
11188 /*_._VALDATA___V98*/ meltfptr[97]);
11189
11190 MELT_LOCATION("warmelt-debug.melt:90:/ initchunk");
11191 /*^putslot*/
11192 /*putslot*/
11193 melt_assertmsg("checkobj putslot ~dobj_77 @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V134*/ meltfptr[133])) == MELTOBMAG_OBJECT);
11194
11195 melt_assertmsg("checkoff putslot ~dobj_77 @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V134*/ meltfptr[133]))));
11196 ((meltobject_ptr_t)(/*_._VALDATA___V134*/ meltfptr[133]))->obj_vartab[1] = (melt_ptr_t)(
11197 ((melt_ptr_t)(MELT_PREDEF(CTYPE_LONG))));
11198
11199 MELT_LOCATION("warmelt-debug.melt:90:/ initchunk");
11200 /*^touch*/
11201 /*touch:_VALUEDATA_*/
11202 meltgc_touch(/*_._VALDATA___V134*/ meltfptr[133]);
11203
11204 MELT_LOCATION("warmelt-debug.melt:90:/ initchunk");
11205 /*^touchobj*/
11206
11207 melt_dbgtrace_written_object (/*_._VALDATA___V134*/ meltfptr[133], "new static instance");
11208
11209 /*putupl#29*/
11210 melt_assertmsg("putupl #29 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V135*/ meltfptr[134]))== MELTOBMAG_MULTIPLE);
11211 melt_assertmsg("putupl #29 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V135*/ meltfptr[134]))));
11212 ((meltmultiple_ptr_t)(/*_._VALTUP___V135*/ meltfptr[134]))->tabval[0] = (melt_ptr_t)(/*_._VALDATA___V130*/ meltfptr[129]);
11213
11214 /*putupl#30*/
11215 melt_assertmsg("putupl #30 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V135*/ meltfptr[134]))== MELTOBMAG_MULTIPLE);
11216 melt_assertmsg("putupl #30 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V135*/ meltfptr[134]))));
11217 ((meltmultiple_ptr_t)(/*_._VALTUP___V135*/ meltfptr[134]))->tabval[1] = (melt_ptr_t)(/*_._VALDATA___V133*/ meltfptr[132]);
11218
11219 /*putupl#31*/
11220 melt_assertmsg("putupl #31 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V135*/ meltfptr[134]))== MELTOBMAG_MULTIPLE);
11221 melt_assertmsg("putupl #31 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V135*/ meltfptr[134]))));
11222 ((meltmultiple_ptr_t)(/*_._VALTUP___V135*/ meltfptr[134]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V134*/ meltfptr[133]);
11223
11224 /*touch:_INITUP_*/
11225 meltgc_touch(/*_._VALTUP___V135*/ meltfptr[134]);
11226
11227 MELT_LOCATION("warmelt-debug.melt:90:/ initchunk");
11228 /*^putslot*/
11229 /*putslot*/
11230 melt_assertmsg("checkobj putslot ~dobj_79__DBG_OUTPUT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V136*/ meltfptr[135])) == MELTOBMAG_OBJECT);
11231
11232 melt_assertmsg("checkoff putslot ~dobj_79__DBG_OUTPUT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V136*/ meltfptr[135]))));
11233 ((meltobject_ptr_t)(/*_._VALDATA___V136*/ meltfptr[135]))->obj_vartab[1] = (melt_ptr_t)(
11234 /*_._VALSTR___V137*/ meltfptr[136]);
11235
11236 MELT_LOCATION("warmelt-debug.melt:90:/ initchunk");
11237 /*^touch*/
11238 /*touch:_VALUEDATA_*/
11239 meltgc_touch(/*_._VALDATA___V136*/ meltfptr[135]);
11240
11241 MELT_LOCATION("warmelt-debug.melt:90:/ initchunk");
11242 /*^touchobj*/
11243
11244 melt_dbgtrace_written_object (/*_._VALDATA___V136*/ meltfptr[135], "new static instance");
11245
11246 /*putslot*/
11247 melt_assertmsg("checkobj putslot ~dsym_81__DBG_OUTPUTAGAIN @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V138*/ meltfptr[137])) == MELTOBMAG_OBJECT);
11248
11249 melt_assertmsg("checkoff putslot ~dsym_81__DBG_OUTPUTAGAIN @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V138*/ meltfptr[137]))));
11250 ((meltobject_ptr_t)(/*_._VALDATA___V138*/ meltfptr[137]))->obj_vartab[1] = (melt_ptr_t)(
11251 /*_._VALSTR___V139*/ meltfptr[138]);
11252
11253 /*touch:_VALUEDATA_*/
11254 meltgc_touch(/*_._VALDATA___V138*/ meltfptr[137]);
11255
11256
11257 melt_dbgtrace_written_object (/*_._VALDATA___V138*/ meltfptr[137], "new static instance");
11258
11259 MELT_LOCATION("warmelt-debug.melt:99:/ initchunk");
11260 /*^putslot*/
11261 /*putslot*/
11262 melt_assertmsg("checkobj putslot ~dobj_83 @#0", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V140*/ meltfptr[139])) == MELTOBMAG_OBJECT);
11263
11264 melt_assertmsg("checkoff putslot ~dobj_83 @#0", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_._VALDATA___V140*/ meltfptr[139]))));
11265 ((meltobject_ptr_t)(/*_._VALDATA___V140*/ meltfptr[139]))->obj_vartab[0] = (melt_ptr_t)(
11266 /*_._VALDATA___V128*/ meltfptr[127]);
11267
11268 MELT_LOCATION("warmelt-debug.melt:99:/ initchunk");
11269 /*^putslot*/
11270 /*putslot*/
11271 melt_assertmsg("checkobj putslot ~dobj_83 @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V140*/ meltfptr[139])) == MELTOBMAG_OBJECT);
11272
11273 melt_assertmsg("checkoff putslot ~dobj_83 @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V140*/ meltfptr[139]))));
11274 ((meltobject_ptr_t)(/*_._VALDATA___V140*/ meltfptr[139]))->obj_vartab[1] = (melt_ptr_t)(
11275 ((melt_ptr_t)(MELT_PREDEF(CTYPE_VALUE))));
11276
11277 MELT_LOCATION("warmelt-debug.melt:99:/ initchunk");
11278 /*^touch*/
11279 /*touch:_VALUEDATA_*/
11280 meltgc_touch(/*_._VALDATA___V140*/ meltfptr[139]);
11281
11282 MELT_LOCATION("warmelt-debug.melt:99:/ initchunk");
11283 /*^touchobj*/
11284
11285 melt_dbgtrace_written_object (/*_._VALDATA___V140*/ meltfptr[139], "new static instance");
11286
11287 MELT_LOCATION("warmelt-debug.melt:99:/ initchunk");
11288 /*^putslot*/
11289 /*putslot*/
11290 melt_assertmsg("checkobj putslot ~dobj_84 @#0", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V141*/ meltfptr[140])) == MELTOBMAG_OBJECT);
11291
11292 melt_assertmsg("checkoff putslot ~dobj_84 @#0", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_._VALDATA___V141*/ meltfptr[140]))));
11293 ((meltobject_ptr_t)(/*_._VALDATA___V141*/ meltfptr[140]))->obj_vartab[0] = (melt_ptr_t)(
11294 /*_._VALDATA___V131*/ meltfptr[130]);
11295
11296 MELT_LOCATION("warmelt-debug.melt:99:/ initchunk");
11297 /*^putslot*/
11298 /*putslot*/
11299 melt_assertmsg("checkobj putslot ~dobj_84 @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V141*/ meltfptr[140])) == MELTOBMAG_OBJECT);
11300
11301 melt_assertmsg("checkoff putslot ~dobj_84 @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V141*/ meltfptr[140]))));
11302 ((meltobject_ptr_t)(/*_._VALDATA___V141*/ meltfptr[140]))->obj_vartab[1] = (melt_ptr_t)(
11303 ((melt_ptr_t)(MELT_PREDEF(CTYPE_VALUE))));
11304
11305 MELT_LOCATION("warmelt-debug.melt:99:/ initchunk");
11306 /*^touch*/
11307 /*touch:_VALUEDATA_*/
11308 meltgc_touch(/*_._VALDATA___V141*/ meltfptr[140]);
11309
11310 MELT_LOCATION("warmelt-debug.melt:99:/ initchunk");
11311 /*^touchobj*/
11312
11313 melt_dbgtrace_written_object (/*_._VALDATA___V141*/ meltfptr[140], "new static instance");
11314
11315 MELT_LOCATION("warmelt-debug.melt:99:/ initchunk");
11316 /*^putslot*/
11317 /*putslot*/
11318 melt_assertmsg("checkobj putslot ~dobj_85 @#0", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V142*/ meltfptr[141])) == MELTOBMAG_OBJECT);
11319
11320 melt_assertmsg("checkoff putslot ~dobj_85 @#0", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_._VALDATA___V142*/ meltfptr[141]))));
11321 ((meltobject_ptr_t)(/*_._VALDATA___V142*/ meltfptr[141]))->obj_vartab[0] = (melt_ptr_t)(
11322 /*_._VALDATA___V98*/ meltfptr[97]);
11323
11324 MELT_LOCATION("warmelt-debug.melt:99:/ initchunk");
11325 /*^putslot*/
11326 /*putslot*/
11327 melt_assertmsg("checkobj putslot ~dobj_85 @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V142*/ meltfptr[141])) == MELTOBMAG_OBJECT);
11328
11329 melt_assertmsg("checkoff putslot ~dobj_85 @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V142*/ meltfptr[141]))));
11330 ((meltobject_ptr_t)(/*_._VALDATA___V142*/ meltfptr[141]))->obj_vartab[1] = (melt_ptr_t)(
11331 ((melt_ptr_t)(MELT_PREDEF(CTYPE_LONG))));
11332
11333 MELT_LOCATION("warmelt-debug.melt:99:/ initchunk");
11334 /*^touch*/
11335 /*touch:_VALUEDATA_*/
11336 meltgc_touch(/*_._VALDATA___V142*/ meltfptr[141]);
11337
11338 MELT_LOCATION("warmelt-debug.melt:99:/ initchunk");
11339 /*^touchobj*/
11340
11341 melt_dbgtrace_written_object (/*_._VALDATA___V142*/ meltfptr[141], "new static instance");
11342
11343 /*putupl#32*/
11344 melt_assertmsg("putupl #32 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V143*/ meltfptr[142]))== MELTOBMAG_MULTIPLE);
11345 melt_assertmsg("putupl #32 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V143*/ meltfptr[142]))));
11346 ((meltmultiple_ptr_t)(/*_._VALTUP___V143*/ meltfptr[142]))->tabval[0] = (melt_ptr_t)(/*_._VALDATA___V140*/ meltfptr[139]);
11347
11348 /*putupl#33*/
11349 melt_assertmsg("putupl #33 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V143*/ meltfptr[142]))== MELTOBMAG_MULTIPLE);
11350 melt_assertmsg("putupl #33 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V143*/ meltfptr[142]))));
11351 ((meltmultiple_ptr_t)(/*_._VALTUP___V143*/ meltfptr[142]))->tabval[1] = (melt_ptr_t)(/*_._VALDATA___V141*/ meltfptr[140]);
11352
11353 /*putupl#34*/
11354 melt_assertmsg("putupl #34 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V143*/ meltfptr[142]))== MELTOBMAG_MULTIPLE);
11355 melt_assertmsg("putupl #34 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V143*/ meltfptr[142]))));
11356 ((meltmultiple_ptr_t)(/*_._VALTUP___V143*/ meltfptr[142]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V142*/ meltfptr[141]);
11357
11358 /*touch:_INITUP_*/
11359 meltgc_touch(/*_._VALTUP___V143*/ meltfptr[142]);
11360
11361 MELT_LOCATION("warmelt-debug.melt:99:/ initchunk");
11362 /*^putslot*/
11363 /*putslot*/
11364 melt_assertmsg("checkobj putslot ~dobj_87__DBG_OUTPUTAGAIN @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V144*/ meltfptr[143])) == MELTOBMAG_OBJECT);
11365
11366 melt_assertmsg("checkoff putslot ~dobj_87__DBG_OUTPUTAGAIN @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V144*/ meltfptr[143]))));
11367 ((meltobject_ptr_t)(/*_._VALDATA___V144*/ meltfptr[143]))->obj_vartab[1] = (melt_ptr_t)(
11368 /*_._VALSTR___V145*/ meltfptr[144]);
11369
11370 MELT_LOCATION("warmelt-debug.melt:99:/ initchunk");
11371 /*^touch*/
11372 /*touch:_VALUEDATA_*/
11373 meltgc_touch(/*_._VALDATA___V144*/ meltfptr[143]);
11374
11375 MELT_LOCATION("warmelt-debug.melt:99:/ initchunk");
11376 /*^touchobj*/
11377
11378 melt_dbgtrace_written_object (/*_._VALDATA___V144*/ meltfptr[143], "new static instance");
11379
11380 /*putslot*/
11381 melt_assertmsg("checkobj putslot ~dsym_89__TREE_DEBUG_FUNCONT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V146*/ meltfptr[145])) == MELTOBMAG_OBJECT);
11382
11383 melt_assertmsg("checkoff putslot ~dsym_89__TREE_DEBUG_FUNCONT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V146*/ meltfptr[145]))));
11384 ((meltobject_ptr_t)(/*_._VALDATA___V146*/ meltfptr[145]))->obj_vartab[1] = (melt_ptr_t)(
11385 /*_._VALSTR___V147*/ meltfptr[146]);
11386
11387 /*touch:_VALUEDATA_*/
11388 meltgc_touch(/*_._VALDATA___V146*/ meltfptr[145]);
11389
11390
11391 melt_dbgtrace_written_object (/*_._VALDATA___V146*/ meltfptr[145], "new static instance");
11392
11393 /*putslot*/
11394 melt_assertmsg("checkobj putslot ~dsym_91__CLASS_REFERENCE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V148*/ meltfptr[147])) == MELTOBMAG_OBJECT);
11395
11396 melt_assertmsg("checkoff putslot ~dsym_91__CLASS_REFERENCE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V148*/ meltfptr[147]))));
11397 ((meltobject_ptr_t)(/*_._VALDATA___V148*/ meltfptr[147]))->obj_vartab[1] = (melt_ptr_t)(
11398 /*_._VALSTR___V149*/ meltfptr[148]);
11399
11400 /*touch:_VALUEDATA_*/
11401 meltgc_touch(/*_._VALDATA___V148*/ meltfptr[147]);
11402
11403
11404 melt_dbgtrace_written_object (/*_._VALDATA___V148*/ meltfptr[147], "new static instance");
11405
11406 MELT_LOCATION("warmelt-debug.melt:110:/ initchunk");
11407 /*^touch*/
11408 /*touch:_VALUEDATA_*/
11409 meltgc_touch(/*_._VALDATA___V150*/ meltfptr[149]);
11410
11411 MELT_LOCATION("warmelt-debug.melt:110:/ initchunk");
11412 /*^touchobj*/
11413
11414 melt_dbgtrace_written_object (/*_._VALDATA___V150*/ meltfptr[149], "new static instance");
11415
11416 MELT_LOCATION("warmelt-debug.melt:111:/ initchunk");
11417 /*^putroutconstnotnull*/
11418 /*putroutconstnotnull*/
11419 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V151*/ meltfptr[150])) == MELTOBMAG_ROUTINE);
11420 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V150*/ meltfptr[149]);
11421 ((meltroutine_ptr_t)/*_._VALROUT___V151*/ meltfptr[150])->tabval[0] = (melt_ptr_t)(/*_._VALDATA___V150*/ meltfptr[149]);
11422
11423 MELT_LOCATION("warmelt-debug.melt:111:/ initchunk");
11424 /*^putroutconst*/
11425 /*putroutconst*/
11426 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V151*/ meltfptr[150])) == MELTOBMAG_ROUTINE);
11427 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_94__REGISTER_TREE_DEBUG_FUN#1", NULL != (/*_.CLASS_REFERENCE__V10*/ meltfptr[9]));
11428 ((meltroutine_ptr_t)/*_._VALROUT___V151*/ meltfptr[150])->tabval[1] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V10*/ meltfptr[9]);
11429
11430 MELT_LOCATION("warmelt-debug.melt:111:/ initchunk");
11431 /*^touch*/
11432 /*touch:_IROUTVAL_*/
11433 meltgc_touch(/*_._VALROUT___V151*/ meltfptr[150]);
11434
11435 /*putclosurout#1*/
11436 melt_assertmsg("putclosrout#1 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V152*/ meltfptr[151])) == MELTOBMAG_CLOSURE);
11437 melt_assertmsg("putclosrout#1 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V151*/ meltfptr[150])) == MELTOBMAG_ROUTINE);
11438 ((meltclosure_ptr_t)/*_._VALCLO___V152*/ meltfptr[151])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V151*/ meltfptr[150]);
11439
11440 /*touch:_DATACLOSURE_*/
11441 meltgc_touch(/*_._VALCLO___V152*/ meltfptr[151]);
11442
11443 /*putslot*/
11444 melt_assertmsg("checkobj putslot ~dsym_96__GIMPLE_DEBUG_FUNCONT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V153*/ meltfptr[152])) == MELTOBMAG_OBJECT);
11445
11446 melt_assertmsg("checkoff putslot ~dsym_96__GIMPLE_DEBUG_FUNCONT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V153*/ meltfptr[152]))));
11447 ((meltobject_ptr_t)(/*_._VALDATA___V153*/ meltfptr[152]))->obj_vartab[1] = (melt_ptr_t)(
11448 /*_._VALSTR___V154*/ meltfptr[153]);
11449
11450 /*touch:_VALUEDATA_*/
11451 meltgc_touch(/*_._VALDATA___V153*/ meltfptr[152]);
11452
11453
11454 melt_dbgtrace_written_object (/*_._VALDATA___V153*/ meltfptr[152], "new static instance");
11455
11456 MELT_LOCATION("warmelt-debug.melt:123:/ initchunk");
11457 /*^touch*/
11458 /*touch:_VALUEDATA_*/
11459 meltgc_touch(/*_._VALDATA___V155*/ meltfptr[154]);
11460
11461 MELT_LOCATION("warmelt-debug.melt:123:/ initchunk");
11462 /*^touchobj*/
11463
11464 melt_dbgtrace_written_object (/*_._VALDATA___V155*/ meltfptr[154], "new static instance");
11465
11466 MELT_LOCATION("warmelt-debug.melt:124:/ initchunk");
11467 /*^putroutconstnotnull*/
11468 /*putroutconstnotnull*/
11469 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V156*/ meltfptr[155])) == MELTOBMAG_ROUTINE);
11470 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V155*/ meltfptr[154]);
11471 ((meltroutine_ptr_t)/*_._VALROUT___V156*/ meltfptr[155])->tabval[0] = (melt_ptr_t)(/*_._VALDATA___V155*/ meltfptr[154]);
11472
11473 MELT_LOCATION("warmelt-debug.melt:124:/ initchunk");
11474 /*^putroutconst*/
11475 /*putroutconst*/
11476 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V156*/ meltfptr[155])) == MELTOBMAG_ROUTINE);
11477 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_99__REGISTER_GIMPLE_DEBUG_FUN#1", NULL != (/*_.CLASS_REFERENCE__V10*/ meltfptr[9]));
11478 ((meltroutine_ptr_t)/*_._VALROUT___V156*/ meltfptr[155])->tabval[1] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V10*/ meltfptr[9]);
11479
11480 MELT_LOCATION("warmelt-debug.melt:124:/ initchunk");
11481 /*^touch*/
11482 /*touch:_IROUTVAL_*/
11483 meltgc_touch(/*_._VALROUT___V156*/ meltfptr[155]);
11484
11485 /*putclosurout#2*/
11486 melt_assertmsg("putclosrout#2 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V157*/ meltfptr[156])) == MELTOBMAG_CLOSURE);
11487 melt_assertmsg("putclosrout#2 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V156*/ meltfptr[155])) == MELTOBMAG_ROUTINE);
11488 ((meltclosure_ptr_t)/*_._VALCLO___V157*/ meltfptr[156])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V156*/ meltfptr[155]);
11489
11490 /*touch:_DATACLOSURE_*/
11491 meltgc_touch(/*_._VALCLO___V157*/ meltfptr[156]);
11492
11493 /*putslot*/
11494 melt_assertmsg("checkobj putslot ~dsym_101__GIMPLESEQ_DEBUG_FUNCONT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V158*/ meltfptr[157])) == MELTOBMAG_OBJECT);
11495
11496 melt_assertmsg("checkoff putslot ~dsym_101__GIMPLESEQ_DEBUG_FUNCONT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V158*/ meltfptr[157]))));
11497 ((meltobject_ptr_t)(/*_._VALDATA___V158*/ meltfptr[157]))->obj_vartab[1] = (melt_ptr_t)(
11498 /*_._VALSTR___V159*/ meltfptr[158]);
11499
11500 /*touch:_VALUEDATA_*/
11501 meltgc_touch(/*_._VALDATA___V158*/ meltfptr[157]);
11502
11503
11504 melt_dbgtrace_written_object (/*_._VALDATA___V158*/ meltfptr[157], "new static instance");
11505
11506 MELT_LOCATION("warmelt-debug.melt:136:/ initchunk");
11507 /*^touch*/
11508 /*touch:_VALUEDATA_*/
11509 meltgc_touch(/*_._VALDATA___V160*/ meltfptr[159]);
11510
11511 MELT_LOCATION("warmelt-debug.melt:136:/ initchunk");
11512 /*^touchobj*/
11513
11514 melt_dbgtrace_written_object (/*_._VALDATA___V160*/ meltfptr[159], "new static instance");
11515
11516 MELT_LOCATION("warmelt-debug.melt:137:/ initchunk");
11517 /*^putroutconstnotnull*/
11518 /*putroutconstnotnull*/
11519 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V161*/ meltfptr[160])) == MELTOBMAG_ROUTINE);
11520 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V160*/ meltfptr[159]);
11521 ((meltroutine_ptr_t)/*_._VALROUT___V161*/ meltfptr[160])->tabval[0] = (melt_ptr_t)(/*_._VALDATA___V160*/ meltfptr[159]);
11522
11523 MELT_LOCATION("warmelt-debug.melt:137:/ initchunk");
11524 /*^putroutconst*/
11525 /*putroutconst*/
11526 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V161*/ meltfptr[160])) == MELTOBMAG_ROUTINE);
11527 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_104__REGISTER_GIMPLESEQ_DEBUG_FUN#1", NULL != (/*_.CLASS_REFERENCE__V10*/ meltfptr[9]));
11528 ((meltroutine_ptr_t)/*_._VALROUT___V161*/ meltfptr[160])->tabval[1] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V10*/ meltfptr[9]);
11529
11530 MELT_LOCATION("warmelt-debug.melt:137:/ initchunk");
11531 /*^touch*/
11532 /*touch:_IROUTVAL_*/
11533 meltgc_touch(/*_._VALROUT___V161*/ meltfptr[160]);
11534
11535 /*putclosurout#3*/
11536 melt_assertmsg("putclosrout#3 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V162*/ meltfptr[161])) == MELTOBMAG_CLOSURE);
11537 melt_assertmsg("putclosrout#3 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V161*/ meltfptr[160])) == MELTOBMAG_ROUTINE);
11538 ((meltclosure_ptr_t)/*_._VALCLO___V162*/ meltfptr[161])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V161*/ meltfptr[160]);
11539
11540 /*touch:_DATACLOSURE_*/
11541 meltgc_touch(/*_._VALCLO___V162*/ meltfptr[161]);
11542
11543 /*putslot*/
11544 melt_assertmsg("checkobj putslot ~dsym_106__EDGE_DEBUG_FUNCONT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V163*/ meltfptr[162])) == MELTOBMAG_OBJECT);
11545
11546 melt_assertmsg("checkoff putslot ~dsym_106__EDGE_DEBUG_FUNCONT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V163*/ meltfptr[162]))));
11547 ((meltobject_ptr_t)(/*_._VALDATA___V163*/ meltfptr[162]))->obj_vartab[1] = (melt_ptr_t)(
11548 /*_._VALSTR___V164*/ meltfptr[163]);
11549
11550 /*touch:_VALUEDATA_*/
11551 meltgc_touch(/*_._VALDATA___V163*/ meltfptr[162]);
11552
11553
11554 melt_dbgtrace_written_object (/*_._VALDATA___V163*/ meltfptr[162], "new static instance");
11555
11556 MELT_LOCATION("warmelt-debug.melt:149:/ initchunk");
11557 /*^touch*/
11558 /*touch:_VALUEDATA_*/
11559 meltgc_touch(/*_._VALDATA___V165*/ meltfptr[164]);
11560
11561 MELT_LOCATION("warmelt-debug.melt:149:/ initchunk");
11562 /*^touchobj*/
11563
11564 melt_dbgtrace_written_object (/*_._VALDATA___V165*/ meltfptr[164], "new static instance");
11565
11566 MELT_LOCATION("warmelt-debug.melt:150:/ initchunk");
11567 /*^putroutconstnotnull*/
11568 /*putroutconstnotnull*/
11569 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V166*/ meltfptr[165])) == MELTOBMAG_ROUTINE);
11570 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V165*/ meltfptr[164]);
11571 ((meltroutine_ptr_t)/*_._VALROUT___V166*/ meltfptr[165])->tabval[0] = (melt_ptr_t)(/*_._VALDATA___V165*/ meltfptr[164]);
11572
11573 MELT_LOCATION("warmelt-debug.melt:150:/ initchunk");
11574 /*^putroutconst*/
11575 /*putroutconst*/
11576 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V166*/ meltfptr[165])) == MELTOBMAG_ROUTINE);
11577 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_109__REGISTER_EDGE_DEBUG_FUN#1", NULL != (/*_.CLASS_REFERENCE__V10*/ meltfptr[9]));
11578 ((meltroutine_ptr_t)/*_._VALROUT___V166*/ meltfptr[165])->tabval[1] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V10*/ meltfptr[9]);
11579
11580 MELT_LOCATION("warmelt-debug.melt:150:/ initchunk");
11581 /*^touch*/
11582 /*touch:_IROUTVAL_*/
11583 meltgc_touch(/*_._VALROUT___V166*/ meltfptr[165]);
11584
11585 /*putclosurout#4*/
11586 melt_assertmsg("putclosrout#4 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V167*/ meltfptr[166])) == MELTOBMAG_CLOSURE);
11587 melt_assertmsg("putclosrout#4 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V166*/ meltfptr[165])) == MELTOBMAG_ROUTINE);
11588 ((meltclosure_ptr_t)/*_._VALCLO___V167*/ meltfptr[166])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V166*/ meltfptr[165]);
11589
11590 /*touch:_DATACLOSURE_*/
11591 meltgc_touch(/*_._VALCLO___V167*/ meltfptr[166]);
11592
11593 /*putslot*/
11594 melt_assertmsg("checkobj putslot ~dsym_111__BASICBLOCK_DEBUG_FUNCONT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V168*/ meltfptr[167])) == MELTOBMAG_OBJECT);
11595
11596 melt_assertmsg("checkoff putslot ~dsym_111__BASICBLOCK_DEBUG_FUNCONT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V168*/ meltfptr[167]))));
11597 ((meltobject_ptr_t)(/*_._VALDATA___V168*/ meltfptr[167]))->obj_vartab[1] = (melt_ptr_t)(
11598 /*_._VALSTR___V169*/ meltfptr[168]);
11599
11600 /*touch:_VALUEDATA_*/
11601 meltgc_touch(/*_._VALDATA___V168*/ meltfptr[167]);
11602
11603
11604 melt_dbgtrace_written_object (/*_._VALDATA___V168*/ meltfptr[167], "new static instance");
11605
11606 MELT_LOCATION("warmelt-debug.melt:162:/ initchunk");
11607 /*^touch*/
11608 /*touch:_VALUEDATA_*/
11609 meltgc_touch(/*_._VALDATA___V170*/ meltfptr[169]);
11610
11611 MELT_LOCATION("warmelt-debug.melt:162:/ initchunk");
11612 /*^touchobj*/
11613
11614 melt_dbgtrace_written_object (/*_._VALDATA___V170*/ meltfptr[169], "new static instance");
11615
11616 MELT_LOCATION("warmelt-debug.melt:163:/ initchunk");
11617 /*^putroutconstnotnull*/
11618 /*putroutconstnotnull*/
11619 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V171*/ meltfptr[170])) == MELTOBMAG_ROUTINE);
11620 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V170*/ meltfptr[169]);
11621 ((meltroutine_ptr_t)/*_._VALROUT___V171*/ meltfptr[170])->tabval[0] = (melt_ptr_t)(/*_._VALDATA___V170*/ meltfptr[169]);
11622
11623 MELT_LOCATION("warmelt-debug.melt:163:/ initchunk");
11624 /*^putroutconst*/
11625 /*putroutconst*/
11626 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V171*/ meltfptr[170])) == MELTOBMAG_ROUTINE);
11627 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_114__REGISTER_BASICBLOCK_DEBUG_FUN#1", NULL != (/*_.CLASS_REFERENCE__V10*/ meltfptr[9]));
11628 ((meltroutine_ptr_t)/*_._VALROUT___V171*/ meltfptr[170])->tabval[1] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V10*/ meltfptr[9]);
11629
11630 MELT_LOCATION("warmelt-debug.melt:163:/ initchunk");
11631 /*^touch*/
11632 /*touch:_IROUTVAL_*/
11633 meltgc_touch(/*_._VALROUT___V171*/ meltfptr[170]);
11634
11635 /*putclosurout#5*/
11636 melt_assertmsg("putclosrout#5 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V172*/ meltfptr[171])) == MELTOBMAG_CLOSURE);
11637 melt_assertmsg("putclosrout#5 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V171*/ meltfptr[170])) == MELTOBMAG_ROUTINE);
11638 ((meltclosure_ptr_t)/*_._VALCLO___V172*/ meltfptr[171])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V171*/ meltfptr[170]);
11639
11640 /*touch:_DATACLOSURE_*/
11641 meltgc_touch(/*_._VALCLO___V172*/ meltfptr[171]);
11642
11643 /*putslot*/
11644 melt_assertmsg("checkobj putslot ~dsym_116__LOOP_DEBUG_FUNCONT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V173*/ meltfptr[172])) == MELTOBMAG_OBJECT);
11645
11646 melt_assertmsg("checkoff putslot ~dsym_116__LOOP_DEBUG_FUNCONT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V173*/ meltfptr[172]))));
11647 ((meltobject_ptr_t)(/*_._VALDATA___V173*/ meltfptr[172]))->obj_vartab[1] = (melt_ptr_t)(
11648 /*_._VALSTR___V174*/ meltfptr[173]);
11649
11650 /*touch:_VALUEDATA_*/
11651 meltgc_touch(/*_._VALDATA___V173*/ meltfptr[172]);
11652
11653
11654 melt_dbgtrace_written_object (/*_._VALDATA___V173*/ meltfptr[172], "new static instance");
11655
11656 MELT_LOCATION("warmelt-debug.melt:175:/ initchunk");
11657 /*^touch*/
11658 /*touch:_VALUEDATA_*/
11659 meltgc_touch(/*_._VALDATA___V175*/ meltfptr[174]);
11660
11661 MELT_LOCATION("warmelt-debug.melt:175:/ initchunk");
11662 /*^touchobj*/
11663
11664 melt_dbgtrace_written_object (/*_._VALDATA___V175*/ meltfptr[174], "new static instance");
11665
11666 MELT_LOCATION("warmelt-debug.melt:176:/ initchunk");
11667 /*^putroutconstnotnull*/
11668 /*putroutconstnotnull*/
11669 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V176*/ meltfptr[175])) == MELTOBMAG_ROUTINE);
11670 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V175*/ meltfptr[174]);
11671 ((meltroutine_ptr_t)/*_._VALROUT___V176*/ meltfptr[175])->tabval[0] = (melt_ptr_t)(/*_._VALDATA___V175*/ meltfptr[174]);
11672
11673 MELT_LOCATION("warmelt-debug.melt:176:/ initchunk");
11674 /*^putroutconst*/
11675 /*putroutconst*/
11676 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V176*/ meltfptr[175])) == MELTOBMAG_ROUTINE);
11677 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_119__REGISTER_LOOP_DEBUG_FUN#1", NULL != (/*_.CLASS_REFERENCE__V10*/ meltfptr[9]));
11678 ((meltroutine_ptr_t)/*_._VALROUT___V176*/ meltfptr[175])->tabval[1] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V10*/ meltfptr[9]);
11679
11680 MELT_LOCATION("warmelt-debug.melt:176:/ initchunk");
11681 /*^touch*/
11682 /*touch:_IROUTVAL_*/
11683 meltgc_touch(/*_._VALROUT___V176*/ meltfptr[175]);
11684
11685 /*putclosurout#6*/
11686 melt_assertmsg("putclosrout#6 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V177*/ meltfptr[176])) == MELTOBMAG_CLOSURE);
11687 melt_assertmsg("putclosrout#6 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V176*/ meltfptr[175])) == MELTOBMAG_ROUTINE);
11688 ((meltclosure_ptr_t)/*_._VALCLO___V177*/ meltfptr[176])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V176*/ meltfptr[175]);
11689
11690 /*touch:_DATACLOSURE_*/
11691 meltgc_touch(/*_._VALCLO___V177*/ meltfptr[176]);
11692
11693 /*putslot*/
11694 melt_assertmsg("checkobj putslot ~dsym_121__DISCR_DEBUG_CLOSURE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V178*/ meltfptr[177])) == MELTOBMAG_OBJECT);
11695
11696 melt_assertmsg("checkoff putslot ~dsym_121__DISCR_DEBUG_CLOSURE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V178*/ meltfptr[177]))));
11697 ((meltobject_ptr_t)(/*_._VALDATA___V178*/ meltfptr[177]))->obj_vartab[1] = (melt_ptr_t)(
11698 /*_._VALSTR___V179*/ meltfptr[178]);
11699
11700 /*touch:_VALUEDATA_*/
11701 meltgc_touch(/*_._VALDATA___V178*/ meltfptr[177]);
11702
11703
11704 melt_dbgtrace_written_object (/*_._VALDATA___V178*/ meltfptr[177], "new static instance");
11705
11706 /*putslot*/
11707 melt_assertmsg("checkobj putslot ~dsym_123__CLASS_DISCRIMINANT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V180*/ meltfptr[179])) == MELTOBMAG_OBJECT);
11708
11709 melt_assertmsg("checkoff putslot ~dsym_123__CLASS_DISCRIMINANT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V180*/ meltfptr[179]))));
11710 ((meltobject_ptr_t)(/*_._VALDATA___V180*/ meltfptr[179]))->obj_vartab[1] = (melt_ptr_t)(
11711 /*_._VALSTR___V181*/ meltfptr[180]);
11712
11713 /*touch:_VALUEDATA_*/
11714 meltgc_touch(/*_._VALDATA___V180*/ meltfptr[179]);
11715
11716
11717 melt_dbgtrace_written_object (/*_._VALDATA___V180*/ meltfptr[179], "new static instance");
11718
11719
11720 #undef meltfram__
11721 } /*end of meltmod__WARMELTmiDEBUG__initialmeltchunk_1*/
11722
11723
11724
11725 void meltmod__WARMELTmiDEBUG__initialmeltchunk_2 (meltinitial_frame_t* meltframptr__, char meltpredefinited[])
11726 {
11727 #define meltfram__ (*meltframptr__)
11728 #undef meltcallcount
11729 #define meltcallcount 0L
11730 (void) meltpredefinited;
11731 MELT_LOCATION("warmelt-debug.melt:188:/ initchunk");
11732 /*^putslot*/
11733 /*putslot*/
11734 melt_assertmsg("checkobj putslot ~dobj_125__DISCR_DEBUG_CLOSURE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V182*/ meltfptr[181])) == MELTOBMAG_OBJECT);
11735
11736 melt_assertmsg("checkoff putslot ~dobj_125__DISCR_DEBUG_CLOSURE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V182*/ meltfptr[181]))));
11737 ((meltobject_ptr_t)(/*_._VALDATA___V182*/ meltfptr[181]))->obj_vartab[1] = (melt_ptr_t)(
11738 /*_._VALSTR___V183*/ meltfptr[182]);
11739
11740 MELT_LOCATION("warmelt-debug.melt:188:/ initchunk");
11741 /*^putslot*/
11742 /*putslot*/
11743 melt_assertmsg("checkobj putslot ~dobj_125__DISCR_DEBUG_CLOSURE @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V182*/ meltfptr[181])) == MELTOBMAG_OBJECT);
11744
11745 melt_assertmsg("checkoff putslot ~dobj_125__DISCR_DEBUG_CLOSURE @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V182*/ meltfptr[181]))));
11746 ((meltobject_ptr_t)(/*_._VALDATA___V182*/ meltfptr[181]))->obj_vartab[4] = (melt_ptr_t)(
11747 /*_.DISCR_CLOSURE__V12*/ meltfptr[11]);
11748
11749 MELT_LOCATION("warmelt-debug.melt:188:/ initchunk");
11750 /*^touch*/
11751 /*touch:_VALUEDATA_*/
11752 meltgc_touch(/*_._VALDATA___V182*/ meltfptr[181]);
11753
11754 MELT_LOCATION("warmelt-debug.melt:188:/ initchunk");
11755 /*^touchobj*/
11756
11757 melt_dbgtrace_written_object (/*_._VALDATA___V182*/ meltfptr[181], "new static instance");
11758
11759 /*putslot*/
11760 melt_assertmsg("checkobj putslot ~dsym_126__DISCR_CLOSURE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V184*/ meltfptr[183])) == MELTOBMAG_OBJECT);
11761
11762 melt_assertmsg("checkoff putslot ~dsym_126__DISCR_CLOSURE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V184*/ meltfptr[183]))));
11763 ((meltobject_ptr_t)(/*_._VALDATA___V184*/ meltfptr[183]))->obj_vartab[1] = (melt_ptr_t)(
11764 /*_._VALSTR___V185*/ meltfptr[184]);
11765
11766 /*touch:_VALUEDATA_*/
11767 meltgc_touch(/*_._VALDATA___V184*/ meltfptr[183]);
11768
11769
11770 melt_dbgtrace_written_object (/*_._VALDATA___V184*/ meltfptr[183], "new static instance");
11771
11772 MELT_LOCATION("warmelt-debug.melt:199:/ initchunk");
11773 /*^putroutconst*/
11774 /*putroutconst*/
11775 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V186*/ meltfptr[185])) == MELTOBMAG_ROUTINE);
11776 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_129__MELT_DEBUG_FUN#0", NULL != (/*_.INITIAL_SYSTEM_DATA__V13*/ meltfptr[12]));
11777 ((meltroutine_ptr_t)/*_._VALROUT___V186*/ meltfptr[185])->tabval[0] = (melt_ptr_t)(/*_.INITIAL_SYSTEM_DATA__V13*/ meltfptr[12]);
11778
11779 MELT_LOCATION("warmelt-debug.melt:199:/ initchunk");
11780 /*^putroutconst*/
11781 /*putroutconst*/
11782 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V186*/ meltfptr[185])) == MELTOBMAG_ROUTINE);
11783 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_129__MELT_DEBUG_FUN#1", NULL != (/*_.CLASS_SYSTEM_DATA__V14*/ meltfptr[13]));
11784 ((meltroutine_ptr_t)/*_._VALROUT___V186*/ meltfptr[185])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SYSTEM_DATA__V14*/ meltfptr[13]);
11785
11786 MELT_LOCATION("warmelt-debug.melt:199:/ initchunk");
11787 /*^putroutconst*/
11788 /*putroutconst*/
11789 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V186*/ meltfptr[185])) == MELTOBMAG_ROUTINE);
11790 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_129__MELT_DEBUG_FUN#2", NULL != (/*_.DISCR_MAP_OBJECTS__V15*/ meltfptr[14]));
11791 ((meltroutine_ptr_t)/*_._VALROUT___V186*/ meltfptr[185])->tabval[2] = (melt_ptr_t)(/*_.DISCR_MAP_OBJECTS__V15*/ meltfptr[14]);
11792
11793 MELT_LOCATION("warmelt-debug.melt:199:/ initchunk");
11794 /*^putroutconst*/
11795 /*putroutconst*/
11796 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V186*/ meltfptr[185])) == MELTOBMAG_ROUTINE);
11797 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_129__MELT_DEBUG_FUN#3", NULL != (/*_.DISCR_INTEGER__V16*/ meltfptr[15]));
11798 ((meltroutine_ptr_t)/*_._VALROUT___V186*/ meltfptr[185])->tabval[3] = (melt_ptr_t)(/*_.DISCR_INTEGER__V16*/ meltfptr[15]);
11799
11800 MELT_LOCATION("warmelt-debug.melt:199:/ initchunk");
11801 /*^putroutconst*/
11802 /*putroutconst*/
11803 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V186*/ meltfptr[185])) == MELTOBMAG_ROUTINE);
11804 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_129__MELT_DEBUG_FUN#4", NULL != (/*_.DISCR_STRBUF__V17*/ meltfptr[16]));
11805 ((meltroutine_ptr_t)/*_._VALROUT___V186*/ meltfptr[185])->tabval[4] = (melt_ptr_t)(/*_.DISCR_STRBUF__V17*/ meltfptr[16]);
11806
11807 MELT_LOCATION("warmelt-debug.melt:199:/ initchunk");
11808 /*^putroutconst*/
11809 /*putroutconst*/
11810 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V186*/ meltfptr[185])) == MELTOBMAG_ROUTINE);
11811 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_129__MELT_DEBUG_FUN#5", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]));
11812 ((meltroutine_ptr_t)/*_._VALROUT___V186*/ meltfptr[185])->tabval[5] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]);
11813
11814 MELT_LOCATION("warmelt-debug.melt:199:/ initchunk");
11815 /*^putroutconstnotnull*/
11816 /*putroutconstnotnull*/
11817 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V186*/ meltfptr[185])) == MELTOBMAG_ROUTINE);
11818 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V64*/ meltfptr[63]);
11819 ((meltroutine_ptr_t)/*_._VALROUT___V186*/ meltfptr[185])->tabval[6] = (melt_ptr_t)(/*_._VALDATA___V64*/ meltfptr[63]);
11820
11821 MELT_LOCATION("warmelt-debug.melt:199:/ initchunk");
11822 /*^putroutconst*/
11823 /*putroutconst*/
11824 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V186*/ meltfptr[185])) == MELTOBMAG_ROUTINE);
11825 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_129__MELT_DEBUG_FUN#7", NULL != (/*_.ADD2OUT__V19*/ meltfptr[18]));
11826 ((meltroutine_ptr_t)/*_._VALROUT___V186*/ meltfptr[185])->tabval[7] = (melt_ptr_t)(/*_.ADD2OUT__V19*/ meltfptr[18]);
11827
11828 MELT_LOCATION("warmelt-debug.melt:199:/ initchunk");
11829 /*^putroutconst*/
11830 /*putroutconst*/
11831 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V186*/ meltfptr[185])) == MELTOBMAG_ROUTINE);
11832 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_129__MELT_DEBUG_FUN#8", NULL != (/*_.CSTRING_PREFIXED__V20*/ meltfptr[19]));
11833 ((meltroutine_ptr_t)/*_._VALROUT___V186*/ meltfptr[185])->tabval[8] = (melt_ptr_t)(/*_.CSTRING_PREFIXED__V20*/ meltfptr[19]);
11834
11835 MELT_LOCATION("warmelt-debug.melt:199:/ initchunk");
11836 /*^putroutconstnotnull*/
11837 /*putroutconstnotnull*/
11838 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V186*/ meltfptr[185])) == MELTOBMAG_ROUTINE);
11839 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V182*/ meltfptr[181]);
11840 ((meltroutine_ptr_t)/*_._VALROUT___V186*/ meltfptr[185])->tabval[9] = (melt_ptr_t)(/*_._VALDATA___V182*/ meltfptr[181]);
11841
11842 MELT_LOCATION("warmelt-debug.melt:429:/ initchunk");
11843 /*^putroutconstnotnull*/
11844 /*putroutconstnotnull*/
11845 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V188*/ meltfptr[187])) == MELTOBMAG_ROUTINE);
11846 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V64*/ meltfptr[63]);
11847 ((meltroutine_ptr_t)/*_._VALROUT___V188*/ meltfptr[187])->tabval[0] = (melt_ptr_t)(/*_._VALDATA___V64*/ meltfptr[63]);
11848
11849 MELT_LOCATION("warmelt-debug.melt:429:/ initchunk");
11850 /*^putroutconst*/
11851 /*putroutconst*/
11852 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V188*/ meltfptr[187])) == MELTOBMAG_ROUTINE);
11853 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_153__DBG_OUT#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]));
11854 ((meltroutine_ptr_t)/*_._VALROUT___V188*/ meltfptr[187])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]);
11855
11856 MELT_LOCATION("warmelt-debug.melt:409:/ initchunk");
11857 /*^putroutconstnotnull*/
11858 /*putroutconstnotnull*/
11859 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V190*/ meltfptr[189])) == MELTOBMAG_ROUTINE);
11860 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V64*/ meltfptr[63]);
11861 ((meltroutine_ptr_t)/*_._VALROUT___V190*/ meltfptr[189])->tabval[0] = (melt_ptr_t)(/*_._VALDATA___V64*/ meltfptr[63]);
11862
11863 MELT_LOCATION("warmelt-debug.melt:409:/ initchunk");
11864 /*^putroutconst*/
11865 /*putroutconst*/
11866 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V190*/ meltfptr[189])) == MELTOBMAG_ROUTINE);
11867 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_151__DBG_OUTOBJECT#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]));
11868 ((meltroutine_ptr_t)/*_._VALROUT___V190*/ meltfptr[189])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]);
11869
11870 MELT_LOCATION("warmelt-debug.melt:409:/ initchunk");
11871 /*^putroutconstnotnull*/
11872 /*putroutconstnotnull*/
11873 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V190*/ meltfptr[189])) == MELTOBMAG_ROUTINE);
11874 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V144*/ meltfptr[143]);
11875 ((meltroutine_ptr_t)/*_._VALROUT___V190*/ meltfptr[189])->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V144*/ meltfptr[143]);
11876
11877 MELT_LOCATION("warmelt-debug.melt:409:/ initchunk");
11878 /*^putroutconst*/
11879 /*putroutconst*/
11880 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V190*/ meltfptr[189])) == MELTOBMAG_ROUTINE);
11881 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_151__DBG_OUTOBJECT#3", NULL != (/*_.DISCR_INTEGER__V16*/ meltfptr[15]));
11882 ((meltroutine_ptr_t)/*_._VALROUT___V190*/ meltfptr[189])->tabval[3] = (melt_ptr_t)(/*_.DISCR_INTEGER__V16*/ meltfptr[15]);
11883
11884 MELT_LOCATION("warmelt-debug.melt:409:/ initchunk");
11885 /*^putroutconstnotnull*/
11886 /*putroutconstnotnull*/
11887 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V190*/ meltfptr[189])) == MELTOBMAG_ROUTINE);
11888 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V136*/ meltfptr[135]);
11889 ((meltroutine_ptr_t)/*_._VALROUT___V190*/ meltfptr[189])->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V136*/ meltfptr[135]);
11890
11891 MELT_LOCATION("warmelt-debug.melt:409:/ initchunk");
11892 /*^touch*/
11893 /*touch:_IROUTVAL_*/
11894 meltgc_touch(/*_._VALROUT___V190*/ meltfptr[189]);
11895
11896 /*putclosurout#7*/
11897 melt_assertmsg("putclosrout#7 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V189*/ meltfptr[188])) == MELTOBMAG_CLOSURE);
11898 melt_assertmsg("putclosrout#7 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V190*/ meltfptr[189])) == MELTOBMAG_ROUTINE);
11899 ((meltclosure_ptr_t)/*_._VALCLO___V189*/ meltfptr[188])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V190*/ meltfptr[189]);
11900
11901 /*touch:_DATACLOSURE_*/
11902 meltgc_touch(/*_._VALCLO___V189*/ meltfptr[188]);
11903
11904 MELT_LOCATION("warmelt-debug.melt:429:/ initchunk");
11905 /*^putroutconstnotnull*/
11906 /*putroutconstnotnull*/
11907 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V188*/ meltfptr[187])) == MELTOBMAG_ROUTINE);
11908 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V189*/ meltfptr[188]);
11909 ((meltroutine_ptr_t)/*_._VALROUT___V188*/ meltfptr[187])->tabval[2] = (melt_ptr_t)(/*_._VALCLO___V189*/ meltfptr[188]);
11910
11911 MELT_LOCATION("warmelt-debug.melt:429:/ initchunk");
11912 /*^putroutconstnotnull*/
11913 /*putroutconstnotnull*/
11914 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V188*/ meltfptr[187])) == MELTOBMAG_ROUTINE);
11915 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V136*/ meltfptr[135]);
11916 ((meltroutine_ptr_t)/*_._VALROUT___V188*/ meltfptr[187])->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V136*/ meltfptr[135]);
11917
11918 MELT_LOCATION("warmelt-debug.melt:429:/ initchunk");
11919 /*^touch*/
11920 /*touch:_IROUTVAL_*/
11921 meltgc_touch(/*_._VALROUT___V188*/ meltfptr[187]);
11922
11923 /*putclosurout#8*/
11924 melt_assertmsg("putclosrout#8 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V187*/ meltfptr[186])) == MELTOBMAG_CLOSURE);
11925 melt_assertmsg("putclosrout#8 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V188*/ meltfptr[187])) == MELTOBMAG_ROUTINE);
11926 ((meltclosure_ptr_t)/*_._VALCLO___V187*/ meltfptr[186])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V188*/ meltfptr[187]);
11927
11928 /*touch:_DATACLOSURE_*/
11929 meltgc_touch(/*_._VALCLO___V187*/ meltfptr[186]);
11930
11931 MELT_LOCATION("warmelt-debug.melt:199:/ initchunk");
11932 /*^putroutconstnotnull*/
11933 /*putroutconstnotnull*/
11934 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V186*/ meltfptr[185])) == MELTOBMAG_ROUTINE);
11935 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V187*/ meltfptr[186]);
11936 ((meltroutine_ptr_t)/*_._VALROUT___V186*/ meltfptr[185])->tabval[10] = (melt_ptr_t)(/*_._VALCLO___V187*/ meltfptr[186]);
11937
11938 MELT_LOCATION("warmelt-debug.melt:199:/ initchunk");
11939 /*^putroutconstnotnull*/
11940 /*putroutconstnotnull*/
11941 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V186*/ meltfptr[185])) == MELTOBMAG_ROUTINE);
11942 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V150*/ meltfptr[149]);
11943 ((meltroutine_ptr_t)/*_._VALROUT___V186*/ meltfptr[185])->tabval[11] = (melt_ptr_t)(/*_._VALDATA___V150*/ meltfptr[149]);
11944
11945 MELT_LOCATION("warmelt-debug.melt:199:/ initchunk");
11946 /*^putroutconst*/
11947 /*putroutconst*/
11948 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V186*/ meltfptr[185])) == MELTOBMAG_ROUTINE);
11949 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_129__MELT_DEBUG_FUN#12", NULL != (/*_.CLASS_REFERENCE__V10*/ meltfptr[9]));
11950 ((meltroutine_ptr_t)/*_._VALROUT___V186*/ meltfptr[185])->tabval[12] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V10*/ meltfptr[9]);
11951
11952 MELT_LOCATION("warmelt-debug.melt:199:/ initchunk");
11953 /*^putroutconstnotnull*/
11954 /*putroutconstnotnull*/
11955 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V186*/ meltfptr[185])) == MELTOBMAG_ROUTINE);
11956 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V155*/ meltfptr[154]);
11957 ((meltroutine_ptr_t)/*_._VALROUT___V186*/ meltfptr[185])->tabval[13] = (melt_ptr_t)(/*_._VALDATA___V155*/ meltfptr[154]);
11958
11959 MELT_LOCATION("warmelt-debug.melt:199:/ initchunk");
11960 /*^putroutconstnotnull*/
11961 /*putroutconstnotnull*/
11962 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V186*/ meltfptr[185])) == MELTOBMAG_ROUTINE);
11963 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V160*/ meltfptr[159]);
11964 ((meltroutine_ptr_t)/*_._VALROUT___V186*/ meltfptr[185])->tabval[14] = (melt_ptr_t)(/*_._VALDATA___V160*/ meltfptr[159]);
11965
11966 MELT_LOCATION("warmelt-debug.melt:199:/ initchunk");
11967 /*^putroutconstnotnull*/
11968 /*putroutconstnotnull*/
11969 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V186*/ meltfptr[185])) == MELTOBMAG_ROUTINE);
11970 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V165*/ meltfptr[164]);
11971 ((meltroutine_ptr_t)/*_._VALROUT___V186*/ meltfptr[185])->tabval[15] = (melt_ptr_t)(/*_._VALDATA___V165*/ meltfptr[164]);
11972
11973 MELT_LOCATION("warmelt-debug.melt:199:/ initchunk");
11974 /*^putroutconstnotnull*/
11975 /*putroutconstnotnull*/
11976 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V186*/ meltfptr[185])) == MELTOBMAG_ROUTINE);
11977 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V170*/ meltfptr[169]);
11978 ((meltroutine_ptr_t)/*_._VALROUT___V186*/ meltfptr[185])->tabval[16] = (melt_ptr_t)(/*_._VALDATA___V170*/ meltfptr[169]);
11979
11980 MELT_LOCATION("warmelt-debug.melt:199:/ initchunk");
11981 /*^putroutconstnotnull*/
11982 /*putroutconstnotnull*/
11983 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V186*/ meltfptr[185])) == MELTOBMAG_ROUTINE);
11984 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V175*/ meltfptr[174]);
11985 ((meltroutine_ptr_t)/*_._VALROUT___V186*/ meltfptr[185])->tabval[17] = (melt_ptr_t)(/*_._VALDATA___V175*/ meltfptr[174]);
11986
11987 MELT_LOCATION("warmelt-debug.melt:199:/ initchunk");
11988 /*^putroutconst*/
11989 /*putroutconst*/
11990 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V186*/ meltfptr[185])) == MELTOBMAG_ROUTINE);
11991 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_129__MELT_DEBUG_FUN#18", NULL != (/*_.CLASS_NAMED__V21*/ meltfptr[20]));
11992 ((meltroutine_ptr_t)/*_._VALROUT___V186*/ meltfptr[185])->tabval[18] = (melt_ptr_t)(/*_.CLASS_NAMED__V21*/ meltfptr[20]);
11993
11994 MELT_LOCATION("warmelt-debug.melt:199:/ initchunk");
11995 /*^putroutconst*/
11996 /*putroutconst*/
11997 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V186*/ meltfptr[185])) == MELTOBMAG_ROUTINE);
11998 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_129__MELT_DEBUG_FUN#19", NULL != (/*_.CLASS_QUASI_CTYPE__V22*/ meltfptr[21]));
11999 ((meltroutine_ptr_t)/*_._VALROUT___V186*/ meltfptr[185])->tabval[19] = (melt_ptr_t)(/*_.CLASS_QUASI_CTYPE__V22*/ meltfptr[21]);
12000
12001 MELT_LOCATION("warmelt-debug.melt:199:/ initchunk");
12002 /*^touch*/
12003 /*touch:_IROUTVAL_*/
12004 meltgc_touch(/*_._VALROUT___V186*/ meltfptr[185]);
12005
12006 /*putclosurout#9*/
12007 melt_assertmsg("putclosrout#9 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V191*/ meltfptr[190])) == MELTOBMAG_CLOSURE);
12008 melt_assertmsg("putclosrout#9 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V186*/ meltfptr[185])) == MELTOBMAG_ROUTINE);
12009 ((meltclosure_ptr_t)/*_._VALCLO___V191*/ meltfptr[190])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V186*/ meltfptr[185]);
12010
12011 /*touch:_DATACLOSURE_*/
12012 meltgc_touch(/*_._VALCLO___V191*/ meltfptr[190]);
12013
12014 /*putslot*/
12015 melt_assertmsg("checkobj putslot ~dsym_131__INITIAL_SYSTEM_DATA @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V192*/ meltfptr[191])) == MELTOBMAG_OBJECT);
12016
12017 melt_assertmsg("checkoff putslot ~dsym_131__INITIAL_SYSTEM_DATA @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V192*/ meltfptr[191]))));
12018 ((meltobject_ptr_t)(/*_._VALDATA___V192*/ meltfptr[191]))->obj_vartab[1] = (melt_ptr_t)(
12019 /*_._VALSTR___V193*/ meltfptr[192]);
12020
12021 /*touch:_VALUEDATA_*/
12022 meltgc_touch(/*_._VALDATA___V192*/ meltfptr[191]);
12023
12024
12025 melt_dbgtrace_written_object (/*_._VALDATA___V192*/ meltfptr[191], "new static instance");
12026
12027 /*putslot*/
12028 melt_assertmsg("checkobj putslot ~dsym_133__CLASS_SYSTEM_DATA @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V194*/ meltfptr[193])) == MELTOBMAG_OBJECT);
12029
12030 melt_assertmsg("checkoff putslot ~dsym_133__CLASS_SYSTEM_DATA @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V194*/ meltfptr[193]))));
12031 ((meltobject_ptr_t)(/*_._VALDATA___V194*/ meltfptr[193]))->obj_vartab[1] = (melt_ptr_t)(
12032 /*_._VALSTR___V195*/ meltfptr[194]);
12033
12034 /*touch:_VALUEDATA_*/
12035 meltgc_touch(/*_._VALDATA___V194*/ meltfptr[193]);
12036
12037
12038 melt_dbgtrace_written_object (/*_._VALDATA___V194*/ meltfptr[193], "new static instance");
12039
12040 /*putslot*/
12041 melt_assertmsg("checkobj putslot ~dsym_135__DISCR_MAP_OBJECTS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V196*/ meltfptr[195])) == MELTOBMAG_OBJECT);
12042
12043 melt_assertmsg("checkoff putslot ~dsym_135__DISCR_MAP_OBJECTS @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V196*/ meltfptr[195]))));
12044 ((meltobject_ptr_t)(/*_._VALDATA___V196*/ meltfptr[195]))->obj_vartab[1] = (melt_ptr_t)(
12045 /*_._VALSTR___V197*/ meltfptr[196]);
12046
12047 /*touch:_VALUEDATA_*/
12048 meltgc_touch(/*_._VALDATA___V196*/ meltfptr[195]);
12049
12050
12051 melt_dbgtrace_written_object (/*_._VALDATA___V196*/ meltfptr[195], "new static instance");
12052
12053 /*putslot*/
12054 melt_assertmsg("checkobj putslot ~dsym_137__DISCR_INTEGER @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V198*/ meltfptr[197])) == MELTOBMAG_OBJECT);
12055
12056 melt_assertmsg("checkoff putslot ~dsym_137__DISCR_INTEGER @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V198*/ meltfptr[197]))));
12057 ((meltobject_ptr_t)(/*_._VALDATA___V198*/ meltfptr[197]))->obj_vartab[1] = (melt_ptr_t)(
12058 /*_._VALSTR___V199*/ meltfptr[198]);
12059
12060 /*touch:_VALUEDATA_*/
12061 meltgc_touch(/*_._VALDATA___V198*/ meltfptr[197]);
12062
12063
12064 melt_dbgtrace_written_object (/*_._VALDATA___V198*/ meltfptr[197], "new static instance");
12065
12066 /*putslot*/
12067 melt_assertmsg("checkobj putslot ~dsym_139__DISCR_STRBUF @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V200*/ meltfptr[199])) == MELTOBMAG_OBJECT);
12068
12069 melt_assertmsg("checkoff putslot ~dsym_139__DISCR_STRBUF @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V200*/ meltfptr[199]))));
12070 ((meltobject_ptr_t)(/*_._VALDATA___V200*/ meltfptr[199]))->obj_vartab[1] = (melt_ptr_t)(
12071 /*_._VALSTR___V201*/ meltfptr[200]);
12072
12073 /*touch:_VALUEDATA_*/
12074 meltgc_touch(/*_._VALDATA___V200*/ meltfptr[199]);
12075
12076
12077 melt_dbgtrace_written_object (/*_._VALDATA___V200*/ meltfptr[199], "new static instance");
12078
12079 /*putslot*/
12080 melt_assertmsg("checkobj putslot ~dsym_141__MELT_ASSERT_FAILURE_FUN @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V202*/ meltfptr[201])) == MELTOBMAG_OBJECT);
12081
12082 melt_assertmsg("checkoff putslot ~dsym_141__MELT_ASSERT_FAILURE_FUN @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V202*/ meltfptr[201]))));
12083 ((meltobject_ptr_t)(/*_._VALDATA___V202*/ meltfptr[201]))->obj_vartab[1] = (melt_ptr_t)(
12084 /*_._VALSTR___V203*/ meltfptr[202]);
12085
12086 /*touch:_VALUEDATA_*/
12087 meltgc_touch(/*_._VALDATA___V202*/ meltfptr[201]);
12088
12089
12090 melt_dbgtrace_written_object (/*_._VALDATA___V202*/ meltfptr[201], "new static instance");
12091
12092 /*putslot*/
12093 melt_assertmsg("checkobj putslot ~dsym_143__ADD2OUT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V204*/ meltfptr[203])) == MELTOBMAG_OBJECT);
12094
12095 melt_assertmsg("checkoff putslot ~dsym_143__ADD2OUT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V204*/ meltfptr[203]))));
12096 ((meltobject_ptr_t)(/*_._VALDATA___V204*/ meltfptr[203]))->obj_vartab[1] = (melt_ptr_t)(
12097 /*_._VALSTR___V205*/ meltfptr[204]);
12098
12099 /*touch:_VALUEDATA_*/
12100 meltgc_touch(/*_._VALDATA___V204*/ meltfptr[203]);
12101
12102
12103 melt_dbgtrace_written_object (/*_._VALDATA___V204*/ meltfptr[203], "new static instance");
12104
12105 /*putslot*/
12106 melt_assertmsg("checkobj putslot ~dsym_145__CSTRING_PREFIXED @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V206*/ meltfptr[205])) == MELTOBMAG_OBJECT);
12107
12108 melt_assertmsg("checkoff putslot ~dsym_145__CSTRING_PREFIXED @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V206*/ meltfptr[205]))));
12109 ((meltobject_ptr_t)(/*_._VALDATA___V206*/ meltfptr[205]))->obj_vartab[1] = (melt_ptr_t)(
12110 /*_._VALSTR___V207*/ meltfptr[206]);
12111
12112 /*touch:_VALUEDATA_*/
12113 meltgc_touch(/*_._VALDATA___V206*/ meltfptr[205]);
12114
12115
12116 melt_dbgtrace_written_object (/*_._VALDATA___V206*/ meltfptr[205], "new static instance");
12117
12118 /*putslot*/
12119 melt_assertmsg("checkobj putslot ~dsym_147__CLASS_NAMED @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V208*/ meltfptr[207])) == MELTOBMAG_OBJECT);
12120
12121 melt_assertmsg("checkoff putslot ~dsym_147__CLASS_NAMED @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V208*/ meltfptr[207]))));
12122 ((meltobject_ptr_t)(/*_._VALDATA___V208*/ meltfptr[207]))->obj_vartab[1] = (melt_ptr_t)(
12123 /*_._VALSTR___V209*/ meltfptr[208]);
12124
12125 /*touch:_VALUEDATA_*/
12126 meltgc_touch(/*_._VALDATA___V208*/ meltfptr[207]);
12127
12128
12129 melt_dbgtrace_written_object (/*_._VALDATA___V208*/ meltfptr[207], "new static instance");
12130
12131 /*putslot*/
12132 melt_assertmsg("checkobj putslot ~dsym_149__CLASS_QUASI_CTYPE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V210*/ meltfptr[209])) == MELTOBMAG_OBJECT);
12133
12134 melt_assertmsg("checkoff putslot ~dsym_149__CLASS_QUASI_CTYPE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V210*/ meltfptr[209]))));
12135 ((meltobject_ptr_t)(/*_._VALDATA___V210*/ meltfptr[209]))->obj_vartab[1] = (melt_ptr_t)(
12136 /*_._VALSTR___V211*/ meltfptr[210]);
12137
12138 /*touch:_VALUEDATA_*/
12139 meltgc_touch(/*_._VALDATA___V210*/ meltfptr[209]);
12140
12141
12142 melt_dbgtrace_written_object (/*_._VALDATA___V210*/ meltfptr[209], "new static instance");
12143
12144 MELT_LOCATION("warmelt-debug.melt:457:/ initchunk");
12145 /*^putroutconstnotnull*/
12146 /*putroutconstnotnull*/
12147 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V212*/ meltfptr[211])) == MELTOBMAG_ROUTINE);
12148 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V64*/ meltfptr[63]);
12149 ((meltroutine_ptr_t)/*_._VALROUT___V212*/ meltfptr[211])->tabval[0] = (melt_ptr_t)(/*_._VALDATA___V64*/ meltfptr[63]);
12150
12151 MELT_LOCATION("warmelt-debug.melt:457:/ initchunk");
12152 /*^putroutconst*/
12153 /*putroutconst*/
12154 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V212*/ meltfptr[211])) == MELTOBMAG_ROUTINE);
12155 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_155__DBGOUT_FIELDS#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]));
12156 ((meltroutine_ptr_t)/*_._VALROUT___V212*/ meltfptr[211])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]);
12157
12158 MELT_LOCATION("warmelt-debug.melt:457:/ initchunk");
12159 /*^putroutconstnotnull*/
12160 /*putroutconstnotnull*/
12161 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V212*/ meltfptr[211])) == MELTOBMAG_ROUTINE);
12162 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V187*/ meltfptr[186]);
12163 ((meltroutine_ptr_t)/*_._VALROUT___V212*/ meltfptr[211])->tabval[2] = (melt_ptr_t)(/*_._VALCLO___V187*/ meltfptr[186]);
12164
12165 MELT_LOCATION("warmelt-debug.melt:457:/ initchunk");
12166 /*^touch*/
12167 /*touch:_IROUTVAL_*/
12168 meltgc_touch(/*_._VALROUT___V212*/ meltfptr[211]);
12169
12170 /*putclosurout#10*/
12171 melt_assertmsg("putclosrout#10 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V213*/ meltfptr[212])) == MELTOBMAG_CLOSURE);
12172 melt_assertmsg("putclosrout#10 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V212*/ meltfptr[211])) == MELTOBMAG_ROUTINE);
12173 ((meltclosure_ptr_t)/*_._VALCLO___V213*/ meltfptr[212])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V212*/ meltfptr[211]);
12174
12175 /*touch:_DATACLOSURE_*/
12176 meltgc_touch(/*_._VALCLO___V213*/ meltfptr[212]);
12177
12178 MELT_LOCATION("warmelt-debug.melt:510:/ initchunk");
12179 /*^putroutconstnotnull*/
12180 /*putroutconstnotnull*/
12181 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V214*/ meltfptr[213])) == MELTOBMAG_ROUTINE);
12182 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V64*/ meltfptr[63]);
12183 ((meltroutine_ptr_t)/*_._VALROUT___V214*/ meltfptr[213])->tabval[0] = (melt_ptr_t)(/*_._VALDATA___V64*/ meltfptr[63]);
12184
12185 MELT_LOCATION("warmelt-debug.melt:510:/ initchunk");
12186 /*^putroutconst*/
12187 /*putroutconst*/
12188 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V214*/ meltfptr[213])) == MELTOBMAG_ROUTINE);
12189 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_157__DBGOUTAGAIN_FIELDS#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]));
12190 ((meltroutine_ptr_t)/*_._VALROUT___V214*/ meltfptr[213])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]);
12191
12192 MELT_LOCATION("warmelt-debug.melt:510:/ initchunk");
12193 /*^putroutconstnotnull*/
12194 /*putroutconstnotnull*/
12195 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V214*/ meltfptr[213])) == MELTOBMAG_ROUTINE);
12196 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V82*/ meltfptr[81]);
12197 ((meltroutine_ptr_t)/*_._VALROUT___V214*/ meltfptr[213])->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V82*/ meltfptr[81]);
12198
12199 MELT_LOCATION("warmelt-debug.melt:510:/ initchunk");
12200 /*^putroutconstnotnull*/
12201 /*putroutconstnotnull*/
12202 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V214*/ meltfptr[213])) == MELTOBMAG_ROUTINE);
12203 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V144*/ meltfptr[143]);
12204 ((meltroutine_ptr_t)/*_._VALROUT___V214*/ meltfptr[213])->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V144*/ meltfptr[143]);
12205
12206 MELT_LOCATION("warmelt-debug.melt:510:/ initchunk");
12207 /*^touch*/
12208 /*touch:_IROUTVAL_*/
12209 meltgc_touch(/*_._VALROUT___V214*/ meltfptr[213]);
12210
12211 /*putclosurout#11*/
12212 melt_assertmsg("putclosrout#11 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V215*/ meltfptr[214])) == MELTOBMAG_CLOSURE);
12213 melt_assertmsg("putclosrout#11 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V214*/ meltfptr[213])) == MELTOBMAG_ROUTINE);
12214 ((meltclosure_ptr_t)/*_._VALCLO___V215*/ meltfptr[214])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V214*/ meltfptr[213]);
12215
12216 /*touch:_DATACLOSURE_*/
12217 meltgc_touch(/*_._VALCLO___V215*/ meltfptr[214]);
12218
12219 MELT_LOCATION("warmelt-debug.melt:553:/ initchunk");
12220 /*^putroutconstnotnull*/
12221 /*putroutconstnotnull*/
12222 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V216*/ meltfptr[215])) == MELTOBMAG_ROUTINE);
12223 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V64*/ meltfptr[63]);
12224 ((meltroutine_ptr_t)/*_._VALROUT___V216*/ meltfptr[215])->tabval[0] = (melt_ptr_t)(/*_._VALDATA___V64*/ meltfptr[63]);
12225
12226 MELT_LOCATION("warmelt-debug.melt:553:/ initchunk");
12227 /*^putroutconst*/
12228 /*putroutconst*/
12229 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V216*/ meltfptr[215])) == MELTOBMAG_ROUTINE);
12230 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_159__DBGOUT_NULL_METHOD#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]));
12231 ((meltroutine_ptr_t)/*_._VALROUT___V216*/ meltfptr[215])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]);
12232
12233 MELT_LOCATION("warmelt-debug.melt:553:/ initchunk");
12234 /*^touch*/
12235 /*touch:_IROUTVAL_*/
12236 meltgc_touch(/*_._VALROUT___V216*/ meltfptr[215]);
12237
12238 /*putclosurout#12*/
12239 melt_assertmsg("putclosrout#12 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V217*/ meltfptr[216])) == MELTOBMAG_CLOSURE);
12240 melt_assertmsg("putclosrout#12 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V216*/ meltfptr[215])) == MELTOBMAG_ROUTINE);
12241 ((meltclosure_ptr_t)/*_._VALCLO___V217*/ meltfptr[216])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V216*/ meltfptr[215]);
12242
12243 /*touch:_DATACLOSURE_*/
12244 meltgc_touch(/*_._VALCLO___V217*/ meltfptr[216]);
12245
12246 /*putslot*/
12247 melt_assertmsg("checkobj putslot ~dsym_161__INSTALL_METHOD @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V218*/ meltfptr[217])) == MELTOBMAG_OBJECT);
12248
12249 melt_assertmsg("checkoff putslot ~dsym_161__INSTALL_METHOD @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V218*/ meltfptr[217]))));
12250 ((meltobject_ptr_t)(/*_._VALDATA___V218*/ meltfptr[217]))->obj_vartab[1] = (melt_ptr_t)(
12251 /*_._VALSTR___V219*/ meltfptr[218]);
12252
12253 /*touch:_VALUEDATA_*/
12254 meltgc_touch(/*_._VALDATA___V218*/ meltfptr[217]);
12255
12256
12257 melt_dbgtrace_written_object (/*_._VALDATA___V218*/ meltfptr[217], "new static instance");
12258
12259 /*putslot*/
12260 melt_assertmsg("checkobj putslot ~dsym_163__DISCR_NULL_RECEIVER @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V220*/ meltfptr[219])) == MELTOBMAG_OBJECT);
12261
12262 melt_assertmsg("checkoff putslot ~dsym_163__DISCR_NULL_RECEIVER @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V220*/ meltfptr[219]))));
12263 ((meltobject_ptr_t)(/*_._VALDATA___V220*/ meltfptr[219]))->obj_vartab[1] = (melt_ptr_t)(
12264 /*_._VALSTR___V221*/ meltfptr[220]);
12265
12266 /*touch:_VALUEDATA_*/
12267 meltgc_touch(/*_._VALDATA___V220*/ meltfptr[219]);
12268
12269
12270 melt_dbgtrace_written_object (/*_._VALDATA___V220*/ meltfptr[219], "new static instance");
12271
12272 MELT_LOCATION("warmelt-debug.melt:562:/ initchunk");
12273 /*^putroutconstnotnull*/
12274 /*putroutconstnotnull*/
12275 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V222*/ meltfptr[221])) == MELTOBMAG_ROUTINE);
12276 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V64*/ meltfptr[63]);
12277 ((meltroutine_ptr_t)/*_._VALROUT___V222*/ meltfptr[221])->tabval[0] = (melt_ptr_t)(/*_._VALDATA___V64*/ meltfptr[63]);
12278
12279 MELT_LOCATION("warmelt-debug.melt:562:/ initchunk");
12280 /*^putroutconst*/
12281 /*putroutconst*/
12282 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V222*/ meltfptr[221])) == MELTOBMAG_ROUTINE);
12283 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_165__DBGOUT_STRING_METHOD#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]));
12284 ((meltroutine_ptr_t)/*_._VALROUT___V222*/ meltfptr[221])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]);
12285
12286 MELT_LOCATION("warmelt-debug.melt:562:/ initchunk");
12287 /*^putroutconst*/
12288 /*putroutconst*/
12289 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V222*/ meltfptr[221])) == MELTOBMAG_ROUTINE);
12290 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_165__DBGOUT_STRING_METHOD#2", NULL != (/*_.DISCR_STRING__V25*/ meltfptr[24]));
12291 ((meltroutine_ptr_t)/*_._VALROUT___V222*/ meltfptr[221])->tabval[2] = (melt_ptr_t)(/*_.DISCR_STRING__V25*/ meltfptr[24]);
12292
12293 MELT_LOCATION("warmelt-debug.melt:562:/ initchunk");
12294 /*^putroutconst*/
12295 /*putroutconst*/
12296 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V222*/ meltfptr[221])) == MELTOBMAG_ROUTINE);
12297 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_165__DBGOUT_STRING_METHOD#3", NULL != (/*_.DISCR_VERBATIM_STRING__V26*/ meltfptr[25]));
12298 ((meltroutine_ptr_t)/*_._VALROUT___V222*/ meltfptr[221])->tabval[3] = (melt_ptr_t)(/*_.DISCR_VERBATIM_STRING__V26*/ meltfptr[25]);
12299
12300 MELT_LOCATION("warmelt-debug.melt:562:/ initchunk");
12301 /*^touch*/
12302 /*touch:_IROUTVAL_*/
12303 meltgc_touch(/*_._VALROUT___V222*/ meltfptr[221]);
12304
12305 /*putclosurout#13*/
12306 melt_assertmsg("putclosrout#13 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V223*/ meltfptr[222])) == MELTOBMAG_CLOSURE);
12307 melt_assertmsg("putclosrout#13 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V222*/ meltfptr[221])) == MELTOBMAG_ROUTINE);
12308 ((meltclosure_ptr_t)/*_._VALCLO___V223*/ meltfptr[222])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V222*/ meltfptr[221]);
12309
12310 /*touch:_DATACLOSURE_*/
12311 meltgc_touch(/*_._VALCLO___V223*/ meltfptr[222]);
12312
12313 /*putslot*/
12314 melt_assertmsg("checkobj putslot ~dsym_167__DISCR_STRING @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V224*/ meltfptr[223])) == MELTOBMAG_OBJECT);
12315
12316 melt_assertmsg("checkoff putslot ~dsym_167__DISCR_STRING @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V224*/ meltfptr[223]))));
12317 ((meltobject_ptr_t)(/*_._VALDATA___V224*/ meltfptr[223]))->obj_vartab[1] = (melt_ptr_t)(
12318 /*_._VALSTR___V225*/ meltfptr[224]);
12319
12320 /*touch:_VALUEDATA_*/
12321 meltgc_touch(/*_._VALDATA___V224*/ meltfptr[223]);
12322
12323
12324 melt_dbgtrace_written_object (/*_._VALDATA___V224*/ meltfptr[223], "new static instance");
12325
12326 /*putslot*/
12327 melt_assertmsg("checkobj putslot ~dsym_169__DISCR_VERBATIM_STRING @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V226*/ meltfptr[225])) == MELTOBMAG_OBJECT);
12328
12329 melt_assertmsg("checkoff putslot ~dsym_169__DISCR_VERBATIM_STRING @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V226*/ meltfptr[225]))));
12330 ((meltobject_ptr_t)(/*_._VALDATA___V226*/ meltfptr[225]))->obj_vartab[1] = (melt_ptr_t)(
12331 /*_._VALSTR___V227*/ meltfptr[226]);
12332
12333 /*touch:_VALUEDATA_*/
12334 meltgc_touch(/*_._VALDATA___V226*/ meltfptr[225]);
12335
12336
12337 melt_dbgtrace_written_object (/*_._VALDATA___V226*/ meltfptr[225], "new static instance");
12338
12339 MELT_LOCATION("warmelt-debug.melt:591:/ initchunk");
12340 /*^putroutconstnotnull*/
12341 /*putroutconstnotnull*/
12342 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V228*/ meltfptr[227])) == MELTOBMAG_ROUTINE);
12343 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V64*/ meltfptr[63]);
12344 ((meltroutine_ptr_t)/*_._VALROUT___V228*/ meltfptr[227])->tabval[0] = (melt_ptr_t)(/*_._VALDATA___V64*/ meltfptr[63]);
12345
12346 MELT_LOCATION("warmelt-debug.melt:591:/ initchunk");
12347 /*^putroutconst*/
12348 /*putroutconst*/
12349 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V228*/ meltfptr[227])) == MELTOBMAG_ROUTINE);
12350 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_171__DBGOUT_STRBUF_METHOD#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]));
12351 ((meltroutine_ptr_t)/*_._VALROUT___V228*/ meltfptr[227])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]);
12352
12353 MELT_LOCATION("warmelt-debug.melt:591:/ initchunk");
12354 /*^putroutconst*/
12355 /*putroutconst*/
12356 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V228*/ meltfptr[227])) == MELTOBMAG_ROUTINE);
12357 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_171__DBGOUT_STRBUF_METHOD#2", NULL != (/*_.CLASS_NAMED__V21*/ meltfptr[20]));
12358 ((meltroutine_ptr_t)/*_._VALROUT___V228*/ meltfptr[227])->tabval[2] = (melt_ptr_t)(/*_.CLASS_NAMED__V21*/ meltfptr[20]);
12359
12360 MELT_LOCATION("warmelt-debug.melt:591:/ initchunk");
12361 /*^putroutconst*/
12362 /*putroutconst*/
12363 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V228*/ meltfptr[227])) == MELTOBMAG_ROUTINE);
12364 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_171__DBGOUT_STRBUF_METHOD#3", NULL != (/*_.ADD2OUT__V19*/ meltfptr[18]));
12365 ((meltroutine_ptr_t)/*_._VALROUT___V228*/ meltfptr[227])->tabval[3] = (melt_ptr_t)(/*_.ADD2OUT__V19*/ meltfptr[18]);
12366
12367 MELT_LOCATION("warmelt-debug.melt:591:/ initchunk");
12368 /*^touch*/
12369 /*touch:_IROUTVAL_*/
12370 meltgc_touch(/*_._VALROUT___V228*/ meltfptr[227]);
12371
12372 /*putclosurout#14*/
12373 melt_assertmsg("putclosrout#14 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V229*/ meltfptr[228])) == MELTOBMAG_CLOSURE);
12374 melt_assertmsg("putclosrout#14 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V228*/ meltfptr[227])) == MELTOBMAG_ROUTINE);
12375 ((meltclosure_ptr_t)/*_._VALCLO___V229*/ meltfptr[228])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V228*/ meltfptr[227]);
12376
12377 /*touch:_DATACLOSURE_*/
12378 meltgc_touch(/*_._VALCLO___V229*/ meltfptr[228]);
12379
12380 MELT_LOCATION("warmelt-debug.melt:677:/ initchunk");
12381 /*^putroutconstnotnull*/
12382 /*putroutconstnotnull*/
12383 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V230*/ meltfptr[229])) == MELTOBMAG_ROUTINE);
12384 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V64*/ meltfptr[63]);
12385 ((meltroutine_ptr_t)/*_._VALROUT___V230*/ meltfptr[229])->tabval[0] = (melt_ptr_t)(/*_._VALDATA___V64*/ meltfptr[63]);
12386
12387 MELT_LOCATION("warmelt-debug.melt:677:/ initchunk");
12388 /*^putroutconst*/
12389 /*putroutconst*/
12390 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V230*/ meltfptr[229])) == MELTOBMAG_ROUTINE);
12391 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_173__DBGOUT_INTEGER_METHOD#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]));
12392 ((meltroutine_ptr_t)/*_._VALROUT___V230*/ meltfptr[229])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]);
12393
12394 MELT_LOCATION("warmelt-debug.melt:677:/ initchunk");
12395 /*^putroutconst*/
12396 /*putroutconst*/
12397 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V230*/ meltfptr[229])) == MELTOBMAG_ROUTINE);
12398 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_173__DBGOUT_INTEGER_METHOD#2", NULL != (/*_.DISCR_INTEGER__V16*/ meltfptr[15]));
12399 ((meltroutine_ptr_t)/*_._VALROUT___V230*/ meltfptr[229])->tabval[2] = (melt_ptr_t)(/*_.DISCR_INTEGER__V16*/ meltfptr[15]);
12400
12401 MELT_LOCATION("warmelt-debug.melt:677:/ initchunk");
12402 /*^putroutconst*/
12403 /*putroutconst*/
12404 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V230*/ meltfptr[229])) == MELTOBMAG_ROUTINE);
12405 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_173__DBGOUT_INTEGER_METHOD#3", NULL != (/*_.DISCR_CONSTANT_INTEGER__V27*/ meltfptr[26]));
12406 ((meltroutine_ptr_t)/*_._VALROUT___V230*/ meltfptr[229])->tabval[3] = (melt_ptr_t)(/*_.DISCR_CONSTANT_INTEGER__V27*/ meltfptr[26]);
12407
12408 MELT_LOCATION("warmelt-debug.melt:677:/ initchunk");
12409 /*^putroutconst*/
12410 /*putroutconst*/
12411 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V230*/ meltfptr[229])) == MELTOBMAG_ROUTINE);
12412 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_173__DBGOUT_INTEGER_METHOD#4", NULL != (/*_.ADD2OUT__V19*/ meltfptr[18]));
12413 ((meltroutine_ptr_t)/*_._VALROUT___V230*/ meltfptr[229])->tabval[4] = (melt_ptr_t)(/*_.ADD2OUT__V19*/ meltfptr[18]);
12414
12415 MELT_LOCATION("warmelt-debug.melt:677:/ initchunk");
12416 /*^touch*/
12417 /*touch:_IROUTVAL_*/
12418 meltgc_touch(/*_._VALROUT___V230*/ meltfptr[229]);
12419
12420 /*putclosurout#15*/
12421 melt_assertmsg("putclosrout#15 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V231*/ meltfptr[230])) == MELTOBMAG_CLOSURE);
12422 melt_assertmsg("putclosrout#15 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V230*/ meltfptr[229])) == MELTOBMAG_ROUTINE);
12423 ((meltclosure_ptr_t)/*_._VALCLO___V231*/ meltfptr[230])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V230*/ meltfptr[229]);
12424
12425 /*touch:_DATACLOSURE_*/
12426 meltgc_touch(/*_._VALCLO___V231*/ meltfptr[230]);
12427
12428 /*putslot*/
12429 melt_assertmsg("checkobj putslot ~dsym_175__DISCR_CONSTANT_INTEGER @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V232*/ meltfptr[231])) == MELTOBMAG_OBJECT);
12430
12431 melt_assertmsg("checkoff putslot ~dsym_175__DISCR_CONSTANT_INTEGER @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V232*/ meltfptr[231]))));
12432 ((meltobject_ptr_t)(/*_._VALDATA___V232*/ meltfptr[231]))->obj_vartab[1] = (melt_ptr_t)(
12433 /*_._VALSTR___V233*/ meltfptr[232]);
12434
12435
12436 #undef meltfram__
12437 } /*end of meltmod__WARMELTmiDEBUG__initialmeltchunk_2*/
12438
12439
12440
12441 void meltmod__WARMELTmiDEBUG__initialmeltchunk_3 (meltinitial_frame_t* meltframptr__, char meltpredefinited[])
12442 {
12443 #define meltfram__ (*meltframptr__)
12444 #undef meltcallcount
12445 #define meltcallcount 0L
12446 (void) meltpredefinited;
12447 /*touch:_VALUEDATA_*/
12448 meltgc_touch(/*_._VALDATA___V232*/ meltfptr[231]);
12449
12450
12451 melt_dbgtrace_written_object (/*_._VALDATA___V232*/ meltfptr[231], "new static instance");
12452
12453 MELT_LOCATION("warmelt-debug.melt:698:/ initchunk");
12454 /*^putroutconstnotnull*/
12455 /*putroutconstnotnull*/
12456 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V234*/ meltfptr[233])) == MELTOBMAG_ROUTINE);
12457 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V64*/ meltfptr[63]);
12458 ((meltroutine_ptr_t)/*_._VALROUT___V234*/ meltfptr[233])->tabval[0] = (melt_ptr_t)(/*_._VALDATA___V64*/ meltfptr[63]);
12459
12460 MELT_LOCATION("warmelt-debug.melt:698:/ initchunk");
12461 /*^putroutconst*/
12462 /*putroutconst*/
12463 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V234*/ meltfptr[233])) == MELTOBMAG_ROUTINE);
12464 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_177__DBGOUT_DOUBLE_METHOD#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]));
12465 ((meltroutine_ptr_t)/*_._VALROUT___V234*/ meltfptr[233])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]);
12466
12467 MELT_LOCATION("warmelt-debug.melt:698:/ initchunk");
12468 /*^putroutconst*/
12469 /*putroutconst*/
12470 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V234*/ meltfptr[233])) == MELTOBMAG_ROUTINE);
12471 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_177__DBGOUT_DOUBLE_METHOD#2", NULL != (/*_.DISCR_DOUBLE__V28*/ meltfptr[27]));
12472 ((meltroutine_ptr_t)/*_._VALROUT___V234*/ meltfptr[233])->tabval[2] = (melt_ptr_t)(/*_.DISCR_DOUBLE__V28*/ meltfptr[27]);
12473
12474 MELT_LOCATION("warmelt-debug.melt:698:/ initchunk");
12475 /*^putroutconst*/
12476 /*putroutconst*/
12477 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V234*/ meltfptr[233])) == MELTOBMAG_ROUTINE);
12478 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_177__DBGOUT_DOUBLE_METHOD#3", NULL != (/*_.DISCR_CONSTANT_DOUBLE__V29*/ meltfptr[28]));
12479 ((meltroutine_ptr_t)/*_._VALROUT___V234*/ meltfptr[233])->tabval[3] = (melt_ptr_t)(/*_.DISCR_CONSTANT_DOUBLE__V29*/ meltfptr[28]);
12480
12481 MELT_LOCATION("warmelt-debug.melt:698:/ initchunk");
12482 /*^putroutconst*/
12483 /*putroutconst*/
12484 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V234*/ meltfptr[233])) == MELTOBMAG_ROUTINE);
12485 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_177__DBGOUT_DOUBLE_METHOD#4", NULL != (/*_.ADD2OUT__V19*/ meltfptr[18]));
12486 ((meltroutine_ptr_t)/*_._VALROUT___V234*/ meltfptr[233])->tabval[4] = (melt_ptr_t)(/*_.ADD2OUT__V19*/ meltfptr[18]);
12487
12488 MELT_LOCATION("warmelt-debug.melt:698:/ initchunk");
12489 /*^touch*/
12490 /*touch:_IROUTVAL_*/
12491 meltgc_touch(/*_._VALROUT___V234*/ meltfptr[233]);
12492
12493 /*putclosurout#16*/
12494 melt_assertmsg("putclosrout#16 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V235*/ meltfptr[234])) == MELTOBMAG_CLOSURE);
12495 melt_assertmsg("putclosrout#16 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V234*/ meltfptr[233])) == MELTOBMAG_ROUTINE);
12496 ((meltclosure_ptr_t)/*_._VALCLO___V235*/ meltfptr[234])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V234*/ meltfptr[233]);
12497
12498 /*touch:_DATACLOSURE_*/
12499 meltgc_touch(/*_._VALCLO___V235*/ meltfptr[234]);
12500
12501 /*putslot*/
12502 melt_assertmsg("checkobj putslot ~dsym_179__DISCR_DOUBLE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V236*/ meltfptr[235])) == MELTOBMAG_OBJECT);
12503
12504 melt_assertmsg("checkoff putslot ~dsym_179__DISCR_DOUBLE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V236*/ meltfptr[235]))));
12505 ((meltobject_ptr_t)(/*_._VALDATA___V236*/ meltfptr[235]))->obj_vartab[1] = (melt_ptr_t)(
12506 /*_._VALSTR___V237*/ meltfptr[236]);
12507
12508 /*touch:_VALUEDATA_*/
12509 meltgc_touch(/*_._VALDATA___V236*/ meltfptr[235]);
12510
12511
12512 melt_dbgtrace_written_object (/*_._VALDATA___V236*/ meltfptr[235], "new static instance");
12513
12514 /*putslot*/
12515 melt_assertmsg("checkobj putslot ~dsym_181__DISCR_CONSTANT_DOUBLE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V238*/ meltfptr[237])) == MELTOBMAG_OBJECT);
12516
12517 melt_assertmsg("checkoff putslot ~dsym_181__DISCR_CONSTANT_DOUBLE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V238*/ meltfptr[237]))));
12518 ((meltobject_ptr_t)(/*_._VALDATA___V238*/ meltfptr[237]))->obj_vartab[1] = (melt_ptr_t)(
12519 /*_._VALSTR___V239*/ meltfptr[238]);
12520
12521 /*touch:_VALUEDATA_*/
12522 meltgc_touch(/*_._VALDATA___V238*/ meltfptr[237]);
12523
12524
12525 melt_dbgtrace_written_object (/*_._VALDATA___V238*/ meltfptr[237], "new static instance");
12526
12527 MELT_LOCATION("warmelt-debug.melt:717:/ initchunk");
12528 /*^putroutconstnotnull*/
12529 /*putroutconstnotnull*/
12530 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V240*/ meltfptr[239])) == MELTOBMAG_ROUTINE);
12531 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V64*/ meltfptr[63]);
12532 ((meltroutine_ptr_t)/*_._VALROUT___V240*/ meltfptr[239])->tabval[0] = (melt_ptr_t)(/*_._VALDATA___V64*/ meltfptr[63]);
12533
12534 MELT_LOCATION("warmelt-debug.melt:717:/ initchunk");
12535 /*^putroutconst*/
12536 /*putroutconst*/
12537 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V240*/ meltfptr[239])) == MELTOBMAG_ROUTINE);
12538 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_183__DBGOUT_MIXINT_METHOD#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]));
12539 ((meltroutine_ptr_t)/*_._VALROUT___V240*/ meltfptr[239])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]);
12540
12541 MELT_LOCATION("warmelt-debug.melt:717:/ initchunk");
12542 /*^putroutconst*/
12543 /*putroutconst*/
12544 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V240*/ meltfptr[239])) == MELTOBMAG_ROUTINE);
12545 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_183__DBGOUT_MIXINT_METHOD#2", NULL != (/*_.DISCR_MIXED_INTEGER__V30*/ meltfptr[29]));
12546 ((meltroutine_ptr_t)/*_._VALROUT___V240*/ meltfptr[239])->tabval[2] = (melt_ptr_t)(/*_.DISCR_MIXED_INTEGER__V30*/ meltfptr[29]);
12547
12548 MELT_LOCATION("warmelt-debug.melt:717:/ initchunk");
12549 /*^putroutconstnotnull*/
12550 /*putroutconstnotnull*/
12551 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V240*/ meltfptr[239])) == MELTOBMAG_ROUTINE);
12552 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V82*/ meltfptr[81]);
12553 ((meltroutine_ptr_t)/*_._VALROUT___V240*/ meltfptr[239])->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V82*/ meltfptr[81]);
12554
12555 MELT_LOCATION("warmelt-debug.melt:717:/ initchunk");
12556 /*^putroutconstnotnull*/
12557 /*putroutconstnotnull*/
12558 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V240*/ meltfptr[239])) == MELTOBMAG_ROUTINE);
12559 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V187*/ meltfptr[186]);
12560 ((meltroutine_ptr_t)/*_._VALROUT___V240*/ meltfptr[239])->tabval[4] = (melt_ptr_t)(/*_._VALCLO___V187*/ meltfptr[186]);
12561
12562 MELT_LOCATION("warmelt-debug.melt:717:/ initchunk");
12563 /*^touch*/
12564 /*touch:_IROUTVAL_*/
12565 meltgc_touch(/*_._VALROUT___V240*/ meltfptr[239]);
12566
12567 /*putclosurout#17*/
12568 melt_assertmsg("putclosrout#17 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V241*/ meltfptr[240])) == MELTOBMAG_CLOSURE);
12569 melt_assertmsg("putclosrout#17 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V240*/ meltfptr[239])) == MELTOBMAG_ROUTINE);
12570 ((meltclosure_ptr_t)/*_._VALCLO___V241*/ meltfptr[240])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V240*/ meltfptr[239]);
12571
12572 /*touch:_DATACLOSURE_*/
12573 meltgc_touch(/*_._VALCLO___V241*/ meltfptr[240]);
12574
12575 /*putslot*/
12576 melt_assertmsg("checkobj putslot ~dsym_185__DISCR_MIXED_INTEGER @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V242*/ meltfptr[241])) == MELTOBMAG_OBJECT);
12577
12578 melt_assertmsg("checkoff putslot ~dsym_185__DISCR_MIXED_INTEGER @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V242*/ meltfptr[241]))));
12579 ((meltobject_ptr_t)(/*_._VALDATA___V242*/ meltfptr[241]))->obj_vartab[1] = (melt_ptr_t)(
12580 /*_._VALSTR___V243*/ meltfptr[242]);
12581
12582 /*touch:_VALUEDATA_*/
12583 meltgc_touch(/*_._VALDATA___V242*/ meltfptr[241]);
12584
12585
12586 melt_dbgtrace_written_object (/*_._VALDATA___V242*/ meltfptr[241], "new static instance");
12587
12588 MELT_LOCATION("warmelt-debug.melt:746:/ initchunk");
12589 /*^putroutconstnotnull*/
12590 /*putroutconstnotnull*/
12591 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V244*/ meltfptr[243])) == MELTOBMAG_ROUTINE);
12592 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V64*/ meltfptr[63]);
12593 ((meltroutine_ptr_t)/*_._VALROUT___V244*/ meltfptr[243])->tabval[0] = (melt_ptr_t)(/*_._VALDATA___V64*/ meltfptr[63]);
12594
12595 MELT_LOCATION("warmelt-debug.melt:746:/ initchunk");
12596 /*^putroutconst*/
12597 /*putroutconst*/
12598 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V244*/ meltfptr[243])) == MELTOBMAG_ROUTINE);
12599 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_187__DBGOUT_MIXLOC_METHOD#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]));
12600 ((meltroutine_ptr_t)/*_._VALROUT___V244*/ meltfptr[243])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]);
12601
12602 MELT_LOCATION("warmelt-debug.melt:746:/ initchunk");
12603 /*^putroutconst*/
12604 /*putroutconst*/
12605 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V244*/ meltfptr[243])) == MELTOBMAG_ROUTINE);
12606 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_187__DBGOUT_MIXLOC_METHOD#2", NULL != (/*_.DISCR_MIXED_LOCATION__V31*/ meltfptr[30]));
12607 ((meltroutine_ptr_t)/*_._VALROUT___V244*/ meltfptr[243])->tabval[2] = (melt_ptr_t)(/*_.DISCR_MIXED_LOCATION__V31*/ meltfptr[30]);
12608
12609 MELT_LOCATION("warmelt-debug.melt:746:/ initchunk");
12610 /*^touch*/
12611 /*touch:_IROUTVAL_*/
12612 meltgc_touch(/*_._VALROUT___V244*/ meltfptr[243]);
12613
12614 /*putclosurout#18*/
12615 melt_assertmsg("putclosrout#18 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V245*/ meltfptr[244])) == MELTOBMAG_CLOSURE);
12616 melt_assertmsg("putclosrout#18 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V244*/ meltfptr[243])) == MELTOBMAG_ROUTINE);
12617 ((meltclosure_ptr_t)/*_._VALCLO___V245*/ meltfptr[244])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V244*/ meltfptr[243]);
12618
12619 /*touch:_DATACLOSURE_*/
12620 meltgc_touch(/*_._VALCLO___V245*/ meltfptr[244]);
12621
12622 /*putslot*/
12623 melt_assertmsg("checkobj putslot ~dsym_189__DISCR_MIXED_LOCATION @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V246*/ meltfptr[245])) == MELTOBMAG_OBJECT);
12624
12625 melt_assertmsg("checkoff putslot ~dsym_189__DISCR_MIXED_LOCATION @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V246*/ meltfptr[245]))));
12626 ((meltobject_ptr_t)(/*_._VALDATA___V246*/ meltfptr[245]))->obj_vartab[1] = (melt_ptr_t)(
12627 /*_._VALSTR___V247*/ meltfptr[246]);
12628
12629 /*touch:_VALUEDATA_*/
12630 meltgc_touch(/*_._VALDATA___V246*/ meltfptr[245]);
12631
12632
12633 melt_dbgtrace_written_object (/*_._VALDATA___V246*/ meltfptr[245], "new static instance");
12634
12635 MELT_LOCATION("warmelt-debug.melt:776:/ initchunk");
12636 /*^putroutconstnotnull*/
12637 /*putroutconstnotnull*/
12638 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V248*/ meltfptr[247])) == MELTOBMAG_ROUTINE);
12639 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V64*/ meltfptr[63]);
12640 ((meltroutine_ptr_t)/*_._VALROUT___V248*/ meltfptr[247])->tabval[0] = (melt_ptr_t)(/*_._VALDATA___V64*/ meltfptr[63]);
12641
12642 MELT_LOCATION("warmelt-debug.melt:776:/ initchunk");
12643 /*^putroutconst*/
12644 /*putroutconst*/
12645 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V248*/ meltfptr[247])) == MELTOBMAG_ROUTINE);
12646 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_191__DBGOUT_MIXBIGINT_METHOD#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]));
12647 ((meltroutine_ptr_t)/*_._VALROUT___V248*/ meltfptr[247])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]);
12648
12649 MELT_LOCATION("warmelt-debug.melt:776:/ initchunk");
12650 /*^putroutconstnotnull*/
12651 /*putroutconstnotnull*/
12652 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V248*/ meltfptr[247])) == MELTOBMAG_ROUTINE);
12653 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V187*/ meltfptr[186]);
12654 ((meltroutine_ptr_t)/*_._VALROUT___V248*/ meltfptr[247])->tabval[2] = (melt_ptr_t)(/*_._VALCLO___V187*/ meltfptr[186]);
12655
12656 MELT_LOCATION("warmelt-debug.melt:776:/ initchunk");
12657 /*^touch*/
12658 /*touch:_IROUTVAL_*/
12659 meltgc_touch(/*_._VALROUT___V248*/ meltfptr[247]);
12660
12661 /*putclosurout#19*/
12662 melt_assertmsg("putclosrout#19 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V249*/ meltfptr[248])) == MELTOBMAG_CLOSURE);
12663 melt_assertmsg("putclosrout#19 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V248*/ meltfptr[247])) == MELTOBMAG_ROUTINE);
12664 ((meltclosure_ptr_t)/*_._VALCLO___V249*/ meltfptr[248])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V248*/ meltfptr[247]);
12665
12666 /*touch:_DATACLOSURE_*/
12667 meltgc_touch(/*_._VALCLO___V249*/ meltfptr[248]);
12668
12669 /*putslot*/
12670 melt_assertmsg("checkobj putslot ~dsym_193__DISCR_MIXED_BIGINT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V250*/ meltfptr[249])) == MELTOBMAG_OBJECT);
12671
12672 melt_assertmsg("checkoff putslot ~dsym_193__DISCR_MIXED_BIGINT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V250*/ meltfptr[249]))));
12673 ((meltobject_ptr_t)(/*_._VALDATA___V250*/ meltfptr[249]))->obj_vartab[1] = (melt_ptr_t)(
12674 /*_._VALSTR___V251*/ meltfptr[250]);
12675
12676 /*touch:_VALUEDATA_*/
12677 meltgc_touch(/*_._VALDATA___V250*/ meltfptr[249]);
12678
12679
12680 melt_dbgtrace_written_object (/*_._VALDATA___V250*/ meltfptr[249], "new static instance");
12681
12682 MELT_LOCATION("warmelt-debug.melt:799:/ initchunk");
12683 /*^putroutconstnotnull*/
12684 /*putroutconstnotnull*/
12685 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V252*/ meltfptr[251])) == MELTOBMAG_ROUTINE);
12686 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V64*/ meltfptr[63]);
12687 ((meltroutine_ptr_t)/*_._VALROUT___V252*/ meltfptr[251])->tabval[0] = (melt_ptr_t)(/*_._VALDATA___V64*/ meltfptr[63]);
12688
12689 MELT_LOCATION("warmelt-debug.melt:799:/ initchunk");
12690 /*^putroutconst*/
12691 /*putroutconst*/
12692 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V252*/ meltfptr[251])) == MELTOBMAG_ROUTINE);
12693 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_195__DBGOUT_MULTIPLE_METHOD#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]));
12694 ((meltroutine_ptr_t)/*_._VALROUT___V252*/ meltfptr[251])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]);
12695
12696 MELT_LOCATION("warmelt-debug.melt:799:/ initchunk");
12697 /*^putroutconst*/
12698 /*putroutconst*/
12699 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V252*/ meltfptr[251])) == MELTOBMAG_ROUTINE);
12700 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_195__DBGOUT_MULTIPLE_METHOD#2", NULL != (/*_.DISCR_MULTIPLE__V33*/ meltfptr[32]));
12701 ((meltroutine_ptr_t)/*_._VALROUT___V252*/ meltfptr[251])->tabval[2] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V33*/ meltfptr[32]);
12702
12703 MELT_LOCATION("warmelt-debug.melt:799:/ initchunk");
12704 /*^putroutconstnotnull*/
12705 /*putroutconstnotnull*/
12706 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V252*/ meltfptr[251])) == MELTOBMAG_ROUTINE);
12707 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V187*/ meltfptr[186]);
12708 ((meltroutine_ptr_t)/*_._VALROUT___V252*/ meltfptr[251])->tabval[3] = (melt_ptr_t)(/*_._VALCLO___V187*/ meltfptr[186]);
12709
12710 MELT_LOCATION("warmelt-debug.melt:799:/ initchunk");
12711 /*^touch*/
12712 /*touch:_IROUTVAL_*/
12713 meltgc_touch(/*_._VALROUT___V252*/ meltfptr[251]);
12714
12715 /*putclosurout#20*/
12716 melt_assertmsg("putclosrout#20 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V253*/ meltfptr[252])) == MELTOBMAG_CLOSURE);
12717 melt_assertmsg("putclosrout#20 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V252*/ meltfptr[251])) == MELTOBMAG_ROUTINE);
12718 ((meltclosure_ptr_t)/*_._VALCLO___V253*/ meltfptr[252])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V252*/ meltfptr[251]);
12719
12720 /*touch:_DATACLOSURE_*/
12721 meltgc_touch(/*_._VALCLO___V253*/ meltfptr[252]);
12722
12723 /*putslot*/
12724 melt_assertmsg("checkobj putslot ~dsym_197__DISCR_MULTIPLE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V254*/ meltfptr[253])) == MELTOBMAG_OBJECT);
12725
12726 melt_assertmsg("checkoff putslot ~dsym_197__DISCR_MULTIPLE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V254*/ meltfptr[253]))));
12727 ((meltobject_ptr_t)(/*_._VALDATA___V254*/ meltfptr[253]))->obj_vartab[1] = (melt_ptr_t)(
12728 /*_._VALSTR___V255*/ meltfptr[254]);
12729
12730 /*touch:_VALUEDATA_*/
12731 meltgc_touch(/*_._VALDATA___V254*/ meltfptr[253]);
12732
12733
12734 melt_dbgtrace_written_object (/*_._VALDATA___V254*/ meltfptr[253], "new static instance");
12735
12736 MELT_LOCATION("warmelt-debug.melt:834:/ initchunk");
12737 /*^putroutconstnotnull*/
12738 /*putroutconstnotnull*/
12739 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V256*/ meltfptr[255])) == MELTOBMAG_ROUTINE);
12740 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V64*/ meltfptr[63]);
12741 ((meltroutine_ptr_t)/*_._VALROUT___V256*/ meltfptr[255])->tabval[0] = (melt_ptr_t)(/*_._VALDATA___V64*/ meltfptr[63]);
12742
12743 MELT_LOCATION("warmelt-debug.melt:834:/ initchunk");
12744 /*^putroutconst*/
12745 /*putroutconst*/
12746 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V256*/ meltfptr[255])) == MELTOBMAG_ROUTINE);
12747 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_199__DBGOUT_ROUTINE_METHOD#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]));
12748 ((meltroutine_ptr_t)/*_._VALROUT___V256*/ meltfptr[255])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]);
12749
12750 MELT_LOCATION("warmelt-debug.melt:834:/ initchunk");
12751 /*^putroutconst*/
12752 /*putroutconst*/
12753 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V256*/ meltfptr[255])) == MELTOBMAG_ROUTINE);
12754 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_199__DBGOUT_ROUTINE_METHOD#2", NULL != (/*_.DISCR_INTEGER__V16*/ meltfptr[15]));
12755 ((meltroutine_ptr_t)/*_._VALROUT___V256*/ meltfptr[255])->tabval[2] = (melt_ptr_t)(/*_.DISCR_INTEGER__V16*/ meltfptr[15]);
12756
12757 MELT_LOCATION("warmelt-debug.melt:834:/ initchunk");
12758 /*^putroutconst*/
12759 /*putroutconst*/
12760 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V256*/ meltfptr[255])) == MELTOBMAG_ROUTINE);
12761 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_199__DBGOUT_ROUTINE_METHOD#3", NULL != (/*_.DISCR_ROUTINE__V34*/ meltfptr[33]));
12762 ((meltroutine_ptr_t)/*_._VALROUT___V256*/ meltfptr[255])->tabval[3] = (melt_ptr_t)(/*_.DISCR_ROUTINE__V34*/ meltfptr[33]);
12763
12764 MELT_LOCATION("warmelt-debug.melt:834:/ initchunk");
12765 /*^putroutconst*/
12766 /*putroutconst*/
12767 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V256*/ meltfptr[255])) == MELTOBMAG_ROUTINE);
12768 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_199__DBGOUT_ROUTINE_METHOD#4", NULL != (/*_.ROUTINE_EVERY__V35*/ meltfptr[34]));
12769 ((meltroutine_ptr_t)/*_._VALROUT___V256*/ meltfptr[255])->tabval[4] = (melt_ptr_t)(/*_.ROUTINE_EVERY__V35*/ meltfptr[34]);
12770
12771 MELT_LOCATION("warmelt-debug.melt:834:/ initchunk");
12772 /*^putroutconstnotnull*/
12773 /*putroutconstnotnull*/
12774 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V256*/ meltfptr[255])) == MELTOBMAG_ROUTINE);
12775 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V187*/ meltfptr[186]);
12776 ((meltroutine_ptr_t)/*_._VALROUT___V256*/ meltfptr[255])->tabval[5] = (melt_ptr_t)(/*_._VALCLO___V187*/ meltfptr[186]);
12777
12778 MELT_LOCATION("warmelt-debug.melt:850:/ initchunk");
12779 /*^putroutconstnotnull*/
12780 /*putroutconstnotnull*/
12781 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V257*/ meltfptr[256])) == MELTOBMAG_ROUTINE);
12782 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V187*/ meltfptr[186]);
12783 ((meltroutine_ptr_t)/*_._VALROUT___V257*/ meltfptr[256])->tabval[0] = (melt_ptr_t)(/*_._VALCLO___V187*/ meltfptr[186]);
12784
12785 MELT_LOCATION("warmelt-debug.melt:850:/ initchunk");
12786 /*^touch*/
12787 /*touch:_IROUTVAL_*/
12788 meltgc_touch(/*_._VALROUT___V257*/ meltfptr[256]);
12789
12790 MELT_LOCATION("warmelt-debug.melt:834:/ initchunk");
12791 /*^putroutconst*/
12792 /*putroutconst*/
12793 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V256*/ meltfptr[255])) == MELTOBMAG_ROUTINE);
12794 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_199__DBGOUT_ROUTINE_METHOD#6", NULL != (/*_._VALROUT___V257*/ meltfptr[256]));
12795 ((meltroutine_ptr_t)/*_._VALROUT___V256*/ meltfptr[255])->tabval[6] = (melt_ptr_t)(/*_._VALROUT___V257*/ meltfptr[256]);
12796
12797 MELT_LOCATION("warmelt-debug.melt:834:/ initchunk");
12798 /*^touch*/
12799 /*touch:_IROUTVAL_*/
12800 meltgc_touch(/*_._VALROUT___V256*/ meltfptr[255]);
12801
12802 /*putclosurout#21*/
12803 melt_assertmsg("putclosrout#21 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V258*/ meltfptr[257])) == MELTOBMAG_CLOSURE);
12804 melt_assertmsg("putclosrout#21 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V256*/ meltfptr[255])) == MELTOBMAG_ROUTINE);
12805 ((meltclosure_ptr_t)/*_._VALCLO___V258*/ meltfptr[257])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V256*/ meltfptr[255]);
12806
12807 /*touch:_DATACLOSURE_*/
12808 meltgc_touch(/*_._VALCLO___V258*/ meltfptr[257]);
12809
12810 /*putslot*/
12811 melt_assertmsg("checkobj putslot ~dsym_201__DISCR_ROUTINE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V259*/ meltfptr[258])) == MELTOBMAG_OBJECT);
12812
12813 melt_assertmsg("checkoff putslot ~dsym_201__DISCR_ROUTINE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V259*/ meltfptr[258]))));
12814 ((meltobject_ptr_t)(/*_._VALDATA___V259*/ meltfptr[258]))->obj_vartab[1] = (melt_ptr_t)(
12815 /*_._VALSTR___V260*/ meltfptr[259]);
12816
12817 /*touch:_VALUEDATA_*/
12818 meltgc_touch(/*_._VALDATA___V259*/ meltfptr[258]);
12819
12820
12821 melt_dbgtrace_written_object (/*_._VALDATA___V259*/ meltfptr[258], "new static instance");
12822
12823 /*putslot*/
12824 melt_assertmsg("checkobj putslot ~dsym_203__ROUTINE_EVERY @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V261*/ meltfptr[260])) == MELTOBMAG_OBJECT);
12825
12826 melt_assertmsg("checkoff putslot ~dsym_203__ROUTINE_EVERY @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V261*/ meltfptr[260]))));
12827 ((meltobject_ptr_t)(/*_._VALDATA___V261*/ meltfptr[260]))->obj_vartab[1] = (melt_ptr_t)(
12828 /*_._VALSTR___V262*/ meltfptr[261]);
12829
12830 /*touch:_VALUEDATA_*/
12831 meltgc_touch(/*_._VALDATA___V261*/ meltfptr[260]);
12832
12833
12834 melt_dbgtrace_written_object (/*_._VALDATA___V261*/ meltfptr[260], "new static instance");
12835
12836 MELT_LOCATION("warmelt-debug.melt:862:/ initchunk");
12837 /*^putroutconstnotnull*/
12838 /*putroutconstnotnull*/
12839 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V263*/ meltfptr[262])) == MELTOBMAG_ROUTINE);
12840 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V64*/ meltfptr[63]);
12841 ((meltroutine_ptr_t)/*_._VALROUT___V263*/ meltfptr[262])->tabval[0] = (melt_ptr_t)(/*_._VALDATA___V64*/ meltfptr[63]);
12842
12843 MELT_LOCATION("warmelt-debug.melt:862:/ initchunk");
12844 /*^putroutconst*/
12845 /*putroutconst*/
12846 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V263*/ meltfptr[262])) == MELTOBMAG_ROUTINE);
12847 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_206__DBGOUT_HOOK_METHOD#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]));
12848 ((meltroutine_ptr_t)/*_._VALROUT___V263*/ meltfptr[262])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]);
12849
12850 MELT_LOCATION("warmelt-debug.melt:862:/ initchunk");
12851 /*^putroutconst*/
12852 /*putroutconst*/
12853 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V263*/ meltfptr[262])) == MELTOBMAG_ROUTINE);
12854 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_206__DBGOUT_HOOK_METHOD#2", NULL != (/*_.DISCR_INTEGER__V16*/ meltfptr[15]));
12855 ((meltroutine_ptr_t)/*_._VALROUT___V263*/ meltfptr[262])->tabval[2] = (melt_ptr_t)(/*_.DISCR_INTEGER__V16*/ meltfptr[15]);
12856
12857 MELT_LOCATION("warmelt-debug.melt:862:/ initchunk");
12858 /*^putroutconst*/
12859 /*putroutconst*/
12860 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V263*/ meltfptr[262])) == MELTOBMAG_ROUTINE);
12861 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_206__DBGOUT_HOOK_METHOD#3", NULL != (/*_.ADD2OUT__V19*/ meltfptr[18]));
12862 ((meltroutine_ptr_t)/*_._VALROUT___V263*/ meltfptr[262])->tabval[3] = (melt_ptr_t)(/*_.ADD2OUT__V19*/ meltfptr[18]);
12863
12864 MELT_LOCATION("warmelt-debug.melt:862:/ initchunk");
12865 /*^putroutconstnotnull*/
12866 /*putroutconstnotnull*/
12867 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V263*/ meltfptr[262])) == MELTOBMAG_ROUTINE);
12868 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V187*/ meltfptr[186]);
12869 ((meltroutine_ptr_t)/*_._VALROUT___V263*/ meltfptr[262])->tabval[4] = (melt_ptr_t)(/*_._VALCLO___V187*/ meltfptr[186]);
12870
12871 MELT_LOCATION("warmelt-debug.melt:862:/ initchunk");
12872 /*^putroutconst*/
12873 /*putroutconst*/
12874 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V263*/ meltfptr[262])) == MELTOBMAG_ROUTINE);
12875 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_206__DBGOUT_HOOK_METHOD#5", NULL != (/*_.HOOK_EVERY__V36*/ meltfptr[35]));
12876 ((meltroutine_ptr_t)/*_._VALROUT___V263*/ meltfptr[262])->tabval[5] = (melt_ptr_t)(/*_.HOOK_EVERY__V36*/ meltfptr[35]);
12877
12878 MELT_LOCATION("warmelt-debug.melt:862:/ initchunk");
12879 /*^putroutconst*/
12880 /*putroutconst*/
12881 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V263*/ meltfptr[262])) == MELTOBMAG_ROUTINE);
12882 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_206__DBGOUT_HOOK_METHOD#6", NULL != (/*_.ADD2OUT__V19*/ meltfptr[18]));
12883 ((meltroutine_ptr_t)/*_._VALROUT___V263*/ meltfptr[262])->tabval[6] = (melt_ptr_t)(/*_.ADD2OUT__V19*/ meltfptr[18]);
12884
12885 MELT_LOCATION("warmelt-debug.melt:862:/ initchunk");
12886 /*^putroutconstnotnull*/
12887 /*putroutconstnotnull*/
12888 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V263*/ meltfptr[262])) == MELTOBMAG_ROUTINE);
12889 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V187*/ meltfptr[186]);
12890 ((meltroutine_ptr_t)/*_._VALROUT___V263*/ meltfptr[262])->tabval[7] = (melt_ptr_t)(/*_._VALCLO___V187*/ meltfptr[186]);
12891
12892 MELT_LOCATION("warmelt-debug.melt:877:/ initchunk");
12893 /*^putroutconst*/
12894 /*putroutconst*/
12895 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V264*/ meltfptr[263])) == MELTOBMAG_ROUTINE);
12896 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_210__LAMBDA_#0", NULL != (/*_.ADD2OUT__V19*/ meltfptr[18]));
12897 ((meltroutine_ptr_t)/*_._VALROUT___V264*/ meltfptr[263])->tabval[0] = (melt_ptr_t)(/*_.ADD2OUT__V19*/ meltfptr[18]);
12898
12899 MELT_LOCATION("warmelt-debug.melt:877:/ initchunk");
12900 /*^putroutconstnotnull*/
12901 /*putroutconstnotnull*/
12902 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V264*/ meltfptr[263])) == MELTOBMAG_ROUTINE);
12903 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V187*/ meltfptr[186]);
12904 ((meltroutine_ptr_t)/*_._VALROUT___V264*/ meltfptr[263])->tabval[1] = (melt_ptr_t)(/*_._VALCLO___V187*/ meltfptr[186]);
12905
12906 MELT_LOCATION("warmelt-debug.melt:877:/ initchunk");
12907 /*^touch*/
12908 /*touch:_IROUTVAL_*/
12909 meltgc_touch(/*_._VALROUT___V264*/ meltfptr[263]);
12910
12911 MELT_LOCATION("warmelt-debug.melt:862:/ initchunk");
12912 /*^putroutconst*/
12913 /*putroutconst*/
12914 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V263*/ meltfptr[262])) == MELTOBMAG_ROUTINE);
12915 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_206__DBGOUT_HOOK_METHOD#8", NULL != (/*_._VALROUT___V264*/ meltfptr[263]));
12916 ((meltroutine_ptr_t)/*_._VALROUT___V263*/ meltfptr[262])->tabval[8] = (melt_ptr_t)(/*_._VALROUT___V264*/ meltfptr[263]);
12917
12918 MELT_LOCATION("warmelt-debug.melt:862:/ initchunk");
12919 /*^touch*/
12920 /*touch:_IROUTVAL_*/
12921 meltgc_touch(/*_._VALROUT___V263*/ meltfptr[262]);
12922
12923 /*putclosurout#22*/
12924 melt_assertmsg("putclosrout#22 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V265*/ meltfptr[264])) == MELTOBMAG_CLOSURE);
12925 melt_assertmsg("putclosrout#22 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V263*/ meltfptr[262])) == MELTOBMAG_ROUTINE);
12926 ((meltclosure_ptr_t)/*_._VALCLO___V265*/ meltfptr[264])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V263*/ meltfptr[262]);
12927
12928 /*touch:_DATACLOSURE_*/
12929 meltgc_touch(/*_._VALCLO___V265*/ meltfptr[264]);
12930
12931 /*putslot*/
12932 melt_assertmsg("checkobj putslot ~dsym_208__HOOK_EVERY @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V266*/ meltfptr[265])) == MELTOBMAG_OBJECT);
12933
12934 melt_assertmsg("checkoff putslot ~dsym_208__HOOK_EVERY @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V266*/ meltfptr[265]))));
12935 ((meltobject_ptr_t)(/*_._VALDATA___V266*/ meltfptr[265]))->obj_vartab[1] = (melt_ptr_t)(
12936 /*_._VALSTR___V267*/ meltfptr[266]);
12937
12938 /*touch:_VALUEDATA_*/
12939 meltgc_touch(/*_._VALDATA___V266*/ meltfptr[265]);
12940
12941
12942 melt_dbgtrace_written_object (/*_._VALDATA___V266*/ meltfptr[265], "new static instance");
12943
12944 /*putslot*/
12945 melt_assertmsg("checkobj putslot ~dsym_211__DISCR_HOOK @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V268*/ meltfptr[267])) == MELTOBMAG_OBJECT);
12946
12947 melt_assertmsg("checkoff putslot ~dsym_211__DISCR_HOOK @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V268*/ meltfptr[267]))));
12948 ((meltobject_ptr_t)(/*_._VALDATA___V268*/ meltfptr[267]))->obj_vartab[1] = (melt_ptr_t)(
12949 /*_._VALSTR___V269*/ meltfptr[268]);
12950
12951 /*touch:_VALUEDATA_*/
12952 meltgc_touch(/*_._VALDATA___V268*/ meltfptr[267]);
12953
12954
12955 melt_dbgtrace_written_object (/*_._VALDATA___V268*/ meltfptr[267], "new static instance");
12956
12957 MELT_LOCATION("warmelt-debug.melt:895:/ initchunk");
12958 /*^putroutconstnotnull*/
12959 /*putroutconstnotnull*/
12960 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V270*/ meltfptr[269])) == MELTOBMAG_ROUTINE);
12961 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V64*/ meltfptr[63]);
12962 ((meltroutine_ptr_t)/*_._VALROUT___V270*/ meltfptr[269])->tabval[0] = (melt_ptr_t)(/*_._VALDATA___V64*/ meltfptr[63]);
12963
12964 MELT_LOCATION("warmelt-debug.melt:895:/ initchunk");
12965 /*^putroutconst*/
12966 /*putroutconst*/
12967 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V270*/ meltfptr[269])) == MELTOBMAG_ROUTINE);
12968 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_213__DBGOUT_CLOSURE_METHOD#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]));
12969 ((meltroutine_ptr_t)/*_._VALROUT___V270*/ meltfptr[269])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]);
12970
12971 MELT_LOCATION("warmelt-debug.melt:895:/ initchunk");
12972 /*^putroutconst*/
12973 /*putroutconst*/
12974 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V270*/ meltfptr[269])) == MELTOBMAG_ROUTINE);
12975 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_213__DBGOUT_CLOSURE_METHOD#2", NULL != (/*_.DISCR_CLOSURE__V12*/ meltfptr[11]));
12976 ((meltroutine_ptr_t)/*_._VALROUT___V270*/ meltfptr[269])->tabval[2] = (melt_ptr_t)(/*_.DISCR_CLOSURE__V12*/ meltfptr[11]);
12977
12978 MELT_LOCATION("warmelt-debug.melt:895:/ initchunk");
12979 /*^putroutconstnotnull*/
12980 /*putroutconstnotnull*/
12981 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V270*/ meltfptr[269])) == MELTOBMAG_ROUTINE);
12982 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V82*/ meltfptr[81]);
12983 ((meltroutine_ptr_t)/*_._VALROUT___V270*/ meltfptr[269])->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V82*/ meltfptr[81]);
12984
12985 MELT_LOCATION("warmelt-debug.melt:895:/ initchunk");
12986 /*^putroutconstnotnull*/
12987 /*putroutconstnotnull*/
12988 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V270*/ meltfptr[269])) == MELTOBMAG_ROUTINE);
12989 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V187*/ meltfptr[186]);
12990 ((meltroutine_ptr_t)/*_._VALROUT___V270*/ meltfptr[269])->tabval[4] = (melt_ptr_t)(/*_._VALCLO___V187*/ meltfptr[186]);
12991
12992 MELT_LOCATION("warmelt-debug.melt:895:/ initchunk");
12993 /*^touch*/
12994 /*touch:_IROUTVAL_*/
12995 meltgc_touch(/*_._VALROUT___V270*/ meltfptr[269]);
12996
12997 /*putclosurout#23*/
12998 melt_assertmsg("putclosrout#23 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V271*/ meltfptr[270])) == MELTOBMAG_CLOSURE);
12999 melt_assertmsg("putclosrout#23 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V270*/ meltfptr[269])) == MELTOBMAG_ROUTINE);
13000 ((meltclosure_ptr_t)/*_._VALCLO___V271*/ meltfptr[270])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V270*/ meltfptr[269]);
13001
13002 /*touch:_DATACLOSURE_*/
13003 meltgc_touch(/*_._VALCLO___V271*/ meltfptr[270]);
13004
13005 MELT_LOCATION("warmelt-debug.melt:942:/ initchunk");
13006 /*^putroutconstnotnull*/
13007 /*putroutconstnotnull*/
13008 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V272*/ meltfptr[271])) == MELTOBMAG_ROUTINE);
13009 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V64*/ meltfptr[63]);
13010 ((meltroutine_ptr_t)/*_._VALROUT___V272*/ meltfptr[271])->tabval[0] = (melt_ptr_t)(/*_._VALDATA___V64*/ meltfptr[63]);
13011
13012 MELT_LOCATION("warmelt-debug.melt:942:/ initchunk");
13013 /*^putroutconst*/
13014 /*putroutconst*/
13015 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V272*/ meltfptr[271])) == MELTOBMAG_ROUTINE);
13016 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_215__DBGOUT_LIST_METHOD#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]));
13017 ((meltroutine_ptr_t)/*_._VALROUT___V272*/ meltfptr[271])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]);
13018
13019 MELT_LOCATION("warmelt-debug.melt:942:/ initchunk");
13020 /*^putroutconst*/
13021 /*putroutconst*/
13022 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V272*/ meltfptr[271])) == MELTOBMAG_ROUTINE);
13023 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_215__DBGOUT_LIST_METHOD#2", NULL != (/*_.DISCR_LIST__V38*/ meltfptr[37]));
13024 ((meltroutine_ptr_t)/*_._VALROUT___V272*/ meltfptr[271])->tabval[2] = (melt_ptr_t)(/*_.DISCR_LIST__V38*/ meltfptr[37]);
13025
13026 MELT_LOCATION("warmelt-debug.melt:942:/ initchunk");
13027 /*^putroutconst*/
13028 /*putroutconst*/
13029 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V272*/ meltfptr[271])) == MELTOBMAG_ROUTINE);
13030 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_215__DBGOUT_LIST_METHOD#3", NULL != (/*_.ADD2OUT__V19*/ meltfptr[18]));
13031 ((meltroutine_ptr_t)/*_._VALROUT___V272*/ meltfptr[271])->tabval[3] = (melt_ptr_t)(/*_.ADD2OUT__V19*/ meltfptr[18]);
13032
13033 MELT_LOCATION("warmelt-debug.melt:942:/ initchunk");
13034 /*^putroutconstnotnull*/
13035 /*putroutconstnotnull*/
13036 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V272*/ meltfptr[271])) == MELTOBMAG_ROUTINE);
13037 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V187*/ meltfptr[186]);
13038 ((meltroutine_ptr_t)/*_._VALROUT___V272*/ meltfptr[271])->tabval[4] = (melt_ptr_t)(/*_._VALCLO___V187*/ meltfptr[186]);
13039
13040 MELT_LOCATION("warmelt-debug.melt:942:/ initchunk");
13041 /*^touch*/
13042 /*touch:_IROUTVAL_*/
13043 meltgc_touch(/*_._VALROUT___V272*/ meltfptr[271]);
13044
13045 /*putclosurout#24*/
13046 melt_assertmsg("putclosrout#24 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V273*/ meltfptr[272])) == MELTOBMAG_CLOSURE);
13047 melt_assertmsg("putclosrout#24 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V272*/ meltfptr[271])) == MELTOBMAG_ROUTINE);
13048 ((meltclosure_ptr_t)/*_._VALCLO___V273*/ meltfptr[272])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V272*/ meltfptr[271]);
13049
13050 /*touch:_DATACLOSURE_*/
13051 meltgc_touch(/*_._VALCLO___V273*/ meltfptr[272]);
13052
13053 /*putslot*/
13054 melt_assertmsg("checkobj putslot ~dsym_217__DISCR_LIST @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V274*/ meltfptr[273])) == MELTOBMAG_OBJECT);
13055
13056 melt_assertmsg("checkoff putslot ~dsym_217__DISCR_LIST @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V274*/ meltfptr[273]))));
13057 ((meltobject_ptr_t)(/*_._VALDATA___V274*/ meltfptr[273]))->obj_vartab[1] = (melt_ptr_t)(
13058 /*_._VALSTR___V275*/ meltfptr[274]);
13059
13060 /*touch:_VALUEDATA_*/
13061 meltgc_touch(/*_._VALDATA___V274*/ meltfptr[273]);
13062
13063
13064 melt_dbgtrace_written_object (/*_._VALDATA___V274*/ meltfptr[273], "new static instance");
13065
13066 MELT_LOCATION("warmelt-debug.melt:989:/ initchunk");
13067 /*^putroutconstnotnull*/
13068 /*putroutconstnotnull*/
13069 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V276*/ meltfptr[275])) == MELTOBMAG_ROUTINE);
13070 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V64*/ meltfptr[63]);
13071 ((meltroutine_ptr_t)/*_._VALROUT___V276*/ meltfptr[275])->tabval[0] = (melt_ptr_t)(/*_._VALDATA___V64*/ meltfptr[63]);
13072
13073 MELT_LOCATION("warmelt-debug.melt:989:/ initchunk");
13074 /*^putroutconst*/
13075 /*putroutconst*/
13076 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V276*/ meltfptr[275])) == MELTOBMAG_ROUTINE);
13077 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_219__DBGOUT_PAIR_METHOD#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]));
13078 ((meltroutine_ptr_t)/*_._VALROUT___V276*/ meltfptr[275])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]);
13079
13080 MELT_LOCATION("warmelt-debug.melt:989:/ initchunk");
13081 /*^putroutconst*/
13082 /*putroutconst*/
13083 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V276*/ meltfptr[275])) == MELTOBMAG_ROUTINE);
13084 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_219__DBGOUT_PAIR_METHOD#2", NULL != (/*_.DISCR_PAIR__V39*/ meltfptr[38]));
13085 ((meltroutine_ptr_t)/*_._VALROUT___V276*/ meltfptr[275])->tabval[2] = (melt_ptr_t)(/*_.DISCR_PAIR__V39*/ meltfptr[38]);
13086
13087 MELT_LOCATION("warmelt-debug.melt:989:/ initchunk");
13088 /*^putroutconstnotnull*/
13089 /*putroutconstnotnull*/
13090 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V276*/ meltfptr[275])) == MELTOBMAG_ROUTINE);
13091 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V82*/ meltfptr[81]);
13092 ((meltroutine_ptr_t)/*_._VALROUT___V276*/ meltfptr[275])->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V82*/ meltfptr[81]);
13093
13094 MELT_LOCATION("warmelt-debug.melt:989:/ initchunk");
13095 /*^putroutconstnotnull*/
13096 /*putroutconstnotnull*/
13097 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V276*/ meltfptr[275])) == MELTOBMAG_ROUTINE);
13098 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V187*/ meltfptr[186]);
13099 ((meltroutine_ptr_t)/*_._VALROUT___V276*/ meltfptr[275])->tabval[4] = (melt_ptr_t)(/*_._VALCLO___V187*/ meltfptr[186]);
13100
13101 MELT_LOCATION("warmelt-debug.melt:989:/ initchunk");
13102 /*^touch*/
13103 /*touch:_IROUTVAL_*/
13104 meltgc_touch(/*_._VALROUT___V276*/ meltfptr[275]);
13105
13106 /*putclosurout#25*/
13107 melt_assertmsg("putclosrout#25 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V277*/ meltfptr[276])) == MELTOBMAG_CLOSURE);
13108 melt_assertmsg("putclosrout#25 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V276*/ meltfptr[275])) == MELTOBMAG_ROUTINE);
13109 ((meltclosure_ptr_t)/*_._VALCLO___V277*/ meltfptr[276])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V276*/ meltfptr[275]);
13110
13111 /*touch:_DATACLOSURE_*/
13112 meltgc_touch(/*_._VALCLO___V277*/ meltfptr[276]);
13113
13114 /*putslot*/
13115 melt_assertmsg("checkobj putslot ~dsym_221__DISCR_PAIR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V278*/ meltfptr[277])) == MELTOBMAG_OBJECT);
13116
13117 melt_assertmsg("checkoff putslot ~dsym_221__DISCR_PAIR @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V278*/ meltfptr[277]))));
13118 ((meltobject_ptr_t)(/*_._VALDATA___V278*/ meltfptr[277]))->obj_vartab[1] = (melt_ptr_t)(
13119 /*_._VALSTR___V279*/ meltfptr[278]);
13120
13121 /*touch:_VALUEDATA_*/
13122 meltgc_touch(/*_._VALDATA___V278*/ meltfptr[277]);
13123
13124
13125 melt_dbgtrace_written_object (/*_._VALDATA___V278*/ meltfptr[277], "new static instance");
13126
13127 MELT_LOCATION("warmelt-debug.melt:1014:/ initchunk");
13128 /*^putroutconstnotnull*/
13129 /*putroutconstnotnull*/
13130 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V280*/ meltfptr[279])) == MELTOBMAG_ROUTINE);
13131 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V64*/ meltfptr[63]);
13132 ((meltroutine_ptr_t)/*_._VALROUT___V280*/ meltfptr[279])->tabval[0] = (melt_ptr_t)(/*_._VALDATA___V64*/ meltfptr[63]);
13133
13134 MELT_LOCATION("warmelt-debug.melt:1014:/ initchunk");
13135 /*^putroutconst*/
13136 /*putroutconst*/
13137 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V280*/ meltfptr[279])) == MELTOBMAG_ROUTINE);
13138 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_223__DBGOUT_MAPOBJECT_METHOD#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]));
13139 ((meltroutine_ptr_t)/*_._VALROUT___V280*/ meltfptr[279])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]);
13140
13141 MELT_LOCATION("warmelt-debug.melt:1014:/ initchunk");
13142 /*^putroutconst*/
13143 /*putroutconst*/
13144 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V280*/ meltfptr[279])) == MELTOBMAG_ROUTINE);
13145 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_223__DBGOUT_MAPOBJECT_METHOD#2", NULL != (/*_.DISCR_MAP_OBJECTS__V15*/ meltfptr[14]));
13146 ((meltroutine_ptr_t)/*_._VALROUT___V280*/ meltfptr[279])->tabval[2] = (melt_ptr_t)(/*_.DISCR_MAP_OBJECTS__V15*/ meltfptr[14]);
13147
13148 MELT_LOCATION("warmelt-debug.melt:1014:/ initchunk");
13149 /*^putroutconst*/
13150 /*putroutconst*/
13151 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V280*/ meltfptr[279])) == MELTOBMAG_ROUTINE);
13152 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_223__DBGOUT_MAPOBJECT_METHOD#3", NULL != (/*_.DISCR_INTEGER__V16*/ meltfptr[15]));
13153 ((meltroutine_ptr_t)/*_._VALROUT___V280*/ meltfptr[279])->tabval[3] = (melt_ptr_t)(/*_.DISCR_INTEGER__V16*/ meltfptr[15]);
13154
13155
13156 #undef meltfram__
13157 } /*end of meltmod__WARMELTmiDEBUG__initialmeltchunk_3*/
13158
13159
13160
13161 void meltmod__WARMELTmiDEBUG__initialmeltchunk_4 (meltinitial_frame_t* meltframptr__, char meltpredefinited[])
13162 {
13163 #define meltfram__ (*meltframptr__)
13164 #undef meltcallcount
13165 #define meltcallcount 0L
13166 (void) meltpredefinited;
13167 MELT_LOCATION("warmelt-debug.melt:1014:/ initchunk");
13168 /*^putroutconst*/
13169 /*putroutconst*/
13170 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V280*/ meltfptr[279])) == MELTOBMAG_ROUTINE);
13171 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_223__DBGOUT_MAPOBJECT_METHOD#4", NULL != (/*_.DISCR_MULTIPLE__V33*/ meltfptr[32]));
13172 ((meltroutine_ptr_t)/*_._VALROUT___V280*/ meltfptr[279])->tabval[4] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V33*/ meltfptr[32]);
13173
13174 MELT_LOCATION("warmelt-debug.melt:1014:/ initchunk");
13175 /*^putroutconst*/
13176 /*putroutconst*/
13177 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V280*/ meltfptr[279])) == MELTOBMAG_ROUTINE);
13178 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_223__DBGOUT_MAPOBJECT_METHOD#5", NULL != (/*_.ADD2OUT__V19*/ meltfptr[18]));
13179 ((meltroutine_ptr_t)/*_._VALROUT___V280*/ meltfptr[279])->tabval[5] = (melt_ptr_t)(/*_.ADD2OUT__V19*/ meltfptr[18]);
13180
13181 MELT_LOCATION("warmelt-debug.melt:1014:/ initchunk");
13182 /*^putroutconstnotnull*/
13183 /*putroutconstnotnull*/
13184 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V280*/ meltfptr[279])) == MELTOBMAG_ROUTINE);
13185 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V187*/ meltfptr[186]);
13186 ((meltroutine_ptr_t)/*_._VALROUT___V280*/ meltfptr[279])->tabval[6] = (melt_ptr_t)(/*_._VALCLO___V187*/ meltfptr[186]);
13187
13188 MELT_LOCATION("warmelt-debug.melt:1014:/ initchunk");
13189 /*^putroutconst*/
13190 /*putroutconst*/
13191 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V280*/ meltfptr[279])) == MELTOBMAG_ROUTINE);
13192 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_223__DBGOUT_MAPOBJECT_METHOD#7", NULL != (/*_.MAPOBJECT_EVERY__V40*/ meltfptr[39]));
13193 ((meltroutine_ptr_t)/*_._VALROUT___V280*/ meltfptr[279])->tabval[7] = (melt_ptr_t)(/*_.MAPOBJECT_EVERY__V40*/ meltfptr[39]);
13194
13195 MELT_LOCATION("warmelt-debug.melt:1014:/ initchunk");
13196 /*^putroutconst*/
13197 /*putroutconst*/
13198 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V280*/ meltfptr[279])) == MELTOBMAG_ROUTINE);
13199 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_223__DBGOUT_MAPOBJECT_METHOD#8", NULL != (/*_.DISCR_INTEGER__V16*/ meltfptr[15]));
13200 ((meltroutine_ptr_t)/*_._VALROUT___V280*/ meltfptr[279])->tabval[8] = (melt_ptr_t)(/*_.DISCR_INTEGER__V16*/ meltfptr[15]);
13201
13202 MELT_LOCATION("warmelt-debug.melt:1054:/ initchunk");
13203 /*^putroutconst*/
13204 /*putroutconst*/
13205 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V281*/ meltfptr[280])) == MELTOBMAG_ROUTINE);
13206 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_227__LAMBDA_#0", NULL != (/*_.DISCR_INTEGER__V16*/ meltfptr[15]));
13207 ((meltroutine_ptr_t)/*_._VALROUT___V281*/ meltfptr[280])->tabval[0] = (melt_ptr_t)(/*_.DISCR_INTEGER__V16*/ meltfptr[15]);
13208
13209 MELT_LOCATION("warmelt-debug.melt:1054:/ initchunk");
13210 /*^touch*/
13211 /*touch:_IROUTVAL_*/
13212 meltgc_touch(/*_._VALROUT___V281*/ meltfptr[280]);
13213
13214 MELT_LOCATION("warmelt-debug.melt:1014:/ initchunk");
13215 /*^putroutconst*/
13216 /*putroutconst*/
13217 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V280*/ meltfptr[279])) == MELTOBMAG_ROUTINE);
13218 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_223__DBGOUT_MAPOBJECT_METHOD#9", NULL != (/*_._VALROUT___V281*/ meltfptr[280]));
13219 ((meltroutine_ptr_t)/*_._VALROUT___V280*/ meltfptr[279])->tabval[9] = (melt_ptr_t)(/*_._VALROUT___V281*/ meltfptr[280]);
13220
13221 MELT_LOCATION("warmelt-debug.melt:1014:/ initchunk");
13222 /*^putroutconst*/
13223 /*putroutconst*/
13224 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V280*/ meltfptr[279])) == MELTOBMAG_ROUTINE);
13225 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_223__DBGOUT_MAPOBJECT_METHOD#10", NULL != (/*_.MULTIPLE_SORT__V41*/ meltfptr[40]));
13226 ((meltroutine_ptr_t)/*_._VALROUT___V280*/ meltfptr[279])->tabval[10] = (melt_ptr_t)(/*_.MULTIPLE_SORT__V41*/ meltfptr[40]);
13227
13228 MELT_LOCATION("warmelt-debug.melt:1014:/ initchunk");
13229 /*^putroutconst*/
13230 /*putroutconst*/
13231 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V280*/ meltfptr[279])) == MELTOBMAG_ROUTINE);
13232 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_223__DBGOUT_MAPOBJECT_METHOD#11", NULL != (/*_.COMPARE_OBJ_RANKED__V42*/ meltfptr[41]));
13233 ((meltroutine_ptr_t)/*_._VALROUT___V280*/ meltfptr[279])->tabval[11] = (melt_ptr_t)(/*_.COMPARE_OBJ_RANKED__V42*/ meltfptr[41]);
13234
13235 MELT_LOCATION("warmelt-debug.melt:1067:/ initchunk");
13236 /*^putroutconst*/
13237 /*putroutconst*/
13238 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V282*/ meltfptr[281])) == MELTOBMAG_ROUTINE);
13239 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_230__LAMBDA_#0", NULL != (/*_.COMPARE_OBJ_RANKED__V42*/ meltfptr[41]));
13240 ((meltroutine_ptr_t)/*_._VALROUT___V282*/ meltfptr[281])->tabval[0] = (melt_ptr_t)(/*_.COMPARE_OBJ_RANKED__V42*/ meltfptr[41]);
13241
13242 MELT_LOCATION("warmelt-debug.melt:1067:/ initchunk");
13243 /*^putroutconst*/
13244 /*putroutconst*/
13245 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V282*/ meltfptr[281])) == MELTOBMAG_ROUTINE);
13246 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_230__LAMBDA_#1", NULL != (/*_._VALBXINT___V283*/ meltfptr[282]));
13247 ((meltroutine_ptr_t)/*_._VALROUT___V282*/ meltfptr[281])->tabval[1] = (melt_ptr_t)(/*_._VALBXINT___V283*/ meltfptr[282]);
13248
13249 MELT_LOCATION("warmelt-debug.melt:1067:/ initchunk");
13250 /*^putroutconst*/
13251 /*putroutconst*/
13252 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V282*/ meltfptr[281])) == MELTOBMAG_ROUTINE);
13253 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_230__LAMBDA_#2", NULL != (/*_._VALBXINT___V284*/ meltfptr[283]));
13254 ((meltroutine_ptr_t)/*_._VALROUT___V282*/ meltfptr[281])->tabval[2] = (melt_ptr_t)(/*_._VALBXINT___V284*/ meltfptr[283]);
13255
13256 MELT_LOCATION("warmelt-debug.melt:1067:/ initchunk");
13257 /*^putroutconst*/
13258 /*putroutconst*/
13259 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V282*/ meltfptr[281])) == MELTOBMAG_ROUTINE);
13260 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_230__LAMBDA_#3", NULL != (/*_._VALBXINT___V285*/ meltfptr[284]));
13261 ((meltroutine_ptr_t)/*_._VALROUT___V282*/ meltfptr[281])->tabval[3] = (melt_ptr_t)(/*_._VALBXINT___V285*/ meltfptr[284]);
13262
13263 MELT_LOCATION("warmelt-debug.melt:1067:/ initchunk");
13264 /*^touch*/
13265 /*touch:_IROUTVAL_*/
13266 meltgc_touch(/*_._VALROUT___V282*/ meltfptr[281]);
13267
13268 MELT_LOCATION("warmelt-debug.melt:1014:/ initchunk");
13269 /*^putroutconst*/
13270 /*putroutconst*/
13271 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V280*/ meltfptr[279])) == MELTOBMAG_ROUTINE);
13272 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_223__DBGOUT_MAPOBJECT_METHOD#12", NULL != (/*_._VALROUT___V282*/ meltfptr[281]));
13273 ((meltroutine_ptr_t)/*_._VALROUT___V280*/ meltfptr[279])->tabval[12] = (melt_ptr_t)(/*_._VALROUT___V282*/ meltfptr[281]);
13274
13275 MELT_LOCATION("warmelt-debug.melt:1014:/ initchunk");
13276 /*^putroutconst*/
13277 /*putroutconst*/
13278 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V280*/ meltfptr[279])) == MELTOBMAG_ROUTINE);
13279 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_223__DBGOUT_MAPOBJECT_METHOD#13", NULL != (/*_.MULTIPLE_EVERY__V43*/ meltfptr[42]));
13280 ((meltroutine_ptr_t)/*_._VALROUT___V280*/ meltfptr[279])->tabval[13] = (melt_ptr_t)(/*_.MULTIPLE_EVERY__V43*/ meltfptr[42]);
13281
13282 MELT_LOCATION("warmelt-debug.melt:1014:/ initchunk");
13283 /*^putroutconst*/
13284 /*putroutconst*/
13285 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V280*/ meltfptr[279])) == MELTOBMAG_ROUTINE);
13286 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_223__DBGOUT_MAPOBJECT_METHOD#14", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]));
13287 ((meltroutine_ptr_t)/*_._VALROUT___V280*/ meltfptr[279])->tabval[14] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]);
13288
13289 MELT_LOCATION("warmelt-debug.melt:1014:/ initchunk");
13290 /*^putroutconstnotnull*/
13291 /*putroutconstnotnull*/
13292 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V280*/ meltfptr[279])) == MELTOBMAG_ROUTINE);
13293 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V189*/ meltfptr[188]);
13294 ((meltroutine_ptr_t)/*_._VALROUT___V280*/ meltfptr[279])->tabval[15] = (melt_ptr_t)(/*_._VALCLO___V189*/ meltfptr[188]);
13295
13296 MELT_LOCATION("warmelt-debug.melt:1014:/ initchunk");
13297 /*^putroutconstnotnull*/
13298 /*putroutconstnotnull*/
13299 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V280*/ meltfptr[279])) == MELTOBMAG_ROUTINE);
13300 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V187*/ meltfptr[186]);
13301 ((meltroutine_ptr_t)/*_._VALROUT___V280*/ meltfptr[279])->tabval[16] = (melt_ptr_t)(/*_._VALCLO___V187*/ meltfptr[186]);
13302
13303 MELT_LOCATION("warmelt-debug.melt:1083:/ initchunk");
13304 /*^putroutconst*/
13305 /*putroutconst*/
13306 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V286*/ meltfptr[285])) == MELTOBMAG_ROUTINE);
13307 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_238__LAMBDA_#0", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]));
13308 ((meltroutine_ptr_t)/*_._VALROUT___V286*/ meltfptr[285])->tabval[0] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]);
13309
13310 MELT_LOCATION("warmelt-debug.melt:1083:/ initchunk");
13311 /*^putroutconstnotnull*/
13312 /*putroutconstnotnull*/
13313 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V286*/ meltfptr[285])) == MELTOBMAG_ROUTINE);
13314 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V189*/ meltfptr[188]);
13315 ((meltroutine_ptr_t)/*_._VALROUT___V286*/ meltfptr[285])->tabval[1] = (melt_ptr_t)(/*_._VALCLO___V189*/ meltfptr[188]);
13316
13317 MELT_LOCATION("warmelt-debug.melt:1083:/ initchunk");
13318 /*^putroutconstnotnull*/
13319 /*putroutconstnotnull*/
13320 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V286*/ meltfptr[285])) == MELTOBMAG_ROUTINE);
13321 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V187*/ meltfptr[186]);
13322 ((meltroutine_ptr_t)/*_._VALROUT___V286*/ meltfptr[285])->tabval[2] = (melt_ptr_t)(/*_._VALCLO___V187*/ meltfptr[186]);
13323
13324 MELT_LOCATION("warmelt-debug.melt:1083:/ initchunk");
13325 /*^touch*/
13326 /*touch:_IROUTVAL_*/
13327 meltgc_touch(/*_._VALROUT___V286*/ meltfptr[285]);
13328
13329 MELT_LOCATION("warmelt-debug.melt:1014:/ initchunk");
13330 /*^putroutconst*/
13331 /*putroutconst*/
13332 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V280*/ meltfptr[279])) == MELTOBMAG_ROUTINE);
13333 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_223__DBGOUT_MAPOBJECT_METHOD#17", NULL != (/*_._VALROUT___V286*/ meltfptr[285]));
13334 ((meltroutine_ptr_t)/*_._VALROUT___V280*/ meltfptr[279])->tabval[17] = (melt_ptr_t)(/*_._VALROUT___V286*/ meltfptr[285]);
13335
13336 MELT_LOCATION("warmelt-debug.melt:1014:/ initchunk");
13337 /*^touch*/
13338 /*touch:_IROUTVAL_*/
13339 meltgc_touch(/*_._VALROUT___V280*/ meltfptr[279]);
13340
13341 /*putclosurout#26*/
13342 melt_assertmsg("putclosrout#26 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V287*/ meltfptr[286])) == MELTOBMAG_CLOSURE);
13343 melt_assertmsg("putclosrout#26 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V280*/ meltfptr[279])) == MELTOBMAG_ROUTINE);
13344 ((meltclosure_ptr_t)/*_._VALCLO___V287*/ meltfptr[286])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V280*/ meltfptr[279]);
13345
13346 /*touch:_DATACLOSURE_*/
13347 meltgc_touch(/*_._VALCLO___V287*/ meltfptr[286]);
13348
13349 /*putslot*/
13350 melt_assertmsg("checkobj putslot ~dsym_225__MAPOBJECT_EVERY @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V288*/ meltfptr[287])) == MELTOBMAG_OBJECT);
13351
13352 melt_assertmsg("checkoff putslot ~dsym_225__MAPOBJECT_EVERY @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V288*/ meltfptr[287]))));
13353 ((meltobject_ptr_t)(/*_._VALDATA___V288*/ meltfptr[287]))->obj_vartab[1] = (melt_ptr_t)(
13354 /*_._VALSTR___V289*/ meltfptr[288]);
13355
13356 /*touch:_VALUEDATA_*/
13357 meltgc_touch(/*_._VALDATA___V288*/ meltfptr[287]);
13358
13359
13360 melt_dbgtrace_written_object (/*_._VALDATA___V288*/ meltfptr[287], "new static instance");
13361
13362 /*putslot*/
13363 melt_assertmsg("checkobj putslot ~dsym_228__MULTIPLE_SORT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V290*/ meltfptr[289])) == MELTOBMAG_OBJECT);
13364
13365 melt_assertmsg("checkoff putslot ~dsym_228__MULTIPLE_SORT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V290*/ meltfptr[289]))));
13366 ((meltobject_ptr_t)(/*_._VALDATA___V290*/ meltfptr[289]))->obj_vartab[1] = (melt_ptr_t)(
13367 /*_._VALSTR___V291*/ meltfptr[290]);
13368
13369 /*touch:_VALUEDATA_*/
13370 meltgc_touch(/*_._VALDATA___V290*/ meltfptr[289]);
13371
13372
13373 melt_dbgtrace_written_object (/*_._VALDATA___V290*/ meltfptr[289], "new static instance");
13374
13375 /*putslot*/
13376 melt_assertmsg("checkobj putslot ~dsym_231__COMPARE_OBJ_RANKED @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V292*/ meltfptr[291])) == MELTOBMAG_OBJECT);
13377
13378 melt_assertmsg("checkoff putslot ~dsym_231__COMPARE_OBJ_RANKED @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V292*/ meltfptr[291]))));
13379 ((meltobject_ptr_t)(/*_._VALDATA___V292*/ meltfptr[291]))->obj_vartab[1] = (melt_ptr_t)(
13380 /*_._VALSTR___V293*/ meltfptr[292]);
13381
13382 /*touch:_VALUEDATA_*/
13383 meltgc_touch(/*_._VALDATA___V292*/ meltfptr[291]);
13384
13385
13386 melt_dbgtrace_written_object (/*_._VALDATA___V292*/ meltfptr[291], "new static instance");
13387
13388 /*putslot*/
13389 melt_assertmsg("checkobj putslot ~dsym_236__MULTIPLE_EVERY @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V294*/ meltfptr[293])) == MELTOBMAG_OBJECT);
13390
13391 melt_assertmsg("checkoff putslot ~dsym_236__MULTIPLE_EVERY @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V294*/ meltfptr[293]))));
13392 ((meltobject_ptr_t)(/*_._VALDATA___V294*/ meltfptr[293]))->obj_vartab[1] = (melt_ptr_t)(
13393 /*_._VALSTR___V295*/ meltfptr[294]);
13394
13395 /*touch:_VALUEDATA_*/
13396 meltgc_touch(/*_._VALDATA___V294*/ meltfptr[293]);
13397
13398
13399 melt_dbgtrace_written_object (/*_._VALDATA___V294*/ meltfptr[293], "new static instance");
13400
13401 MELT_LOCATION("warmelt-debug.melt:1108:/ initchunk");
13402 /*^putroutconstnotnull*/
13403 /*putroutconstnotnull*/
13404 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V296*/ meltfptr[295])) == MELTOBMAG_ROUTINE);
13405 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V64*/ meltfptr[63]);
13406 ((meltroutine_ptr_t)/*_._VALROUT___V296*/ meltfptr[295])->tabval[0] = (melt_ptr_t)(/*_._VALDATA___V64*/ meltfptr[63]);
13407
13408 MELT_LOCATION("warmelt-debug.melt:1108:/ initchunk");
13409 /*^putroutconst*/
13410 /*putroutconst*/
13411 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V296*/ meltfptr[295])) == MELTOBMAG_ROUTINE);
13412 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_239__DBGOUT_MAPSTRING_METHOD#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]));
13413 ((meltroutine_ptr_t)/*_._VALROUT___V296*/ meltfptr[295])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]);
13414
13415 MELT_LOCATION("warmelt-debug.melt:1108:/ initchunk");
13416 /*^putroutconst*/
13417 /*putroutconst*/
13418 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V296*/ meltfptr[295])) == MELTOBMAG_ROUTINE);
13419 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_239__DBGOUT_MAPSTRING_METHOD#2", NULL != (/*_.DISCR_INTEGER__V16*/ meltfptr[15]));
13420 ((meltroutine_ptr_t)/*_._VALROUT___V296*/ meltfptr[295])->tabval[2] = (melt_ptr_t)(/*_.DISCR_INTEGER__V16*/ meltfptr[15]);
13421
13422 MELT_LOCATION("warmelt-debug.melt:1108:/ initchunk");
13423 /*^putroutconst*/
13424 /*putroutconst*/
13425 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V296*/ meltfptr[295])) == MELTOBMAG_ROUTINE);
13426 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_239__DBGOUT_MAPSTRING_METHOD#3", NULL != (/*_.DISCR_MULTIPLE__V33*/ meltfptr[32]));
13427 ((meltroutine_ptr_t)/*_._VALROUT___V296*/ meltfptr[295])->tabval[3] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V33*/ meltfptr[32]);
13428
13429 MELT_LOCATION("warmelt-debug.melt:1108:/ initchunk");
13430 /*^putroutconst*/
13431 /*putroutconst*/
13432 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V296*/ meltfptr[295])) == MELTOBMAG_ROUTINE);
13433 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_239__DBGOUT_MAPSTRING_METHOD#4", NULL != (/*_.ADD2OUT__V19*/ meltfptr[18]));
13434 ((meltroutine_ptr_t)/*_._VALROUT___V296*/ meltfptr[295])->tabval[4] = (melt_ptr_t)(/*_.ADD2OUT__V19*/ meltfptr[18]);
13435
13436 MELT_LOCATION("warmelt-debug.melt:1108:/ initchunk");
13437 /*^putroutconst*/
13438 /*putroutconst*/
13439 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V296*/ meltfptr[295])) == MELTOBMAG_ROUTINE);
13440 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_239__DBGOUT_MAPSTRING_METHOD#5", NULL != (/*_.CLASS_NAMED__V21*/ meltfptr[20]));
13441 ((meltroutine_ptr_t)/*_._VALROUT___V296*/ meltfptr[295])->tabval[5] = (melt_ptr_t)(/*_.CLASS_NAMED__V21*/ meltfptr[20]);
13442
13443 MELT_LOCATION("warmelt-debug.melt:1108:/ initchunk");
13444 /*^putroutconstnotnull*/
13445 /*putroutconstnotnull*/
13446 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V296*/ meltfptr[295])) == MELTOBMAG_ROUTINE);
13447 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V82*/ meltfptr[81]);
13448 ((meltroutine_ptr_t)/*_._VALROUT___V296*/ meltfptr[295])->tabval[6] = (melt_ptr_t)(/*_._VALDATA___V82*/ meltfptr[81]);
13449
13450 MELT_LOCATION("warmelt-debug.melt:1108:/ initchunk");
13451 /*^putroutconstnotnull*/
13452 /*putroutconstnotnull*/
13453 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V296*/ meltfptr[295])) == MELTOBMAG_ROUTINE);
13454 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V187*/ meltfptr[186]);
13455 ((meltroutine_ptr_t)/*_._VALROUT___V296*/ meltfptr[295])->tabval[7] = (melt_ptr_t)(/*_._VALCLO___V187*/ meltfptr[186]);
13456
13457 MELT_LOCATION("warmelt-debug.melt:1108:/ initchunk");
13458 /*^putroutconst*/
13459 /*putroutconst*/
13460 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V296*/ meltfptr[295])) == MELTOBMAG_ROUTINE);
13461 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_239__DBGOUT_MAPSTRING_METHOD#8", NULL != (/*_.MAPSTRING_EVERY__V44*/ meltfptr[43]));
13462 ((meltroutine_ptr_t)/*_._VALROUT___V296*/ meltfptr[295])->tabval[8] = (melt_ptr_t)(/*_.MAPSTRING_EVERY__V44*/ meltfptr[43]);
13463
13464 MELT_LOCATION("warmelt-debug.melt:1108:/ initchunk");
13465 /*^putroutconst*/
13466 /*putroutconst*/
13467 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V296*/ meltfptr[295])) == MELTOBMAG_ROUTINE);
13468 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_239__DBGOUT_MAPSTRING_METHOD#9", NULL != (/*_.DISCR_INTEGER__V16*/ meltfptr[15]));
13469 ((meltroutine_ptr_t)/*_._VALROUT___V296*/ meltfptr[295])->tabval[9] = (melt_ptr_t)(/*_.DISCR_INTEGER__V16*/ meltfptr[15]);
13470
13471 MELT_LOCATION("warmelt-debug.melt:1143:/ initchunk");
13472 /*^putroutconst*/
13473 /*putroutconst*/
13474 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V297*/ meltfptr[296])) == MELTOBMAG_ROUTINE);
13475 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_243__LAMBDA_#0", NULL != (/*_.DISCR_INTEGER__V16*/ meltfptr[15]));
13476 ((meltroutine_ptr_t)/*_._VALROUT___V297*/ meltfptr[296])->tabval[0] = (melt_ptr_t)(/*_.DISCR_INTEGER__V16*/ meltfptr[15]);
13477
13478 MELT_LOCATION("warmelt-debug.melt:1143:/ initchunk");
13479 /*^touch*/
13480 /*touch:_IROUTVAL_*/
13481 meltgc_touch(/*_._VALROUT___V297*/ meltfptr[296]);
13482
13483 MELT_LOCATION("warmelt-debug.melt:1108:/ initchunk");
13484 /*^putroutconst*/
13485 /*putroutconst*/
13486 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V296*/ meltfptr[295])) == MELTOBMAG_ROUTINE);
13487 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_239__DBGOUT_MAPSTRING_METHOD#10", NULL != (/*_._VALROUT___V297*/ meltfptr[296]));
13488 ((meltroutine_ptr_t)/*_._VALROUT___V296*/ meltfptr[295])->tabval[10] = (melt_ptr_t)(/*_._VALROUT___V297*/ meltfptr[296]);
13489
13490 MELT_LOCATION("warmelt-debug.melt:1108:/ initchunk");
13491 /*^putroutconst*/
13492 /*putroutconst*/
13493 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V296*/ meltfptr[295])) == MELTOBMAG_ROUTINE);
13494 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_239__DBGOUT_MAPSTRING_METHOD#11", NULL != (/*_.MULTIPLE_SORT__V41*/ meltfptr[40]));
13495 ((meltroutine_ptr_t)/*_._VALROUT___V296*/ meltfptr[295])->tabval[11] = (melt_ptr_t)(/*_.MULTIPLE_SORT__V41*/ meltfptr[40]);
13496
13497 MELT_LOCATION("warmelt-debug.melt:1108:/ initchunk");
13498 /*^putroutconst*/
13499 /*putroutconst*/
13500 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V296*/ meltfptr[295])) == MELTOBMAG_ROUTINE);
13501 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_239__DBGOUT_MAPSTRING_METHOD#12", NULL != (/*_.COMPARE_OBJ_RANKED__V42*/ meltfptr[41]));
13502 ((meltroutine_ptr_t)/*_._VALROUT___V296*/ meltfptr[295])->tabval[12] = (melt_ptr_t)(/*_.COMPARE_OBJ_RANKED__V42*/ meltfptr[41]);
13503
13504 MELT_LOCATION("warmelt-debug.melt:1155:/ initchunk");
13505 /*^putroutconst*/
13506 /*putroutconst*/
13507 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V298*/ meltfptr[297])) == MELTOBMAG_ROUTINE);
13508 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_244__LAMBDA_#0", NULL != (/*_.COMPARE_OBJ_RANKED__V42*/ meltfptr[41]));
13509 ((meltroutine_ptr_t)/*_._VALROUT___V298*/ meltfptr[297])->tabval[0] = (melt_ptr_t)(/*_.COMPARE_OBJ_RANKED__V42*/ meltfptr[41]);
13510
13511 MELT_LOCATION("warmelt-debug.melt:1155:/ initchunk");
13512 /*^putroutconst*/
13513 /*putroutconst*/
13514 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V298*/ meltfptr[297])) == MELTOBMAG_ROUTINE);
13515 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_244__LAMBDA_#1", NULL != (/*_._VALBXINT___V299*/ meltfptr[298]));
13516 ((meltroutine_ptr_t)/*_._VALROUT___V298*/ meltfptr[297])->tabval[1] = (melt_ptr_t)(/*_._VALBXINT___V299*/ meltfptr[298]);
13517
13518 MELT_LOCATION("warmelt-debug.melt:1155:/ initchunk");
13519 /*^putroutconst*/
13520 /*putroutconst*/
13521 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V298*/ meltfptr[297])) == MELTOBMAG_ROUTINE);
13522 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_244__LAMBDA_#2", NULL != (/*_._VALBXINT___V300*/ meltfptr[299]));
13523 ((meltroutine_ptr_t)/*_._VALROUT___V298*/ meltfptr[297])->tabval[2] = (melt_ptr_t)(/*_._VALBXINT___V300*/ meltfptr[299]);
13524
13525 MELT_LOCATION("warmelt-debug.melt:1155:/ initchunk");
13526 /*^putroutconst*/
13527 /*putroutconst*/
13528 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V298*/ meltfptr[297])) == MELTOBMAG_ROUTINE);
13529 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_244__LAMBDA_#3", NULL != (/*_._VALBXINT___V301*/ meltfptr[300]));
13530 ((meltroutine_ptr_t)/*_._VALROUT___V298*/ meltfptr[297])->tabval[3] = (melt_ptr_t)(/*_._VALBXINT___V301*/ meltfptr[300]);
13531
13532 MELT_LOCATION("warmelt-debug.melt:1155:/ initchunk");
13533 /*^touch*/
13534 /*touch:_IROUTVAL_*/
13535 meltgc_touch(/*_._VALROUT___V298*/ meltfptr[297]);
13536
13537 MELT_LOCATION("warmelt-debug.melt:1108:/ initchunk");
13538 /*^putroutconst*/
13539 /*putroutconst*/
13540 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V296*/ meltfptr[295])) == MELTOBMAG_ROUTINE);
13541 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_239__DBGOUT_MAPSTRING_METHOD#13", NULL != (/*_._VALROUT___V298*/ meltfptr[297]));
13542 ((meltroutine_ptr_t)/*_._VALROUT___V296*/ meltfptr[295])->tabval[13] = (melt_ptr_t)(/*_._VALROUT___V298*/ meltfptr[297]);
13543
13544 MELT_LOCATION("warmelt-debug.melt:1108:/ initchunk");
13545 /*^touch*/
13546 /*touch:_IROUTVAL_*/
13547 meltgc_touch(/*_._VALROUT___V296*/ meltfptr[295]);
13548
13549 /*putclosurout#27*/
13550 melt_assertmsg("putclosrout#27 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V302*/ meltfptr[301])) == MELTOBMAG_CLOSURE);
13551 melt_assertmsg("putclosrout#27 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V296*/ meltfptr[295])) == MELTOBMAG_ROUTINE);
13552 ((meltclosure_ptr_t)/*_._VALCLO___V302*/ meltfptr[301])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V296*/ meltfptr[295]);
13553
13554 /*touch:_DATACLOSURE_*/
13555 meltgc_touch(/*_._VALCLO___V302*/ meltfptr[301]);
13556
13557 /*putslot*/
13558 melt_assertmsg("checkobj putslot ~dsym_241__MAPSTRING_EVERY @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V303*/ meltfptr[302])) == MELTOBMAG_OBJECT);
13559
13560 melt_assertmsg("checkoff putslot ~dsym_241__MAPSTRING_EVERY @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V303*/ meltfptr[302]))));
13561 ((meltobject_ptr_t)(/*_._VALDATA___V303*/ meltfptr[302]))->obj_vartab[1] = (melt_ptr_t)(
13562 /*_._VALSTR___V304*/ meltfptr[303]);
13563
13564 /*touch:_VALUEDATA_*/
13565 meltgc_touch(/*_._VALDATA___V303*/ meltfptr[302]);
13566
13567
13568 melt_dbgtrace_written_object (/*_._VALDATA___V303*/ meltfptr[302], "new static instance");
13569
13570 /*putslot*/
13571 melt_assertmsg("checkobj putslot ~dsym_248__DISCR_MAP_STRINGS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V305*/ meltfptr[304])) == MELTOBMAG_OBJECT);
13572
13573 melt_assertmsg("checkoff putslot ~dsym_248__DISCR_MAP_STRINGS @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V305*/ meltfptr[304]))));
13574 ((meltobject_ptr_t)(/*_._VALDATA___V305*/ meltfptr[304]))->obj_vartab[1] = (melt_ptr_t)(
13575 /*_._VALSTR___V306*/ meltfptr[305]);
13576
13577 /*touch:_VALUEDATA_*/
13578 meltgc_touch(/*_._VALDATA___V305*/ meltfptr[304]);
13579
13580
13581 melt_dbgtrace_written_object (/*_._VALDATA___V305*/ meltfptr[304], "new static instance");
13582
13583 MELT_LOCATION("warmelt-debug.melt:1191:/ initchunk");
13584 /*^putroutconstnotnull*/
13585 /*putroutconstnotnull*/
13586 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V307*/ meltfptr[306])) == MELTOBMAG_ROUTINE);
13587 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V64*/ meltfptr[63]);
13588 ((meltroutine_ptr_t)/*_._VALROUT___V307*/ meltfptr[306])->tabval[0] = (melt_ptr_t)(/*_._VALDATA___V64*/ meltfptr[63]);
13589
13590 MELT_LOCATION("warmelt-debug.melt:1191:/ initchunk");
13591 /*^putroutconst*/
13592 /*putroutconst*/
13593 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V307*/ meltfptr[306])) == MELTOBMAG_ROUTINE);
13594 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_250__DBGOUT_BUCKETLONG_METHOD#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]));
13595 ((meltroutine_ptr_t)/*_._VALROUT___V307*/ meltfptr[306])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]);
13596
13597 MELT_LOCATION("warmelt-debug.melt:1191:/ initchunk");
13598 /*^putroutconst*/
13599 /*putroutconst*/
13600 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V307*/ meltfptr[306])) == MELTOBMAG_ROUTINE);
13601 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_250__DBGOUT_BUCKETLONG_METHOD#2", NULL != (/*_.DISCR_INTEGER__V16*/ meltfptr[15]));
13602 ((meltroutine_ptr_t)/*_._VALROUT___V307*/ meltfptr[306])->tabval[2] = (melt_ptr_t)(/*_.DISCR_INTEGER__V16*/ meltfptr[15]);
13603
13604 MELT_LOCATION("warmelt-debug.melt:1191:/ initchunk");
13605 /*^putroutconst*/
13606 /*putroutconst*/
13607 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V307*/ meltfptr[306])) == MELTOBMAG_ROUTINE);
13608 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_250__DBGOUT_BUCKETLONG_METHOD#3", NULL != (/*_.ADD2OUT__V19*/ meltfptr[18]));
13609 ((meltroutine_ptr_t)/*_._VALROUT___V307*/ meltfptr[306])->tabval[3] = (melt_ptr_t)(/*_.ADD2OUT__V19*/ meltfptr[18]);
13610
13611 MELT_LOCATION("warmelt-debug.melt:1191:/ initchunk");
13612 /*^putroutconst*/
13613 /*putroutconst*/
13614 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V307*/ meltfptr[306])) == MELTOBMAG_ROUTINE);
13615 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_250__DBGOUT_BUCKETLONG_METHOD#4", NULL != (/*_.CLASS_NAMED__V21*/ meltfptr[20]));
13616 ((meltroutine_ptr_t)/*_._VALROUT___V307*/ meltfptr[306])->tabval[4] = (melt_ptr_t)(/*_.CLASS_NAMED__V21*/ meltfptr[20]);
13617
13618 MELT_LOCATION("warmelt-debug.melt:1191:/ initchunk");
13619 /*^putroutconstnotnull*/
13620 /*putroutconstnotnull*/
13621 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V307*/ meltfptr[306])) == MELTOBMAG_ROUTINE);
13622 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V187*/ meltfptr[186]);
13623 ((meltroutine_ptr_t)/*_._VALROUT___V307*/ meltfptr[306])->tabval[5] = (melt_ptr_t)(/*_._VALCLO___V187*/ meltfptr[186]);
13624
13625 MELT_LOCATION("warmelt-debug.melt:1191:/ initchunk");
13626 /*^touch*/
13627 /*touch:_IROUTVAL_*/
13628 meltgc_touch(/*_._VALROUT___V307*/ meltfptr[306]);
13629
13630 /*putclosurout#28*/
13631 melt_assertmsg("putclosrout#28 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V308*/ meltfptr[307])) == MELTOBMAG_CLOSURE);
13632 melt_assertmsg("putclosrout#28 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V307*/ meltfptr[306])) == MELTOBMAG_ROUTINE);
13633 ((meltclosure_ptr_t)/*_._VALCLO___V308*/ meltfptr[307])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V307*/ meltfptr[306]);
13634
13635 /*touch:_DATACLOSURE_*/
13636 meltgc_touch(/*_._VALCLO___V308*/ meltfptr[307]);
13637
13638 /*putslot*/
13639 melt_assertmsg("checkobj putslot ~dsym_252__DISCR_BUCKET_LONGS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V309*/ meltfptr[308])) == MELTOBMAG_OBJECT);
13640
13641 melt_assertmsg("checkoff putslot ~dsym_252__DISCR_BUCKET_LONGS @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V309*/ meltfptr[308]))));
13642 ((meltobject_ptr_t)(/*_._VALDATA___V309*/ meltfptr[308]))->obj_vartab[1] = (melt_ptr_t)(
13643 /*_._VALSTR___V310*/ meltfptr[309]);
13644
13645 /*touch:_VALUEDATA_*/
13646 meltgc_touch(/*_._VALDATA___V309*/ meltfptr[308]);
13647
13648
13649 melt_dbgtrace_written_object (/*_._VALDATA___V309*/ meltfptr[308], "new static instance");
13650
13651 MELT_LOCATION("warmelt-debug.melt:1228:/ initchunk");
13652 /*^putroutconstnotnull*/
13653 /*putroutconstnotnull*/
13654 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V311*/ meltfptr[310])) == MELTOBMAG_ROUTINE);
13655 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V64*/ meltfptr[63]);
13656 ((meltroutine_ptr_t)/*_._VALROUT___V311*/ meltfptr[310])->tabval[0] = (melt_ptr_t)(/*_._VALDATA___V64*/ meltfptr[63]);
13657
13658 MELT_LOCATION("warmelt-debug.melt:1228:/ initchunk");
13659 /*^putroutconst*/
13660 /*putroutconst*/
13661 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V311*/ meltfptr[310])) == MELTOBMAG_ROUTINE);
13662 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_254__DBGOUT_JSONOBJECT_METHOD#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]));
13663 ((meltroutine_ptr_t)/*_._VALROUT___V311*/ meltfptr[310])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]);
13664
13665 MELT_LOCATION("warmelt-debug.melt:1228:/ initchunk");
13666 /*^putroutconst*/
13667 /*putroutconst*/
13668 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V311*/ meltfptr[310])) == MELTOBMAG_ROUTINE);
13669 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_254__DBGOUT_JSONOBJECT_METHOD#2", NULL != (/*_.ADD2OUT__V19*/ meltfptr[18]));
13670 ((meltroutine_ptr_t)/*_._VALROUT___V311*/ meltfptr[310])->tabval[2] = (melt_ptr_t)(/*_.ADD2OUT__V19*/ meltfptr[18]);
13671
13672 MELT_LOCATION("warmelt-debug.melt:1228:/ initchunk");
13673 /*^putroutconst*/
13674 /*putroutconst*/
13675 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V311*/ meltfptr[310])) == MELTOBMAG_ROUTINE);
13676 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_254__DBGOUT_JSONOBJECT_METHOD#3", NULL != (/*_.CLASS_NAMED__V21*/ meltfptr[20]));
13677 ((meltroutine_ptr_t)/*_._VALROUT___V311*/ meltfptr[310])->tabval[3] = (melt_ptr_t)(/*_.CLASS_NAMED__V21*/ meltfptr[20]);
13678
13679 MELT_LOCATION("warmelt-debug.melt:1228:/ initchunk");
13680 /*^putroutconstnotnull*/
13681 /*putroutconstnotnull*/
13682 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V311*/ meltfptr[310])) == MELTOBMAG_ROUTINE);
13683 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V187*/ meltfptr[186]);
13684 ((meltroutine_ptr_t)/*_._VALROUT___V311*/ meltfptr[310])->tabval[4] = (melt_ptr_t)(/*_._VALCLO___V187*/ meltfptr[186]);
13685
13686 MELT_LOCATION("warmelt-debug.melt:1228:/ initchunk");
13687 /*^touch*/
13688 /*touch:_IROUTVAL_*/
13689 meltgc_touch(/*_._VALROUT___V311*/ meltfptr[310]);
13690
13691 /*putclosurout#29*/
13692 melt_assertmsg("putclosrout#29 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V312*/ meltfptr[311])) == MELTOBMAG_CLOSURE);
13693 melt_assertmsg("putclosrout#29 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V311*/ meltfptr[310])) == MELTOBMAG_ROUTINE);
13694 ((meltclosure_ptr_t)/*_._VALCLO___V312*/ meltfptr[311])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V311*/ meltfptr[310]);
13695
13696 /*touch:_DATACLOSURE_*/
13697 meltgc_touch(/*_._VALCLO___V312*/ meltfptr[311]);
13698
13699 /*putslot*/
13700 melt_assertmsg("checkobj putslot ~dsym_256__DISCR_JSONOBJECT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V313*/ meltfptr[312])) == MELTOBMAG_OBJECT);
13701
13702 melt_assertmsg("checkoff putslot ~dsym_256__DISCR_JSONOBJECT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V313*/ meltfptr[312]))));
13703 ((meltobject_ptr_t)(/*_._VALDATA___V313*/ meltfptr[312]))->obj_vartab[1] = (melt_ptr_t)(
13704 /*_._VALSTR___V314*/ meltfptr[313]);
13705
13706 /*touch:_VALUEDATA_*/
13707 meltgc_touch(/*_._VALDATA___V313*/ meltfptr[312]);
13708
13709
13710 melt_dbgtrace_written_object (/*_._VALDATA___V313*/ meltfptr[312], "new static instance");
13711
13712 MELT_LOCATION("warmelt-debug.melt:1262:/ initchunk");
13713 /*^putroutconstnotnull*/
13714 /*putroutconstnotnull*/
13715 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V315*/ meltfptr[314])) == MELTOBMAG_ROUTINE);
13716 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V64*/ meltfptr[63]);
13717 ((meltroutine_ptr_t)/*_._VALROUT___V315*/ meltfptr[314])->tabval[0] = (melt_ptr_t)(/*_._VALDATA___V64*/ meltfptr[63]);
13718
13719 MELT_LOCATION("warmelt-debug.melt:1262:/ initchunk");
13720 /*^putroutconst*/
13721 /*putroutconst*/
13722 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V315*/ meltfptr[314])) == MELTOBMAG_ROUTINE);
13723 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_258__DBGOUT_ANYOBJECT_METHOD#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]));
13724 ((meltroutine_ptr_t)/*_._VALROUT___V315*/ meltfptr[314])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]);
13725
13726 MELT_LOCATION("warmelt-debug.melt:1262:/ initchunk");
13727 /*^putroutconstnotnull*/
13728 /*putroutconstnotnull*/
13729 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V315*/ meltfptr[314])) == MELTOBMAG_ROUTINE);
13730 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V213*/ meltfptr[212]);
13731 ((meltroutine_ptr_t)/*_._VALROUT___V315*/ meltfptr[314])->tabval[2] = (melt_ptr_t)(/*_._VALCLO___V213*/ meltfptr[212]);
13732
13733 MELT_LOCATION("warmelt-debug.melt:1262:/ initchunk");
13734 /*^touch*/
13735 /*touch:_IROUTVAL_*/
13736 meltgc_touch(/*_._VALROUT___V315*/ meltfptr[314]);
13737
13738 /*putclosurout#30*/
13739 melt_assertmsg("putclosrout#30 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V316*/ meltfptr[315])) == MELTOBMAG_CLOSURE);
13740 melt_assertmsg("putclosrout#30 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V315*/ meltfptr[314])) == MELTOBMAG_ROUTINE);
13741 ((meltclosure_ptr_t)/*_._VALCLO___V316*/ meltfptr[315])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V315*/ meltfptr[314]);
13742
13743 /*touch:_DATACLOSURE_*/
13744 meltgc_touch(/*_._VALCLO___V316*/ meltfptr[315]);
13745
13746 MELT_LOCATION("warmelt-debug.melt:1287:/ initchunk");
13747 /*^putroutconstnotnull*/
13748 /*putroutconstnotnull*/
13749 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V317*/ meltfptr[316])) == MELTOBMAG_ROUTINE);
13750 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V64*/ meltfptr[63]);
13751 ((meltroutine_ptr_t)/*_._VALROUT___V317*/ meltfptr[316])->tabval[0] = (melt_ptr_t)(/*_._VALDATA___V64*/ meltfptr[63]);
13752
13753 MELT_LOCATION("warmelt-debug.melt:1287:/ initchunk");
13754 /*^putroutconst*/
13755 /*putroutconst*/
13756 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V317*/ meltfptr[316])) == MELTOBMAG_ROUTINE);
13757 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_260__DBGOUT_ANYRECV_METHOD#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]));
13758 ((meltroutine_ptr_t)/*_._VALROUT___V317*/ meltfptr[316])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]);
13759
13760 MELT_LOCATION("warmelt-debug.melt:1287:/ initchunk");
13761 /*^putroutconst*/
13762 /*putroutconst*/
13763 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V317*/ meltfptr[316])) == MELTOBMAG_ROUTINE);
13764 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_260__DBGOUT_ANYRECV_METHOD#2", NULL != (/*_.CLASS_NAMED__V21*/ meltfptr[20]));
13765 ((meltroutine_ptr_t)/*_._VALROUT___V317*/ meltfptr[316])->tabval[2] = (melt_ptr_t)(/*_.CLASS_NAMED__V21*/ meltfptr[20]);
13766
13767 MELT_LOCATION("warmelt-debug.melt:1287:/ initchunk");
13768 /*^touch*/
13769 /*touch:_IROUTVAL_*/
13770 meltgc_touch(/*_._VALROUT___V317*/ meltfptr[316]);
13771
13772 /*putclosurout#31*/
13773 melt_assertmsg("putclosrout#31 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V318*/ meltfptr[317])) == MELTOBMAG_CLOSURE);
13774 melt_assertmsg("putclosrout#31 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V317*/ meltfptr[316])) == MELTOBMAG_ROUTINE);
13775 ((meltclosure_ptr_t)/*_._VALCLO___V318*/ meltfptr[317])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V317*/ meltfptr[316]);
13776
13777 /*touch:_DATACLOSURE_*/
13778 meltgc_touch(/*_._VALCLO___V318*/ meltfptr[317]);
13779
13780 /*putslot*/
13781 melt_assertmsg("checkobj putslot ~dsym_262__DISCR_ANY_RECEIVER @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V319*/ meltfptr[318])) == MELTOBMAG_OBJECT);
13782
13783 melt_assertmsg("checkoff putslot ~dsym_262__DISCR_ANY_RECEIVER @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V319*/ meltfptr[318]))));
13784 ((meltobject_ptr_t)(/*_._VALDATA___V319*/ meltfptr[318]))->obj_vartab[1] = (melt_ptr_t)(
13785 /*_._VALSTR___V320*/ meltfptr[319]);
13786
13787 /*touch:_VALUEDATA_*/
13788 meltgc_touch(/*_._VALDATA___V319*/ meltfptr[318]);
13789
13790
13791 melt_dbgtrace_written_object (/*_._VALDATA___V319*/ meltfptr[318], "new static instance");
13792
13793 MELT_LOCATION("warmelt-debug.melt:1298:/ initchunk");
13794 /*^putroutconstnotnull*/
13795 /*putroutconstnotnull*/
13796 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V321*/ meltfptr[320])) == MELTOBMAG_ROUTINE);
13797 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V64*/ meltfptr[63]);
13798 ((meltroutine_ptr_t)/*_._VALROUT___V321*/ meltfptr[320])->tabval[0] = (melt_ptr_t)(/*_._VALDATA___V64*/ meltfptr[63]);
13799
13800 MELT_LOCATION("warmelt-debug.melt:1298:/ initchunk");
13801 /*^putroutconst*/
13802 /*putroutconst*/
13803 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V321*/ meltfptr[320])) == MELTOBMAG_ROUTINE);
13804 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_264__DBGOUTAGAIN_ANYOBJECT_METHOD#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]));
13805 ((meltroutine_ptr_t)/*_._VALROUT___V321*/ meltfptr[320])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]);
13806
13807 MELT_LOCATION("warmelt-debug.melt:1298:/ initchunk");
13808 /*^touch*/
13809 /*touch:_IROUTVAL_*/
13810 meltgc_touch(/*_._VALROUT___V321*/ meltfptr[320]);
13811
13812 /*putclosurout#32*/
13813 melt_assertmsg("putclosrout#32 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V322*/ meltfptr[321])) == MELTOBMAG_CLOSURE);
13814 melt_assertmsg("putclosrout#32 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V321*/ meltfptr[320])) == MELTOBMAG_ROUTINE);
13815 ((meltclosure_ptr_t)/*_._VALCLO___V322*/ meltfptr[321])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V321*/ meltfptr[320]);
13816
13817 /*touch:_DATACLOSURE_*/
13818 meltgc_touch(/*_._VALCLO___V322*/ meltfptr[321]);
13819
13820 MELT_LOCATION("warmelt-debug.melt:1316:/ initchunk");
13821 /*^putroutconstnotnull*/
13822 /*putroutconstnotnull*/
13823 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V323*/ meltfptr[322])) == MELTOBMAG_ROUTINE);
13824 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V64*/ meltfptr[63]);
13825 ((meltroutine_ptr_t)/*_._VALROUT___V323*/ meltfptr[322])->tabval[0] = (melt_ptr_t)(/*_._VALDATA___V64*/ meltfptr[63]);
13826
13827 MELT_LOCATION("warmelt-debug.melt:1316:/ initchunk");
13828 /*^putroutconst*/
13829 /*putroutconst*/
13830 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V323*/ meltfptr[322])) == MELTOBMAG_ROUTINE);
13831 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_266__DBGOUT_NAMEDOBJECT_METHOD#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]));
13832 ((meltroutine_ptr_t)/*_._VALROUT___V323*/ meltfptr[322])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]);
13833
13834 MELT_LOCATION("warmelt-debug.melt:1316:/ initchunk");
13835 /*^putroutconst*/
13836 /*putroutconst*/
13837 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V323*/ meltfptr[322])) == MELTOBMAG_ROUTINE);
13838 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_266__DBGOUT_NAMEDOBJECT_METHOD#2", NULL != (/*_.CLASS_NAMED__V21*/ meltfptr[20]));
13839 ((meltroutine_ptr_t)/*_._VALROUT___V323*/ meltfptr[322])->tabval[2] = (melt_ptr_t)(/*_.CLASS_NAMED__V21*/ meltfptr[20]);
13840
13841 MELT_LOCATION("warmelt-debug.melt:1316:/ initchunk");
13842 /*^putroutconstnotnull*/
13843 /*putroutconstnotnull*/
13844 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V323*/ meltfptr[322])) == MELTOBMAG_ROUTINE);
13845 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V187*/ meltfptr[186]);
13846 ((meltroutine_ptr_t)/*_._VALROUT___V323*/ meltfptr[322])->tabval[3] = (melt_ptr_t)(/*_._VALCLO___V187*/ meltfptr[186]);
13847
13848 MELT_LOCATION("warmelt-debug.melt:1316:/ initchunk");
13849 /*^putroutconstnotnull*/
13850 /*putroutconstnotnull*/
13851 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V323*/ meltfptr[322])) == MELTOBMAG_ROUTINE);
13852 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V213*/ meltfptr[212]);
13853 ((meltroutine_ptr_t)/*_._VALROUT___V323*/ meltfptr[322])->tabval[4] = (melt_ptr_t)(/*_._VALCLO___V213*/ meltfptr[212]);
13854
13855 MELT_LOCATION("warmelt-debug.melt:1316:/ initchunk");
13856 /*^touch*/
13857 /*touch:_IROUTVAL_*/
13858 meltgc_touch(/*_._VALROUT___V323*/ meltfptr[322]);
13859
13860 /*putclosurout#33*/
13861 melt_assertmsg("putclosrout#33 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V324*/ meltfptr[323])) == MELTOBMAG_CLOSURE);
13862 melt_assertmsg("putclosrout#33 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V323*/ meltfptr[322])) == MELTOBMAG_ROUTINE);
13863 ((meltclosure_ptr_t)/*_._VALCLO___V324*/ meltfptr[323])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V323*/ meltfptr[322]);
13864
13865 /*touch:_DATACLOSURE_*/
13866 meltgc_touch(/*_._VALCLO___V324*/ meltfptr[323]);
13867
13868 /*putslot*/
13869 melt_assertmsg("checkobj putslot ~dsym_268__DBGOUT_NAMEDOBJECT_METHOD @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V325*/ meltfptr[324])) == MELTOBMAG_OBJECT);
13870
13871 melt_assertmsg("checkoff putslot ~dsym_268__DBGOUT_NAMEDOBJECT_METHOD @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V325*/ meltfptr[324]))));
13872 ((meltobject_ptr_t)(/*_._VALDATA___V325*/ meltfptr[324]))->obj_vartab[1] = (melt_ptr_t)(
13873 /*_._VALSTR___V326*/ meltfptr[325]);
13874
13875 /*touch:_VALUEDATA_*/
13876 meltgc_touch(/*_._VALDATA___V325*/ meltfptr[324]);
13877
13878
13879 melt_dbgtrace_written_object (/*_._VALDATA___V325*/ meltfptr[324], "new static instance");
13880
13881 MELT_LOCATION("warmelt-debug.melt:1353:/ initchunk");
13882 /*^putroutconstnotnull*/
13883 /*putroutconstnotnull*/
13884 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V327*/ meltfptr[326])) == MELTOBMAG_ROUTINE);
13885 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V64*/ meltfptr[63]);
13886 ((meltroutine_ptr_t)/*_._VALROUT___V327*/ meltfptr[326])->tabval[0] = (melt_ptr_t)(/*_._VALDATA___V64*/ meltfptr[63]);
13887
13888 MELT_LOCATION("warmelt-debug.melt:1353:/ initchunk");
13889 /*^putroutconst*/
13890 /*putroutconst*/
13891 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V327*/ meltfptr[326])) == MELTOBMAG_ROUTINE);
13892 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_270__DBGOUTAGAIN_NAMEDOBJECT_METHOD#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]));
13893 ((meltroutine_ptr_t)/*_._VALROUT___V327*/ meltfptr[326])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]);
13894
13895 MELT_LOCATION("warmelt-debug.melt:1353:/ initchunk");
13896 /*^putroutconst*/
13897 /*putroutconst*/
13898 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V327*/ meltfptr[326])) == MELTOBMAG_ROUTINE);
13899 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_270__DBGOUTAGAIN_NAMEDOBJECT_METHOD#2", NULL != (/*_.CLASS_NAMED__V21*/ meltfptr[20]));
13900 ((meltroutine_ptr_t)/*_._VALROUT___V327*/ meltfptr[326])->tabval[2] = (melt_ptr_t)(/*_.CLASS_NAMED__V21*/ meltfptr[20]);
13901
13902 MELT_LOCATION("warmelt-debug.melt:1353:/ initchunk");
13903 /*^touch*/
13904 /*touch:_IROUTVAL_*/
13905 meltgc_touch(/*_._VALROUT___V327*/ meltfptr[326]);
13906
13907
13908 #undef meltfram__
13909 } /*end of meltmod__WARMELTmiDEBUG__initialmeltchunk_4*/
13910
13911
13912
13913 void meltmod__WARMELTmiDEBUG__initialmeltchunk_5 (meltinitial_frame_t* meltframptr__, char meltpredefinited[])
13914 {
13915 #define meltfram__ (*meltframptr__)
13916 #undef meltcallcount
13917 #define meltcallcount 0L
13918 (void) meltpredefinited;
13919 /*putclosurout#34*/
13920 melt_assertmsg("putclosrout#34 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V328*/ meltfptr[327])) == MELTOBMAG_CLOSURE);
13921 melt_assertmsg("putclosrout#34 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V327*/ meltfptr[326])) == MELTOBMAG_ROUTINE);
13922 ((meltclosure_ptr_t)/*_._VALCLO___V328*/ meltfptr[327])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V327*/ meltfptr[326]);
13923
13924 /*touch:_DATACLOSURE_*/
13925 meltgc_touch(/*_._VALCLO___V328*/ meltfptr[327]);
13926
13927 MELT_LOCATION("warmelt-debug.melt:1371:/ initchunk");
13928 /*^putroutconstnotnull*/
13929 /*putroutconstnotnull*/
13930 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V329*/ meltfptr[328])) == MELTOBMAG_ROUTINE);
13931 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V64*/ meltfptr[63]);
13932 ((meltroutine_ptr_t)/*_._VALROUT___V329*/ meltfptr[328])->tabval[0] = (melt_ptr_t)(/*_._VALDATA___V64*/ meltfptr[63]);
13933
13934 MELT_LOCATION("warmelt-debug.melt:1371:/ initchunk");
13935 /*^putroutconst*/
13936 /*putroutconst*/
13937 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V329*/ meltfptr[328])) == MELTOBMAG_ROUTINE);
13938 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_272__DBGOUTAGAIN_SYMBOL_METHOD#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]));
13939 ((meltroutine_ptr_t)/*_._VALROUT___V329*/ meltfptr[328])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]);
13940
13941 MELT_LOCATION("warmelt-debug.melt:1371:/ initchunk");
13942 /*^putroutconst*/
13943 /*putroutconst*/
13944 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V329*/ meltfptr[328])) == MELTOBMAG_ROUTINE);
13945 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_272__DBGOUTAGAIN_SYMBOL_METHOD#2", NULL != (/*_.CLASS_SYMBOL__V49*/ meltfptr[48]));
13946 ((meltroutine_ptr_t)/*_._VALROUT___V329*/ meltfptr[328])->tabval[2] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V49*/ meltfptr[48]);
13947
13948 MELT_LOCATION("warmelt-debug.melt:1371:/ initchunk");
13949 /*^touch*/
13950 /*touch:_IROUTVAL_*/
13951 meltgc_touch(/*_._VALROUT___V329*/ meltfptr[328]);
13952
13953 /*putclosurout#35*/
13954 melt_assertmsg("putclosrout#35 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V330*/ meltfptr[329])) == MELTOBMAG_CLOSURE);
13955 melt_assertmsg("putclosrout#35 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V329*/ meltfptr[328])) == MELTOBMAG_ROUTINE);
13956 ((meltclosure_ptr_t)/*_._VALCLO___V330*/ meltfptr[329])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V329*/ meltfptr[328]);
13957
13958 /*touch:_DATACLOSURE_*/
13959 meltgc_touch(/*_._VALCLO___V330*/ meltfptr[329]);
13960
13961 /*putslot*/
13962 melt_assertmsg("checkobj putslot ~dsym_274__CLASS_SYMBOL @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V331*/ meltfptr[330])) == MELTOBMAG_OBJECT);
13963
13964 melt_assertmsg("checkoff putslot ~dsym_274__CLASS_SYMBOL @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V331*/ meltfptr[330]))));
13965 ((meltobject_ptr_t)(/*_._VALDATA___V331*/ meltfptr[330]))->obj_vartab[1] = (melt_ptr_t)(
13966 /*_._VALSTR___V332*/ meltfptr[331]);
13967
13968 /*touch:_VALUEDATA_*/
13969 meltgc_touch(/*_._VALDATA___V331*/ meltfptr[330]);
13970
13971
13972 melt_dbgtrace_written_object (/*_._VALDATA___V331*/ meltfptr[330], "new static instance");
13973
13974 MELT_LOCATION("warmelt-debug.melt:1389:/ initchunk");
13975 /*^putroutconstnotnull*/
13976 /*putroutconstnotnull*/
13977 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V333*/ meltfptr[332])) == MELTOBMAG_ROUTINE);
13978 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V64*/ meltfptr[63]);
13979 ((meltroutine_ptr_t)/*_._VALROUT___V333*/ meltfptr[332])->tabval[0] = (melt_ptr_t)(/*_._VALDATA___V64*/ meltfptr[63]);
13980
13981 MELT_LOCATION("warmelt-debug.melt:1389:/ initchunk");
13982 /*^putroutconst*/
13983 /*putroutconst*/
13984 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V333*/ meltfptr[332])) == MELTOBMAG_ROUTINE);
13985 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_276__DBGOUT_SYMBOL_METHOD#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]));
13986 ((meltroutine_ptr_t)/*_._VALROUT___V333*/ meltfptr[332])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]);
13987
13988 MELT_LOCATION("warmelt-debug.melt:1389:/ initchunk");
13989 /*^putroutconst*/
13990 /*putroutconst*/
13991 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V333*/ meltfptr[332])) == MELTOBMAG_ROUTINE);
13992 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_276__DBGOUT_SYMBOL_METHOD#2", NULL != (/*_.CLASS_SYMBOL__V49*/ meltfptr[48]));
13993 ((meltroutine_ptr_t)/*_._VALROUT___V333*/ meltfptr[332])->tabval[2] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V49*/ meltfptr[48]);
13994
13995 MELT_LOCATION("warmelt-debug.melt:1389:/ initchunk");
13996 /*^putroutconstnotnull*/
13997 /*putroutconstnotnull*/
13998 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V333*/ meltfptr[332])) == MELTOBMAG_ROUTINE);
13999 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V324*/ meltfptr[323]);
14000 ((meltroutine_ptr_t)/*_._VALROUT___V333*/ meltfptr[332])->tabval[3] = (melt_ptr_t)(/*_._VALCLO___V324*/ meltfptr[323]);
14001
14002 MELT_LOCATION("warmelt-debug.melt:1389:/ initchunk");
14003 /*^putroutconstnotnull*/
14004 /*putroutconstnotnull*/
14005 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V333*/ meltfptr[332])) == MELTOBMAG_ROUTINE);
14006 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V330*/ meltfptr[329]);
14007 ((meltroutine_ptr_t)/*_._VALROUT___V333*/ meltfptr[332])->tabval[4] = (melt_ptr_t)(/*_._VALCLO___V330*/ meltfptr[329]);
14008
14009 MELT_LOCATION("warmelt-debug.melt:1389:/ initchunk");
14010 /*^touch*/
14011 /*touch:_IROUTVAL_*/
14012 meltgc_touch(/*_._VALROUT___V333*/ meltfptr[332]);
14013
14014 /*putclosurout#36*/
14015 melt_assertmsg("putclosrout#36 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V334*/ meltfptr[333])) == MELTOBMAG_CLOSURE);
14016 melt_assertmsg("putclosrout#36 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V333*/ meltfptr[332])) == MELTOBMAG_ROUTINE);
14017 ((meltclosure_ptr_t)/*_._VALCLO___V334*/ meltfptr[333])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V333*/ meltfptr[332]);
14018
14019 /*touch:_DATACLOSURE_*/
14020 meltgc_touch(/*_._VALCLO___V334*/ meltfptr[333]);
14021
14022 MELT_LOCATION("warmelt-debug.melt:1399:/ initchunk");
14023 /*^putroutconstnotnull*/
14024 /*putroutconstnotnull*/
14025 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V335*/ meltfptr[334])) == MELTOBMAG_ROUTINE);
14026 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V64*/ meltfptr[63]);
14027 ((meltroutine_ptr_t)/*_._VALROUT___V335*/ meltfptr[334])->tabval[0] = (melt_ptr_t)(/*_._VALDATA___V64*/ meltfptr[63]);
14028
14029 MELT_LOCATION("warmelt-debug.melt:1399:/ initchunk");
14030 /*^putroutconst*/
14031 /*putroutconst*/
14032 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V335*/ meltfptr[334])) == MELTOBMAG_ROUTINE);
14033 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_278__DBGOUT_CLASS_METHOD#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]));
14034 ((meltroutine_ptr_t)/*_._VALROUT___V335*/ meltfptr[334])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]);
14035
14036 MELT_LOCATION("warmelt-debug.melt:1399:/ initchunk");
14037 /*^putroutconst*/
14038 /*putroutconst*/
14039 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V335*/ meltfptr[334])) == MELTOBMAG_ROUTINE);
14040 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_278__DBGOUT_CLASS_METHOD#2", NULL != (/*_.CLASS_CLASS__V50*/ meltfptr[49]));
14041 ((meltroutine_ptr_t)/*_._VALROUT___V335*/ meltfptr[334])->tabval[2] = (melt_ptr_t)(/*_.CLASS_CLASS__V50*/ meltfptr[49]);
14042
14043 MELT_LOCATION("warmelt-debug.melt:1399:/ initchunk");
14044 /*^putroutconstnotnull*/
14045 /*putroutconstnotnull*/
14046 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V335*/ meltfptr[334])) == MELTOBMAG_ROUTINE);
14047 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V324*/ meltfptr[323]);
14048 ((meltroutine_ptr_t)/*_._VALROUT___V335*/ meltfptr[334])->tabval[3] = (melt_ptr_t)(/*_._VALCLO___V324*/ meltfptr[323]);
14049
14050 MELT_LOCATION("warmelt-debug.melt:1399:/ initchunk");
14051 /*^putroutconstnotnull*/
14052 /*putroutconstnotnull*/
14053 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V335*/ meltfptr[334])) == MELTOBMAG_ROUTINE);
14054 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V328*/ meltfptr[327]);
14055 ((meltroutine_ptr_t)/*_._VALROUT___V335*/ meltfptr[334])->tabval[4] = (melt_ptr_t)(/*_._VALCLO___V328*/ meltfptr[327]);
14056
14057 MELT_LOCATION("warmelt-debug.melt:1399:/ initchunk");
14058 /*^touch*/
14059 /*touch:_IROUTVAL_*/
14060 meltgc_touch(/*_._VALROUT___V335*/ meltfptr[334]);
14061
14062 /*putclosurout#37*/
14063 melt_assertmsg("putclosrout#37 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V336*/ meltfptr[335])) == MELTOBMAG_CLOSURE);
14064 melt_assertmsg("putclosrout#37 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V335*/ meltfptr[334])) == MELTOBMAG_ROUTINE);
14065 ((meltclosure_ptr_t)/*_._VALCLO___V336*/ meltfptr[335])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V335*/ meltfptr[334]);
14066
14067 /*touch:_DATACLOSURE_*/
14068 meltgc_touch(/*_._VALCLO___V336*/ meltfptr[335]);
14069
14070 /*putslot*/
14071 melt_assertmsg("checkobj putslot ~dsym_280__CLASS_CLASS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V337*/ meltfptr[336])) == MELTOBMAG_OBJECT);
14072
14073 melt_assertmsg("checkoff putslot ~dsym_280__CLASS_CLASS @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V337*/ meltfptr[336]))));
14074 ((meltobject_ptr_t)(/*_._VALDATA___V337*/ meltfptr[336]))->obj_vartab[1] = (melt_ptr_t)(
14075 /*_._VALSTR___V338*/ meltfptr[337]);
14076
14077 /*touch:_VALUEDATA_*/
14078 meltgc_touch(/*_._VALDATA___V337*/ meltfptr[336]);
14079
14080
14081 melt_dbgtrace_written_object (/*_._VALDATA___V337*/ meltfptr[336], "new static instance");
14082
14083 MELT_LOCATION("warmelt-debug.melt:1409:/ initchunk");
14084 /*^putroutconstnotnull*/
14085 /*putroutconstnotnull*/
14086 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V339*/ meltfptr[338])) == MELTOBMAG_ROUTINE);
14087 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V64*/ meltfptr[63]);
14088 ((meltroutine_ptr_t)/*_._VALROUT___V339*/ meltfptr[338])->tabval[0] = (melt_ptr_t)(/*_._VALDATA___V64*/ meltfptr[63]);
14089
14090 MELT_LOCATION("warmelt-debug.melt:1409:/ initchunk");
14091 /*^putroutconst*/
14092 /*putroutconst*/
14093 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V339*/ meltfptr[338])) == MELTOBMAG_ROUTINE);
14094 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_282__DBGOUTAGAIN_KEYWORD_METHOD#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]));
14095 ((meltroutine_ptr_t)/*_._VALROUT___V339*/ meltfptr[338])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]);
14096
14097 MELT_LOCATION("warmelt-debug.melt:1409:/ initchunk");
14098 /*^putroutconst*/
14099 /*putroutconst*/
14100 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V339*/ meltfptr[338])) == MELTOBMAG_ROUTINE);
14101 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_282__DBGOUTAGAIN_KEYWORD_METHOD#2", NULL != (/*_.CLASS_KEYWORD__V51*/ meltfptr[50]));
14102 ((meltroutine_ptr_t)/*_._VALROUT___V339*/ meltfptr[338])->tabval[2] = (melt_ptr_t)(/*_.CLASS_KEYWORD__V51*/ meltfptr[50]);
14103
14104 MELT_LOCATION("warmelt-debug.melt:1409:/ initchunk");
14105 /*^touch*/
14106 /*touch:_IROUTVAL_*/
14107 meltgc_touch(/*_._VALROUT___V339*/ meltfptr[338]);
14108
14109 /*putclosurout#38*/
14110 melt_assertmsg("putclosrout#38 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V340*/ meltfptr[339])) == MELTOBMAG_CLOSURE);
14111 melt_assertmsg("putclosrout#38 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V339*/ meltfptr[338])) == MELTOBMAG_ROUTINE);
14112 ((meltclosure_ptr_t)/*_._VALCLO___V340*/ meltfptr[339])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V339*/ meltfptr[338]);
14113
14114 /*touch:_DATACLOSURE_*/
14115 meltgc_touch(/*_._VALCLO___V340*/ meltfptr[339]);
14116
14117 /*putslot*/
14118 melt_assertmsg("checkobj putslot ~dsym_284__CLASS_KEYWORD @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V341*/ meltfptr[340])) == MELTOBMAG_OBJECT);
14119
14120 melt_assertmsg("checkoff putslot ~dsym_284__CLASS_KEYWORD @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V341*/ meltfptr[340]))));
14121 ((meltobject_ptr_t)(/*_._VALDATA___V341*/ meltfptr[340]))->obj_vartab[1] = (melt_ptr_t)(
14122 /*_._VALSTR___V342*/ meltfptr[341]);
14123
14124 /*touch:_VALUEDATA_*/
14125 meltgc_touch(/*_._VALDATA___V341*/ meltfptr[340]);
14126
14127
14128 melt_dbgtrace_written_object (/*_._VALDATA___V341*/ meltfptr[340], "new static instance");
14129
14130 MELT_LOCATION("warmelt-debug.melt:1422:/ initchunk");
14131 /*^putroutconstnotnull*/
14132 /*putroutconstnotnull*/
14133 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V343*/ meltfptr[342])) == MELTOBMAG_ROUTINE);
14134 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V64*/ meltfptr[63]);
14135 ((meltroutine_ptr_t)/*_._VALROUT___V343*/ meltfptr[342])->tabval[0] = (melt_ptr_t)(/*_._VALDATA___V64*/ meltfptr[63]);
14136
14137 MELT_LOCATION("warmelt-debug.melt:1422:/ initchunk");
14138 /*^putroutconst*/
14139 /*putroutconst*/
14140 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V343*/ meltfptr[342])) == MELTOBMAG_ROUTINE);
14141 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_286__DBGOUT_KEYWORD_METHOD#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]));
14142 ((meltroutine_ptr_t)/*_._VALROUT___V343*/ meltfptr[342])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]);
14143
14144 MELT_LOCATION("warmelt-debug.melt:1422:/ initchunk");
14145 /*^putroutconst*/
14146 /*putroutconst*/
14147 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V343*/ meltfptr[342])) == MELTOBMAG_ROUTINE);
14148 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_286__DBGOUT_KEYWORD_METHOD#2", NULL != (/*_.CLASS_KEYWORD__V51*/ meltfptr[50]));
14149 ((meltroutine_ptr_t)/*_._VALROUT___V343*/ meltfptr[342])->tabval[2] = (melt_ptr_t)(/*_.CLASS_KEYWORD__V51*/ meltfptr[50]);
14150
14151 MELT_LOCATION("warmelt-debug.melt:1422:/ initchunk");
14152 /*^putroutconstnotnull*/
14153 /*putroutconstnotnull*/
14154 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V343*/ meltfptr[342])) == MELTOBMAG_ROUTINE);
14155 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V324*/ meltfptr[323]);
14156 ((meltroutine_ptr_t)/*_._VALROUT___V343*/ meltfptr[342])->tabval[3] = (melt_ptr_t)(/*_._VALCLO___V324*/ meltfptr[323]);
14157
14158 MELT_LOCATION("warmelt-debug.melt:1422:/ initchunk");
14159 /*^putroutconstnotnull*/
14160 /*putroutconstnotnull*/
14161 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V343*/ meltfptr[342])) == MELTOBMAG_ROUTINE);
14162 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V340*/ meltfptr[339]);
14163 ((meltroutine_ptr_t)/*_._VALROUT___V343*/ meltfptr[342])->tabval[4] = (melt_ptr_t)(/*_._VALCLO___V340*/ meltfptr[339]);
14164
14165 MELT_LOCATION("warmelt-debug.melt:1422:/ initchunk");
14166 /*^touch*/
14167 /*touch:_IROUTVAL_*/
14168 meltgc_touch(/*_._VALROUT___V343*/ meltfptr[342]);
14169
14170 /*putclosurout#39*/
14171 melt_assertmsg("putclosrout#39 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V344*/ meltfptr[343])) == MELTOBMAG_CLOSURE);
14172 melt_assertmsg("putclosrout#39 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V343*/ meltfptr[342])) == MELTOBMAG_ROUTINE);
14173 ((meltclosure_ptr_t)/*_._VALCLO___V344*/ meltfptr[343])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V343*/ meltfptr[342]);
14174
14175 /*touch:_DATACLOSURE_*/
14176 meltgc_touch(/*_._VALCLO___V344*/ meltfptr[343]);
14177
14178 /*putclosurout#40*/
14179 melt_assertmsg("putclosrout#40 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V346*/ meltfptr[345])) == MELTOBMAG_CLOSURE);
14180 melt_assertmsg("putclosrout#40 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V345*/ meltfptr[344])) == MELTOBMAG_ROUTINE);
14181 ((meltclosure_ptr_t)/*_._VALCLO___V346*/ meltfptr[345])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V345*/ meltfptr[344]);
14182
14183 /*touch:_DATACLOSURE_*/
14184 meltgc_touch(/*_._VALCLO___V346*/ meltfptr[345]);
14185
14186 /*putslot*/
14187 melt_assertmsg("checkobj putslot ~dsym_290__CLASS_CLONED_SYMBOL @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V347*/ meltfptr[346])) == MELTOBMAG_OBJECT);
14188
14189 melt_assertmsg("checkoff putslot ~dsym_290__CLASS_CLONED_SYMBOL @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V347*/ meltfptr[346]))));
14190 ((meltobject_ptr_t)(/*_._VALDATA___V347*/ meltfptr[346]))->obj_vartab[1] = (melt_ptr_t)(
14191 /*_._VALSTR___V348*/ meltfptr[347]);
14192
14193 /*touch:_VALUEDATA_*/
14194 meltgc_touch(/*_._VALDATA___V347*/ meltfptr[346]);
14195
14196
14197 melt_dbgtrace_written_object (/*_._VALDATA___V347*/ meltfptr[346], "new static instance");
14198
14199 MELT_LOCATION("warmelt-debug.melt:1447:/ initchunk");
14200 /*^putroutconstnotnull*/
14201 /*putroutconstnotnull*/
14202 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V349*/ meltfptr[348])) == MELTOBMAG_ROUTINE);
14203 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V64*/ meltfptr[63]);
14204 ((meltroutine_ptr_t)/*_._VALROUT___V349*/ meltfptr[348])->tabval[0] = (melt_ptr_t)(/*_._VALDATA___V64*/ meltfptr[63]);
14205
14206 MELT_LOCATION("warmelt-debug.melt:1447:/ initchunk");
14207 /*^putroutconst*/
14208 /*putroutconst*/
14209 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V349*/ meltfptr[348])) == MELTOBMAG_ROUTINE);
14210 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_292__DBGOUT_CLONED_SYMBOL_METHOD#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]));
14211 ((meltroutine_ptr_t)/*_._VALROUT___V349*/ meltfptr[348])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]);
14212
14213 MELT_LOCATION("warmelt-debug.melt:1447:/ initchunk");
14214 /*^putroutconst*/
14215 /*putroutconst*/
14216 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V349*/ meltfptr[348])) == MELTOBMAG_ROUTINE);
14217 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_292__DBGOUT_CLONED_SYMBOL_METHOD#2", NULL != (/*_.CLASS_CLONED_SYMBOL__V52*/ meltfptr[51]));
14218 ((meltroutine_ptr_t)/*_._VALROUT___V349*/ meltfptr[348])->tabval[2] = (melt_ptr_t)(/*_.CLASS_CLONED_SYMBOL__V52*/ meltfptr[51]);
14219
14220 MELT_LOCATION("warmelt-debug.melt:1447:/ initchunk");
14221 /*^putroutconstnotnull*/
14222 /*putroutconstnotnull*/
14223 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V349*/ meltfptr[348])) == MELTOBMAG_ROUTINE);
14224 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V324*/ meltfptr[323]);
14225 ((meltroutine_ptr_t)/*_._VALROUT___V349*/ meltfptr[348])->tabval[3] = (melt_ptr_t)(/*_._VALCLO___V324*/ meltfptr[323]);
14226
14227 MELT_LOCATION("warmelt-debug.melt:1447:/ initchunk");
14228 /*^putroutconstnotnull*/
14229 /*putroutconstnotnull*/
14230 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V349*/ meltfptr[348])) == MELTOBMAG_ROUTINE);
14231 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V346*/ meltfptr[345]);
14232 ((meltroutine_ptr_t)/*_._VALROUT___V349*/ meltfptr[348])->tabval[4] = (melt_ptr_t)(/*_._VALCLO___V346*/ meltfptr[345]);
14233
14234 MELT_LOCATION("warmelt-debug.melt:1447:/ initchunk");
14235 /*^touch*/
14236 /*touch:_IROUTVAL_*/
14237 meltgc_touch(/*_._VALROUT___V349*/ meltfptr[348]);
14238
14239 /*putclosurout#41*/
14240 melt_assertmsg("putclosrout#41 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V350*/ meltfptr[349])) == MELTOBMAG_CLOSURE);
14241 melt_assertmsg("putclosrout#41 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V349*/ meltfptr[348])) == MELTOBMAG_ROUTINE);
14242 ((meltclosure_ptr_t)/*_._VALCLO___V350*/ meltfptr[349])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V349*/ meltfptr[348]);
14243
14244 /*touch:_DATACLOSURE_*/
14245 meltgc_touch(/*_._VALCLO___V350*/ meltfptr[349]);
14246
14247 MELT_LOCATION("warmelt-debug.melt:1458:/ initchunk");
14248 /*^putroutconstnotnull*/
14249 /*putroutconstnotnull*/
14250 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V351*/ meltfptr[350])) == MELTOBMAG_ROUTINE);
14251 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V64*/ meltfptr[63]);
14252 ((meltroutine_ptr_t)/*_._VALROUT___V351*/ meltfptr[350])->tabval[0] = (melt_ptr_t)(/*_._VALDATA___V64*/ meltfptr[63]);
14253
14254 MELT_LOCATION("warmelt-debug.melt:1458:/ initchunk");
14255 /*^putroutconst*/
14256 /*putroutconst*/
14257 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V351*/ meltfptr[350])) == MELTOBMAG_ROUTINE);
14258 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_294__DBGOUT_ENVIRONMENT_METHOD#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]));
14259 ((meltroutine_ptr_t)/*_._VALROUT___V351*/ meltfptr[350])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]);
14260
14261 MELT_LOCATION("warmelt-debug.melt:1458:/ initchunk");
14262 /*^putroutconst*/
14263 /*putroutconst*/
14264 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V351*/ meltfptr[350])) == MELTOBMAG_ROUTINE);
14265 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_294__DBGOUT_ENVIRONMENT_METHOD#2", NULL != (/*_.CLASS_ENVIRONMENT__V53*/ meltfptr[52]));
14266 ((meltroutine_ptr_t)/*_._VALROUT___V351*/ meltfptr[350])->tabval[2] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V53*/ meltfptr[52]);
14267
14268 MELT_LOCATION("warmelt-debug.melt:1458:/ initchunk");
14269 /*^putroutconst*/
14270 /*putroutconst*/
14271 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V351*/ meltfptr[350])) == MELTOBMAG_ROUTINE);
14272 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_294__DBGOUT_ENVIRONMENT_METHOD#3", NULL != (/*_.ADD2OUT__V19*/ meltfptr[18]));
14273 ((meltroutine_ptr_t)/*_._VALROUT___V351*/ meltfptr[350])->tabval[3] = (melt_ptr_t)(/*_.ADD2OUT__V19*/ meltfptr[18]);
14274
14275 MELT_LOCATION("warmelt-debug.melt:1458:/ initchunk");
14276 /*^putroutconst*/
14277 /*putroutconst*/
14278 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V351*/ meltfptr[350])) == MELTOBMAG_ROUTINE);
14279 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_294__DBGOUT_ENVIRONMENT_METHOD#4", NULL != (/*_.ENV_PREV__V54*/ meltfptr[53]));
14280 ((meltroutine_ptr_t)/*_._VALROUT___V351*/ meltfptr[350])->tabval[4] = (melt_ptr_t)(/*_.ENV_PREV__V54*/ meltfptr[53]);
14281
14282 MELT_LOCATION("warmelt-debug.melt:1458:/ initchunk");
14283 /*^putroutconstnotnull*/
14284 /*putroutconstnotnull*/
14285 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V351*/ meltfptr[350])) == MELTOBMAG_ROUTINE);
14286 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V82*/ meltfptr[81]);
14287 ((meltroutine_ptr_t)/*_._VALROUT___V351*/ meltfptr[350])->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V82*/ meltfptr[81]);
14288
14289 MELT_LOCATION("warmelt-debug.melt:1458:/ initchunk");
14290 /*^putroutconstnotnull*/
14291 /*putroutconstnotnull*/
14292 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V351*/ meltfptr[350])) == MELTOBMAG_ROUTINE);
14293 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V213*/ meltfptr[212]);
14294 ((meltroutine_ptr_t)/*_._VALROUT___V351*/ meltfptr[350])->tabval[6] = (melt_ptr_t)(/*_._VALCLO___V213*/ meltfptr[212]);
14295
14296 MELT_LOCATION("warmelt-debug.melt:1458:/ initchunk");
14297 /*^putroutconstnotnull*/
14298 /*putroutconstnotnull*/
14299 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V351*/ meltfptr[350])) == MELTOBMAG_ROUTINE);
14300 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V215*/ meltfptr[214]);
14301 ((meltroutine_ptr_t)/*_._VALROUT___V351*/ meltfptr[350])->tabval[7] = (melt_ptr_t)(/*_._VALCLO___V215*/ meltfptr[214]);
14302
14303 MELT_LOCATION("warmelt-debug.melt:1458:/ initchunk");
14304 /*^putroutconst*/
14305 /*putroutconst*/
14306 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V351*/ meltfptr[350])) == MELTOBMAG_ROUTINE);
14307 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_294__DBGOUT_ENVIRONMENT_METHOD#8", NULL != (/*_.CLASS_DESCRIBED_ENVIRONMENT__V55*/ meltfptr[54]));
14308 ((meltroutine_ptr_t)/*_._VALROUT___V351*/ meltfptr[350])->tabval[8] = (melt_ptr_t)(/*_.CLASS_DESCRIBED_ENVIRONMENT__V55*/ meltfptr[54]);
14309
14310 MELT_LOCATION("warmelt-debug.melt:1458:/ initchunk");
14311 /*^putroutconstnotnull*/
14312 /*putroutconstnotnull*/
14313 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V351*/ meltfptr[350])) == MELTOBMAG_ROUTINE);
14314 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V187*/ meltfptr[186]);
14315 ((meltroutine_ptr_t)/*_._VALROUT___V351*/ meltfptr[350])->tabval[9] = (melt_ptr_t)(/*_._VALCLO___V187*/ meltfptr[186]);
14316
14317 MELT_LOCATION("warmelt-debug.melt:1458:/ initchunk");
14318 /*^touch*/
14319 /*touch:_IROUTVAL_*/
14320 meltgc_touch(/*_._VALROUT___V351*/ meltfptr[350]);
14321
14322 /*putclosurout#42*/
14323 melt_assertmsg("putclosrout#42 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V352*/ meltfptr[351])) == MELTOBMAG_CLOSURE);
14324 melt_assertmsg("putclosrout#42 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V351*/ meltfptr[350])) == MELTOBMAG_ROUTINE);
14325 ((meltclosure_ptr_t)/*_._VALCLO___V352*/ meltfptr[351])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V351*/ meltfptr[350]);
14326
14327 /*touch:_DATACLOSURE_*/
14328 meltgc_touch(/*_._VALCLO___V352*/ meltfptr[351]);
14329
14330 /*putslot*/
14331 melt_assertmsg("checkobj putslot ~dsym_296__CLASS_ENVIRONMENT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V353*/ meltfptr[352])) == MELTOBMAG_OBJECT);
14332
14333 melt_assertmsg("checkoff putslot ~dsym_296__CLASS_ENVIRONMENT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V353*/ meltfptr[352]))));
14334 ((meltobject_ptr_t)(/*_._VALDATA___V353*/ meltfptr[352]))->obj_vartab[1] = (melt_ptr_t)(
14335 /*_._VALSTR___V354*/ meltfptr[353]);
14336
14337 /*touch:_VALUEDATA_*/
14338 meltgc_touch(/*_._VALDATA___V353*/ meltfptr[352]);
14339
14340
14341 melt_dbgtrace_written_object (/*_._VALDATA___V353*/ meltfptr[352], "new static instance");
14342
14343 /*putslot*/
14344 melt_assertmsg("checkobj putslot ~dsym_298__ENV_PREV @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V355*/ meltfptr[354])) == MELTOBMAG_OBJECT);
14345
14346 melt_assertmsg("checkoff putslot ~dsym_298__ENV_PREV @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V355*/ meltfptr[354]))));
14347 ((meltobject_ptr_t)(/*_._VALDATA___V355*/ meltfptr[354]))->obj_vartab[1] = (melt_ptr_t)(
14348 /*_._VALSTR___V356*/ meltfptr[355]);
14349
14350 /*touch:_VALUEDATA_*/
14351 meltgc_touch(/*_._VALDATA___V355*/ meltfptr[354]);
14352
14353
14354 melt_dbgtrace_written_object (/*_._VALDATA___V355*/ meltfptr[354], "new static instance");
14355
14356 /*putslot*/
14357 melt_assertmsg("checkobj putslot ~dsym_300__CLASS_DESCRIBED_ENVIRONMENT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V357*/ meltfptr[356])) == MELTOBMAG_OBJECT);
14358
14359 melt_assertmsg("checkoff putslot ~dsym_300__CLASS_DESCRIBED_ENVIRONMENT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V357*/ meltfptr[356]))));
14360 ((meltobject_ptr_t)(/*_._VALDATA___V357*/ meltfptr[356]))->obj_vartab[1] = (melt_ptr_t)(
14361 /*_._VALSTR___V358*/ meltfptr[357]);
14362
14363 /*touch:_VALUEDATA_*/
14364 meltgc_touch(/*_._VALDATA___V357*/ meltfptr[356]);
14365
14366
14367 melt_dbgtrace_written_object (/*_._VALDATA___V357*/ meltfptr[356], "new static instance");
14368
14369 /*putclosurout#43*/
14370 melt_assertmsg("putclosrout#43 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V360*/ meltfptr[359])) == MELTOBMAG_CLOSURE);
14371 melt_assertmsg("putclosrout#43 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V359*/ meltfptr[358])) == MELTOBMAG_ROUTINE);
14372 ((meltclosure_ptr_t)/*_._VALCLO___V360*/ meltfptr[359])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V359*/ meltfptr[358]);
14373
14374 /*touch:_DATACLOSURE_*/
14375 meltgc_touch(/*_._VALCLO___V360*/ meltfptr[359]);
14376
14377 /*putslot*/
14378 melt_assertmsg("checkobj putslot ~dsym_304__CLASS_CTYPE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V361*/ meltfptr[360])) == MELTOBMAG_OBJECT);
14379
14380 melt_assertmsg("checkoff putslot ~dsym_304__CLASS_CTYPE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V361*/ meltfptr[360]))));
14381 ((meltobject_ptr_t)(/*_._VALDATA___V361*/ meltfptr[360]))->obj_vartab[1] = (melt_ptr_t)(
14382 /*_._VALSTR___V362*/ meltfptr[361]);
14383
14384 /*touch:_VALUEDATA_*/
14385 meltgc_touch(/*_._VALDATA___V361*/ meltfptr[360]);
14386
14387
14388 melt_dbgtrace_written_object (/*_._VALDATA___V361*/ meltfptr[360], "new static instance");
14389
14390 MELT_LOCATION("warmelt-debug.melt:1542:/ initchunk");
14391 /*^putroutconstnotnull*/
14392 /*putroutconstnotnull*/
14393 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V363*/ meltfptr[362])) == MELTOBMAG_ROUTINE);
14394 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V64*/ meltfptr[63]);
14395 ((meltroutine_ptr_t)/*_._VALROUT___V363*/ meltfptr[362])->tabval[0] = (melt_ptr_t)(/*_._VALDATA___V64*/ meltfptr[63]);
14396
14397 MELT_LOCATION("warmelt-debug.melt:1542:/ initchunk");
14398 /*^putroutconst*/
14399 /*putroutconst*/
14400 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V363*/ meltfptr[362])) == MELTOBMAG_ROUTINE);
14401 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_306__DBGOUT_CTYPE_METHOD#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]));
14402 ((meltroutine_ptr_t)/*_._VALROUT___V363*/ meltfptr[362])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]);
14403
14404 MELT_LOCATION("warmelt-debug.melt:1542:/ initchunk");
14405 /*^putroutconst*/
14406 /*putroutconst*/
14407 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V363*/ meltfptr[362])) == MELTOBMAG_ROUTINE);
14408 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_306__DBGOUT_CTYPE_METHOD#2", NULL != (/*_.CLASS_CTYPE__V56*/ meltfptr[55]));
14409 ((meltroutine_ptr_t)/*_._VALROUT___V363*/ meltfptr[362])->tabval[2] = (melt_ptr_t)(/*_.CLASS_CTYPE__V56*/ meltfptr[55]);
14410
14411 MELT_LOCATION("warmelt-debug.melt:1542:/ initchunk");
14412 /*^putroutconstnotnull*/
14413 /*putroutconstnotnull*/
14414 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V363*/ meltfptr[362])) == MELTOBMAG_ROUTINE);
14415 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V324*/ meltfptr[323]);
14416 ((meltroutine_ptr_t)/*_._VALROUT___V363*/ meltfptr[362])->tabval[3] = (melt_ptr_t)(/*_._VALCLO___V324*/ meltfptr[323]);
14417
14418 MELT_LOCATION("warmelt-debug.melt:1542:/ initchunk");
14419 /*^putroutconstnotnull*/
14420 /*putroutconstnotnull*/
14421 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V363*/ meltfptr[362])) == MELTOBMAG_ROUTINE);
14422 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V360*/ meltfptr[359]);
14423 ((meltroutine_ptr_t)/*_._VALROUT___V363*/ meltfptr[362])->tabval[4] = (melt_ptr_t)(/*_._VALCLO___V360*/ meltfptr[359]);
14424
14425 MELT_LOCATION("warmelt-debug.melt:1542:/ initchunk");
14426 /*^touch*/
14427 /*touch:_IROUTVAL_*/
14428 meltgc_touch(/*_._VALROUT___V363*/ meltfptr[362]);
14429
14430 /*putclosurout#44*/
14431 melt_assertmsg("putclosrout#44 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V364*/ meltfptr[363])) == MELTOBMAG_CLOSURE);
14432 melt_assertmsg("putclosrout#44 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V363*/ meltfptr[362])) == MELTOBMAG_ROUTINE);
14433 ((meltclosure_ptr_t)/*_._VALCLO___V364*/ meltfptr[363])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V363*/ meltfptr[362]);
14434
14435 /*touch:_DATACLOSURE_*/
14436 meltgc_touch(/*_._VALCLO___V364*/ meltfptr[363]);
14437
14438 MELT_LOCATION("warmelt-debug.melt:1552:/ initchunk");
14439 /*^putroutconstnotnull*/
14440 /*putroutconstnotnull*/
14441 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V365*/ meltfptr[364])) == MELTOBMAG_ROUTINE);
14442 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V64*/ meltfptr[63]);
14443 ((meltroutine_ptr_t)/*_._VALROUT___V365*/ meltfptr[364])->tabval[0] = (melt_ptr_t)(/*_._VALDATA___V64*/ meltfptr[63]);
14444
14445 MELT_LOCATION("warmelt-debug.melt:1552:/ initchunk");
14446 /*^putroutconst*/
14447 /*putroutconst*/
14448 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V365*/ meltfptr[364])) == MELTOBMAG_ROUTINE);
14449 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_308__DBGOUT_ANYBINDING_METHOD#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]));
14450 ((meltroutine_ptr_t)/*_._VALROUT___V365*/ meltfptr[364])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]);
14451
14452 MELT_LOCATION("warmelt-debug.melt:1552:/ initchunk");
14453 /*^putroutconst*/
14454 /*putroutconst*/
14455 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V365*/ meltfptr[364])) == MELTOBMAG_ROUTINE);
14456 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_308__DBGOUT_ANYBINDING_METHOD#2", NULL != (/*_.CLASS_ANY_BINDING__V57*/ meltfptr[56]));
14457 ((meltroutine_ptr_t)/*_._VALROUT___V365*/ meltfptr[364])->tabval[2] = (melt_ptr_t)(/*_.CLASS_ANY_BINDING__V57*/ meltfptr[56]);
14458
14459 MELT_LOCATION("warmelt-debug.melt:1552:/ initchunk");
14460 /*^putroutconstnotnull*/
14461 /*putroutconstnotnull*/
14462 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V365*/ meltfptr[364])) == MELTOBMAG_ROUTINE);
14463 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V144*/ meltfptr[143]);
14464 ((meltroutine_ptr_t)/*_._VALROUT___V365*/ meltfptr[364])->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V144*/ meltfptr[143]);
14465
14466 MELT_LOCATION("warmelt-debug.melt:1552:/ initchunk");
14467 /*^putroutconstnotnull*/
14468 /*putroutconstnotnull*/
14469 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V365*/ meltfptr[364])) == MELTOBMAG_ROUTINE);
14470 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V213*/ meltfptr[212]);
14471 ((meltroutine_ptr_t)/*_._VALROUT___V365*/ meltfptr[364])->tabval[4] = (melt_ptr_t)(/*_._VALCLO___V213*/ meltfptr[212]);
14472
14473 MELT_LOCATION("warmelt-debug.melt:1552:/ initchunk");
14474 /*^touch*/
14475 /*touch:_IROUTVAL_*/
14476 meltgc_touch(/*_._VALROUT___V365*/ meltfptr[364]);
14477
14478 /*putclosurout#45*/
14479 melt_assertmsg("putclosrout#45 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V366*/ meltfptr[365])) == MELTOBMAG_CLOSURE);
14480 melt_assertmsg("putclosrout#45 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V365*/ meltfptr[364])) == MELTOBMAG_ROUTINE);
14481 ((meltclosure_ptr_t)/*_._VALCLO___V366*/ meltfptr[365])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V365*/ meltfptr[364]);
14482
14483 /*touch:_DATACLOSURE_*/
14484 meltgc_touch(/*_._VALCLO___V366*/ meltfptr[365]);
14485
14486 /*putslot*/
14487 melt_assertmsg("checkobj putslot ~dsym_310__CLASS_ANY_BINDING @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V367*/ meltfptr[366])) == MELTOBMAG_OBJECT);
14488
14489 melt_assertmsg("checkoff putslot ~dsym_310__CLASS_ANY_BINDING @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V367*/ meltfptr[366]))));
14490 ((meltobject_ptr_t)(/*_._VALDATA___V367*/ meltfptr[366]))->obj_vartab[1] = (melt_ptr_t)(
14491 /*_._VALSTR___V368*/ meltfptr[367]);
14492
14493 /*touch:_VALUEDATA_*/
14494 meltgc_touch(/*_._VALDATA___V367*/ meltfptr[366]);
14495
14496
14497 melt_dbgtrace_written_object (/*_._VALDATA___V367*/ meltfptr[366], "new static instance");
14498
14499 MELT_LOCATION("warmelt-debug.melt:1581:/ initchunk");
14500 /*^putroutconstnotnull*/
14501 /*putroutconstnotnull*/
14502 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V369*/ meltfptr[368])) == MELTOBMAG_ROUTINE);
14503 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V64*/ meltfptr[63]);
14504 ((meltroutine_ptr_t)/*_._VALROUT___V369*/ meltfptr[368])->tabval[0] = (melt_ptr_t)(/*_._VALDATA___V64*/ meltfptr[63]);
14505
14506 MELT_LOCATION("warmelt-debug.melt:1581:/ initchunk");
14507 /*^putroutconst*/
14508 /*putroutconst*/
14509 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V369*/ meltfptr[368])) == MELTOBMAG_ROUTINE);
14510 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_312__DEBUG_LESS_FUN#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]));
14511 ((meltroutine_ptr_t)/*_._VALROUT___V369*/ meltfptr[368])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]);
14512
14513 MELT_LOCATION("warmelt-debug.melt:1581:/ initchunk");
14514 /*^putroutconstnotnull*/
14515 /*putroutconstnotnull*/
14516 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V369*/ meltfptr[368])) == MELTOBMAG_ROUTINE);
14517 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V187*/ meltfptr[186]);
14518 ((meltroutine_ptr_t)/*_._VALROUT___V369*/ meltfptr[368])->tabval[2] = (melt_ptr_t)(/*_._VALCLO___V187*/ meltfptr[186]);
14519
14520 MELT_LOCATION("warmelt-debug.melt:1581:/ initchunk");
14521 /*^touch*/
14522 /*touch:_IROUTVAL_*/
14523 meltgc_touch(/*_._VALROUT___V369*/ meltfptr[368]);
14524
14525 /*putclosurout#46*/
14526 melt_assertmsg("putclosrout#46 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V370*/ meltfptr[369])) == MELTOBMAG_CLOSURE);
14527 melt_assertmsg("putclosrout#46 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V369*/ meltfptr[368])) == MELTOBMAG_ROUTINE);
14528 ((meltclosure_ptr_t)/*_._VALCLO___V370*/ meltfptr[369])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V369*/ meltfptr[368]);
14529
14530 /*touch:_DATACLOSURE_*/
14531 meltgc_touch(/*_._VALCLO___V370*/ meltfptr[369]);
14532
14533 /*putslot*/
14534 melt_assertmsg("checkobj putslot ~dsym_314__DEBUG_LESS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V371*/ meltfptr[370])) == MELTOBMAG_OBJECT);
14535
14536 melt_assertmsg("checkoff putslot ~dsym_314__DEBUG_LESS @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V371*/ meltfptr[370]))));
14537 ((meltobject_ptr_t)(/*_._VALDATA___V371*/ meltfptr[370]))->obj_vartab[1] = (melt_ptr_t)(
14538 /*_._VALSTR___V372*/ meltfptr[371]);
14539
14540 /*touch:_VALUEDATA_*/
14541 meltgc_touch(/*_._VALDATA___V371*/ meltfptr[370]);
14542
14543
14544 melt_dbgtrace_written_object (/*_._VALDATA___V371*/ meltfptr[370], "new static instance");
14545
14546 MELT_LOCATION("warmelt-debug.melt:1595:/ initchunk");
14547 /*^putroutconstnotnull*/
14548 /*putroutconstnotnull*/
14549 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V373*/ meltfptr[372])) == MELTOBMAG_ROUTINE);
14550 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V64*/ meltfptr[63]);
14551 ((meltroutine_ptr_t)/*_._VALROUT___V373*/ meltfptr[372])->tabval[0] = (melt_ptr_t)(/*_._VALDATA___V64*/ meltfptr[63]);
14552
14553 MELT_LOCATION("warmelt-debug.melt:1595:/ initchunk");
14554 /*^putroutconst*/
14555 /*putroutconst*/
14556 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V373*/ meltfptr[372])) == MELTOBMAG_ROUTINE);
14557 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_316__DEBUG_MORE_FUN#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]));
14558 ((meltroutine_ptr_t)/*_._VALROUT___V373*/ meltfptr[372])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17]);
14559
14560 MELT_LOCATION("warmelt-debug.melt:1595:/ initchunk");
14561 /*^putroutconst*/
14562 /*putroutconst*/
14563 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V373*/ meltfptr[372])) == MELTOBMAG_ROUTINE);
14564 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_316__DEBUG_MORE_FUN#2", NULL != (/*_.ADD2OUT__V19*/ meltfptr[18]));
14565 ((meltroutine_ptr_t)/*_._VALROUT___V373*/ meltfptr[372])->tabval[2] = (melt_ptr_t)(/*_.ADD2OUT__V19*/ meltfptr[18]);
14566
14567 MELT_LOCATION("warmelt-debug.melt:1595:/ initchunk");
14568 /*^putroutconst*/
14569 /*putroutconst*/
14570 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V373*/ meltfptr[372])) == MELTOBMAG_ROUTINE);
14571 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_316__DEBUG_MORE_FUN#3", NULL != (/*_.CLASS_NAMED__V21*/ meltfptr[20]));
14572 ((meltroutine_ptr_t)/*_._VALROUT___V373*/ meltfptr[372])->tabval[3] = (melt_ptr_t)(/*_.CLASS_NAMED__V21*/ meltfptr[20]);
14573
14574 MELT_LOCATION("warmelt-debug.melt:1595:/ initchunk");
14575 /*^putroutconstnotnull*/
14576 /*putroutconstnotnull*/
14577 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V373*/ meltfptr[372])) == MELTOBMAG_ROUTINE);
14578 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V213*/ meltfptr[212]);
14579 ((meltroutine_ptr_t)/*_._VALROUT___V373*/ meltfptr[372])->tabval[4] = (melt_ptr_t)(/*_._VALCLO___V213*/ meltfptr[212]);
14580
14581 MELT_LOCATION("warmelt-debug.melt:1595:/ initchunk");
14582 /*^putroutconstnotnull*/
14583 /*putroutconstnotnull*/
14584 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V373*/ meltfptr[372])) == MELTOBMAG_ROUTINE);
14585 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V187*/ meltfptr[186]);
14586 ((meltroutine_ptr_t)/*_._VALROUT___V373*/ meltfptr[372])->tabval[5] = (melt_ptr_t)(/*_._VALCLO___V187*/ meltfptr[186]);
14587
14588 MELT_LOCATION("warmelt-debug.melt:1595:/ initchunk");
14589 /*^touch*/
14590 /*touch:_IROUTVAL_*/
14591 meltgc_touch(/*_._VALROUT___V373*/ meltfptr[372]);
14592
14593 /*putclosurout#47*/
14594 melt_assertmsg("putclosrout#47 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V374*/ meltfptr[373])) == MELTOBMAG_CLOSURE);
14595 melt_assertmsg("putclosrout#47 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V373*/ meltfptr[372])) == MELTOBMAG_ROUTINE);
14596 ((meltclosure_ptr_t)/*_._VALCLO___V374*/ meltfptr[373])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V373*/ meltfptr[372]);
14597
14598 /*touch:_DATACLOSURE_*/
14599 meltgc_touch(/*_._VALCLO___V374*/ meltfptr[373]);
14600
14601 /*putslot*/
14602 melt_assertmsg("checkobj putslot ~dsym_318__DEBUG_MORE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V375*/ meltfptr[374])) == MELTOBMAG_OBJECT);
14603
14604 melt_assertmsg("checkoff putslot ~dsym_318__DEBUG_MORE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V375*/ meltfptr[374]))));
14605 ((meltobject_ptr_t)(/*_._VALDATA___V375*/ meltfptr[374]))->obj_vartab[1] = (melt_ptr_t)(
14606 /*_._VALSTR___V376*/ meltfptr[375]);
14607
14608 /*touch:_VALUEDATA_*/
14609 meltgc_touch(/*_._VALDATA___V375*/ meltfptr[374]);
14610
14611
14612 melt_dbgtrace_written_object (/*_._VALDATA___V375*/ meltfptr[374], "new static instance");
14613
14614 MELT_LOCATION("warmelt-debug.melt:1627:/ initchunk");
14615 /*^putroutconst*/
14616 /*putroutconst*/
14617 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V377*/ meltfptr[376])) == MELTOBMAG_ROUTINE);
14618 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_320__DISPLAY_DEBUG_MESSAGE#0", NULL != (/*_.DISCR_STRBUF__V17*/ meltfptr[16]));
14619 ((meltroutine_ptr_t)/*_._VALROUT___V377*/ meltfptr[376])->tabval[0] = (melt_ptr_t)(/*_.DISCR_STRBUF__V17*/ meltfptr[16]);
14620
14621
14622 #undef meltfram__
14623 } /*end of meltmod__WARMELTmiDEBUG__initialmeltchunk_5*/
14624
14625
14626
14627 void meltmod__WARMELTmiDEBUG__initialmeltchunk_6 (meltinitial_frame_t* meltframptr__, char meltpredefinited[])
14628 {
14629 #define meltfram__ (*meltframptr__)
14630 #undef meltcallcount
14631 #define meltcallcount 0L
14632 (void) meltpredefinited;
14633 MELT_LOCATION("warmelt-debug.melt:1627:/ initchunk");
14634 /*^putroutconst*/
14635 /*putroutconst*/
14636 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V377*/ meltfptr[376])) == MELTOBMAG_ROUTINE);
14637 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_320__DISPLAY_DEBUG_MESSAGE#1", NULL != (/*_.DISCR_MAP_OBJECTS__V15*/ meltfptr[14]));
14638 ((meltroutine_ptr_t)/*_._VALROUT___V377*/ meltfptr[376])->tabval[1] = (melt_ptr_t)(/*_.DISCR_MAP_OBJECTS__V15*/ meltfptr[14]);
14639
14640 MELT_LOCATION("warmelt-debug.melt:1627:/ initchunk");
14641 /*^putroutconst*/
14642 /*putroutconst*/
14643 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V377*/ meltfptr[376])) == MELTOBMAG_ROUTINE);
14644 if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_320__DISPLAY_DEBUG_MESSAGE#2", NULL != (/*_.DISCR_INTEGER__V16*/ meltfptr[15]));
14645 ((meltroutine_ptr_t)/*_._VALROUT___V377*/ meltfptr[376])->tabval[2] = (melt_ptr_t)(/*_.DISCR_INTEGER__V16*/ meltfptr[15]);
14646
14647 MELT_LOCATION("warmelt-debug.melt:1627:/ initchunk");
14648 /*^putroutconstnotnull*/
14649 /*putroutconstnotnull*/
14650 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V377*/ meltfptr[376])) == MELTOBMAG_ROUTINE);
14651 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V82*/ meltfptr[81]);
14652 ((meltroutine_ptr_t)/*_._VALROUT___V377*/ meltfptr[376])->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V82*/ meltfptr[81]);
14653
14654 MELT_LOCATION("warmelt-debug.melt:1627:/ initchunk");
14655 /*^putroutconstnotnull*/
14656 /*putroutconstnotnull*/
14657 melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V377*/ meltfptr[376])) == MELTOBMAG_ROUTINE);
14658 melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V136*/ meltfptr[135]);
14659 ((meltroutine_ptr_t)/*_._VALROUT___V377*/ meltfptr[376])->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V136*/ meltfptr[135]);
14660
14661 MELT_LOCATION("warmelt-debug.melt:1627:/ initchunk");
14662 /*^touch*/
14663 /*touch:_IROUTVAL_*/
14664 meltgc_touch(/*_._VALROUT___V377*/ meltfptr[376]);
14665
14666 /*putclosurout#48*/
14667 melt_assertmsg("putclosrout#48 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V378*/ meltfptr[377])) == MELTOBMAG_CLOSURE);
14668 melt_assertmsg("putclosrout#48 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V377*/ meltfptr[376])) == MELTOBMAG_ROUTINE);
14669 ((meltclosure_ptr_t)/*_._VALCLO___V378*/ meltfptr[377])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V377*/ meltfptr[376]);
14670
14671 /*touch:_DATACLOSURE_*/
14672 meltgc_touch(/*_._VALCLO___V378*/ meltfptr[377]);
14673
14674 /*putslot*/
14675 melt_assertmsg("checkobj putslot ~dsym_322__DBG_OUT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V379*/ meltfptr[378])) == MELTOBMAG_OBJECT);
14676
14677 melt_assertmsg("checkoff putslot ~dsym_322__DBG_OUT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V379*/ meltfptr[378]))));
14678 ((meltobject_ptr_t)(/*_._VALDATA___V379*/ meltfptr[378]))->obj_vartab[1] = (melt_ptr_t)(
14679 /*_._VALSTR___V380*/ meltfptr[379]);
14680
14681 /*touch:_VALUEDATA_*/
14682 meltgc_touch(/*_._VALDATA___V379*/ meltfptr[378]);
14683
14684
14685 melt_dbgtrace_written_object (/*_._VALDATA___V379*/ meltfptr[378], "new static instance");
14686
14687 /*putslot*/
14688 melt_assertmsg("checkobj putslot ~dsym_324__DBG_OUTOBJECT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V381*/ meltfptr[380])) == MELTOBMAG_OBJECT);
14689
14690 melt_assertmsg("checkoff putslot ~dsym_324__DBG_OUTOBJECT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V381*/ meltfptr[380]))));
14691 ((meltobject_ptr_t)(/*_._VALDATA___V381*/ meltfptr[380]))->obj_vartab[1] = (melt_ptr_t)(
14692 /*_._VALSTR___V382*/ meltfptr[381]);
14693
14694 /*touch:_VALUEDATA_*/
14695 meltgc_touch(/*_._VALDATA___V381*/ meltfptr[380]);
14696
14697
14698 melt_dbgtrace_written_object (/*_._VALDATA___V381*/ meltfptr[380], "new static instance");
14699
14700 /*putslot*/
14701 melt_assertmsg("checkobj putslot ~dsym_326__DBGOUT_FIELDS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V383*/ meltfptr[382])) == MELTOBMAG_OBJECT);
14702
14703 melt_assertmsg("checkoff putslot ~dsym_326__DBGOUT_FIELDS @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V383*/ meltfptr[382]))));
14704 ((meltobject_ptr_t)(/*_._VALDATA___V383*/ meltfptr[382]))->obj_vartab[1] = (melt_ptr_t)(
14705 /*_._VALSTR___V384*/ meltfptr[383]);
14706
14707 /*touch:_VALUEDATA_*/
14708 meltgc_touch(/*_._VALDATA___V383*/ meltfptr[382]);
14709
14710
14711 melt_dbgtrace_written_object (/*_._VALDATA___V383*/ meltfptr[382], "new static instance");
14712
14713 /*putslot*/
14714 melt_assertmsg("checkobj putslot ~dsym_328__DBGOUTAGAIN_FIELDS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V385*/ meltfptr[384])) == MELTOBMAG_OBJECT);
14715
14716 melt_assertmsg("checkoff putslot ~dsym_328__DBGOUTAGAIN_FIELDS @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V385*/ meltfptr[384]))));
14717 ((meltobject_ptr_t)(/*_._VALDATA___V385*/ meltfptr[384]))->obj_vartab[1] = (melt_ptr_t)(
14718 /*_._VALSTR___V386*/ meltfptr[385]);
14719
14720 /*touch:_VALUEDATA_*/
14721 meltgc_touch(/*_._VALDATA___V385*/ meltfptr[384]);
14722
14723
14724 melt_dbgtrace_written_object (/*_._VALDATA___V385*/ meltfptr[384], "new static instance");
14725
14726 /*putslot*/
14727 melt_assertmsg("checkobj putslot ~dsym_330__DISPLAY_DEBUG_MESSAGE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V387*/ meltfptr[386])) == MELTOBMAG_OBJECT);
14728
14729 melt_assertmsg("checkoff putslot ~dsym_330__DISPLAY_DEBUG_MESSAGE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V387*/ meltfptr[386]))));
14730 ((meltobject_ptr_t)(/*_._VALDATA___V387*/ meltfptr[386]))->obj_vartab[1] = (melt_ptr_t)(
14731 /*_._VALSTR___V388*/ meltfptr[387]);
14732
14733 /*touch:_VALUEDATA_*/
14734 meltgc_touch(/*_._VALDATA___V387*/ meltfptr[386]);
14735
14736
14737 melt_dbgtrace_written_object (/*_._VALDATA___V387*/ meltfptr[386], "new static instance");
14738
14739 /*putslot*/
14740 melt_assertmsg("checkobj putslot ~dsym_332__MELT_DEBUG_FUN @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V389*/ meltfptr[388])) == MELTOBMAG_OBJECT);
14741
14742 melt_assertmsg("checkoff putslot ~dsym_332__MELT_DEBUG_FUN @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V389*/ meltfptr[388]))));
14743 ((meltobject_ptr_t)(/*_._VALDATA___V389*/ meltfptr[388]))->obj_vartab[1] = (melt_ptr_t)(
14744 /*_._VALSTR___V390*/ meltfptr[389]);
14745
14746 /*touch:_VALUEDATA_*/
14747 meltgc_touch(/*_._VALDATA___V389*/ meltfptr[388]);
14748
14749
14750 melt_dbgtrace_written_object (/*_._VALDATA___V389*/ meltfptr[388], "new static instance");
14751
14752 /*putslot*/
14753 melt_assertmsg("checkobj putslot ~dsym_334__REGISTER_BASICBLOCK_DEBUG_FUN @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V391*/ meltfptr[390])) == MELTOBMAG_OBJECT);
14754
14755 melt_assertmsg("checkoff putslot ~dsym_334__REGISTER_BASICBLOCK_DEBUG_FUN @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V391*/ meltfptr[390]))));
14756 ((meltobject_ptr_t)(/*_._VALDATA___V391*/ meltfptr[390]))->obj_vartab[1] = (melt_ptr_t)(
14757 /*_._VALSTR___V392*/ meltfptr[391]);
14758
14759 /*touch:_VALUEDATA_*/
14760 meltgc_touch(/*_._VALDATA___V391*/ meltfptr[390]);
14761
14762
14763 melt_dbgtrace_written_object (/*_._VALDATA___V391*/ meltfptr[390], "new static instance");
14764
14765 /*putslot*/
14766 melt_assertmsg("checkobj putslot ~dsym_336__REGISTER_EDGE_DEBUG_FUN @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V393*/ meltfptr[392])) == MELTOBMAG_OBJECT);
14767
14768 melt_assertmsg("checkoff putslot ~dsym_336__REGISTER_EDGE_DEBUG_FUN @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V393*/ meltfptr[392]))));
14769 ((meltobject_ptr_t)(/*_._VALDATA___V393*/ meltfptr[392]))->obj_vartab[1] = (melt_ptr_t)(
14770 /*_._VALSTR___V394*/ meltfptr[393]);
14771
14772 /*touch:_VALUEDATA_*/
14773 meltgc_touch(/*_._VALDATA___V393*/ meltfptr[392]);
14774
14775
14776 melt_dbgtrace_written_object (/*_._VALDATA___V393*/ meltfptr[392], "new static instance");
14777
14778 /*putslot*/
14779 melt_assertmsg("checkobj putslot ~dsym_338__REGISTER_GIMPLE_DEBUG_FUN @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V395*/ meltfptr[394])) == MELTOBMAG_OBJECT);
14780
14781 melt_assertmsg("checkoff putslot ~dsym_338__REGISTER_GIMPLE_DEBUG_FUN @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V395*/ meltfptr[394]))));
14782 ((meltobject_ptr_t)(/*_._VALDATA___V395*/ meltfptr[394]))->obj_vartab[1] = (melt_ptr_t)(
14783 /*_._VALSTR___V396*/ meltfptr[395]);
14784
14785 /*touch:_VALUEDATA_*/
14786 meltgc_touch(/*_._VALDATA___V395*/ meltfptr[394]);
14787
14788
14789 melt_dbgtrace_written_object (/*_._VALDATA___V395*/ meltfptr[394], "new static instance");
14790
14791 /*putslot*/
14792 melt_assertmsg("checkobj putslot ~dsym_340__REGISTER_GIMPLESEQ_DEBUG_FUN @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V397*/ meltfptr[396])) == MELTOBMAG_OBJECT);
14793
14794 melt_assertmsg("checkoff putslot ~dsym_340__REGISTER_GIMPLESEQ_DEBUG_FUN @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V397*/ meltfptr[396]))));
14795 ((meltobject_ptr_t)(/*_._VALDATA___V397*/ meltfptr[396]))->obj_vartab[1] = (melt_ptr_t)(
14796 /*_._VALSTR___V398*/ meltfptr[397]);
14797
14798 /*touch:_VALUEDATA_*/
14799 meltgc_touch(/*_._VALDATA___V397*/ meltfptr[396]);
14800
14801
14802 melt_dbgtrace_written_object (/*_._VALDATA___V397*/ meltfptr[396], "new static instance");
14803
14804 /*putslot*/
14805 melt_assertmsg("checkobj putslot ~dsym_342__REGISTER_LOOP_DEBUG_FUN @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V399*/ meltfptr[398])) == MELTOBMAG_OBJECT);
14806
14807 melt_assertmsg("checkoff putslot ~dsym_342__REGISTER_LOOP_DEBUG_FUN @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V399*/ meltfptr[398]))));
14808 ((meltobject_ptr_t)(/*_._VALDATA___V399*/ meltfptr[398]))->obj_vartab[1] = (melt_ptr_t)(
14809 /*_._VALSTR___V400*/ meltfptr[399]);
14810
14811 /*touch:_VALUEDATA_*/
14812 meltgc_touch(/*_._VALDATA___V399*/ meltfptr[398]);
14813
14814
14815 melt_dbgtrace_written_object (/*_._VALDATA___V399*/ meltfptr[398], "new static instance");
14816
14817 /*putslot*/
14818 melt_assertmsg("checkobj putslot ~dsym_344__REGISTER_TREE_DEBUG_FUN @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V401*/ meltfptr[400])) == MELTOBMAG_OBJECT);
14819
14820 melt_assertmsg("checkoff putslot ~dsym_344__REGISTER_TREE_DEBUG_FUN @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V401*/ meltfptr[400]))));
14821 ((meltobject_ptr_t)(/*_._VALDATA___V401*/ meltfptr[400]))->obj_vartab[1] = (melt_ptr_t)(
14822 /*_._VALSTR___V402*/ meltfptr[401]);
14823
14824 /*touch:_VALUEDATA_*/
14825 meltgc_touch(/*_._VALDATA___V401*/ meltfptr[400]);
14826
14827
14828 melt_dbgtrace_written_object (/*_._VALDATA___V401*/ meltfptr[400], "new static instance");
14829
14830 /**COMMENT: before toplevel body **/;
14831
14832 MELT_LOCATION("warmelt-debug.melt:4:/ initchunk");
14833 /*^block*/
14834 /*anyblock*/
14835 {
14836
14837 /*^cond*/
14838 /*cond*/ if (
14839 /*quasi.cur.mod.env.ref cur.mod.env.cont : at very start*/
14840 /* check quasi.cur.mod.env.ref 61072074 */
14841 (/*_._CONTENV___V2*/ meltfptr[1])
14842 ) /*then*/
14843 {
14844 /*^cond.then*/
14845 /*_.OR___V403*/ meltfptr[402] =
14846 /*quasi.cur.mod.env.ref cur.mod.env.cont : at very start*/
14847 /* check quasi.cur.mod.env.ref 61072074 */
14848 (/*_._CONTENV___V2*/ meltfptr[1])
14849 ;;
14850 }
14851 else
14852 {
14853 MELT_LOCATION("warmelt-debug.melt:4:/ cond.else");
14854
14855 /*^block*/
14856 /*anyblock*/
14857 {
14858
14859 /*_.HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER__V404*/ meltfptr[403] =
14860 /*hookcall*/ melthook_HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER ((melt_ptr_t) /*_.HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER__V7*/ meltfptr[6], /*_._PREVENV___V4*/ meltfptr[3], "warmelt-debug") ;;
14861 /*^compute*/
14862 /*_.OR___V403*/
14863 meltfptr[402] = /*_.HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER__V404*/ meltfptr[403];;
14864 /*epilog*/
14865
14866 MELT_LOCATION("warmelt-debug.melt:4:/ clear");
14867 /*clear*/ /*_.HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER__V404*/
14868 meltfptr[403] = 0 ;
14869 }
14870 ;
14871 }
14872 ;
14873 /*^block*/
14874 /*com.block:upd.cur.mod.env.cont : at very start*/
14875 {
14876 }/*com.end block:upd.cur.mod.env.cont : at very start*/
14877 ;
14878 /*epilog*/
14879
14880 /*^clear*/
14881 /*clear*/ /*_.OR___V403*/
14882 meltfptr[402] = 0 ;
14883 }
14884
14885 MELT_LOCATION("warmelt-debug.melt:61:/ initchunk");
14886 /*^block*/
14887 /*anyblock*/
14888 {
14889
14890
14891 /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V60*/ meltfptr[59], /*_._VALDATA___V64*/ meltfptr[63],
14892 /*quasi.cur.mod.env.ref norm.exp.val : CLASS_DEBUG_INFORMATION*/
14893 /* check quasi.cur.mod.env.ref 136193289 */
14894 (/*_._CONTENV___V2*/ meltfptr[1])
14895 ) ;
14896
14897 /*hookcall*/
14898 melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V74*/ meltfptr[73], /*_._VALDATA___V67*/ meltfptr[66],
14899 /*quasi.cur.mod.env.ref norm.exp.val : DBGI_OUT*/
14900 /* check quasi.cur.mod.env.ref 401908822 */
14901 (/*_._CONTENV___V2*/ meltfptr[1])
14902 ) ;
14903
14904 /*hookcall*/
14905 melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V76*/ meltfptr[75], /*_._VALDATA___V69*/ meltfptr[68],
14906 /*quasi.cur.mod.env.ref norm.exp.val : DBGI_OCCMAP*/
14907 /* check quasi.cur.mod.env.ref 860596283 */
14908 (/*_._CONTENV___V2*/ meltfptr[1])
14909 ) ;
14910
14911 /*hookcall*/
14912 melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V78*/ meltfptr[77], /*_._VALDATA___V71*/ meltfptr[70],
14913 /*quasi.cur.mod.env.ref norm.exp.val : DBGI_MAXDEPTH*/
14914 /* check quasi.cur.mod.env.ref 334114968 */
14915 (/*_._CONTENV___V2*/ meltfptr[1])
14916 ) ;
14917
14918 /*hookcall*/
14919 melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V80*/ meltfptr[79], /*_._VALDATA___V82*/ meltfptr[81],
14920 /*quasi.cur.mod.env.ref norm.exp.val : CLASS_DEBUG_OUTPUT_INFORMATION*/
14921 /* check quasi.cur.mod.env.ref 269862868 */
14922 (/*_._CONTENV___V2*/ meltfptr[1])
14923 ) ;
14924 /*epilog*/
14925 }
14926
14927 MELT_LOCATION("warmelt-debug.melt:558:/ initchunk");
14928 /*^block*/
14929 /*anyblock*/
14930 {
14931
14932
14933 MELT_CHECK_SIGNAL();
14934 ;
14935 /*^apply*/
14936 /*apply*/
14937 {
14938 union meltparam_un argtab[2];
14939 memset(&argtab, 0, sizeof(argtab));
14940 /*^apply.arg*/
14941 argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALDATA___V136*/ meltfptr[135];
14942 /*^apply.arg*/
14943 argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V217*/ meltfptr[216];
14944 /*_.INSTALL_METHOD__V405*/
14945 meltfptr[403] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V23*/ meltfptr[22]), (melt_ptr_t)(/*_.DISCR_NULL_RECEIVER__V24*/ meltfptr[23]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
14946 }
14947 ;
14948 /*epilog*/
14949
14950 /*^clear*/
14951 /*clear*/ /*_.INSTALL_METHOD__V405*/
14952 meltfptr[403] = 0 ;
14953 }
14954
14955 MELT_LOCATION("warmelt-debug.melt:559:/ initchunk");
14956 /*^block*/
14957 /*anyblock*/
14958 {
14959
14960
14961 MELT_CHECK_SIGNAL();
14962 ;
14963 /*^apply*/
14964 /*apply*/
14965 {
14966 union meltparam_un argtab[2];
14967 memset(&argtab, 0, sizeof(argtab));
14968 /*^apply.arg*/
14969 argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALDATA___V144*/ meltfptr[143];
14970 /*^apply.arg*/
14971 argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V217*/ meltfptr[216];
14972 /*_.INSTALL_METHOD__V406*/
14973 meltfptr[402] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V23*/ meltfptr[22]), (melt_ptr_t)(/*_.DISCR_NULL_RECEIVER__V24*/ meltfptr[23]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
14974 }
14975 ;
14976 /*epilog*/
14977
14978 /*^clear*/
14979 /*clear*/ /*_.INSTALL_METHOD__V406*/
14980 meltfptr[402] = 0 ;
14981 }
14982
14983 MELT_LOCATION("warmelt-debug.melt:588:/ initchunk");
14984 /*^block*/
14985 /*anyblock*/
14986 {
14987
14988
14989 MELT_CHECK_SIGNAL();
14990 ;
14991 /*^apply*/
14992 /*apply*/
14993 {
14994 union meltparam_un argtab[2];
14995 memset(&argtab, 0, sizeof(argtab));
14996 /*^apply.arg*/
14997 argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALDATA___V136*/ meltfptr[135];
14998 /*^apply.arg*/
14999 argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V223*/ meltfptr[222];
15000 /*_.INSTALL_METHOD__V407*/
15001 meltfptr[403] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V23*/ meltfptr[22]), (melt_ptr_t)(/*_.DISCR_STRING__V25*/ meltfptr[24]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
15002 }
15003 ;
15004 /*epilog*/
15005
15006 /*^clear*/
15007 /*clear*/ /*_.INSTALL_METHOD__V407*/
15008 meltfptr[403] = 0 ;
15009 }
15010
15011 MELT_LOCATION("warmelt-debug.melt:671:/ initchunk");
15012 /*^block*/
15013 /*anyblock*/
15014 {
15015
15016
15017 MELT_CHECK_SIGNAL();
15018 ;
15019 /*^apply*/
15020 /*apply*/
15021 {
15022 union meltparam_un argtab[2];
15023 memset(&argtab, 0, sizeof(argtab));
15024 /*^apply.arg*/
15025 argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALDATA___V136*/ meltfptr[135];
15026 /*^apply.arg*/
15027 argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V229*/ meltfptr[228];
15028 /*_.INSTALL_METHOD__V408*/
15029 meltfptr[402] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V23*/ meltfptr[22]), (melt_ptr_t)(/*_.DISCR_STRBUF__V17*/ meltfptr[16]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
15030 }
15031 ;
15032 /*epilog*/
15033
15034 /*^clear*/
15035 /*clear*/ /*_.INSTALL_METHOD__V408*/
15036 meltfptr[402] = 0 ;
15037 }
15038
15039 MELT_LOCATION("warmelt-debug.melt:695:/ initchunk");
15040 /*^block*/
15041 /*anyblock*/
15042 {
15043
15044
15045 MELT_CHECK_SIGNAL();
15046 ;
15047 /*^apply*/
15048 /*apply*/
15049 {
15050 union meltparam_un argtab[2];
15051 memset(&argtab, 0, sizeof(argtab));
15052 /*^apply.arg*/
15053 argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALDATA___V136*/ meltfptr[135];
15054 /*^apply.arg*/
15055 argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V231*/ meltfptr[230];
15056 /*_.INSTALL_METHOD__V409*/
15057 meltfptr[403] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V23*/ meltfptr[22]), (melt_ptr_t)(/*_.DISCR_INTEGER__V16*/ meltfptr[15]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
15058 }
15059 ;
15060 /*epilog*/
15061
15062 /*^clear*/
15063 /*clear*/ /*_.INSTALL_METHOD__V409*/
15064 meltfptr[403] = 0 ;
15065 }
15066
15067 MELT_LOCATION("warmelt-debug.melt:714:/ initchunk");
15068 /*^block*/
15069 /*anyblock*/
15070 {
15071
15072
15073 MELT_CHECK_SIGNAL();
15074 ;
15075 /*^apply*/
15076 /*apply*/
15077 {
15078 union meltparam_un argtab[2];
15079 memset(&argtab, 0, sizeof(argtab));
15080 /*^apply.arg*/
15081 argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALDATA___V136*/ meltfptr[135];
15082 /*^apply.arg*/
15083 argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V235*/ meltfptr[234];
15084 /*_.INSTALL_METHOD__V410*/
15085 meltfptr[402] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V23*/ meltfptr[22]), (melt_ptr_t)(/*_.DISCR_DOUBLE__V28*/ meltfptr[27]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
15086 }
15087 ;
15088 /*epilog*/
15089
15090 /*^clear*/
15091 /*clear*/ /*_.INSTALL_METHOD__V410*/
15092 meltfptr[402] = 0 ;
15093 }
15094
15095 MELT_LOCATION("warmelt-debug.melt:743:/ initchunk");
15096 /*^block*/
15097 /*anyblock*/
15098 {
15099
15100
15101 MELT_CHECK_SIGNAL();
15102 ;
15103 /*^apply*/
15104 /*apply*/
15105 {
15106 union meltparam_un argtab[2];
15107 memset(&argtab, 0, sizeof(argtab));
15108 /*^apply.arg*/
15109 argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALDATA___V136*/ meltfptr[135];
15110 /*^apply.arg*/
15111 argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V241*/ meltfptr[240];
15112 /*_.INSTALL_METHOD__V411*/
15113 meltfptr[403] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V23*/ meltfptr[22]), (melt_ptr_t)(/*_.DISCR_MIXED_INTEGER__V30*/ meltfptr[29]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
15114 }
15115 ;
15116 /*epilog*/
15117
15118 /*^clear*/
15119 /*clear*/ /*_.INSTALL_METHOD__V411*/
15120 meltfptr[403] = 0 ;
15121 }
15122
15123 MELT_LOCATION("warmelt-debug.melt:772:/ initchunk");
15124 /*^block*/
15125 /*anyblock*/
15126 {
15127
15128
15129 MELT_CHECK_SIGNAL();
15130 ;
15131 /*^apply*/
15132 /*apply*/
15133 {
15134 union meltparam_un argtab[2];
15135 memset(&argtab, 0, sizeof(argtab));
15136 /*^apply.arg*/
15137 argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALDATA___V136*/ meltfptr[135];
15138 /*^apply.arg*/
15139 argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V245*/ meltfptr[244];
15140 /*_.INSTALL_METHOD__V412*/
15141 meltfptr[402] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V23*/ meltfptr[22]), (melt_ptr_t)(/*_.DISCR_MIXED_LOCATION__V31*/ meltfptr[30]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
15142 }
15143 ;
15144 /*epilog*/
15145
15146 /*^clear*/
15147 /*clear*/ /*_.INSTALL_METHOD__V412*/
15148 meltfptr[402] = 0 ;
15149 }
15150
15151 MELT_LOCATION("warmelt-debug.melt:796:/ initchunk");
15152 /*^block*/
15153 /*anyblock*/
15154 {
15155
15156
15157 MELT_CHECK_SIGNAL();
15158 ;
15159 /*^apply*/
15160 /*apply*/
15161 {
15162 union meltparam_un argtab[2];
15163 memset(&argtab, 0, sizeof(argtab));
15164 /*^apply.arg*/
15165 argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALDATA___V136*/ meltfptr[135];
15166 /*^apply.arg*/
15167 argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V249*/ meltfptr[248];
15168 /*_.INSTALL_METHOD__V413*/
15169 meltfptr[403] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V23*/ meltfptr[22]), (melt_ptr_t)(/*_.DISCR_MIXED_BIGINT__V32*/ meltfptr[31]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
15170 }
15171 ;
15172 /*epilog*/
15173
15174 /*^clear*/
15175 /*clear*/ /*_.INSTALL_METHOD__V413*/
15176 meltfptr[403] = 0 ;
15177 }
15178
15179 MELT_LOCATION("warmelt-debug.melt:831:/ initchunk");
15180 /*^block*/
15181 /*anyblock*/
15182 {
15183
15184
15185 MELT_CHECK_SIGNAL();
15186 ;
15187 /*^apply*/
15188 /*apply*/
15189 {
15190 union meltparam_un argtab[2];
15191 memset(&argtab, 0, sizeof(argtab));
15192 /*^apply.arg*/
15193 argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALDATA___V136*/ meltfptr[135];
15194 /*^apply.arg*/
15195 argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V253*/ meltfptr[252];
15196 /*_.INSTALL_METHOD__V414*/
15197 meltfptr[402] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V23*/ meltfptr[22]), (melt_ptr_t)(/*_.DISCR_MULTIPLE__V33*/ meltfptr[32]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
15198 }
15199 ;
15200 /*epilog*/
15201
15202 /*^clear*/
15203 /*clear*/ /*_.INSTALL_METHOD__V414*/
15204 meltfptr[402] = 0 ;
15205 }
15206
15207 MELT_LOCATION("warmelt-debug.melt:859:/ initchunk");
15208 /*^block*/
15209 /*anyblock*/
15210 {
15211
15212
15213 MELT_CHECK_SIGNAL();
15214 ;
15215 /*^apply*/
15216 /*apply*/
15217 {
15218 union meltparam_un argtab[2];
15219 memset(&argtab, 0, sizeof(argtab));
15220 /*^apply.arg*/
15221 argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALDATA___V136*/ meltfptr[135];
15222 /*^apply.arg*/
15223 argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V258*/ meltfptr[257];
15224 /*_.INSTALL_METHOD__V415*/
15225 meltfptr[403] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V23*/ meltfptr[22]), (melt_ptr_t)(/*_.DISCR_ROUTINE__V34*/ meltfptr[33]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
15226 }
15227 ;
15228 /*epilog*/
15229
15230 /*^clear*/
15231 /*clear*/ /*_.INSTALL_METHOD__V415*/
15232 meltfptr[403] = 0 ;
15233 }
15234
15235 MELT_LOCATION("warmelt-debug.melt:890:/ initchunk");
15236 /*^block*/
15237 /*anyblock*/
15238 {
15239
15240
15241 MELT_CHECK_SIGNAL();
15242 ;
15243 /*^apply*/
15244 /*apply*/
15245 {
15246 union meltparam_un argtab[2];
15247 memset(&argtab, 0, sizeof(argtab));
15248 /*^apply.arg*/
15249 argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALDATA___V136*/ meltfptr[135];
15250 /*^apply.arg*/
15251 argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V265*/ meltfptr[264];
15252 /*_.INSTALL_METHOD__V416*/
15253 meltfptr[402] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V23*/ meltfptr[22]), (melt_ptr_t)(/*_.DISCR_HOOK__V37*/ meltfptr[36]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
15254 }
15255 ;
15256 /*epilog*/
15257
15258 /*^clear*/
15259 /*clear*/ /*_.INSTALL_METHOD__V416*/
15260 meltfptr[402] = 0 ;
15261 }
15262
15263 MELT_LOCATION("warmelt-debug.melt:937:/ initchunk");
15264 /*^block*/
15265 /*anyblock*/
15266 {
15267
15268
15269 MELT_CHECK_SIGNAL();
15270 ;
15271 /*^apply*/
15272 /*apply*/
15273 {
15274 union meltparam_un argtab[2];
15275 memset(&argtab, 0, sizeof(argtab));
15276 /*^apply.arg*/
15277 argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALDATA___V136*/ meltfptr[135];
15278 /*^apply.arg*/
15279 argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V271*/ meltfptr[270];
15280 /*_.INSTALL_METHOD__V417*/
15281 meltfptr[403] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V23*/ meltfptr[22]), (melt_ptr_t)(/*_.DISCR_CLOSURE__V12*/ meltfptr[11]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
15282 }
15283 ;
15284 /*epilog*/
15285
15286 /*^clear*/
15287 /*clear*/ /*_.INSTALL_METHOD__V417*/
15288 meltfptr[403] = 0 ;
15289 }
15290
15291 MELT_LOCATION("warmelt-debug.melt:985:/ initchunk");
15292 /*^block*/
15293 /*anyblock*/
15294 {
15295
15296
15297 MELT_CHECK_SIGNAL();
15298 ;
15299 /*^apply*/
15300 /*apply*/
15301 {
15302 union meltparam_un argtab[2];
15303 memset(&argtab, 0, sizeof(argtab));
15304 /*^apply.arg*/
15305 argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALDATA___V136*/ meltfptr[135];
15306 /*^apply.arg*/
15307 argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V273*/ meltfptr[272];
15308 /*_.INSTALL_METHOD__V418*/
15309 meltfptr[402] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V23*/ meltfptr[22]), (melt_ptr_t)(/*_.DISCR_LIST__V38*/ meltfptr[37]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
15310 }
15311 ;
15312 /*epilog*/
15313
15314 /*^clear*/
15315 /*clear*/ /*_.INSTALL_METHOD__V418*/
15316 meltfptr[402] = 0 ;
15317 }
15318
15319 MELT_LOCATION("warmelt-debug.melt:1009:/ initchunk");
15320 /*^block*/
15321 /*anyblock*/
15322 {
15323
15324
15325 MELT_CHECK_SIGNAL();
15326 ;
15327 /*^apply*/
15328 /*apply*/
15329 {
15330 union meltparam_un argtab[2];
15331 memset(&argtab, 0, sizeof(argtab));
15332 /*^apply.arg*/
15333 argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALDATA___V136*/ meltfptr[135];
15334 /*^apply.arg*/
15335 argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V277*/ meltfptr[276];
15336 /*_.INSTALL_METHOD__V419*/
15337 meltfptr[403] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V23*/ meltfptr[22]), (melt_ptr_t)(/*_.DISCR_PAIR__V39*/ meltfptr[38]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
15338 }
15339 ;
15340 /*epilog*/
15341
15342 /*^clear*/
15343 /*clear*/ /*_.INSTALL_METHOD__V419*/
15344 meltfptr[403] = 0 ;
15345 }
15346
15347 MELT_LOCATION("warmelt-debug.melt:1104:/ initchunk");
15348 /*^block*/
15349 /*anyblock*/
15350 {
15351
15352
15353 MELT_CHECK_SIGNAL();
15354 ;
15355 /*^apply*/
15356 /*apply*/
15357 {
15358 union meltparam_un argtab[2];
15359 memset(&argtab, 0, sizeof(argtab));
15360 /*^apply.arg*/
15361 argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALDATA___V136*/ meltfptr[135];
15362 /*^apply.arg*/
15363 argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V287*/ meltfptr[286];
15364 /*_.INSTALL_METHOD__V420*/
15365 meltfptr[402] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V23*/ meltfptr[22]), (melt_ptr_t)(/*_.DISCR_MAP_OBJECTS__V15*/ meltfptr[14]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
15366 }
15367 ;
15368 /*epilog*/
15369
15370 /*^clear*/
15371 /*clear*/ /*_.INSTALL_METHOD__V420*/
15372 meltfptr[402] = 0 ;
15373 }
15374
15375 MELT_LOCATION("warmelt-debug.melt:1186:/ initchunk");
15376 /*^block*/
15377 /*anyblock*/
15378 {
15379
15380
15381 MELT_CHECK_SIGNAL();
15382 ;
15383 /*^apply*/
15384 /*apply*/
15385 {
15386 union meltparam_un argtab[2];
15387 memset(&argtab, 0, sizeof(argtab));
15388 /*^apply.arg*/
15389 argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALDATA___V136*/ meltfptr[135];
15390 /*^apply.arg*/
15391 argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V302*/ meltfptr[301];
15392 /*_.INSTALL_METHOD__V421*/
15393 meltfptr[403] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V23*/ meltfptr[22]), (melt_ptr_t)(/*_.DISCR_MAP_STRINGS__V45*/ meltfptr[44]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
15394 }
15395 ;
15396 /*epilog*/
15397
15398 /*^clear*/
15399 /*clear*/ /*_.INSTALL_METHOD__V421*/
15400 meltfptr[403] = 0 ;
15401 }
15402
15403 MELT_LOCATION("warmelt-debug.melt:1224:/ initchunk");
15404 /*^block*/
15405 /*anyblock*/
15406 {
15407
15408
15409 MELT_CHECK_SIGNAL();
15410 ;
15411 /*^apply*/
15412 /*apply*/
15413 {
15414 union meltparam_un argtab[2];
15415 memset(&argtab, 0, sizeof(argtab));
15416 /*^apply.arg*/
15417 argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALDATA___V136*/ meltfptr[135];
15418 /*^apply.arg*/
15419 argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V308*/ meltfptr[307];
15420 /*_.INSTALL_METHOD__V422*/
15421 meltfptr[402] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V23*/ meltfptr[22]), (melt_ptr_t)(/*_.DISCR_BUCKET_LONGS__V46*/ meltfptr[45]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
15422 }
15423 ;
15424 /*epilog*/
15425
15426 /*^clear*/
15427 /*clear*/ /*_.INSTALL_METHOD__V422*/
15428 meltfptr[402] = 0 ;
15429 }
15430
15431 MELT_LOCATION("warmelt-debug.melt:1259:/ initchunk");
15432 /*^block*/
15433 /*anyblock*/
15434 {
15435
15436
15437 MELT_CHECK_SIGNAL();
15438 ;
15439 /*^apply*/
15440 /*apply*/
15441 {
15442 union meltparam_un argtab[2];
15443 memset(&argtab, 0, sizeof(argtab));
15444 /*^apply.arg*/
15445 argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALDATA___V136*/ meltfptr[135];
15446 /*^apply.arg*/
15447 argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V312*/ meltfptr[311];
15448 /*_.INSTALL_METHOD__V423*/
15449 meltfptr[403] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V23*/ meltfptr[22]), (melt_ptr_t)(/*_.DISCR_JSONOBJECT__V47*/ meltfptr[46]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
15450 }
15451 ;
15452 /*epilog*/
15453
15454 /*^clear*/
15455 /*clear*/ /*_.INSTALL_METHOD__V423*/
15456 meltfptr[403] = 0 ;
15457 }
15458
15459 MELT_LOCATION("warmelt-debug.melt:1284:/ initchunk");
15460 /*^block*/
15461 /*anyblock*/
15462 {
15463
15464
15465 MELT_CHECK_SIGNAL();
15466 ;
15467 /*^apply*/
15468 /*apply*/
15469 {
15470 union meltparam_un argtab[2];
15471 memset(&argtab, 0, sizeof(argtab));
15472 /*^apply.arg*/
15473 argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALDATA___V136*/ meltfptr[135];
15474 /*^apply.arg*/
15475 argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V316*/ meltfptr[315];
15476 /*_.INSTALL_METHOD__V424*/
15477 meltfptr[402] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V23*/ meltfptr[22]), (melt_ptr_t)(/*_.CLASS_ROOT__V8*/ meltfptr[7]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
15478 }
15479 ;
15480 /*epilog*/
15481
15482 /*^clear*/
15483 /*clear*/ /*_.INSTALL_METHOD__V424*/
15484 meltfptr[402] = 0 ;
15485 }
15486
15487 MELT_LOCATION("warmelt-debug.melt:1295:/ initchunk");
15488 /*^block*/
15489 /*anyblock*/
15490 {
15491
15492
15493 MELT_CHECK_SIGNAL();
15494 ;
15495 /*^apply*/
15496 /*apply*/
15497 {
15498 union meltparam_un argtab[2];
15499 memset(&argtab, 0, sizeof(argtab));
15500 /*^apply.arg*/
15501 argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALDATA___V136*/ meltfptr[135];
15502 /*^apply.arg*/
15503 argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V318*/ meltfptr[317];
15504 /*_.INSTALL_METHOD__V425*/
15505 meltfptr[403] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V23*/ meltfptr[22]), (melt_ptr_t)(/*_.DISCR_ANY_RECEIVER__V48*/ meltfptr[47]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
15506 }
15507 ;
15508 /*epilog*/
15509
15510 /*^clear*/
15511 /*clear*/ /*_.INSTALL_METHOD__V425*/
15512 meltfptr[403] = 0 ;
15513 }
15514
15515 MELT_LOCATION("warmelt-debug.melt:1313:/ initchunk");
15516 /*^block*/
15517 /*anyblock*/
15518 {
15519
15520
15521 MELT_CHECK_SIGNAL();
15522 ;
15523 /*^apply*/
15524 /*apply*/
15525 {
15526 union meltparam_un argtab[2];
15527 memset(&argtab, 0, sizeof(argtab));
15528 /*^apply.arg*/
15529 argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALDATA___V144*/ meltfptr[143];
15530 /*^apply.arg*/
15531 argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V322*/ meltfptr[321];
15532 /*_.INSTALL_METHOD__V426*/
15533 meltfptr[402] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V23*/ meltfptr[22]), (melt_ptr_t)(/*_.CLASS_ROOT__V8*/ meltfptr[7]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
15534 }
15535 ;
15536 /*epilog*/
15537
15538 /*^clear*/
15539 /*clear*/ /*_.INSTALL_METHOD__V426*/
15540 meltfptr[402] = 0 ;
15541 }
15542
15543 MELT_LOCATION("warmelt-debug.melt:1348:/ initchunk");
15544 /*^block*/
15545 /*anyblock*/
15546 {
15547
15548
15549 MELT_CHECK_SIGNAL();
15550 ;
15551 /*^apply*/
15552 /*apply*/
15553 {
15554 union meltparam_un argtab[2];
15555 memset(&argtab, 0, sizeof(argtab));
15556 /*^apply.arg*/
15557 argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALDATA___V136*/ meltfptr[135];
15558 /*^apply.arg*/
15559 argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V324*/ meltfptr[323];
15560 /*_.INSTALL_METHOD__V427*/
15561 meltfptr[403] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V23*/ meltfptr[22]), (melt_ptr_t)(/*_.CLASS_NAMED__V21*/ meltfptr[20]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
15562 }
15563 ;
15564 /*epilog*/
15565
15566 /*^clear*/
15567 /*clear*/ /*_.INSTALL_METHOD__V427*/
15568 meltfptr[403] = 0 ;
15569 }
15570
15571 MELT_LOCATION("warmelt-debug.melt:1350:/ initchunk");
15572 /*^block*/
15573 /*anyblock*/
15574 {
15575
15576
15577 /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V325*/ meltfptr[324], /*_._VALCLO___V324*/ meltfptr[323],
15578 /*quasi.cur.mod.env.ref norm.exp.val : DBGOUT_NAMEDOBJECT_METHOD*/
15579 /* check quasi.cur.mod.env.ref 385696416 */
15580 (/*_._CONTENV___V2*/ meltfptr[1])
15581 ) ;
15582 /*epilog*/
15583 }
15584
15585 MELT_LOCATION("warmelt-debug.melt:1367:/ initchunk");
15586 /*^block*/
15587 /*anyblock*/
15588 {
15589
15590
15591 MELT_CHECK_SIGNAL();
15592 ;
15593 /*^apply*/
15594 /*apply*/
15595 {
15596 union meltparam_un argtab[2];
15597 memset(&argtab, 0, sizeof(argtab));
15598 /*^apply.arg*/
15599 argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALDATA___V144*/ meltfptr[143];
15600 /*^apply.arg*/
15601 argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V328*/ meltfptr[327];
15602 /*_.INSTALL_METHOD__V428*/
15603 meltfptr[402] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V23*/ meltfptr[22]), (melt_ptr_t)(/*_.CLASS_NAMED__V21*/ meltfptr[20]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
15604 }
15605 ;
15606 /*epilog*/
15607
15608 /*^clear*/
15609 /*clear*/ /*_.INSTALL_METHOD__V428*/
15610 meltfptr[402] = 0 ;
15611 }
15612
15613 MELT_LOCATION("warmelt-debug.melt:1387:/ initchunk");
15614 /*^block*/
15615 /*anyblock*/
15616 {
15617
15618
15619 MELT_CHECK_SIGNAL();
15620 ;
15621 /*^apply*/
15622 /*apply*/
15623 {
15624 union meltparam_un argtab[2];
15625 memset(&argtab, 0, sizeof(argtab));
15626 /*^apply.arg*/
15627 argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALDATA___V144*/ meltfptr[143];
15628 /*^apply.arg*/
15629 argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V330*/ meltfptr[329];
15630 /*_.INSTALL_METHOD__V429*/
15631 meltfptr[403] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V23*/ meltfptr[22]), (melt_ptr_t)(/*_.CLASS_SYMBOL__V49*/ meltfptr[48]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
15632 }
15633 ;
15634 /*epilog*/
15635
15636 /*^clear*/
15637 /*clear*/ /*_.INSTALL_METHOD__V429*/
15638 meltfptr[403] = 0 ;
15639 }
15640
15641 MELT_LOCATION("warmelt-debug.melt:1395:/ initchunk");
15642 /*^block*/
15643 /*anyblock*/
15644 {
15645
15646
15647 MELT_CHECK_SIGNAL();
15648 ;
15649 /*^apply*/
15650 /*apply*/
15651 {
15652 union meltparam_un argtab[2];
15653 memset(&argtab, 0, sizeof(argtab));
15654 /*^apply.arg*/
15655 argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALDATA___V136*/ meltfptr[135];
15656 /*^apply.arg*/
15657 argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V334*/ meltfptr[333];
15658 /*_.INSTALL_METHOD__V430*/
15659 meltfptr[402] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V23*/ meltfptr[22]), (melt_ptr_t)(/*_.CLASS_SYMBOL__V49*/ meltfptr[48]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
15660 }
15661 ;
15662 /*epilog*/
15663
15664 /*^clear*/
15665 /*clear*/ /*_.INSTALL_METHOD__V430*/
15666 meltfptr[402] = 0 ;
15667 }
15668
15669 MELT_LOCATION("warmelt-debug.melt:1405:/ initchunk");
15670 /*^block*/
15671 /*anyblock*/
15672 {
15673
15674
15675 MELT_CHECK_SIGNAL();
15676 ;
15677 /*^apply*/
15678 /*apply*/
15679 {
15680 union meltparam_un argtab[2];
15681 memset(&argtab, 0, sizeof(argtab));
15682 /*^apply.arg*/
15683 argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALDATA___V136*/ meltfptr[135];
15684 /*^apply.arg*/
15685 argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V336*/ meltfptr[335];
15686 /*_.INSTALL_METHOD__V431*/
15687 meltfptr[403] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V23*/ meltfptr[22]), (melt_ptr_t)(/*_.CLASS_CLASS__V50*/ meltfptr[49]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
15688 }
15689 ;
15690 /*epilog*/
15691
15692 /*^clear*/
15693 /*clear*/ /*_.INSTALL_METHOD__V431*/
15694 meltfptr[403] = 0 ;
15695 }
15696
15697 MELT_LOCATION("warmelt-debug.melt:1420:/ initchunk");
15698 /*^block*/
15699 /*anyblock*/
15700 {
15701
15702
15703 MELT_CHECK_SIGNAL();
15704 ;
15705 /*^apply*/
15706 /*apply*/
15707 {
15708 union meltparam_un argtab[2];
15709 memset(&argtab, 0, sizeof(argtab));
15710 /*^apply.arg*/
15711 argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALDATA___V144*/ meltfptr[143];
15712 /*^apply.arg*/
15713 argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V340*/ meltfptr[339];
15714 /*_.INSTALL_METHOD__V432*/
15715 meltfptr[402] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V23*/ meltfptr[22]), (melt_ptr_t)(/*_.CLASS_KEYWORD__V51*/ meltfptr[50]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
15716 }
15717 ;
15718 /*epilog*/
15719
15720 /*^clear*/
15721 /*clear*/ /*_.INSTALL_METHOD__V432*/
15722 meltfptr[402] = 0 ;
15723 }
15724
15725 MELT_LOCATION("warmelt-debug.melt:1428:/ initchunk");
15726 /*^block*/
15727 /*anyblock*/
15728 {
15729
15730
15731 MELT_CHECK_SIGNAL();
15732 ;
15733 /*^apply*/
15734 /*apply*/
15735 {
15736 union meltparam_un argtab[2];
15737 memset(&argtab, 0, sizeof(argtab));
15738 /*^apply.arg*/
15739 argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALDATA___V136*/ meltfptr[135];
15740 /*^apply.arg*/
15741 argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V344*/ meltfptr[343];
15742 /*_.INSTALL_METHOD__V433*/
15743 meltfptr[403] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V23*/ meltfptr[22]), (melt_ptr_t)(/*_.CLASS_KEYWORD__V51*/ meltfptr[50]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
15744 }
15745 ;
15746 /*epilog*/
15747
15748 /*^clear*/
15749 /*clear*/ /*_.INSTALL_METHOD__V433*/
15750 meltfptr[403] = 0 ;
15751 }
15752
15753 MELT_LOCATION("warmelt-debug.melt:1445:/ initchunk");
15754 /*^block*/
15755 /*anyblock*/
15756 {
15757
15758
15759 MELT_CHECK_SIGNAL();
15760 ;
15761 /*^apply*/
15762 /*apply*/
15763 {
15764 union meltparam_un argtab[2];
15765 memset(&argtab, 0, sizeof(argtab));
15766 /*^apply.arg*/
15767 argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALDATA___V144*/ meltfptr[143];
15768 /*^apply.arg*/
15769 argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V346*/ meltfptr[345];
15770 /*_.INSTALL_METHOD__V434*/
15771 meltfptr[402] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V23*/ meltfptr[22]), (melt_ptr_t)(/*_.CLASS_CLONED_SYMBOL__V52*/ meltfptr[51]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
15772 }
15773 ;
15774 /*epilog*/
15775
15776 /*^clear*/
15777 /*clear*/ /*_.INSTALL_METHOD__V434*/
15778 meltfptr[402] = 0 ;
15779 }
15780
15781 MELT_LOCATION("warmelt-debug.melt:1454:/ initchunk");
15782 /*^block*/
15783 /*anyblock*/
15784 {
15785
15786
15787 MELT_CHECK_SIGNAL();
15788 ;
15789 /*^apply*/
15790 /*apply*/
15791 {
15792 union meltparam_un argtab[2];
15793 memset(&argtab, 0, sizeof(argtab));
15794 /*^apply.arg*/
15795 argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALDATA___V136*/ meltfptr[135];
15796 /*^apply.arg*/
15797 argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V350*/ meltfptr[349];
15798 /*_.INSTALL_METHOD__V435*/
15799 meltfptr[403] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V23*/ meltfptr[22]), (melt_ptr_t)(/*_.CLASS_CLONED_SYMBOL__V52*/ meltfptr[51]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
15800 }
15801 ;
15802 /*epilog*/
15803
15804 /*^clear*/
15805 /*clear*/ /*_.INSTALL_METHOD__V435*/
15806 meltfptr[403] = 0 ;
15807 }
15808
15809 MELT_LOCATION("warmelt-debug.melt:1526:/ initchunk");
15810 /*^block*/
15811 /*anyblock*/
15812 {
15813
15814
15815 MELT_CHECK_SIGNAL();
15816 ;
15817 /*^apply*/
15818 /*apply*/
15819 {
15820 union meltparam_un argtab[2];
15821 memset(&argtab, 0, sizeof(argtab));
15822 /*^apply.arg*/
15823 argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALDATA___V136*/ meltfptr[135];
15824 /*^apply.arg*/
15825 argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V352*/ meltfptr[351];
15826 /*_.INSTALL_METHOD__V436*/
15827 meltfptr[402] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V23*/ meltfptr[22]), (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V53*/ meltfptr[52]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
15828 }
15829 ;
15830 /*epilog*/
15831
15832 /*^clear*/
15833 /*clear*/ /*_.INSTALL_METHOD__V436*/
15834 meltfptr[402] = 0 ;
15835 }
15836
15837 MELT_LOCATION("warmelt-debug.melt:1539:/ initchunk");
15838 /*^block*/
15839 /*anyblock*/
15840 {
15841
15842
15843 MELT_CHECK_SIGNAL();
15844 ;
15845 /*^apply*/
15846 /*apply*/
15847 {
15848 union meltparam_un argtab[2];
15849 memset(&argtab, 0, sizeof(argtab));
15850 /*^apply.arg*/
15851 argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALDATA___V144*/ meltfptr[143];
15852 /*^apply.arg*/
15853 argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V360*/ meltfptr[359];
15854 /*_.INSTALL_METHOD__V437*/
15855 meltfptr[403] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V23*/ meltfptr[22]), (melt_ptr_t)(/*_.CLASS_CTYPE__V56*/ meltfptr[55]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
15856 }
15857 ;
15858 /*epilog*/
15859
15860 /*^clear*/
15861 /*clear*/ /*_.INSTALL_METHOD__V437*/
15862 meltfptr[403] = 0 ;
15863 }
15864
15865 MELT_LOCATION("warmelt-debug.melt:1549:/ initchunk");
15866 /*^block*/
15867 /*anyblock*/
15868 {
15869
15870
15871 MELT_CHECK_SIGNAL();
15872 ;
15873 /*^apply*/
15874 /*apply*/
15875 {
15876 union meltparam_un argtab[2];
15877 memset(&argtab, 0, sizeof(argtab));
15878 /*^apply.arg*/
15879 argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALDATA___V136*/ meltfptr[135];
15880 /*^apply.arg*/
15881 argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V364*/ meltfptr[363];
15882 /*_.INSTALL_METHOD__V438*/
15883 meltfptr[402] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V23*/ meltfptr[22]), (melt_ptr_t)(/*_.CLASS_CTYPE__V56*/ meltfptr[55]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
15884 }
15885 ;
15886 /*epilog*/
15887
15888 /*^clear*/
15889 /*clear*/ /*_.INSTALL_METHOD__V438*/
15890 meltfptr[402] = 0 ;
15891 }
15892
15893 MELT_LOCATION("warmelt-debug.melt:1577:/ initchunk");
15894 /*^block*/
15895 /*anyblock*/
15896 {
15897
15898
15899 MELT_CHECK_SIGNAL();
15900 ;
15901 /*^apply*/
15902 /*apply*/
15903 {
15904 union meltparam_un argtab[2];
15905 memset(&argtab, 0, sizeof(argtab));
15906 /*^apply.arg*/
15907 argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALDATA___V136*/ meltfptr[135];
15908 /*^apply.arg*/
15909 argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V366*/ meltfptr[365];
15910 /*_.INSTALL_METHOD__V439*/
15911 meltfptr[403] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V23*/ meltfptr[22]), (melt_ptr_t)(/*_.CLASS_ANY_BINDING__V57*/ meltfptr[56]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
15912 }
15913 ;
15914 /*epilog*/
15915
15916 /*^clear*/
15917 /*clear*/ /*_.INSTALL_METHOD__V439*/
15918 meltfptr[403] = 0 ;
15919 }
15920
15921 MELT_LOCATION("warmelt-debug.melt:1578:/ initchunk");
15922 /*^block*/
15923 /*anyblock*/
15924 {
15925
15926
15927 MELT_CHECK_SIGNAL();
15928 ;
15929 /*^apply*/
15930 /*apply*/
15931 {
15932 union meltparam_un argtab[2];
15933 memset(&argtab, 0, sizeof(argtab));
15934 /*^apply.arg*/
15935 argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALDATA___V144*/ meltfptr[143];
15936 /*^apply.arg*/
15937 argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V366*/ meltfptr[365];
15938 /*_.INSTALL_METHOD__V440*/
15939 meltfptr[402] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V23*/ meltfptr[22]), (melt_ptr_t)(/*_.CLASS_ANY_BINDING__V57*/ meltfptr[56]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
15940 }
15941 ;
15942 /*epilog*/
15943
15944 /*^clear*/
15945 /*clear*/ /*_.INSTALL_METHOD__V440*/
15946 meltfptr[402] = 0 ;
15947 }
15948
15949 MELT_LOCATION("warmelt-debug.melt:1591:/ initchunk");
15950 /*^block*/
15951 /*anyblock*/
15952 {
15953
15954 /*_.DEBUG_LESS__V441*/ meltfptr[403] = /*reallynil*/ NULL ;;
15955 MELT_LOCATION("warmelt-debug.melt:1591:/ quasiblock");
15956
15957
15958 /*_.CLONE_WITH_DISCRIMINANT__V442*/
15959 meltfptr[402] =
15960 meltgc_clone_with_discriminant((melt_ptr_t)(/*_._VALCLO___V370*/ meltfptr[369]), (melt_ptr_t)(/*_._VALDATA___V182*/ meltfptr[181])) ;;
15961
15962 MELT_CHECK_SIGNAL();
15963 ;
15964 MELT_LOCATION("warmelt-debug.melt:1591:/ compute");
15965 /*_.DEBUG_LESS__V5*/
15966 meltfptr[4] = /*_.CLONE_WITH_DISCRIMINANT__V442*/ meltfptr[402];;
15967
15968 /*^clear*/
15969 /*clear*/ /*_.CLONE_WITH_DISCRIMINANT__V442*/
15970 meltfptr[402] = 0 ;
15971 /*epilog*/
15972
15973 /*^clear*/
15974 /*clear*/ /*_.DEBUG_LESS__V441*/
15975 meltfptr[403] = 0 ;
15976 }
15977
15978 MELT_LOCATION("warmelt-debug.melt:1621:/ initchunk");
15979 /*^block*/
15980 /*anyblock*/
15981 {
15982
15983 /*_.DEBUG_MORE__V443*/ meltfptr[402] = /*reallynil*/ NULL ;;
15984 MELT_LOCATION("warmelt-debug.melt:1621:/ quasiblock");
15985
15986
15987 /*_.CLONE_WITH_DISCRIMINANT__V444*/
15988 meltfptr[403] =
15989 meltgc_clone_with_discriminant((melt_ptr_t)(/*_._VALCLO___V374*/ meltfptr[373]), (melt_ptr_t)(/*_._VALDATA___V182*/ meltfptr[181])) ;;
15990
15991 MELT_CHECK_SIGNAL();
15992 ;
15993 MELT_LOCATION("warmelt-debug.melt:1621:/ compute");
15994 /*_.DEBUG_MORE__V6*/
15995 meltfptr[5] = /*_.CLONE_WITH_DISCRIMINANT__V444*/ meltfptr[403];;
15996
15997 /*^clear*/
15998 /*clear*/ /*_.CLONE_WITH_DISCRIMINANT__V444*/
15999 meltfptr[403] = 0 ;
16000 /*epilog*/
16001
16002 /*^clear*/
16003 /*clear*/ /*_.DEBUG_MORE__V443*/
16004 meltfptr[402] = 0 ;
16005 }
16006
16007 MELT_LOCATION("warmelt-debug.melt:1650:/ initchunk");
16008 /*^block*/
16009 /*anyblock*/
16010 {
16011
16012
16013 /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V379*/ meltfptr[378], /*_._VALCLO___V187*/ meltfptr[186],
16014 /*quasi.cur.mod.env.ref norm.exp.val : DBG_OUT*/
16015 /* check quasi.cur.mod.env.ref 923538211 */
16016 (/*_._CONTENV___V2*/ meltfptr[1])
16017 ) ;
16018
16019 /*hookcall*/
16020 melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V381*/ meltfptr[380], /*_._VALCLO___V189*/ meltfptr[188],
16021 /*quasi.cur.mod.env.ref norm.exp.val : DBG_OUTOBJECT*/
16022 /* check quasi.cur.mod.env.ref 52574243 */
16023 (/*_._CONTENV___V2*/ meltfptr[1])
16024 ) ;
16025
16026 /*hookcall*/
16027 melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V124*/ meltfptr[123], /*_._VALDATA___V136*/ meltfptr[135],
16028 /*quasi.cur.mod.env.ref norm.exp.val : DBG_OUTPUT*/
16029 /* check quasi.cur.mod.env.ref 310522985 */
16030 (/*_._CONTENV___V2*/ meltfptr[1])
16031 ) ;
16032
16033 /*hookcall*/
16034 melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V138*/ meltfptr[137], /*_._VALDATA___V144*/ meltfptr[143],
16035 /*quasi.cur.mod.env.ref norm.exp.val : DBG_OUTPUTAGAIN*/
16036 /* check quasi.cur.mod.env.ref 405069955 */
16037 (/*_._CONTENV___V2*/ meltfptr[1])
16038 ) ;
16039
16040 /*hookcall*/
16041 melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V383*/ meltfptr[382], /*_._VALCLO___V213*/ meltfptr[212],
16042 /*quasi.cur.mod.env.ref norm.exp.val : DBGOUT_FIELDS*/
16043 /* check quasi.cur.mod.env.ref 868733961 */
16044 (/*_._CONTENV___V2*/ meltfptr[1])
16045 ) ;
16046
16047 /*hookcall*/
16048 melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V385*/ meltfptr[384], /*_._VALCLO___V215*/ meltfptr[214],
16049 /*quasi.cur.mod.env.ref norm.exp.val : DBGOUTAGAIN_FIELDS*/
16050 /* check quasi.cur.mod.env.ref 1033486247 */
16051 (/*_._CONTENV___V2*/ meltfptr[1])
16052 ) ;
16053
16054 /*hookcall*/
16055 melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V86*/ meltfptr[85], /*_._VALDATA___V88*/ meltfptr[87],
16056 /*quasi.cur.mod.env.ref norm.exp.val : DEBUG_DEPTH*/
16057 /* check quasi.cur.mod.env.ref 100012054 */
16058 (/*_._CONTENV___V2*/ meltfptr[1])
16059 ) ;
16060
16061 /*hookcall*/
16062 melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V371*/ meltfptr[370], /*_.DEBUG_LESS__V5*/ meltfptr[4],
16063 /*quasi.cur.mod.env.ref norm.exp.val : DEBUG_LESS*/
16064 /* check quasi.cur.mod.env.ref 458084558 */
16065 (/*_._CONTENV___V2*/ meltfptr[1])
16066 ) ;
16067
16068 /*hookcall*/
16069 melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V375*/ meltfptr[374], /*_.DEBUG_MORE__V6*/ meltfptr[5],
16070 /*quasi.cur.mod.env.ref norm.exp.val : DEBUG_MORE*/
16071 /* check quasi.cur.mod.env.ref 975017888 */
16072 (/*_._CONTENV___V2*/ meltfptr[1])
16073 ) ;
16074
16075 /*hookcall*/
16076 melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V178*/ meltfptr[177], /*_._VALDATA___V182*/ meltfptr[181],
16077 /*quasi.cur.mod.env.ref norm.exp.val : DISCR_DEBUG_CLOSURE*/
16078 /* check quasi.cur.mod.env.ref 852330244 */
16079 (/*_._CONTENV___V2*/ meltfptr[1])
16080 ) ;
16081
16082 /*hookcall*/
16083 melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V387*/ meltfptr[386], /*_._VALCLO___V378*/ meltfptr[377],
16084 /*quasi.cur.mod.env.ref norm.exp.val : DISPLAY_DEBUG_MESSAGE*/
16085 /* check quasi.cur.mod.env.ref 658071339 */
16086 (/*_._CONTENV___V2*/ meltfptr[1])
16087 ) ;
16088
16089 /*hookcall*/
16090 melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V389*/ meltfptr[388], /*_._VALCLO___V191*/ meltfptr[190],
16091 /*quasi.cur.mod.env.ref norm.exp.val : MELT_DEBUG_FUN*/
16092 /* check quasi.cur.mod.env.ref 285463339 */
16093 (/*_._CONTENV___V2*/ meltfptr[1])
16094 ) ;
16095
16096 /*hookcall*/
16097 melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V104*/ meltfptr[103], /*_._VALDATA___V106*/ meltfptr[105],
16098 /*quasi.cur.mod.env.ref norm.exp.val : MELT_HAS_FLAG_DEBUG_SET*/
16099 /* check quasi.cur.mod.env.ref 839140876 */
16100 (/*_._CONTENV___V2*/ meltfptr[1])
16101 ) ;
16102
16103 /*hookcall*/
16104 melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V111*/ meltfptr[110], /*_._VALDATA___V113*/ meltfptr[112],
16105 /*quasi.cur.mod.env.ref norm.exp.val : MELT_REALLY_NEED_DBGLIM*/
16106 /* check quasi.cur.mod.env.ref 285629947 */
16107 (/*_._CONTENV___V2*/ meltfptr[1])
16108 ) ;
16109
16110 /*hookcall*/
16111 melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V93*/ meltfptr[92], /*_._VALDATA___V95*/ meltfptr[94],
16112 /*quasi.cur.mod.env.ref norm.exp.val : MELT_REALLY_NEED_DEBUG*/
16113 /* check quasi.cur.mod.env.ref 230733887 */
16114 (/*_._CONTENV___V2*/ meltfptr[1])
16115 ) ;
16116
16117 /*hookcall*/
16118 melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V391*/ meltfptr[390], /*_._VALCLO___V172*/ meltfptr[171],
16119 /*quasi.cur.mod.env.ref norm.exp.val : REGISTER_BASICBLOCK_DEBUG_FUN*/
16120 /* check quasi.cur.mod.env.ref 930008216 */
16121 (/*_._CONTENV___V2*/ meltfptr[1])
16122 ) ;
16123
16124 /*hookcall*/
16125 melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V393*/ meltfptr[392], /*_._VALCLO___V167*/ meltfptr[166],
16126 /*quasi.cur.mod.env.ref norm.exp.val : REGISTER_EDGE_DEBUG_FUN*/
16127 /* check quasi.cur.mod.env.ref 235705431 */
16128 (/*_._CONTENV___V2*/ meltfptr[1])
16129 ) ;
16130
16131 /*hookcall*/
16132 melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V395*/ meltfptr[394], /*_._VALCLO___V157*/ meltfptr[156],
16133 /*quasi.cur.mod.env.ref norm.exp.val : REGISTER_GIMPLE_DEBUG_FUN*/
16134 /* check quasi.cur.mod.env.ref 106134238 */
16135 (/*_._CONTENV___V2*/ meltfptr[1])
16136 ) ;
16137
16138 /*hookcall*/
16139 melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V397*/ meltfptr[396], /*_._VALCLO___V162*/ meltfptr[161],
16140 /*quasi.cur.mod.env.ref norm.exp.val : REGISTER_GIMPLESEQ_DEBUG_FUN*/
16141 /* check quasi.cur.mod.env.ref 721919551 */
16142 (/*_._CONTENV___V2*/ meltfptr[1])
16143 ) ;
16144
16145 /*hookcall*/
16146 melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V399*/ meltfptr[398], /*_._VALCLO___V177*/ meltfptr[176],
16147 /*quasi.cur.mod.env.ref norm.exp.val : REGISTER_LOOP_DEBUG_FUN*/
16148 /* check quasi.cur.mod.env.ref 654630670 */
16149 (/*_._CONTENV___V2*/ meltfptr[1])
16150 ) ;
16151
16152 /*hookcall*/
16153 melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V401*/ meltfptr[400], /*_._VALCLO___V152*/ meltfptr[151],
16154 /*quasi.cur.mod.env.ref norm.exp.val : REGISTER_TREE_DEBUG_FUN*/
16155 /* check quasi.cur.mod.env.ref 685423779 */
16156 (/*_._CONTENV___V2*/ meltfptr[1])
16157 ) ;
16158 /*epilog*/
16159 }
16160
16161 /**COMMENT: after toplevel body **/;
16162
16163 /**COMMENT: compute boxloc again **/;
16164
16165 /*cond*/
16166 if (/*_._CONTENV___V2*/ meltfptr[1]) /*then*/
16167 {
16168 }
16169 else /*^cond.else*/
16170 {
16171
16172 /*^compute*/
16173
16174 /* compile2obj_initproc emitted initialization of environment reference for warmelt-debug */
16175 if (/*_._PREVENV___V4*/ meltfptr[3])
16176 {
16177 /*_._CONTENV___V2*/ meltfptr[1] = melthookproc_HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER
16178 ((melt_ptr_t) /*_._PREVENV___V4*/ meltfptr[3], "warmelt-debug") ;
16179 }
16180 else /* no prevenv */
16181 {
16182 #if MELT_HAS_INITIAL_ENVIRONMENT>0
16183 if (!melt_flag_bootstrapping)
16184 warning(0, "MELT is not creating a fresh environment reference for warmelt-debug without parent env.") ;
16185 #endif /* MELT_HAS_INITIAL_ENVIRONMENT>0 */
16186 }
16187 ;;
16188 }
16189
16190 /**COMMENT: intern symbols **/;
16191
16192 /*internsym:HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER*/
16193 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V58*/ meltfptr[57]));
16194
16195 /*internsym:CLASS_DEBUG_INFORMATION*/
16196 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V60*/ meltfptr[59]));
16197
16198 /*internsym:CLASS_ROOT*/
16199 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V62*/ meltfptr[61]));
16200
16201 /*internsym:DBGI_OUT*/
16202 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V74*/ meltfptr[73]));
16203
16204 /*internsym:DBGI_OCCMAP*/
16205 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V76*/ meltfptr[75]));
16206
16207 /*internsym:DBGI_MAXDEPTH*/
16208 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V78*/ meltfptr[77]));
16209
16210 /*internsym:CLASS_DEBUG_OUTPUT_INFORMATION*/
16211 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V80*/ meltfptr[79]));
16212
16213 /*internsym:DEBUG_DEPTH*/
16214 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V86*/ meltfptr[85]));
16215
16216 /*internsym:MELT_REALLY_NEED_DEBUG*/
16217 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V93*/ meltfptr[92]));
16218
16219 /*internsym:DEPTH*/
16220 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V98*/ meltfptr[97]));
16221
16222 /*internsym:MELT_HAS_FLAG_DEBUG_SET*/
16223 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V104*/ meltfptr[103]));
16224
16225 /*internsym:MELT_REALLY_NEED_DBGLIM*/
16226 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V111*/ meltfptr[110]));
16227
16228 /*internsym:LIMIT*/
16229 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V117*/ meltfptr[116]));
16230
16231 /*internsym:DBG_OUTPUT*/
16232 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V124*/ meltfptr[123]));
16233
16234 /*internsym:CLASS_SELECTOR*/
16235 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V126*/ meltfptr[125]));
16236
16237 /*internsym:RECV*/
16238 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V128*/ meltfptr[127]));
16239
16240 /*internsym:DBGINFO*/
16241 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V131*/ meltfptr[130]));
16242
16243 /*internsym:DBG_OUTPUTAGAIN*/
16244 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V138*/ meltfptr[137]));
16245
16246 /*internsym:TREE_DEBUG_FUNCONT*/
16247 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V146*/ meltfptr[145]));
16248
16249 /*internsym:CLASS_REFERENCE*/
16250 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V148*/ meltfptr[147]));
16251
16252 /*internsym:GIMPLE_DEBUG_FUNCONT*/
16253 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V153*/ meltfptr[152]));
16254
16255 /*internsym:GIMPLESEQ_DEBUG_FUNCONT*/
16256 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V158*/ meltfptr[157]));
16257
16258 /*internsym:EDGE_DEBUG_FUNCONT*/
16259 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V163*/ meltfptr[162]));
16260
16261 /*internsym:BASICBLOCK_DEBUG_FUNCONT*/
16262 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V168*/ meltfptr[167]));
16263
16264 /*internsym:LOOP_DEBUG_FUNCONT*/
16265 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V173*/ meltfptr[172]));
16266
16267 /*internsym:DISCR_DEBUG_CLOSURE*/
16268 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V178*/ meltfptr[177]));
16269
16270 /*internsym:CLASS_DISCRIMINANT*/
16271 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V180*/ meltfptr[179]));
16272
16273 /*internsym:DISCR_CLOSURE*/
16274 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V184*/ meltfptr[183]));
16275
16276 /*internsym:INITIAL_SYSTEM_DATA*/
16277 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V192*/ meltfptr[191]));
16278
16279 /*internsym:CLASS_SYSTEM_DATA*/
16280 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V194*/ meltfptr[193]));
16281
16282 /*internsym:DISCR_MAP_OBJECTS*/
16283 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V196*/ meltfptr[195]));
16284
16285 /*internsym:DISCR_INTEGER*/
16286 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V198*/ meltfptr[197]));
16287
16288 /*internsym:DISCR_STRBUF*/
16289 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V200*/ meltfptr[199]));
16290
16291 /*internsym:MELT_ASSERT_FAILURE_FUN*/
16292 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V202*/ meltfptr[201]));
16293
16294 /*internsym:ADD2OUT*/
16295 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V204*/ meltfptr[203]));
16296
16297 /*internsym:CSTRING_PREFIXED*/
16298 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V206*/ meltfptr[205]));
16299
16300 /*internsym:CLASS_NAMED*/
16301 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V208*/ meltfptr[207]));
16302
16303 /*internsym:CLASS_QUASI_CTYPE*/
16304 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V210*/ meltfptr[209]));
16305
16306
16307 #undef meltfram__
16308 } /*end of meltmod__WARMELTmiDEBUG__initialmeltchunk_6*/
16309
16310
16311
16312 void meltmod__WARMELTmiDEBUG__initialmeltchunk_7 (meltinitial_frame_t* meltframptr__, char meltpredefinited[])
16313 {
16314 #define meltfram__ (*meltframptr__)
16315 #undef meltcallcount
16316 #define meltcallcount 0L
16317 (void) meltpredefinited;
16318 /*internsym:INSTALL_METHOD*/
16319 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V218*/ meltfptr[217]));
16320
16321 /*internsym:DISCR_NULL_RECEIVER*/
16322 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V220*/ meltfptr[219]));
16323
16324 /*internsym:DISCR_STRING*/
16325 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V224*/ meltfptr[223]));
16326
16327 /*internsym:DISCR_VERBATIM_STRING*/
16328 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V226*/ meltfptr[225]));
16329
16330 /*internsym:DISCR_CONSTANT_INTEGER*/
16331 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V232*/ meltfptr[231]));
16332
16333 /*internsym:DISCR_DOUBLE*/
16334 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V236*/ meltfptr[235]));
16335
16336 /*internsym:DISCR_CONSTANT_DOUBLE*/
16337 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V238*/ meltfptr[237]));
16338
16339 /*internsym:DISCR_MIXED_INTEGER*/
16340 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V242*/ meltfptr[241]));
16341
16342 /*internsym:DISCR_MIXED_LOCATION*/
16343 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V246*/ meltfptr[245]));
16344
16345 /*internsym:DISCR_MIXED_BIGINT*/
16346 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V250*/ meltfptr[249]));
16347
16348 /*internsym:DISCR_MULTIPLE*/
16349 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V254*/ meltfptr[253]));
16350
16351 /*internsym:DISCR_ROUTINE*/
16352 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V259*/ meltfptr[258]));
16353
16354 /*internsym:ROUTINE_EVERY*/
16355 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V261*/ meltfptr[260]));
16356
16357 /*internsym:HOOK_EVERY*/
16358 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V266*/ meltfptr[265]));
16359
16360 /*internsym:DISCR_HOOK*/
16361 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V268*/ meltfptr[267]));
16362
16363 /*internsym:DISCR_LIST*/
16364 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V274*/ meltfptr[273]));
16365
16366 /*internsym:DISCR_PAIR*/
16367 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V278*/ meltfptr[277]));
16368
16369 /*internsym:MAPOBJECT_EVERY*/
16370 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V288*/ meltfptr[287]));
16371
16372 /*internsym:MULTIPLE_SORT*/
16373 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V290*/ meltfptr[289]));
16374
16375 /*internsym:COMPARE_OBJ_RANKED*/
16376 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V292*/ meltfptr[291]));
16377
16378 /*internsym:MULTIPLE_EVERY*/
16379 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V294*/ meltfptr[293]));
16380
16381 /*internsym:MAPSTRING_EVERY*/
16382 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V303*/ meltfptr[302]));
16383
16384 /*internsym:DISCR_MAP_STRINGS*/
16385 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V305*/ meltfptr[304]));
16386
16387 /*internsym:DISCR_BUCKET_LONGS*/
16388 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V309*/ meltfptr[308]));
16389
16390 /*internsym:DISCR_JSONOBJECT*/
16391 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V313*/ meltfptr[312]));
16392
16393 /*internsym:DISCR_ANY_RECEIVER*/
16394 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V319*/ meltfptr[318]));
16395
16396 /*internsym:DBGOUT_NAMEDOBJECT_METHOD*/
16397 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V325*/ meltfptr[324]));
16398
16399 /*internsym:CLASS_SYMBOL*/
16400 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V331*/ meltfptr[330]));
16401
16402 /*internsym:CLASS_CLASS*/
16403 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V337*/ meltfptr[336]));
16404
16405 /*internsym:CLASS_KEYWORD*/
16406 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V341*/ meltfptr[340]));
16407
16408 /*internsym:CLASS_CLONED_SYMBOL*/
16409 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V347*/ meltfptr[346]));
16410
16411 /*internsym:CLASS_ENVIRONMENT*/
16412 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V353*/ meltfptr[352]));
16413
16414 /*internsym:ENV_PREV*/
16415 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V355*/ meltfptr[354]));
16416
16417 /*internsym:CLASS_DESCRIBED_ENVIRONMENT*/
16418 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V357*/ meltfptr[356]));
16419
16420 /*internsym:CLASS_CTYPE*/
16421 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V361*/ meltfptr[360]));
16422
16423 /*internsym:CLASS_ANY_BINDING*/
16424 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V367*/ meltfptr[366]));
16425
16426 /*internsym:DEBUG_LESS*/
16427 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V371*/ meltfptr[370]));
16428
16429 /*internsym:DEBUG_MORE*/
16430 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V375*/ meltfptr[374]));
16431
16432 /*internsym:DBG_OUT*/
16433 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V379*/ meltfptr[378]));
16434
16435 /*internsym:DBG_OUTOBJECT*/
16436 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V381*/ meltfptr[380]));
16437
16438 /*internsym:DBGOUT_FIELDS*/
16439 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V383*/ meltfptr[382]));
16440
16441 /*internsym:DBGOUTAGAIN_FIELDS*/
16442 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V385*/ meltfptr[384]));
16443
16444 /*internsym:DISPLAY_DEBUG_MESSAGE*/
16445 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V387*/ meltfptr[386]));
16446
16447 /*internsym:MELT_DEBUG_FUN*/
16448 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V389*/ meltfptr[388]));
16449
16450 /*internsym:REGISTER_BASICBLOCK_DEBUG_FUN*/
16451 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V391*/ meltfptr[390]));
16452
16453 /*internsym:REGISTER_EDGE_DEBUG_FUN*/
16454 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V393*/ meltfptr[392]));
16455
16456 /*internsym:REGISTER_GIMPLE_DEBUG_FUN*/
16457 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V395*/ meltfptr[394]));
16458
16459 /*internsym:REGISTER_GIMPLESEQ_DEBUG_FUN*/
16460 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V397*/ meltfptr[396]));
16461
16462 /*internsym:REGISTER_LOOP_DEBUG_FUN*/
16463 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V399*/ meltfptr[398]));
16464
16465 /*internsym:REGISTER_TREE_DEBUG_FUN*/
16466 (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V401*/ meltfptr[400]));
16467
16468 /**COMMENT: set retinit from boxloc **/;
16469
16470 /*_._RETINIT___V1*/
16471 meltfptr[0] =
16472 /* finalsetretinit */ melt_reference_value((melt_ptr_t)(/*_._CONTENV___V2*/ meltfptr[1]));
16473 /**COMMENT: end the initproc **/;
16474
16475
16476 #undef meltfram__
16477 } /*end of meltmod__WARMELTmiDEBUG__initialmeltchunk_7*/
16478
16479
16480
16481
16482
16483
16484 /* exported 3 field offsets */
16485 MELT_EXTERN const int meltfieldoff__DBGI_MAXDEPTH;
16486 const int meltfieldoff__DBGI_MAXDEPTH = 2; /* in CLASS_DEBUG_INFORMATION */
16487 MELT_EXTERN const int meltfieldoff__DBGI_OCCMAP;
16488 const int meltfieldoff__DBGI_OCCMAP = 1; /* in CLASS_DEBUG_INFORMATION */
16489 MELT_EXTERN const int meltfieldoff__DBGI_OUT;
16490 const int meltfieldoff__DBGI_OUT = 0; /* in CLASS_DEBUG_INFORMATION */
16491
16492 /* exported 2 class lengths */
16493 MELT_EXTERN const int meltclasslen__CLASS_DEBUG_INFORMATION;
16494 const int meltclasslen__CLASS_DEBUG_INFORMATION = 3;
16495 MELT_EXTERN const int meltclasslen__CLASS_DEBUG_OUTPUT_INFORMATION;
16496 const int meltclasslen__CLASS_DEBUG_OUTPUT_INFORMATION = 3;
16497
16498
16499
16500 /**** end of warmelt-debug ****/
Mirror of the offical gcc git repository hosted at gcc.gnu.org