gcc/melt/generated/warmelt-outobj+04.cc

   1 /* GCC MELT GENERATED C++ FILE warmelt-outobj+04.cc - DO NOT EDIT - see http://gcc-melt.org/ */
   2 /* secondary MELT generated C++ file of rank #4 */
   3 #include "melt-run.h"
   4
   5
   6 /* used hash from melt-run.h when compiling this file: */
   7 MELT_EXTERN const char meltrun_used_md5_melt_f4[] = MELT_RUN_HASHMD5 /* from melt-run.h */;
   8
   9
  10 /**** warmelt-outobj+04.cc declarations ****/
  11 /**** MELT GENERATED DECLARATIONS for warmelt-outobj ** DO NOT EDIT ; see gcc-melt.org ****/
  12
  13 /****++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  14 ***
  15     Copyright (C) 2008 - 2014  Free Software Foundation, Inc.
  16     Contributed by Basile Starynkevitch <basile@starynkevitch.net>
  17
  18     This file is part of GCC.
  19
  20     GCC is free software; you can redistribute it and/or modify
  21     it under the terms of the GNU General Public License as published by
  22     the Free Software Foundation; either version 3, or (at your option)
  23     any later version.
  24
  25     GCC is distributed in the hope that it will be useful,
  26     but WITHOUT ANY WARRANTY; without even the implied warranty of
  27     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  28     GNU General Public License for more details.
  29
  30     You should have received a copy of the GNU General Public License
  31     along with GCC; see the file COPYING3.  If not see
  32     <http://www.gnu.org/licenses/>.
  33 ***
  34 ----------------------------------------------------------------****/
  35
  36
  37 /** ordinary MELT module meltbuild-sources/warmelt-outobj**/
  38 #define MELT_HAS_INITIAL_ENVIRONMENT 1 /*usualmodule*/
  39
  40
  41
  42 class Melt_InitialClassyFrame_WARMELTmiOUTOBJ_h735144253; // forward declaration fromline 6691
  43 typedef Melt_InitialClassyFrame_WARMELTmiOUTOBJ_h735144253 Melt_InitialFrame;
  44 /*** 1 MELT module variables declarations ****/
  45 MELT_EXTERN void melt_forwarding_module_data (void);
  46 MELT_EXTERN void melt_marking_module_data (void);
  47
  48 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY melt_WARMELTmiOUTOBJ_module_var_ptr_tab[16];
  49 MELT_EXTERN bool MELT_MODULE_VISIBILITY melt_WARMELTmiOUTOBJ_module_var_flags[1];
  50
  51 static inline melt_ptr_t
  52 melt_module_var_fetch (int ix)
  53 {
  54     return (ix > 0  &&  ix <= 1)?melt_WARMELTmiOUTOBJ_module_var_ptr_tab[ix]:NULL;
  55 }
  56
  57 static inline void
  58 melt_module_var_put (int ix, melt_ptr_t val)
  59 {
  60     if (ix > 0  &&  ix <= 1)
  61         {
  62             melt_WARMELTmiOUTOBJ_module_var_ptr_tab[ix]= val;
  63             melt_WARMELTmiOUTOBJ_module_var_flags[ix/16] = true;
  64         }
  65 }
  66
  67 /* MELT module variables indexes */
  68 enum
  69 {
  70     meltmodatix_none,
  71     meltmodvarix_FLAGVAL_OUTPUT_DESCR_COMMENT_symb = 1,
  72     meltmodatix_last
  73 }; /* end MELT module variables indexes */
  74
  75 /*** 4 MELT called hook declarations ***/
  76
  77 /*declare MELT called hook #0 HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER **/
  78 MELT_EXTERN melt_ptr_t melthook_HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER (melt_ptr_t melthookdatap, melt_ptr_t meltinp0_PREVENV, const char* meltinp1_MODULNAME);
  79
  80 /*declare MELT called hook #1 HOOK_MELT_MAKE_LOCATION **/
  81 MELT_EXTERN melt_ptr_t melthook_HOOK_MELT_MAKE_LOCATION (melt_ptr_t melthookdatap, const char* meltinp0_FILENAME, long meltinp1_LINENO);
  82
  83 /*declare MELT called hook #2 HOOK_SYMBOL_IMPORTER **/
  84 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);
  85
  86 /*declare MELT called hook #3 HOOK_VALUE_EXPORTER **/
  87 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);
  88
  89 /*** end of 4 MELT called hook declarations ***/
  90
  91 /*** no extra MELT c-headers ***/
  92
  93
  94
  95
  96 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_1_WARMELTmiOUTOBJ_DO_OUTPUT_DESCRIPTIVE_COMMENT(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_);
  97
  98
  99
 100
 101 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_2_WARMELTmiOUTOBJ_OUTPUT_DESCRIPTIVE_COMMENT(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_);
 102
 103
 104
 105
 106 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_3_WARMELTmiOUTOBJ_GET_CODE_BUFFER_LIMIT(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_);
 107
 108
 109
 110
 111 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_4_WARMELTmiOUTOBJ_PUT_CODE_BUFFER_LIMIT(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_);
 112
 113
 114
 115
 116 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_5_WARMELTmiOUTOBJ_OUT_ENUMIX_MODVARBIND(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_);
 117
 118
 119
 120
 121 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_6_WARMELTmiOUTOBJ_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_);
 122
 123
 124
 125
 126 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_7_WARMELTmiOUTOBJ_INITIAL_CLASSY_FRAME_NAME(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_);
 127
 128
 129
 130
 131 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_8_WARMELTmiOUTOBJ_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_);
 132
 133
 134
 135
 136 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_9_WARMELTmiOUTOBJ_OUTDECLINIT_ROOT(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_);
 137
 138
 139
 140
 141 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_10_WARMELTmiOUTOBJ_OUTPUCOD_OBJINIELEM(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_);
 142
 143
 144
 145
 146 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_11_WARMELTmiOUTOBJ_OUTCINITFILL_ROOT(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_);
 147
 148
 149
 150
 151 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_12_WARMELTmiOUTOBJ_OUTCINITPREDEF_ROOT(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_);
 152
 153
 154
 155
 156 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_13_WARMELTmiOUTOBJ_OUTPUT_PREDEF(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_);
 157
 158
 159
 160
 161 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_14_WARMELTmiOUTOBJ_OUTPUCOD_PREDEF(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_);
 162
 163
 164
 165
 166 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_15_WARMELTmiOUTOBJ_OUTPUCOD_NIL(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_);
 167
 168
 169
 170
 171 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_16_WARMELTmiOUTOBJ_OUTPUCOD_OBJEXPANDPUREVAL(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_);
 172
 173
 174
 175
 176 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_17_WARMELTmiOUTOBJ_OUTPUCOD_OBJHOOKNTH(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_);
 177
 178
 179
 180
 181 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_18_WARMELTmiOUTOBJ_OUTDECLINIT_OBJINITOBJECT(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_);
 182
 183
 184
 185
 186 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_19_WARMELTmiOUTOBJ_OUTCINITFILL_OBJINITOBJECT(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_);
 187
 188
 189
 190
 191 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_20_WARMELTmiOUTOBJ_OUTCINITPREDEF_OBJINITOBJECT(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_);
 192
 193
 194
 195
 196 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_21_WARMELTmiOUTOBJ_OUTCINITPREDEF_OBJINITHOOK(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_);
 197
 198
 199
 200
 201 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_22_WARMELTmiOUTOBJ_OUTDECLINIT_OBJINITMULTIPLE(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_);
 202
 203
 204
 205
 206 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_23_WARMELTmiOUTOBJ_OUTCINITFILL_OBJINITMULTIPLE(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_);
 207
 208
 209
 210
 211 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_24_WARMELTmiOUTOBJ_OUTDECLINIT_OBJINITCLOSURE(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_);
 212
 213
 214
 215
 216 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_25_WARMELTmiOUTOBJ_OUTCINITFILL_OBJINITCLOSURE(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_);
 217
 218
 219
 220
 221 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_26_WARMELTmiOUTOBJ_OUTDECLINIT_OBJINITROUTINE(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_);
 222
 223
 224
 225
 226 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_27_WARMELTmiOUTOBJ_OUTCINITFILL_OBJINITROUTINE(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_);
 227
 228
 229
 230
 231 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_28_WARMELTmiOUTOBJ_OUTDECLINIT_OBJINITHOOK(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_);
 232
 233
 234
 235
 236 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_29_WARMELTmiOUTOBJ_OUTCINITFILL_OBJINITHOOK(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_);
 237
 238
 239
 240
 241 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_30_WARMELTmiOUTOBJ_OUTDECLINIT_OBJINITSTRING(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_);
 242
 243
 244
 245
 246 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_31_WARMELTmiOUTOBJ_OUTCINITFILL_OBJINITSTRING(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_);
 247
 248
 249
 250
 251 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_32_WARMELTmiOUTOBJ_OUTDECLINIT_OBJINITBOXEDINTEGER(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_);
 252
 253
 254
 255
 256 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_33_WARMELTmiOUTOBJ_OUTCINITFILL_OBJINITBOXEDINTEGER(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_);
 257
 258
 259
 260
 261 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_34_WARMELTmiOUTOBJ_OUTDECLINIT_OBJINITPAIR(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_);
 262
 263
 264
 265
 266 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_35_WARMELTmiOUTOBJ_OUTCINITFILL_OBJINITPAIR(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_);
 267
 268
 269
 270
 271 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_36_WARMELTmiOUTOBJ_OUTDECLINIT_OBJINITLIST(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_);
 272
 273
 274
 275
 276 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_37_WARMELTmiOUTOBJ_OUTCINITFILL_OBJINITLIST(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_);
 277
 278
 279
 280
 281 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_38_WARMELTmiOUTOBJ_OUTPUCOD_ANYDISCR(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_);
 282
 283
 284
 285
 286 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_39_WARMELTmiOUTOBJ_OUTPUCOD_NULL(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_);
 287
 288
 289
 290
 291 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_40_WARMELTmiOUTOBJ_OUTPUCOD_CATCHALL_ROOT(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_);
 292
 293
 294
 295
 296 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_41_WARMELTmiOUTOBJ_OUTPUT_RAW_LOCATION(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_);
 297
 298
 299
 300
 301 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_42_WARMELTmiOUTOBJ_LINE_AND_FILE_OF_LOCATION(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_);
 302
 303
 304
 305
 306 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_43_WARMELTmiOUTOBJ_OUTPUT_LOCATION(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_);
 307
 308
 309
 310
 311 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_44_WARMELTmiOUTOBJ_OUTPUT_CURFRAME_DECLSTRUCT(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_);
 312
 313
 314
 315
 316 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_45_WARMELTmiOUTOBJ_OUTPUT_CURFRAME_DECLSTRUCT_INIT(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_);
 317
 318
 319
 320
 321 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_46_WARMELTmiOUTOBJ_OUTPUCOD_PROCROUTINE(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_);
 322
 323
 324
 325
 326 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_47_WARMELTmiOUTOBJ_OUTPUT_CURFRAME_CDAT_STRUCT(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_);
 327
 328
 329
 330
 331 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_48_WARMELTmiOUTOBJ_OUTPUT_CURFRAME_CDAT_FILL(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_);
 332
 333
 334
 335
 336 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_49_WARMELTmiOUTOBJ_OUTPUCOD_INITIALMODULEROUTINE(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_);
 337
 338
 339
 340
 341 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_50_WARMELTmiOUTOBJ_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_);
 342
 343
 344
 345
 346 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_51_WARMELTmiOUTOBJ_OUTPUT_CENTRALDECL_HOOKROUTINE(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_);
 347
 348
 349
 350
 351 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_52_WARMELTmiOUTOBJ_OUTPUCOD_HOOKROUTINE(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_);
 352
 353
 354
 355
 356 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_53_WARMELTmiOUTOBJ_OUTPUCOD_INITIALEXTENSIONROUTINE(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_);
 357
 358
 359
 360
 361 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_54_WARMELTmiOUTOBJ_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_);
 362
 363
 364
 365
 366 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_55_WARMELTmiOUTOBJ_OUTPUCOD_GETARG(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_);
 367
 368
 369
 370
 371 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_56_WARMELTmiOUTOBJ_OUTPUCOD_GETARGREST(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_);
 372
 373
 374
 375
 376 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_57_WARMELTmiOUTOBJ_OUTPUCOD_OBJCFORMAL(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_);
 377
 378
 379
 380
 381 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_58_WARMELTmiOUTOBJ_OUTPUCOD_OBJFETCHMODVAR(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_);
 382
 383
 384
 385
 386 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_59_WARMELTmiOUTOBJ_OUTPUCOD_OBJPUTMODVAR(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_);
 387
 388
 389
 390
 391 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_60_WARMELTmiOUTOBJ_OUTPUCOD_OBJPUTOUTARG(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_);
 392
 393
 394
 395
 396 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_61_WARMELTmiOUTOBJ_OUTPUCOD_OBJLOCV(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_);
 397
 398
 399
 400
 401 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_62_WARMELTmiOUTOBJ_OUTPUCOD_OBJCLOCCV(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_);
 402
 403
 404
 405
 406 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_63_WARMELTmiOUTOBJ_OUTPUCOD_OBJCLOHOOKV(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_);
 407
 408
 409
 410
 411 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_64_WARMELTmiOUTOBJ_OUTPUCOD_OBJCONSTV(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_);
 412
 413
 414
 415
 416 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_65_WARMELTmiOUTOBJ_OUTPUT_CODE_INSTRUCTIONS_LIST(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_);
 417
 418
 419
 420
 421 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_66_WARMELTmiOUTOBJ_OUTPUCOD_OBJCHECKSIGNAL(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_);
 422
 423
 424
 425
 426 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_67_WARMELTmiOUTOBJ_OUTPUCOD_OBJANYBLOCK(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_);
 427
 428
 429
 430
 431 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_68_WARMELTmiOUTOBJ_OUTPUCOD_OBJFLAG(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_);
 432
 433
 434
 435
 436 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_69_WARMELTmiOUTOBJ_OUTPUCOD_OBJMATCHFLAGBLOCK(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_);
 437
 438
 439
 440
 441 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_70_WARMELTmiOUTOBJ_OUTPUCOD_OBJMULTIALLOCBLOCK(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_);
 442
 443
 444
 445
 446 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_71_WARMELTmiOUTOBJ_OUTPUCOD_OBJCITERBLOCK(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_);
 447
 448
 449
 450
 451 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_72_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOMMENTINSTR(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_);
 452
 453
 454
 455
 456 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_73_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOMMENTEDBLOCK(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_);
 457
 458
 459
 460
 461 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_74_WARMELTmiOUTOBJ_OUTPUCOD_OBJLABELINSTR(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_);
 462
 463
 464
 465
 466 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_75_WARMELTmiOUTOBJ_OUTPUCOD_OBJGOTOINSTR(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_);
 467
 468
 469
 470
 471 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_76_WARMELTmiOUTOBJ_ADD2SBUF_CLONSYM(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_);
 472
 473
 474
 475
 476 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_77_WARMELTmiOUTOBJ_OUTPUCOD_OBJLOOP(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_);
 477
 478
 479
 480
 481 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_78_WARMELTmiOUTOBJ_OUTPUCOD_OBJEXIT(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_);
 482
 483
 484
 485
 486 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_79_WARMELTmiOUTOBJ_OUTPUCOD_OBJAGAIN(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_);
 487
 488
 489
 490
 491 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_80_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOMPUTE(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_);
 492
 493
 494
 495
 496 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_81_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOND(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_);
 497
 498
 499
 500
 501 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_82_WARMELTmiOUTOBJ_OUTPUCOD_OBJCPPIF(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_);
 502
 503
 504
 505
 506 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_83_WARMELTmiOUTOBJ_OUTPUCOD_OBJINTERNSYMBOL(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_);
 507
 508
 509
 510
 511 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_84_WARMELTmiOUTOBJ_OUTPUCOD_OBJINTERNKEYWORD(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_);
 512
 513
 514
 515
 516 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_85_WARMELTmiOUTOBJ_OUTPUCOD_OBJGETNAMEDSYMBOL(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_);
 517
 518
 519
 520
 521 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_86_WARMELTmiOUTOBJ_OUTPUCOD_OBJGETNAMEDKEYWORD(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_);
 522
 523
 524
 525
 526 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_87_WARMELTmiOUTOBJ_OUTPUCOD_OBJAPPLY(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_);
 527
 528
 529
 530
 531 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_88_WARMELTmiOUTOBJ_OUTPUCOD_OBJMSEND(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_);
 532
 533
 534
 535
 536 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_89_WARMELTmiOUTOBJ_OUTPUCOD_OBJMULTIAPPLY(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_);
 537
 538
 539
 540
 541 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_90_WARMELTmiOUTOBJ_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_);
 542
 543
 544
 545
 546 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_91_WARMELTmiOUTOBJ_OUTPUCOD_OBJMULTIMSEND(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_);
 547
 548
 549
 550
 551 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_92_WARMELTmiOUTOBJ_OUTPUCOD_OBJCLEAR(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_);
 552
 553
 554
 555
 556 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_93_WARMELTmiOUTOBJ_OUTPUCOD_OBJRAWALLOCOBJ(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_);
 557
 558
 559
 560
 561 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_94_WARMELTmiOUTOBJ_OUTPUCOD_OBJNEWCLOSURE(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_);
 562
 563
 564
 565
 566 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_95_WARMELTmiOUTOBJ_OUTPUCOD_OBJTOUCH(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_);
 567
 568
 569
 570
 571 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_96_WARMELTmiOUTOBJ_OUTPUCOD_DBGTRACEWRITEOBJ(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_);
 572
 573
 574
 575
 576 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_97_WARMELTmiOUTOBJ_OUTPUCOD_OBJPUTUPLE(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_);
 577
 578
 579
 580
 581 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_98_WARMELTmiOUTOBJ_OUTPUCOD_OBJPUTPAIRHEAD(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_);
 582
 583
 584
 585
 586 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_99_WARMELTmiOUTOBJ_OUTPUCOD_OBJPUTPAIRTAIL(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_);
 587
 588
 589
 590
 591 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_100_WARMELTmiOUTOBJ_OUTPUCOD_OBJPUTLIST(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_);
 592
 593
 594
 595
 596 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_101_WARMELTmiOUTOBJ_OUTPUCOD_OBJGETSLOT(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_);
 597
 598
 599
 600
 601 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_102_WARMELTmiOUTOBJ_OUTPUCOD_OBJPUTSLOT(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_);
 602
 603
 604
 605
 606 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_103_WARMELTmiOUTOBJ_OUTPUCOD_OBJPUTCLOSUROUT(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_);
 607
 608
 609
 610
 611 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_104_WARMELTmiOUTOBJ_OUTPUCOD_OBJPUTCLOSEDV(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_);
 612
 613
 614
 615
 616 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_105_WARMELTmiOUTOBJ_OUTPUCOD_OBJPUTCLOSEDNOTNULLV(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_);
 617
 618
 619
 620
 621 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_106_WARMELTmiOUTOBJ_OUTPUCOD_OBJPUTROUTCONST(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_);
 622
 623
 624
 625
 626 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_107_WARMELTmiOUTOBJ_OUTPUCOD_OBJPUTROUTCONSTNOTNULL(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_);
 627
 628
 629
 630
 631 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_108_WARMELTmiOUTOBJ_OUTPUCOD_OBJPUTHOOKCONST(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_);
 632
 633
 634
 635
 636 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_109_WARMELTmiOUTOBJ_OUTPUCOD_OBJPUTHOOKDATA(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_);
 637
 638
 639
 640
 641 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_110_WARMELTmiOUTOBJ_OUTPUCOD_OBJPUTXTRARESULT(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_);
 642
 643
 644
 645
 646 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_111_WARMELTmiOUTOBJ_OUTPUCOD_OBJEXPV(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_);
 647
 648
 649
 650
 651 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_112_WARMELTmiOUTOBJ_OUTPUCOD_OBJLOCATEDEXPV(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_);
 652
 653
 654
 655
 656 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_113_WARMELTmiOUTOBJ_OUTPUCOD_VERBATIMSTRING(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_);
 657
 658
 659
 660
 661 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_114_WARMELTmiOUTOBJ_OUTPUCOD_STRING(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_);
 662
 663
 664
 665
 666 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_115_WARMELTmiOUTOBJ_OUTPUCOD_INTEGER(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_);
 667
 668
 669
 670
 671 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_116_WARMELTmiOUTOBJ_OUTPUCOD_FINALRETURN(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_);
 672
 673
 674
 675
 676 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_117_WARMELTmiOUTOBJ_SORTED_NAMED_DICT_TUPLE(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_);
 677
 678
 679
 680
 681 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_118_WARMELTmiOUTOBJ_OUTPUT_EXPORTED_OFFSETS(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_);
 682
 683
 684
 685
 686 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_119_WARMELTmiOUTOBJ_NTH_SECUNDARY_FILE(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_);
 687
 688
 689
 690
 691 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_120_WARMELTmiOUTOBJ_OUTPUT_MELT_DESCRIPTOR(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_);
 692
 693
 694
 695
 696 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_121_WARMELTmiOUTOBJ_SYNTESTGEN_ANY(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_);
 697
 698
 699
 700
 701 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_122_WARMELTmiOUTOBJ_SUBSTITUTE_FORMALS_FOR_SYNTEST(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_);
 702
 703
 704
 705
 706 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_123_WARMELTmiOUTOBJ_EXPAND_TUPLE_FOR_SYNTEST(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_);
 707
 708
 709
 710
 711 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_124_WARMELTmiOUTOBJ_SYNTESTGEN_PRIMITIVE(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_);
 712
 713
 714
 715
 716 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_125_WARMELTmiOUTOBJ_SYNTESTGEN_CITERATOR(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_);
 717
 718
 719
 720
 721 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_126_WARMELTmiOUTOBJ_SYNTESTGEN_CMATCHER(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_);
 722
 723
 724
 725
 726 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_127_WARMELTmiOUTOBJ_EMIT_SYNTAX_TESTING_ROUTINE(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_);
 727
 728
 729
 730
 731 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_128_WARMELTmiOUTOBJ_GIVE_NORMALIZED_MACROEXPANDED_LIST(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_);
 732
 733
 734
 735
 736 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_129_WARMELTmiOUTOBJ_OUTPUT_HOOKS_WITH_MODVAR(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_);
 737
 738
 739
 740
 741 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_130_WARMELTmiOUTOBJ_TRANSLATE_MACROEXPANDED_LIST(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_);
 742
 743
 744
 745
 746 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_131_WARMELTmiOUTOBJ_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_);
 747
 748
 749
 750
 751 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_132_WARMELTmiOUTOBJ_FATAL_COMPILE_ERROR(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_);
 752
 753
 754
 755
 756 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_133_WARMELTmiOUTOBJ_COMPILE_LIST_SEXPR(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_);
 757
 758
 759
 760
 761 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_134_WARMELTmiOUTOBJ_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_);
 762
 763
 764
 765
 766 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_135_WARMELTmiOUTOBJ_COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR(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_);
 767
 768
 769
 770
 771 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_136_WARMELTmiOUTOBJ_LAMBDA_cl8(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_);
 772
 773
 774
 775
 776 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_137_WARMELTmiOUTOBJ_AUTOBOX_NORMAL_RETURN(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_);
 777
 778
 779
 780
 781 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_138_WARMELTmiOUTOBJ_TRANSLATE_RUN_MELT_EXPRESSIONS(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_);
 782
 783
 784
 785
 786 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_139_WARMELTmiOUTOBJ_LAMBDA_cl9(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_);
 787
 788
 789
 790
 791 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_140_WARMELTmiOUTOBJ_LAMBDA_cl10(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_);
 792
 793
 794
 795
 796 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_141_WARMELTmiOUTOBJ_LAMBDA_cl11(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_);
 797
 798
 799
 800
 801 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_142_WARMELTmiOUTOBJ_MELT_TRANSLATE_RUN_MACROEXPANSIONS_LIST(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_);
 802
 803
 804
 805
 806 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_143_WARMELTmiOUTOBJ_LAMBDA_cl12(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_);
 807
 808
 809
 810
 811 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_144_WARMELTmiOUTOBJ_READ_MELT_EXPRESSIONS(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_);
 812
 813
 814
 815
 816 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_145_WARMELTmiOUTOBJ_TRANSLATE_TO_CC_MODULE_MELT_SOURCES(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_);
 817
 818
 819
 820
 821 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_146_WARMELTmiOUTOBJ_EVAL(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_);
 822
 823
 824
 825
 826 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_147_WARMELTmiOUTOBJ_GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT(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_);
 827
 828
 829 MELT_EXTERN MELT_LOW_OPTIMIZATION void* melt_start_this_module (void*); /*mandatory start of module*/
 830
 831 MELT_EXTERN const char melt_module_is_gpl_compatible[];
 832
 833 /*declare opaque initial frame: */
 834
 835 typedef Melt_InitialClassyFrame_WARMELTmiOUTOBJ_h735144253 /*opaqueinitialclassy*/ meltinitial_frame_t;
 836
 837
 838 /* define different names when debugging or not */
 839 #if MELT_HAVE_DEBUG
 840 MELT_EXTERN const char meltmodule_WARMELTmiOUTOBJ__melt_have_debug_enabled[];
 841 #define melt_have_debug_string meltmodule_WARMELTmiOUTOBJ__melt_have_debug_enabled
 842 #else /*!MELT_HAVE_DEBUG*/
 843 MELT_EXTERN const char meltmodule_WARMELTmiOUTOBJ__melt_have_debug_disabled[];
 844 #define melt_have_debug_string meltmodule_WARMELTmiOUTOBJ__melt_have_debug_disabled
 845 #endif /*!MELT_HAVE_DEBUG*/
 846
 847
 848
 849 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiOUTOBJ__initialmeltchunk_0 (meltinitial_frame_t*, char*); //declare
 850
 851 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiOUTOBJ__initialmeltchunk_1 (meltinitial_frame_t*, char*); //declare
 852
 853 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiOUTOBJ__initialmeltchunk_2 (meltinitial_frame_t*, char*); //declare
 854
 855 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiOUTOBJ__initialmeltchunk_3 (meltinitial_frame_t*, char*); //declare
 856
 857 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiOUTOBJ__initialmeltchunk_4 (meltinitial_frame_t*, char*); //declare
 858
 859 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiOUTOBJ__initialmeltchunk_5 (meltinitial_frame_t*, char*); //declare
 860
 861 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiOUTOBJ__initialmeltchunk_6 (meltinitial_frame_t*, char*); //declare
 862
 863 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiOUTOBJ__initialmeltchunk_7 (meltinitial_frame_t*, char*); //declare
 864
 865 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiOUTOBJ__initialmeltchunk_8 (meltinitial_frame_t*, char*); //declare
 866
 867 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiOUTOBJ__initialmeltchunk_9 (meltinitial_frame_t*, char*); //declare
 868
 869 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiOUTOBJ__initialmeltchunk_10 (meltinitial_frame_t*, char*); //declare
 870
 871 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiOUTOBJ__initialmeltchunk_11 (meltinitial_frame_t*, char*); //declare
 872
 873 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiOUTOBJ__initialmeltchunk_12 (meltinitial_frame_t*, char*); //declare
 874
 875 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiOUTOBJ__initialmeltchunk_13 (meltinitial_frame_t*, char*); //declare
 876
 877 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiOUTOBJ__initialmeltchunk_14 (meltinitial_frame_t*, char*); //declare
 878
 879 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiOUTOBJ__initialmeltchunk_15 (meltinitial_frame_t*, char*); //declare
 880
 881 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiOUTOBJ__initialmeltchunk_16 (meltinitial_frame_t*, char*); //declare
 882
 883 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiOUTOBJ__initialmeltchunk_17 (meltinitial_frame_t*, char*); //declare
 884
 885 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiOUTOBJ__initialmeltchunk_18 (meltinitial_frame_t*, char*); //declare
 886
 887 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiOUTOBJ__initialmeltchunk_19 (meltinitial_frame_t*, char*); //declare
 888
 889 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiOUTOBJ__initialmeltchunk_20 (meltinitial_frame_t*, char*); //declare
 890
 891 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiOUTOBJ__initialmeltchunk_21 (meltinitial_frame_t*, char*); //declare
 892
 893 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiOUTOBJ__initialmeltchunk_22 (meltinitial_frame_t*, char*); //declare
 894
 895
 896
 897 /**** warmelt-outobj+04.cc implementations ****/
 898
 899
 900
 901
 902 melt_ptr_t MELT_MODULE_VISIBILITY
 903 meltrout_72_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOMMENTINSTR(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_,
 904         const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_)
 905 {
 906     long current_blocklevel_signals_meltrout_72_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOMMENTINSTR_melt =  melt_blocklevel_signals;
 907
 908 #if MELT_HAVE_DEBUG
 909     static long melt_call_counter__;
 910     long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__;
 911 #undef meltcallcount
 912 #define meltcallcount melt_thiscallcounter__
 913 #else
 914 #undef meltcallcount
 915 #define meltcallcount 0L
 916 #endif
 917 //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538
 918
 919     /* start of frame for routine meltrout_72_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOMMENTINSTR fromline 1752 */
 920
 921     /** start of frame for meltrout_72_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOMMENTINSTR of CLASS_PROCROUTINEOBJ from 1555**/
 922
 923     /*curframdeclclassy*/ class MeltFrame_meltrout_72_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOMMENTINSTR// fromline 1568
 924         : public Melt_CallFrameWithValues<19>
 925     {
 926     public: /* fromline 1572*/
 927         long mcfr_varnum[5];
 928         /*classy others*/
 929         long _meltsparel;
 930         void melt_mark_stuff (void)
 931         {
 932         } /*end melt_mark_stuff*/
 933         virtual void melt_mark_ggc_data (void)
 934         {
 935             melt_mark_values ();
 936             melt_mark_stuff ();
 937         }; /*end melt_mark_ggc_data*/
 938         MeltFrame_meltrout_72_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOMMENTINSTR(meltclosure_ptr_t clos) //the closure constructor fromline 1630
 939             : Melt_CallFrameWithValues<19> (
 940 #if ENABLE_CHECKING /*fromline 1634*/
 941                 __FILE__, __LINE__,
 942 #endif /* ENABLE_CHECKING fromline 1638*/
 943                 sizeof(MeltFrame_meltrout_72_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOMMENTINSTR), clos) {};
 944         MeltFrame_meltrout_72_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOMMENTINSTR() //the constructor fromline 1642
 945             : Melt_CallFrameWithValues<19> (
 946 #if ENABLE_CHECKING /*fromline 1646*/
 947                 __FILE__, __LINE__,
 948 #endif /* ENABLE_CHECKING fromline 1650*/
 949                 sizeof(MeltFrame_meltrout_72_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOMMENTINSTR)) {};
 950 #if ENABLE_CHECKING /*fromline 1654*/
 951         MeltFrame_meltrout_72_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOMMENTINSTR(const char*fil, int lin) //the constructor fromline 1656
 952             : Melt_CallFrameWithValues<19> (fil,lin, sizeof(MeltFrame_meltrout_72_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOMMENTINSTR)) {};
 953         MeltFrame_meltrout_72_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOMMENTINSTR(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661
 954             : Melt_CallFrameWithValues<19> (fil,lin, sizeof(MeltFrame_meltrout_72_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOMMENTINSTR), clos) {};
 955 #endif /* ENABLE_CHECKING fromline 1666*/
 956
 957     }; // end  class MeltFrame_meltrout_72_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOMMENTINSTR
 958
 959
 960     /** end of frame for meltrout_72_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOMMENTINSTR fromline 1697**/
 961
 962     /* end of frame for routine meltrout_72_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOMMENTINSTR fromline 1756 */
 963
 964     /* classy proc frame meltrout_72_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOMMENTINSTR */
 965     MeltFrame_meltrout_72_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOMMENTINSTR
 966     meltfram__ /*declfrastruct fromline 1780*/
 967     /*classyprocarg meltrout_72_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOMMENTINSTR fromline 1785*/
 968 #if ENABLE_CHECKING
 969     (__FILE__, __LINE__, meltclosp_) /* fromline 1789*/
 970 #else /*ENABLE_CHECKING */
 971     (meltclosp_) /* fromline 1793*/
 972 #endif /*ENABLE_CHECKING */
 973
 974     ;
 975 #define meltframe meltfram__
 976
 977     melt_trace_start("OUTPUCOD_OBJCOMMENTINSTR", meltcallcount);
 978     /*use arguments*/
 979     (void) meltclosp_;
 980     (void)meltfirstargp_;
 981     (void)meltxargdescr_;
 982     (void)meltxargtab_;
 983     (void)meltxresdescr_;
 984     (void)meltxrestab_;
 985     /*getargs*/
 986
 987     /*getarg#0*/
 988     MELT_LOCATION("warmelt-outobj.melt:3406:/ getarg");
 989     /*_.OBCI__V2*/
 990     meltfptr[1] = (melt_ptr_t) meltfirstargp_;
 991
 992     /*getarg#1*/
 993     /*^getarg*/
 994     if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs;
 995     /*_.DECLBUF__V3*/
 996     meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
 997     gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2])) != NULL);
 998
 999
1000     /*getarg#2*/
1001     /*^getarg*/
1002     if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs;
1003     /*_.IMPLBUF__V4*/
1004     meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL;
1005     gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3])) != NULL);
1006
1007
1008     /*getarg#3*/
1009     /*^getarg*/
1010     if (meltxargdescr_[2] != MELTBPAR_LONG) goto meltlab_endgetargs;
1011     /*_#DEPTH__L1*/
1012     meltfnum[0] = meltxargtab_[2].meltbp_long;
1013     ;
1014     goto meltlab_endgetargs;
1015 meltlab_endgetargs:
1016     ;
1017     /*body*/
1018     /*^block*/
1019     /*anyblock*/
1020     {
1021
1022
1023 #if MELT_HAVE_DEBUG
1024         MELT_LOCATION("warmelt-outobj.melt:3407:/ cppif.then");
1025         /*^block*/
1026         /*anyblock*/
1027         {
1028
1029
1030             MELT_CHECK_SIGNAL();
1031             ;
1032             /*_#IS_A__L2*/
1033             meltfnum[1] =
1034                 melt_is_instance_of((melt_ptr_t)(/*_.OBCI__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_OBJCOMMENTINSTR*/ meltfrout->tabval[0])));;
1035             MELT_LOCATION("warmelt-outobj.melt:3407:/ cond");
1036             /*cond*/
1037             if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/
1038                 {
1039                     /*^cond.then*/
1040                     /*_._IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);;
1041                 }
1042             else
1043                 {
1044                     MELT_LOCATION("warmelt-outobj.melt:3407:/ cond.else");
1045
1046                     /*^block*/
1047                     /*anyblock*/
1048                     {
1049
1050
1051                         MELT_CHECK_SIGNAL();
1052                         ;
1053                         /*^apply*/
1054                         /*apply*/
1055                         {
1056                             union meltparam_un argtab[4];
1057                             memset(&argtab, 0, sizeof(argtab));
1058                             /*^apply.arg*/
1059                             argtab[0].meltbp_cstring =  "check obci";
1060                             /*^apply.arg*/
1061                             argtab[1].meltbp_cstring =  "warmelt-outobj.melt";
1062                             /*^apply.arg*/
1063                             argtab[2].meltbp_long = 3407;
1064                             /*^apply.arg*/
1065                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OBCI__V2*/ meltfptr[1];
1066                             /*_.MELT_ASSERT_FAILURE_FUN__V7*/
1067                             meltfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
1068                         }
1069                         ;
1070                         /*_._IFELSE___V6*/
1071                         meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6];;
1072                         /*epilog*/
1073
1074                         MELT_LOCATION("warmelt-outobj.melt:3407:/ clear");
1075                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V7*/
1076                         meltfptr[6] = 0 ;
1077                     }
1078                     ;
1079                 }
1080             ;
1081             /*_.IFCPP___V5*/
1082             meltfptr[4] = /*_._IFELSE___V6*/ meltfptr[5];;
1083             /*epilog*/
1084
1085             MELT_LOCATION("warmelt-outobj.melt:3407:/ clear");
1086             /*clear*/ /*_#IS_A__L2*/
1087             meltfnum[1] = 0 ;
1088             /*^clear*/
1089             /*clear*/ /*_._IFELSE___V6*/
1090             meltfptr[5] = 0 ;
1091         }
1092
1093 #else /*MELT_HAVE_DEBUG*/
1094         /*^cppif.else*/
1095         /*_.IFCPP___V5*/ meltfptr[4] = (/*nil*/NULL);
1096 #endif /*MELT_HAVE_DEBUG*/
1097         ;
1098         MELT_LOCATION("warmelt-outobj.melt:3408:/ quasiblock");
1099
1100
1101         /*^getslot*/
1102         {
1103             melt_ptr_t slot=NULL, obj=NULL;
1104             obj = (melt_ptr_t)(/*_.OBCI__V2*/ meltfptr[1]) /*=obj*/;
1105             melt_object_get_field(slot,obj, 0, "OBI_LOC");
1106             /*_.OLOC__V9*/
1107             meltfptr[5] = slot;
1108         };
1109         ;
1110         MELT_LOCATION("warmelt-outobj.melt:3409:/ getslot");
1111         {
1112             melt_ptr_t slot=NULL, obj=NULL;
1113             obj = (melt_ptr_t)(/*_.OBCI__V2*/ meltfptr[1]) /*=obj*/;
1114             melt_object_get_field(slot,obj, 1, "OBCI_COMMENT");
1115             /*_.COMS__V10*/
1116             meltfptr[9] = slot;
1117         };
1118         ;
1119         MELT_LOCATION("warmelt-outobj.melt:3410:/ quasiblock");
1120
1121
1122         /*_.SBU__V12*/
1123         meltfptr[11] =
1124             (melt_ptr_t) meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ meltfrout->tabval[2])), (const char*)0);;
1125
1126         {
1127             MELT_LOCATION("warmelt-outobj.melt:3411:/ locexp");
1128             meltgc_add_strbuf_ccomment((melt_ptr_t)(/*_.SBU__V12*/ meltfptr[11]),
1129                                        melt_string_str((melt_ptr_t)(/*_.COMS__V10*/ meltfptr[9])));
1130         }
1131         ;
1132         /*_.STRBUF2STRING__V13*/
1133         meltfptr[12] =
1134             (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[3])), melt_strbuf_str((melt_ptr_t)(/*_.SBU__V12*/ meltfptr[11]))));;
1135         /*^compute*/
1136         /*_.LET___V11*/
1137         meltfptr[10] = /*_.STRBUF2STRING__V13*/ meltfptr[12];;
1138
1139         MELT_LOCATION("warmelt-outobj.melt:3410:/ clear");
1140         /*clear*/ /*_.SBU__V12*/
1141         meltfptr[11] = 0 ;
1142         /*^clear*/
1143         /*clear*/ /*_.STRBUF2STRING__V13*/
1144         meltfptr[12] = 0 ;
1145         /*_.COMSTR__V14*/
1146         meltfptr[11] = /*_.LET___V11*/ meltfptr[10];;
1147
1148         MELT_CHECK_SIGNAL();
1149         ;
1150         MELT_LOCATION("warmelt-outobj.melt:3415:/ apply");
1151         /*apply*/
1152         {
1153             union meltparam_un argtab[3];
1154             memset(&argtab, 0, sizeof(argtab));
1155             /*^apply.arg*/
1156             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
1157             /*^apply.arg*/
1158             argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0];
1159             /*^apply.arg*/
1160             argtab[2].meltbp_cstring =  "comment";
1161             /*_.OUTPUT_LOCATION__V15*/
1162             meltfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.OLOC__V9*/ meltfptr[5]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
1163         }
1164         ;
1165
1166         {
1167             MELT_LOCATION("warmelt-outobj.melt:3416:/ locexp");
1168             /*add2sbuf_strconst*/
1169             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "/**COMMENT: "));
1170         }
1171         ;
1172
1173         {
1174             MELT_LOCATION("warmelt-outobj.melt:3417:/ locexp");
1175             /*add2sbuf_string*/
1176             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]),
1177                               melt_string_str((melt_ptr_t)(/*_.COMSTR__V14*/ meltfptr[11])));
1178         }
1179         ;
1180
1181         {
1182             MELT_LOCATION("warmelt-outobj.melt:3418:/ locexp");
1183             /*add2sbuf_strconst*/
1184             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( " **/;"));
1185         }
1186         ;
1187
1188         {
1189             MELT_LOCATION("warmelt-outobj.melt:3419:/ locexp");
1190             meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#DEPTH__L1*/ meltfnum[0]), 0);
1191         }
1192         ;
1193
1194 #if MELT_HAVE_DEBUG
1195         MELT_LOCATION("warmelt-outobj.melt:3420:/ cppif.then");
1196         /*^block*/
1197         /*anyblock*/
1198         {
1199
1200
1201             MELT_CHECK_SIGNAL();
1202             ;
1203             /*_#STRBUF_USEDLENGTH__L3*/
1204             meltfnum[1] =
1205                 melt_strbuf_usedlength((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]));;
1206             MELT_LOCATION("warmelt-outobj.melt:3421:/ cond");
1207             /*cond*/
1208             if (
1209                 /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[5])),
1210                                               (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[6])))
1211             ) /*then*/
1212                 {
1213                     /*^cond.then*/
1214                     /*^getslot*/
1215                     {
1216                         melt_ptr_t slot=NULL, obj=NULL;
1217                         obj = (melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[5])) /*=obj*/;
1218                         melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE");
1219                         /*_.REFERENCED_VALUE__V17*/
1220                         meltfptr[16] = slot;
1221                     };
1222                     ;
1223                 }
1224             else    /*^cond.else*/
1225                 {
1226
1227                     /*_.REFERENCED_VALUE__V17*/ meltfptr[16] =  /*reallynil*/ NULL ;;
1228                 }
1229             ;
1230             /*^compute*/
1231             /*_#GET_INT__L4*/
1232             meltfnum[3] =
1233                 (melt_get_int((melt_ptr_t)(/*_.REFERENCED_VALUE__V17*/ meltfptr[16])));;
1234             /*^compute*/
1235             /*_#ltI__L5*/
1236             meltfnum[4] =
1237                 ((/*_#STRBUF_USEDLENGTH__L3*/ meltfnum[1]) < (/*_#GET_INT__L4*/ meltfnum[3]));;
1238             MELT_LOCATION("warmelt-outobj.melt:3420:/ cond");
1239             /*cond*/
1240             if (/*_#ltI__L5*/ meltfnum[4]) /*then*/
1241                 {
1242                     /*^cond.then*/
1243                     /*_._IFELSE___V18*/ meltfptr[17] = (/*nil*/NULL);;
1244                 }
1245             else
1246                 {
1247                     MELT_LOCATION("warmelt-outobj.melt:3420:/ cond.else");
1248
1249                     /*^block*/
1250                     /*anyblock*/
1251                     {
1252
1253
1254                         MELT_CHECK_SIGNAL();
1255                         ;
1256                         /*^apply*/
1257                         /*apply*/
1258                         {
1259                             union meltparam_un argtab[4];
1260                             memset(&argtab, 0, sizeof(argtab));
1261                             /*^apply.arg*/
1262                             argtab[0].meltbp_cstring =  "check limited implbuf";
1263                             /*^apply.arg*/
1264                             argtab[1].meltbp_cstring =  "warmelt-outobj.melt";
1265                             /*^apply.arg*/
1266                             argtab[2].meltbp_long = 3420;
1267                             /*^apply.arg*/
1268                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
1269                             /*_.MELT_ASSERT_FAILURE_FUN__V19*/
1270                             meltfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
1271                         }
1272                         ;
1273                         /*_._IFELSE___V18*/
1274                         meltfptr[17] = /*_.MELT_ASSERT_FAILURE_FUN__V19*/ meltfptr[18];;
1275                         /*epilog*/
1276
1277                         MELT_LOCATION("warmelt-outobj.melt:3420:/ clear");
1278                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V19*/
1279                         meltfptr[18] = 0 ;
1280                     }
1281                     ;
1282                 }
1283             ;
1284             /*_.IFCPP___V16*/
1285             meltfptr[15] = /*_._IFELSE___V18*/ meltfptr[17];;
1286             /*epilog*/
1287
1288             MELT_LOCATION("warmelt-outobj.melt:3420:/ clear");
1289             /*clear*/ /*_#STRBUF_USEDLENGTH__L3*/
1290             meltfnum[1] = 0 ;
1291             /*^clear*/
1292             /*clear*/ /*_.REFERENCED_VALUE__V17*/
1293             meltfptr[16] = 0 ;
1294             /*^clear*/
1295             /*clear*/ /*_#GET_INT__L4*/
1296             meltfnum[3] = 0 ;
1297             /*^clear*/
1298             /*clear*/ /*_#ltI__L5*/
1299             meltfnum[4] = 0 ;
1300             /*^clear*/
1301             /*clear*/ /*_._IFELSE___V18*/
1302             meltfptr[17] = 0 ;
1303         }
1304
1305 #else /*MELT_HAVE_DEBUG*/
1306         /*^cppif.else*/
1307         /*_.IFCPP___V16*/ meltfptr[15] = (/*nil*/NULL);
1308 #endif /*MELT_HAVE_DEBUG*/
1309         ;
1310         /*^compute*/
1311         /*_.LET___V8*/
1312         meltfptr[6] = /*_.IFCPP___V16*/ meltfptr[15];;
1313
1314         MELT_LOCATION("warmelt-outobj.melt:3408:/ clear");
1315         /*clear*/ /*_.OLOC__V9*/
1316         meltfptr[5] = 0 ;
1317         /*^clear*/
1318         /*clear*/ /*_.COMS__V10*/
1319         meltfptr[9] = 0 ;
1320         /*^clear*/
1321         /*clear*/ /*_.LET___V11*/
1322         meltfptr[10] = 0 ;
1323         /*^clear*/
1324         /*clear*/ /*_.COMSTR__V14*/
1325         meltfptr[11] = 0 ;
1326         /*^clear*/
1327         /*clear*/ /*_.OUTPUT_LOCATION__V15*/
1328         meltfptr[12] = 0 ;
1329         /*^clear*/
1330         /*clear*/ /*_.IFCPP___V16*/
1331         meltfptr[15] = 0 ;
1332
1333         MELT_CHECK_SIGNAL();
1334         ;
1335         MELT_LOCATION("warmelt-outobj.melt:3406:/ quasiblock");
1336
1337
1338         /*_._RETVAL___V1*/
1339         meltfptr[0] = /*_.LET___V8*/ meltfptr[6];;
1340
1341         {
1342             MELT_LOCATION("warmelt-outobj.melt:3406:/ locexp");
1343             /*ochecknores compilobj_nrep_return*/
1344 #if MELT_HAVE_DEBUG
1345             if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
1346                 melt_warn_for_no_expected_secondary_results();
1347             /* we warned when secondary results are expected but not returned. */
1348 #endif /*MELT_HAVE_DEBUG*/
1349             ;
1350         }
1351         ;
1352         /*^finalreturn*/
1353         ;
1354         /*finalret*/
1355         goto meltlabend_rout ;
1356         /*epilog*/
1357
1358         /*^clear*/
1359         /*clear*/ /*_.IFCPP___V5*/
1360         meltfptr[4] = 0 ;
1361         /*^clear*/
1362         /*clear*/ /*_.LET___V8*/
1363         meltfptr[6] = 0 ;
1364     }
1365
1366     ;
1367     goto meltlabend_rout;
1368 meltlabend_rout:
1369     melt_trace_end("OUTPUCOD_OBJCOMMENTINSTR", meltcallcount);
1370     melt_blocklevel_signals = current_blocklevel_signals_meltrout_72_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOMMENTINSTR_melt;
1371     return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]);
1372 #undef meltcallcount
1373 #undef meltfram__
1374 #undef MELTFRAM_NBVARNUM
1375 #undef MELTFRAM_NBVARPTR
1376 } /*end meltrout_72_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOMMENTINSTR*/
1377
1378
1379
1380
1381
1382
1383 melt_ptr_t MELT_MODULE_VISIBILITY
1384 meltrout_73_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOMMENTEDBLOCK(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_,
1385         const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_)
1386 {
1387     long current_blocklevel_signals_meltrout_73_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOMMENTEDBLOCK_melt =  melt_blocklevel_signals;
1388
1389 #if MELT_HAVE_DEBUG
1390     static long melt_call_counter__;
1391     long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__;
1392 #undef meltcallcount
1393 #define meltcallcount melt_thiscallcounter__
1394 #else
1395 #undef meltcallcount
1396 #define meltcallcount 0L
1397 #endif
1398 //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538
1399
1400     /* start of frame for routine meltrout_73_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOMMENTEDBLOCK fromline 1752 */
1401
1402     /** start of frame for meltrout_73_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOMMENTEDBLOCK of CLASS_PROCROUTINEOBJ from 1555**/
1403
1404     /*curframdeclclassy*/ class MeltFrame_meltrout_73_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOMMENTEDBLOCK// fromline 1568
1405         : public Melt_CallFrameWithValues<27>
1406     {
1407     public: /* fromline 1572*/
1408         long mcfr_varnum[9];
1409         /*classy others*/
1410         long _meltsparel;
1411         void melt_mark_stuff (void)
1412         {
1413         } /*end melt_mark_stuff*/
1414         virtual void melt_mark_ggc_data (void)
1415         {
1416             melt_mark_values ();
1417             melt_mark_stuff ();
1418         }; /*end melt_mark_ggc_data*/
1419         MeltFrame_meltrout_73_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOMMENTEDBLOCK(meltclosure_ptr_t clos) //the closure constructor fromline 1630
1420             : Melt_CallFrameWithValues<27> (
1421 #if ENABLE_CHECKING /*fromline 1634*/
1422                 __FILE__, __LINE__,
1423 #endif /* ENABLE_CHECKING fromline 1638*/
1424                 sizeof(MeltFrame_meltrout_73_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOMMENTEDBLOCK), clos) {};
1425         MeltFrame_meltrout_73_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOMMENTEDBLOCK() //the constructor fromline 1642
1426             : Melt_CallFrameWithValues<27> (
1427 #if ENABLE_CHECKING /*fromline 1646*/
1428                 __FILE__, __LINE__,
1429 #endif /* ENABLE_CHECKING fromline 1650*/
1430                 sizeof(MeltFrame_meltrout_73_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOMMENTEDBLOCK)) {};
1431 #if ENABLE_CHECKING /*fromline 1654*/
1432         MeltFrame_meltrout_73_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOMMENTEDBLOCK(const char*fil, int lin) //the constructor fromline 1656
1433             : Melt_CallFrameWithValues<27> (fil,lin, sizeof(MeltFrame_meltrout_73_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOMMENTEDBLOCK)) {};
1434         MeltFrame_meltrout_73_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOMMENTEDBLOCK(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661
1435             : Melt_CallFrameWithValues<27> (fil,lin, sizeof(MeltFrame_meltrout_73_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOMMENTEDBLOCK), clos) {};
1436 #endif /* ENABLE_CHECKING fromline 1666*/
1437
1438     }; // end  class MeltFrame_meltrout_73_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOMMENTEDBLOCK
1439
1440
1441     /** end of frame for meltrout_73_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOMMENTEDBLOCK fromline 1697**/
1442
1443     /* end of frame for routine meltrout_73_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOMMENTEDBLOCK fromline 1756 */
1444
1445     /* classy proc frame meltrout_73_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOMMENTEDBLOCK */
1446     MeltFrame_meltrout_73_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOMMENTEDBLOCK
1447     meltfram__ /*declfrastruct fromline 1780*/
1448     /*classyprocarg meltrout_73_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOMMENTEDBLOCK fromline 1785*/
1449 #if ENABLE_CHECKING
1450     (__FILE__, __LINE__, meltclosp_) /* fromline 1789*/
1451 #else /*ENABLE_CHECKING */
1452     (meltclosp_) /* fromline 1793*/
1453 #endif /*ENABLE_CHECKING */
1454
1455     ;
1456 #define meltframe meltfram__
1457
1458     melt_trace_start("OUTPUCOD_OBJCOMMENTEDBLOCK", meltcallcount);
1459     /*use arguments*/
1460     (void) meltclosp_;
1461     (void)meltfirstargp_;
1462     (void)meltxargdescr_;
1463     (void)meltxargtab_;
1464     (void)meltxresdescr_;
1465     (void)meltxrestab_;
1466     /*getargs*/
1467
1468     /*getarg#0*/
1469     MELT_LOCATION("warmelt-outobj.melt:3427:/ getarg");
1470     /*_.OBLO__V2*/
1471     meltfptr[1] = (melt_ptr_t) meltfirstargp_;
1472
1473     /*getarg#1*/
1474     /*^getarg*/
1475     if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs;
1476     /*_.DECLBUF__V3*/
1477     meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
1478     gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2])) != NULL);
1479
1480
1481     /*getarg#2*/
1482     /*^getarg*/
1483     if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs;
1484     /*_.IMPLBUF__V4*/
1485     meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL;
1486     gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3])) != NULL);
1487
1488
1489     /*getarg#3*/
1490     /*^getarg*/
1491     if (meltxargdescr_[2] != MELTBPAR_LONG) goto meltlab_endgetargs;
1492     /*_#DEPTH__L1*/
1493     meltfnum[0] = meltxargtab_[2].meltbp_long;
1494     ;
1495     goto meltlab_endgetargs;
1496 meltlab_endgetargs:
1497     ;
1498     /*body*/
1499     /*^block*/
1500     /*anyblock*/
1501     {
1502
1503
1504 #if MELT_HAVE_DEBUG
1505         MELT_LOCATION("warmelt-outobj.melt:3428:/ cppif.then");
1506         /*^block*/
1507         /*anyblock*/
1508         {
1509
1510
1511             MELT_CHECK_SIGNAL();
1512             ;
1513             /*_#IS_A__L2*/
1514             meltfnum[1] =
1515                 melt_is_instance_of((melt_ptr_t)(/*_.OBLO__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_OBJCOMMENTEDBLOCK*/ meltfrout->tabval[0])));;
1516             MELT_LOCATION("warmelt-outobj.melt:3428:/ cond");
1517             /*cond*/
1518             if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/
1519                 {
1520                     /*^cond.then*/
1521                     /*_._IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);;
1522                 }
1523             else
1524                 {
1525                     MELT_LOCATION("warmelt-outobj.melt:3428:/ cond.else");
1526
1527                     /*^block*/
1528                     /*anyblock*/
1529                     {
1530
1531
1532                         MELT_CHECK_SIGNAL();
1533                         ;
1534                         /*^apply*/
1535                         /*apply*/
1536                         {
1537                             union meltparam_un argtab[4];
1538                             memset(&argtab, 0, sizeof(argtab));
1539                             /*^apply.arg*/
1540                             argtab[0].meltbp_cstring =  "check oblo";
1541                             /*^apply.arg*/
1542                             argtab[1].meltbp_cstring =  "warmelt-outobj.melt";
1543                             /*^apply.arg*/
1544                             argtab[2].meltbp_long = 3428;
1545                             /*^apply.arg*/
1546                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OBLO__V2*/ meltfptr[1];
1547                             /*_.MELT_ASSERT_FAILURE_FUN__V7*/
1548                             meltfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
1549                         }
1550                         ;
1551                         /*_._IFELSE___V6*/
1552                         meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6];;
1553                         /*epilog*/
1554
1555                         MELT_LOCATION("warmelt-outobj.melt:3428:/ clear");
1556                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V7*/
1557                         meltfptr[6] = 0 ;
1558                     }
1559                     ;
1560                 }
1561             ;
1562             /*_.IFCPP___V5*/
1563             meltfptr[4] = /*_._IFELSE___V6*/ meltfptr[5];;
1564             /*epilog*/
1565
1566             MELT_LOCATION("warmelt-outobj.melt:3428:/ clear");
1567             /*clear*/ /*_#IS_A__L2*/
1568             meltfnum[1] = 0 ;
1569             /*^clear*/
1570             /*clear*/ /*_._IFELSE___V6*/
1571             meltfptr[5] = 0 ;
1572         }
1573
1574 #else /*MELT_HAVE_DEBUG*/
1575         /*^cppif.else*/
1576         /*_.IFCPP___V5*/ meltfptr[4] = (/*nil*/NULL);
1577 #endif /*MELT_HAVE_DEBUG*/
1578         ;
1579         MELT_LOCATION("warmelt-outobj.melt:3429:/ getslot");
1580         {
1581             melt_ptr_t slot=NULL, obj=NULL;
1582             obj = (melt_ptr_t)(/*_.OBLO__V2*/ meltfptr[1]) /*=obj*/;
1583             melt_object_get_field(slot,obj, 0, "OBI_LOC");
1584             /*_.OBI_LOC__V8*/
1585             meltfptr[6] = slot;
1586         };
1587         ;
1588
1589         MELT_CHECK_SIGNAL();
1590         ;
1591         /*^apply*/
1592         /*apply*/
1593         {
1594             union meltparam_un argtab[3];
1595             memset(&argtab, 0, sizeof(argtab));
1596             /*^apply.arg*/
1597             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
1598             /*^apply.arg*/
1599             argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0];
1600             /*^apply.arg*/
1601             argtab[2].meltbp_cstring =  "block";
1602             /*_.OUTPUT_LOCATION__V9*/
1603             meltfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.OBI_LOC__V8*/ meltfptr[6]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
1604         }
1605         ;
1606         MELT_LOCATION("warmelt-outobj.melt:3430:/ quasiblock");
1607
1608
1609         /*^getslot*/
1610         {
1611             melt_ptr_t slot=NULL, obj=NULL;
1612             obj = (melt_ptr_t)(/*_.OBLO__V2*/ meltfptr[1]) /*=obj*/;
1613             melt_object_get_field(slot,obj, 1, "OBLO_BODYL");
1614             /*_.BODYL__V11*/
1615             meltfptr[10] = slot;
1616         };
1617         ;
1618         MELT_LOCATION("warmelt-outobj.melt:3431:/ getslot");
1619         {
1620             melt_ptr_t slot=NULL, obj=NULL;
1621             obj = (melt_ptr_t)(/*_.OBLO__V2*/ meltfptr[1]) /*=obj*/;
1622             melt_object_get_field(slot,obj, 2, "OBLO_EPIL");
1623             /*_.EPIL__V12*/
1624             meltfptr[11] = slot;
1625         };
1626         ;
1627         /*_#plI__L3*/
1628         meltfnum[1] =
1629             ((/*_#DEPTH__L1*/ meltfnum[0]) + (1));;
1630         /*^compute*/
1631         /*_.BOXDEPTHP1__V13*/
1632         meltfptr[12] =
1633             (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[3])), (/*_#plI__L3*/ meltfnum[1])));;
1634         MELT_LOCATION("warmelt-outobj.melt:3433:/ getslot");
1635         {
1636             melt_ptr_t slot=NULL, obj=NULL;
1637             obj = (melt_ptr_t)(/*_.OBLO__V2*/ meltfptr[1]) /*=obj*/;
1638             melt_object_get_field(slot,obj, 3, "OCOMBLO_COMMENT");
1639             /*_.COMS__V14*/
1640             meltfptr[13] = slot;
1641         };
1642         ;
1643         MELT_LOCATION("warmelt-outobj.melt:3434:/ quasiblock");
1644
1645
1646         /*_.SBU__V16*/
1647         meltfptr[15] =
1648             (melt_ptr_t) meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ meltfrout->tabval[4])), (const char*)0);;
1649
1650         {
1651             MELT_LOCATION("warmelt-outobj.melt:3435:/ locexp");
1652             meltgc_add_strbuf_ccomment((melt_ptr_t)(/*_.SBU__V16*/ meltfptr[15]),
1653                                        melt_string_str((melt_ptr_t)(/*_.COMS__V14*/ meltfptr[13])));
1654         }
1655         ;
1656         /*_.STRBUF2STRING__V17*/
1657         meltfptr[16] =
1658             (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[5])), melt_strbuf_str((melt_ptr_t)(/*_.SBU__V16*/ meltfptr[15]))));;
1659         /*^compute*/
1660         /*_.LET___V15*/
1661         meltfptr[14] = /*_.STRBUF2STRING__V17*/ meltfptr[16];;
1662
1663         MELT_LOCATION("warmelt-outobj.melt:3434:/ clear");
1664         /*clear*/ /*_.SBU__V16*/
1665         meltfptr[15] = 0 ;
1666         /*^clear*/
1667         /*clear*/ /*_.STRBUF2STRING__V17*/
1668         meltfptr[16] = 0 ;
1669         /*_.COMSTR__V18*/
1670         meltfptr[15] = /*_.LET___V15*/ meltfptr[14];;
1671
1672         {
1673             MELT_LOCATION("warmelt-outobj.melt:3439:/ locexp");
1674             /*add2sbuf_strconst*/
1675             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "/*com.block:"));
1676         }
1677         ;
1678
1679         {
1680             MELT_LOCATION("warmelt-outobj.melt:3440:/ locexp");
1681             /*add2sbuf_string*/
1682             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]),
1683                               melt_string_str((melt_ptr_t)(/*_.COMSTR__V18*/ meltfptr[15])));
1684         }
1685         ;
1686
1687         {
1688             MELT_LOCATION("warmelt-outobj.melt:3441:/ locexp");
1689             /*add2sbuf_strconst*/
1690             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "*/{"));
1691         }
1692         ;
1693
1694         MELT_CHECK_SIGNAL();
1695         ;
1696         /*_#IS_LIST__L4*/
1697         meltfnum[3] =
1698             (melt_magic_discr((melt_ptr_t)(/*_.BODYL__V11*/ meltfptr[10])) == MELTOBMAG_LIST);;
1699         MELT_LOCATION("warmelt-outobj.melt:3442:/ cond");
1700         /*cond*/
1701         if (/*_#IS_LIST__L4*/ meltfnum[3]) /*then*/
1702             {
1703                 /*^cond.then*/
1704                 /*^block*/
1705                 /*anyblock*/
1706                 {
1707
1708
1709                     MELT_CHECK_SIGNAL();
1710                     ;
1711                     MELT_LOCATION("warmelt-outobj.melt:3443:/ apply");
1712                     /*apply*/
1713                     {
1714                         union meltparam_un argtab[3];
1715                         memset(&argtab, 0, sizeof(argtab));
1716                         /*^apply.arg*/
1717                         argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2];
1718                         /*^apply.arg*/
1719                         argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
1720                         /*^apply.arg*/
1721                         argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.BOXDEPTHP1__V13*/ meltfptr[12];
1722                         /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V20*/
1723                         meltfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_CODE_INSTRUCTIONS_LIST*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.BODYL__V11*/ meltfptr[10]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
1724                     }
1725                     ;
1726                     /*_._IF___V19*/
1727                     meltfptr[16] = /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V20*/ meltfptr[19];;
1728                     /*epilog*/
1729
1730                     MELT_LOCATION("warmelt-outobj.melt:3442:/ clear");
1731                     /*clear*/ /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V20*/
1732                     meltfptr[19] = 0 ;
1733                 }
1734                 ;
1735             }
1736         else    /*^cond.else*/
1737             {
1738
1739                 /*_._IF___V19*/ meltfptr[16] =  /*reallynil*/ NULL ;;
1740             }
1741         ;
1742
1743         MELT_CHECK_SIGNAL();
1744         ;
1745         /*^compute*/
1746         /*_#IS_LIST__L5*/
1747         meltfnum[4] =
1748             (melt_magic_discr((melt_ptr_t)(/*_.EPIL__V12*/ meltfptr[11])) == MELTOBMAG_LIST);;
1749         MELT_LOCATION("warmelt-outobj.melt:3444:/ cond");
1750         /*cond*/
1751         if (/*_#IS_LIST__L5*/ meltfnum[4]) /*then*/
1752             {
1753                 /*^cond.then*/
1754                 /*^block*/
1755                 /*anyblock*/
1756                 {
1757
1758                     /*_#GET_INT__L6*/ meltfnum[5] =
1759                         (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V13*/ meltfptr[12])));;
1760
1761                     {
1762                         MELT_LOCATION("warmelt-outobj.melt:3445:/ locexp");
1763                         meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#GET_INT__L6*/ meltfnum[5]), 0);
1764                     }
1765                     ;
1766
1767                     {
1768                         MELT_LOCATION("warmelt-outobj.melt:3446:/ locexp");
1769                         /*add2sbuf_strconst*/
1770                         meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "/*comp.epilog:"));
1771                     }
1772                     ;
1773
1774                     {
1775                         MELT_LOCATION("warmelt-outobj.melt:3447:/ locexp");
1776                         /*add2sbuf_string*/
1777                         meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]),
1778                                           melt_string_str((melt_ptr_t)(/*_.COMSTR__V18*/ meltfptr[15])));
1779                     }
1780                     ;
1781
1782                     {
1783                         MELT_LOCATION("warmelt-outobj.melt:3448:/ locexp");
1784                         /*add2sbuf_strconst*/
1785                         meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "*/"));
1786                     }
1787                     ;
1788
1789                     MELT_CHECK_SIGNAL();
1790                     ;
1791                     MELT_LOCATION("warmelt-outobj.melt:3449:/ apply");
1792                     /*apply*/
1793                     {
1794                         union meltparam_un argtab[3];
1795                         memset(&argtab, 0, sizeof(argtab));
1796                         /*^apply.arg*/
1797                         argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2];
1798                         /*^apply.arg*/
1799                         argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
1800                         /*^apply.arg*/
1801                         argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.BOXDEPTHP1__V13*/ meltfptr[12];
1802                         /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V22*/
1803                         meltfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_CODE_INSTRUCTIONS_LIST*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.EPIL__V12*/ meltfptr[11]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
1804                     }
1805                     ;
1806                     MELT_LOCATION("warmelt-outobj.melt:3444:/ quasiblock");
1807
1808
1809                     /*_.PROGN___V23*/
1810                     meltfptr[22] = /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V22*/ meltfptr[21];;
1811                     /*^compute*/
1812                     /*_._IF___V21*/
1813                     meltfptr[19] = /*_.PROGN___V23*/ meltfptr[22];;
1814                     /*epilog*/
1815
1816                     MELT_LOCATION("warmelt-outobj.melt:3444:/ clear");
1817                     /*clear*/ /*_#GET_INT__L6*/
1818                     meltfnum[5] = 0 ;
1819                     /*^clear*/
1820                     /*clear*/ /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V22*/
1821                     meltfptr[21] = 0 ;
1822                     /*^clear*/
1823                     /*clear*/ /*_.PROGN___V23*/
1824                     meltfptr[22] = 0 ;
1825                 }
1826                 ;
1827             }
1828         else    /*^cond.else*/
1829             {
1830
1831                 /*_._IF___V21*/ meltfptr[19] =  /*reallynil*/ NULL ;;
1832             }
1833         ;
1834
1835         {
1836             MELT_LOCATION("warmelt-outobj.melt:3450:/ locexp");
1837             /*add2sbuf_strconst*/
1838             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "}"));
1839         }
1840         ;
1841
1842         {
1843             MELT_LOCATION("warmelt-outobj.melt:3451:/ locexp");
1844             /*add2sbuf_strconst*/
1845             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "/*com.end block:"));
1846         }
1847         ;
1848
1849         {
1850             MELT_LOCATION("warmelt-outobj.melt:3452:/ locexp");
1851             /*add2sbuf_string*/
1852             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]),
1853                               melt_string_str((melt_ptr_t)(/*_.COMSTR__V18*/ meltfptr[15])));
1854         }
1855         ;
1856
1857         {
1858             MELT_LOCATION("warmelt-outobj.melt:3453:/ locexp");
1859             /*add2sbuf_strconst*/
1860             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "*/"));
1861         }
1862         ;
1863
1864         {
1865             MELT_LOCATION("warmelt-outobj.melt:3454:/ locexp");
1866             meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#DEPTH__L1*/ meltfnum[0]), 0);
1867         }
1868         ;
1869
1870 #if MELT_HAVE_DEBUG
1871         MELT_LOCATION("warmelt-outobj.melt:3455:/ cppif.then");
1872         /*^block*/
1873         /*anyblock*/
1874         {
1875
1876
1877             MELT_CHECK_SIGNAL();
1878             ;
1879             /*_#STRBUF_USEDLENGTH__L7*/
1880             meltfnum[5] =
1881                 melt_strbuf_usedlength((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]));;
1882             MELT_LOCATION("warmelt-outobj.melt:3456:/ cond");
1883             /*cond*/
1884             if (
1885                 /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[7])),
1886                                               (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[8])))
1887             ) /*then*/
1888                 {
1889                     /*^cond.then*/
1890                     /*^getslot*/
1891                     {
1892                         melt_ptr_t slot=NULL, obj=NULL;
1893                         obj = (melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[7])) /*=obj*/;
1894                         melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE");
1895                         /*_.REFERENCED_VALUE__V25*/
1896                         meltfptr[22] = slot;
1897                     };
1898                     ;
1899                 }
1900             else    /*^cond.else*/
1901                 {
1902
1903                     /*_.REFERENCED_VALUE__V25*/ meltfptr[22] =  /*reallynil*/ NULL ;;
1904                 }
1905             ;
1906             /*^compute*/
1907             /*_#GET_INT__L8*/
1908             meltfnum[7] =
1909                 (melt_get_int((melt_ptr_t)(/*_.REFERENCED_VALUE__V25*/ meltfptr[22])));;
1910             /*^compute*/
1911             /*_#ltI__L9*/
1912             meltfnum[8] =
1913                 ((/*_#STRBUF_USEDLENGTH__L7*/ meltfnum[5]) < (/*_#GET_INT__L8*/ meltfnum[7]));;
1914             MELT_LOCATION("warmelt-outobj.melt:3455:/ cond");
1915             /*cond*/
1916             if (/*_#ltI__L9*/ meltfnum[8]) /*then*/
1917                 {
1918                     /*^cond.then*/
1919                     /*_._IFELSE___V26*/ meltfptr[25] = (/*nil*/NULL);;
1920                 }
1921             else
1922                 {
1923                     MELT_LOCATION("warmelt-outobj.melt:3455:/ cond.else");
1924
1925                     /*^block*/
1926                     /*anyblock*/
1927                     {
1928
1929
1930                         MELT_CHECK_SIGNAL();
1931                         ;
1932                         /*^apply*/
1933                         /*apply*/
1934                         {
1935                             union meltparam_un argtab[4];
1936                             memset(&argtab, 0, sizeof(argtab));
1937                             /*^apply.arg*/
1938                             argtab[0].meltbp_cstring =  "check limited implbuf";
1939                             /*^apply.arg*/
1940                             argtab[1].meltbp_cstring =  "warmelt-outobj.melt";
1941                             /*^apply.arg*/
1942                             argtab[2].meltbp_long = 3455;
1943                             /*^apply.arg*/
1944                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
1945                             /*_.MELT_ASSERT_FAILURE_FUN__V27*/
1946                             meltfptr[26] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
1947                         }
1948                         ;
1949                         /*_._IFELSE___V26*/
1950                         meltfptr[25] = /*_.MELT_ASSERT_FAILURE_FUN__V27*/ meltfptr[26];;
1951                         /*epilog*/
1952
1953                         MELT_LOCATION("warmelt-outobj.melt:3455:/ clear");
1954                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V27*/
1955                         meltfptr[26] = 0 ;
1956                     }
1957                     ;
1958                 }
1959             ;
1960             /*_.IFCPP___V24*/
1961             meltfptr[21] = /*_._IFELSE___V26*/ meltfptr[25];;
1962             /*epilog*/
1963
1964             MELT_LOCATION("warmelt-outobj.melt:3455:/ clear");
1965             /*clear*/ /*_#STRBUF_USEDLENGTH__L7*/
1966             meltfnum[5] = 0 ;
1967             /*^clear*/
1968             /*clear*/ /*_.REFERENCED_VALUE__V25*/
1969             meltfptr[22] = 0 ;
1970             /*^clear*/
1971             /*clear*/ /*_#GET_INT__L8*/
1972             meltfnum[7] = 0 ;
1973             /*^clear*/
1974             /*clear*/ /*_#ltI__L9*/
1975             meltfnum[8] = 0 ;
1976             /*^clear*/
1977             /*clear*/ /*_._IFELSE___V26*/
1978             meltfptr[25] = 0 ;
1979         }
1980
1981 #else /*MELT_HAVE_DEBUG*/
1982         /*^cppif.else*/
1983         /*_.IFCPP___V24*/ meltfptr[21] = (/*nil*/NULL);
1984 #endif /*MELT_HAVE_DEBUG*/
1985         ;
1986         /*^compute*/
1987         /*_.LET___V10*/
1988         meltfptr[9] = /*_.IFCPP___V24*/ meltfptr[21];;
1989
1990         MELT_LOCATION("warmelt-outobj.melt:3430:/ clear");
1991         /*clear*/ /*_.BODYL__V11*/
1992         meltfptr[10] = 0 ;
1993         /*^clear*/
1994         /*clear*/ /*_.EPIL__V12*/
1995         meltfptr[11] = 0 ;
1996         /*^clear*/
1997         /*clear*/ /*_#plI__L3*/
1998         meltfnum[1] = 0 ;
1999         /*^clear*/
2000         /*clear*/ /*_.BOXDEPTHP1__V13*/
2001         meltfptr[12] = 0 ;
2002         /*^clear*/
2003         /*clear*/ /*_.COMS__V14*/
2004         meltfptr[13] = 0 ;
2005         /*^clear*/
2006         /*clear*/ /*_.LET___V15*/
2007         meltfptr[14] = 0 ;
2008         /*^clear*/
2009         /*clear*/ /*_.COMSTR__V18*/
2010         meltfptr[15] = 0 ;
2011         /*^clear*/
2012         /*clear*/ /*_#IS_LIST__L4*/
2013         meltfnum[3] = 0 ;
2014         /*^clear*/
2015         /*clear*/ /*_._IF___V19*/
2016         meltfptr[16] = 0 ;
2017         /*^clear*/
2018         /*clear*/ /*_#IS_LIST__L5*/
2019         meltfnum[4] = 0 ;
2020         /*^clear*/
2021         /*clear*/ /*_._IF___V21*/
2022         meltfptr[19] = 0 ;
2023         /*^clear*/
2024         /*clear*/ /*_.IFCPP___V24*/
2025         meltfptr[21] = 0 ;
2026
2027         MELT_CHECK_SIGNAL();
2028         ;
2029         MELT_LOCATION("warmelt-outobj.melt:3427:/ quasiblock");
2030
2031
2032         /*_._RETVAL___V1*/
2033         meltfptr[0] = /*_.LET___V10*/ meltfptr[9];;
2034
2035         {
2036             MELT_LOCATION("warmelt-outobj.melt:3427:/ locexp");
2037             /*ochecknores compilobj_nrep_return*/
2038 #if MELT_HAVE_DEBUG
2039             if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
2040                 melt_warn_for_no_expected_secondary_results();
2041             /* we warned when secondary results are expected but not returned. */
2042 #endif /*MELT_HAVE_DEBUG*/
2043             ;
2044         }
2045         ;
2046         /*^finalreturn*/
2047         ;
2048         /*finalret*/
2049         goto meltlabend_rout ;
2050         /*epilog*/
2051
2052         /*^clear*/
2053         /*clear*/ /*_.IFCPP___V5*/
2054         meltfptr[4] = 0 ;
2055         /*^clear*/
2056         /*clear*/ /*_.OBI_LOC__V8*/
2057         meltfptr[6] = 0 ;
2058         /*^clear*/
2059         /*clear*/ /*_.OUTPUT_LOCATION__V9*/
2060         meltfptr[5] = 0 ;
2061         /*^clear*/
2062         /*clear*/ /*_.LET___V10*/
2063         meltfptr[9] = 0 ;
2064     }
2065
2066     ;
2067     goto meltlabend_rout;
2068 meltlabend_rout:
2069     melt_trace_end("OUTPUCOD_OBJCOMMENTEDBLOCK", meltcallcount);
2070     melt_blocklevel_signals = current_blocklevel_signals_meltrout_73_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOMMENTEDBLOCK_melt;
2071     return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]);
2072 #undef meltcallcount
2073 #undef meltfram__
2074 #undef MELTFRAM_NBVARNUM
2075 #undef MELTFRAM_NBVARPTR
2076 } /*end meltrout_73_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOMMENTEDBLOCK*/
2077
2078
2079
2080
2081
2082
2083 melt_ptr_t MELT_MODULE_VISIBILITY
2084 meltrout_74_WARMELTmiOUTOBJ_OUTPUCOD_OBJLABELINSTR(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_,
2085         const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_)
2086 {
2087     long current_blocklevel_signals_meltrout_74_WARMELTmiOUTOBJ_OUTPUCOD_OBJLABELINSTR_melt =  melt_blocklevel_signals;
2088
2089 #if MELT_HAVE_DEBUG
2090     static long melt_call_counter__;
2091     long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__;
2092 #undef meltcallcount
2093 #define meltcallcount melt_thiscallcounter__
2094 #else
2095 #undef meltcallcount
2096 #define meltcallcount 0L
2097 #endif
2098 //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538
2099
2100     /* start of frame for routine meltrout_74_WARMELTmiOUTOBJ_OUTPUCOD_OBJLABELINSTR fromline 1752 */
2101
2102     /** start of frame for meltrout_74_WARMELTmiOUTOBJ_OUTPUCOD_OBJLABELINSTR of CLASS_PROCROUTINEOBJ from 1555**/
2103
2104     /*curframdeclclassy*/ class MeltFrame_meltrout_74_WARMELTmiOUTOBJ_OUTPUCOD_OBJLABELINSTR// fromline 1568
2105         : public Melt_CallFrameWithValues<24>
2106     {
2107     public: /* fromline 1572*/
2108         long mcfr_varnum[11];
2109         /*classy others*/
2110         long _meltsparel;
2111         void melt_mark_stuff (void)
2112         {
2113         } /*end melt_mark_stuff*/
2114         virtual void melt_mark_ggc_data (void)
2115         {
2116             melt_mark_values ();
2117             melt_mark_stuff ();
2118         }; /*end melt_mark_ggc_data*/
2119         MeltFrame_meltrout_74_WARMELTmiOUTOBJ_OUTPUCOD_OBJLABELINSTR(meltclosure_ptr_t clos) //the closure constructor fromline 1630
2120             : Melt_CallFrameWithValues<24> (
2121 #if ENABLE_CHECKING /*fromline 1634*/
2122                 __FILE__, __LINE__,
2123 #endif /* ENABLE_CHECKING fromline 1638*/
2124                 sizeof(MeltFrame_meltrout_74_WARMELTmiOUTOBJ_OUTPUCOD_OBJLABELINSTR), clos) {};
2125         MeltFrame_meltrout_74_WARMELTmiOUTOBJ_OUTPUCOD_OBJLABELINSTR() //the constructor fromline 1642
2126             : Melt_CallFrameWithValues<24> (
2127 #if ENABLE_CHECKING /*fromline 1646*/
2128                 __FILE__, __LINE__,
2129 #endif /* ENABLE_CHECKING fromline 1650*/
2130                 sizeof(MeltFrame_meltrout_74_WARMELTmiOUTOBJ_OUTPUCOD_OBJLABELINSTR)) {};
2131 #if ENABLE_CHECKING /*fromline 1654*/
2132         MeltFrame_meltrout_74_WARMELTmiOUTOBJ_OUTPUCOD_OBJLABELINSTR(const char*fil, int lin) //the constructor fromline 1656
2133             : Melt_CallFrameWithValues<24> (fil,lin, sizeof(MeltFrame_meltrout_74_WARMELTmiOUTOBJ_OUTPUCOD_OBJLABELINSTR)) {};
2134         MeltFrame_meltrout_74_WARMELTmiOUTOBJ_OUTPUCOD_OBJLABELINSTR(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661
2135             : Melt_CallFrameWithValues<24> (fil,lin, sizeof(MeltFrame_meltrout_74_WARMELTmiOUTOBJ_OUTPUCOD_OBJLABELINSTR), clos) {};
2136 #endif /* ENABLE_CHECKING fromline 1666*/
2137
2138     }; // end  class MeltFrame_meltrout_74_WARMELTmiOUTOBJ_OUTPUCOD_OBJLABELINSTR
2139
2140
2141     /** end of frame for meltrout_74_WARMELTmiOUTOBJ_OUTPUCOD_OBJLABELINSTR fromline 1697**/
2142
2143     /* end of frame for routine meltrout_74_WARMELTmiOUTOBJ_OUTPUCOD_OBJLABELINSTR fromline 1756 */
2144
2145     /* classy proc frame meltrout_74_WARMELTmiOUTOBJ_OUTPUCOD_OBJLABELINSTR */
2146     MeltFrame_meltrout_74_WARMELTmiOUTOBJ_OUTPUCOD_OBJLABELINSTR
2147     meltfram__ /*declfrastruct fromline 1780*/
2148     /*classyprocarg meltrout_74_WARMELTmiOUTOBJ_OUTPUCOD_OBJLABELINSTR fromline 1785*/
2149 #if ENABLE_CHECKING
2150     (__FILE__, __LINE__, meltclosp_) /* fromline 1789*/
2151 #else /*ENABLE_CHECKING */
2152     (meltclosp_) /* fromline 1793*/
2153 #endif /*ENABLE_CHECKING */
2154
2155     ;
2156 #define meltframe meltfram__
2157
2158     melt_trace_start("OUTPUCOD_OBJLABELINSTR", meltcallcount);
2159     /*use arguments*/
2160     (void) meltclosp_;
2161     (void)meltfirstargp_;
2162     (void)meltxargdescr_;
2163     (void)meltxargtab_;
2164     (void)meltxresdescr_;
2165     (void)meltxrestab_;
2166     /*getargs*/
2167
2168     /*getarg#0*/
2169     MELT_LOCATION("warmelt-outobj.melt:3465:/ getarg");
2170     /*_.OBLAB__V2*/
2171     meltfptr[1] = (melt_ptr_t) meltfirstargp_;
2172
2173     /*getarg#1*/
2174     /*^getarg*/
2175     if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs;
2176     /*_.DECLBUF__V3*/
2177     meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
2178     gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2])) != NULL);
2179
2180
2181     /*getarg#2*/
2182     /*^getarg*/
2183     if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs;
2184     /*_.IMPLBUF__V4*/
2185     meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL;
2186     gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3])) != NULL);
2187
2188
2189     /*getarg#3*/
2190     /*^getarg*/
2191     if (meltxargdescr_[2] != MELTBPAR_LONG) goto meltlab_endgetargs;
2192     /*_#DEPTH__L1*/
2193     meltfnum[0] = meltxargtab_[2].meltbp_long;
2194     ;
2195     goto meltlab_endgetargs;
2196 meltlab_endgetargs:
2197     ;
2198     /*body*/
2199     /*^block*/
2200     /*anyblock*/
2201     {
2202
2203
2204 #if MELT_HAVE_DEBUG
2205         MELT_LOCATION("warmelt-outobj.melt:3466:/ cppif.then");
2206         /*^block*/
2207         /*anyblock*/
2208         {
2209
2210
2211             {
2212                 /*^locexp*/
2213                 /*melt_increment_dbgcounter*/
2214 #if MELT_HAVE_DEBUG
2215                 melt_dbgcounter++;
2216 #endif
2217                 ;
2218             }
2219             ;
2220
2221             MELT_CHECK_SIGNAL();
2222             ;
2223             /*_#MELT_NEED_DBG__L2*/
2224             meltfnum[1] =
2225                 /*MELT_NEED_DBG*/
2226 #if MELT_HAVE_DEBUG
2227                 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
2228 #else
2229                 0 /* no melt_need_dbg */
2230 #endif /*MELT_HAVE_DEBUG*/
2231                 ;;
2232             MELT_LOCATION("warmelt-outobj.melt:3466:/ cond");
2233             /*cond*/
2234             if (/*_#MELT_NEED_DBG__L2*/ meltfnum[1]) /*then*/
2235                 {
2236                     /*^cond.then*/
2237                     /*^block*/
2238                     /*anyblock*/
2239                     {
2240
2241                         /*_#MELT_CALLCOUNT__L3*/ meltfnum[2] =
2242                             /* for melt_callcount */
2243 #if MELT_HAVE_DEBUG && defined (meltcallcount)
2244                             meltcallcount  /* melt_callcount debugging */
2245 #else
2246                             0L  /* melt_callcount without debug */
2247 #endif /* MELT_HAVE_DEBUG melt_callcount */
2248                             ;;
2249
2250                         MELT_CHECK_SIGNAL();
2251                         ;
2252                         MELT_LOCATION("warmelt-outobj.melt:3466:/ apply");
2253                         /*apply*/
2254                         {
2255                             union meltparam_un argtab[5];
2256                             memset(&argtab, 0, sizeof(argtab));
2257                             /*^apply.arg*/
2258                             argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L3*/ meltfnum[2];
2259                             /*^apply.arg*/
2260                             argtab[1].meltbp_cstring =  "warmelt-outobj.melt";
2261                             /*^apply.arg*/
2262                             argtab[2].meltbp_long = 3466;
2263                             /*^apply.arg*/
2264                             argtab[3].meltbp_cstring =  "outpucod_objlabelinstr oblab=";
2265                             /*^apply.arg*/
2266                             argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OBLAB__V2*/ meltfptr[1];
2267                             /*_.MELT_DEBUG_FUN__V6*/
2268                             meltfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
2269                         }
2270                         ;
2271                         /*_._IF___V5*/
2272                         meltfptr[4] = /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5];;
2273                         /*epilog*/
2274
2275                         MELT_LOCATION("warmelt-outobj.melt:3466:/ clear");
2276                         /*clear*/ /*_#MELT_CALLCOUNT__L3*/
2277                         meltfnum[2] = 0 ;
2278                         /*^clear*/
2279                         /*clear*/ /*_.MELT_DEBUG_FUN__V6*/
2280                         meltfptr[5] = 0 ;
2281                     }
2282                     ;
2283                 }
2284             else    /*^cond.else*/
2285                 {
2286
2287                     /*_._IF___V5*/ meltfptr[4] =  /*reallynil*/ NULL ;;
2288                 }
2289             ;
2290
2291             {
2292                 MELT_LOCATION("warmelt-outobj.melt:3466:/ locexp");
2293                 /*void*/
2294                 (void)0;
2295             }
2296             ;
2297             /*^quasiblock*/
2298
2299
2300             /*epilog*/
2301
2302             /*^clear*/
2303             /*clear*/ /*_#MELT_NEED_DBG__L2*/
2304             meltfnum[1] = 0 ;
2305             /*^clear*/
2306             /*clear*/ /*_._IF___V5*/
2307             meltfptr[4] = 0 ;
2308         }
2309
2310 #else /*MELT_HAVE_DEBUG*/
2311         /*^cppif.else*/
2312         /*^block*/
2313         /*anyblock*/
2314         {
2315
2316
2317             {
2318                 /*^locexp*/
2319                 /*void*/(void)0;
2320             }
2321             ;
2322             /*epilog*/
2323         }
2324
2325 #endif /*MELT_HAVE_DEBUG*/
2326         ;
2327
2328 #if MELT_HAVE_DEBUG
2329         MELT_LOCATION("warmelt-outobj.melt:3467:/ cppif.then");
2330         /*^block*/
2331         /*anyblock*/
2332         {
2333
2334
2335             MELT_CHECK_SIGNAL();
2336             ;
2337             /*_#IS_A__L4*/
2338             meltfnum[2] =
2339                 melt_is_instance_of((melt_ptr_t)(/*_.OBLAB__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_OBJLABELINSTR*/ meltfrout->tabval[1])));;
2340             MELT_LOCATION("warmelt-outobj.melt:3467:/ cond");
2341             /*cond*/
2342             if (/*_#IS_A__L4*/ meltfnum[2]) /*then*/
2343                 {
2344                     /*^cond.then*/
2345                     /*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);;
2346                 }
2347             else
2348                 {
2349                     MELT_LOCATION("warmelt-outobj.melt:3467:/ cond.else");
2350
2351                     /*^block*/
2352                     /*anyblock*/
2353                     {
2354
2355
2356                         MELT_CHECK_SIGNAL();
2357                         ;
2358                         /*^apply*/
2359                         /*apply*/
2360                         {
2361                             union meltparam_un argtab[4];
2362                             memset(&argtab, 0, sizeof(argtab));
2363                             /*^apply.arg*/
2364                             argtab[0].meltbp_cstring =  "check oblab";
2365                             /*^apply.arg*/
2366                             argtab[1].meltbp_cstring =  "warmelt-outobj.melt";
2367                             /*^apply.arg*/
2368                             argtab[2].meltbp_long = 3467;
2369                             /*^apply.arg*/
2370                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OBLAB__V2*/ meltfptr[1];
2371                             /*_.MELT_ASSERT_FAILURE_FUN__V9*/
2372                             meltfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
2373                         }
2374                         ;
2375                         /*_._IFELSE___V8*/
2376                         meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];;
2377                         /*epilog*/
2378
2379                         MELT_LOCATION("warmelt-outobj.melt:3467:/ clear");
2380                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/
2381                         meltfptr[8] = 0 ;
2382                     }
2383                     ;
2384                 }
2385             ;
2386             /*_.IFCPP___V7*/
2387             meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];;
2388             /*epilog*/
2389
2390             MELT_LOCATION("warmelt-outobj.melt:3467:/ clear");
2391             /*clear*/ /*_#IS_A__L4*/
2392             meltfnum[2] = 0 ;
2393             /*^clear*/
2394             /*clear*/ /*_._IFELSE___V8*/
2395             meltfptr[4] = 0 ;
2396         }
2397
2398 #else /*MELT_HAVE_DEBUG*/
2399         /*^cppif.else*/
2400         /*_.IFCPP___V7*/ meltfptr[5] = (/*nil*/NULL);
2401 #endif /*MELT_HAVE_DEBUG*/
2402         ;
2403
2404         {
2405             MELT_LOCATION("warmelt-outobj.melt:3468:/ locexp");
2406             meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#DEPTH__L1*/ meltfnum[0]), 0);
2407         }
2408         ;
2409
2410         {
2411             MELT_LOCATION("warmelt-outobj.melt:3469:/ locexp");
2412             /*add2sbuf_strconst*/
2413             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "/*objlabel*/ "));
2414         }
2415         ;
2416         MELT_LOCATION("warmelt-outobj.melt:3470:/ quasiblock");
2417
2418
2419         /*^getslot*/
2420         {
2421             melt_ptr_t slot=NULL, obj=NULL;
2422             obj = (melt_ptr_t)(/*_.OBLAB__V2*/ meltfptr[1]) /*=obj*/;
2423             melt_object_get_field(slot,obj, 1, "OBLAB_PREFIX");
2424             /*_.OPREFIX__V10*/
2425             meltfptr[8] = slot;
2426         };
2427         ;
2428         MELT_LOCATION("warmelt-outobj.melt:3471:/ getslot");
2429         {
2430             melt_ptr_t slot=NULL, obj=NULL;
2431             obj = (melt_ptr_t)(/*_.OBLAB__V2*/ meltfptr[1]) /*=obj*/;
2432             melt_object_get_field(slot,obj, 2, "OBLAB_RANK");
2433             /*_.OBRANK__V11*/
2434             meltfptr[4] = slot;
2435         };
2436         ;
2437         MELT_LOCATION("warmelt-outobj.melt:3472:/ cond");
2438         /*cond*/
2439         if (
2440             /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!LABELCOUNTREF*/ meltfrout->tabval[3])),
2441                                           (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[4])))
2442         ) /*then*/
2443             {
2444                 /*^cond.then*/
2445                 /*^getslot*/
2446                 {
2447                     melt_ptr_t slot=NULL, obj=NULL;
2448                     obj = (melt_ptr_t)((/*!LABELCOUNTREF*/ meltfrout->tabval[3])) /*=obj*/;
2449                     melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE");
2450                     /*_.REFERENCED_VALUE__V12*/
2451                     meltfptr[11] = slot;
2452                 };
2453                 ;
2454             }
2455         else    /*^cond.else*/
2456             {
2457
2458                 /*_.REFERENCED_VALUE__V12*/ meltfptr[11] =  /*reallynil*/ NULL ;;
2459             }
2460         ;
2461         /*^compute*/
2462         /*_#GET_INT__L5*/
2463         meltfnum[1] =
2464             (melt_get_int((melt_ptr_t)(/*_.REFERENCED_VALUE__V12*/ meltfptr[11])));;
2465         /*^compute*/
2466         /*_#COUNT__L6*/
2467         meltfnum[2] =
2468             ((1) + (/*_#GET_INT__L5*/ meltfnum[1]));;
2469         /*^compute*/
2470         /*_.BOX__V13*/
2471         meltfptr[12] =
2472             /*full constboxing*/ /*boxing ctype_long*/ meltgc_new_int((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(DISCR_CONSTANT_INTEGER)))), (/*_#COUNT__L6*/ meltfnum[2]));;
2473
2474         MELT_CHECK_SIGNAL();
2475         ;
2476         MELT_LOCATION("warmelt-outobj.melt:3474:/ apply");
2477         /*apply*/
2478         {
2479             union meltparam_un argtab[1];
2480             memset(&argtab, 0, sizeof(argtab));
2481             /*^apply.arg*/
2482             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.BOX__V13*/ meltfptr[12];
2483             /*_.SET_CONTENT__V14*/
2484             meltfptr[13] =  melt_apply ((meltclosure_ptr_t)((/*!SET_CONTENT*/ meltfrout->tabval[5])), (melt_ptr_t)((/*!LABELCOUNTREF*/ meltfrout->tabval[3])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
2485         }
2486         ;
2487
2488         {
2489             MELT_LOCATION("warmelt-outobj.melt:3475:/ locexp");
2490             /*add2sbuf_string*/
2491             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]),
2492                               melt_string_str((melt_ptr_t)(/*_.OPREFIX__V10*/ meltfptr[8])));
2493         }
2494         ;
2495
2496         MELT_CHECK_SIGNAL();
2497         ;
2498         MELT_LOCATION("warmelt-outobj.melt:3476:/ cond");
2499         /*cond*/
2500         if (/*_.OBRANK__V11*/ meltfptr[4]) /*then*/
2501             {
2502                 /*^cond.then*/
2503                 /*^block*/
2504                 /*anyblock*/
2505                 {
2506
2507                     /*_#GET_INT__L7*/ meltfnum[6] =
2508                         (melt_get_int((melt_ptr_t)(/*_.OBRANK__V11*/ meltfptr[4])));;
2509
2510
2511
2512                     {
2513                         MELT_LOCATION("warmelt-outobj.melt:3477:/ locexp");
2514                         meltgc_add_strbuf_dec((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#GET_INT__L7*/ meltfnum[6]));
2515                     }
2516                     ;
2517                     /*clear*/ /*_._IFELSE___V15*/
2518                     meltfptr[14] = 0 ;
2519                     /*epilog*/
2520
2521                     MELT_LOCATION("warmelt-outobj.melt:3476:/ clear");
2522                     /*clear*/ /*_#GET_INT__L7*/
2523                     meltfnum[6] = 0 ;
2524                 }
2525                 ;
2526             }
2527         else    /*^cond.else*/
2528             {
2529
2530                 /*^block*/
2531                 /*anyblock*/
2532                 {
2533
2534                     /*_#OBJ_HASH__L8*/ meltfnum[6] =
2535                         (melt_obj_hash((melt_ptr_t)(/*_.OBLAB__V2*/ meltfptr[1])));;
2536
2537                     MELT_CHECK_SIGNAL();
2538                     ;
2539                     MELT_LOCATION("warmelt-outobj.melt:3478:/ apply");
2540                     /*apply*/
2541                     {
2542                         union meltparam_un argtab[2];
2543                         memset(&argtab, 0, sizeof(argtab));
2544                         /*^apply.arg*/
2545                         argtab[0].meltbp_cstring =  "_h";
2546                         /*^apply.arg*/
2547                         argtab[1].meltbp_long = /*_#OBJ_HASH__L8*/ meltfnum[6];
2548                         /*_.STRING4OUT__V16*/
2549                         meltfptr[15] =  melt_apply ((meltclosure_ptr_t)((/*!STRING4OUT*/ meltfrout->tabval[6])), (melt_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[7])), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
2550                     }
2551                     ;
2552                     /*^compute*/
2553                     /*_.OBRANK__V11*/
2554                     meltfptr[4] = /*_.SETQ___V17*/ meltfptr[16] = /*_.STRING4OUT__V16*/ meltfptr[15];;
2555                     /*_._IFELSE___V15*/
2556                     meltfptr[14] = /*_.SETQ___V17*/ meltfptr[16];;
2557                     /*epilog*/
2558
2559                     MELT_LOCATION("warmelt-outobj.melt:3476:/ clear");
2560                     /*clear*/ /*_#OBJ_HASH__L8*/
2561                     meltfnum[6] = 0 ;
2562                     /*^clear*/
2563                     /*clear*/ /*_.STRING4OUT__V16*/
2564                     meltfptr[15] = 0 ;
2565                     /*^clear*/
2566                     /*clear*/ /*_.SETQ___V17*/
2567                     meltfptr[16] = 0 ;
2568                 }
2569                 ;
2570             }
2571         ;
2572
2573         {
2574             MELT_LOCATION("warmelt-outobj.melt:3480:/ locexp");
2575             /*add2sbuf_strconst*/
2576             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( ": ;"));
2577         }
2578         ;
2579
2580         {
2581             MELT_LOCATION("warmelt-outobj.melt:3481:/ locexp");
2582             meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#DEPTH__L1*/ meltfnum[0]), 0);
2583         }
2584         ;
2585
2586 #if MELT_HAVE_DEBUG
2587         MELT_LOCATION("warmelt-outobj.melt:3482:/ cppif.then");
2588         /*^block*/
2589         /*anyblock*/
2590         {
2591
2592
2593             MELT_CHECK_SIGNAL();
2594             ;
2595             /*_#STRBUF_USEDLENGTH__L9*/
2596             meltfnum[6] =
2597                 melt_strbuf_usedlength((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]));;
2598             MELT_LOCATION("warmelt-outobj.melt:3483:/ cond");
2599             /*cond*/
2600             if (
2601                 /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[8])),
2602                                               (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[4])))
2603             ) /*then*/
2604                 {
2605                     /*^cond.then*/
2606                     /*^getslot*/
2607                     {
2608                         melt_ptr_t slot=NULL, obj=NULL;
2609                         obj = (melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[8])) /*=obj*/;
2610                         melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE");
2611                         /*_.REFERENCED_VALUE__V19*/
2612                         meltfptr[16] = slot;
2613                     };
2614                     ;
2615                 }
2616             else    /*^cond.else*/
2617                 {
2618
2619                     /*_.REFERENCED_VALUE__V19*/ meltfptr[16] =  /*reallynil*/ NULL ;;
2620                 }
2621             ;
2622             /*^compute*/
2623             /*_#GET_INT__L10*/
2624             meltfnum[9] =
2625                 (melt_get_int((melt_ptr_t)(/*_.REFERENCED_VALUE__V19*/ meltfptr[16])));;
2626             /*^compute*/
2627             /*_#ltI__L11*/
2628             meltfnum[10] =
2629                 ((/*_#STRBUF_USEDLENGTH__L9*/ meltfnum[6]) < (/*_#GET_INT__L10*/ meltfnum[9]));;
2630             MELT_LOCATION("warmelt-outobj.melt:3482:/ cond");
2631             /*cond*/
2632             if (/*_#ltI__L11*/ meltfnum[10]) /*then*/
2633                 {
2634                     /*^cond.then*/
2635                     /*_._IFELSE___V20*/ meltfptr[19] = (/*nil*/NULL);;
2636                 }
2637             else
2638                 {
2639                     MELT_LOCATION("warmelt-outobj.melt:3482:/ cond.else");
2640
2641                     /*^block*/
2642                     /*anyblock*/
2643                     {
2644
2645
2646                         MELT_CHECK_SIGNAL();
2647                         ;
2648                         /*^apply*/
2649                         /*apply*/
2650                         {
2651                             union meltparam_un argtab[4];
2652                             memset(&argtab, 0, sizeof(argtab));
2653                             /*^apply.arg*/
2654                             argtab[0].meltbp_cstring =  "check limited implbuf";
2655                             /*^apply.arg*/
2656                             argtab[1].meltbp_cstring =  "warmelt-outobj.melt";
2657                             /*^apply.arg*/
2658                             argtab[2].meltbp_long = 3482;
2659                             /*^apply.arg*/
2660                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
2661                             /*_.MELT_ASSERT_FAILURE_FUN__V21*/
2662                             meltfptr[20] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
2663                         }
2664                         ;
2665                         /*_._IFELSE___V20*/
2666                         meltfptr[19] = /*_.MELT_ASSERT_FAILURE_FUN__V21*/ meltfptr[20];;
2667                         /*epilog*/
2668
2669                         MELT_LOCATION("warmelt-outobj.melt:3482:/ clear");
2670                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V21*/
2671                         meltfptr[20] = 0 ;
2672                     }
2673                     ;
2674                 }
2675             ;
2676             /*_.IFCPP___V18*/
2677             meltfptr[15] = /*_._IFELSE___V20*/ meltfptr[19];;
2678             /*epilog*/
2679
2680             MELT_LOCATION("warmelt-outobj.melt:3482:/ clear");
2681             /*clear*/ /*_#STRBUF_USEDLENGTH__L9*/
2682             meltfnum[6] = 0 ;
2683             /*^clear*/
2684             /*clear*/ /*_.REFERENCED_VALUE__V19*/
2685             meltfptr[16] = 0 ;
2686             /*^clear*/
2687             /*clear*/ /*_#GET_INT__L10*/
2688             meltfnum[9] = 0 ;
2689             /*^clear*/
2690             /*clear*/ /*_#ltI__L11*/
2691             meltfnum[10] = 0 ;
2692             /*^clear*/
2693             /*clear*/ /*_._IFELSE___V20*/
2694             meltfptr[19] = 0 ;
2695         }
2696
2697 #else /*MELT_HAVE_DEBUG*/
2698         /*^cppif.else*/
2699         /*_.IFCPP___V18*/ meltfptr[15] = (/*nil*/NULL);
2700 #endif /*MELT_HAVE_DEBUG*/
2701         ;
2702         MELT_LOCATION("warmelt-outobj.melt:3484:/ getslot");
2703         {
2704             melt_ptr_t slot=NULL, obj=NULL;
2705             obj = (melt_ptr_t)(/*_.OBLAB__V2*/ meltfptr[1]) /*=obj*/;
2706             melt_object_get_field(slot,obj, 0, "OBI_LOC");
2707             /*_.OBI_LOC__V22*/
2708             meltfptr[20] = slot;
2709         };
2710         ;
2711
2712         MELT_CHECK_SIGNAL();
2713         ;
2714         /*^apply*/
2715         /*apply*/
2716         {
2717             union meltparam_un argtab[3];
2718             memset(&argtab, 0, sizeof(argtab));
2719             /*^apply.arg*/
2720             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
2721             /*^apply.arg*/
2722             argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0];
2723             /*^apply.arg*/
2724             argtab[2].meltbp_cstring =  "objlabel";
2725             /*_.OUTPUT_LOCATION__V23*/
2726             meltfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.OBI_LOC__V22*/ meltfptr[20]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
2727         }
2728         ;
2729
2730         MELT_CHECK_SIGNAL();
2731         ;
2732         MELT_LOCATION("warmelt-outobj.melt:3485:/ apply");
2733         /*apply*/
2734         {
2735             union meltparam_un argtab[14];
2736             memset(&argtab, 0, sizeof(argtab));
2737             /*^apply.arg*/
2738             argtab[0].meltbp_cstring =  " /* objlabel */\n     #if MELTDEBUG_MATCHING\
2739 \n     static long meltlab_count_";
2740             /*^apply.arg*/
2741             argtab[1].meltbp_long = /*_#COUNT__L6*/ meltfnum[2];
2742             /*^apply.arg*/
2743             argtab[2].meltbp_cstring =  ";   \n     meltlab_count_";
2744             /*^apply.arg*/
2745             argtab[3].meltbp_long = /*_#COUNT__L6*/ meltfnum[2];
2746             /*^apply.arg*/
2747             argtab[4].meltbp_cstring =  "++;\n     debugeprintf(\"objlabel_";
2748             /*^apply.arg*/
2749             argtab[5].meltbp_long = /*_#COUNT__L6*/ meltfnum[2];
2750             /*^apply.arg*/
2751             argtab[6].meltbp_cstring =  " ";
2752             /*^apply.arg*/
2753             argtab[7].meltbp_aptr = (melt_ptr_t*) &/*_.OPREFIX__V10*/ meltfptr[8];
2754             /*^apply.arg*/
2755             argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.OBRANK__V11*/ meltfptr[4];
2756             /*^apply.arg*/
2757             argtab[9].meltbp_cstring =  " ";
2758             /*^apply.arg*/
2759             argtab[10].meltbp_aptr = (melt_ptr_t*) &/*_.OBLAB__V2*/ meltfptr[1];
2760             /*^apply.arg*/
2761             argtab[11].meltbp_cstring =  " %ld\", meltlab_count_";
2762             /*^apply.arg*/
2763             argtab[12].meltbp_long = /*_#COUNT__L6*/ meltfnum[2];
2764             /*^apply.arg*/
2765             argtab[13].meltbp_cstring =  ");\n     #endif\n     ";
2766             /*_.ADD2OUT__V24*/
2767             meltfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
2768         }
2769         ;
2770
2771         {
2772             MELT_LOCATION("warmelt-outobj.melt:3493:/ locexp");
2773             meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#DEPTH__L1*/ meltfnum[0]), 0);
2774         }
2775         ;
2776
2777         MELT_LOCATION("warmelt-outobj.melt:3470:/ clear");
2778         /*clear*/ /*_.OPREFIX__V10*/
2779         meltfptr[8] = 0 ;
2780         /*^clear*/
2781         /*clear*/ /*_.OBRANK__V11*/
2782         meltfptr[4] = 0 ;
2783         /*^clear*/
2784         /*clear*/ /*_.REFERENCED_VALUE__V12*/
2785         meltfptr[11] = 0 ;
2786         /*^clear*/
2787         /*clear*/ /*_#GET_INT__L5*/
2788         meltfnum[1] = 0 ;
2789         /*^clear*/
2790         /*clear*/ /*_#COUNT__L6*/
2791         meltfnum[2] = 0 ;
2792         /*^clear*/
2793         /*clear*/ /*_.BOX__V13*/
2794         meltfptr[12] = 0 ;
2795         /*^clear*/
2796         /*clear*/ /*_.SET_CONTENT__V14*/
2797         meltfptr[13] = 0 ;
2798         /*^clear*/
2799         /*clear*/ /*_._IFELSE___V15*/
2800         meltfptr[14] = 0 ;
2801         /*^clear*/
2802         /*clear*/ /*_.IFCPP___V18*/
2803         meltfptr[15] = 0 ;
2804         /*^clear*/
2805         /*clear*/ /*_.OBI_LOC__V22*/
2806         meltfptr[20] = 0 ;
2807         /*^clear*/
2808         /*clear*/ /*_.OUTPUT_LOCATION__V23*/
2809         meltfptr[16] = 0 ;
2810         /*^clear*/
2811         /*clear*/ /*_.ADD2OUT__V24*/
2812         meltfptr[19] = 0 ;
2813
2814         MELT_CHECK_SIGNAL();
2815         ;
2816         /*epilog*/
2817
2818         MELT_LOCATION("warmelt-outobj.melt:3465:/ clear");
2819         /*clear*/ /*_.IFCPP___V7*/
2820         meltfptr[5] = 0 ;
2821     }
2822
2823     ;
2824     goto meltlabend_rout;
2825 meltlabend_rout:
2826     melt_trace_end("OUTPUCOD_OBJLABELINSTR", meltcallcount);
2827     melt_blocklevel_signals = current_blocklevel_signals_meltrout_74_WARMELTmiOUTOBJ_OUTPUCOD_OBJLABELINSTR_melt;
2828     return (melt_ptr_t)(/*noretval*/ NULL);
2829 #undef meltcallcount
2830 #undef meltfram__
2831 #undef MELTFRAM_NBVARNUM
2832 #undef MELTFRAM_NBVARPTR
2833 } /*end meltrout_74_WARMELTmiOUTOBJ_OUTPUCOD_OBJLABELINSTR*/
2834
2835
2836
2837
2838
2839
2840 melt_ptr_t MELT_MODULE_VISIBILITY
2841 meltrout_75_WARMELTmiOUTOBJ_OUTPUCOD_OBJGOTOINSTR(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_,
2842         const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_)
2843 {
2844     long current_blocklevel_signals_meltrout_75_WARMELTmiOUTOBJ_OUTPUCOD_OBJGOTOINSTR_melt =  melt_blocklevel_signals;
2845
2846 #if MELT_HAVE_DEBUG
2847     static long melt_call_counter__;
2848     long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__;
2849 #undef meltcallcount
2850 #define meltcallcount melt_thiscallcounter__
2851 #else
2852 #undef meltcallcount
2853 #define meltcallcount 0L
2854 #endif
2855 //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538
2856
2857     /* start of frame for routine meltrout_75_WARMELTmiOUTOBJ_OUTPUCOD_OBJGOTOINSTR fromline 1752 */
2858
2859     /** start of frame for meltrout_75_WARMELTmiOUTOBJ_OUTPUCOD_OBJGOTOINSTR of CLASS_PROCROUTINEOBJ from 1555**/
2860
2861     /*curframdeclclassy*/ class MeltFrame_meltrout_75_WARMELTmiOUTOBJ_OUTPUCOD_OBJGOTOINSTR// fromline 1568
2862         : public Melt_CallFrameWithValues<15>
2863     {
2864     public: /* fromline 1572*/
2865         long mcfr_varnum[6];
2866         /*classy others*/
2867         long _meltsparel;
2868         void melt_mark_stuff (void)
2869         {
2870         } /*end melt_mark_stuff*/
2871         virtual void melt_mark_ggc_data (void)
2872         {
2873             melt_mark_values ();
2874             melt_mark_stuff ();
2875         }; /*end melt_mark_ggc_data*/
2876         MeltFrame_meltrout_75_WARMELTmiOUTOBJ_OUTPUCOD_OBJGOTOINSTR(meltclosure_ptr_t clos) //the closure constructor fromline 1630
2877             : Melt_CallFrameWithValues<15> (
2878 #if ENABLE_CHECKING /*fromline 1634*/
2879                 __FILE__, __LINE__,
2880 #endif /* ENABLE_CHECKING fromline 1638*/
2881                 sizeof(MeltFrame_meltrout_75_WARMELTmiOUTOBJ_OUTPUCOD_OBJGOTOINSTR), clos) {};
2882         MeltFrame_meltrout_75_WARMELTmiOUTOBJ_OUTPUCOD_OBJGOTOINSTR() //the constructor fromline 1642
2883             : Melt_CallFrameWithValues<15> (
2884 #if ENABLE_CHECKING /*fromline 1646*/
2885                 __FILE__, __LINE__,
2886 #endif /* ENABLE_CHECKING fromline 1650*/
2887                 sizeof(MeltFrame_meltrout_75_WARMELTmiOUTOBJ_OUTPUCOD_OBJGOTOINSTR)) {};
2888 #if ENABLE_CHECKING /*fromline 1654*/
2889         MeltFrame_meltrout_75_WARMELTmiOUTOBJ_OUTPUCOD_OBJGOTOINSTR(const char*fil, int lin) //the constructor fromline 1656
2890             : Melt_CallFrameWithValues<15> (fil,lin, sizeof(MeltFrame_meltrout_75_WARMELTmiOUTOBJ_OUTPUCOD_OBJGOTOINSTR)) {};
2891         MeltFrame_meltrout_75_WARMELTmiOUTOBJ_OUTPUCOD_OBJGOTOINSTR(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661
2892             : Melt_CallFrameWithValues<15> (fil,lin, sizeof(MeltFrame_meltrout_75_WARMELTmiOUTOBJ_OUTPUCOD_OBJGOTOINSTR), clos) {};
2893 #endif /* ENABLE_CHECKING fromline 1666*/
2894
2895     }; // end  class MeltFrame_meltrout_75_WARMELTmiOUTOBJ_OUTPUCOD_OBJGOTOINSTR
2896
2897
2898     /** end of frame for meltrout_75_WARMELTmiOUTOBJ_OUTPUCOD_OBJGOTOINSTR fromline 1697**/
2899
2900     /* end of frame for routine meltrout_75_WARMELTmiOUTOBJ_OUTPUCOD_OBJGOTOINSTR fromline 1756 */
2901
2902     /* classy proc frame meltrout_75_WARMELTmiOUTOBJ_OUTPUCOD_OBJGOTOINSTR */
2903     MeltFrame_meltrout_75_WARMELTmiOUTOBJ_OUTPUCOD_OBJGOTOINSTR
2904     meltfram__ /*declfrastruct fromline 1780*/
2905     /*classyprocarg meltrout_75_WARMELTmiOUTOBJ_OUTPUCOD_OBJGOTOINSTR fromline 1785*/
2906 #if ENABLE_CHECKING
2907     (__FILE__, __LINE__, meltclosp_) /* fromline 1789*/
2908 #else /*ENABLE_CHECKING */
2909     (meltclosp_) /* fromline 1793*/
2910 #endif /*ENABLE_CHECKING */
2911
2912     ;
2913 #define meltframe meltfram__
2914
2915     melt_trace_start("OUTPUCOD_OBJGOTOINSTR", meltcallcount);
2916     /*use arguments*/
2917     (void) meltclosp_;
2918     (void)meltfirstargp_;
2919     (void)meltxargdescr_;
2920     (void)meltxargtab_;
2921     (void)meltxresdescr_;
2922     (void)meltxrestab_;
2923     /*getargs*/
2924
2925     /*getarg#0*/
2926     MELT_LOCATION("warmelt-outobj.melt:3500:/ getarg");
2927     /*_.OBGOTO__V2*/
2928     meltfptr[1] = (melt_ptr_t) meltfirstargp_;
2929
2930     /*getarg#1*/
2931     /*^getarg*/
2932     if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs;
2933     /*_.DECLBUF__V3*/
2934     meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
2935     gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2])) != NULL);
2936
2937
2938     /*getarg#2*/
2939     /*^getarg*/
2940     if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs;
2941     /*_.IMPLBUF__V4*/
2942     meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL;
2943     gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3])) != NULL);
2944
2945
2946     /*getarg#3*/
2947     /*^getarg*/
2948     if (meltxargdescr_[2] != MELTBPAR_LONG) goto meltlab_endgetargs;
2949     /*_#DEPTH__L1*/
2950     meltfnum[0] = meltxargtab_[2].meltbp_long;
2951     ;
2952     goto meltlab_endgetargs;
2953 meltlab_endgetargs:
2954     ;
2955     /*body*/
2956     /*^block*/
2957     /*anyblock*/
2958     {
2959
2960
2961 #if MELT_HAVE_DEBUG
2962         MELT_LOCATION("warmelt-outobj.melt:3501:/ cppif.then");
2963         /*^block*/
2964         /*anyblock*/
2965         {
2966
2967
2968             MELT_CHECK_SIGNAL();
2969             ;
2970             /*_#IS_A__L2*/
2971             meltfnum[1] =
2972                 melt_is_instance_of((melt_ptr_t)(/*_.OBGOTO__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_OBJGOTOINSTR*/ meltfrout->tabval[0])));;
2973             MELT_LOCATION("warmelt-outobj.melt:3501:/ cond");
2974             /*cond*/
2975             if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/
2976                 {
2977                     /*^cond.then*/
2978                     /*_._IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);;
2979                 }
2980             else
2981                 {
2982                     MELT_LOCATION("warmelt-outobj.melt:3501:/ cond.else");
2983
2984                     /*^block*/
2985                     /*anyblock*/
2986                     {
2987
2988
2989                         MELT_CHECK_SIGNAL();
2990                         ;
2991                         /*^apply*/
2992                         /*apply*/
2993                         {
2994                             union meltparam_un argtab[4];
2995                             memset(&argtab, 0, sizeof(argtab));
2996                             /*^apply.arg*/
2997                             argtab[0].meltbp_cstring =  "check obgoto";
2998                             /*^apply.arg*/
2999                             argtab[1].meltbp_cstring =  "warmelt-outobj.melt";
3000                             /*^apply.arg*/
3001                             argtab[2].meltbp_long = 3501;
3002                             /*^apply.arg*/
3003                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OBGOTO__V2*/ meltfptr[1];
3004                             /*_.MELT_ASSERT_FAILURE_FUN__V7*/
3005                             meltfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
3006                         }
3007                         ;
3008                         /*_._IFELSE___V6*/
3009                         meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6];;
3010                         /*epilog*/
3011
3012                         MELT_LOCATION("warmelt-outobj.melt:3501:/ clear");
3013                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V7*/
3014                         meltfptr[6] = 0 ;
3015                     }
3016                     ;
3017                 }
3018             ;
3019             /*_.IFCPP___V5*/
3020             meltfptr[4] = /*_._IFELSE___V6*/ meltfptr[5];;
3021             /*epilog*/
3022
3023             MELT_LOCATION("warmelt-outobj.melt:3501:/ clear");
3024             /*clear*/ /*_#IS_A__L2*/
3025             meltfnum[1] = 0 ;
3026             /*^clear*/
3027             /*clear*/ /*_._IFELSE___V6*/
3028             meltfptr[5] = 0 ;
3029         }
3030
3031 #else /*MELT_HAVE_DEBUG*/
3032         /*^cppif.else*/
3033         /*_.IFCPP___V5*/ meltfptr[4] = (/*nil*/NULL);
3034 #endif /*MELT_HAVE_DEBUG*/
3035         ;
3036         MELT_LOCATION("warmelt-outobj.melt:3502:/ getslot");
3037         {
3038             melt_ptr_t slot=NULL, obj=NULL;
3039             obj = (melt_ptr_t)(/*_.OBGOTO__V2*/ meltfptr[1]) /*=obj*/;
3040             melt_object_get_field(slot,obj, 0, "OBI_LOC");
3041             /*_.OBI_LOC__V8*/
3042             meltfptr[6] = slot;
3043         };
3044         ;
3045
3046         MELT_CHECK_SIGNAL();
3047         ;
3048         /*^apply*/
3049         /*apply*/
3050         {
3051             union meltparam_un argtab[3];
3052             memset(&argtab, 0, sizeof(argtab));
3053             /*^apply.arg*/
3054             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
3055             /*^apply.arg*/
3056             argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0];
3057             /*^apply.arg*/
3058             argtab[2].meltbp_cstring =  "objgoto";
3059             /*_.OUTPUT_LOCATION__V9*/
3060             meltfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.OBI_LOC__V8*/ meltfptr[6]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
3061         }
3062         ;
3063
3064         {
3065             MELT_LOCATION("warmelt-outobj.melt:3503:/ locexp");
3066             /*add2sbuf_strconst*/
3067             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "/*objgoto*/ goto "));
3068         }
3069         ;
3070         MELT_LOCATION("warmelt-outobj.melt:3504:/ getslot");
3071         {
3072             melt_ptr_t slot=NULL, obj=NULL;
3073             obj = (melt_ptr_t)(/*_.OBGOTO__V2*/ meltfptr[1]) /*=obj*/;
3074             melt_object_get_field(slot,obj, 1, "OBGOTO_PREFIX");
3075             /*_.OBGOTO_PREFIX__V10*/
3076             meltfptr[9] = slot;
3077         };
3078         ;
3079
3080         {
3081             /*^locexp*/
3082             /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]),
3083                                                   melt_string_str((melt_ptr_t)(/*_.OBGOTO_PREFIX__V10*/ meltfptr[9])));
3084         }
3085         ;
3086         MELT_LOCATION("warmelt-outobj.melt:3505:/ quasiblock");
3087
3088
3089         /*^getslot*/
3090         {
3091             melt_ptr_t slot=NULL, obj=NULL;
3092             obj = (melt_ptr_t)(/*_.OBGOTO__V2*/ meltfptr[1]) /*=obj*/;
3093             melt_object_get_field(slot,obj, 2, "OBGOTO_RANK");
3094             /*_.OBRANK__V11*/
3095             meltfptr[10] = slot;
3096         };
3097         ;
3098
3099         MELT_CHECK_SIGNAL();
3100         ;
3101         MELT_LOCATION("warmelt-outobj.melt:3506:/ cond");
3102         /*cond*/
3103         if (/*_.OBRANK__V11*/ meltfptr[10]) /*then*/
3104             {
3105                 /*^cond.then*/
3106                 /*^block*/
3107                 /*anyblock*/
3108                 {
3109
3110                     /*_#GET_INT__L3*/ meltfnum[1] =
3111                         (melt_get_int((melt_ptr_t)(/*_.OBRANK__V11*/ meltfptr[10])));;
3112
3113                     {
3114                         MELT_LOCATION("warmelt-outobj.melt:3507:/ locexp");
3115                         meltgc_add_strbuf_dec((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#GET_INT__L3*/ meltfnum[1]));
3116                     }
3117                     ;
3118                     /*epilog*/
3119
3120                     MELT_LOCATION("warmelt-outobj.melt:3506:/ clear");
3121                     /*clear*/ /*_#GET_INT__L3*/
3122                     meltfnum[1] = 0 ;
3123                 }
3124                 ;
3125             } /*noelse*/
3126         ;
3127
3128         MELT_LOCATION("warmelt-outobj.melt:3505:/ clear");
3129         /*clear*/ /*_.OBRANK__V11*/
3130         meltfptr[10] = 0 ;
3131
3132         {
3133             MELT_LOCATION("warmelt-outobj.melt:3508:/ locexp");
3134             /*add2sbuf_strconst*/
3135             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( ";"));
3136         }
3137         ;
3138
3139         {
3140             MELT_LOCATION("warmelt-outobj.melt:3509:/ locexp");
3141             meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#DEPTH__L1*/ meltfnum[0]), 0);
3142         }
3143         ;
3144
3145 #if MELT_HAVE_DEBUG
3146         MELT_LOCATION("warmelt-outobj.melt:3510:/ cppif.then");
3147         /*^block*/
3148         /*anyblock*/
3149         {
3150
3151
3152             MELT_CHECK_SIGNAL();
3153             ;
3154             /*_#STRBUF_USEDLENGTH__L4*/
3155             meltfnum[1] =
3156                 melt_strbuf_usedlength((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]));;
3157             MELT_LOCATION("warmelt-outobj.melt:3511:/ cond");
3158             /*cond*/
3159             if (
3160                 /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[3])),
3161                                               (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[4])))
3162             ) /*then*/
3163                 {
3164                     /*^cond.then*/
3165                     /*^getslot*/
3166                     {
3167                         melt_ptr_t slot=NULL, obj=NULL;
3168                         obj = (melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[3])) /*=obj*/;
3169                         melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE");
3170                         /*_.REFERENCED_VALUE__V13*/
3171                         meltfptr[12] = slot;
3172                     };
3173                     ;
3174                 }
3175             else    /*^cond.else*/
3176                 {
3177
3178                     /*_.REFERENCED_VALUE__V13*/ meltfptr[12] =  /*reallynil*/ NULL ;;
3179                 }
3180             ;
3181             /*^compute*/
3182             /*_#GET_INT__L5*/
3183             meltfnum[4] =
3184                 (melt_get_int((melt_ptr_t)(/*_.REFERENCED_VALUE__V13*/ meltfptr[12])));;
3185             /*^compute*/
3186             /*_#ltI__L6*/
3187             meltfnum[5] =
3188                 ((/*_#STRBUF_USEDLENGTH__L4*/ meltfnum[1]) < (/*_#GET_INT__L5*/ meltfnum[4]));;
3189             MELT_LOCATION("warmelt-outobj.melt:3510:/ cond");
3190             /*cond*/
3191             if (/*_#ltI__L6*/ meltfnum[5]) /*then*/
3192                 {
3193                     /*^cond.then*/
3194                     /*_._IFELSE___V14*/ meltfptr[13] = (/*nil*/NULL);;
3195                 }
3196             else
3197                 {
3198                     MELT_LOCATION("warmelt-outobj.melt:3510:/ cond.else");
3199
3200                     /*^block*/
3201                     /*anyblock*/
3202                     {
3203
3204
3205                         MELT_CHECK_SIGNAL();
3206                         ;
3207                         /*^apply*/
3208                         /*apply*/
3209                         {
3210                             union meltparam_un argtab[4];
3211                             memset(&argtab, 0, sizeof(argtab));
3212                             /*^apply.arg*/
3213                             argtab[0].meltbp_cstring =  "check limited implbuf";
3214                             /*^apply.arg*/
3215                             argtab[1].meltbp_cstring =  "warmelt-outobj.melt";
3216                             /*^apply.arg*/
3217                             argtab[2].meltbp_long = 3510;
3218                             /*^apply.arg*/
3219                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
3220                             /*_.MELT_ASSERT_FAILURE_FUN__V15*/
3221                             meltfptr[14] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
3222                         }
3223                         ;
3224                         /*_._IFELSE___V14*/
3225                         meltfptr[13] = /*_.MELT_ASSERT_FAILURE_FUN__V15*/ meltfptr[14];;
3226                         /*epilog*/
3227
3228                         MELT_LOCATION("warmelt-outobj.melt:3510:/ clear");
3229                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V15*/
3230                         meltfptr[14] = 0 ;
3231                     }
3232                     ;
3233                 }
3234             ;
3235             /*_.IFCPP___V12*/
3236             meltfptr[10] = /*_._IFELSE___V14*/ meltfptr[13];;
3237             /*epilog*/
3238
3239             MELT_LOCATION("warmelt-outobj.melt:3510:/ clear");
3240             /*clear*/ /*_#STRBUF_USEDLENGTH__L4*/
3241             meltfnum[1] = 0 ;
3242             /*^clear*/
3243             /*clear*/ /*_.REFERENCED_VALUE__V13*/
3244             meltfptr[12] = 0 ;
3245             /*^clear*/
3246             /*clear*/ /*_#GET_INT__L5*/
3247             meltfnum[4] = 0 ;
3248             /*^clear*/
3249             /*clear*/ /*_#ltI__L6*/
3250             meltfnum[5] = 0 ;
3251             /*^clear*/
3252             /*clear*/ /*_._IFELSE___V14*/
3253             meltfptr[13] = 0 ;
3254         }
3255
3256 #else /*MELT_HAVE_DEBUG*/
3257         /*^cppif.else*/
3258         /*_.IFCPP___V12*/ meltfptr[10] = (/*nil*/NULL);
3259 #endif /*MELT_HAVE_DEBUG*/
3260         ;
3261
3262         MELT_CHECK_SIGNAL();
3263         ;
3264         MELT_LOCATION("warmelt-outobj.melt:3500:/ quasiblock");
3265
3266
3267         /*_._RETVAL___V1*/
3268         meltfptr[0] = /*_.IFCPP___V12*/ meltfptr[10];;
3269
3270         {
3271             MELT_LOCATION("warmelt-outobj.melt:3500:/ locexp");
3272             /*ochecknores compilobj_nrep_return*/
3273 #if MELT_HAVE_DEBUG
3274             if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
3275                 melt_warn_for_no_expected_secondary_results();
3276             /* we warned when secondary results are expected but not returned. */
3277 #endif /*MELT_HAVE_DEBUG*/
3278             ;
3279         }
3280         ;
3281         /*^finalreturn*/
3282         ;
3283         /*finalret*/
3284         goto meltlabend_rout ;
3285         /*epilog*/
3286
3287         /*^clear*/
3288         /*clear*/ /*_.IFCPP___V5*/
3289         meltfptr[4] = 0 ;
3290         /*^clear*/
3291         /*clear*/ /*_.OBI_LOC__V8*/
3292         meltfptr[6] = 0 ;
3293         /*^clear*/
3294         /*clear*/ /*_.OUTPUT_LOCATION__V9*/
3295         meltfptr[5] = 0 ;
3296         /*^clear*/
3297         /*clear*/ /*_.OBGOTO_PREFIX__V10*/
3298         meltfptr[9] = 0 ;
3299         /*^clear*/
3300         /*clear*/ /*_.IFCPP___V12*/
3301         meltfptr[10] = 0 ;
3302     }
3303
3304     ;
3305     goto meltlabend_rout;
3306 meltlabend_rout:
3307     melt_trace_end("OUTPUCOD_OBJGOTOINSTR", meltcallcount);
3308     melt_blocklevel_signals = current_blocklevel_signals_meltrout_75_WARMELTmiOUTOBJ_OUTPUCOD_OBJGOTOINSTR_melt;
3309     return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]);
3310 #undef meltcallcount
3311 #undef meltfram__
3312 #undef MELTFRAM_NBVARNUM
3313 #undef MELTFRAM_NBVARPTR
3314 } /*end meltrout_75_WARMELTmiOUTOBJ_OUTPUCOD_OBJGOTOINSTR*/
3315
3316
3317
3318
3319
3320
3321 melt_ptr_t MELT_MODULE_VISIBILITY
3322 meltrout_76_WARMELTmiOUTOBJ_ADD2SBUF_CLONSYM(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_,
3323         const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_)
3324 {
3325     long current_blocklevel_signals_meltrout_76_WARMELTmiOUTOBJ_ADD2SBUF_CLONSYM_melt =  melt_blocklevel_signals;
3326
3327 #if MELT_HAVE_DEBUG
3328     static long melt_call_counter__;
3329     long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__;
3330 #undef meltcallcount
3331 #define meltcallcount melt_thiscallcounter__
3332 #else
3333 #undef meltcallcount
3334 #define meltcallcount 0L
3335 #endif
3336 //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538
3337
3338     /* start of frame for routine meltrout_76_WARMELTmiOUTOBJ_ADD2SBUF_CLONSYM fromline 1752 */
3339
3340     /** start of frame for meltrout_76_WARMELTmiOUTOBJ_ADD2SBUF_CLONSYM of CLASS_PROCROUTINEOBJ from 1555**/
3341
3342     /*curframdeclclassy*/ class MeltFrame_meltrout_76_WARMELTmiOUTOBJ_ADD2SBUF_CLONSYM// fromline 1568
3343         : public Melt_CallFrameWithValues<16>
3344     {
3345     public: /* fromline 1572*/
3346         long mcfr_varnum[6];
3347         /*classy others*/
3348         long _meltsparel;
3349         void melt_mark_stuff (void)
3350         {
3351         } /*end melt_mark_stuff*/
3352         virtual void melt_mark_ggc_data (void)
3353         {
3354             melt_mark_values ();
3355             melt_mark_stuff ();
3356         }; /*end melt_mark_ggc_data*/
3357         MeltFrame_meltrout_76_WARMELTmiOUTOBJ_ADD2SBUF_CLONSYM(meltclosure_ptr_t clos) //the closure constructor fromline 1630
3358             : Melt_CallFrameWithValues<16> (
3359 #if ENABLE_CHECKING /*fromline 1634*/
3360                 __FILE__, __LINE__,
3361 #endif /* ENABLE_CHECKING fromline 1638*/
3362                 sizeof(MeltFrame_meltrout_76_WARMELTmiOUTOBJ_ADD2SBUF_CLONSYM), clos) {};
3363         MeltFrame_meltrout_76_WARMELTmiOUTOBJ_ADD2SBUF_CLONSYM() //the constructor fromline 1642
3364             : Melt_CallFrameWithValues<16> (
3365 #if ENABLE_CHECKING /*fromline 1646*/
3366                 __FILE__, __LINE__,
3367 #endif /* ENABLE_CHECKING fromline 1650*/
3368                 sizeof(MeltFrame_meltrout_76_WARMELTmiOUTOBJ_ADD2SBUF_CLONSYM)) {};
3369 #if ENABLE_CHECKING /*fromline 1654*/
3370         MeltFrame_meltrout_76_WARMELTmiOUTOBJ_ADD2SBUF_CLONSYM(const char*fil, int lin) //the constructor fromline 1656
3371             : Melt_CallFrameWithValues<16> (fil,lin, sizeof(MeltFrame_meltrout_76_WARMELTmiOUTOBJ_ADD2SBUF_CLONSYM)) {};
3372         MeltFrame_meltrout_76_WARMELTmiOUTOBJ_ADD2SBUF_CLONSYM(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661
3373             : Melt_CallFrameWithValues<16> (fil,lin, sizeof(MeltFrame_meltrout_76_WARMELTmiOUTOBJ_ADD2SBUF_CLONSYM), clos) {};
3374 #endif /* ENABLE_CHECKING fromline 1666*/
3375
3376     }; // end  class MeltFrame_meltrout_76_WARMELTmiOUTOBJ_ADD2SBUF_CLONSYM
3377
3378
3379     /** end of frame for meltrout_76_WARMELTmiOUTOBJ_ADD2SBUF_CLONSYM fromline 1697**/
3380
3381     /* end of frame for routine meltrout_76_WARMELTmiOUTOBJ_ADD2SBUF_CLONSYM fromline 1756 */
3382
3383     /* classy proc frame meltrout_76_WARMELTmiOUTOBJ_ADD2SBUF_CLONSYM */
3384     MeltFrame_meltrout_76_WARMELTmiOUTOBJ_ADD2SBUF_CLONSYM
3385     meltfram__ /*declfrastruct fromline 1780*/
3386     /*classyprocarg meltrout_76_WARMELTmiOUTOBJ_ADD2SBUF_CLONSYM fromline 1785*/
3387 #if ENABLE_CHECKING
3388     (__FILE__, __LINE__, meltclosp_) /* fromline 1789*/
3389 #else /*ENABLE_CHECKING */
3390     (meltclosp_) /* fromline 1793*/
3391 #endif /*ENABLE_CHECKING */
3392
3393     ;
3394 #define meltframe meltfram__
3395
3396     melt_trace_start("ADD2SBUF_CLONSYM", meltcallcount);
3397     /*use arguments*/
3398     (void) meltclosp_;
3399     (void)meltfirstargp_;
3400     (void)meltxargdescr_;
3401     (void)meltxargtab_;
3402     (void)meltxresdescr_;
3403     (void)meltxrestab_;
3404     /*getargs*/
3405
3406     /*getarg#0*/
3407     MELT_LOCATION("warmelt-outobj.melt:3517:/ getarg");
3408     /*_.SBUF__V2*/
3409     meltfptr[1] = (melt_ptr_t) meltfirstargp_;
3410
3411     /*getarg#1*/
3412     /*^getarg*/
3413     if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs;
3414     /*_.CSY__V3*/
3415     meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
3416     gcc_assert(melt_discr((melt_ptr_t)(/*_.CSY__V3*/ meltfptr[2])) != NULL);
3417
3418     ;
3419     goto meltlab_endgetargs;
3420 meltlab_endgetargs:
3421     ;
3422     /*body*/
3423     /*^block*/
3424     /*anyblock*/
3425     {
3426
3427
3428 #if MELT_HAVE_DEBUG
3429         MELT_LOCATION("warmelt-outobj.melt:3518:/ cppif.then");
3430         /*^block*/
3431         /*anyblock*/
3432         {
3433
3434
3435             MELT_CHECK_SIGNAL();
3436             ;
3437             /*_#IS_STRBUF__L1*/
3438             meltfnum[0] =
3439                 (melt_magic_discr((melt_ptr_t)(/*_.SBUF__V2*/ meltfptr[1])) == MELTOBMAG_STRBUF);;
3440             MELT_LOCATION("warmelt-outobj.melt:3518:/ cond");
3441             /*cond*/
3442             if (/*_#IS_STRBUF__L1*/ meltfnum[0]) /*then*/
3443                 {
3444                     /*^cond.then*/
3445                     /*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);;
3446                 }
3447             else
3448                 {
3449                     MELT_LOCATION("warmelt-outobj.melt:3518:/ cond.else");
3450
3451                     /*^block*/
3452                     /*anyblock*/
3453                     {
3454
3455
3456                         MELT_CHECK_SIGNAL();
3457                         ;
3458                         /*^apply*/
3459                         /*apply*/
3460                         {
3461                             union meltparam_un argtab[4];
3462                             memset(&argtab, 0, sizeof(argtab));
3463                             /*^apply.arg*/
3464                             argtab[0].meltbp_cstring =  "check sbuf";
3465                             /*^apply.arg*/
3466                             argtab[1].meltbp_cstring =  "warmelt-outobj.melt";
3467                             /*^apply.arg*/
3468                             argtab[2].meltbp_long = 3518;
3469                             /*^apply.arg*/
3470                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SBUF__V2*/ meltfptr[1];
3471                             /*_.MELT_ASSERT_FAILURE_FUN__V6*/
3472                             meltfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
3473                         }
3474                         ;
3475                         /*_._IFELSE___V5*/
3476                         meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];;
3477                         /*epilog*/
3478
3479                         MELT_LOCATION("warmelt-outobj.melt:3518:/ clear");
3480                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/
3481                         meltfptr[5] = 0 ;
3482                     }
3483                     ;
3484                 }
3485             ;
3486             /*_.IFCPP___V4*/
3487             meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];;
3488             /*epilog*/
3489
3490             MELT_LOCATION("warmelt-outobj.melt:3518:/ clear");
3491             /*clear*/ /*_#IS_STRBUF__L1*/
3492             meltfnum[0] = 0 ;
3493             /*^clear*/
3494             /*clear*/ /*_._IFELSE___V5*/
3495             meltfptr[4] = 0 ;
3496         }
3497
3498 #else /*MELT_HAVE_DEBUG*/
3499         /*^cppif.else*/
3500         /*_.IFCPP___V4*/ meltfptr[3] = (/*nil*/NULL);
3501 #endif /*MELT_HAVE_DEBUG*/
3502         ;
3503
3504 #if MELT_HAVE_DEBUG
3505         MELT_LOCATION("warmelt-outobj.melt:3519:/ cppif.then");
3506         /*^block*/
3507         /*anyblock*/
3508         {
3509
3510
3511             MELT_CHECK_SIGNAL();
3512             ;
3513             /*_#IS_A__L2*/
3514             meltfnum[0] =
3515                 melt_is_instance_of((melt_ptr_t)(/*_.CSY__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_CLONED_SYMBOL*/ meltfrout->tabval[1])));;
3516             MELT_LOCATION("warmelt-outobj.melt:3519:/ cond");
3517             /*cond*/
3518             if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/
3519                 {
3520                     /*^cond.then*/
3521                     /*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);;
3522                 }
3523             else
3524                 {
3525                     MELT_LOCATION("warmelt-outobj.melt:3519:/ cond.else");
3526
3527                     /*^block*/
3528                     /*anyblock*/
3529                     {
3530
3531
3532                         MELT_CHECK_SIGNAL();
3533                         ;
3534                         /*^apply*/
3535                         /*apply*/
3536                         {
3537                             union meltparam_un argtab[4];
3538                             memset(&argtab, 0, sizeof(argtab));
3539                             /*^apply.arg*/
3540                             argtab[0].meltbp_cstring =  "check csy";
3541                             /*^apply.arg*/
3542                             argtab[1].meltbp_cstring =  "warmelt-outobj.melt";
3543                             /*^apply.arg*/
3544                             argtab[2].meltbp_long = 3519;
3545                             /*^apply.arg*/
3546                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CSY__V3*/ meltfptr[2];
3547                             /*_.MELT_ASSERT_FAILURE_FUN__V9*/
3548                             meltfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
3549                         }
3550                         ;
3551                         /*_._IFELSE___V8*/
3552                         meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];;
3553                         /*epilog*/
3554
3555                         MELT_LOCATION("warmelt-outobj.melt:3519:/ clear");
3556                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/
3557                         meltfptr[8] = 0 ;
3558                     }
3559                     ;
3560                 }
3561             ;
3562             /*_.IFCPP___V7*/
3563             meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];;
3564             /*epilog*/
3565
3566             MELT_LOCATION("warmelt-outobj.melt:3519:/ clear");
3567             /*clear*/ /*_#IS_A__L2*/
3568             meltfnum[0] = 0 ;
3569             /*^clear*/
3570             /*clear*/ /*_._IFELSE___V8*/
3571             meltfptr[4] = 0 ;
3572         }
3573
3574 #else /*MELT_HAVE_DEBUG*/
3575         /*^cppif.else*/
3576         /*_.IFCPP___V7*/ meltfptr[5] = (/*nil*/NULL);
3577 #endif /*MELT_HAVE_DEBUG*/
3578         ;
3579         MELT_LOCATION("warmelt-outobj.melt:3520:/ quasiblock");
3580
3581
3582         /*^getslot*/
3583         {
3584             melt_ptr_t slot=NULL, obj=NULL;
3585             obj = (melt_ptr_t)(/*_.CSY__V3*/ meltfptr[2]) /*=obj*/;
3586             melt_object_get_field(slot,obj, 1, "NAMED_NAME");
3587             /*_.CNAM__V11*/
3588             meltfptr[4] = slot;
3589         };
3590         ;
3591         MELT_LOCATION("warmelt-outobj.melt:3521:/ getslot");
3592         {
3593             melt_ptr_t slot=NULL, obj=NULL;
3594             obj = (melt_ptr_t)(/*_.CSY__V3*/ meltfptr[2]) /*=obj*/;
3595             melt_object_get_field(slot,obj, 3, "CSYM_URANK");
3596             /*_.CSYM_URANK__V12*/
3597             meltfptr[11] = slot;
3598         };
3599         ;
3600         /*_#RK__L3*/
3601         meltfnum[0] =
3602             (melt_get_int((melt_ptr_t)(/*_.CSYM_URANK__V12*/ meltfptr[11])));;
3603
3604         {
3605             MELT_LOCATION("warmelt-outobj.melt:3522:/ locexp");
3606             meltgc_add_strbuf_cident((melt_ptr_t)(/*_.SBUF__V2*/ meltfptr[1]),
3607                                      melt_string_str((melt_ptr_t)(/*_.CNAM__V11*/ meltfptr[4])));
3608         }
3609         ;
3610
3611         {
3612             MELT_LOCATION("warmelt-outobj.melt:3523:/ locexp");
3613             /*add2sbuf_strconst*/
3614             meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V2*/ meltfptr[1]), ( "_"));
3615         }
3616         ;
3617
3618         {
3619             MELT_LOCATION("warmelt-outobj.melt:3524:/ locexp");
3620             meltgc_add_strbuf_dec((melt_ptr_t)(/*_.SBUF__V2*/ meltfptr[1]), (/*_#RK__L3*/ meltfnum[0]));
3621         }
3622         ;
3623
3624 #if MELT_HAVE_DEBUG
3625         MELT_LOCATION("warmelt-outobj.melt:3525:/ cppif.then");
3626         /*^block*/
3627         /*anyblock*/
3628         {
3629
3630
3631             MELT_CHECK_SIGNAL();
3632             ;
3633             /*_#STRBUF_USEDLENGTH__L4*/
3634             meltfnum[3] =
3635                 melt_strbuf_usedlength((melt_ptr_t)(/*_.SBUF__V2*/ meltfptr[1]));;
3636             MELT_LOCATION("warmelt-outobj.melt:3526:/ cond");
3637             /*cond*/
3638             if (
3639                 /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[2])),
3640                                               (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[3])))
3641             ) /*then*/
3642                 {
3643                     /*^cond.then*/
3644                     /*^getslot*/
3645                     {
3646                         melt_ptr_t slot=NULL, obj=NULL;
3647                         obj = (melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[2])) /*=obj*/;
3648                         melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE");
3649                         /*_.REFERENCED_VALUE__V14*/
3650                         meltfptr[13] = slot;
3651                     };
3652                     ;
3653                 }
3654             else    /*^cond.else*/
3655                 {
3656
3657                     /*_.REFERENCED_VALUE__V14*/ meltfptr[13] =  /*reallynil*/ NULL ;;
3658                 }
3659             ;
3660             /*^compute*/
3661             /*_#GET_INT__L5*/
3662             meltfnum[4] =
3663                 (melt_get_int((melt_ptr_t)(/*_.REFERENCED_VALUE__V14*/ meltfptr[13])));;
3664             /*^compute*/
3665             /*_#ltI__L6*/
3666             meltfnum[5] =
3667                 ((/*_#STRBUF_USEDLENGTH__L4*/ meltfnum[3]) < (/*_#GET_INT__L5*/ meltfnum[4]));;
3668             MELT_LOCATION("warmelt-outobj.melt:3525:/ cond");
3669             /*cond*/
3670             if (/*_#ltI__L6*/ meltfnum[5]) /*then*/
3671                 {
3672                     /*^cond.then*/
3673                     /*_._IFELSE___V15*/ meltfptr[14] = (/*nil*/NULL);;
3674                 }
3675             else
3676                 {
3677                     MELT_LOCATION("warmelt-outobj.melt:3525:/ cond.else");
3678
3679                     /*^block*/
3680                     /*anyblock*/
3681                     {
3682
3683
3684                         MELT_CHECK_SIGNAL();
3685                         ;
3686                         /*^apply*/
3687                         /*apply*/
3688                         {
3689                             union meltparam_un argtab[4];
3690                             memset(&argtab, 0, sizeof(argtab));
3691                             /*^apply.arg*/
3692                             argtab[0].meltbp_cstring =  "check limited sbuf";
3693                             /*^apply.arg*/
3694                             argtab[1].meltbp_cstring =  "warmelt-outobj.melt";
3695                             /*^apply.arg*/
3696                             argtab[2].meltbp_long = 3525;
3697                             /*^apply.arg*/
3698                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SBUF__V2*/ meltfptr[1];
3699                             /*_.MELT_ASSERT_FAILURE_FUN__V16*/
3700                             meltfptr[15] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
3701                         }
3702                         ;
3703                         /*_._IFELSE___V15*/
3704                         meltfptr[14] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];;
3705                         /*epilog*/
3706
3707                         MELT_LOCATION("warmelt-outobj.melt:3525:/ clear");
3708                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/
3709                         meltfptr[15] = 0 ;
3710                     }
3711                     ;
3712                 }
3713             ;
3714             /*_.IFCPP___V13*/
3715             meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[14];;
3716             /*epilog*/
3717
3718             MELT_LOCATION("warmelt-outobj.melt:3525:/ clear");
3719             /*clear*/ /*_#STRBUF_USEDLENGTH__L4*/
3720             meltfnum[3] = 0 ;
3721             /*^clear*/
3722             /*clear*/ /*_.REFERENCED_VALUE__V14*/
3723             meltfptr[13] = 0 ;
3724             /*^clear*/
3725             /*clear*/ /*_#GET_INT__L5*/
3726             meltfnum[4] = 0 ;
3727             /*^clear*/
3728             /*clear*/ /*_#ltI__L6*/
3729             meltfnum[5] = 0 ;
3730             /*^clear*/
3731             /*clear*/ /*_._IFELSE___V15*/
3732             meltfptr[14] = 0 ;
3733         }
3734
3735 #else /*MELT_HAVE_DEBUG*/
3736         /*^cppif.else*/
3737         /*_.IFCPP___V13*/ meltfptr[12] = (/*nil*/NULL);
3738 #endif /*MELT_HAVE_DEBUG*/
3739         ;
3740         /*^compute*/
3741         /*_.LET___V10*/
3742         meltfptr[8] = /*_.IFCPP___V13*/ meltfptr[12];;
3743
3744         MELT_LOCATION("warmelt-outobj.melt:3520:/ clear");
3745         /*clear*/ /*_.CNAM__V11*/
3746         meltfptr[4] = 0 ;
3747         /*^clear*/
3748         /*clear*/ /*_.CSYM_URANK__V12*/
3749         meltfptr[11] = 0 ;
3750         /*^clear*/
3751         /*clear*/ /*_#RK__L3*/
3752         meltfnum[0] = 0 ;
3753         /*^clear*/
3754         /*clear*/ /*_.IFCPP___V13*/
3755         meltfptr[12] = 0 ;
3756
3757         MELT_CHECK_SIGNAL();
3758         ;
3759         MELT_LOCATION("warmelt-outobj.melt:3517:/ quasiblock");
3760
3761
3762         /*_._RETVAL___V1*/
3763         meltfptr[0] = /*_.LET___V10*/ meltfptr[8];;
3764
3765         {
3766             MELT_LOCATION("warmelt-outobj.melt:3517:/ locexp");
3767             /*ochecknores compilobj_nrep_return*/
3768 #if MELT_HAVE_DEBUG
3769             if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
3770                 melt_warn_for_no_expected_secondary_results();
3771             /* we warned when secondary results are expected but not returned. */
3772 #endif /*MELT_HAVE_DEBUG*/
3773             ;
3774         }
3775         ;
3776         /*^finalreturn*/
3777         ;
3778         /*finalret*/
3779         goto meltlabend_rout ;
3780         /*epilog*/
3781
3782         /*^clear*/
3783         /*clear*/ /*_.IFCPP___V4*/
3784         meltfptr[3] = 0 ;
3785         /*^clear*/
3786         /*clear*/ /*_.IFCPP___V7*/
3787         meltfptr[5] = 0 ;
3788         /*^clear*/
3789         /*clear*/ /*_.LET___V10*/
3790         meltfptr[8] = 0 ;
3791     }
3792
3793     ;
3794     goto meltlabend_rout;
3795 meltlabend_rout:
3796     melt_trace_end("ADD2SBUF_CLONSYM", meltcallcount);
3797     melt_blocklevel_signals = current_blocklevel_signals_meltrout_76_WARMELTmiOUTOBJ_ADD2SBUF_CLONSYM_melt;
3798     return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]);
3799 #undef meltcallcount
3800 #undef meltfram__
3801 #undef MELTFRAM_NBVARNUM
3802 #undef MELTFRAM_NBVARPTR
3803 } /*end meltrout_76_WARMELTmiOUTOBJ_ADD2SBUF_CLONSYM*/
3804
3805
3806
3807
3808
3809
3810 melt_ptr_t MELT_MODULE_VISIBILITY
3811 meltrout_77_WARMELTmiOUTOBJ_OUTPUCOD_OBJLOOP(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_,
3812         const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_)
3813 {
3814     long current_blocklevel_signals_meltrout_77_WARMELTmiOUTOBJ_OUTPUCOD_OBJLOOP_melt =  melt_blocklevel_signals;
3815
3816 #if MELT_HAVE_DEBUG
3817     static long melt_call_counter__;
3818     long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__;
3819 #undef meltcallcount
3820 #define meltcallcount melt_thiscallcounter__
3821 #else
3822 #undef meltcallcount
3823 #define meltcallcount 0L
3824 #endif
3825 //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538
3826
3827     /* start of frame for routine meltrout_77_WARMELTmiOUTOBJ_OUTPUCOD_OBJLOOP fromline 1752 */
3828
3829     /** start of frame for meltrout_77_WARMELTmiOUTOBJ_OUTPUCOD_OBJLOOP of CLASS_PROCROUTINEOBJ from 1555**/
3830
3831     /*curframdeclclassy*/ class MeltFrame_meltrout_77_WARMELTmiOUTOBJ_OUTPUCOD_OBJLOOP// fromline 1568
3832         : public Melt_CallFrameWithValues<38>
3833     {
3834     public: /* fromline 1572*/
3835         long mcfr_varnum[24];
3836         /*classy others*/
3837         long _meltsparel;
3838         void melt_mark_stuff (void)
3839         {
3840         } /*end melt_mark_stuff*/
3841         virtual void melt_mark_ggc_data (void)
3842         {
3843             melt_mark_values ();
3844             melt_mark_stuff ();
3845         }; /*end melt_mark_ggc_data*/
3846         MeltFrame_meltrout_77_WARMELTmiOUTOBJ_OUTPUCOD_OBJLOOP(meltclosure_ptr_t clos) //the closure constructor fromline 1630
3847             : Melt_CallFrameWithValues<38> (
3848 #if ENABLE_CHECKING /*fromline 1634*/
3849                 __FILE__, __LINE__,
3850 #endif /* ENABLE_CHECKING fromline 1638*/
3851                 sizeof(MeltFrame_meltrout_77_WARMELTmiOUTOBJ_OUTPUCOD_OBJLOOP), clos) {};
3852         MeltFrame_meltrout_77_WARMELTmiOUTOBJ_OUTPUCOD_OBJLOOP() //the constructor fromline 1642
3853             : Melt_CallFrameWithValues<38> (
3854 #if ENABLE_CHECKING /*fromline 1646*/
3855                 __FILE__, __LINE__,
3856 #endif /* ENABLE_CHECKING fromline 1650*/
3857                 sizeof(MeltFrame_meltrout_77_WARMELTmiOUTOBJ_OUTPUCOD_OBJLOOP)) {};
3858 #if ENABLE_CHECKING /*fromline 1654*/
3859         MeltFrame_meltrout_77_WARMELTmiOUTOBJ_OUTPUCOD_OBJLOOP(const char*fil, int lin) //the constructor fromline 1656
3860             : Melt_CallFrameWithValues<38> (fil,lin, sizeof(MeltFrame_meltrout_77_WARMELTmiOUTOBJ_OUTPUCOD_OBJLOOP)) {};
3861         MeltFrame_meltrout_77_WARMELTmiOUTOBJ_OUTPUCOD_OBJLOOP(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661
3862             : Melt_CallFrameWithValues<38> (fil,lin, sizeof(MeltFrame_meltrout_77_WARMELTmiOUTOBJ_OUTPUCOD_OBJLOOP), clos) {};
3863 #endif /* ENABLE_CHECKING fromline 1666*/
3864
3865     }; // end  class MeltFrame_meltrout_77_WARMELTmiOUTOBJ_OUTPUCOD_OBJLOOP
3866
3867
3868     /** end of frame for meltrout_77_WARMELTmiOUTOBJ_OUTPUCOD_OBJLOOP fromline 1697**/
3869
3870     /* end of frame for routine meltrout_77_WARMELTmiOUTOBJ_OUTPUCOD_OBJLOOP fromline 1756 */
3871
3872     /* classy proc frame meltrout_77_WARMELTmiOUTOBJ_OUTPUCOD_OBJLOOP */
3873     MeltFrame_meltrout_77_WARMELTmiOUTOBJ_OUTPUCOD_OBJLOOP
3874     meltfram__ /*declfrastruct fromline 1780*/
3875     /*classyprocarg meltrout_77_WARMELTmiOUTOBJ_OUTPUCOD_OBJLOOP fromline 1785*/
3876 #if ENABLE_CHECKING
3877     (__FILE__, __LINE__, meltclosp_) /* fromline 1789*/
3878 #else /*ENABLE_CHECKING */
3879     (meltclosp_) /* fromline 1793*/
3880 #endif /*ENABLE_CHECKING */
3881
3882     ;
3883 #define meltframe meltfram__
3884
3885     melt_trace_start("OUTPUCOD_OBJLOOP", meltcallcount);
3886     /*use arguments*/
3887     (void) meltclosp_;
3888     (void)meltfirstargp_;
3889     (void)meltxargdescr_;
3890     (void)meltxargtab_;
3891     (void)meltxresdescr_;
3892     (void)meltxrestab_;
3893     /*getargs*/
3894
3895     /*getarg#0*/
3896     MELT_LOCATION("warmelt-outobj.melt:3530:/ getarg");
3897     /*_.OBLO__V2*/
3898     meltfptr[1] = (melt_ptr_t) meltfirstargp_;
3899
3900     /*getarg#1*/
3901     /*^getarg*/
3902     if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs;
3903     /*_.DECLBUF__V3*/
3904     meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
3905     gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2])) != NULL);
3906
3907
3908     /*getarg#2*/
3909     /*^getarg*/
3910     if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs;
3911     /*_.IMPLBUF__V4*/
3912     meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL;
3913     gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3])) != NULL);
3914
3915
3916     /*getarg#3*/
3917     /*^getarg*/
3918     if (meltxargdescr_[2] != MELTBPAR_LONG) goto meltlab_endgetargs;
3919     /*_#DEPTH__L1*/
3920     meltfnum[0] = meltxargtab_[2].meltbp_long;
3921     ;
3922     goto meltlab_endgetargs;
3923 meltlab_endgetargs:
3924     ;
3925     /*body*/
3926     /*^block*/
3927     /*anyblock*/
3928     {
3929
3930
3931 #if MELT_HAVE_DEBUG
3932         MELT_LOCATION("warmelt-outobj.melt:3531:/ cppif.then");
3933         /*^block*/
3934         /*anyblock*/
3935         {
3936
3937
3938             MELT_CHECK_SIGNAL();
3939             ;
3940             /*_#IS_A__L2*/
3941             meltfnum[1] =
3942                 melt_is_instance_of((melt_ptr_t)(/*_.OBLO__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_OBJLOOP*/ meltfrout->tabval[0])));;
3943             MELT_LOCATION("warmelt-outobj.melt:3531:/ cond");
3944             /*cond*/
3945             if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/
3946                 {
3947                     /*^cond.then*/
3948                     /*_._IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);;
3949                 }
3950             else
3951                 {
3952                     MELT_LOCATION("warmelt-outobj.melt:3531:/ cond.else");
3953
3954                     /*^block*/
3955                     /*anyblock*/
3956                     {
3957
3958
3959                         MELT_CHECK_SIGNAL();
3960                         ;
3961                         /*^apply*/
3962                         /*apply*/
3963                         {
3964                             union meltparam_un argtab[4];
3965                             memset(&argtab, 0, sizeof(argtab));
3966                             /*^apply.arg*/
3967                             argtab[0].meltbp_cstring =  "check oblo";
3968                             /*^apply.arg*/
3969                             argtab[1].meltbp_cstring =  "warmelt-outobj.melt";
3970                             /*^apply.arg*/
3971                             argtab[2].meltbp_long = 3531;
3972                             /*^apply.arg*/
3973                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OBLO__V2*/ meltfptr[1];
3974                             /*_.MELT_ASSERT_FAILURE_FUN__V7*/
3975                             meltfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
3976                         }
3977                         ;
3978                         /*_._IFELSE___V6*/
3979                         meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6];;
3980                         /*epilog*/
3981
3982                         MELT_LOCATION("warmelt-outobj.melt:3531:/ clear");
3983                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V7*/
3984                         meltfptr[6] = 0 ;
3985                     }
3986                     ;
3987                 }
3988             ;
3989             /*_.IFCPP___V5*/
3990             meltfptr[4] = /*_._IFELSE___V6*/ meltfptr[5];;
3991             /*epilog*/
3992
3993             MELT_LOCATION("warmelt-outobj.melt:3531:/ clear");
3994             /*clear*/ /*_#IS_A__L2*/
3995             meltfnum[1] = 0 ;
3996             /*^clear*/
3997             /*clear*/ /*_._IFELSE___V6*/
3998             meltfptr[5] = 0 ;
3999         }
4000
4001 #else /*MELT_HAVE_DEBUG*/
4002         /*^cppif.else*/
4003         /*_.IFCPP___V5*/ meltfptr[4] = (/*nil*/NULL);
4004 #endif /*MELT_HAVE_DEBUG*/
4005         ;
4006         MELT_LOCATION("warmelt-outobj.melt:3532:/ quasiblock");
4007
4008
4009         /*^getslot*/
4010         {
4011             melt_ptr_t slot=NULL, obj=NULL;
4012             obj = (melt_ptr_t)(/*_.OBLO__V2*/ meltfptr[1]) /*=obj*/;
4013             melt_object_get_field(slot,obj, 1, "OBLO_BODYL");
4014             /*_.BODYL__V9*/
4015             meltfptr[5] = slot;
4016         };
4017         ;
4018         MELT_LOCATION("warmelt-outobj.melt:3533:/ getslot");
4019         {
4020             melt_ptr_t slot=NULL, obj=NULL;
4021             obj = (melt_ptr_t)(/*_.OBLO__V2*/ meltfptr[1]) /*=obj*/;
4022             melt_object_get_field(slot,obj, 2, "OBLO_EPIL");
4023             /*_.EPIL__V10*/
4024             meltfptr[9] = slot;
4025         };
4026         ;
4027         MELT_LOCATION("warmelt-outobj.melt:3534:/ getslot");
4028         {
4029             melt_ptr_t slot=NULL, obj=NULL;
4030             obj = (melt_ptr_t)(/*_.OBLO__V2*/ meltfptr[1]) /*=obj*/;
4031             melt_object_get_field(slot,obj, 3, "OBLOOP_LABEL");
4032             /*_.LAB__V11*/
4033             meltfptr[10] = slot;
4034         };
4035         ;
4036         MELT_LOCATION("warmelt-outobj.melt:3535:/ getslot");
4037         {
4038             melt_ptr_t slot=NULL, obj=NULL;
4039             obj = (melt_ptr_t)(/*_.OBLO__V2*/ meltfptr[1]) /*=obj*/;
4040             melt_object_get_field(slot,obj, 0, "OBI_LOC");
4041             /*_.OLOC__V12*/
4042             meltfptr[11] = slot;
4043         };
4044         ;
4045         /*_#plI__L3*/
4046         meltfnum[1] =
4047             ((/*_#DEPTH__L1*/ meltfnum[0]) + (1));;
4048         /*^compute*/
4049         /*_.BOXDEPTHP1__V13*/
4050         meltfptr[12] =
4051             (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[2])), (/*_#plI__L3*/ meltfnum[1])));;
4052
4053 #if MELT_HAVE_DEBUG
4054         MELT_LOCATION("warmelt-outobj.melt:3538:/ cppif.then");
4055         /*^block*/
4056         /*anyblock*/
4057         {
4058
4059
4060             MELT_CHECK_SIGNAL();
4061             ;
4062             /*_#IS_A__L4*/
4063             meltfnum[3] =
4064                 melt_is_instance_of((melt_ptr_t)(/*_.LAB__V11*/ meltfptr[10]), (melt_ptr_t)((/*!CLASS_CLONED_SYMBOL*/ meltfrout->tabval[3])));;
4065             MELT_LOCATION("warmelt-outobj.melt:3538:/ cond");
4066             /*cond*/
4067             if (/*_#IS_A__L4*/ meltfnum[3]) /*then*/
4068                 {
4069                     /*^cond.then*/
4070                     /*_._IFELSE___V15*/ meltfptr[14] = (/*nil*/NULL);;
4071                 }
4072             else
4073                 {
4074                     MELT_LOCATION("warmelt-outobj.melt:3538:/ cond.else");
4075
4076                     /*^block*/
4077                     /*anyblock*/
4078                     {
4079
4080
4081                         MELT_CHECK_SIGNAL();
4082                         ;
4083                         /*^apply*/
4084                         /*apply*/
4085                         {
4086                             union meltparam_un argtab[4];
4087                             memset(&argtab, 0, sizeof(argtab));
4088                             /*^apply.arg*/
4089                             argtab[0].meltbp_cstring =  "check lab";
4090                             /*^apply.arg*/
4091                             argtab[1].meltbp_cstring =  "warmelt-outobj.melt";
4092                             /*^apply.arg*/
4093                             argtab[2].meltbp_long = 3538;
4094                             /*^apply.arg*/
4095                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.LAB__V11*/ meltfptr[10];
4096                             /*_.MELT_ASSERT_FAILURE_FUN__V16*/
4097                             meltfptr[15] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
4098                         }
4099                         ;
4100                         /*_._IFELSE___V15*/
4101                         meltfptr[14] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];;
4102                         /*epilog*/
4103
4104                         MELT_LOCATION("warmelt-outobj.melt:3538:/ clear");
4105                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/
4106                         meltfptr[15] = 0 ;
4107                     }
4108                     ;
4109                 }
4110             ;
4111             /*_.IFCPP___V14*/
4112             meltfptr[13] = /*_._IFELSE___V15*/ meltfptr[14];;
4113             /*epilog*/
4114
4115             MELT_LOCATION("warmelt-outobj.melt:3538:/ clear");
4116             /*clear*/ /*_#IS_A__L4*/
4117             meltfnum[3] = 0 ;
4118             /*^clear*/
4119             /*clear*/ /*_._IFELSE___V15*/
4120             meltfptr[14] = 0 ;
4121         }
4122
4123 #else /*MELT_HAVE_DEBUG*/
4124         /*^cppif.else*/
4125         /*_.IFCPP___V14*/ meltfptr[13] = (/*nil*/NULL);
4126 #endif /*MELT_HAVE_DEBUG*/
4127         ;
4128
4129         MELT_CHECK_SIGNAL();
4130         ;
4131         MELT_LOCATION("warmelt-outobj.melt:3539:/ apply");
4132         /*apply*/
4133         {
4134             union meltparam_un argtab[3];
4135             memset(&argtab, 0, sizeof(argtab));
4136             /*^apply.arg*/
4137             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
4138             /*^apply.arg*/
4139             argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0];
4140             /*^apply.arg*/
4141             argtab[2].meltbp_cstring =  "loop";
4142             /*_.OUTPUT_LOCATION__V17*/
4143             meltfptr[15] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.OLOC__V12*/ meltfptr[11]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
4144         }
4145         ;
4146
4147         {
4148             MELT_LOCATION("warmelt-outobj.melt:3540:/ locexp");
4149             /*add2sbuf_strconst*/
4150             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "/*loop*/{ meltlabloop_"));
4151         }
4152         ;
4153
4154         MELT_CHECK_SIGNAL();
4155         ;
4156         MELT_LOCATION("warmelt-outobj.melt:3541:/ apply");
4157         /*apply*/
4158         {
4159             union meltparam_un argtab[1];
4160             memset(&argtab, 0, sizeof(argtab));
4161             /*^apply.arg*/
4162             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAB__V11*/ meltfptr[10];
4163             /*_.ADD2SBUF_CLONSYM__V18*/
4164             meltfptr[14] =  melt_apply ((meltclosure_ptr_t)((/*!ADD2SBUF_CLONSYM*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
4165         }
4166         ;
4167
4168         {
4169             MELT_LOCATION("warmelt-outobj.melt:3542:/ locexp");
4170             /*add2sbuf_strconst*/
4171             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( ":;"));
4172         }
4173         ;
4174
4175         MELT_CHECK_SIGNAL();
4176         ;
4177         /*_#IS_LIST__L5*/
4178         meltfnum[3] =
4179             (melt_magic_discr((melt_ptr_t)(/*_.BODYL__V9*/ meltfptr[5])) == MELTOBMAG_LIST);;
4180         MELT_LOCATION("warmelt-outobj.melt:3543:/ cond");
4181         /*cond*/
4182         if (/*_#IS_LIST__L5*/ meltfnum[3]) /*then*/
4183             {
4184                 /*^cond.then*/
4185                 /*^block*/
4186                 /*anyblock*/
4187                 {
4188
4189
4190                     MELT_CHECK_SIGNAL();
4191                     ;
4192                     MELT_LOCATION("warmelt-outobj.melt:3544:/ apply");
4193                     /*apply*/
4194                     {
4195                         union meltparam_un argtab[3];
4196                         memset(&argtab, 0, sizeof(argtab));
4197                         /*^apply.arg*/
4198                         argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
4199                         /*^apply.arg*/
4200                         argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0];
4201                         /*^apply.arg*/
4202                         argtab[2].meltbp_cstring =  "loopbody";
4203                         /*_.OUTPUT_LOCATION__V19*/
4204                         meltfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.OLOC__V12*/ meltfptr[11]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
4205                     }
4206                     ;
4207                     /*_#plI__L6*/
4208                     meltfnum[5] =
4209                         ((/*_#DEPTH__L1*/ meltfnum[0]) + (1));;
4210
4211                     {
4212                         MELT_LOCATION("warmelt-outobj.melt:3545:/ locexp");
4213                         meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#plI__L6*/ meltfnum[5]), 0);
4214                     }
4215                     ;
4216                     /*citerblock FOREACH_PAIR_COMPONENT_IN_LIST*/
4217                     {
4218                         /* start foreach_pair_component_in_list meltcit1__EACHLIST */
4219                         for (/*_.CURPAIR__V20*/ meltfptr[19] = melt_list_first( (melt_ptr_t)/*_.BODYL__V9*/ meltfptr[5]);
4220                                                 melt_magic_discr((melt_ptr_t) /*_.CURPAIR__V20*/ meltfptr[19]) == MELTOBMAG_PAIR;
4221                                                 /*_.CURPAIR__V20*/ meltfptr[19] = melt_pair_tail((melt_ptr_t) /*_.CURPAIR__V20*/ meltfptr[19]))
4222                             {
4223                                 /*_.CURBODY__V21*/ meltfptr[20] = melt_pair_head((melt_ptr_t) /*_.CURPAIR__V20*/ meltfptr[19]);
4224
4225
4226                                 MELT_LOCATION("warmelt-outobj.melt:3549:/ quasiblock");
4227
4228
4229                                 /*_#DEPTHP1__L7*/
4230                                 meltfnum[6] =
4231                                     (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V13*/ meltfptr[12])));;
4232
4233                                 MELT_CHECK_SIGNAL();
4234                                 ;
4235
4236                                 MELT_CHECK_SIGNAL();
4237                                 ;
4238                                 MELT_LOCATION("warmelt-outobj.melt:3550:/ cond");
4239                                 /*cond*/
4240                                 if (/*_.CURBODY__V21*/ meltfptr[20]) /*then*/
4241                                     {
4242                                         /*^cond.then*/
4243                                         /*^block*/
4244                                         /*anyblock*/
4245                                         {
4246
4247                                             /*_#IS_A__L9*/ meltfnum[8] =
4248                                                 melt_is_instance_of((melt_ptr_t)(/*_.CURBODY__V21*/ meltfptr[20]), (melt_ptr_t)((/*!CLASS_OBJPUREVALUE*/ meltfrout->tabval[6])));;
4249                                             /*^compute*/
4250                                             /*_#NOT__L10*/
4251                                             meltfnum[9] =
4252                                                 (!(/*_#IS_A__L9*/ meltfnum[8]));;
4253                                             /*^compute*/
4254                                             /*_#_IF___L8*/
4255                                             meltfnum[7] = /*_#NOT__L10*/ meltfnum[9];;
4256                                             /*epilog*/
4257
4258                                             MELT_LOCATION("warmelt-outobj.melt:3550:/ clear");
4259                                             /*clear*/ /*_#IS_A__L9*/
4260                                             meltfnum[8] = 0 ;
4261                                             /*^clear*/
4262                                             /*clear*/ /*_#NOT__L10*/
4263                                             meltfnum[9] = 0 ;
4264                                         }
4265                                         ;
4266                                     }
4267                                 else    /*^cond.else*/
4268                                     {
4269
4270                                         /*_#_IF___L8*/ meltfnum[7] = 0;;
4271                                     }
4272                                 ;
4273                                 MELT_LOCATION("warmelt-outobj.melt:3550:/ cond");
4274                                 /*cond*/
4275                                 if (/*_#_IF___L8*/ meltfnum[7]) /*then*/
4276                                     {
4277                                         /*^cond.then*/
4278                                         /*^block*/
4279                                         /*anyblock*/
4280                                         {
4281
4282
4283                                             MELT_CHECK_SIGNAL();
4284                                             ;
4285                                             MELT_LOCATION("warmelt-outobj.melt:3551:/ msend");
4286                                             /*msend*/
4287                                             {
4288                                                 union meltparam_un argtab[3];
4289                                                 memset(&argtab, 0, sizeof(argtab));
4290                                                 /*^ojbmsend.arg*/
4291                                                 argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2];
4292                                                 /*^ojbmsend.arg*/
4293                                                 argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
4294                                                 /*^ojbmsend.arg*/
4295                                                 argtab[2].meltbp_long = /*_#DEPTHP1__L7*/ meltfnum[6];
4296                                                 /*_.OUTPUT_C_CODE__V23*/
4297                                                 meltfptr[22] = meltgc_send((melt_ptr_t)(/*_.CURBODY__V21*/ meltfptr[20]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[7])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
4298                                             }
4299                                             ;
4300                                             /*_._IF___V22*/
4301                                             meltfptr[21] = /*_.OUTPUT_C_CODE__V23*/ meltfptr[22];;
4302                                             /*epilog*/
4303
4304                                             MELT_LOCATION("warmelt-outobj.melt:3550:/ clear");
4305                                             /*clear*/ /*_.OUTPUT_C_CODE__V23*/
4306                                             meltfptr[22] = 0 ;
4307                                         }
4308                                         ;
4309                                     }
4310                                 else    /*^cond.else*/
4311                                     {
4312
4313                                         /*_._IF___V22*/ meltfptr[21] =  /*reallynil*/ NULL ;;
4314                                     }
4315                                 ;
4316
4317                                 {
4318                                     MELT_LOCATION("warmelt-outobj.melt:3552:/ locexp");
4319                                     /*add2sbuf_strconst*/
4320                                     meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( ";"));
4321                                 }
4322                                 ;
4323
4324                                 {
4325                                     MELT_LOCATION("warmelt-outobj.melt:3553:/ locexp");
4326                                     meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#DEPTHP1__L7*/ meltfnum[6]), 0);
4327                                 }
4328                                 ;
4329
4330                                 MELT_LOCATION("warmelt-outobj.melt:3549:/ clear");
4331                                 /*clear*/ /*_#DEPTHP1__L7*/
4332                                 meltfnum[6] = 0 ;
4333                                 /*^clear*/
4334                                 /*clear*/ /*_#_IF___L8*/
4335                                 meltfnum[7] = 0 ;
4336                                 /*^clear*/
4337                                 /*clear*/ /*_._IF___V22*/
4338                                 meltfptr[21] = 0 ;
4339                             } /* end foreach_pair_component_in_list meltcit1__EACHLIST */
4340                         /*_.CURPAIR__V20*/ meltfptr[19] = NULL;
4341                         /*_.CURBODY__V21*/
4342                         meltfptr[20] = NULL;
4343
4344
4345                         /*citerepilog*/
4346
4347                         MELT_LOCATION("warmelt-outobj.melt:3546:/ clear");
4348                         /*clear*/ /*_.CURPAIR__V20*/
4349                         meltfptr[19] = 0 ;
4350                         /*^clear*/
4351                         /*clear*/ /*_.CURBODY__V21*/
4352                         meltfptr[20] = 0 ;
4353                     } /*endciterblock FOREACH_PAIR_COMPONENT_IN_LIST*/
4354                     ;
4355                     MELT_LOCATION("warmelt-outobj.melt:3543:/ quasiblock");
4356
4357
4358                     /*epilog*/
4359
4360                     /*^clear*/
4361                     /*clear*/ /*_.OUTPUT_LOCATION__V19*/
4362                     meltfptr[18] = 0 ;
4363                     /*^clear*/
4364                     /*clear*/ /*_#plI__L6*/
4365                     meltfnum[5] = 0 ;
4366                 }
4367                 ;
4368             } /*noelse*/
4369         ;
4370
4371         {
4372             MELT_LOCATION("warmelt-outobj.melt:3554:/ locexp");
4373             /*add2sbuf_strconst*/
4374             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( ";"));
4375         }
4376         ;
4377         /*_#plI__L11*/
4378         meltfnum[8] =
4379             ((/*_#DEPTH__L1*/ meltfnum[0]) + (1));;
4380
4381         {
4382             MELT_LOCATION("warmelt-outobj.melt:3555:/ locexp");
4383             meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#plI__L11*/ meltfnum[8]), 0);
4384         }
4385         ;
4386
4387         {
4388             MELT_LOCATION("warmelt-outobj.melt:3556:/ locexp");
4389             /*add2sbuf_strconst*/
4390             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( " goto meltlabloop_"));
4391         }
4392         ;
4393
4394         MELT_CHECK_SIGNAL();
4395         ;
4396         MELT_LOCATION("warmelt-outobj.melt:3557:/ apply");
4397         /*apply*/
4398         {
4399             union meltparam_un argtab[1];
4400             memset(&argtab, 0, sizeof(argtab));
4401             /*^apply.arg*/
4402             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAB__V11*/ meltfptr[10];
4403             /*_.ADD2SBUF_CLONSYM__V24*/
4404             meltfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!ADD2SBUF_CLONSYM*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
4405         }
4406         ;
4407
4408         {
4409             MELT_LOCATION("warmelt-outobj.melt:3558:/ locexp");
4410             /*add2sbuf_strconst*/
4411             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( ";"));
4412         }
4413         ;
4414         /*_#plI__L12*/
4415         meltfnum[9] =
4416             ((/*_#DEPTH__L1*/ meltfnum[0]) + (1));;
4417
4418         {
4419             MELT_LOCATION("warmelt-outobj.melt:3559:/ locexp");
4420             meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#plI__L12*/ meltfnum[9]), 0);
4421         }
4422         ;
4423
4424         {
4425             MELT_LOCATION("warmelt-outobj.melt:3560:/ locexp");
4426             /*add2sbuf_strconst*/
4427             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( " meltlabexit_"));
4428         }
4429         ;
4430
4431         MELT_CHECK_SIGNAL();
4432         ;
4433         MELT_LOCATION("warmelt-outobj.melt:3561:/ apply");
4434         /*apply*/
4435         {
4436             union meltparam_un argtab[1];
4437             memset(&argtab, 0, sizeof(argtab));
4438             /*^apply.arg*/
4439             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAB__V11*/ meltfptr[10];
4440             /*_.ADD2SBUF_CLONSYM__V25*/
4441             meltfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!ADD2SBUF_CLONSYM*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
4442         }
4443         ;
4444
4445         {
4446             MELT_LOCATION("warmelt-outobj.melt:3562:/ locexp");
4447             /*add2sbuf_strconst*/
4448             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( ":;"));
4449         }
4450         ;
4451
4452         MELT_CHECK_SIGNAL();
4453         ;
4454         /*_#IS_LIST__L13*/
4455         meltfnum[6] =
4456             (melt_magic_discr((melt_ptr_t)(/*_.EPIL__V10*/ meltfptr[9])) == MELTOBMAG_LIST);;
4457         MELT_LOCATION("warmelt-outobj.melt:3563:/ cond");
4458         /*cond*/
4459         if (/*_#IS_LIST__L13*/ meltfnum[6]) /*then*/
4460             {
4461                 /*^cond.then*/
4462                 /*^block*/
4463                 /*anyblock*/
4464                 {
4465
4466
4467                     MELT_CHECK_SIGNAL();
4468                     ;
4469                     MELT_LOCATION("warmelt-outobj.melt:3564:/ apply");
4470                     /*apply*/
4471                     {
4472                         union meltparam_un argtab[3];
4473                         memset(&argtab, 0, sizeof(argtab));
4474                         /*^apply.arg*/
4475                         argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
4476                         /*^apply.arg*/
4477                         argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0];
4478                         /*^apply.arg*/
4479                         argtab[2].meltbp_cstring =  "loopepilog";
4480                         /*_.OUTPUT_LOCATION__V26*/
4481                         meltfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.OLOC__V12*/ meltfptr[11]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
4482                     }
4483                     ;
4484
4485                     {
4486                         MELT_LOCATION("warmelt-outobj.melt:3565:/ locexp");
4487                         /*add2sbuf_strconst*/
4488                         meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "/*loopepilog*/"));
4489                     }
4490                     ;
4491                     /*_#plI__L14*/
4492                     meltfnum[7] =
4493                         ((/*_#DEPTH__L1*/ meltfnum[0]) + (1));;
4494
4495                     {
4496                         MELT_LOCATION("warmelt-outobj.melt:3566:/ locexp");
4497                         meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#plI__L14*/ meltfnum[7]), 0);
4498                     }
4499                     ;
4500                     /*citerblock FOREACH_PAIR_COMPONENT_IN_LIST*/
4501                     {
4502                         /* start foreach_pair_component_in_list meltcit2__EACHLIST */
4503                         for (/*_.CURPAIR__V27*/ meltfptr[26] = melt_list_first( (melt_ptr_t)/*_.EPIL__V10*/ meltfptr[9]);
4504                                                 melt_magic_discr((melt_ptr_t) /*_.CURPAIR__V27*/ meltfptr[26]) == MELTOBMAG_PAIR;
4505                                                 /*_.CURPAIR__V27*/ meltfptr[26] = melt_pair_tail((melt_ptr_t) /*_.CURPAIR__V27*/ meltfptr[26]))
4506                             {
4507                                 /*_.CUREPIL__V28*/ meltfptr[27] = melt_pair_head((melt_ptr_t) /*_.CURPAIR__V27*/ meltfptr[26]);
4508
4509
4510                                 MELT_LOCATION("warmelt-outobj.melt:3570:/ quasiblock");
4511
4512
4513                                 /*_#DEPTHP1__L15*/
4514                                 meltfnum[5] =
4515                                     (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V13*/ meltfptr[12])));;
4516
4517                                 MELT_CHECK_SIGNAL();
4518                                 ;
4519
4520                                 MELT_CHECK_SIGNAL();
4521                                 ;
4522                                 MELT_LOCATION("warmelt-outobj.melt:3571:/ cond");
4523                                 /*cond*/
4524                                 if (/*_.CUREPIL__V28*/ meltfptr[27]) /*then*/
4525                                     {
4526                                         /*^cond.then*/
4527                                         /*^block*/
4528                                         /*anyblock*/
4529                                         {
4530
4531                                             /*_#IS_A__L17*/ meltfnum[16] =
4532                                                 melt_is_instance_of((melt_ptr_t)(/*_.CUREPIL__V28*/ meltfptr[27]), (melt_ptr_t)((/*!CLASS_OBJPUREVALUE*/ meltfrout->tabval[6])));;
4533                                             /*^compute*/
4534                                             /*_#NOT__L18*/
4535                                             meltfnum[17] =
4536                                                 (!(/*_#IS_A__L17*/ meltfnum[16]));;
4537                                             /*^compute*/
4538                                             /*_#_IF___L16*/
4539                                             meltfnum[15] = /*_#NOT__L18*/ meltfnum[17];;
4540                                             /*epilog*/
4541
4542                                             MELT_LOCATION("warmelt-outobj.melt:3571:/ clear");
4543                                             /*clear*/ /*_#IS_A__L17*/
4544                                             meltfnum[16] = 0 ;
4545                                             /*^clear*/
4546                                             /*clear*/ /*_#NOT__L18*/
4547                                             meltfnum[17] = 0 ;
4548                                         }
4549                                         ;
4550                                     }
4551                                 else    /*^cond.else*/
4552                                     {
4553
4554                                         /*_#_IF___L16*/ meltfnum[15] = 0;;
4555                                     }
4556                                 ;
4557                                 MELT_LOCATION("warmelt-outobj.melt:3571:/ cond");
4558                                 /*cond*/
4559                                 if (/*_#_IF___L16*/ meltfnum[15]) /*then*/
4560                                     {
4561                                         /*^cond.then*/
4562                                         /*^block*/
4563                                         /*anyblock*/
4564                                         {
4565
4566
4567                                             MELT_CHECK_SIGNAL();
4568                                             ;
4569                                             MELT_LOCATION("warmelt-outobj.melt:3572:/ msend");
4570                                             /*msend*/
4571                                             {
4572                                                 union meltparam_un argtab[3];
4573                                                 memset(&argtab, 0, sizeof(argtab));
4574                                                 /*^ojbmsend.arg*/
4575                                                 argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2];
4576                                                 /*^ojbmsend.arg*/
4577                                                 argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
4578                                                 /*^ojbmsend.arg*/
4579                                                 argtab[2].meltbp_long = /*_#DEPTHP1__L15*/ meltfnum[5];
4580                                                 /*_.OUTPUT_C_CODE__V30*/
4581                                                 meltfptr[29] = meltgc_send((melt_ptr_t)(/*_.CUREPIL__V28*/ meltfptr[27]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[7])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
4582                                             }
4583                                             ;
4584                                             /*_._IF___V29*/
4585                                             meltfptr[28] = /*_.OUTPUT_C_CODE__V30*/ meltfptr[29];;
4586                                             /*epilog*/
4587
4588                                             MELT_LOCATION("warmelt-outobj.melt:3571:/ clear");
4589                                             /*clear*/ /*_.OUTPUT_C_CODE__V30*/
4590                                             meltfptr[29] = 0 ;
4591                                         }
4592                                         ;
4593                                     }
4594                                 else    /*^cond.else*/
4595                                     {
4596
4597                                         /*_._IF___V29*/ meltfptr[28] =  /*reallynil*/ NULL ;;
4598                                     }
4599                                 ;
4600
4601                                 {
4602                                     MELT_LOCATION("warmelt-outobj.melt:3573:/ locexp");
4603                                     /*add2sbuf_strconst*/
4604                                     meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( ";"));
4605                                 }
4606                                 ;
4607
4608 #if MELT_HAVE_DEBUG
4609                                 MELT_LOCATION("warmelt-outobj.melt:3574:/ cppif.then");
4610                                 /*^block*/
4611                                 /*anyblock*/
4612                                 {
4613
4614
4615                                     MELT_CHECK_SIGNAL();
4616                                     ;
4617                                     /*_#STRBUF_USEDLENGTH__L19*/
4618                                     meltfnum[16] =
4619                                         melt_strbuf_usedlength((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]));;
4620                                     MELT_LOCATION("warmelt-outobj.melt:3575:/ cond");
4621                                     /*cond*/
4622                                     if (
4623                                         /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[8])),
4624                                                                       (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[9])))
4625                                     ) /*then*/
4626                                         {
4627                                             /*^cond.then*/
4628                                             /*^getslot*/
4629                                             {
4630                                                 melt_ptr_t slot=NULL, obj=NULL;
4631                                                 obj = (melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[8])) /*=obj*/;
4632                                                 melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE");
4633                                                 /*_.REFERENCED_VALUE__V32*/
4634                                                 meltfptr[31] = slot;
4635                                             };
4636                                             ;
4637                                         }
4638                                     else    /*^cond.else*/
4639                                         {
4640
4641                                             /*_.REFERENCED_VALUE__V32*/ meltfptr[31] =  /*reallynil*/ NULL ;;
4642                                         }
4643                                     ;
4644                                     /*^compute*/
4645                                     /*_#GET_INT__L20*/
4646                                     meltfnum[17] =
4647                                         (melt_get_int((melt_ptr_t)(/*_.REFERENCED_VALUE__V32*/ meltfptr[31])));;
4648                                     /*^compute*/
4649                                     /*_#ltI__L21*/
4650                                     meltfnum[20] =
4651                                         ((/*_#STRBUF_USEDLENGTH__L19*/ meltfnum[16]) < (/*_#GET_INT__L20*/ meltfnum[17]));;
4652                                     MELT_LOCATION("warmelt-outobj.melt:3574:/ cond");
4653                                     /*cond*/
4654                                     if (/*_#ltI__L21*/ meltfnum[20]) /*then*/
4655                                         {
4656                                             /*^cond.then*/
4657                                             /*_._IFELSE___V33*/ meltfptr[32] = (/*nil*/NULL);;
4658                                         }
4659                                     else
4660                                         {
4661                                             MELT_LOCATION("warmelt-outobj.melt:3574:/ cond.else");
4662
4663                                             /*^block*/
4664                                             /*anyblock*/
4665                                             {
4666
4667
4668                                                 MELT_CHECK_SIGNAL();
4669                                                 ;
4670                                                 /*^apply*/
4671                                                 /*apply*/
4672                                                 {
4673                                                     union meltparam_un argtab[4];
4674                                                     memset(&argtab, 0, sizeof(argtab));
4675                                                     /*^apply.arg*/
4676                                                     argtab[0].meltbp_cstring =  "check limited implbuf";
4677                                                     /*^apply.arg*/
4678                                                     argtab[1].meltbp_cstring =  "warmelt-outobj.melt";
4679                                                     /*^apply.arg*/
4680                                                     argtab[2].meltbp_long = 3574;
4681                                                     /*^apply.arg*/
4682                                                     argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
4683                                                     /*_.MELT_ASSERT_FAILURE_FUN__V34*/
4684                                                     meltfptr[33] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
4685                                                 }
4686                                                 ;
4687                                                 /*_._IFELSE___V33*/
4688                                                 meltfptr[32] = /*_.MELT_ASSERT_FAILURE_FUN__V34*/ meltfptr[33];;
4689                                                 /*epilog*/
4690
4691                                                 MELT_LOCATION("warmelt-outobj.melt:3574:/ clear");
4692                                                 /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V34*/
4693                                                 meltfptr[33] = 0 ;
4694                                             }
4695                                             ;
4696                                         }
4697                                     ;
4698                                     /*_.IFCPP___V31*/
4699                                     meltfptr[29] = /*_._IFELSE___V33*/ meltfptr[32];;
4700                                     /*epilog*/
4701
4702                                     MELT_LOCATION("warmelt-outobj.melt:3574:/ clear");
4703                                     /*clear*/ /*_#STRBUF_USEDLENGTH__L19*/
4704                                     meltfnum[16] = 0 ;
4705                                     /*^clear*/
4706                                     /*clear*/ /*_.REFERENCED_VALUE__V32*/
4707                                     meltfptr[31] = 0 ;
4708                                     /*^clear*/
4709                                     /*clear*/ /*_#GET_INT__L20*/
4710                                     meltfnum[17] = 0 ;
4711                                     /*^clear*/
4712                                     /*clear*/ /*_#ltI__L21*/
4713                                     meltfnum[20] = 0 ;
4714                                     /*^clear*/
4715                                     /*clear*/ /*_._IFELSE___V33*/
4716                                     meltfptr[32] = 0 ;
4717                                 }
4718
4719 #else /*MELT_HAVE_DEBUG*/
4720                                 /*^cppif.else*/
4721                                 /*_.IFCPP___V31*/ meltfptr[29] = (/*nil*/NULL);
4722 #endif /*MELT_HAVE_DEBUG*/
4723                                 ;
4724
4725                                 {
4726                                     MELT_LOCATION("warmelt-outobj.melt:3576:/ locexp");
4727                                     meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#DEPTHP1__L15*/ meltfnum[5]), 0);
4728                                 }
4729                                 ;
4730
4731                                 MELT_LOCATION("warmelt-outobj.melt:3570:/ clear");
4732                                 /*clear*/ /*_#DEPTHP1__L15*/
4733                                 meltfnum[5] = 0 ;
4734                                 /*^clear*/
4735                                 /*clear*/ /*_#_IF___L16*/
4736                                 meltfnum[15] = 0 ;
4737                                 /*^clear*/
4738                                 /*clear*/ /*_._IF___V29*/
4739                                 meltfptr[28] = 0 ;
4740                                 /*^clear*/
4741                                 /*clear*/ /*_.IFCPP___V31*/
4742                                 meltfptr[29] = 0 ;
4743                             } /* end foreach_pair_component_in_list meltcit2__EACHLIST */
4744                         /*_.CURPAIR__V27*/ meltfptr[26] = NULL;
4745                         /*_.CUREPIL__V28*/
4746                         meltfptr[27] = NULL;
4747
4748
4749                         /*citerepilog*/
4750
4751                         MELT_LOCATION("warmelt-outobj.melt:3567:/ clear");
4752                         /*clear*/ /*_.CURPAIR__V27*/
4753                         meltfptr[26] = 0 ;
4754                         /*^clear*/
4755                         /*clear*/ /*_.CUREPIL__V28*/
4756                         meltfptr[27] = 0 ;
4757                     } /*endciterblock FOREACH_PAIR_COMPONENT_IN_LIST*/
4758                     ;
4759                     MELT_LOCATION("warmelt-outobj.melt:3563:/ quasiblock");
4760
4761
4762                     /*epilog*/
4763
4764                     /*^clear*/
4765                     /*clear*/ /*_.OUTPUT_LOCATION__V26*/
4766                     meltfptr[18] = 0 ;
4767                     /*^clear*/
4768                     /*clear*/ /*_#plI__L14*/
4769                     meltfnum[7] = 0 ;
4770                 }
4771                 ;
4772             } /*noelse*/
4773         ;
4774
4775         {
4776             MELT_LOCATION("warmelt-outobj.melt:3577:/ locexp");
4777             /*add2sbuf_strconst*/
4778             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "}"));
4779         }
4780         ;
4781
4782         {
4783             MELT_LOCATION("warmelt-outobj.melt:3578:/ locexp");
4784             meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#DEPTH__L1*/ meltfnum[0]), 0);
4785         }
4786         ;
4787
4788 #if MELT_HAVE_DEBUG
4789         MELT_LOCATION("warmelt-outobj.melt:3579:/ cppif.then");
4790         /*^block*/
4791         /*anyblock*/
4792         {
4793
4794
4795             MELT_CHECK_SIGNAL();
4796             ;
4797             /*_#STRBUF_USEDLENGTH__L22*/
4798             meltfnum[16] =
4799                 melt_strbuf_usedlength((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]));;
4800             MELT_LOCATION("warmelt-outobj.melt:3580:/ cond");
4801             /*cond*/
4802             if (
4803                 /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[8])),
4804                                               (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[9])))
4805             ) /*then*/
4806                 {
4807                     /*^cond.then*/
4808                     /*^getslot*/
4809                     {
4810                         melt_ptr_t slot=NULL, obj=NULL;
4811                         obj = (melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[8])) /*=obj*/;
4812                         melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE");
4813                         /*_.REFERENCED_VALUE__V36*/
4814                         meltfptr[31] = slot;
4815                     };
4816                     ;
4817                 }
4818             else    /*^cond.else*/
4819                 {
4820
4821                     /*_.REFERENCED_VALUE__V36*/ meltfptr[31] =  /*reallynil*/ NULL ;;
4822                 }
4823             ;
4824             /*^compute*/
4825             /*_#GET_INT__L23*/
4826             meltfnum[17] =
4827                 (melt_get_int((melt_ptr_t)(/*_.REFERENCED_VALUE__V36*/ meltfptr[31])));;
4828             /*^compute*/
4829             /*_#ltI__L24*/
4830             meltfnum[20] =
4831                 ((/*_#STRBUF_USEDLENGTH__L22*/ meltfnum[16]) < (/*_#GET_INT__L23*/ meltfnum[17]));;
4832             MELT_LOCATION("warmelt-outobj.melt:3579:/ cond");
4833             /*cond*/
4834             if (/*_#ltI__L24*/ meltfnum[20]) /*then*/
4835                 {
4836                     /*^cond.then*/
4837                     /*_._IFELSE___V37*/ meltfptr[32] = (/*nil*/NULL);;
4838                 }
4839             else
4840                 {
4841                     MELT_LOCATION("warmelt-outobj.melt:3579:/ cond.else");
4842
4843                     /*^block*/
4844                     /*anyblock*/
4845                     {
4846
4847
4848                         MELT_CHECK_SIGNAL();
4849                         ;
4850                         /*^apply*/
4851                         /*apply*/
4852                         {
4853                             union meltparam_un argtab[4];
4854                             memset(&argtab, 0, sizeof(argtab));
4855                             /*^apply.arg*/
4856                             argtab[0].meltbp_cstring =  "check limited implbuf";
4857                             /*^apply.arg*/
4858                             argtab[1].meltbp_cstring =  "warmelt-outobj.melt";
4859                             /*^apply.arg*/
4860                             argtab[2].meltbp_long = 3579;
4861                             /*^apply.arg*/
4862                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
4863                             /*_.MELT_ASSERT_FAILURE_FUN__V38*/
4864                             meltfptr[28] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
4865                         }
4866                         ;
4867                         /*_._IFELSE___V37*/
4868                         meltfptr[32] = /*_.MELT_ASSERT_FAILURE_FUN__V38*/ meltfptr[28];;
4869                         /*epilog*/
4870
4871                         MELT_LOCATION("warmelt-outobj.melt:3579:/ clear");
4872                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V38*/
4873                         meltfptr[28] = 0 ;
4874                     }
4875                     ;
4876                 }
4877             ;
4878             /*_.IFCPP___V35*/
4879             meltfptr[33] = /*_._IFELSE___V37*/ meltfptr[32];;
4880             /*epilog*/
4881
4882             MELT_LOCATION("warmelt-outobj.melt:3579:/ clear");
4883             /*clear*/ /*_#STRBUF_USEDLENGTH__L22*/
4884             meltfnum[16] = 0 ;
4885             /*^clear*/
4886             /*clear*/ /*_.REFERENCED_VALUE__V36*/
4887             meltfptr[31] = 0 ;
4888             /*^clear*/
4889             /*clear*/ /*_#GET_INT__L23*/
4890             meltfnum[17] = 0 ;
4891             /*^clear*/
4892             /*clear*/ /*_#ltI__L24*/
4893             meltfnum[20] = 0 ;
4894             /*^clear*/
4895             /*clear*/ /*_._IFELSE___V37*/
4896             meltfptr[32] = 0 ;
4897         }
4898
4899 #else /*MELT_HAVE_DEBUG*/
4900         /*^cppif.else*/
4901         /*_.IFCPP___V35*/ meltfptr[33] = (/*nil*/NULL);
4902 #endif /*MELT_HAVE_DEBUG*/
4903         ;
4904         /*^compute*/
4905         /*_.LET___V8*/
4906         meltfptr[6] = /*_.IFCPP___V35*/ meltfptr[33];;
4907
4908         MELT_LOCATION("warmelt-outobj.melt:3532:/ clear");
4909         /*clear*/ /*_.BODYL__V9*/
4910         meltfptr[5] = 0 ;
4911         /*^clear*/
4912         /*clear*/ /*_.EPIL__V10*/
4913         meltfptr[9] = 0 ;
4914         /*^clear*/
4915         /*clear*/ /*_.LAB__V11*/
4916         meltfptr[10] = 0 ;
4917         /*^clear*/
4918         /*clear*/ /*_.OLOC__V12*/
4919         meltfptr[11] = 0 ;
4920         /*^clear*/
4921         /*clear*/ /*_#plI__L3*/
4922         meltfnum[1] = 0 ;
4923         /*^clear*/
4924         /*clear*/ /*_.BOXDEPTHP1__V13*/
4925         meltfptr[12] = 0 ;
4926         /*^clear*/
4927         /*clear*/ /*_.IFCPP___V14*/
4928         meltfptr[13] = 0 ;
4929         /*^clear*/
4930         /*clear*/ /*_.OUTPUT_LOCATION__V17*/
4931         meltfptr[15] = 0 ;
4932         /*^clear*/
4933         /*clear*/ /*_.ADD2SBUF_CLONSYM__V18*/
4934         meltfptr[14] = 0 ;
4935         /*^clear*/
4936         /*clear*/ /*_#IS_LIST__L5*/
4937         meltfnum[3] = 0 ;
4938         /*^clear*/
4939         /*clear*/ /*_#plI__L11*/
4940         meltfnum[8] = 0 ;
4941         /*^clear*/
4942         /*clear*/ /*_.ADD2SBUF_CLONSYM__V24*/
4943         meltfptr[22] = 0 ;
4944         /*^clear*/
4945         /*clear*/ /*_#plI__L12*/
4946         meltfnum[9] = 0 ;
4947         /*^clear*/
4948         /*clear*/ /*_.ADD2SBUF_CLONSYM__V25*/
4949         meltfptr[21] = 0 ;
4950         /*^clear*/
4951         /*clear*/ /*_#IS_LIST__L13*/
4952         meltfnum[6] = 0 ;
4953         /*^clear*/
4954         /*clear*/ /*_.IFCPP___V35*/
4955         meltfptr[33] = 0 ;
4956
4957         MELT_CHECK_SIGNAL();
4958         ;
4959         MELT_LOCATION("warmelt-outobj.melt:3530:/ quasiblock");
4960
4961
4962         /*_._RETVAL___V1*/
4963         meltfptr[0] = /*_.LET___V8*/ meltfptr[6];;
4964
4965         {
4966             MELT_LOCATION("warmelt-outobj.melt:3530:/ locexp");
4967             /*ochecknores compilobj_nrep_return*/
4968 #if MELT_HAVE_DEBUG
4969             if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
4970                 melt_warn_for_no_expected_secondary_results();
4971             /* we warned when secondary results are expected but not returned. */
4972 #endif /*MELT_HAVE_DEBUG*/
4973             ;
4974         }
4975         ;
4976         /*^finalreturn*/
4977         ;
4978         /*finalret*/
4979         goto meltlabend_rout ;
4980         /*epilog*/
4981
4982         /*^clear*/
4983         /*clear*/ /*_.IFCPP___V5*/
4984         meltfptr[4] = 0 ;
4985         /*^clear*/
4986         /*clear*/ /*_.LET___V8*/
4987         meltfptr[6] = 0 ;
4988     }
4989
4990     ;
4991     goto meltlabend_rout;
4992 meltlabend_rout:
4993     melt_trace_end("OUTPUCOD_OBJLOOP", meltcallcount);
4994     melt_blocklevel_signals = current_blocklevel_signals_meltrout_77_WARMELTmiOUTOBJ_OUTPUCOD_OBJLOOP_melt;
4995     return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]);
4996 #undef meltcallcount
4997 #undef meltfram__
4998 #undef MELTFRAM_NBVARNUM
4999 #undef MELTFRAM_NBVARPTR
5000 } /*end meltrout_77_WARMELTmiOUTOBJ_OUTPUCOD_OBJLOOP*/
5001
5002
5003
5004
5005
5006
5007 melt_ptr_t MELT_MODULE_VISIBILITY
5008 meltrout_78_WARMELTmiOUTOBJ_OUTPUCOD_OBJEXIT(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_,
5009         const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_)
5010 {
5011     long current_blocklevel_signals_meltrout_78_WARMELTmiOUTOBJ_OUTPUCOD_OBJEXIT_melt =  melt_blocklevel_signals;
5012
5013 #if MELT_HAVE_DEBUG
5014     static long melt_call_counter__;
5015     long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__;
5016 #undef meltcallcount
5017 #define meltcallcount melt_thiscallcounter__
5018 #else
5019 #undef meltcallcount
5020 #define meltcallcount 0L
5021 #endif
5022 //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538
5023
5024     /* start of frame for routine meltrout_78_WARMELTmiOUTOBJ_OUTPUCOD_OBJEXIT fromline 1752 */
5025
5026     /** start of frame for meltrout_78_WARMELTmiOUTOBJ_OUTPUCOD_OBJEXIT of CLASS_PROCROUTINEOBJ from 1555**/
5027
5028     /*curframdeclclassy*/ class MeltFrame_meltrout_78_WARMELTmiOUTOBJ_OUTPUCOD_OBJEXIT// fromline 1568
5029         : public Melt_CallFrameWithValues<19>
5030     {
5031     public: /* fromline 1572*/
5032         long mcfr_varnum[6];
5033         /*classy others*/
5034         long _meltsparel;
5035         void melt_mark_stuff (void)
5036         {
5037         } /*end melt_mark_stuff*/
5038         virtual void melt_mark_ggc_data (void)
5039         {
5040             melt_mark_values ();
5041             melt_mark_stuff ();
5042         }; /*end melt_mark_ggc_data*/
5043         MeltFrame_meltrout_78_WARMELTmiOUTOBJ_OUTPUCOD_OBJEXIT(meltclosure_ptr_t clos) //the closure constructor fromline 1630
5044             : Melt_CallFrameWithValues<19> (
5045 #if ENABLE_CHECKING /*fromline 1634*/
5046                 __FILE__, __LINE__,
5047 #endif /* ENABLE_CHECKING fromline 1638*/
5048                 sizeof(MeltFrame_meltrout_78_WARMELTmiOUTOBJ_OUTPUCOD_OBJEXIT), clos) {};
5049         MeltFrame_meltrout_78_WARMELTmiOUTOBJ_OUTPUCOD_OBJEXIT() //the constructor fromline 1642
5050             : Melt_CallFrameWithValues<19> (
5051 #if ENABLE_CHECKING /*fromline 1646*/
5052                 __FILE__, __LINE__,
5053 #endif /* ENABLE_CHECKING fromline 1650*/
5054                 sizeof(MeltFrame_meltrout_78_WARMELTmiOUTOBJ_OUTPUCOD_OBJEXIT)) {};
5055 #if ENABLE_CHECKING /*fromline 1654*/
5056         MeltFrame_meltrout_78_WARMELTmiOUTOBJ_OUTPUCOD_OBJEXIT(const char*fil, int lin) //the constructor fromline 1656
5057             : Melt_CallFrameWithValues<19> (fil,lin, sizeof(MeltFrame_meltrout_78_WARMELTmiOUTOBJ_OUTPUCOD_OBJEXIT)) {};
5058         MeltFrame_meltrout_78_WARMELTmiOUTOBJ_OUTPUCOD_OBJEXIT(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661
5059             : Melt_CallFrameWithValues<19> (fil,lin, sizeof(MeltFrame_meltrout_78_WARMELTmiOUTOBJ_OUTPUCOD_OBJEXIT), clos) {};
5060 #endif /* ENABLE_CHECKING fromline 1666*/
5061
5062     }; // end  class MeltFrame_meltrout_78_WARMELTmiOUTOBJ_OUTPUCOD_OBJEXIT
5063
5064
5065     /** end of frame for meltrout_78_WARMELTmiOUTOBJ_OUTPUCOD_OBJEXIT fromline 1697**/
5066
5067     /* end of frame for routine meltrout_78_WARMELTmiOUTOBJ_OUTPUCOD_OBJEXIT fromline 1756 */
5068
5069     /* classy proc frame meltrout_78_WARMELTmiOUTOBJ_OUTPUCOD_OBJEXIT */
5070     MeltFrame_meltrout_78_WARMELTmiOUTOBJ_OUTPUCOD_OBJEXIT
5071     meltfram__ /*declfrastruct fromline 1780*/
5072     /*classyprocarg meltrout_78_WARMELTmiOUTOBJ_OUTPUCOD_OBJEXIT fromline 1785*/
5073 #if ENABLE_CHECKING
5074     (__FILE__, __LINE__, meltclosp_) /* fromline 1789*/
5075 #else /*ENABLE_CHECKING */
5076     (meltclosp_) /* fromline 1793*/
5077 #endif /*ENABLE_CHECKING */
5078
5079     ;
5080 #define meltframe meltfram__
5081
5082     melt_trace_start("OUTPUCOD_OBJEXIT", meltcallcount);
5083     /*use arguments*/
5084     (void) meltclosp_;
5085     (void)meltfirstargp_;
5086     (void)meltxargdescr_;
5087     (void)meltxargtab_;
5088     (void)meltxresdescr_;
5089     (void)meltxrestab_;
5090     /*getargs*/
5091
5092     /*getarg#0*/
5093     MELT_LOCATION("warmelt-outobj.melt:3587:/ getarg");
5094     /*_.OBXI__V2*/
5095     meltfptr[1] = (melt_ptr_t) meltfirstargp_;
5096
5097     /*getarg#1*/
5098     /*^getarg*/
5099     if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs;
5100     /*_.DECLBUF__V3*/
5101     meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
5102     gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2])) != NULL);
5103
5104
5105     /*getarg#2*/
5106     /*^getarg*/
5107     if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs;
5108     /*_.IMPLBUF__V4*/
5109     meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL;
5110     gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3])) != NULL);
5111
5112
5113     /*getarg#3*/
5114     /*^getarg*/
5115     if (meltxargdescr_[2] != MELTBPAR_LONG) goto meltlab_endgetargs;
5116     /*_#DEPTH__L1*/
5117     meltfnum[0] = meltxargtab_[2].meltbp_long;
5118     ;
5119     goto meltlab_endgetargs;
5120 meltlab_endgetargs:
5121     ;
5122     /*body*/
5123     /*^block*/
5124     /*anyblock*/
5125     {
5126
5127
5128 #if MELT_HAVE_DEBUG
5129         MELT_LOCATION("warmelt-outobj.melt:3588:/ cppif.then");
5130         /*^block*/
5131         /*anyblock*/
5132         {
5133
5134
5135             MELT_CHECK_SIGNAL();
5136             ;
5137             /*_#IS_A__L2*/
5138             meltfnum[1] =
5139                 melt_is_instance_of((melt_ptr_t)(/*_.OBXI__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_OBJEXIT*/ meltfrout->tabval[0])));;
5140             MELT_LOCATION("warmelt-outobj.melt:3588:/ cond");
5141             /*cond*/
5142             if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/
5143                 {
5144                     /*^cond.then*/
5145                     /*_._IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);;
5146                 }
5147             else
5148                 {
5149                     MELT_LOCATION("warmelt-outobj.melt:3588:/ cond.else");
5150
5151                     /*^block*/
5152                     /*anyblock*/
5153                     {
5154
5155
5156                         MELT_CHECK_SIGNAL();
5157                         ;
5158                         /*^apply*/
5159                         /*apply*/
5160                         {
5161                             union meltparam_un argtab[4];
5162                             memset(&argtab, 0, sizeof(argtab));
5163                             /*^apply.arg*/
5164                             argtab[0].meltbp_cstring =  "check obxi";
5165                             /*^apply.arg*/
5166                             argtab[1].meltbp_cstring =  "warmelt-outobj.melt";
5167                             /*^apply.arg*/
5168                             argtab[2].meltbp_long = 3588;
5169                             /*^apply.arg*/
5170                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OBXI__V2*/ meltfptr[1];
5171                             /*_.MELT_ASSERT_FAILURE_FUN__V7*/
5172                             meltfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
5173                         }
5174                         ;
5175                         /*_._IFELSE___V6*/
5176                         meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6];;
5177                         /*epilog*/
5178
5179                         MELT_LOCATION("warmelt-outobj.melt:3588:/ clear");
5180                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V7*/
5181                         meltfptr[6] = 0 ;
5182                     }
5183                     ;
5184                 }
5185             ;
5186             /*_.IFCPP___V5*/
5187             meltfptr[4] = /*_._IFELSE___V6*/ meltfptr[5];;
5188             /*epilog*/
5189
5190             MELT_LOCATION("warmelt-outobj.melt:3588:/ clear");
5191             /*clear*/ /*_#IS_A__L2*/
5192             meltfnum[1] = 0 ;
5193             /*^clear*/
5194             /*clear*/ /*_._IFELSE___V6*/
5195             meltfptr[5] = 0 ;
5196         }
5197
5198 #else /*MELT_HAVE_DEBUG*/
5199         /*^cppif.else*/
5200         /*_.IFCPP___V5*/ meltfptr[4] = (/*nil*/NULL);
5201 #endif /*MELT_HAVE_DEBUG*/
5202         ;
5203         MELT_LOCATION("warmelt-outobj.melt:3589:/ quasiblock");
5204
5205
5206         /*^getslot*/
5207         {
5208             melt_ptr_t slot=NULL, obj=NULL;
5209             obj = (melt_ptr_t)(/*_.OBXI__V2*/ meltfptr[1]) /*=obj*/;
5210             melt_object_get_field(slot,obj, 1, "OBEXIT_LABEL");
5211             /*_.OLAB__V9*/
5212             meltfptr[5] = slot;
5213         };
5214         ;
5215         MELT_LOCATION("warmelt-outobj.melt:3590:/ getslot");
5216         {
5217             melt_ptr_t slot=NULL, obj=NULL;
5218             obj = (melt_ptr_t)(/*_.OBXI__V2*/ meltfptr[1]) /*=obj*/;
5219             melt_object_get_field(slot,obj, 0, "OBI_LOC");
5220             /*_.LOC__V10*/
5221             meltfptr[9] = slot;
5222         };
5223         ;
5224
5225 #if MELT_HAVE_DEBUG
5226         MELT_LOCATION("warmelt-outobj.melt:3592:/ cppif.then");
5227         /*^block*/
5228         /*anyblock*/
5229         {
5230
5231
5232             MELT_CHECK_SIGNAL();
5233             ;
5234             /*_#IS_A__L3*/
5235             meltfnum[1] =
5236                 melt_is_instance_of((melt_ptr_t)(/*_.OLAB__V9*/ meltfptr[5]), (melt_ptr_t)((/*!CLASS_CLONED_SYMBOL*/ meltfrout->tabval[2])));;
5237             MELT_LOCATION("warmelt-outobj.melt:3592:/ cond");
5238             /*cond*/
5239             if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/
5240                 {
5241                     /*^cond.then*/
5242                     /*_._IFELSE___V12*/ meltfptr[11] = (/*nil*/NULL);;
5243                 }
5244             else
5245                 {
5246                     MELT_LOCATION("warmelt-outobj.melt:3592:/ cond.else");
5247
5248                     /*^block*/
5249                     /*anyblock*/
5250                     {
5251
5252
5253                         MELT_CHECK_SIGNAL();
5254                         ;
5255                         /*^apply*/
5256                         /*apply*/
5257                         {
5258                             union meltparam_un argtab[4];
5259                             memset(&argtab, 0, sizeof(argtab));
5260                             /*^apply.arg*/
5261                             argtab[0].meltbp_cstring =  "check olab";
5262                             /*^apply.arg*/
5263                             argtab[1].meltbp_cstring =  "warmelt-outobj.melt";
5264                             /*^apply.arg*/
5265                             argtab[2].meltbp_long = 3592;
5266                             /*^apply.arg*/
5267                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OLAB__V9*/ meltfptr[5];
5268                             /*_.MELT_ASSERT_FAILURE_FUN__V13*/
5269                             meltfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
5270                         }
5271                         ;
5272                         /*_._IFELSE___V12*/
5273                         meltfptr[11] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];;
5274                         /*epilog*/
5275
5276                         MELT_LOCATION("warmelt-outobj.melt:3592:/ clear");
5277                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/
5278                         meltfptr[12] = 0 ;
5279                     }
5280                     ;
5281                 }
5282             ;
5283             /*_.IFCPP___V11*/
5284             meltfptr[10] = /*_._IFELSE___V12*/ meltfptr[11];;
5285             /*epilog*/
5286
5287             MELT_LOCATION("warmelt-outobj.melt:3592:/ clear");
5288             /*clear*/ /*_#IS_A__L3*/
5289             meltfnum[1] = 0 ;
5290             /*^clear*/
5291             /*clear*/ /*_._IFELSE___V12*/
5292             meltfptr[11] = 0 ;
5293         }
5294
5295 #else /*MELT_HAVE_DEBUG*/
5296         /*^cppif.else*/
5297         /*_.IFCPP___V11*/ meltfptr[10] = (/*nil*/NULL);
5298 #endif /*MELT_HAVE_DEBUG*/
5299         ;
5300
5301         MELT_CHECK_SIGNAL();
5302         ;
5303         MELT_LOCATION("warmelt-outobj.melt:3593:/ apply");
5304         /*apply*/
5305         {
5306             union meltparam_un argtab[3];
5307             memset(&argtab, 0, sizeof(argtab));
5308             /*^apply.arg*/
5309             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
5310             /*^apply.arg*/
5311             argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0];
5312             /*^apply.arg*/
5313             argtab[2].meltbp_cstring =  "exit";
5314             /*_.OUTPUT_LOCATION__V14*/
5315             meltfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.LOC__V10*/ meltfptr[9]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
5316         }
5317         ;
5318
5319         {
5320             MELT_LOCATION("warmelt-outobj.melt:3594:/ locexp");
5321             /*add2sbuf_strconst*/
5322             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "/*exit*/{"));
5323         }
5324         ;
5325
5326         {
5327             MELT_LOCATION("warmelt-outobj.melt:3595:/ locexp");
5328             meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#DEPTH__L1*/ meltfnum[0]), 0);
5329         }
5330         ;
5331
5332         {
5333             MELT_LOCATION("warmelt-outobj.melt:3596:/ locexp");
5334             /*add2sbuf_strconst*/
5335             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( " goto meltlabexit_"));
5336         }
5337         ;
5338
5339         MELT_CHECK_SIGNAL();
5340         ;
5341         MELT_LOCATION("warmelt-outobj.melt:3597:/ apply");
5342         /*apply*/
5343         {
5344             union meltparam_un argtab[1];
5345             memset(&argtab, 0, sizeof(argtab));
5346             /*^apply.arg*/
5347             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.OLAB__V9*/ meltfptr[5];
5348             /*_.ADD2SBUF_CLONSYM__V15*/
5349             meltfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!ADD2SBUF_CLONSYM*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
5350         }
5351         ;
5352
5353         {
5354             MELT_LOCATION("warmelt-outobj.melt:3598:/ locexp");
5355             /*add2sbuf_strconst*/
5356             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( ";}"));
5357         }
5358         ;
5359
5360         {
5361             MELT_LOCATION("warmelt-outobj.melt:3599:/ locexp");
5362             meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#DEPTH__L1*/ meltfnum[0]), 0);
5363         }
5364         ;
5365
5366 #if MELT_HAVE_DEBUG
5367         MELT_LOCATION("warmelt-outobj.melt:3600:/ cppif.then");
5368         /*^block*/
5369         /*anyblock*/
5370         {
5371
5372
5373             MELT_CHECK_SIGNAL();
5374             ;
5375             /*_#STRBUF_USEDLENGTH__L4*/
5376             meltfnum[1] =
5377                 melt_strbuf_usedlength((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]));;
5378             MELT_LOCATION("warmelt-outobj.melt:3601:/ cond");
5379             /*cond*/
5380             if (
5381                 /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[5])),
5382                                               (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[6])))
5383             ) /*then*/
5384                 {
5385                     /*^cond.then*/
5386                     /*^getslot*/
5387                     {
5388                         melt_ptr_t slot=NULL, obj=NULL;
5389                         obj = (melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[5])) /*=obj*/;
5390                         melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE");
5391                         /*_.REFERENCED_VALUE__V17*/
5392                         meltfptr[16] = slot;
5393                     };
5394                     ;
5395                 }
5396             else    /*^cond.else*/
5397                 {
5398
5399                     /*_.REFERENCED_VALUE__V17*/ meltfptr[16] =  /*reallynil*/ NULL ;;
5400                 }
5401             ;
5402             /*^compute*/
5403             /*_#GET_INT__L5*/
5404             meltfnum[4] =
5405                 (melt_get_int((melt_ptr_t)(/*_.REFERENCED_VALUE__V17*/ meltfptr[16])));;
5406             /*^compute*/
5407             /*_#ltI__L6*/
5408             meltfnum[5] =
5409                 ((/*_#STRBUF_USEDLENGTH__L4*/ meltfnum[1]) < (/*_#GET_INT__L5*/ meltfnum[4]));;
5410             MELT_LOCATION("warmelt-outobj.melt:3600:/ cond");
5411             /*cond*/
5412             if (/*_#ltI__L6*/ meltfnum[5]) /*then*/
5413                 {
5414                     /*^cond.then*/
5415                     /*_._IFELSE___V18*/ meltfptr[17] = (/*nil*/NULL);;
5416                 }
5417             else
5418                 {
5419                     MELT_LOCATION("warmelt-outobj.melt:3600:/ cond.else");
5420
5421                     /*^block*/
5422                     /*anyblock*/
5423                     {
5424
5425
5426                         MELT_CHECK_SIGNAL();
5427                         ;
5428                         /*^apply*/
5429                         /*apply*/
5430                         {
5431                             union meltparam_un argtab[4];
5432                             memset(&argtab, 0, sizeof(argtab));
5433                             /*^apply.arg*/
5434                             argtab[0].meltbp_cstring =  "check limited implbuf";
5435                             /*^apply.arg*/
5436                             argtab[1].meltbp_cstring =  "warmelt-outobj.melt";
5437                             /*^apply.arg*/
5438                             argtab[2].meltbp_long = 3600;
5439                             /*^apply.arg*/
5440                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
5441                             /*_.MELT_ASSERT_FAILURE_FUN__V19*/
5442                             meltfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
5443                         }
5444                         ;
5445                         /*_._IFELSE___V18*/
5446                         meltfptr[17] = /*_.MELT_ASSERT_FAILURE_FUN__V19*/ meltfptr[18];;
5447                         /*epilog*/
5448
5449                         MELT_LOCATION("warmelt-outobj.melt:3600:/ clear");
5450                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V19*/
5451                         meltfptr[18] = 0 ;
5452                     }
5453                     ;
5454                 }
5455             ;
5456             /*_.IFCPP___V16*/
5457             meltfptr[15] = /*_._IFELSE___V18*/ meltfptr[17];;
5458             /*epilog*/
5459
5460             MELT_LOCATION("warmelt-outobj.melt:3600:/ clear");
5461             /*clear*/ /*_#STRBUF_USEDLENGTH__L4*/
5462             meltfnum[1] = 0 ;
5463             /*^clear*/
5464             /*clear*/ /*_.REFERENCED_VALUE__V17*/
5465             meltfptr[16] = 0 ;
5466             /*^clear*/
5467             /*clear*/ /*_#GET_INT__L5*/
5468             meltfnum[4] = 0 ;
5469             /*^clear*/
5470             /*clear*/ /*_#ltI__L6*/
5471             meltfnum[5] = 0 ;
5472             /*^clear*/
5473             /*clear*/ /*_._IFELSE___V18*/
5474             meltfptr[17] = 0 ;
5475         }
5476
5477 #else /*MELT_HAVE_DEBUG*/
5478         /*^cppif.else*/
5479         /*_.IFCPP___V16*/ meltfptr[15] = (/*nil*/NULL);
5480 #endif /*MELT_HAVE_DEBUG*/
5481         ;
5482         /*^compute*/
5483         /*_.LET___V8*/
5484         meltfptr[6] = /*_.IFCPP___V16*/ meltfptr[15];;
5485
5486         MELT_LOCATION("warmelt-outobj.melt:3589:/ clear");
5487         /*clear*/ /*_.OLAB__V9*/
5488         meltfptr[5] = 0 ;
5489         /*^clear*/
5490         /*clear*/ /*_.LOC__V10*/
5491         meltfptr[9] = 0 ;
5492         /*^clear*/
5493         /*clear*/ /*_.IFCPP___V11*/
5494         meltfptr[10] = 0 ;
5495         /*^clear*/
5496         /*clear*/ /*_.OUTPUT_LOCATION__V14*/
5497         meltfptr[12] = 0 ;
5498         /*^clear*/
5499         /*clear*/ /*_.ADD2SBUF_CLONSYM__V15*/
5500         meltfptr[11] = 0 ;
5501         /*^clear*/
5502         /*clear*/ /*_.IFCPP___V16*/
5503         meltfptr[15] = 0 ;
5504
5505         MELT_CHECK_SIGNAL();
5506         ;
5507         MELT_LOCATION("warmelt-outobj.melt:3587:/ quasiblock");
5508
5509
5510         /*_._RETVAL___V1*/
5511         meltfptr[0] = /*_.LET___V8*/ meltfptr[6];;
5512
5513         {
5514             MELT_LOCATION("warmelt-outobj.melt:3587:/ locexp");
5515             /*ochecknores compilobj_nrep_return*/
5516 #if MELT_HAVE_DEBUG
5517             if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
5518                 melt_warn_for_no_expected_secondary_results();
5519             /* we warned when secondary results are expected but not returned. */
5520 #endif /*MELT_HAVE_DEBUG*/
5521             ;
5522         }
5523         ;
5524         /*^finalreturn*/
5525         ;
5526         /*finalret*/
5527         goto meltlabend_rout ;
5528         /*epilog*/
5529
5530         /*^clear*/
5531         /*clear*/ /*_.IFCPP___V5*/
5532         meltfptr[4] = 0 ;
5533         /*^clear*/
5534         /*clear*/ /*_.LET___V8*/
5535         meltfptr[6] = 0 ;
5536     }
5537
5538     ;
5539     goto meltlabend_rout;
5540 meltlabend_rout:
5541     melt_trace_end("OUTPUCOD_OBJEXIT", meltcallcount);
5542     melt_blocklevel_signals = current_blocklevel_signals_meltrout_78_WARMELTmiOUTOBJ_OUTPUCOD_OBJEXIT_melt;
5543     return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]);
5544 #undef meltcallcount
5545 #undef meltfram__
5546 #undef MELTFRAM_NBVARNUM
5547 #undef MELTFRAM_NBVARPTR
5548 } /*end meltrout_78_WARMELTmiOUTOBJ_OUTPUCOD_OBJEXIT*/
5549
5550
5551
5552
5553
5554
5555 melt_ptr_t MELT_MODULE_VISIBILITY
5556 meltrout_79_WARMELTmiOUTOBJ_OUTPUCOD_OBJAGAIN(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_,
5557         const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_)
5558 {
5559     long current_blocklevel_signals_meltrout_79_WARMELTmiOUTOBJ_OUTPUCOD_OBJAGAIN_melt =  melt_blocklevel_signals;
5560
5561 #if MELT_HAVE_DEBUG
5562     static long melt_call_counter__;
5563     long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__;
5564 #undef meltcallcount
5565 #define meltcallcount melt_thiscallcounter__
5566 #else
5567 #undef meltcallcount
5568 #define meltcallcount 0L
5569 #endif
5570 //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538
5571
5572     /* start of frame for routine meltrout_79_WARMELTmiOUTOBJ_OUTPUCOD_OBJAGAIN fromline 1752 */
5573
5574     /** start of frame for meltrout_79_WARMELTmiOUTOBJ_OUTPUCOD_OBJAGAIN of CLASS_PROCROUTINEOBJ from 1555**/
5575
5576     /*curframdeclclassy*/ class MeltFrame_meltrout_79_WARMELTmiOUTOBJ_OUTPUCOD_OBJAGAIN// fromline 1568
5577         : public Melt_CallFrameWithValues<19>
5578     {
5579     public: /* fromline 1572*/
5580         long mcfr_varnum[6];
5581         /*classy others*/
5582         long _meltsparel;
5583         void melt_mark_stuff (void)
5584         {
5585         } /*end melt_mark_stuff*/
5586         virtual void melt_mark_ggc_data (void)
5587         {
5588             melt_mark_values ();
5589             melt_mark_stuff ();
5590         }; /*end melt_mark_ggc_data*/
5591         MeltFrame_meltrout_79_WARMELTmiOUTOBJ_OUTPUCOD_OBJAGAIN(meltclosure_ptr_t clos) //the closure constructor fromline 1630
5592             : Melt_CallFrameWithValues<19> (
5593 #if ENABLE_CHECKING /*fromline 1634*/
5594                 __FILE__, __LINE__,
5595 #endif /* ENABLE_CHECKING fromline 1638*/
5596                 sizeof(MeltFrame_meltrout_79_WARMELTmiOUTOBJ_OUTPUCOD_OBJAGAIN), clos) {};
5597         MeltFrame_meltrout_79_WARMELTmiOUTOBJ_OUTPUCOD_OBJAGAIN() //the constructor fromline 1642
5598             : Melt_CallFrameWithValues<19> (
5599 #if ENABLE_CHECKING /*fromline 1646*/
5600                 __FILE__, __LINE__,
5601 #endif /* ENABLE_CHECKING fromline 1650*/
5602                 sizeof(MeltFrame_meltrout_79_WARMELTmiOUTOBJ_OUTPUCOD_OBJAGAIN)) {};
5603 #if ENABLE_CHECKING /*fromline 1654*/
5604         MeltFrame_meltrout_79_WARMELTmiOUTOBJ_OUTPUCOD_OBJAGAIN(const char*fil, int lin) //the constructor fromline 1656
5605             : Melt_CallFrameWithValues<19> (fil,lin, sizeof(MeltFrame_meltrout_79_WARMELTmiOUTOBJ_OUTPUCOD_OBJAGAIN)) {};
5606         MeltFrame_meltrout_79_WARMELTmiOUTOBJ_OUTPUCOD_OBJAGAIN(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661
5607             : Melt_CallFrameWithValues<19> (fil,lin, sizeof(MeltFrame_meltrout_79_WARMELTmiOUTOBJ_OUTPUCOD_OBJAGAIN), clos) {};
5608 #endif /* ENABLE_CHECKING fromline 1666*/
5609
5610     }; // end  class MeltFrame_meltrout_79_WARMELTmiOUTOBJ_OUTPUCOD_OBJAGAIN
5611
5612
5613     /** end of frame for meltrout_79_WARMELTmiOUTOBJ_OUTPUCOD_OBJAGAIN fromline 1697**/
5614
5615     /* end of frame for routine meltrout_79_WARMELTmiOUTOBJ_OUTPUCOD_OBJAGAIN fromline 1756 */
5616
5617     /* classy proc frame meltrout_79_WARMELTmiOUTOBJ_OUTPUCOD_OBJAGAIN */
5618     MeltFrame_meltrout_79_WARMELTmiOUTOBJ_OUTPUCOD_OBJAGAIN
5619     meltfram__ /*declfrastruct fromline 1780*/
5620     /*classyprocarg meltrout_79_WARMELTmiOUTOBJ_OUTPUCOD_OBJAGAIN fromline 1785*/
5621 #if ENABLE_CHECKING
5622     (__FILE__, __LINE__, meltclosp_) /* fromline 1789*/
5623 #else /*ENABLE_CHECKING */
5624     (meltclosp_) /* fromline 1793*/
5625 #endif /*ENABLE_CHECKING */
5626
5627     ;
5628 #define meltframe meltfram__
5629
5630     melt_trace_start("OUTPUCOD_OBJAGAIN", meltcallcount);
5631     /*use arguments*/
5632     (void) meltclosp_;
5633     (void)meltfirstargp_;
5634     (void)meltxargdescr_;
5635     (void)meltxargtab_;
5636     (void)meltxresdescr_;
5637     (void)meltxrestab_;
5638     /*getargs*/
5639
5640     /*getarg#0*/
5641     MELT_LOCATION("warmelt-outobj.melt:3607:/ getarg");
5642     /*_.OBAG__V2*/
5643     meltfptr[1] = (melt_ptr_t) meltfirstargp_;
5644
5645     /*getarg#1*/
5646     /*^getarg*/
5647     if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs;
5648     /*_.DECLBUF__V3*/
5649     meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
5650     gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2])) != NULL);
5651
5652
5653     /*getarg#2*/
5654     /*^getarg*/
5655     if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs;
5656     /*_.IMPLBUF__V4*/
5657     meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL;
5658     gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3])) != NULL);
5659
5660
5661     /*getarg#3*/
5662     /*^getarg*/
5663     if (meltxargdescr_[2] != MELTBPAR_LONG) goto meltlab_endgetargs;
5664     /*_#DEPTH__L1*/
5665     meltfnum[0] = meltxargtab_[2].meltbp_long;
5666     ;
5667     goto meltlab_endgetargs;
5668 meltlab_endgetargs:
5669     ;
5670     /*body*/
5671     /*^block*/
5672     /*anyblock*/
5673     {
5674
5675
5676 #if MELT_HAVE_DEBUG
5677         MELT_LOCATION("warmelt-outobj.melt:3608:/ cppif.then");
5678         /*^block*/
5679         /*anyblock*/
5680         {
5681
5682
5683             MELT_CHECK_SIGNAL();
5684             ;
5685             /*_#IS_A__L2*/
5686             meltfnum[1] =
5687                 melt_is_instance_of((melt_ptr_t)(/*_.OBAG__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_OBJAGAIN*/ meltfrout->tabval[0])));;
5688             MELT_LOCATION("warmelt-outobj.melt:3608:/ cond");
5689             /*cond*/
5690             if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/
5691                 {
5692                     /*^cond.then*/
5693                     /*_._IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);;
5694                 }
5695             else
5696                 {
5697                     MELT_LOCATION("warmelt-outobj.melt:3608:/ cond.else");
5698
5699                     /*^block*/
5700                     /*anyblock*/
5701                     {
5702
5703
5704                         MELT_CHECK_SIGNAL();
5705                         ;
5706                         /*^apply*/
5707                         /*apply*/
5708                         {
5709                             union meltparam_un argtab[4];
5710                             memset(&argtab, 0, sizeof(argtab));
5711                             /*^apply.arg*/
5712                             argtab[0].meltbp_cstring =  "check obag";
5713                             /*^apply.arg*/
5714                             argtab[1].meltbp_cstring =  "warmelt-outobj.melt";
5715                             /*^apply.arg*/
5716                             argtab[2].meltbp_long = 3608;
5717                             /*^apply.arg*/
5718                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OBAG__V2*/ meltfptr[1];
5719                             /*_.MELT_ASSERT_FAILURE_FUN__V7*/
5720                             meltfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
5721                         }
5722                         ;
5723                         /*_._IFELSE___V6*/
5724                         meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6];;
5725                         /*epilog*/
5726
5727                         MELT_LOCATION("warmelt-outobj.melt:3608:/ clear");
5728                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V7*/
5729                         meltfptr[6] = 0 ;
5730                     }
5731                     ;
5732                 }
5733             ;
5734             /*_.IFCPP___V5*/
5735             meltfptr[4] = /*_._IFELSE___V6*/ meltfptr[5];;
5736             /*epilog*/
5737
5738             MELT_LOCATION("warmelt-outobj.melt:3608:/ clear");
5739             /*clear*/ /*_#IS_A__L2*/
5740             meltfnum[1] = 0 ;
5741             /*^clear*/
5742             /*clear*/ /*_._IFELSE___V6*/
5743             meltfptr[5] = 0 ;
5744         }
5745
5746 #else /*MELT_HAVE_DEBUG*/
5747         /*^cppif.else*/
5748         /*_.IFCPP___V5*/ meltfptr[4] = (/*nil*/NULL);
5749 #endif /*MELT_HAVE_DEBUG*/
5750         ;
5751         MELT_LOCATION("warmelt-outobj.melt:3609:/ quasiblock");
5752
5753
5754         /*^getslot*/
5755         {
5756             melt_ptr_t slot=NULL, obj=NULL;
5757             obj = (melt_ptr_t)(/*_.OBAG__V2*/ meltfptr[1]) /*=obj*/;
5758             melt_object_get_field(slot,obj, 1, "OBAGAIN_LABEL");
5759             /*_.OLAB__V9*/
5760             meltfptr[5] = slot;
5761         };
5762         ;
5763         MELT_LOCATION("warmelt-outobj.melt:3610:/ getslot");
5764         {
5765             melt_ptr_t slot=NULL, obj=NULL;
5766             obj = (melt_ptr_t)(/*_.OBAG__V2*/ meltfptr[1]) /*=obj*/;
5767             melt_object_get_field(slot,obj, 0, "OBI_LOC");
5768             /*_.LOC__V10*/
5769             meltfptr[9] = slot;
5770         };
5771         ;
5772
5773 #if MELT_HAVE_DEBUG
5774         MELT_LOCATION("warmelt-outobj.melt:3612:/ cppif.then");
5775         /*^block*/
5776         /*anyblock*/
5777         {
5778
5779
5780             MELT_CHECK_SIGNAL();
5781             ;
5782             /*_#IS_A__L3*/
5783             meltfnum[1] =
5784                 melt_is_instance_of((melt_ptr_t)(/*_.OLAB__V9*/ meltfptr[5]), (melt_ptr_t)((/*!CLASS_CLONED_SYMBOL*/ meltfrout->tabval[2])));;
5785             MELT_LOCATION("warmelt-outobj.melt:3612:/ cond");
5786             /*cond*/
5787             if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/
5788                 {
5789                     /*^cond.then*/
5790                     /*_._IFELSE___V12*/ meltfptr[11] = (/*nil*/NULL);;
5791                 }
5792             else
5793                 {
5794                     MELT_LOCATION("warmelt-outobj.melt:3612:/ cond.else");
5795
5796                     /*^block*/
5797                     /*anyblock*/
5798                     {
5799
5800
5801                         MELT_CHECK_SIGNAL();
5802                         ;
5803                         /*^apply*/
5804                         /*apply*/
5805                         {
5806                             union meltparam_un argtab[4];
5807                             memset(&argtab, 0, sizeof(argtab));
5808                             /*^apply.arg*/
5809                             argtab[0].meltbp_cstring =  "check olab";
5810                             /*^apply.arg*/
5811                             argtab[1].meltbp_cstring =  "warmelt-outobj.melt";
5812                             /*^apply.arg*/
5813                             argtab[2].meltbp_long = 3612;
5814                             /*^apply.arg*/
5815                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OLAB__V9*/ meltfptr[5];
5816                             /*_.MELT_ASSERT_FAILURE_FUN__V13*/
5817                             meltfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
5818                         }
5819                         ;
5820                         /*_._IFELSE___V12*/
5821                         meltfptr[11] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];;
5822                         /*epilog*/
5823
5824                         MELT_LOCATION("warmelt-outobj.melt:3612:/ clear");
5825                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/
5826                         meltfptr[12] = 0 ;
5827                     }
5828                     ;
5829                 }
5830             ;
5831             /*_.IFCPP___V11*/
5832             meltfptr[10] = /*_._IFELSE___V12*/ meltfptr[11];;
5833             /*epilog*/
5834
5835             MELT_LOCATION("warmelt-outobj.melt:3612:/ clear");
5836             /*clear*/ /*_#IS_A__L3*/
5837             meltfnum[1] = 0 ;
5838             /*^clear*/
5839             /*clear*/ /*_._IFELSE___V12*/
5840             meltfptr[11] = 0 ;
5841         }
5842
5843 #else /*MELT_HAVE_DEBUG*/
5844         /*^cppif.else*/
5845         /*_.IFCPP___V11*/ meltfptr[10] = (/*nil*/NULL);
5846 #endif /*MELT_HAVE_DEBUG*/
5847         ;
5848
5849         MELT_CHECK_SIGNAL();
5850         ;
5851         MELT_LOCATION("warmelt-outobj.melt:3613:/ apply");
5852         /*apply*/
5853         {
5854             union meltparam_un argtab[3];
5855             memset(&argtab, 0, sizeof(argtab));
5856             /*^apply.arg*/
5857             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
5858             /*^apply.arg*/
5859             argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0];
5860             /*^apply.arg*/
5861             argtab[2].meltbp_cstring =  "again";
5862             /*_.OUTPUT_LOCATION__V14*/
5863             meltfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.LOC__V10*/ meltfptr[9]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
5864         }
5865         ;
5866
5867         {
5868             MELT_LOCATION("warmelt-outobj.melt:3614:/ locexp");
5869             /*add2sbuf_strconst*/
5870             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "/*again*/{"));
5871         }
5872         ;
5873
5874         {
5875             MELT_LOCATION("warmelt-outobj.melt:3615:/ locexp");
5876             meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#DEPTH__L1*/ meltfnum[0]), 0);
5877         }
5878         ;
5879
5880         {
5881             MELT_LOCATION("warmelt-outobj.melt:3616:/ locexp");
5882             /*add2sbuf_strconst*/
5883             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( " goto meltlabloop_"));
5884         }
5885         ;
5886
5887         MELT_CHECK_SIGNAL();
5888         ;
5889         MELT_LOCATION("warmelt-outobj.melt:3617:/ apply");
5890         /*apply*/
5891         {
5892             union meltparam_un argtab[1];
5893             memset(&argtab, 0, sizeof(argtab));
5894             /*^apply.arg*/
5895             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.OLAB__V9*/ meltfptr[5];
5896             /*_.ADD2SBUF_CLONSYM__V15*/
5897             meltfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!ADD2SBUF_CLONSYM*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
5898         }
5899         ;
5900
5901         {
5902             MELT_LOCATION("warmelt-outobj.melt:3618:/ locexp");
5903             /*add2sbuf_strconst*/
5904             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( ";}"));
5905         }
5906         ;
5907
5908         {
5909             MELT_LOCATION("warmelt-outobj.melt:3619:/ locexp");
5910             meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#DEPTH__L1*/ meltfnum[0]), 0);
5911         }
5912         ;
5913
5914 #if MELT_HAVE_DEBUG
5915         MELT_LOCATION("warmelt-outobj.melt:3620:/ cppif.then");
5916         /*^block*/
5917         /*anyblock*/
5918         {
5919
5920
5921             MELT_CHECK_SIGNAL();
5922             ;
5923             /*_#STRBUF_USEDLENGTH__L4*/
5924             meltfnum[1] =
5925                 melt_strbuf_usedlength((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]));;
5926             MELT_LOCATION("warmelt-outobj.melt:3621:/ cond");
5927             /*cond*/
5928             if (
5929                 /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[5])),
5930                                               (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[6])))
5931             ) /*then*/
5932                 {
5933                     /*^cond.then*/
5934                     /*^getslot*/
5935                     {
5936                         melt_ptr_t slot=NULL, obj=NULL;
5937                         obj = (melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[5])) /*=obj*/;
5938                         melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE");
5939                         /*_.REFERENCED_VALUE__V17*/
5940                         meltfptr[16] = slot;
5941                     };
5942                     ;
5943                 }
5944             else    /*^cond.else*/
5945                 {
5946
5947                     /*_.REFERENCED_VALUE__V17*/ meltfptr[16] =  /*reallynil*/ NULL ;;
5948                 }
5949             ;
5950             /*^compute*/
5951             /*_#GET_INT__L5*/
5952             meltfnum[4] =
5953                 (melt_get_int((melt_ptr_t)(/*_.REFERENCED_VALUE__V17*/ meltfptr[16])));;
5954             /*^compute*/
5955             /*_#ltI__L6*/
5956             meltfnum[5] =
5957                 ((/*_#STRBUF_USEDLENGTH__L4*/ meltfnum[1]) < (/*_#GET_INT__L5*/ meltfnum[4]));;
5958             MELT_LOCATION("warmelt-outobj.melt:3620:/ cond");
5959             /*cond*/
5960             if (/*_#ltI__L6*/ meltfnum[5]) /*then*/
5961                 {
5962                     /*^cond.then*/
5963                     /*_._IFELSE___V18*/ meltfptr[17] = (/*nil*/NULL);;
5964                 }
5965             else
5966                 {
5967                     MELT_LOCATION("warmelt-outobj.melt:3620:/ cond.else");
5968
5969                     /*^block*/
5970                     /*anyblock*/
5971                     {
5972
5973
5974                         MELT_CHECK_SIGNAL();
5975                         ;
5976                         /*^apply*/
5977                         /*apply*/
5978                         {
5979                             union meltparam_un argtab[4];
5980                             memset(&argtab, 0, sizeof(argtab));
5981                             /*^apply.arg*/
5982                             argtab[0].meltbp_cstring =  "check limited implbuf";
5983                             /*^apply.arg*/
5984                             argtab[1].meltbp_cstring =  "warmelt-outobj.melt";
5985                             /*^apply.arg*/
5986                             argtab[2].meltbp_long = 3620;
5987                             /*^apply.arg*/
5988                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
5989                             /*_.MELT_ASSERT_FAILURE_FUN__V19*/
5990                             meltfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
5991                         }
5992                         ;
5993                         /*_._IFELSE___V18*/
5994                         meltfptr[17] = /*_.MELT_ASSERT_FAILURE_FUN__V19*/ meltfptr[18];;
5995                         /*epilog*/
5996
5997                         MELT_LOCATION("warmelt-outobj.melt:3620:/ clear");
5998                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V19*/
5999                         meltfptr[18] = 0 ;
6000                     }
6001                     ;
6002                 }
6003             ;
6004             /*_.IFCPP___V16*/
6005             meltfptr[15] = /*_._IFELSE___V18*/ meltfptr[17];;
6006             /*epilog*/
6007
6008             MELT_LOCATION("warmelt-outobj.melt:3620:/ clear");
6009             /*clear*/ /*_#STRBUF_USEDLENGTH__L4*/
6010             meltfnum[1] = 0 ;
6011             /*^clear*/
6012             /*clear*/ /*_.REFERENCED_VALUE__V17*/
6013             meltfptr[16] = 0 ;
6014             /*^clear*/
6015             /*clear*/ /*_#GET_INT__L5*/
6016             meltfnum[4] = 0 ;
6017             /*^clear*/
6018             /*clear*/ /*_#ltI__L6*/
6019             meltfnum[5] = 0 ;
6020             /*^clear*/
6021             /*clear*/ /*_._IFELSE___V18*/
6022             meltfptr[17] = 0 ;
6023         }
6024
6025 #else /*MELT_HAVE_DEBUG*/
6026         /*^cppif.else*/
6027         /*_.IFCPP___V16*/ meltfptr[15] = (/*nil*/NULL);
6028 #endif /*MELT_HAVE_DEBUG*/
6029         ;
6030         /*^compute*/
6031         /*_.LET___V8*/
6032         meltfptr[6] = /*_.IFCPP___V16*/ meltfptr[15];;
6033
6034         MELT_LOCATION("warmelt-outobj.melt:3609:/ clear");
6035         /*clear*/ /*_.OLAB__V9*/
6036         meltfptr[5] = 0 ;
6037         /*^clear*/
6038         /*clear*/ /*_.LOC__V10*/
6039         meltfptr[9] = 0 ;
6040         /*^clear*/
6041         /*clear*/ /*_.IFCPP___V11*/
6042         meltfptr[10] = 0 ;
6043         /*^clear*/
6044         /*clear*/ /*_.OUTPUT_LOCATION__V14*/
6045         meltfptr[12] = 0 ;
6046         /*^clear*/
6047         /*clear*/ /*_.ADD2SBUF_CLONSYM__V15*/
6048         meltfptr[11] = 0 ;
6049         /*^clear*/
6050         /*clear*/ /*_.IFCPP___V16*/
6051         meltfptr[15] = 0 ;
6052
6053         MELT_CHECK_SIGNAL();
6054         ;
6055         MELT_LOCATION("warmelt-outobj.melt:3607:/ quasiblock");
6056
6057
6058         /*_._RETVAL___V1*/
6059         meltfptr[0] = /*_.LET___V8*/ meltfptr[6];;
6060
6061         {
6062             MELT_LOCATION("warmelt-outobj.melt:3607:/ locexp");
6063             /*ochecknores compilobj_nrep_return*/
6064 #if MELT_HAVE_DEBUG
6065             if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
6066                 melt_warn_for_no_expected_secondary_results();
6067             /* we warned when secondary results are expected but not returned. */
6068 #endif /*MELT_HAVE_DEBUG*/
6069             ;
6070         }
6071         ;
6072         /*^finalreturn*/
6073         ;
6074         /*finalret*/
6075         goto meltlabend_rout ;
6076         /*epilog*/
6077
6078         /*^clear*/
6079         /*clear*/ /*_.IFCPP___V5*/
6080         meltfptr[4] = 0 ;
6081         /*^clear*/
6082         /*clear*/ /*_.LET___V8*/
6083         meltfptr[6] = 0 ;
6084     }
6085
6086     ;
6087     goto meltlabend_rout;
6088 meltlabend_rout:
6089     melt_trace_end("OUTPUCOD_OBJAGAIN", meltcallcount);
6090     melt_blocklevel_signals = current_blocklevel_signals_meltrout_79_WARMELTmiOUTOBJ_OUTPUCOD_OBJAGAIN_melt;
6091     return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]);
6092 #undef meltcallcount
6093 #undef meltfram__
6094 #undef MELTFRAM_NBVARNUM
6095 #undef MELTFRAM_NBVARPTR
6096 } /*end meltrout_79_WARMELTmiOUTOBJ_OUTPUCOD_OBJAGAIN*/
6097
6098
6099
6100
6101
6102
6103 melt_ptr_t MELT_MODULE_VISIBILITY
6104 meltrout_80_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOMPUTE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_,
6105         const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_)
6106 {
6107     long current_blocklevel_signals_meltrout_80_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOMPUTE_melt =  melt_blocklevel_signals;
6108
6109 #if MELT_HAVE_DEBUG
6110     static long melt_call_counter__;
6111     long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__;
6112 #undef meltcallcount
6113 #define meltcallcount melt_thiscallcounter__
6114 #else
6115 #undef meltcallcount
6116 #define meltcallcount 0L
6117 #endif
6118 //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538
6119
6120     /* start of frame for routine meltrout_80_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOMPUTE fromline 1752 */
6121
6122     /** start of frame for meltrout_80_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOMPUTE of CLASS_PROCROUTINEOBJ from 1555**/
6123
6124     /*curframdeclclassy*/ class MeltFrame_meltrout_80_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOMPUTE// fromline 1568
6125         : public Melt_CallFrameWithValues<39>
6126     {
6127     public: /* fromline 1572*/
6128         long mcfr_varnum[26];
6129         /*classy others*/
6130         long _meltsparel;
6131         void melt_mark_stuff (void)
6132         {
6133         } /*end melt_mark_stuff*/
6134         virtual void melt_mark_ggc_data (void)
6135         {
6136             melt_mark_values ();
6137             melt_mark_stuff ();
6138         }; /*end melt_mark_ggc_data*/
6139         MeltFrame_meltrout_80_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOMPUTE(meltclosure_ptr_t clos) //the closure constructor fromline 1630
6140             : Melt_CallFrameWithValues<39> (
6141 #if ENABLE_CHECKING /*fromline 1634*/
6142                 __FILE__, __LINE__,
6143 #endif /* ENABLE_CHECKING fromline 1638*/
6144                 sizeof(MeltFrame_meltrout_80_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOMPUTE), clos) {};
6145         MeltFrame_meltrout_80_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOMPUTE() //the constructor fromline 1642
6146             : Melt_CallFrameWithValues<39> (
6147 #if ENABLE_CHECKING /*fromline 1646*/
6148                 __FILE__, __LINE__,
6149 #endif /* ENABLE_CHECKING fromline 1650*/
6150                 sizeof(MeltFrame_meltrout_80_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOMPUTE)) {};
6151 #if ENABLE_CHECKING /*fromline 1654*/
6152         MeltFrame_meltrout_80_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOMPUTE(const char*fil, int lin) //the constructor fromline 1656
6153             : Melt_CallFrameWithValues<39> (fil,lin, sizeof(MeltFrame_meltrout_80_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOMPUTE)) {};
6154         MeltFrame_meltrout_80_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOMPUTE(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661
6155             : Melt_CallFrameWithValues<39> (fil,lin, sizeof(MeltFrame_meltrout_80_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOMPUTE), clos) {};
6156 #endif /* ENABLE_CHECKING fromline 1666*/
6157
6158     }; // end  class MeltFrame_meltrout_80_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOMPUTE
6159
6160
6161     /** end of frame for meltrout_80_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOMPUTE fromline 1697**/
6162
6163     /* end of frame for routine meltrout_80_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOMPUTE fromline 1756 */
6164
6165     /* classy proc frame meltrout_80_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOMPUTE */
6166     MeltFrame_meltrout_80_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOMPUTE
6167     meltfram__ /*declfrastruct fromline 1780*/
6168     /*classyprocarg meltrout_80_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOMPUTE fromline 1785*/
6169 #if ENABLE_CHECKING
6170     (__FILE__, __LINE__, meltclosp_) /* fromline 1789*/
6171 #else /*ENABLE_CHECKING */
6172     (meltclosp_) /* fromline 1793*/
6173 #endif /*ENABLE_CHECKING */
6174
6175     ;
6176 #define meltframe meltfram__
6177
6178     melt_trace_start("OUTPUCOD_OBJCOMPUTE", meltcallcount);
6179     /*use arguments*/
6180     (void) meltclosp_;
6181     (void)meltfirstargp_;
6182     (void)meltxargdescr_;
6183     (void)meltxargtab_;
6184     (void)meltxresdescr_;
6185     (void)meltxrestab_;
6186     /*getargs*/
6187
6188     /*getarg#0*/
6189     MELT_LOCATION("warmelt-outobj.melt:3626:/ getarg");
6190     /*_.OBCOMP__V2*/
6191     meltfptr[1] = (melt_ptr_t) meltfirstargp_;
6192
6193     /*getarg#1*/
6194     /*^getarg*/
6195     if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs;
6196     /*_.DECLBUF__V3*/
6197     meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
6198     gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2])) != NULL);
6199
6200
6201     /*getarg#2*/
6202     /*^getarg*/
6203     if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs;
6204     /*_.IMPLBUF__V4*/
6205     meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL;
6206     gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3])) != NULL);
6207
6208
6209     /*getarg#3*/
6210     /*^getarg*/
6211     if (meltxargdescr_[2] != MELTBPAR_LONG) goto meltlab_endgetargs;
6212     /*_#DEPTH__L1*/
6213     meltfnum[0] = meltxargtab_[2].meltbp_long;
6214     ;
6215     goto meltlab_endgetargs;
6216 meltlab_endgetargs:
6217     ;
6218     /*body*/
6219     /*^block*/
6220     /*anyblock*/
6221     {
6222
6223
6224 #if MELT_HAVE_DEBUG
6225         MELT_LOCATION("warmelt-outobj.melt:3627:/ cppif.then");
6226         /*^block*/
6227         /*anyblock*/
6228         {
6229
6230
6231             MELT_CHECK_SIGNAL();
6232             ;
6233             /*_#IS_A__L2*/
6234             meltfnum[1] =
6235                 melt_is_instance_of((melt_ptr_t)(/*_.OBCOMP__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_OBJCOMPUTE*/ meltfrout->tabval[0])));;
6236             MELT_LOCATION("warmelt-outobj.melt:3627:/ cond");
6237             /*cond*/
6238             if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/
6239                 {
6240                     /*^cond.then*/
6241                     /*_._IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);;
6242                 }
6243             else
6244                 {
6245                     MELT_LOCATION("warmelt-outobj.melt:3627:/ cond.else");
6246
6247                     /*^block*/
6248                     /*anyblock*/
6249                     {
6250
6251
6252                         MELT_CHECK_SIGNAL();
6253                         ;
6254                         /*^apply*/
6255                         /*apply*/
6256                         {
6257                             union meltparam_un argtab[4];
6258                             memset(&argtab, 0, sizeof(argtab));
6259                             /*^apply.arg*/
6260                             argtab[0].meltbp_cstring =  "check obcomp";
6261                             /*^apply.arg*/
6262                             argtab[1].meltbp_cstring =  "warmelt-outobj.melt";
6263                             /*^apply.arg*/
6264                             argtab[2].meltbp_long = 3627;
6265                             /*^apply.arg*/
6266                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OBCOMP__V2*/ meltfptr[1];
6267                             /*_.MELT_ASSERT_FAILURE_FUN__V7*/
6268                             meltfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
6269                         }
6270                         ;
6271                         /*_._IFELSE___V6*/
6272                         meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6];;
6273                         /*epilog*/
6274
6275                         MELT_LOCATION("warmelt-outobj.melt:3627:/ clear");
6276                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V7*/
6277                         meltfptr[6] = 0 ;
6278                     }
6279                     ;
6280                 }
6281             ;
6282             /*_.IFCPP___V5*/
6283             meltfptr[4] = /*_._IFELSE___V6*/ meltfptr[5];;
6284             /*epilog*/
6285
6286             MELT_LOCATION("warmelt-outobj.melt:3627:/ clear");
6287             /*clear*/ /*_#IS_A__L2*/
6288             meltfnum[1] = 0 ;
6289             /*^clear*/
6290             /*clear*/ /*_._IFELSE___V6*/
6291             meltfptr[5] = 0 ;
6292         }
6293
6294 #else /*MELT_HAVE_DEBUG*/
6295         /*^cppif.else*/
6296         /*_.IFCPP___V5*/ meltfptr[4] = (/*nil*/NULL);
6297 #endif /*MELT_HAVE_DEBUG*/
6298         ;
6299         MELT_LOCATION("warmelt-outobj.melt:3628:/ quasiblock");
6300
6301
6302         /*^getslot*/
6303         {
6304             melt_ptr_t slot=NULL, obj=NULL;
6305             obj = (melt_ptr_t)(/*_.OBCOMP__V2*/ meltfptr[1]) /*=obj*/;
6306             melt_object_get_field(slot,obj, 1, "OBDI_DESTLIST");
6307             /*_.CDEST__V9*/
6308             meltfptr[5] = slot;
6309         };
6310         ;
6311         MELT_LOCATION("warmelt-outobj.melt:3629:/ getslot");
6312         {
6313             melt_ptr_t slot=NULL, obj=NULL;
6314             obj = (melt_ptr_t)(/*_.OBCOMP__V2*/ meltfptr[1]) /*=obj*/;
6315             melt_object_get_field(slot,obj, 0, "OBI_LOC");
6316             /*_.CLOC__V10*/
6317             meltfptr[9] = slot;
6318         };
6319         ;
6320         MELT_LOCATION("warmelt-outobj.melt:3630:/ getslot");
6321         {
6322             melt_ptr_t slot=NULL, obj=NULL;
6323             obj = (melt_ptr_t)(/*_.OBCOMP__V2*/ meltfptr[1]) /*=obj*/;
6324             melt_object_get_field(slot,obj, 2, "OBCPT_EXPR");
6325             /*_.CEXP__V11*/
6326             meltfptr[10] = slot;
6327         };
6328         ;
6329         /*_#plI__L3*/
6330         meltfnum[1] =
6331             ((/*_#DEPTH__L1*/ meltfnum[0]) + (1));;
6332         /*^compute*/
6333         /*_.BOXDEPTHP1__V12*/
6334         meltfptr[11] =
6335             (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[2])), (/*_#plI__L3*/ meltfnum[1])));;
6336
6337         MELT_CHECK_SIGNAL();
6338         ;
6339         MELT_LOCATION("warmelt-outobj.melt:3633:/ apply");
6340         /*apply*/
6341         {
6342             union meltparam_un argtab[3];
6343             memset(&argtab, 0, sizeof(argtab));
6344             /*^apply.arg*/
6345             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
6346             /*^apply.arg*/
6347             argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0];
6348             /*^apply.arg*/
6349             argtab[2].meltbp_cstring =  "compute";
6350             /*_.OUTPUT_LOCATION__V13*/
6351             meltfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.CLOC__V10*/ meltfptr[9]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
6352         }
6353         ;
6354
6355         MELT_CHECK_SIGNAL();
6356         ;
6357         MELT_LOCATION("warmelt-outobj.melt:73:/ cond");
6358         /*cond*/
6359         if ( (melt_module_var_fetch (meltmodvarix_FLAGVAL_OUTPUT_DESCR_COMMENT_symb))) /*then*/
6360             {
6361                 /*^cond.then*/
6362                 /*^block*/
6363                 /*anyblock*/
6364                 {
6365
6366
6367                     MELT_CHECK_SIGNAL();
6368                     ;
6369                     /*^apply*/
6370                     /*apply*/
6371                     {
6372                         union meltparam_un argtab[1];
6373                         memset(&argtab, 0, sizeof(argtab));
6374                         /*^apply.arg*/
6375                         argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.OBCOMP__V2*/ meltfptr[1];
6376                         /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V15*/
6377                         meltfptr[14] =  melt_apply ((meltclosure_ptr_t)((/*!DO_OUTPUT_DESCRIPTIVE_COMMENT*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
6378                     }
6379                     ;
6380                     /*_._IF___V14*/
6381                     meltfptr[13] = /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V15*/ meltfptr[14];;
6382                     /*epilog*/
6383
6384                     MELT_LOCATION("warmelt-outobj.melt:73:/ clear");
6385                     /*clear*/ /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V15*/
6386                     meltfptr[14] = 0 ;
6387                 }
6388                 ;
6389             }
6390         else    /*^cond.else*/
6391             {
6392
6393                 /*_._IF___V14*/ meltfptr[13] =  /*reallynil*/ NULL ;;
6394             }
6395         ;
6396
6397         MELT_CHECK_SIGNAL();
6398         ;
6399         /*^compute*/
6400         /*_#IS_LIST__L4*/
6401         meltfnum[3] =
6402             (melt_magic_discr((melt_ptr_t)(/*_.CDEST__V9*/ meltfptr[5])) == MELTOBMAG_LIST);;
6403         MELT_LOCATION("warmelt-outobj.melt:3635:/ cond");
6404         /*cond*/
6405         if (/*_#IS_LIST__L4*/ meltfnum[3]) /*then*/
6406             {
6407                 /*^cond.then*/
6408                 /*^block*/
6409                 /*anyblock*/
6410                 {
6411
6412                     /*citerblock FOREACH_PAIR_COMPONENT_IN_LIST*/
6413                     {
6414                         /* start foreach_pair_component_in_list meltcit1__EACHLIST */
6415                         for (/*_.CURPAIR__V16*/ meltfptr[14] = melt_list_first( (melt_ptr_t)/*_.CDEST__V9*/ meltfptr[5]);
6416                                                 melt_magic_discr((melt_ptr_t) /*_.CURPAIR__V16*/ meltfptr[14]) == MELTOBMAG_PAIR;
6417                                                 /*_.CURPAIR__V16*/ meltfptr[14] = melt_pair_tail((melt_ptr_t) /*_.CURPAIR__V16*/ meltfptr[14]))
6418                             {
6419                                 /*_.DESTCUR__V17*/ meltfptr[16] = melt_pair_head((melt_ptr_t) /*_.CURPAIR__V16*/ meltfptr[14]);
6420
6421
6422                                 /*_#GET_INT__L5*/
6423                                 meltfnum[4] =
6424                                     (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V12*/ meltfptr[11])));;
6425
6426                                 MELT_CHECK_SIGNAL();
6427                                 ;
6428                                 MELT_LOCATION("warmelt-outobj.melt:3639:/ msend");
6429                                 /*msend*/
6430                                 {
6431                                     union meltparam_un argtab[3];
6432                                     memset(&argtab, 0, sizeof(argtab));
6433                                     /*^ojbmsend.arg*/
6434                                     argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2];
6435                                     /*^ojbmsend.arg*/
6436                                     argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
6437                                     /*^ojbmsend.arg*/
6438                                     argtab[2].meltbp_long = /*_#GET_INT__L5*/ meltfnum[4];
6439                                     /*_.OUTPUT_C_CODE__V18*/
6440                                     meltfptr[17] = meltgc_send((melt_ptr_t)(/*_.DESTCUR__V17*/ meltfptr[16]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[5])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
6441                                 }
6442                                 ;
6443
6444                                 {
6445                                     MELT_LOCATION("warmelt-outobj.melt:3640:/ locexp");
6446                                     /*add2sbuf_strconst*/
6447                                     meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( " = "));
6448                                 }
6449                                 ;
6450                             } /* end foreach_pair_component_in_list meltcit1__EACHLIST */
6451                         /*_.CURPAIR__V16*/ meltfptr[14] = NULL;
6452                         /*_.DESTCUR__V17*/
6453                         meltfptr[16] = NULL;
6454
6455
6456                         /*citerepilog*/
6457
6458                         MELT_LOCATION("warmelt-outobj.melt:3636:/ clear");
6459                         /*clear*/ /*_.CURPAIR__V16*/
6460                         meltfptr[14] = 0 ;
6461                         /*^clear*/
6462                         /*clear*/ /*_.DESTCUR__V17*/
6463                         meltfptr[16] = 0 ;
6464                         /*^clear*/
6465                         /*clear*/ /*_#GET_INT__L5*/
6466                         meltfnum[4] = 0 ;
6467                         /*^clear*/
6468                         /*clear*/ /*_.OUTPUT_C_CODE__V18*/
6469                         meltfptr[17] = 0 ;
6470                     } /*endciterblock FOREACH_PAIR_COMPONENT_IN_LIST*/
6471                     ;
6472                     /*epilog*/
6473                 }
6474                 ;
6475             } /*noelse*/
6476         ;
6477
6478         MELT_CHECK_SIGNAL();
6479         ;
6480         /*_#IS_LIST__L6*/
6481         meltfnum[5] =
6482             (melt_magic_discr((melt_ptr_t)(/*_.CEXP__V11*/ meltfptr[10])) == MELTOBMAG_LIST);;
6483         MELT_LOCATION("warmelt-outobj.melt:3642:/ cond");
6484         /*cond*/
6485         if (/*_#IS_LIST__L6*/ meltfnum[5]) /*then*/
6486             {
6487                 /*^cond.then*/
6488                 /*^block*/
6489                 /*anyblock*/
6490                 {
6491
6492
6493                     MELT_CHECK_SIGNAL();
6494                     ;
6495                     /*_#LIST_LENGTH__L7*/
6496                     meltfnum[6] =
6497                         (melt_list_length((melt_ptr_t)(/*_.CEXP__V11*/ meltfptr[10])));;
6498                     /*^compute*/
6499                     /*_#gtI__L8*/
6500                     meltfnum[7] =
6501                         ((/*_#LIST_LENGTH__L7*/ meltfnum[6]) > (2));;
6502                     MELT_LOCATION("warmelt-outobj.melt:3643:/ cond");
6503                     /*cond*/
6504                     if (/*_#gtI__L8*/ meltfnum[7]) /*then*/
6505                         {
6506                             /*^cond.then*/
6507                             /*^block*/
6508                             /*anyblock*/
6509                             {
6510
6511                                 /*_#plI__L9*/ meltfnum[8] =
6512                                     ((1) + (/*_#DEPTH__L1*/ meltfnum[0]));;
6513
6514                                 {
6515                                     MELT_LOCATION("warmelt-outobj.melt:3644:/ locexp");
6516                                     meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#plI__L9*/ meltfnum[8]), 0);
6517                                 }
6518                                 ;
6519                                 /*epilog*/
6520
6521                                 MELT_LOCATION("warmelt-outobj.melt:3643:/ clear");
6522                                 /*clear*/ /*_#plI__L9*/
6523                                 meltfnum[8] = 0 ;
6524                             }
6525                             ;
6526                         } /*noelse*/
6527                     ;
6528                     /*citerblock FOREACH_PAIR_COMPONENT_IN_LIST*/
6529                     {
6530                         /* start foreach_pair_component_in_list meltcit2__EACHLIST */
6531                         for (/*_.CURPAIR__V20*/ meltfptr[19] = melt_list_first( (melt_ptr_t)/*_.CEXP__V11*/ meltfptr[10]);
6532                                                 melt_magic_discr((melt_ptr_t) /*_.CURPAIR__V20*/ meltfptr[19]) == MELTOBMAG_PAIR;
6533                                                 /*_.CURPAIR__V20*/ meltfptr[19] = melt_pair_tail((melt_ptr_t) /*_.CURPAIR__V20*/ meltfptr[19]))
6534                             {
6535                                 /*_.EXPCUR__V21*/ meltfptr[20] = melt_pair_head((melt_ptr_t) /*_.CURPAIR__V20*/ meltfptr[19]);
6536
6537
6538                                 /*_#GET_INT__L10*/
6539                                 meltfnum[8] =
6540                                     (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V12*/ meltfptr[11])));;
6541
6542                                 MELT_CHECK_SIGNAL();
6543                                 ;
6544                                 MELT_LOCATION("warmelt-outobj.melt:3648:/ msend");
6545                                 /*msend*/
6546                                 {
6547                                     union meltparam_un argtab[3];
6548                                     memset(&argtab, 0, sizeof(argtab));
6549                                     /*^ojbmsend.arg*/
6550                                     argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2];
6551                                     /*^ojbmsend.arg*/
6552                                     argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
6553                                     /*^ojbmsend.arg*/
6554                                     argtab[2].meltbp_long = /*_#GET_INT__L10*/ meltfnum[8];
6555                                     /*_.OUTPUT_C_CODE__V22*/
6556                                     meltfptr[21] = meltgc_send((melt_ptr_t)(/*_.EXPCUR__V21*/ meltfptr[20]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[5])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
6557                                 }
6558                                 ;
6559
6560 #if MELT_HAVE_DEBUG
6561                                 MELT_LOCATION("warmelt-outobj.melt:3649:/ cppif.then");
6562                                 /*^block*/
6563                                 /*anyblock*/
6564                                 {
6565
6566
6567                                     MELT_CHECK_SIGNAL();
6568                                     ;
6569                                     /*_#STRBUF_USEDLENGTH__L11*/
6570                                     meltfnum[10] =
6571                                         melt_strbuf_usedlength((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]));;
6572                                     MELT_LOCATION("warmelt-outobj.melt:3650:/ cond");
6573                                     /*cond*/
6574                                     if (
6575                                         /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[6])),
6576                                                                       (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[7])))
6577                                     ) /*then*/
6578                                         {
6579                                             /*^cond.then*/
6580                                             /*^getslot*/
6581                                             {
6582                                                 melt_ptr_t slot=NULL, obj=NULL;
6583                                                 obj = (melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[6])) /*=obj*/;
6584                                                 melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE");
6585                                                 /*_.REFERENCED_VALUE__V24*/
6586                                                 meltfptr[23] = slot;
6587                                             };
6588                                             ;
6589                                         }
6590                                     else    /*^cond.else*/
6591                                         {
6592
6593                                             /*_.REFERENCED_VALUE__V24*/ meltfptr[23] =  /*reallynil*/ NULL ;;
6594                                         }
6595                                     ;
6596                                     /*^compute*/
6597                                     /*_#GET_INT__L12*/
6598                                     meltfnum[11] =
6599                                         (melt_get_int((melt_ptr_t)(/*_.REFERENCED_VALUE__V24*/ meltfptr[23])));;
6600                                     /*^compute*/
6601                                     /*_#ltI__L13*/
6602                                     meltfnum[12] =
6603                                         ((/*_#STRBUF_USEDLENGTH__L11*/ meltfnum[10]) < (/*_#GET_INT__L12*/ meltfnum[11]));;
6604                                     MELT_LOCATION("warmelt-outobj.melt:3649:/ cond");
6605                                     /*cond*/
6606                                     if (/*_#ltI__L13*/ meltfnum[12]) /*then*/
6607                                         {
6608                                             /*^cond.then*/
6609                                             /*_._IFELSE___V25*/ meltfptr[24] = (/*nil*/NULL);;
6610                                         }
6611                                     else
6612                                         {
6613                                             MELT_LOCATION("warmelt-outobj.melt:3649:/ cond.else");
6614
6615                                             /*^block*/
6616                                             /*anyblock*/
6617                                             {
6618
6619
6620                                                 MELT_CHECK_SIGNAL();
6621                                                 ;
6622                                                 /*^apply*/
6623                                                 /*apply*/
6624                                                 {
6625                                                     union meltparam_un argtab[3];
6626                                                     memset(&argtab, 0, sizeof(argtab));
6627                                                     /*^apply.arg*/
6628                                                     argtab[0].meltbp_cstring =  "check limited implbuf";
6629                                                     /*^apply.arg*/
6630                                                     argtab[1].meltbp_cstring =  "warmelt-outobj.melt";
6631                                                     /*^apply.arg*/
6632                                                     argtab[2].meltbp_long = 3649;
6633                                                     /*_.MELT_ASSERT_FAILURE_FUN__V26*/
6634                                                     meltfptr[25] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
6635                                                 }
6636                                                 ;
6637                                                 /*_._IFELSE___V25*/
6638                                                 meltfptr[24] = /*_.MELT_ASSERT_FAILURE_FUN__V26*/ meltfptr[25];;
6639                                                 /*epilog*/
6640
6641                                                 MELT_LOCATION("warmelt-outobj.melt:3649:/ clear");
6642                                                 /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V26*/
6643                                                 meltfptr[25] = 0 ;
6644                                             }
6645                                             ;
6646                                         }
6647                                     ;
6648                                     /*_.IFCPP___V23*/
6649                                     meltfptr[22] = /*_._IFELSE___V25*/ meltfptr[24];;
6650                                     /*epilog*/
6651
6652                                     MELT_LOCATION("warmelt-outobj.melt:3649:/ clear");
6653                                     /*clear*/ /*_#STRBUF_USEDLENGTH__L11*/
6654                                     meltfnum[10] = 0 ;
6655                                     /*^clear*/
6656                                     /*clear*/ /*_.REFERENCED_VALUE__V24*/
6657                                     meltfptr[23] = 0 ;
6658                                     /*^clear*/
6659                                     /*clear*/ /*_#GET_INT__L12*/
6660                                     meltfnum[11] = 0 ;
6661                                     /*^clear*/
6662                                     /*clear*/ /*_#ltI__L13*/
6663                                     meltfnum[12] = 0 ;
6664                                     /*^clear*/
6665                                     /*clear*/ /*_._IFELSE___V25*/
6666                                     meltfptr[24] = 0 ;
6667                                 }
6668
6669 #else /*MELT_HAVE_DEBUG*/
6670                                 /*^cppif.else*/
6671                                 /*_.IFCPP___V23*/ meltfptr[22] = (/*nil*/NULL);
6672 #endif /*MELT_HAVE_DEBUG*/
6673                                 ;
6674                             } /* end foreach_pair_component_in_list meltcit2__EACHLIST */
6675                         /*_.CURPAIR__V20*/ meltfptr[19] = NULL;
6676                         /*_.EXPCUR__V21*/
6677                         meltfptr[20] = NULL;
6678
6679
6680                         /*citerepilog*/
6681
6682                         MELT_LOCATION("warmelt-outobj.melt:3645:/ clear");
6683                         /*clear*/ /*_.CURPAIR__V20*/
6684                         meltfptr[19] = 0 ;
6685                         /*^clear*/
6686                         /*clear*/ /*_.EXPCUR__V21*/
6687                         meltfptr[20] = 0 ;
6688                         /*^clear*/
6689                         /*clear*/ /*_#GET_INT__L10*/
6690                         meltfnum[8] = 0 ;
6691                         /*^clear*/
6692                         /*clear*/ /*_.OUTPUT_C_CODE__V22*/
6693                         meltfptr[21] = 0 ;
6694                         /*^clear*/
6695                         /*clear*/ /*_.IFCPP___V23*/
6696                         meltfptr[22] = 0 ;
6697                     } /*endciterblock FOREACH_PAIR_COMPONENT_IN_LIST*/
6698                     ;
6699                     MELT_LOCATION("warmelt-outobj.melt:3642:/ quasiblock");
6700
6701
6702                     /*epilog*/
6703
6704                     /*^clear*/
6705                     /*clear*/ /*_#LIST_LENGTH__L7*/
6706                     meltfnum[6] = 0 ;
6707                     /*^clear*/
6708                     /*clear*/ /*_#gtI__L8*/
6709                     meltfnum[7] = 0 ;
6710                 }
6711                 ;
6712             }
6713         else    /*^cond.else*/
6714             {
6715
6716                 /*^block*/
6717                 /*anyblock*/
6718                 {
6719
6720
6721                     MELT_CHECK_SIGNAL();
6722                     ;
6723                     /*_#IS_MULTIPLE__L14*/
6724                     meltfnum[10] =
6725                         (melt_magic_discr((melt_ptr_t)(/*_.CEXP__V11*/ meltfptr[10])) == MELTOBMAG_MULTIPLE);;
6726                     MELT_LOCATION("warmelt-outobj.melt:3652:/ cond");
6727                     /*cond*/
6728                     if (/*_#IS_MULTIPLE__L14*/ meltfnum[10]) /*then*/
6729                         {
6730                             /*^cond.then*/
6731                             /*^block*/
6732                             /*anyblock*/
6733                             {
6734
6735
6736                                 MELT_CHECK_SIGNAL();
6737                                 ;
6738                                 /*_#MULTIPLE_LENGTH__L15*/
6739                                 meltfnum[11] =
6740                                     (melt_multiple_length((melt_ptr_t)(/*_.CEXP__V11*/ meltfptr[10])));;
6741                                 /*^compute*/
6742                                 /*_#gtI__L16*/
6743                                 meltfnum[12] =
6744                                     ((/*_#MULTIPLE_LENGTH__L15*/ meltfnum[11]) > (2));;
6745                                 MELT_LOCATION("warmelt-outobj.melt:3653:/ cond");
6746                                 /*cond*/
6747                                 if (/*_#gtI__L16*/ meltfnum[12]) /*then*/
6748                                     {
6749                                         /*^cond.then*/
6750                                         /*^block*/
6751                                         /*anyblock*/
6752                                         {
6753
6754                                             /*_#plI__L17*/ meltfnum[6] =
6755                                                 ((1) + (/*_#DEPTH__L1*/ meltfnum[0]));;
6756
6757                                             {
6758                                                 MELT_LOCATION("warmelt-outobj.melt:3654:/ locexp");
6759                                                 meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#plI__L17*/ meltfnum[6]), 0);
6760                                             }
6761                                             ;
6762                                             /*epilog*/
6763
6764                                             MELT_LOCATION("warmelt-outobj.melt:3653:/ clear");
6765                                             /*clear*/ /*_#plI__L17*/
6766                                             meltfnum[6] = 0 ;
6767                                         }
6768                                         ;
6769                                     } /*noelse*/
6770                                 ;
6771                                 /*citerblock FOREACH_IN_MULTIPLE*/
6772                                 {
6773                                     /* start foreach_in_multiple meltcit3__EACHTUP */
6774                                     long  meltcit3__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.CEXP__V11*/ meltfptr[10]);
6775                                     for (/*_#IX__L18*/ meltfnum[7] = 0;
6776                                                        (/*_#IX__L18*/ meltfnum[7] >= 0) && (/*_#IX__L18*/ meltfnum[7] <  meltcit3__EACHTUP_ln);
6777                                                        /*_#IX__L18*/ meltfnum[7]++)
6778                                         {
6779                                             /*_.EXPCUR__V28*/ meltfptr[23] = melt_multiple_nth((melt_ptr_t)(/*_.CEXP__V11*/ meltfptr[10]),  /*_#IX__L18*/ meltfnum[7]);
6780
6781
6782
6783                                             /*_#GET_INT__L19*/
6784                                             meltfnum[6] =
6785                                                 (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V12*/ meltfptr[11])));;
6786
6787                                             MELT_CHECK_SIGNAL();
6788                                             ;
6789                                             MELT_LOCATION("warmelt-outobj.melt:3658:/ msend");
6790                                             /*msend*/
6791                                             {
6792                                                 union meltparam_un argtab[3];
6793                                                 memset(&argtab, 0, sizeof(argtab));
6794                                                 /*^ojbmsend.arg*/
6795                                                 argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2];
6796                                                 /*^ojbmsend.arg*/
6797                                                 argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
6798                                                 /*^ojbmsend.arg*/
6799                                                 argtab[2].meltbp_long = /*_#GET_INT__L19*/ meltfnum[6];
6800                                                 /*_.OUTPUT_C_CODE__V29*/
6801                                                 meltfptr[24] = meltgc_send((melt_ptr_t)(/*_.EXPCUR__V28*/ meltfptr[23]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[5])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
6802                                             }
6803                                             ;
6804
6805 #if MELT_HAVE_DEBUG
6806                                             MELT_LOCATION("warmelt-outobj.melt:3659:/ cppif.then");
6807                                             /*^block*/
6808                                             /*anyblock*/
6809                                             {
6810
6811
6812                                                 MELT_CHECK_SIGNAL();
6813                                                 ;
6814                                                 /*_#STRBUF_USEDLENGTH__L20*/
6815                                                 meltfnum[19] =
6816                                                     melt_strbuf_usedlength((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]));;
6817                                                 MELT_LOCATION("warmelt-outobj.melt:3660:/ cond");
6818                                                 /*cond*/
6819                                                 if (
6820                                                     /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[6])),
6821                                                                                   (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[7])))
6822                                                 ) /*then*/
6823                                                     {
6824                                                         /*^cond.then*/
6825                                                         /*^getslot*/
6826                                                         {
6827                                                             melt_ptr_t slot=NULL, obj=NULL;
6828                                                             obj = (melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[6])) /*=obj*/;
6829                                                             melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE");
6830                                                             /*_.REFERENCED_VALUE__V31*/
6831                                                             meltfptr[30] = slot;
6832                                                         };
6833                                                         ;
6834                                                     }
6835                                                 else    /*^cond.else*/
6836                                                     {
6837
6838                                                         /*_.REFERENCED_VALUE__V31*/ meltfptr[30] =  /*reallynil*/ NULL ;;
6839                                                     }
6840                                                 ;
6841                                                 /*^compute*/
6842                                                 /*_#GET_INT__L21*/
6843                                                 meltfnum[20] =
6844                                                     (melt_get_int((melt_ptr_t)(/*_.REFERENCED_VALUE__V31*/ meltfptr[30])));;
6845                                                 /*^compute*/
6846                                                 /*_#ltI__L22*/
6847                                                 meltfnum[21] =
6848                                                     ((/*_#STRBUF_USEDLENGTH__L20*/ meltfnum[19]) < (/*_#GET_INT__L21*/ meltfnum[20]));;
6849                                                 MELT_LOCATION("warmelt-outobj.melt:3659:/ cond");
6850                                                 /*cond*/
6851                                                 if (/*_#ltI__L22*/ meltfnum[21]) /*then*/
6852                                                     {
6853                                                         /*^cond.then*/
6854                                                         /*_._IFELSE___V32*/ meltfptr[31] = (/*nil*/NULL);;
6855                                                     }
6856                                                 else
6857                                                     {
6858                                                         MELT_LOCATION("warmelt-outobj.melt:3659:/ cond.else");
6859
6860                                                         /*^block*/
6861                                                         /*anyblock*/
6862                                                         {
6863
6864
6865                                                             MELT_CHECK_SIGNAL();
6866                                                             ;
6867                                                             /*^apply*/
6868                                                             /*apply*/
6869                                                             {
6870                                                                 union meltparam_un argtab[4];
6871                                                                 memset(&argtab, 0, sizeof(argtab));
6872                                                                 /*^apply.arg*/
6873                                                                 argtab[0].meltbp_cstring =  "check limited implbuf";
6874                                                                 /*^apply.arg*/
6875                                                                 argtab[1].meltbp_cstring =  "warmelt-outobj.melt";
6876                                                                 /*^apply.arg*/
6877                                                                 argtab[2].meltbp_long = 3659;
6878                                                                 /*^apply.arg*/
6879                                                                 argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
6880                                                                 /*_.MELT_ASSERT_FAILURE_FUN__V33*/
6881                                                                 meltfptr[32] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
6882                                                             }
6883                                                             ;
6884                                                             /*_._IFELSE___V32*/
6885                                                             meltfptr[31] = /*_.MELT_ASSERT_FAILURE_FUN__V33*/ meltfptr[32];;
6886                                                             /*epilog*/
6887
6888                                                             MELT_LOCATION("warmelt-outobj.melt:3659:/ clear");
6889                                                             /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V33*/
6890                                                             meltfptr[32] = 0 ;
6891                                                         }
6892                                                         ;
6893                                                     }
6894                                                 ;
6895                                                 /*_.IFCPP___V30*/
6896                                                 meltfptr[29] = /*_._IFELSE___V32*/ meltfptr[31];;
6897                                                 /*epilog*/
6898
6899                                                 MELT_LOCATION("warmelt-outobj.melt:3659:/ clear");
6900                                                 /*clear*/ /*_#STRBUF_USEDLENGTH__L20*/
6901                                                 meltfnum[19] = 0 ;
6902                                                 /*^clear*/
6903                                                 /*clear*/ /*_.REFERENCED_VALUE__V31*/
6904                                                 meltfptr[30] = 0 ;
6905                                                 /*^clear*/
6906                                                 /*clear*/ /*_#GET_INT__L21*/
6907                                                 meltfnum[20] = 0 ;
6908                                                 /*^clear*/
6909                                                 /*clear*/ /*_#ltI__L22*/
6910                                                 meltfnum[21] = 0 ;
6911                                                 /*^clear*/
6912                                                 /*clear*/ /*_._IFELSE___V32*/
6913                                                 meltfptr[31] = 0 ;
6914                                             }
6915
6916 #else /*MELT_HAVE_DEBUG*/
6917                                             /*^cppif.else*/
6918                                             /*_.IFCPP___V30*/ meltfptr[29] = (/*nil*/NULL);
6919 #endif /*MELT_HAVE_DEBUG*/
6920                                             ;
6921                                             if (/*_#IX__L18*/ meltfnum[7]<0) break;
6922                                         } /* end  foreach_in_multiple meltcit3__EACHTUP */
6923
6924                                     /*citerepilog*/
6925
6926                                     MELT_LOCATION("warmelt-outobj.melt:3655:/ clear");
6927                                     /*clear*/ /*_.EXPCUR__V28*/
6928                                     meltfptr[23] = 0 ;
6929                                     /*^clear*/
6930                                     /*clear*/ /*_#IX__L18*/
6931                                     meltfnum[7] = 0 ;
6932                                     /*^clear*/
6933                                     /*clear*/ /*_#GET_INT__L19*/
6934                                     meltfnum[6] = 0 ;
6935                                     /*^clear*/
6936                                     /*clear*/ /*_.OUTPUT_C_CODE__V29*/
6937                                     meltfptr[24] = 0 ;
6938                                     /*^clear*/
6939                                     /*clear*/ /*_.IFCPP___V30*/
6940                                     meltfptr[29] = 0 ;
6941                                 } /*endciterblock FOREACH_IN_MULTIPLE*/
6942                                 ;
6943                                 MELT_LOCATION("warmelt-outobj.melt:3652:/ quasiblock");
6944
6945
6946                                 /*epilog*/
6947
6948                                 /*^clear*/
6949                                 /*clear*/ /*_#MULTIPLE_LENGTH__L15*/
6950                                 meltfnum[11] = 0 ;
6951                                 /*^clear*/
6952                                 /*clear*/ /*_#gtI__L16*/
6953                                 meltfnum[12] = 0 ;
6954                             }
6955                             ;
6956                         }
6957                     else    /*^cond.else*/
6958                         {
6959
6960                             /*^block*/
6961                             /*anyblock*/
6962                             {
6963
6964                                 /*_#plI__L23*/ meltfnum[19] =
6965                                     ((/*_#DEPTH__L1*/ meltfnum[0]) + (1));;
6966
6967                                 MELT_CHECK_SIGNAL();
6968                                 ;
6969                                 MELT_LOCATION("warmelt-outobj.melt:3663:/ msend");
6970                                 /*msend*/
6971                                 {
6972                                     union meltparam_un argtab[3];
6973                                     memset(&argtab, 0, sizeof(argtab));
6974                                     /*^ojbmsend.arg*/
6975                                     argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2];
6976                                     /*^ojbmsend.arg*/
6977                                     argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
6978                                     /*^ojbmsend.arg*/
6979                                     argtab[2].meltbp_long = /*_#plI__L23*/ meltfnum[19];
6980                                     /*_.OUTPUT_C_CODE__V34*/
6981                                     meltfptr[32] = meltgc_send((melt_ptr_t)(/*_.CEXP__V11*/ meltfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[5])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
6982                                 }
6983                                 ;
6984                                 MELT_LOCATION("warmelt-outobj.melt:3662:/ quasiblock");
6985
6986
6987                                 /*_.PROGN___V35*/
6988                                 meltfptr[30] = /*_.OUTPUT_C_CODE__V34*/ meltfptr[32];;
6989                                 /*^compute*/
6990                                 /*_._IFELSE___V27*/
6991                                 meltfptr[25] = /*_.PROGN___V35*/ meltfptr[30];;
6992                                 /*epilog*/
6993
6994                                 MELT_LOCATION("warmelt-outobj.melt:3652:/ clear");
6995                                 /*clear*/ /*_#plI__L23*/
6996                                 meltfnum[19] = 0 ;
6997                                 /*^clear*/
6998                                 /*clear*/ /*_.OUTPUT_C_CODE__V34*/
6999                                 meltfptr[32] = 0 ;
7000                                 /*^clear*/
7001                                 /*clear*/ /*_.PROGN___V35*/
7002                                 meltfptr[30] = 0 ;
7003                             }
7004                             ;
7005                         }
7006                     ;
7007                     /*_._IFELSE___V19*/
7008                     meltfptr[18] = /*_._IFELSE___V27*/ meltfptr[25];;
7009                     /*epilog*/
7010
7011                     MELT_LOCATION("warmelt-outobj.melt:3642:/ clear");
7012                     /*clear*/ /*_#IS_MULTIPLE__L14*/
7013                     meltfnum[10] = 0 ;
7014                     /*^clear*/
7015                     /*clear*/ /*_._IFELSE___V27*/
7016                     meltfptr[25] = 0 ;
7017                 }
7018                 ;
7019             }
7020         ;
7021
7022         {
7023             MELT_LOCATION("warmelt-outobj.melt:3665:/ locexp");
7024             /*add2sbuf_strconst*/
7025             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( ";"));
7026         }
7027         ;
7028
7029 #if MELT_HAVE_DEBUG
7030         MELT_LOCATION("warmelt-outobj.melt:3666:/ cppif.then");
7031         /*^block*/
7032         /*anyblock*/
7033         {
7034
7035
7036             MELT_CHECK_SIGNAL();
7037             ;
7038             /*_#STRBUF_USEDLENGTH__L24*/
7039             meltfnum[20] =
7040                 melt_strbuf_usedlength((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]));;
7041             MELT_LOCATION("warmelt-outobj.melt:3667:/ cond");
7042             /*cond*/
7043             if (
7044                 /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[6])),
7045                                               (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[7])))
7046             ) /*then*/
7047                 {
7048                     /*^cond.then*/
7049                     /*^getslot*/
7050                     {
7051                         melt_ptr_t slot=NULL, obj=NULL;
7052                         obj = (melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[6])) /*=obj*/;
7053                         melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE");
7054                         /*_.REFERENCED_VALUE__V37*/
7055                         meltfptr[32] = slot;
7056                     };
7057                     ;
7058                 }
7059             else    /*^cond.else*/
7060                 {
7061
7062                     /*_.REFERENCED_VALUE__V37*/ meltfptr[32] =  /*reallynil*/ NULL ;;
7063                 }
7064             ;
7065             /*^compute*/
7066             /*_#GET_INT__L25*/
7067             meltfnum[21] =
7068                 (melt_get_int((melt_ptr_t)(/*_.REFERENCED_VALUE__V37*/ meltfptr[32])));;
7069             /*^compute*/
7070             /*_#ltI__L26*/
7071             meltfnum[11] =
7072                 ((/*_#STRBUF_USEDLENGTH__L24*/ meltfnum[20]) < (/*_#GET_INT__L25*/ meltfnum[21]));;
7073             MELT_LOCATION("warmelt-outobj.melt:3666:/ cond");
7074             /*cond*/
7075             if (/*_#ltI__L26*/ meltfnum[11]) /*then*/
7076                 {
7077                     /*^cond.then*/
7078                     /*_._IFELSE___V38*/ meltfptr[30] = (/*nil*/NULL);;
7079                 }
7080             else
7081                 {
7082                     MELT_LOCATION("warmelt-outobj.melt:3666:/ cond.else");
7083
7084                     /*^block*/
7085                     /*anyblock*/
7086                     {
7087
7088
7089                         MELT_CHECK_SIGNAL();
7090                         ;
7091                         /*^apply*/
7092                         /*apply*/
7093                         {
7094                             union meltparam_un argtab[4];
7095                             memset(&argtab, 0, sizeof(argtab));
7096                             /*^apply.arg*/
7097                             argtab[0].meltbp_cstring =  "check limited implbuf";
7098                             /*^apply.arg*/
7099                             argtab[1].meltbp_cstring =  "warmelt-outobj.melt";
7100                             /*^apply.arg*/
7101                             argtab[2].meltbp_long = 3666;
7102                             /*^apply.arg*/
7103                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
7104                             /*_.MELT_ASSERT_FAILURE_FUN__V39*/
7105                             meltfptr[25] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
7106                         }
7107                         ;
7108                         /*_._IFELSE___V38*/
7109                         meltfptr[30] = /*_.MELT_ASSERT_FAILURE_FUN__V39*/ meltfptr[25];;
7110                         /*epilog*/
7111
7112                         MELT_LOCATION("warmelt-outobj.melt:3666:/ clear");
7113                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V39*/
7114                         meltfptr[25] = 0 ;
7115                     }
7116                     ;
7117                 }
7118             ;
7119             /*_.IFCPP___V36*/
7120             meltfptr[31] = /*_._IFELSE___V38*/ meltfptr[30];;
7121             /*epilog*/
7122
7123             MELT_LOCATION("warmelt-outobj.melt:3666:/ clear");
7124             /*clear*/ /*_#STRBUF_USEDLENGTH__L24*/
7125             meltfnum[20] = 0 ;
7126             /*^clear*/
7127             /*clear*/ /*_.REFERENCED_VALUE__V37*/
7128             meltfptr[32] = 0 ;
7129             /*^clear*/
7130             /*clear*/ /*_#GET_INT__L25*/
7131             meltfnum[21] = 0 ;
7132             /*^clear*/
7133             /*clear*/ /*_#ltI__L26*/
7134             meltfnum[11] = 0 ;
7135             /*^clear*/
7136             /*clear*/ /*_._IFELSE___V38*/
7137             meltfptr[30] = 0 ;
7138         }
7139
7140 #else /*MELT_HAVE_DEBUG*/
7141         /*^cppif.else*/
7142         /*_.IFCPP___V36*/ meltfptr[31] = (/*nil*/NULL);
7143 #endif /*MELT_HAVE_DEBUG*/
7144         ;
7145         /*^compute*/
7146         /*_.LET___V8*/
7147         meltfptr[6] = /*_.IFCPP___V36*/ meltfptr[31];;
7148
7149         MELT_LOCATION("warmelt-outobj.melt:3628:/ clear");
7150         /*clear*/ /*_.CDEST__V9*/
7151         meltfptr[5] = 0 ;
7152         /*^clear*/
7153         /*clear*/ /*_.CLOC__V10*/
7154         meltfptr[9] = 0 ;
7155         /*^clear*/
7156         /*clear*/ /*_.CEXP__V11*/
7157         meltfptr[10] = 0 ;
7158         /*^clear*/
7159         /*clear*/ /*_#plI__L3*/
7160         meltfnum[1] = 0 ;
7161         /*^clear*/
7162         /*clear*/ /*_.BOXDEPTHP1__V12*/
7163         meltfptr[11] = 0 ;
7164         /*^clear*/
7165         /*clear*/ /*_.OUTPUT_LOCATION__V13*/
7166         meltfptr[12] = 0 ;
7167         /*^clear*/
7168         /*clear*/ /*_._IF___V14*/
7169         meltfptr[13] = 0 ;
7170         /*^clear*/
7171         /*clear*/ /*_#IS_LIST__L4*/
7172         meltfnum[3] = 0 ;
7173         /*^clear*/
7174         /*clear*/ /*_#IS_LIST__L6*/
7175         meltfnum[5] = 0 ;
7176         /*^clear*/
7177         /*clear*/ /*_._IFELSE___V19*/
7178         meltfptr[18] = 0 ;
7179         /*^clear*/
7180         /*clear*/ /*_.IFCPP___V36*/
7181         meltfptr[31] = 0 ;
7182
7183         MELT_CHECK_SIGNAL();
7184         ;
7185         MELT_LOCATION("warmelt-outobj.melt:3626:/ quasiblock");
7186
7187
7188         /*_._RETVAL___V1*/
7189         meltfptr[0] = /*_.LET___V8*/ meltfptr[6];;
7190
7191         {
7192             MELT_LOCATION("warmelt-outobj.melt:3626:/ locexp");
7193             /*ochecknores compilobj_nrep_return*/
7194 #if MELT_HAVE_DEBUG
7195             if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
7196                 melt_warn_for_no_expected_secondary_results();
7197             /* we warned when secondary results are expected but not returned. */
7198 #endif /*MELT_HAVE_DEBUG*/
7199             ;
7200         }
7201         ;
7202         /*^finalreturn*/
7203         ;
7204         /*finalret*/
7205         goto meltlabend_rout ;
7206         /*epilog*/
7207
7208         /*^clear*/
7209         /*clear*/ /*_.IFCPP___V5*/
7210         meltfptr[4] = 0 ;
7211         /*^clear*/
7212         /*clear*/ /*_.LET___V8*/
7213         meltfptr[6] = 0 ;
7214     }
7215
7216     ;
7217     goto meltlabend_rout;
7218 meltlabend_rout:
7219     melt_trace_end("OUTPUCOD_OBJCOMPUTE", meltcallcount);
7220     melt_blocklevel_signals = current_blocklevel_signals_meltrout_80_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOMPUTE_melt;
7221     return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]);
7222 #undef meltcallcount
7223 #undef meltfram__
7224 #undef MELTFRAM_NBVARNUM
7225 #undef MELTFRAM_NBVARPTR
7226 } /*end meltrout_80_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOMPUTE*/
7227
7228
7229
7230
7231
7232
7233 melt_ptr_t MELT_MODULE_VISIBILITY
7234 meltrout_81_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOND(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_,
7235         const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_)
7236 {
7237     long current_blocklevel_signals_meltrout_81_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOND_melt =  melt_blocklevel_signals;
7238
7239 #if MELT_HAVE_DEBUG
7240     static long melt_call_counter__;
7241     long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__;
7242 #undef meltcallcount
7243 #define meltcallcount melt_thiscallcounter__
7244 #else
7245 #undef meltcallcount
7246 #define meltcallcount 0L
7247 #endif
7248 //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538
7249
7250     /* start of frame for routine meltrout_81_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOND fromline 1752 */
7251
7252     /** start of frame for meltrout_81_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOND of CLASS_PROCROUTINEOBJ from 1555**/
7253
7254     /*curframdeclclassy*/ class MeltFrame_meltrout_81_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOND// fromline 1568
7255         : public Melt_CallFrameWithValues<25>
7256     {
7257     public: /* fromline 1572*/
7258         long mcfr_varnum[17];
7259         /*classy others*/
7260         long _meltsparel;
7261         void melt_mark_stuff (void)
7262         {
7263         } /*end melt_mark_stuff*/
7264         virtual void melt_mark_ggc_data (void)
7265         {
7266             melt_mark_values ();
7267             melt_mark_stuff ();
7268         }; /*end melt_mark_ggc_data*/
7269         MeltFrame_meltrout_81_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOND(meltclosure_ptr_t clos) //the closure constructor fromline 1630
7270             : Melt_CallFrameWithValues<25> (
7271 #if ENABLE_CHECKING /*fromline 1634*/
7272                 __FILE__, __LINE__,
7273 #endif /* ENABLE_CHECKING fromline 1638*/
7274                 sizeof(MeltFrame_meltrout_81_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOND), clos) {};
7275         MeltFrame_meltrout_81_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOND() //the constructor fromline 1642
7276             : Melt_CallFrameWithValues<25> (
7277 #if ENABLE_CHECKING /*fromline 1646*/
7278                 __FILE__, __LINE__,
7279 #endif /* ENABLE_CHECKING fromline 1650*/
7280                 sizeof(MeltFrame_meltrout_81_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOND)) {};
7281 #if ENABLE_CHECKING /*fromline 1654*/
7282         MeltFrame_meltrout_81_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOND(const char*fil, int lin) //the constructor fromline 1656
7283             : Melt_CallFrameWithValues<25> (fil,lin, sizeof(MeltFrame_meltrout_81_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOND)) {};
7284         MeltFrame_meltrout_81_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOND(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661
7285             : Melt_CallFrameWithValues<25> (fil,lin, sizeof(MeltFrame_meltrout_81_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOND), clos) {};
7286 #endif /* ENABLE_CHECKING fromline 1666*/
7287
7288     }; // end  class MeltFrame_meltrout_81_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOND
7289
7290
7291     /** end of frame for meltrout_81_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOND fromline 1697**/
7292
7293     /* end of frame for routine meltrout_81_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOND fromline 1756 */
7294
7295     /* classy proc frame meltrout_81_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOND */
7296     MeltFrame_meltrout_81_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOND
7297     meltfram__ /*declfrastruct fromline 1780*/
7298     /*classyprocarg meltrout_81_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOND fromline 1785*/
7299 #if ENABLE_CHECKING
7300     (__FILE__, __LINE__, meltclosp_) /* fromline 1789*/
7301 #else /*ENABLE_CHECKING */
7302     (meltclosp_) /* fromline 1793*/
7303 #endif /*ENABLE_CHECKING */
7304
7305     ;
7306 #define meltframe meltfram__
7307
7308     melt_trace_start("OUTPUCOD_OBJCOND", meltcallcount);
7309     /*use arguments*/
7310     (void) meltclosp_;
7311     (void)meltfirstargp_;
7312     (void)meltxargdescr_;
7313     (void)meltxargtab_;
7314     (void)meltxresdescr_;
7315     (void)meltxrestab_;
7316     /*getargs*/
7317
7318     /*getarg#0*/
7319     MELT_LOCATION("warmelt-outobj.melt:3673:/ getarg");
7320     /*_.OCOND__V2*/
7321     meltfptr[1] = (melt_ptr_t) meltfirstargp_;
7322
7323     /*getarg#1*/
7324     /*^getarg*/
7325     if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs;
7326     /*_.DECLBUF__V3*/
7327     meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
7328     gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2])) != NULL);
7329
7330
7331     /*getarg#2*/
7332     /*^getarg*/
7333     if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs;
7334     /*_.IMPLBUF__V4*/
7335     meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL;
7336     gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3])) != NULL);
7337
7338
7339     /*getarg#3*/
7340     /*^getarg*/
7341     if (meltxargdescr_[2] != MELTBPAR_LONG) goto meltlab_endgetargs;
7342     /*_#DEPTH__L1*/
7343     meltfnum[0] = meltxargtab_[2].meltbp_long;
7344     ;
7345     goto meltlab_endgetargs;
7346 meltlab_endgetargs:
7347     ;
7348     /*body*/
7349     /*^block*/
7350     /*anyblock*/
7351     {
7352
7353
7354 #if MELT_HAVE_DEBUG
7355         MELT_LOCATION("warmelt-outobj.melt:3674:/ cppif.then");
7356         /*^block*/
7357         /*anyblock*/
7358         {
7359
7360
7361             MELT_CHECK_SIGNAL();
7362             ;
7363             /*_#IS_A__L2*/
7364             meltfnum[1] =
7365                 melt_is_instance_of((melt_ptr_t)(/*_.OCOND__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_OBJCOND*/ meltfrout->tabval[0])));;
7366             MELT_LOCATION("warmelt-outobj.melt:3674:/ cond");
7367             /*cond*/
7368             if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/
7369                 {
7370                     /*^cond.then*/
7371                     /*_._IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);;
7372                 }
7373             else
7374                 {
7375                     MELT_LOCATION("warmelt-outobj.melt:3674:/ cond.else");
7376
7377                     /*^block*/
7378                     /*anyblock*/
7379                     {
7380
7381
7382                         MELT_CHECK_SIGNAL();
7383                         ;
7384                         /*^apply*/
7385                         /*apply*/
7386                         {
7387                             union meltparam_un argtab[4];
7388                             memset(&argtab, 0, sizeof(argtab));
7389                             /*^apply.arg*/
7390                             argtab[0].meltbp_cstring =  "check ocond";
7391                             /*^apply.arg*/
7392                             argtab[1].meltbp_cstring =  "warmelt-outobj.melt";
7393                             /*^apply.arg*/
7394                             argtab[2].meltbp_long = 3674;
7395                             /*^apply.arg*/
7396                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OCOND__V2*/ meltfptr[1];
7397                             /*_.MELT_ASSERT_FAILURE_FUN__V7*/
7398                             meltfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
7399                         }
7400                         ;
7401                         /*_._IFELSE___V6*/
7402                         meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6];;
7403                         /*epilog*/
7404
7405                         MELT_LOCATION("warmelt-outobj.melt:3674:/ clear");
7406                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V7*/
7407                         meltfptr[6] = 0 ;
7408                     }
7409                     ;
7410                 }
7411             ;
7412             /*_.IFCPP___V5*/
7413             meltfptr[4] = /*_._IFELSE___V6*/ meltfptr[5];;
7414             /*epilog*/
7415
7416             MELT_LOCATION("warmelt-outobj.melt:3674:/ clear");
7417             /*clear*/ /*_#IS_A__L2*/
7418             meltfnum[1] = 0 ;
7419             /*^clear*/
7420             /*clear*/ /*_._IFELSE___V6*/
7421             meltfptr[5] = 0 ;
7422         }
7423
7424 #else /*MELT_HAVE_DEBUG*/
7425         /*^cppif.else*/
7426         /*_.IFCPP___V5*/ meltfptr[4] = (/*nil*/NULL);
7427 #endif /*MELT_HAVE_DEBUG*/
7428         ;
7429         MELT_LOCATION("warmelt-outobj.melt:3675:/ quasiblock");
7430
7431
7432         /*^getslot*/
7433         {
7434             melt_ptr_t slot=NULL, obj=NULL;
7435             obj = (melt_ptr_t)(/*_.OCOND__V2*/ meltfptr[1]) /*=obj*/;
7436             melt_object_get_field(slot,obj, 0, "OBI_LOC");
7437             /*_.CLOC__V9*/
7438             meltfptr[5] = slot;
7439         };
7440         ;
7441         MELT_LOCATION("warmelt-outobj.melt:3676:/ getslot");
7442         {
7443             melt_ptr_t slot=NULL, obj=NULL;
7444             obj = (melt_ptr_t)(/*_.OCOND__V2*/ meltfptr[1]) /*=obj*/;
7445             melt_object_get_field(slot,obj, 1, "OBCOND_TEST");
7446             /*_.CTEST__V10*/
7447             meltfptr[9] = slot;
7448         };
7449         ;
7450         MELT_LOCATION("warmelt-outobj.melt:3677:/ getslot");
7451         {
7452             melt_ptr_t slot=NULL, obj=NULL;
7453             obj = (melt_ptr_t)(/*_.OCOND__V2*/ meltfptr[1]) /*=obj*/;
7454             melt_object_get_field(slot,obj, 2, "OBCOND_THEN");
7455             /*_.CTHEN__V11*/
7456             meltfptr[10] = slot;
7457         };
7458         ;
7459         MELT_LOCATION("warmelt-outobj.melt:3678:/ getslot");
7460         {
7461             melt_ptr_t slot=NULL, obj=NULL;
7462             obj = (melt_ptr_t)(/*_.OCOND__V2*/ meltfptr[1]) /*=obj*/;
7463             melt_object_get_field(slot,obj, 3, "OBCOND_ELSE");
7464             /*_.CELSE__V12*/
7465             meltfptr[11] = slot;
7466         };
7467         ;
7468
7469 #if MELT_HAVE_DEBUG
7470         MELT_LOCATION("warmelt-outobj.melt:3680:/ cppif.then");
7471         /*^block*/
7472         /*anyblock*/
7473         {
7474
7475
7476             MELT_CHECK_SIGNAL();
7477             ;
7478             /*_#NOTNULL__L3*/
7479             meltfnum[1] =
7480                 ((/*_.CTEST__V10*/ meltfptr[9]) != NULL);;
7481             MELT_LOCATION("warmelt-outobj.melt:3680:/ cond");
7482             /*cond*/
7483             if (/*_#NOTNULL__L3*/ meltfnum[1]) /*then*/
7484                 {
7485                     /*^cond.then*/
7486                     /*_._IFELSE___V14*/ meltfptr[13] = (/*nil*/NULL);;
7487                 }
7488             else
7489                 {
7490                     MELT_LOCATION("warmelt-outobj.melt:3680:/ cond.else");
7491
7492                     /*^block*/
7493                     /*anyblock*/
7494                     {
7495
7496
7497                         MELT_CHECK_SIGNAL();
7498                         ;
7499                         /*^apply*/
7500                         /*apply*/
7501                         {
7502                             union meltparam_un argtab[4];
7503                             memset(&argtab, 0, sizeof(argtab));
7504                             /*^apply.arg*/
7505                             argtab[0].meltbp_cstring =  "check ctest";
7506                             /*^apply.arg*/
7507                             argtab[1].meltbp_cstring =  "warmelt-outobj.melt";
7508                             /*^apply.arg*/
7509                             argtab[2].meltbp_long = 3680;
7510                             /*^apply.arg*/
7511                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CTEST__V10*/ meltfptr[9];
7512                             /*_.MELT_ASSERT_FAILURE_FUN__V15*/
7513                             meltfptr[14] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
7514                         }
7515                         ;
7516                         /*_._IFELSE___V14*/
7517                         meltfptr[13] = /*_.MELT_ASSERT_FAILURE_FUN__V15*/ meltfptr[14];;
7518                         /*epilog*/
7519
7520                         MELT_LOCATION("warmelt-outobj.melt:3680:/ clear");
7521                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V15*/
7522                         meltfptr[14] = 0 ;
7523                     }
7524                     ;
7525                 }
7526             ;
7527             /*_.IFCPP___V13*/
7528             meltfptr[12] = /*_._IFELSE___V14*/ meltfptr[13];;
7529             /*epilog*/
7530
7531             MELT_LOCATION("warmelt-outobj.melt:3680:/ clear");
7532             /*clear*/ /*_#NOTNULL__L3*/
7533             meltfnum[1] = 0 ;
7534             /*^clear*/
7535             /*clear*/ /*_._IFELSE___V14*/
7536             meltfptr[13] = 0 ;
7537         }
7538
7539 #else /*MELT_HAVE_DEBUG*/
7540         /*^cppif.else*/
7541         /*_.IFCPP___V13*/ meltfptr[12] = (/*nil*/NULL);
7542 #endif /*MELT_HAVE_DEBUG*/
7543         ;
7544
7545         MELT_CHECK_SIGNAL();
7546         ;
7547         MELT_LOCATION("warmelt-outobj.melt:3681:/ apply");
7548         /*apply*/
7549         {
7550             union meltparam_un argtab[3];
7551             memset(&argtab, 0, sizeof(argtab));
7552             /*^apply.arg*/
7553             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
7554             /*^apply.arg*/
7555             argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0];
7556             /*^apply.arg*/
7557             argtab[2].meltbp_cstring =  "cond";
7558             /*_.OUTPUT_LOCATION__V16*/
7559             meltfptr[14] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.CLOC__V9*/ meltfptr[5]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
7560         }
7561         ;
7562
7563         {
7564             MELT_LOCATION("warmelt-outobj.melt:3682:/ locexp");
7565             /*add2sbuf_strconst*/
7566             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "/*cond*/ if ("));
7567         }
7568         ;
7569         /*_#plI__L4*/
7570         meltfnum[1] =
7571             ((/*_#DEPTH__L1*/ meltfnum[0]) + (1));;
7572
7573         MELT_CHECK_SIGNAL();
7574         ;
7575         MELT_LOCATION("warmelt-outobj.melt:3683:/ msend");
7576         /*msend*/
7577         {
7578             union meltparam_un argtab[3];
7579             memset(&argtab, 0, sizeof(argtab));
7580             /*^ojbmsend.arg*/
7581             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2];
7582             /*^ojbmsend.arg*/
7583             argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
7584             /*^ojbmsend.arg*/
7585             argtab[2].meltbp_long = /*_#plI__L4*/ meltfnum[1];
7586             /*_.OUTPUT_C_CODE__V17*/
7587             meltfptr[13] = meltgc_send((melt_ptr_t)(/*_.CTEST__V10*/ meltfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[3])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
7588         }
7589         ;
7590
7591         {
7592             MELT_LOCATION("warmelt-outobj.melt:3684:/ locexp");
7593             /*add2sbuf_strconst*/
7594             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( ") /*then*/ {"));
7595         }
7596         ;
7597
7598         {
7599             MELT_LOCATION("warmelt-outobj.melt:3685:/ locexp");
7600             meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#DEPTH__L1*/ meltfnum[0]), 0);
7601         }
7602         ;
7603
7604         MELT_CHECK_SIGNAL();
7605         ;
7606
7607         MELT_CHECK_SIGNAL();
7608         ;
7609         MELT_LOCATION("warmelt-outobj.melt:3686:/ cond");
7610         /*cond*/
7611         if (/*_.CTHEN__V11*/ meltfptr[10]) /*then*/
7612             {
7613                 /*^cond.then*/
7614                 /*^block*/
7615                 /*anyblock*/
7616                 {
7617
7618                     /*_#IS_A__L6*/ meltfnum[5] =
7619                         melt_is_instance_of((melt_ptr_t)(/*_.CTHEN__V11*/ meltfptr[10]), (melt_ptr_t)((/*!CLASS_OBJPUREVALUE*/ meltfrout->tabval[4])));;
7620                     /*^compute*/
7621                     /*_#NOT__L7*/
7622                     meltfnum[6] =
7623                         (!(/*_#IS_A__L6*/ meltfnum[5]));;
7624                     /*^compute*/
7625                     /*_#_IF___L5*/
7626                     meltfnum[4] = /*_#NOT__L7*/ meltfnum[6];;
7627                     /*epilog*/
7628
7629                     MELT_LOCATION("warmelt-outobj.melt:3686:/ clear");
7630                     /*clear*/ /*_#IS_A__L6*/
7631                     meltfnum[5] = 0 ;
7632                     /*^clear*/
7633                     /*clear*/ /*_#NOT__L7*/
7634                     meltfnum[6] = 0 ;
7635                 }
7636                 ;
7637             }
7638         else    /*^cond.else*/
7639             {
7640
7641                 /*_#_IF___L5*/ meltfnum[4] = 0;;
7642             }
7643         ;
7644         MELT_LOCATION("warmelt-outobj.melt:3686:/ cond");
7645         /*cond*/
7646         if (/*_#_IF___L5*/ meltfnum[4]) /*then*/
7647             {
7648                 /*^cond.then*/
7649                 /*^block*/
7650                 /*anyblock*/
7651                 {
7652
7653
7654                     MELT_CHECK_SIGNAL();
7655                     ;
7656                     MELT_LOCATION("warmelt-outobj.melt:3687:/ apply");
7657                     /*apply*/
7658                     {
7659                         union meltparam_un argtab[3];
7660                         memset(&argtab, 0, sizeof(argtab));
7661                         /*^apply.arg*/
7662                         argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
7663                         /*^apply.arg*/
7664                         argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0];
7665                         /*^apply.arg*/
7666                         argtab[2].meltbp_cstring =  "cond.then";
7667                         /*_.OUTPUT_LOCATION__V18*/
7668                         meltfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.CLOC__V9*/ meltfptr[5]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
7669                     }
7670                     ;
7671                     /*_#plI__L8*/
7672                     meltfnum[5] =
7673                         ((/*_#DEPTH__L1*/ meltfnum[0]) + (1));;
7674
7675                     MELT_CHECK_SIGNAL();
7676                     ;
7677                     MELT_LOCATION("warmelt-outobj.melt:3688:/ msend");
7678                     /*msend*/
7679                     {
7680                         union meltparam_un argtab[3];
7681                         memset(&argtab, 0, sizeof(argtab));
7682                         /*^ojbmsend.arg*/
7683                         argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2];
7684                         /*^ojbmsend.arg*/
7685                         argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
7686                         /*^ojbmsend.arg*/
7687                         argtab[2].meltbp_long = /*_#plI__L8*/ meltfnum[5];
7688                         /*_.OUTPUT_C_CODE__V19*/
7689                         meltfptr[18] = meltgc_send((melt_ptr_t)(/*_.CTHEN__V11*/ meltfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[3])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
7690                     }
7691                     ;
7692
7693                     {
7694                         MELT_LOCATION("warmelt-outobj.melt:3689:/ locexp");
7695                         /*add2sbuf_strconst*/
7696                         meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( ";"));
7697                     }
7698                     ;
7699
7700                     {
7701                         MELT_LOCATION("warmelt-outobj.melt:3690:/ locexp");
7702                         meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#DEPTH__L1*/ meltfnum[0]), 0);
7703                     }
7704                     ;
7705                     MELT_LOCATION("warmelt-outobj.melt:3686:/ quasiblock");
7706
7707
7708                     /*epilog*/
7709
7710                     /*^clear*/
7711                     /*clear*/ /*_.OUTPUT_LOCATION__V18*/
7712                     meltfptr[17] = 0 ;
7713                     /*^clear*/
7714                     /*clear*/ /*_#plI__L8*/
7715                     meltfnum[5] = 0 ;
7716                     /*^clear*/
7717                     /*clear*/ /*_.OUTPUT_C_CODE__V19*/
7718                     meltfptr[18] = 0 ;
7719                 }
7720                 ;
7721             } /*noelse*/
7722         ;
7723
7724         MELT_CHECK_SIGNAL();
7725         ;
7726
7727         MELT_CHECK_SIGNAL();
7728         ;
7729         MELT_LOCATION("warmelt-outobj.melt:3692:/ cond");
7730         /*cond*/
7731         if (/*_.CELSE__V12*/ meltfptr[11]) /*then*/
7732             {
7733                 /*^cond.then*/
7734                 /*^block*/
7735                 /*anyblock*/
7736                 {
7737
7738                     /*_#IS_A__L10*/ meltfnum[5] =
7739                         melt_is_instance_of((melt_ptr_t)(/*_.CELSE__V12*/ meltfptr[11]), (melt_ptr_t)((/*!CLASS_OBJPUREVALUE*/ meltfrout->tabval[4])));;
7740                     /*^compute*/
7741                     /*_#NOT__L11*/
7742                     meltfnum[10] =
7743                         (!(/*_#IS_A__L10*/ meltfnum[5]));;
7744                     /*^compute*/
7745                     /*_#_IF___L9*/
7746                     meltfnum[6] = /*_#NOT__L11*/ meltfnum[10];;
7747                     /*epilog*/
7748
7749                     MELT_LOCATION("warmelt-outobj.melt:3692:/ clear");
7750                     /*clear*/ /*_#IS_A__L10*/
7751                     meltfnum[5] = 0 ;
7752                     /*^clear*/
7753                     /*clear*/ /*_#NOT__L11*/
7754                     meltfnum[10] = 0 ;
7755                 }
7756                 ;
7757             }
7758         else    /*^cond.else*/
7759             {
7760
7761                 /*_#_IF___L9*/ meltfnum[6] = 0;;
7762             }
7763         ;
7764         MELT_LOCATION("warmelt-outobj.melt:3692:/ cond");
7765         /*cond*/
7766         if (/*_#_IF___L9*/ meltfnum[6]) /*then*/
7767             {
7768                 /*^cond.then*/
7769                 /*^block*/
7770                 /*anyblock*/
7771                 {
7772
7773
7774                     {
7775                         MELT_LOCATION("warmelt-outobj.melt:3694:/ locexp");
7776                         /*add2sbuf_strconst*/
7777                         meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "} else {"));
7778                     }
7779                     ;
7780
7781                     MELT_CHECK_SIGNAL();
7782                     ;
7783                     MELT_LOCATION("warmelt-outobj.melt:3695:/ apply");
7784                     /*apply*/
7785                     {
7786                         union meltparam_un argtab[3];
7787                         memset(&argtab, 0, sizeof(argtab));
7788                         /*^apply.arg*/
7789                         argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
7790                         /*^apply.arg*/
7791                         argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0];
7792                         /*^apply.arg*/
7793                         argtab[2].meltbp_cstring =  "cond.else";
7794                         /*_.OUTPUT_LOCATION__V20*/
7795                         meltfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.CLOC__V9*/ meltfptr[5]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
7796                     }
7797                     ;
7798                     /*_#plI__L12*/
7799                     meltfnum[5] =
7800                         ((/*_#DEPTH__L1*/ meltfnum[0]) + (1));;
7801
7802                     {
7803                         MELT_LOCATION("warmelt-outobj.melt:3696:/ locexp");
7804                         meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#plI__L12*/ meltfnum[5]), 0);
7805                     }
7806                     ;
7807                     /*_#plI__L13*/
7808                     meltfnum[10] =
7809                         ((/*_#DEPTH__L1*/ meltfnum[0]) + (1));;
7810
7811                     MELT_CHECK_SIGNAL();
7812                     ;
7813                     MELT_LOCATION("warmelt-outobj.melt:3697:/ msend");
7814                     /*msend*/
7815                     {
7816                         union meltparam_un argtab[3];
7817                         memset(&argtab, 0, sizeof(argtab));
7818                         /*^ojbmsend.arg*/
7819                         argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2];
7820                         /*^ojbmsend.arg*/
7821                         argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
7822                         /*^ojbmsend.arg*/
7823                         argtab[2].meltbp_long = /*_#plI__L13*/ meltfnum[10];
7824                         /*_.OUTPUT_C_CODE__V21*/
7825                         meltfptr[18] = meltgc_send((melt_ptr_t)(/*_.CELSE__V12*/ meltfptr[11]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[3])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
7826                     }
7827                     ;
7828
7829                     {
7830                         MELT_LOCATION("warmelt-outobj.melt:3698:/ locexp");
7831                         /*add2sbuf_strconst*/
7832                         meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( ";"));
7833                     }
7834                     ;
7835                     /*_#plI__L14*/
7836                     meltfnum[13] =
7837                         ((/*_#DEPTH__L1*/ meltfnum[0]) + (1));;
7838
7839                     {
7840                         MELT_LOCATION("warmelt-outobj.melt:3699:/ locexp");
7841                         meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#plI__L14*/ meltfnum[13]), 0);
7842                     }
7843                     ;
7844
7845                     {
7846                         MELT_LOCATION("warmelt-outobj.melt:3700:/ locexp");
7847                         /*add2sbuf_strconst*/
7848                         meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "}"));
7849                     }
7850                     ;
7851                     MELT_LOCATION("warmelt-outobj.melt:3693:/ quasiblock");
7852
7853
7854                     /*epilog*/
7855
7856                     MELT_LOCATION("warmelt-outobj.melt:3692:/ clear");
7857                     /*clear*/ /*_.OUTPUT_LOCATION__V20*/
7858                     meltfptr[17] = 0 ;
7859                     /*^clear*/
7860                     /*clear*/ /*_#plI__L12*/
7861                     meltfnum[5] = 0 ;
7862                     /*^clear*/
7863                     /*clear*/ /*_#plI__L13*/
7864                     meltfnum[10] = 0 ;
7865                     /*^clear*/
7866                     /*clear*/ /*_.OUTPUT_C_CODE__V21*/
7867                     meltfptr[18] = 0 ;
7868                     /*^clear*/
7869                     /*clear*/ /*_#plI__L14*/
7870                     meltfnum[13] = 0 ;
7871                 }
7872                 ;
7873             }
7874         else    /*^cond.else*/
7875             {
7876
7877                 /*^block*/
7878                 /*anyblock*/
7879                 {
7880
7881
7882                     {
7883                         MELT_LOCATION("warmelt-outobj.melt:3702:/ locexp");
7884                         /*add2sbuf_strconst*/
7885                         meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "} /*noelse*/"));
7886                     }
7887                     ;
7888                     /*epilog*/
7889                 }
7890                 ;
7891             }
7892         ;
7893
7894         {
7895             MELT_LOCATION("warmelt-outobj.melt:3704:/ locexp");
7896             meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#DEPTH__L1*/ meltfnum[0]), 0);
7897         }
7898         ;
7899
7900 #if MELT_HAVE_DEBUG
7901         MELT_LOCATION("warmelt-outobj.melt:3705:/ cppif.then");
7902         /*^block*/
7903         /*anyblock*/
7904         {
7905
7906
7907             MELT_CHECK_SIGNAL();
7908             ;
7909             /*_#STRBUF_USEDLENGTH__L15*/
7910             meltfnum[5] =
7911                 melt_strbuf_usedlength((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]));;
7912             MELT_LOCATION("warmelt-outobj.melt:3706:/ cond");
7913             /*cond*/
7914             if (
7915                 /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[5])),
7916                                               (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[6])))
7917             ) /*then*/
7918                 {
7919                     /*^cond.then*/
7920                     /*^getslot*/
7921                     {
7922                         melt_ptr_t slot=NULL, obj=NULL;
7923                         obj = (melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[5])) /*=obj*/;
7924                         melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE");
7925                         /*_.REFERENCED_VALUE__V23*/
7926                         meltfptr[18] = slot;
7927                     };
7928                     ;
7929                 }
7930             else    /*^cond.else*/
7931                 {
7932
7933                     /*_.REFERENCED_VALUE__V23*/ meltfptr[18] =  /*reallynil*/ NULL ;;
7934                 }
7935             ;
7936             /*^compute*/
7937             /*_#GET_INT__L16*/
7938             meltfnum[10] =
7939                 (melt_get_int((melt_ptr_t)(/*_.REFERENCED_VALUE__V23*/ meltfptr[18])));;
7940             /*^compute*/
7941             /*_#ltI__L17*/
7942             meltfnum[13] =
7943                 ((/*_#STRBUF_USEDLENGTH__L15*/ meltfnum[5]) < (/*_#GET_INT__L16*/ meltfnum[10]));;
7944             MELT_LOCATION("warmelt-outobj.melt:3705:/ cond");
7945             /*cond*/
7946             if (/*_#ltI__L17*/ meltfnum[13]) /*then*/
7947                 {
7948                     /*^cond.then*/
7949                     /*_._IFELSE___V24*/ meltfptr[23] = (/*nil*/NULL);;
7950                 }
7951             else
7952                 {
7953                     MELT_LOCATION("warmelt-outobj.melt:3705:/ cond.else");
7954
7955                     /*^block*/
7956                     /*anyblock*/
7957                     {
7958
7959
7960                         MELT_CHECK_SIGNAL();
7961                         ;
7962                         /*^apply*/
7963                         /*apply*/
7964                         {
7965                             union meltparam_un argtab[4];
7966                             memset(&argtab, 0, sizeof(argtab));
7967                             /*^apply.arg*/
7968                             argtab[0].meltbp_cstring =  "check limited implbuf";
7969                             /*^apply.arg*/
7970                             argtab[1].meltbp_cstring =  "warmelt-outobj.melt";
7971                             /*^apply.arg*/
7972                             argtab[2].meltbp_long = 3705;
7973                             /*^apply.arg*/
7974                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
7975                             /*_.MELT_ASSERT_FAILURE_FUN__V25*/
7976                             meltfptr[24] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
7977                         }
7978                         ;
7979                         /*_._IFELSE___V24*/
7980                         meltfptr[23] = /*_.MELT_ASSERT_FAILURE_FUN__V25*/ meltfptr[24];;
7981                         /*epilog*/
7982
7983                         MELT_LOCATION("warmelt-outobj.melt:3705:/ clear");
7984                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V25*/
7985                         meltfptr[24] = 0 ;
7986                     }
7987                     ;
7988                 }
7989             ;
7990             /*_.IFCPP___V22*/
7991             meltfptr[17] = /*_._IFELSE___V24*/ meltfptr[23];;
7992             /*epilog*/
7993
7994             MELT_LOCATION("warmelt-outobj.melt:3705:/ clear");
7995             /*clear*/ /*_#STRBUF_USEDLENGTH__L15*/
7996             meltfnum[5] = 0 ;
7997             /*^clear*/
7998             /*clear*/ /*_.REFERENCED_VALUE__V23*/
7999             meltfptr[18] = 0 ;
8000             /*^clear*/
8001             /*clear*/ /*_#GET_INT__L16*/
8002             meltfnum[10] = 0 ;
8003             /*^clear*/
8004             /*clear*/ /*_#ltI__L17*/
8005             meltfnum[13] = 0 ;
8006             /*^clear*/
8007             /*clear*/ /*_._IFELSE___V24*/
8008             meltfptr[23] = 0 ;
8009         }
8010
8011 #else /*MELT_HAVE_DEBUG*/
8012         /*^cppif.else*/
8013         /*_.IFCPP___V22*/ meltfptr[17] = (/*nil*/NULL);
8014 #endif /*MELT_HAVE_DEBUG*/
8015         ;
8016         /*^compute*/
8017         /*_.LET___V8*/
8018         meltfptr[6] = /*_.IFCPP___V22*/ meltfptr[17];;
8019
8020         MELT_LOCATION("warmelt-outobj.melt:3675:/ clear");
8021         /*clear*/ /*_.CLOC__V9*/
8022         meltfptr[5] = 0 ;
8023         /*^clear*/
8024         /*clear*/ /*_.CTEST__V10*/
8025         meltfptr[9] = 0 ;
8026         /*^clear*/
8027         /*clear*/ /*_.CTHEN__V11*/
8028         meltfptr[10] = 0 ;
8029         /*^clear*/
8030         /*clear*/ /*_.CELSE__V12*/
8031         meltfptr[11] = 0 ;
8032         /*^clear*/
8033         /*clear*/ /*_.IFCPP___V13*/
8034         meltfptr[12] = 0 ;
8035         /*^clear*/
8036         /*clear*/ /*_.OUTPUT_LOCATION__V16*/
8037         meltfptr[14] = 0 ;
8038         /*^clear*/
8039         /*clear*/ /*_#plI__L4*/
8040         meltfnum[1] = 0 ;
8041         /*^clear*/
8042         /*clear*/ /*_.OUTPUT_C_CODE__V17*/
8043         meltfptr[13] = 0 ;
8044         /*^clear*/
8045         /*clear*/ /*_#_IF___L5*/
8046         meltfnum[4] = 0 ;
8047         /*^clear*/
8048         /*clear*/ /*_#_IF___L9*/
8049         meltfnum[6] = 0 ;
8050         /*^clear*/
8051         /*clear*/ /*_.IFCPP___V22*/
8052         meltfptr[17] = 0 ;
8053
8054         MELT_CHECK_SIGNAL();
8055         ;
8056         MELT_LOCATION("warmelt-outobj.melt:3673:/ quasiblock");
8057
8058
8059         /*_._RETVAL___V1*/
8060         meltfptr[0] = /*_.LET___V8*/ meltfptr[6];;
8061
8062         {
8063             MELT_LOCATION("warmelt-outobj.melt:3673:/ locexp");
8064             /*ochecknores compilobj_nrep_return*/
8065 #if MELT_HAVE_DEBUG
8066             if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
8067                 melt_warn_for_no_expected_secondary_results();
8068             /* we warned when secondary results are expected but not returned. */
8069 #endif /*MELT_HAVE_DEBUG*/
8070             ;
8071         }
8072         ;
8073         /*^finalreturn*/
8074         ;
8075         /*finalret*/
8076         goto meltlabend_rout ;
8077         /*epilog*/
8078
8079         /*^clear*/
8080         /*clear*/ /*_.IFCPP___V5*/
8081         meltfptr[4] = 0 ;
8082         /*^clear*/
8083         /*clear*/ /*_.LET___V8*/
8084         meltfptr[6] = 0 ;
8085     }
8086
8087     ;
8088     goto meltlabend_rout;
8089 meltlabend_rout:
8090     melt_trace_end("OUTPUCOD_OBJCOND", meltcallcount);
8091     melt_blocklevel_signals = current_blocklevel_signals_meltrout_81_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOND_melt;
8092     return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]);
8093 #undef meltcallcount
8094 #undef meltfram__
8095 #undef MELTFRAM_NBVARNUM
8096 #undef MELTFRAM_NBVARPTR
8097 } /*end meltrout_81_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOND*/
8098
8099
8100
8101
8102
8103
8104 melt_ptr_t MELT_MODULE_VISIBILITY
8105 meltrout_82_WARMELTmiOUTOBJ_OUTPUCOD_OBJCPPIF(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_,
8106         const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_)
8107 {
8108     long current_blocklevel_signals_meltrout_82_WARMELTmiOUTOBJ_OUTPUCOD_OBJCPPIF_melt =  melt_blocklevel_signals;
8109
8110 #if MELT_HAVE_DEBUG
8111     static long melt_call_counter__;
8112     long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__;
8113 #undef meltcallcount
8114 #define meltcallcount melt_thiscallcounter__
8115 #else
8116 #undef meltcallcount
8117 #define meltcallcount 0L
8118 #endif
8119 //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538
8120
8121     /* start of frame for routine meltrout_82_WARMELTmiOUTOBJ_OUTPUCOD_OBJCPPIF fromline 1752 */
8122
8123     /** start of frame for meltrout_82_WARMELTmiOUTOBJ_OUTPUCOD_OBJCPPIF of CLASS_PROCROUTINEOBJ from 1555**/
8124
8125     /*curframdeclclassy*/ class MeltFrame_meltrout_82_WARMELTmiOUTOBJ_OUTPUCOD_OBJCPPIF// fromline 1568
8126         : public Melt_CallFrameWithValues<24>
8127     {
8128     public: /* fromline 1572*/
8129         long mcfr_varnum[7];
8130         /*classy others*/
8131         long _meltsparel;
8132         void melt_mark_stuff (void)
8133         {
8134         } /*end melt_mark_stuff*/
8135         virtual void melt_mark_ggc_data (void)
8136         {
8137             melt_mark_values ();
8138             melt_mark_stuff ();
8139         }; /*end melt_mark_ggc_data*/
8140         MeltFrame_meltrout_82_WARMELTmiOUTOBJ_OUTPUCOD_OBJCPPIF(meltclosure_ptr_t clos) //the closure constructor fromline 1630
8141             : Melt_CallFrameWithValues<24> (
8142 #if ENABLE_CHECKING /*fromline 1634*/
8143                 __FILE__, __LINE__,
8144 #endif /* ENABLE_CHECKING fromline 1638*/
8145                 sizeof(MeltFrame_meltrout_82_WARMELTmiOUTOBJ_OUTPUCOD_OBJCPPIF), clos) {};
8146         MeltFrame_meltrout_82_WARMELTmiOUTOBJ_OUTPUCOD_OBJCPPIF() //the constructor fromline 1642
8147             : Melt_CallFrameWithValues<24> (
8148 #if ENABLE_CHECKING /*fromline 1646*/
8149                 __FILE__, __LINE__,
8150 #endif /* ENABLE_CHECKING fromline 1650*/
8151                 sizeof(MeltFrame_meltrout_82_WARMELTmiOUTOBJ_OUTPUCOD_OBJCPPIF)) {};
8152 #if ENABLE_CHECKING /*fromline 1654*/
8153         MeltFrame_meltrout_82_WARMELTmiOUTOBJ_OUTPUCOD_OBJCPPIF(const char*fil, int lin) //the constructor fromline 1656
8154             : Melt_CallFrameWithValues<24> (fil,lin, sizeof(MeltFrame_meltrout_82_WARMELTmiOUTOBJ_OUTPUCOD_OBJCPPIF)) {};
8155         MeltFrame_meltrout_82_WARMELTmiOUTOBJ_OUTPUCOD_OBJCPPIF(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661
8156             : Melt_CallFrameWithValues<24> (fil,lin, sizeof(MeltFrame_meltrout_82_WARMELTmiOUTOBJ_OUTPUCOD_OBJCPPIF), clos) {};
8157 #endif /* ENABLE_CHECKING fromline 1666*/
8158
8159     }; // end  class MeltFrame_meltrout_82_WARMELTmiOUTOBJ_OUTPUCOD_OBJCPPIF
8160
8161
8162     /** end of frame for meltrout_82_WARMELTmiOUTOBJ_OUTPUCOD_OBJCPPIF fromline 1697**/
8163
8164     /* end of frame for routine meltrout_82_WARMELTmiOUTOBJ_OUTPUCOD_OBJCPPIF fromline 1756 */
8165
8166     /* classy proc frame meltrout_82_WARMELTmiOUTOBJ_OUTPUCOD_OBJCPPIF */
8167     MeltFrame_meltrout_82_WARMELTmiOUTOBJ_OUTPUCOD_OBJCPPIF
8168     meltfram__ /*declfrastruct fromline 1780*/
8169     /*classyprocarg meltrout_82_WARMELTmiOUTOBJ_OUTPUCOD_OBJCPPIF fromline 1785*/
8170 #if ENABLE_CHECKING
8171     (__FILE__, __LINE__, meltclosp_) /* fromline 1789*/
8172 #else /*ENABLE_CHECKING */
8173     (meltclosp_) /* fromline 1793*/
8174 #endif /*ENABLE_CHECKING */
8175
8176     ;
8177 #define meltframe meltfram__
8178
8179     melt_trace_start("OUTPUCOD_OBJCPPIF", meltcallcount);
8180     /*use arguments*/
8181     (void) meltclosp_;
8182     (void)meltfirstargp_;
8183     (void)meltxargdescr_;
8184     (void)meltxargtab_;
8185     (void)meltxresdescr_;
8186     (void)meltxrestab_;
8187     /*getargs*/
8188
8189     /*getarg#0*/
8190     MELT_LOCATION("warmelt-outobj.melt:3713:/ getarg");
8191     /*_.OPIF__V2*/
8192     meltfptr[1] = (melt_ptr_t) meltfirstargp_;
8193
8194     /*getarg#1*/
8195     /*^getarg*/
8196     if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs;
8197     /*_.DECLBUF__V3*/
8198     meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
8199     gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2])) != NULL);
8200
8201
8202     /*getarg#2*/
8203     /*^getarg*/
8204     if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs;
8205     /*_.IMPLBUF__V4*/
8206     meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL;
8207     gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3])) != NULL);
8208
8209
8210     /*getarg#3*/
8211     /*^getarg*/
8212     if (meltxargdescr_[2] != MELTBPAR_LONG) goto meltlab_endgetargs;
8213     /*_#DEPTH__L1*/
8214     meltfnum[0] = meltxargtab_[2].meltbp_long;
8215     ;
8216     goto meltlab_endgetargs;
8217 meltlab_endgetargs:
8218     ;
8219     /*body*/
8220     /*^block*/
8221     /*anyblock*/
8222     {
8223
8224
8225 #if MELT_HAVE_DEBUG
8226         MELT_LOCATION("warmelt-outobj.melt:3714:/ cppif.then");
8227         /*^block*/
8228         /*anyblock*/
8229         {
8230
8231
8232             MELT_CHECK_SIGNAL();
8233             ;
8234             /*_#IS_A__L2*/
8235             meltfnum[1] =
8236                 melt_is_instance_of((melt_ptr_t)(/*_.OPIF__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_OBJCPPIF*/ meltfrout->tabval[0])));;
8237             MELT_LOCATION("warmelt-outobj.melt:3714:/ cond");
8238             /*cond*/
8239             if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/
8240                 {
8241                     /*^cond.then*/
8242                     /*_._IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);;
8243                 }
8244             else
8245                 {
8246                     MELT_LOCATION("warmelt-outobj.melt:3714:/ cond.else");
8247
8248                     /*^block*/
8249                     /*anyblock*/
8250                     {
8251
8252
8253                         MELT_CHECK_SIGNAL();
8254                         ;
8255                         /*^apply*/
8256                         /*apply*/
8257                         {
8258                             union meltparam_un argtab[4];
8259                             memset(&argtab, 0, sizeof(argtab));
8260                             /*^apply.arg*/
8261                             argtab[0].meltbp_cstring =  "check opif";
8262                             /*^apply.arg*/
8263                             argtab[1].meltbp_cstring =  "warmelt-outobj.melt";
8264                             /*^apply.arg*/
8265                             argtab[2].meltbp_long = 3714;
8266                             /*^apply.arg*/
8267                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OPIF__V2*/ meltfptr[1];
8268                             /*_.MELT_ASSERT_FAILURE_FUN__V7*/
8269                             meltfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
8270                         }
8271                         ;
8272                         /*_._IFELSE___V6*/
8273                         meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6];;
8274                         /*epilog*/
8275
8276                         MELT_LOCATION("warmelt-outobj.melt:3714:/ clear");
8277                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V7*/
8278                         meltfptr[6] = 0 ;
8279                     }
8280                     ;
8281                 }
8282             ;
8283             /*_.IFCPP___V5*/
8284             meltfptr[4] = /*_._IFELSE___V6*/ meltfptr[5];;
8285             /*epilog*/
8286
8287             MELT_LOCATION("warmelt-outobj.melt:3714:/ clear");
8288             /*clear*/ /*_#IS_A__L2*/
8289             meltfnum[1] = 0 ;
8290             /*^clear*/
8291             /*clear*/ /*_._IFELSE___V6*/
8292             meltfptr[5] = 0 ;
8293         }
8294
8295 #else /*MELT_HAVE_DEBUG*/
8296         /*^cppif.else*/
8297         /*_.IFCPP___V5*/ meltfptr[4] = (/*nil*/NULL);
8298 #endif /*MELT_HAVE_DEBUG*/
8299         ;
8300         MELT_LOCATION("warmelt-outobj.melt:3715:/ quasiblock");
8301
8302
8303         /*^getslot*/
8304         {
8305             melt_ptr_t slot=NULL, obj=NULL;
8306             obj = (melt_ptr_t)(/*_.OPIF__V2*/ meltfptr[1]) /*=obj*/;
8307             melt_object_get_field(slot,obj, 0, "OBI_LOC");
8308             /*_.CLOC__V9*/
8309             meltfptr[5] = slot;
8310         };
8311         ;
8312         MELT_LOCATION("warmelt-outobj.melt:3716:/ getslot");
8313         {
8314             melt_ptr_t slot=NULL, obj=NULL;
8315             obj = (melt_ptr_t)(/*_.OPIF__V2*/ meltfptr[1]) /*=obj*/;
8316             melt_object_get_field(slot,obj, 1, "OBIFP_COND");
8317             /*_.CCOND__V10*/
8318             meltfptr[9] = slot;
8319         };
8320         ;
8321         MELT_LOCATION("warmelt-outobj.melt:3717:/ getslot");
8322         {
8323             melt_ptr_t slot=NULL, obj=NULL;
8324             obj = (melt_ptr_t)(/*_.OPIF__V2*/ meltfptr[1]) /*=obj*/;
8325             melt_object_get_field(slot,obj, 2, "OBIFP_THEN");
8326             /*_.CTHEN__V11*/
8327             meltfptr[10] = slot;
8328         };
8329         ;
8330         MELT_LOCATION("warmelt-outobj.melt:3718:/ getslot");
8331         {
8332             melt_ptr_t slot=NULL, obj=NULL;
8333             obj = (melt_ptr_t)(/*_.OPIF__V2*/ meltfptr[1]) /*=obj*/;
8334             melt_object_get_field(slot,obj, 3, "OBIFP_ELSE");
8335             /*_.CELSE__V12*/
8336             meltfptr[11] = slot;
8337         };
8338         ;
8339         /*_#DEPTHP1__L3*/
8340         meltfnum[1] =
8341             ((1) + (/*_#DEPTH__L1*/ meltfnum[0]));;
8342
8343 #if MELT_HAVE_DEBUG
8344         MELT_LOCATION("warmelt-outobj.melt:3721:/ cppif.then");
8345         /*^block*/
8346         /*anyblock*/
8347         {
8348
8349
8350             MELT_CHECK_SIGNAL();
8351             ;
8352             /*_#IS_STRING__L4*/
8353             meltfnum[3] =
8354                 (melt_magic_discr((melt_ptr_t)(/*_.CCOND__V10*/ meltfptr[9])) == MELTOBMAG_STRING);;
8355             MELT_LOCATION("warmelt-outobj.melt:3721:/ cond");
8356             /*cond*/
8357             if (/*_#IS_STRING__L4*/ meltfnum[3]) /*then*/
8358                 {
8359                     /*^cond.then*/
8360                     /*_._IFELSE___V14*/ meltfptr[13] = (/*nil*/NULL);;
8361                 }
8362             else
8363                 {
8364                     MELT_LOCATION("warmelt-outobj.melt:3721:/ cond.else");
8365
8366                     /*^block*/
8367                     /*anyblock*/
8368                     {
8369
8370
8371                         MELT_CHECK_SIGNAL();
8372                         ;
8373                         /*^apply*/
8374                         /*apply*/
8375                         {
8376                             union meltparam_un argtab[4];
8377                             memset(&argtab, 0, sizeof(argtab));
8378                             /*^apply.arg*/
8379                             argtab[0].meltbp_cstring =  "check ccond";
8380                             /*^apply.arg*/
8381                             argtab[1].meltbp_cstring =  "warmelt-outobj.melt";
8382                             /*^apply.arg*/
8383                             argtab[2].meltbp_long = 3721;
8384                             /*^apply.arg*/
8385                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CCOND__V10*/ meltfptr[9];
8386                             /*_.MELT_ASSERT_FAILURE_FUN__V15*/
8387                             meltfptr[14] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
8388                         }
8389                         ;
8390                         /*_._IFELSE___V14*/
8391                         meltfptr[13] = /*_.MELT_ASSERT_FAILURE_FUN__V15*/ meltfptr[14];;
8392                         /*epilog*/
8393
8394                         MELT_LOCATION("warmelt-outobj.melt:3721:/ clear");
8395                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V15*/
8396                         meltfptr[14] = 0 ;
8397                     }
8398                     ;
8399                 }
8400             ;
8401             /*_.IFCPP___V13*/
8402             meltfptr[12] = /*_._IFELSE___V14*/ meltfptr[13];;
8403             /*epilog*/
8404
8405             MELT_LOCATION("warmelt-outobj.melt:3721:/ clear");
8406             /*clear*/ /*_#IS_STRING__L4*/
8407             meltfnum[3] = 0 ;
8408             /*^clear*/
8409             /*clear*/ /*_._IFELSE___V14*/
8410             meltfptr[13] = 0 ;
8411         }
8412
8413 #else /*MELT_HAVE_DEBUG*/
8414         /*^cppif.else*/
8415         /*_.IFCPP___V13*/ meltfptr[12] = (/*nil*/NULL);
8416 #endif /*MELT_HAVE_DEBUG*/
8417         ;
8418
8419         MELT_CHECK_SIGNAL();
8420         ;
8421         MELT_LOCATION("warmelt-outobj.melt:3722:/ apply");
8422         /*apply*/
8423         {
8424             union meltparam_un argtab[3];
8425             memset(&argtab, 0, sizeof(argtab));
8426             /*^apply.arg*/
8427             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
8428             /*^apply.arg*/
8429             argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0];
8430             /*^apply.arg*/
8431             argtab[2].meltbp_cstring =  "cppif";
8432             /*_.OUTPUT_RAW_LOCATION__V16*/
8433             meltfptr[14] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_RAW_LOCATION*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.CLOC__V9*/ meltfptr[5]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
8434         }
8435         ;
8436
8437         {
8438             MELT_LOCATION("warmelt-outobj.melt:3723:/ locexp");
8439             /*add2sbuf_strconst*/
8440             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "#if "));
8441         }
8442         ;
8443
8444         {
8445             MELT_LOCATION("warmelt-outobj.melt:3724:/ locexp");
8446             /*add2sbuf_string*/
8447             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]),
8448                               melt_string_str((melt_ptr_t)(/*_.CCOND__V10*/ meltfptr[9])));
8449         }
8450         ;
8451
8452         {
8453             MELT_LOCATION("warmelt-outobj.melt:3725:/ locexp");
8454             meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#DEPTHP1__L3*/ meltfnum[1]), 0);
8455         }
8456         ;
8457
8458         MELT_CHECK_SIGNAL();
8459         ;
8460         MELT_LOCATION("warmelt-outobj.melt:3726:/ apply");
8461         /*apply*/
8462         {
8463             union meltparam_un argtab[3];
8464             memset(&argtab, 0, sizeof(argtab));
8465             /*^apply.arg*/
8466             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
8467             /*^apply.arg*/
8468             argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0];
8469             /*^apply.arg*/
8470             argtab[2].meltbp_cstring =  "cppif.then";
8471             /*_.OUTPUT_LOCATION__V17*/
8472             meltfptr[13] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.CLOC__V9*/ meltfptr[5]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
8473         }
8474         ;
8475
8476         MELT_CHECK_SIGNAL();
8477         ;
8478         MELT_LOCATION("warmelt-outobj.melt:3727:/ msend");
8479         /*msend*/
8480         {
8481             union meltparam_un argtab[3];
8482             memset(&argtab, 0, sizeof(argtab));
8483             /*^ojbmsend.arg*/
8484             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2];
8485             /*^ojbmsend.arg*/
8486             argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
8487             /*^ojbmsend.arg*/
8488             argtab[2].meltbp_long = /*_#DEPTHP1__L3*/ meltfnum[1];
8489             /*_.OUTPUT_C_CODE__V18*/
8490             meltfptr[17] = meltgc_send((melt_ptr_t)(/*_.CTHEN__V11*/ meltfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[4])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
8491         }
8492         ;
8493
8494         {
8495             MELT_LOCATION("warmelt-outobj.melt:3728:/ locexp");
8496             meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#DEPTHP1__L3*/ meltfnum[1]), 0);
8497         }
8498         ;
8499
8500         {
8501             MELT_LOCATION("warmelt-outobj.melt:3729:/ locexp");
8502             /*add2sbuf_strconst*/
8503             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "#else /*"));
8504         }
8505         ;
8506
8507         {
8508             MELT_LOCATION("warmelt-outobj.melt:3730:/ locexp");
8509             /*add2sbuf_string*/
8510             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]),
8511                               melt_string_str((melt_ptr_t)(/*_.CCOND__V10*/ meltfptr[9])));
8512         }
8513         ;
8514
8515         {
8516             MELT_LOCATION("warmelt-outobj.melt:3731:/ locexp");
8517             /*add2sbuf_strconst*/
8518             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "*/"));
8519         }
8520         ;
8521
8522         {
8523             MELT_LOCATION("warmelt-outobj.melt:3732:/ locexp");
8524             meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#DEPTHP1__L3*/ meltfnum[1]), 0);
8525         }
8526         ;
8527
8528         MELT_CHECK_SIGNAL();
8529         ;
8530         MELT_LOCATION("warmelt-outobj.melt:3733:/ apply");
8531         /*apply*/
8532         {
8533             union meltparam_un argtab[3];
8534             memset(&argtab, 0, sizeof(argtab));
8535             /*^apply.arg*/
8536             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
8537             /*^apply.arg*/
8538             argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0];
8539             /*^apply.arg*/
8540             argtab[2].meltbp_cstring =  "cppif.else";
8541             /*_.OUTPUT_LOCATION__V19*/
8542             meltfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.CLOC__V9*/ meltfptr[5]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
8543         }
8544         ;
8545
8546         MELT_CHECK_SIGNAL();
8547         ;
8548         MELT_LOCATION("warmelt-outobj.melt:3734:/ msend");
8549         /*msend*/
8550         {
8551             union meltparam_un argtab[3];
8552             memset(&argtab, 0, sizeof(argtab));
8553             /*^ojbmsend.arg*/
8554             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2];
8555             /*^ojbmsend.arg*/
8556             argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
8557             /*^ojbmsend.arg*/
8558             argtab[2].meltbp_long = /*_#DEPTHP1__L3*/ meltfnum[1];
8559             /*_.OUTPUT_C_CODE__V20*/
8560             meltfptr[19] = meltgc_send((melt_ptr_t)(/*_.CELSE__V12*/ meltfptr[11]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[4])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
8561         }
8562         ;
8563
8564         {
8565             MELT_LOCATION("warmelt-outobj.melt:3735:/ locexp");
8566             meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#DEPTHP1__L3*/ meltfnum[1]), 0);
8567         }
8568         ;
8569
8570         {
8571             MELT_LOCATION("warmelt-outobj.melt:3736:/ locexp");
8572             /*add2sbuf_strconst*/
8573             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "#endif /*"));
8574         }
8575         ;
8576
8577         {
8578             MELT_LOCATION("warmelt-outobj.melt:3737:/ locexp");
8579             /*add2sbuf_string*/
8580             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]),
8581                               melt_string_str((melt_ptr_t)(/*_.CCOND__V10*/ meltfptr[9])));
8582         }
8583         ;
8584
8585         {
8586             MELT_LOCATION("warmelt-outobj.melt:3738:/ locexp");
8587             /*add2sbuf_strconst*/
8588             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "*/"));
8589         }
8590         ;
8591
8592         {
8593             MELT_LOCATION("warmelt-outobj.melt:3739:/ locexp");
8594             meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#DEPTHP1__L3*/ meltfnum[1]), 0);
8595         }
8596         ;
8597
8598 #if MELT_HAVE_DEBUG
8599         MELT_LOCATION("warmelt-outobj.melt:3740:/ cppif.then");
8600         /*^block*/
8601         /*anyblock*/
8602         {
8603
8604
8605             MELT_CHECK_SIGNAL();
8606             ;
8607             /*_#STRBUF_USEDLENGTH__L5*/
8608             meltfnum[3] =
8609                 melt_strbuf_usedlength((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]));;
8610             MELT_LOCATION("warmelt-outobj.melt:3741:/ cond");
8611             /*cond*/
8612             if (
8613                 /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[5])),
8614                                               (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[6])))
8615             ) /*then*/
8616                 {
8617                     /*^cond.then*/
8618                     /*^getslot*/
8619                     {
8620                         melt_ptr_t slot=NULL, obj=NULL;
8621                         obj = (melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[5])) /*=obj*/;
8622                         melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE");
8623                         /*_.REFERENCED_VALUE__V22*/
8624                         meltfptr[21] = slot;
8625                     };
8626                     ;
8627                 }
8628             else    /*^cond.else*/
8629                 {
8630
8631                     /*_.REFERENCED_VALUE__V22*/ meltfptr[21] =  /*reallynil*/ NULL ;;
8632                 }
8633             ;
8634             /*^compute*/
8635             /*_#GET_INT__L6*/
8636             meltfnum[5] =
8637                 (melt_get_int((melt_ptr_t)(/*_.REFERENCED_VALUE__V22*/ meltfptr[21])));;
8638             /*^compute*/
8639             /*_#ltI__L7*/
8640             meltfnum[6] =
8641                 ((/*_#STRBUF_USEDLENGTH__L5*/ meltfnum[3]) < (/*_#GET_INT__L6*/ meltfnum[5]));;
8642             MELT_LOCATION("warmelt-outobj.melt:3740:/ cond");
8643             /*cond*/
8644             if (/*_#ltI__L7*/ meltfnum[6]) /*then*/
8645                 {
8646                     /*^cond.then*/
8647                     /*_._IFELSE___V23*/ meltfptr[22] = (/*nil*/NULL);;
8648                 }
8649             else
8650                 {
8651                     MELT_LOCATION("warmelt-outobj.melt:3740:/ cond.else");
8652
8653                     /*^block*/
8654                     /*anyblock*/
8655                     {
8656
8657
8658                         MELT_CHECK_SIGNAL();
8659                         ;
8660                         /*^apply*/
8661                         /*apply*/
8662                         {
8663                             union meltparam_un argtab[4];
8664                             memset(&argtab, 0, sizeof(argtab));
8665                             /*^apply.arg*/
8666                             argtab[0].meltbp_cstring =  "check limited implbuf";
8667                             /*^apply.arg*/
8668                             argtab[1].meltbp_cstring =  "warmelt-outobj.melt";
8669                             /*^apply.arg*/
8670                             argtab[2].meltbp_long = 3740;
8671                             /*^apply.arg*/
8672                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
8673                             /*_.MELT_ASSERT_FAILURE_FUN__V24*/
8674                             meltfptr[23] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
8675                         }
8676                         ;
8677                         /*_._IFELSE___V23*/
8678                         meltfptr[22] = /*_.MELT_ASSERT_FAILURE_FUN__V24*/ meltfptr[23];;
8679                         /*epilog*/
8680
8681                         MELT_LOCATION("warmelt-outobj.melt:3740:/ clear");
8682                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V24*/
8683                         meltfptr[23] = 0 ;
8684                     }
8685                     ;
8686                 }
8687             ;
8688             /*_.IFCPP___V21*/
8689             meltfptr[20] = /*_._IFELSE___V23*/ meltfptr[22];;
8690             /*epilog*/
8691
8692             MELT_LOCATION("warmelt-outobj.melt:3740:/ clear");
8693             /*clear*/ /*_#STRBUF_USEDLENGTH__L5*/
8694             meltfnum[3] = 0 ;
8695             /*^clear*/
8696             /*clear*/ /*_.REFERENCED_VALUE__V22*/
8697             meltfptr[21] = 0 ;
8698             /*^clear*/
8699             /*clear*/ /*_#GET_INT__L6*/
8700             meltfnum[5] = 0 ;
8701             /*^clear*/
8702             /*clear*/ /*_#ltI__L7*/
8703             meltfnum[6] = 0 ;
8704             /*^clear*/
8705             /*clear*/ /*_._IFELSE___V23*/
8706             meltfptr[22] = 0 ;
8707         }
8708
8709 #else /*MELT_HAVE_DEBUG*/
8710         /*^cppif.else*/
8711         /*_.IFCPP___V21*/ meltfptr[20] = (/*nil*/NULL);
8712 #endif /*MELT_HAVE_DEBUG*/
8713         ;
8714         /*^compute*/
8715         /*_.LET___V8*/
8716         meltfptr[6] = /*_.IFCPP___V21*/ meltfptr[20];;
8717
8718         MELT_LOCATION("warmelt-outobj.melt:3715:/ clear");
8719         /*clear*/ /*_.CLOC__V9*/
8720         meltfptr[5] = 0 ;
8721         /*^clear*/
8722         /*clear*/ /*_.CCOND__V10*/
8723         meltfptr[9] = 0 ;
8724         /*^clear*/
8725         /*clear*/ /*_.CTHEN__V11*/
8726         meltfptr[10] = 0 ;
8727         /*^clear*/
8728         /*clear*/ /*_.CELSE__V12*/
8729         meltfptr[11] = 0 ;
8730         /*^clear*/
8731         /*clear*/ /*_#DEPTHP1__L3*/
8732         meltfnum[1] = 0 ;
8733         /*^clear*/
8734         /*clear*/ /*_.IFCPP___V13*/
8735         meltfptr[12] = 0 ;
8736         /*^clear*/
8737         /*clear*/ /*_.OUTPUT_RAW_LOCATION__V16*/
8738         meltfptr[14] = 0 ;
8739         /*^clear*/
8740         /*clear*/ /*_.OUTPUT_LOCATION__V17*/
8741         meltfptr[13] = 0 ;
8742         /*^clear*/
8743         /*clear*/ /*_.OUTPUT_C_CODE__V18*/
8744         meltfptr[17] = 0 ;
8745         /*^clear*/
8746         /*clear*/ /*_.OUTPUT_LOCATION__V19*/
8747         meltfptr[18] = 0 ;
8748         /*^clear*/
8749         /*clear*/ /*_.OUTPUT_C_CODE__V20*/
8750         meltfptr[19] = 0 ;
8751         /*^clear*/
8752         /*clear*/ /*_.IFCPP___V21*/
8753         meltfptr[20] = 0 ;
8754
8755         MELT_CHECK_SIGNAL();
8756         ;
8757         MELT_LOCATION("warmelt-outobj.melt:3713:/ quasiblock");
8758
8759
8760         /*_._RETVAL___V1*/
8761         meltfptr[0] = /*_.LET___V8*/ meltfptr[6];;
8762
8763         {
8764             MELT_LOCATION("warmelt-outobj.melt:3713:/ locexp");
8765             /*ochecknores compilobj_nrep_return*/
8766 #if MELT_HAVE_DEBUG
8767             if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
8768                 melt_warn_for_no_expected_secondary_results();
8769             /* we warned when secondary results are expected but not returned. */
8770 #endif /*MELT_HAVE_DEBUG*/
8771             ;
8772         }
8773         ;
8774         /*^finalreturn*/
8775         ;
8776         /*finalret*/
8777         goto meltlabend_rout ;
8778         /*epilog*/
8779
8780         /*^clear*/
8781         /*clear*/ /*_.IFCPP___V5*/
8782         meltfptr[4] = 0 ;
8783         /*^clear*/
8784         /*clear*/ /*_.LET___V8*/
8785         meltfptr[6] = 0 ;
8786     }
8787
8788     ;
8789     goto meltlabend_rout;
8790 meltlabend_rout:
8791     melt_trace_end("OUTPUCOD_OBJCPPIF", meltcallcount);
8792     melt_blocklevel_signals = current_blocklevel_signals_meltrout_82_WARMELTmiOUTOBJ_OUTPUCOD_OBJCPPIF_melt;
8793     return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]);
8794 #undef meltcallcount
8795 #undef meltfram__
8796 #undef MELTFRAM_NBVARNUM
8797 #undef MELTFRAM_NBVARPTR
8798 } /*end meltrout_82_WARMELTmiOUTOBJ_OUTPUCOD_OBJCPPIF*/
8799
8800
8801
8802
8803
8804
8805 melt_ptr_t MELT_MODULE_VISIBILITY
8806 meltrout_83_WARMELTmiOUTOBJ_OUTPUCOD_OBJINTERNSYMBOL(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_,
8807         const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_)
8808 {
8809     long current_blocklevel_signals_meltrout_83_WARMELTmiOUTOBJ_OUTPUCOD_OBJINTERNSYMBOL_melt =  melt_blocklevel_signals;
8810
8811 #if MELT_HAVE_DEBUG
8812     static long melt_call_counter__;
8813     long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__;
8814 #undef meltcallcount
8815 #define meltcallcount melt_thiscallcounter__
8816 #else
8817 #undef meltcallcount
8818 #define meltcallcount 0L
8819 #endif
8820 //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538
8821
8822     /* start of frame for routine meltrout_83_WARMELTmiOUTOBJ_OUTPUCOD_OBJINTERNSYMBOL fromline 1752 */
8823
8824     /** start of frame for meltrout_83_WARMELTmiOUTOBJ_OUTPUCOD_OBJINTERNSYMBOL of CLASS_PROCROUTINEOBJ from 1555**/
8825
8826     /*curframdeclclassy*/ class MeltFrame_meltrout_83_WARMELTmiOUTOBJ_OUTPUCOD_OBJINTERNSYMBOL// fromline 1568
8827         : public Melt_CallFrameWithValues<27>
8828     {
8829     public: /* fromline 1572*/
8830         long mcfr_varnum[7];
8831         /*classy others*/
8832         long _meltsparel;
8833         void melt_mark_stuff (void)
8834         {
8835         } /*end melt_mark_stuff*/
8836         virtual void melt_mark_ggc_data (void)
8837         {
8838             melt_mark_values ();
8839             melt_mark_stuff ();
8840         }; /*end melt_mark_ggc_data*/
8841         MeltFrame_meltrout_83_WARMELTmiOUTOBJ_OUTPUCOD_OBJINTERNSYMBOL(meltclosure_ptr_t clos) //the closure constructor fromline 1630
8842             : Melt_CallFrameWithValues<27> (
8843 #if ENABLE_CHECKING /*fromline 1634*/
8844                 __FILE__, __LINE__,
8845 #endif /* ENABLE_CHECKING fromline 1638*/
8846                 sizeof(MeltFrame_meltrout_83_WARMELTmiOUTOBJ_OUTPUCOD_OBJINTERNSYMBOL), clos) {};
8847         MeltFrame_meltrout_83_WARMELTmiOUTOBJ_OUTPUCOD_OBJINTERNSYMBOL() //the constructor fromline 1642
8848             : Melt_CallFrameWithValues<27> (
8849 #if ENABLE_CHECKING /*fromline 1646*/
8850                 __FILE__, __LINE__,
8851 #endif /* ENABLE_CHECKING fromline 1650*/
8852                 sizeof(MeltFrame_meltrout_83_WARMELTmiOUTOBJ_OUTPUCOD_OBJINTERNSYMBOL)) {};
8853 #if ENABLE_CHECKING /*fromline 1654*/
8854         MeltFrame_meltrout_83_WARMELTmiOUTOBJ_OUTPUCOD_OBJINTERNSYMBOL(const char*fil, int lin) //the constructor fromline 1656
8855             : Melt_CallFrameWithValues<27> (fil,lin, sizeof(MeltFrame_meltrout_83_WARMELTmiOUTOBJ_OUTPUCOD_OBJINTERNSYMBOL)) {};
8856         MeltFrame_meltrout_83_WARMELTmiOUTOBJ_OUTPUCOD_OBJINTERNSYMBOL(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661
8857             : Melt_CallFrameWithValues<27> (fil,lin, sizeof(MeltFrame_meltrout_83_WARMELTmiOUTOBJ_OUTPUCOD_OBJINTERNSYMBOL), clos) {};
8858 #endif /* ENABLE_CHECKING fromline 1666*/
8859
8860     }; // end  class MeltFrame_meltrout_83_WARMELTmiOUTOBJ_OUTPUCOD_OBJINTERNSYMBOL
8861
8862
8863     /** end of frame for meltrout_83_WARMELTmiOUTOBJ_OUTPUCOD_OBJINTERNSYMBOL fromline 1697**/
8864
8865     /* end of frame for routine meltrout_83_WARMELTmiOUTOBJ_OUTPUCOD_OBJINTERNSYMBOL fromline 1756 */
8866
8867     /* classy proc frame meltrout_83_WARMELTmiOUTOBJ_OUTPUCOD_OBJINTERNSYMBOL */
8868     MeltFrame_meltrout_83_WARMELTmiOUTOBJ_OUTPUCOD_OBJINTERNSYMBOL
8869     meltfram__ /*declfrastruct fromline 1780*/
8870     /*classyprocarg meltrout_83_WARMELTmiOUTOBJ_OUTPUCOD_OBJINTERNSYMBOL fromline 1785*/
8871 #if ENABLE_CHECKING
8872     (__FILE__, __LINE__, meltclosp_) /* fromline 1789*/
8873 #else /*ENABLE_CHECKING */
8874     (meltclosp_) /* fromline 1793*/
8875 #endif /*ENABLE_CHECKING */
8876
8877     ;
8878 #define meltframe meltfram__
8879
8880     melt_trace_start("OUTPUCOD_OBJINTERNSYMBOL", meltcallcount);
8881     /*use arguments*/
8882     (void) meltclosp_;
8883     (void)meltfirstargp_;
8884     (void)meltxargdescr_;
8885     (void)meltxargtab_;
8886     (void)meltxresdescr_;
8887     (void)meltxrestab_;
8888     /*getargs*/
8889
8890     /*getarg#0*/
8891     MELT_LOCATION("warmelt-outobj.melt:3746:/ getarg");
8892     /*_.OISY__V2*/
8893     meltfptr[1] = (melt_ptr_t) meltfirstargp_;
8894
8895     /*getarg#1*/
8896     /*^getarg*/
8897     if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs;
8898     /*_.DECLBUF__V3*/
8899     meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
8900     gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2])) != NULL);
8901
8902
8903     /*getarg#2*/
8904     /*^getarg*/
8905     if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs;
8906     /*_.IMPLBUF__V4*/
8907     meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL;
8908     gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3])) != NULL);
8909
8910
8911     /*getarg#3*/
8912     /*^getarg*/
8913     if (meltxargdescr_[2] != MELTBPAR_LONG) goto meltlab_endgetargs;
8914     /*_#DEPTH__L1*/
8915     meltfnum[0] = meltxargtab_[2].meltbp_long;
8916     ;
8917     goto meltlab_endgetargs;
8918 meltlab_endgetargs:
8919     ;
8920     /*body*/
8921     /*^block*/
8922     /*anyblock*/
8923     {
8924
8925
8926 #if MELT_HAVE_DEBUG
8927         MELT_LOCATION("warmelt-outobj.melt:3747:/ cppif.then");
8928         /*^block*/
8929         /*anyblock*/
8930         {
8931
8932
8933             MELT_CHECK_SIGNAL();
8934             ;
8935             /*_#IS_A__L2*/
8936             meltfnum[1] =
8937                 melt_is_instance_of((melt_ptr_t)(/*_.OISY__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_OBJINTERNSYMBOL*/ meltfrout->tabval[0])));;
8938             MELT_LOCATION("warmelt-outobj.melt:3747:/ cond");
8939             /*cond*/
8940             if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/
8941                 {
8942                     /*^cond.then*/
8943                     /*_._IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);;
8944                 }
8945             else
8946                 {
8947                     MELT_LOCATION("warmelt-outobj.melt:3747:/ cond.else");
8948
8949                     /*^block*/
8950                     /*anyblock*/
8951                     {
8952
8953
8954                         MELT_CHECK_SIGNAL();
8955                         ;
8956                         /*^apply*/
8957                         /*apply*/
8958                         {
8959                             union meltparam_un argtab[3];
8960                             memset(&argtab, 0, sizeof(argtab));
8961                             /*^apply.arg*/
8962                             argtab[0].meltbp_cstring =  "check oisy";
8963                             /*^apply.arg*/
8964                             argtab[1].meltbp_cstring =  "warmelt-outobj.melt";
8965                             /*^apply.arg*/
8966                             argtab[2].meltbp_long = 3747;
8967                             /*_.MELT_ASSERT_FAILURE_FUN__V7*/
8968                             meltfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
8969                         }
8970                         ;
8971                         /*_._IFELSE___V6*/
8972                         meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6];;
8973                         /*epilog*/
8974
8975                         MELT_LOCATION("warmelt-outobj.melt:3747:/ clear");
8976                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V7*/
8977                         meltfptr[6] = 0 ;
8978                     }
8979                     ;
8980                 }
8981             ;
8982             /*_.IFCPP___V5*/
8983             meltfptr[4] = /*_._IFELSE___V6*/ meltfptr[5];;
8984             /*epilog*/
8985
8986             MELT_LOCATION("warmelt-outobj.melt:3747:/ clear");
8987             /*clear*/ /*_#IS_A__L2*/
8988             meltfnum[1] = 0 ;
8989             /*^clear*/
8990             /*clear*/ /*_._IFELSE___V6*/
8991             meltfptr[5] = 0 ;
8992         }
8993
8994 #else /*MELT_HAVE_DEBUG*/
8995         /*^cppif.else*/
8996         /*_.IFCPP___V5*/ meltfptr[4] = (/*nil*/NULL);
8997 #endif /*MELT_HAVE_DEBUG*/
8998         ;
8999         MELT_LOCATION("warmelt-outobj.melt:3748:/ quasiblock");
9000
9001
9002         /*^getslot*/
9003         {
9004             melt_ptr_t slot=NULL, obj=NULL;
9005             obj = (melt_ptr_t)(/*_.OISY__V2*/ meltfptr[1]) /*=obj*/;
9006             melt_object_get_field(slot,obj, 0, "OBI_LOC");
9007             /*_.CLOC__V9*/
9008             meltfptr[5] = slot;
9009         };
9010         ;
9011         MELT_LOCATION("warmelt-outobj.melt:3749:/ getslot");
9012         {
9013             melt_ptr_t slot=NULL, obj=NULL;
9014             obj = (melt_ptr_t)(/*_.OISY__V2*/ meltfptr[1]) /*=obj*/;
9015             melt_object_get_field(slot,obj, 1, "OBINTERN_IOBJ");
9016             /*_.OIOBJ__V10*/
9017             meltfptr[9] = slot;
9018         };
9019         ;
9020         MELT_LOCATION("warmelt-outobj.melt:3750:/ getslot");
9021         {
9022             melt_ptr_t slot=NULL, obj=NULL;
9023             obj = (melt_ptr_t)(/*_.OIOBJ__V10*/ meltfptr[9]) /*=obj*/;
9024             melt_object_get_field(slot,obj, 2, "OIE_DATA");
9025             /*_.OIDAT__V11*/
9026             meltfptr[10] = slot;
9027         };
9028         ;
9029         MELT_LOCATION("warmelt-outobj.melt:3751:/ getslot");
9030         {
9031             melt_ptr_t slot=NULL, obj=NULL;
9032             obj = (melt_ptr_t)(/*_.OIOBJ__V10*/ meltfptr[9]) /*=obj*/;
9033             melt_object_get_field(slot,obj, 4, "OIE_LOCVAR");
9034             /*_.OILOCV__V12*/
9035             meltfptr[11] = slot;
9036         };
9037         ;
9038
9039 #if MELT_HAVE_DEBUG
9040         MELT_LOCATION("warmelt-outobj.melt:3753:/ cppif.then");
9041         /*^block*/
9042         /*anyblock*/
9043         {
9044
9045
9046             MELT_CHECK_SIGNAL();
9047             ;
9048             /*_#IS_A__L3*/
9049             meltfnum[1] =
9050                 melt_is_instance_of((melt_ptr_t)(/*_.OIOBJ__V10*/ meltfptr[9]), (melt_ptr_t)((/*!CLASS_OBJINITOBJECT*/ meltfrout->tabval[2])));;
9051             MELT_LOCATION("warmelt-outobj.melt:3753:/ cond");
9052             /*cond*/
9053             if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/
9054                 {
9055                     /*^cond.then*/
9056                     /*_._IFELSE___V14*/ meltfptr[13] = (/*nil*/NULL);;
9057                 }
9058             else
9059                 {
9060                     MELT_LOCATION("warmelt-outobj.melt:3753:/ cond.else");
9061
9062                     /*^block*/
9063                     /*anyblock*/
9064                     {
9065
9066
9067                         MELT_CHECK_SIGNAL();
9068                         ;
9069                         /*^apply*/
9070                         /*apply*/
9071                         {
9072                             union meltparam_un argtab[4];
9073                             memset(&argtab, 0, sizeof(argtab));
9074                             /*^apply.arg*/
9075                             argtab[0].meltbp_cstring =  "check oiobj";
9076                             /*^apply.arg*/
9077                             argtab[1].meltbp_cstring =  "warmelt-outobj.melt";
9078                             /*^apply.arg*/
9079                             argtab[2].meltbp_long = 3753;
9080                             /*^apply.arg*/
9081                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OIOBJ__V10*/ meltfptr[9];
9082                             /*_.MELT_ASSERT_FAILURE_FUN__V15*/
9083                             meltfptr[14] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
9084                         }
9085                         ;
9086                         /*_._IFELSE___V14*/
9087                         meltfptr[13] = /*_.MELT_ASSERT_FAILURE_FUN__V15*/ meltfptr[14];;
9088                         /*epilog*/
9089
9090                         MELT_LOCATION("warmelt-outobj.melt:3753:/ clear");
9091                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V15*/
9092                         meltfptr[14] = 0 ;
9093                     }
9094                     ;
9095                 }
9096             ;
9097             /*_.IFCPP___V13*/
9098             meltfptr[12] = /*_._IFELSE___V14*/ meltfptr[13];;
9099             /*epilog*/
9100
9101             MELT_LOCATION("warmelt-outobj.melt:3753:/ clear");
9102             /*clear*/ /*_#IS_A__L3*/
9103             meltfnum[1] = 0 ;
9104             /*^clear*/
9105             /*clear*/ /*_._IFELSE___V14*/
9106             meltfptr[13] = 0 ;
9107         }
9108
9109 #else /*MELT_HAVE_DEBUG*/
9110         /*^cppif.else*/
9111         /*_.IFCPP___V13*/ meltfptr[12] = (/*nil*/NULL);
9112 #endif /*MELT_HAVE_DEBUG*/
9113         ;
9114
9115 #if MELT_HAVE_DEBUG
9116         MELT_LOCATION("warmelt-outobj.melt:3754:/ cppif.then");
9117         /*^block*/
9118         /*anyblock*/
9119         {
9120
9121
9122             MELT_CHECK_SIGNAL();
9123             ;
9124             /*_#IS_A__L4*/
9125             meltfnum[1] =
9126                 melt_is_instance_of((melt_ptr_t)(/*_.OIDAT__V11*/ meltfptr[10]), (melt_ptr_t)((/*!CLASS_NREP_DATASYMBOL*/ meltfrout->tabval[3])));;
9127             MELT_LOCATION("warmelt-outobj.melt:3754:/ cond");
9128             /*cond*/
9129             if (/*_#IS_A__L4*/ meltfnum[1]) /*then*/
9130                 {
9131                     /*^cond.then*/
9132                     /*_._IFELSE___V17*/ meltfptr[13] = (/*nil*/NULL);;
9133                 }
9134             else
9135                 {
9136                     MELT_LOCATION("warmelt-outobj.melt:3754:/ cond.else");
9137
9138                     /*^block*/
9139                     /*anyblock*/
9140                     {
9141
9142
9143                         MELT_CHECK_SIGNAL();
9144                         ;
9145                         /*^apply*/
9146                         /*apply*/
9147                         {
9148                             union meltparam_un argtab[4];
9149                             memset(&argtab, 0, sizeof(argtab));
9150                             /*^apply.arg*/
9151                             argtab[0].meltbp_cstring =  "check oidat";
9152                             /*^apply.arg*/
9153                             argtab[1].meltbp_cstring =  "warmelt-outobj.melt";
9154                             /*^apply.arg*/
9155                             argtab[2].meltbp_long = 3754;
9156                             /*^apply.arg*/
9157                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OIDAT__V11*/ meltfptr[10];
9158                             /*_.MELT_ASSERT_FAILURE_FUN__V18*/
9159                             meltfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
9160                         }
9161                         ;
9162                         /*_._IFELSE___V17*/
9163                         meltfptr[13] = /*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17];;
9164                         /*epilog*/
9165
9166                         MELT_LOCATION("warmelt-outobj.melt:3754:/ clear");
9167                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V18*/
9168                         meltfptr[17] = 0 ;
9169                     }
9170                     ;
9171                 }
9172             ;
9173             /*_.IFCPP___V16*/
9174             meltfptr[14] = /*_._IFELSE___V17*/ meltfptr[13];;
9175             /*epilog*/
9176
9177             MELT_LOCATION("warmelt-outobj.melt:3754:/ clear");
9178             /*clear*/ /*_#IS_A__L4*/
9179             meltfnum[1] = 0 ;
9180             /*^clear*/
9181             /*clear*/ /*_._IFELSE___V17*/
9182             meltfptr[13] = 0 ;
9183         }
9184
9185 #else /*MELT_HAVE_DEBUG*/
9186         /*^cppif.else*/
9187         /*_.IFCPP___V16*/ meltfptr[14] = (/*nil*/NULL);
9188 #endif /*MELT_HAVE_DEBUG*/
9189         ;
9190         MELT_LOCATION("warmelt-outobj.melt:3755:/ quasiblock");
9191
9192
9193         /*^getslot*/
9194         {
9195             melt_ptr_t slot=NULL, obj=NULL;
9196             obj = (melt_ptr_t)(/*_.OIDAT__V11*/ meltfptr[10]) /*=obj*/;
9197             melt_object_get_field(slot,obj, 9, "NDSY_NAMESTR");
9198             /*_.NSY__V19*/
9199             meltfptr[17] = slot;
9200         };
9201         ;
9202
9203         MELT_CHECK_SIGNAL();
9204         ;
9205         MELT_LOCATION("warmelt-outobj.melt:3756:/ cond");
9206         /*cond*/
9207         if (/*_.CLOC__V9*/ meltfptr[5]) /*then*/
9208             {
9209                 /*^cond.then*/
9210                 /*_._IFELSE___V20*/ meltfptr[13] = /*_.CLOC__V9*/ meltfptr[5];;
9211             }
9212         else
9213             {
9214                 MELT_LOCATION("warmelt-outobj.melt:3756:/ cond.else");
9215
9216                 /*^block*/
9217                 /*anyblock*/
9218                 {
9219
9220                     /*^getslot*/
9221                     {
9222                         melt_ptr_t slot=NULL, obj=NULL;
9223                         obj = (melt_ptr_t)(/*_.OIDAT__V11*/ meltfptr[10]) /*=obj*/;
9224                         melt_object_get_field(slot,obj, 0, "NREP_LOC");
9225                         /*_.NREP_LOC__V21*/
9226                         meltfptr[20] = slot;
9227                     };
9228                     ;
9229                     /*_._IFELSE___V20*/
9230                     meltfptr[13] = /*_.NREP_LOC__V21*/ meltfptr[20];;
9231                     /*epilog*/
9232
9233                     MELT_LOCATION("warmelt-outobj.melt:3756:/ clear");
9234                     /*clear*/ /*_.NREP_LOC__V21*/
9235                     meltfptr[20] = 0 ;
9236                 }
9237                 ;
9238             }
9239         ;
9240
9241         MELT_CHECK_SIGNAL();
9242         ;
9243         /*^apply*/
9244         /*apply*/
9245         {
9246             union meltparam_un argtab[3];
9247             memset(&argtab, 0, sizeof(argtab));
9248             /*^apply.arg*/
9249             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
9250             /*^apply.arg*/
9251             argtab[1].meltbp_long = 1;
9252             /*^apply.arg*/
9253             argtab[2].meltbp_cstring =  "internsymbol";
9254             /*_.OUTPUT_LOCATION__V22*/
9255             meltfptr[20] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_._IFELSE___V20*/ meltfptr[13]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
9256         }
9257         ;
9258
9259         {
9260             MELT_LOCATION("warmelt-outobj.melt:3757:/ locexp");
9261             /*add2sbuf_strconst*/
9262             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "/*internsym:"));
9263         }
9264         ;
9265
9266         {
9267             MELT_LOCATION("warmelt-outobj.melt:3758:/ locexp");
9268             /*add2sbuf_string*/
9269             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]),
9270                               melt_string_str((melt_ptr_t)(/*_.NSY__V19*/ meltfptr[17])));
9271         }
9272         ;
9273
9274         {
9275             MELT_LOCATION("warmelt-outobj.melt:3759:/ locexp");
9276             /*add2sbuf_strconst*/
9277             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "*/"));
9278         }
9279         ;
9280
9281         {
9282             MELT_LOCATION("warmelt-outobj.melt:3760:/ locexp");
9283             meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#DEPTH__L1*/ meltfnum[0]), 0);
9284         }
9285         ;
9286
9287         {
9288             MELT_LOCATION("warmelt-outobj.melt:3761:/ locexp");
9289             /*add2sbuf_strconst*/
9290             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "(void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)("));
9291         }
9292         ;
9293
9294         MELT_CHECK_SIGNAL();
9295         ;
9296         MELT_LOCATION("warmelt-outobj.melt:3762:/ msend");
9297         /*msend*/
9298         {
9299             union meltparam_un argtab[3];
9300             memset(&argtab, 0, sizeof(argtab));
9301             /*^ojbmsend.arg*/
9302             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2];
9303             /*^ojbmsend.arg*/
9304             argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
9305             /*^ojbmsend.arg*/
9306             argtab[2].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0];
9307             /*_.OUTPUT_C_CODE__V23*/
9308             meltfptr[22] = meltgc_send((melt_ptr_t)(/*_.OILOCV__V12*/ meltfptr[11]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[5])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
9309         }
9310         ;
9311
9312         {
9313             MELT_LOCATION("warmelt-outobj.melt:3763:/ locexp");
9314             /*add2sbuf_strconst*/
9315             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "));"));
9316         }
9317         ;
9318
9319         {
9320             MELT_LOCATION("warmelt-outobj.melt:3764:/ locexp");
9321             meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#DEPTH__L1*/ meltfnum[0]), 0);
9322         }
9323         ;
9324
9325         MELT_LOCATION("warmelt-outobj.melt:3755:/ clear");
9326         /*clear*/ /*_.NSY__V19*/
9327         meltfptr[17] = 0 ;
9328         /*^clear*/
9329         /*clear*/ /*_._IFELSE___V20*/
9330         meltfptr[13] = 0 ;
9331         /*^clear*/
9332         /*clear*/ /*_.OUTPUT_LOCATION__V22*/
9333         meltfptr[20] = 0 ;
9334         /*^clear*/
9335         /*clear*/ /*_.OUTPUT_C_CODE__V23*/
9336         meltfptr[22] = 0 ;
9337
9338 #if MELT_HAVE_DEBUG
9339         MELT_LOCATION("warmelt-outobj.melt:3765:/ cppif.then");
9340         /*^block*/
9341         /*anyblock*/
9342         {
9343
9344
9345             MELT_CHECK_SIGNAL();
9346             ;
9347             /*_#STRBUF_USEDLENGTH__L5*/
9348             meltfnum[1] =
9349                 melt_strbuf_usedlength((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]));;
9350             MELT_LOCATION("warmelt-outobj.melt:3766:/ cond");
9351             /*cond*/
9352             if (
9353                 /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[6])),
9354                                               (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[7])))
9355             ) /*then*/
9356                 {
9357                     /*^cond.then*/
9358                     /*^getslot*/
9359                     {
9360                         melt_ptr_t slot=NULL, obj=NULL;
9361                         obj = (melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[6])) /*=obj*/;
9362                         melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE");
9363                         /*_.REFERENCED_VALUE__V25*/
9364                         meltfptr[13] = slot;
9365                     };
9366                     ;
9367                 }
9368             else    /*^cond.else*/
9369                 {
9370
9371                     /*_.REFERENCED_VALUE__V25*/ meltfptr[13] =  /*reallynil*/ NULL ;;
9372                 }
9373             ;
9374             /*^compute*/
9375             /*_#GET_INT__L6*/
9376             meltfnum[5] =
9377                 (melt_get_int((melt_ptr_t)(/*_.REFERENCED_VALUE__V25*/ meltfptr[13])));;
9378             /*^compute*/
9379             /*_#ltI__L7*/
9380             meltfnum[6] =
9381                 ((/*_#STRBUF_USEDLENGTH__L5*/ meltfnum[1]) < (/*_#GET_INT__L6*/ meltfnum[5]));;
9382             MELT_LOCATION("warmelt-outobj.melt:3765:/ cond");
9383             /*cond*/
9384             if (/*_#ltI__L7*/ meltfnum[6]) /*then*/
9385                 {
9386                     /*^cond.then*/
9387                     /*_._IFELSE___V26*/ meltfptr[20] = (/*nil*/NULL);;
9388                 }
9389             else
9390                 {
9391                     MELT_LOCATION("warmelt-outobj.melt:3765:/ cond.else");
9392
9393                     /*^block*/
9394                     /*anyblock*/
9395                     {
9396
9397
9398                         MELT_CHECK_SIGNAL();
9399                         ;
9400                         /*^apply*/
9401                         /*apply*/
9402                         {
9403                             union meltparam_un argtab[4];
9404                             memset(&argtab, 0, sizeof(argtab));
9405                             /*^apply.arg*/
9406                             argtab[0].meltbp_cstring =  "check limited implbuf";
9407                             /*^apply.arg*/
9408                             argtab[1].meltbp_cstring =  "warmelt-outobj.melt";
9409                             /*^apply.arg*/
9410                             argtab[2].meltbp_long = 3765;
9411                             /*^apply.arg*/
9412                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
9413                             /*_.MELT_ASSERT_FAILURE_FUN__V27*/
9414                             meltfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
9415                         }
9416                         ;
9417                         /*_._IFELSE___V26*/
9418                         meltfptr[20] = /*_.MELT_ASSERT_FAILURE_FUN__V27*/ meltfptr[22];;
9419                         /*epilog*/
9420
9421                         MELT_LOCATION("warmelt-outobj.melt:3765:/ clear");
9422                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V27*/
9423                         meltfptr[22] = 0 ;
9424                     }
9425                     ;
9426                 }
9427             ;
9428             /*_.IFCPP___V24*/
9429             meltfptr[17] = /*_._IFELSE___V26*/ meltfptr[20];;
9430             /*epilog*/
9431
9432             MELT_LOCATION("warmelt-outobj.melt:3765:/ clear");
9433             /*clear*/ /*_#STRBUF_USEDLENGTH__L5*/
9434             meltfnum[1] = 0 ;
9435             /*^clear*/
9436             /*clear*/ /*_.REFERENCED_VALUE__V25*/
9437             meltfptr[13] = 0 ;
9438             /*^clear*/
9439             /*clear*/ /*_#GET_INT__L6*/
9440             meltfnum[5] = 0 ;
9441             /*^clear*/
9442             /*clear*/ /*_#ltI__L7*/
9443             meltfnum[6] = 0 ;
9444             /*^clear*/
9445             /*clear*/ /*_._IFELSE___V26*/
9446             meltfptr[20] = 0 ;
9447         }
9448
9449 #else /*MELT_HAVE_DEBUG*/
9450         /*^cppif.else*/
9451         /*_.IFCPP___V24*/ meltfptr[17] = (/*nil*/NULL);
9452 #endif /*MELT_HAVE_DEBUG*/
9453         ;
9454         /*^compute*/
9455         /*_.LET___V8*/
9456         meltfptr[6] = /*_.IFCPP___V24*/ meltfptr[17];;
9457
9458         MELT_LOCATION("warmelt-outobj.melt:3748:/ clear");
9459         /*clear*/ /*_.CLOC__V9*/
9460         meltfptr[5] = 0 ;
9461         /*^clear*/
9462         /*clear*/ /*_.OIOBJ__V10*/
9463         meltfptr[9] = 0 ;
9464         /*^clear*/
9465         /*clear*/ /*_.OIDAT__V11*/
9466         meltfptr[10] = 0 ;
9467         /*^clear*/
9468         /*clear*/ /*_.OILOCV__V12*/
9469         meltfptr[11] = 0 ;
9470         /*^clear*/
9471         /*clear*/ /*_.IFCPP___V13*/
9472         meltfptr[12] = 0 ;
9473         /*^clear*/
9474         /*clear*/ /*_.IFCPP___V16*/
9475         meltfptr[14] = 0 ;
9476         /*^clear*/
9477         /*clear*/ /*_.IFCPP___V24*/
9478         meltfptr[17] = 0 ;
9479
9480         MELT_CHECK_SIGNAL();
9481         ;
9482         MELT_LOCATION("warmelt-outobj.melt:3746:/ quasiblock");
9483
9484
9485         /*_._RETVAL___V1*/
9486         meltfptr[0] = /*_.LET___V8*/ meltfptr[6];;
9487
9488         {
9489             MELT_LOCATION("warmelt-outobj.melt:3746:/ locexp");
9490             /*ochecknores compilobj_nrep_return*/
9491 #if MELT_HAVE_DEBUG
9492             if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
9493                 melt_warn_for_no_expected_secondary_results();
9494             /* we warned when secondary results are expected but not returned. */
9495 #endif /*MELT_HAVE_DEBUG*/
9496             ;
9497         }
9498         ;
9499         /*^finalreturn*/
9500         ;
9501         /*finalret*/
9502         goto meltlabend_rout ;
9503         /*epilog*/
9504
9505         /*^clear*/
9506         /*clear*/ /*_.IFCPP___V5*/
9507         meltfptr[4] = 0 ;
9508         /*^clear*/
9509         /*clear*/ /*_.LET___V8*/
9510         meltfptr[6] = 0 ;
9511     }
9512
9513     ;
9514     goto meltlabend_rout;
9515 meltlabend_rout:
9516     melt_trace_end("OUTPUCOD_OBJINTERNSYMBOL", meltcallcount);
9517     melt_blocklevel_signals = current_blocklevel_signals_meltrout_83_WARMELTmiOUTOBJ_OUTPUCOD_OBJINTERNSYMBOL_melt;
9518     return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]);
9519 #undef meltcallcount
9520 #undef meltfram__
9521 #undef MELTFRAM_NBVARNUM
9522 #undef MELTFRAM_NBVARPTR
9523 } /*end meltrout_83_WARMELTmiOUTOBJ_OUTPUCOD_OBJINTERNSYMBOL*/
9524
9525
9526
9527
9528
9529
9530 melt_ptr_t MELT_MODULE_VISIBILITY
9531 meltrout_84_WARMELTmiOUTOBJ_OUTPUCOD_OBJINTERNKEYWORD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_,
9532         const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_)
9533 {
9534     long current_blocklevel_signals_meltrout_84_WARMELTmiOUTOBJ_OUTPUCOD_OBJINTERNKEYWORD_melt =  melt_blocklevel_signals;
9535
9536 #if MELT_HAVE_DEBUG
9537     static long melt_call_counter__;
9538     long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__;
9539 #undef meltcallcount
9540 #define meltcallcount melt_thiscallcounter__
9541 #else
9542 #undef meltcallcount
9543 #define meltcallcount 0L
9544 #endif
9545 //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538
9546
9547     /* start of frame for routine meltrout_84_WARMELTmiOUTOBJ_OUTPUCOD_OBJINTERNKEYWORD fromline 1752 */
9548
9549     /** start of frame for meltrout_84_WARMELTmiOUTOBJ_OUTPUCOD_OBJINTERNKEYWORD of CLASS_PROCROUTINEOBJ from 1555**/
9550
9551     /*curframdeclclassy*/ class MeltFrame_meltrout_84_WARMELTmiOUTOBJ_OUTPUCOD_OBJINTERNKEYWORD// fromline 1568
9552         : public Melt_CallFrameWithValues<24>
9553     {
9554     public: /* fromline 1572*/
9555         long mcfr_varnum[6];
9556         /*classy others*/
9557         long _meltsparel;
9558         void melt_mark_stuff (void)
9559         {
9560         } /*end melt_mark_stuff*/
9561         virtual void melt_mark_ggc_data (void)
9562         {
9563             melt_mark_values ();
9564             melt_mark_stuff ();
9565         }; /*end melt_mark_ggc_data*/
9566         MeltFrame_meltrout_84_WARMELTmiOUTOBJ_OUTPUCOD_OBJINTERNKEYWORD(meltclosure_ptr_t clos) //the closure constructor fromline 1630
9567             : Melt_CallFrameWithValues<24> (
9568 #if ENABLE_CHECKING /*fromline 1634*/
9569                 __FILE__, __LINE__,
9570 #endif /* ENABLE_CHECKING fromline 1638*/
9571                 sizeof(MeltFrame_meltrout_84_WARMELTmiOUTOBJ_OUTPUCOD_OBJINTERNKEYWORD), clos) {};
9572         MeltFrame_meltrout_84_WARMELTmiOUTOBJ_OUTPUCOD_OBJINTERNKEYWORD() //the constructor fromline 1642
9573             : Melt_CallFrameWithValues<24> (
9574 #if ENABLE_CHECKING /*fromline 1646*/
9575                 __FILE__, __LINE__,
9576 #endif /* ENABLE_CHECKING fromline 1650*/
9577                 sizeof(MeltFrame_meltrout_84_WARMELTmiOUTOBJ_OUTPUCOD_OBJINTERNKEYWORD)) {};
9578 #if ENABLE_CHECKING /*fromline 1654*/
9579         MeltFrame_meltrout_84_WARMELTmiOUTOBJ_OUTPUCOD_OBJINTERNKEYWORD(const char*fil, int lin) //the constructor fromline 1656
9580             : Melt_CallFrameWithValues<24> (fil,lin, sizeof(MeltFrame_meltrout_84_WARMELTmiOUTOBJ_OUTPUCOD_OBJINTERNKEYWORD)) {};
9581         MeltFrame_meltrout_84_WARMELTmiOUTOBJ_OUTPUCOD_OBJINTERNKEYWORD(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661
9582             : Melt_CallFrameWithValues<24> (fil,lin, sizeof(MeltFrame_meltrout_84_WARMELTmiOUTOBJ_OUTPUCOD_OBJINTERNKEYWORD), clos) {};
9583 #endif /* ENABLE_CHECKING fromline 1666*/
9584
9585     }; // end  class MeltFrame_meltrout_84_WARMELTmiOUTOBJ_OUTPUCOD_OBJINTERNKEYWORD
9586
9587
9588     /** end of frame for meltrout_84_WARMELTmiOUTOBJ_OUTPUCOD_OBJINTERNKEYWORD fromline 1697**/
9589
9590     /* end of frame for routine meltrout_84_WARMELTmiOUTOBJ_OUTPUCOD_OBJINTERNKEYWORD fromline 1756 */
9591
9592     /* classy proc frame meltrout_84_WARMELTmiOUTOBJ_OUTPUCOD_OBJINTERNKEYWORD */
9593     MeltFrame_meltrout_84_WARMELTmiOUTOBJ_OUTPUCOD_OBJINTERNKEYWORD
9594     meltfram__ /*declfrastruct fromline 1780*/
9595     /*classyprocarg meltrout_84_WARMELTmiOUTOBJ_OUTPUCOD_OBJINTERNKEYWORD fromline 1785*/
9596 #if ENABLE_CHECKING
9597     (__FILE__, __LINE__, meltclosp_) /* fromline 1789*/
9598 #else /*ENABLE_CHECKING */
9599     (meltclosp_) /* fromline 1793*/
9600 #endif /*ENABLE_CHECKING */
9601
9602     ;
9603 #define meltframe meltfram__
9604
9605     melt_trace_start("OUTPUCOD_OBJINTERNKEYWORD", meltcallcount);
9606     /*use arguments*/
9607     (void) meltclosp_;
9608     (void)meltfirstargp_;
9609     (void)meltxargdescr_;
9610     (void)meltxargtab_;
9611     (void)meltxresdescr_;
9612     (void)meltxrestab_;
9613     /*getargs*/
9614
9615     /*getarg#0*/
9616     MELT_LOCATION("warmelt-outobj.melt:3771:/ getarg");
9617     /*_.OIKW__V2*/
9618     meltfptr[1] = (melt_ptr_t) meltfirstargp_;
9619
9620     /*getarg#1*/
9621     /*^getarg*/
9622     if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs;
9623     /*_.DECLBUF__V3*/
9624     meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
9625     gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2])) != NULL);
9626
9627
9628     /*getarg#2*/
9629     /*^getarg*/
9630     if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs;
9631     /*_.IMPLBUF__V4*/
9632     meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL;
9633     gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3])) != NULL);
9634
9635
9636     /*getarg#3*/
9637     /*^getarg*/
9638     if (meltxargdescr_[2] != MELTBPAR_LONG) goto meltlab_endgetargs;
9639     /*_#DEPTH__L1*/
9640     meltfnum[0] = meltxargtab_[2].meltbp_long;
9641     ;
9642     goto meltlab_endgetargs;
9643 meltlab_endgetargs:
9644     ;
9645     /*body*/
9646     /*^block*/
9647     /*anyblock*/
9648     {
9649
9650
9651 #if MELT_HAVE_DEBUG
9652         MELT_LOCATION("warmelt-outobj.melt:3772:/ cppif.then");
9653         /*^block*/
9654         /*anyblock*/
9655         {
9656
9657
9658             MELT_CHECK_SIGNAL();
9659             ;
9660             /*_#IS_A__L2*/
9661             meltfnum[1] =
9662                 melt_is_instance_of((melt_ptr_t)(/*_.OIKW__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_OBJINTERNKEYWORD*/ meltfrout->tabval[0])));;
9663             MELT_LOCATION("warmelt-outobj.melt:3772:/ cond");
9664             /*cond*/
9665             if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/
9666                 {
9667                     /*^cond.then*/
9668                     /*_._IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);;
9669                 }
9670             else
9671                 {
9672                     MELT_LOCATION("warmelt-outobj.melt:3772:/ cond.else");
9673
9674                     /*^block*/
9675                     /*anyblock*/
9676                     {
9677
9678
9679                         MELT_CHECK_SIGNAL();
9680                         ;
9681                         /*^apply*/
9682                         /*apply*/
9683                         {
9684                             union meltparam_un argtab[4];
9685                             memset(&argtab, 0, sizeof(argtab));
9686                             /*^apply.arg*/
9687                             argtab[0].meltbp_cstring =  "check oikw";
9688                             /*^apply.arg*/
9689                             argtab[1].meltbp_cstring =  "warmelt-outobj.melt";
9690                             /*^apply.arg*/
9691                             argtab[2].meltbp_long = 3772;
9692                             /*^apply.arg*/
9693                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OIKW__V2*/ meltfptr[1];
9694                             /*_.MELT_ASSERT_FAILURE_FUN__V7*/
9695                             meltfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
9696                         }
9697                         ;
9698                         /*_._IFELSE___V6*/
9699                         meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6];;
9700                         /*epilog*/
9701
9702                         MELT_LOCATION("warmelt-outobj.melt:3772:/ clear");
9703                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V7*/
9704                         meltfptr[6] = 0 ;
9705                     }
9706                     ;
9707                 }
9708             ;
9709             /*_.IFCPP___V5*/
9710             meltfptr[4] = /*_._IFELSE___V6*/ meltfptr[5];;
9711             /*epilog*/
9712
9713             MELT_LOCATION("warmelt-outobj.melt:3772:/ clear");
9714             /*clear*/ /*_#IS_A__L2*/
9715             meltfnum[1] = 0 ;
9716             /*^clear*/
9717             /*clear*/ /*_._IFELSE___V6*/
9718             meltfptr[5] = 0 ;
9719         }
9720
9721 #else /*MELT_HAVE_DEBUG*/
9722         /*^cppif.else*/
9723         /*_.IFCPP___V5*/ meltfptr[4] = (/*nil*/NULL);
9724 #endif /*MELT_HAVE_DEBUG*/
9725         ;
9726         MELT_LOCATION("warmelt-outobj.melt:3773:/ quasiblock");
9727
9728
9729         /*^getslot*/
9730         {
9731             melt_ptr_t slot=NULL, obj=NULL;
9732             obj = (melt_ptr_t)(/*_.OIKW__V2*/ meltfptr[1]) /*=obj*/;
9733             melt_object_get_field(slot,obj, 0, "OBI_LOC");
9734             /*_.CLOC__V9*/
9735             meltfptr[5] = slot;
9736         };
9737         ;
9738         MELT_LOCATION("warmelt-outobj.melt:3774:/ getslot");
9739         {
9740             melt_ptr_t slot=NULL, obj=NULL;
9741             obj = (melt_ptr_t)(/*_.OIKW__V2*/ meltfptr[1]) /*=obj*/;
9742             melt_object_get_field(slot,obj, 1, "OBINTERN_IOBJ");
9743             /*_.OIOBJ__V10*/
9744             meltfptr[9] = slot;
9745         };
9746         ;
9747         MELT_LOCATION("warmelt-outobj.melt:3775:/ getslot");
9748         {
9749             melt_ptr_t slot=NULL, obj=NULL;
9750             obj = (melt_ptr_t)(/*_.OIOBJ__V10*/ meltfptr[9]) /*=obj*/;
9751             melt_object_get_field(slot,obj, 2, "OIE_DATA");
9752             /*_.OIDAT__V11*/
9753             meltfptr[10] = slot;
9754         };
9755         ;
9756         MELT_LOCATION("warmelt-outobj.melt:3776:/ getslot");
9757         {
9758             melt_ptr_t slot=NULL, obj=NULL;
9759             obj = (melt_ptr_t)(/*_.OIOBJ__V10*/ meltfptr[9]) /*=obj*/;
9760             melt_object_get_field(slot,obj, 4, "OIE_LOCVAR");
9761             /*_.OILOCV__V12*/
9762             meltfptr[11] = slot;
9763         };
9764         ;
9765
9766 #if MELT_HAVE_DEBUG
9767         MELT_LOCATION("warmelt-outobj.melt:3778:/ cppif.then");
9768         /*^block*/
9769         /*anyblock*/
9770         {
9771
9772
9773             MELT_CHECK_SIGNAL();
9774             ;
9775             /*_#IS_A__L3*/
9776             meltfnum[1] =
9777                 melt_is_instance_of((melt_ptr_t)(/*_.OIDAT__V11*/ meltfptr[10]), (melt_ptr_t)((/*!CLASS_NREP_DATAKEYWORD*/ meltfrout->tabval[2])));;
9778             MELT_LOCATION("warmelt-outobj.melt:3778:/ cond");
9779             /*cond*/
9780             if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/
9781                 {
9782                     /*^cond.then*/
9783                     /*_._IFELSE___V14*/ meltfptr[13] = (/*nil*/NULL);;
9784                 }
9785             else
9786                 {
9787                     MELT_LOCATION("warmelt-outobj.melt:3778:/ cond.else");
9788
9789                     /*^block*/
9790                     /*anyblock*/
9791                     {
9792
9793
9794                         MELT_CHECK_SIGNAL();
9795                         ;
9796                         /*^apply*/
9797                         /*apply*/
9798                         {
9799                             union meltparam_un argtab[4];
9800                             memset(&argtab, 0, sizeof(argtab));
9801                             /*^apply.arg*/
9802                             argtab[0].meltbp_cstring =  "check oidat";
9803                             /*^apply.arg*/
9804                             argtab[1].meltbp_cstring =  "warmelt-outobj.melt";
9805                             /*^apply.arg*/
9806                             argtab[2].meltbp_long = 3778;
9807                             /*^apply.arg*/
9808                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OIDAT__V11*/ meltfptr[10];
9809                             /*_.MELT_ASSERT_FAILURE_FUN__V15*/
9810                             meltfptr[14] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
9811                         }
9812                         ;
9813                         /*_._IFELSE___V14*/
9814                         meltfptr[13] = /*_.MELT_ASSERT_FAILURE_FUN__V15*/ meltfptr[14];;
9815                         /*epilog*/
9816
9817                         MELT_LOCATION("warmelt-outobj.melt:3778:/ clear");
9818                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V15*/
9819                         meltfptr[14] = 0 ;
9820                     }
9821                     ;
9822                 }
9823             ;
9824             /*_.IFCPP___V13*/
9825             meltfptr[12] = /*_._IFELSE___V14*/ meltfptr[13];;
9826             /*epilog*/
9827
9828             MELT_LOCATION("warmelt-outobj.melt:3778:/ clear");
9829             /*clear*/ /*_#IS_A__L3*/
9830             meltfnum[1] = 0 ;
9831             /*^clear*/
9832             /*clear*/ /*_._IFELSE___V14*/
9833             meltfptr[13] = 0 ;
9834         }
9835
9836 #else /*MELT_HAVE_DEBUG*/
9837         /*^cppif.else*/
9838         /*_.IFCPP___V13*/ meltfptr[12] = (/*nil*/NULL);
9839 #endif /*MELT_HAVE_DEBUG*/
9840         ;
9841         MELT_LOCATION("warmelt-outobj.melt:3779:/ quasiblock");
9842
9843
9844         /*^getslot*/
9845         {
9846             melt_ptr_t slot=NULL, obj=NULL;
9847             obj = (melt_ptr_t)(/*_.OIDAT__V11*/ meltfptr[10]) /*=obj*/;
9848             melt_object_get_field(slot,obj, 9, "NDSY_NAMESTR");
9849             /*_.NSY__V16*/
9850             meltfptr[14] = slot;
9851         };
9852         ;
9853
9854         MELT_CHECK_SIGNAL();
9855         ;
9856         MELT_LOCATION("warmelt-outobj.melt:3780:/ cond");
9857         /*cond*/
9858         if (/*_.CLOC__V9*/ meltfptr[5]) /*then*/
9859             {
9860                 /*^cond.then*/
9861                 /*_._IFELSE___V17*/ meltfptr[13] = /*_.CLOC__V9*/ meltfptr[5];;
9862             }
9863         else
9864             {
9865                 MELT_LOCATION("warmelt-outobj.melt:3780:/ cond.else");
9866
9867                 /*^block*/
9868                 /*anyblock*/
9869                 {
9870
9871                     /*^getslot*/
9872                     {
9873                         melt_ptr_t slot=NULL, obj=NULL;
9874                         obj = (melt_ptr_t)(/*_.OIDAT__V11*/ meltfptr[10]) /*=obj*/;
9875                         melt_object_get_field(slot,obj, 0, "NREP_LOC");
9876                         /*_.NREP_LOC__V18*/
9877                         meltfptr[17] = slot;
9878                     };
9879                     ;
9880                     /*_._IFELSE___V17*/
9881                     meltfptr[13] = /*_.NREP_LOC__V18*/ meltfptr[17];;
9882                     /*epilog*/
9883
9884                     MELT_LOCATION("warmelt-outobj.melt:3780:/ clear");
9885                     /*clear*/ /*_.NREP_LOC__V18*/
9886                     meltfptr[17] = 0 ;
9887                 }
9888                 ;
9889             }
9890         ;
9891
9892         MELT_CHECK_SIGNAL();
9893         ;
9894         /*^apply*/
9895         /*apply*/
9896         {
9897             union meltparam_un argtab[3];
9898             memset(&argtab, 0, sizeof(argtab));
9899             /*^apply.arg*/
9900             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
9901             /*^apply.arg*/
9902             argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0];
9903             /*^apply.arg*/
9904             argtab[2].meltbp_cstring =  "internkeyword";
9905             /*_.OUTPUT_LOCATION__V19*/
9906             meltfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_._IFELSE___V17*/ meltfptr[13]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
9907         }
9908         ;
9909
9910         {
9911             MELT_LOCATION("warmelt-outobj.melt:3781:/ locexp");
9912             /*add2sbuf_strconst*/
9913             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "/*internkeyw:"));
9914         }
9915         ;
9916
9917         {
9918             MELT_LOCATION("warmelt-outobj.melt:3782:/ locexp");
9919             /*add2sbuf_string*/
9920             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]),
9921                               melt_string_str((melt_ptr_t)(/*_.NSY__V16*/ meltfptr[14])));
9922         }
9923         ;
9924
9925         {
9926             MELT_LOCATION("warmelt-outobj.melt:3783:/ locexp");
9927             /*add2sbuf_strconst*/
9928             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "*/"));
9929         }
9930         ;
9931
9932         {
9933             MELT_LOCATION("warmelt-outobj.melt:3784:/ locexp");
9934             meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#DEPTH__L1*/ meltfnum[0]), 0);
9935         }
9936         ;
9937
9938         {
9939             MELT_LOCATION("warmelt-outobj.melt:3785:/ locexp");
9940             /*add2sbuf_strconst*/
9941             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "(void) melthookproc_HOOK_INTERN_KEYWORD ((melt_ptr_t)("));
9942         }
9943         ;
9944
9945         MELT_CHECK_SIGNAL();
9946         ;
9947         MELT_LOCATION("warmelt-outobj.melt:3786:/ msend");
9948         /*msend*/
9949         {
9950             union meltparam_un argtab[3];
9951             memset(&argtab, 0, sizeof(argtab));
9952             /*^ojbmsend.arg*/
9953             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2];
9954             /*^ojbmsend.arg*/
9955             argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
9956             /*^ojbmsend.arg*/
9957             argtab[2].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0];
9958             /*_.OUTPUT_C_CODE__V20*/
9959             meltfptr[19] = meltgc_send((melt_ptr_t)(/*_.OILOCV__V12*/ meltfptr[11]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[4])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
9960         }
9961         ;
9962
9963         {
9964             MELT_LOCATION("warmelt-outobj.melt:3787:/ locexp");
9965             /*add2sbuf_strconst*/
9966             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "));"));
9967         }
9968         ;
9969
9970         {
9971             MELT_LOCATION("warmelt-outobj.melt:3788:/ locexp");
9972             meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#DEPTH__L1*/ meltfnum[0]), 0);
9973         }
9974         ;
9975
9976         MELT_LOCATION("warmelt-outobj.melt:3779:/ clear");
9977         /*clear*/ /*_.NSY__V16*/
9978         meltfptr[14] = 0 ;
9979         /*^clear*/
9980         /*clear*/ /*_._IFELSE___V17*/
9981         meltfptr[13] = 0 ;
9982         /*^clear*/
9983         /*clear*/ /*_.OUTPUT_LOCATION__V19*/
9984         meltfptr[17] = 0 ;
9985         /*^clear*/
9986         /*clear*/ /*_.OUTPUT_C_CODE__V20*/
9987         meltfptr[19] = 0 ;
9988
9989 #if MELT_HAVE_DEBUG
9990         MELT_LOCATION("warmelt-outobj.melt:3789:/ cppif.then");
9991         /*^block*/
9992         /*anyblock*/
9993         {
9994
9995
9996             MELT_CHECK_SIGNAL();
9997             ;
9998             /*_#STRBUF_USEDLENGTH__L4*/
9999             meltfnum[1] =
10000                 melt_strbuf_usedlength((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]));;
10001             MELT_LOCATION("warmelt-outobj.melt:3790:/ cond");
10002             /*cond*/
10003             if (
10004                 /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[5])),
10005                                               (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[6])))
10006             ) /*then*/
10007                 {
10008                     /*^cond.then*/
10009                     /*^getslot*/
10010                     {
10011                         melt_ptr_t slot=NULL, obj=NULL;
10012                         obj = (melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[5])) /*=obj*/;
10013                         melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE");
10014                         /*_.REFERENCED_VALUE__V22*/
10015                         meltfptr[13] = slot;
10016                     };
10017                     ;
10018                 }
10019             else    /*^cond.else*/
10020                 {
10021
10022                     /*_.REFERENCED_VALUE__V22*/ meltfptr[13] =  /*reallynil*/ NULL ;;
10023                 }
10024             ;
10025             /*^compute*/
10026             /*_#GET_INT__L5*/
10027             meltfnum[4] =
10028                 (melt_get_int((melt_ptr_t)(/*_.REFERENCED_VALUE__V22*/ meltfptr[13])));;
10029             /*^compute*/
10030             /*_#ltI__L6*/
10031             meltfnum[5] =
10032                 ((/*_#STRBUF_USEDLENGTH__L4*/ meltfnum[1]) < (/*_#GET_INT__L5*/ meltfnum[4]));;
10033             MELT_LOCATION("warmelt-outobj.melt:3789:/ cond");
10034             /*cond*/
10035             if (/*_#ltI__L6*/ meltfnum[5]) /*then*/
10036                 {
10037                     /*^cond.then*/
10038                     /*_._IFELSE___V23*/ meltfptr[17] = (/*nil*/NULL);;
10039                 }
10040             else
10041                 {
10042                     MELT_LOCATION("warmelt-outobj.melt:3789:/ cond.else");
10043
10044                     /*^block*/
10045                     /*anyblock*/
10046                     {
10047
10048
10049                         MELT_CHECK_SIGNAL();
10050                         ;
10051                         /*^apply*/
10052                         /*apply*/
10053                         {
10054                             union meltparam_un argtab[4];
10055                             memset(&argtab, 0, sizeof(argtab));
10056                             /*^apply.arg*/
10057                             argtab[0].meltbp_cstring =  "check limited implbuf";
10058                             /*^apply.arg*/
10059                             argtab[1].meltbp_cstring =  "warmelt-outobj.melt";
10060                             /*^apply.arg*/
10061                             argtab[2].meltbp_long = 3789;
10062                             /*^apply.arg*/
10063                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
10064                             /*_.MELT_ASSERT_FAILURE_FUN__V24*/
10065                             meltfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
10066                         }
10067                         ;
10068                         /*_._IFELSE___V23*/
10069                         meltfptr[17] = /*_.MELT_ASSERT_FAILURE_FUN__V24*/ meltfptr[19];;
10070                         /*epilog*/
10071
10072                         MELT_LOCATION("warmelt-outobj.melt:3789:/ clear");
10073                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V24*/
10074                         meltfptr[19] = 0 ;
10075                     }
10076                     ;
10077                 }
10078             ;
10079             /*_.IFCPP___V21*/
10080             meltfptr[14] = /*_._IFELSE___V23*/ meltfptr[17];;
10081             /*epilog*/
10082
10083             MELT_LOCATION("warmelt-outobj.melt:3789:/ clear");
10084             /*clear*/ /*_#STRBUF_USEDLENGTH__L4*/
10085             meltfnum[1] = 0 ;
10086             /*^clear*/
10087             /*clear*/ /*_.REFERENCED_VALUE__V22*/
10088             meltfptr[13] = 0 ;
10089             /*^clear*/
10090             /*clear*/ /*_#GET_INT__L5*/
10091             meltfnum[4] = 0 ;
10092             /*^clear*/
10093             /*clear*/ /*_#ltI__L6*/
10094             meltfnum[5] = 0 ;
10095             /*^clear*/
10096             /*clear*/ /*_._IFELSE___V23*/
10097             meltfptr[17] = 0 ;
10098         }
10099
10100 #else /*MELT_HAVE_DEBUG*/
10101         /*^cppif.else*/
10102         /*_.IFCPP___V21*/ meltfptr[14] = (/*nil*/NULL);
10103 #endif /*MELT_HAVE_DEBUG*/
10104         ;
10105         /*^compute*/
10106         /*_.LET___V8*/
10107         meltfptr[6] = /*_.IFCPP___V21*/ meltfptr[14];;
10108
10109         MELT_LOCATION("warmelt-outobj.melt:3773:/ clear");
10110         /*clear*/ /*_.CLOC__V9*/
10111         meltfptr[5] = 0 ;
10112         /*^clear*/
10113         /*clear*/ /*_.OIOBJ__V10*/
10114         meltfptr[9] = 0 ;
10115         /*^clear*/
10116         /*clear*/ /*_.OIDAT__V11*/
10117         meltfptr[10] = 0 ;
10118         /*^clear*/
10119         /*clear*/ /*_.OILOCV__V12*/
10120         meltfptr[11] = 0 ;
10121         /*^clear*/
10122         /*clear*/ /*_.IFCPP___V13*/
10123         meltfptr[12] = 0 ;
10124         /*^clear*/
10125         /*clear*/ /*_.IFCPP___V21*/
10126         meltfptr[14] = 0 ;
10127
10128         MELT_CHECK_SIGNAL();
10129         ;
10130         MELT_LOCATION("warmelt-outobj.melt:3771:/ quasiblock");
10131
10132
10133         /*_._RETVAL___V1*/
10134         meltfptr[0] = /*_.LET___V8*/ meltfptr[6];;
10135
10136         {
10137             MELT_LOCATION("warmelt-outobj.melt:3771:/ locexp");
10138             /*ochecknores compilobj_nrep_return*/
10139 #if MELT_HAVE_DEBUG
10140             if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
10141                 melt_warn_for_no_expected_secondary_results();
10142             /* we warned when secondary results are expected but not returned. */
10143 #endif /*MELT_HAVE_DEBUG*/
10144             ;
10145         }
10146         ;
10147         /*^finalreturn*/
10148         ;
10149         /*finalret*/
10150         goto meltlabend_rout ;
10151         /*epilog*/
10152
10153         /*^clear*/
10154         /*clear*/ /*_.IFCPP___V5*/
10155         meltfptr[4] = 0 ;
10156         /*^clear*/
10157         /*clear*/ /*_.LET___V8*/
10158         meltfptr[6] = 0 ;
10159     }
10160
10161     ;
10162     goto meltlabend_rout;
10163 meltlabend_rout:
10164     melt_trace_end("OUTPUCOD_OBJINTERNKEYWORD", meltcallcount);
10165     melt_blocklevel_signals = current_blocklevel_signals_meltrout_84_WARMELTmiOUTOBJ_OUTPUCOD_OBJINTERNKEYWORD_melt;
10166     return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]);
10167 #undef meltcallcount
10168 #undef meltfram__
10169 #undef MELTFRAM_NBVARNUM
10170 #undef MELTFRAM_NBVARPTR
10171 } /*end meltrout_84_WARMELTmiOUTOBJ_OUTPUCOD_OBJINTERNKEYWORD*/
10172
10173
10174
10175
10176
10177
10178 melt_ptr_t MELT_MODULE_VISIBILITY
10179 meltrout_85_WARMELTmiOUTOBJ_OUTPUCOD_OBJGETNAMEDSYMBOL(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_,
10180         const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_)
10181 {
10182     long current_blocklevel_signals_meltrout_85_WARMELTmiOUTOBJ_OUTPUCOD_OBJGETNAMEDSYMBOL_melt =  melt_blocklevel_signals;
10183
10184 #if MELT_HAVE_DEBUG
10185     static long melt_call_counter__;
10186     long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__;
10187 #undef meltcallcount
10188 #define meltcallcount melt_thiscallcounter__
10189 #else
10190 #undef meltcallcount
10191 #define meltcallcount 0L
10192 #endif
10193 //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538
10194
10195     /* start of frame for routine meltrout_85_WARMELTmiOUTOBJ_OUTPUCOD_OBJGETNAMEDSYMBOL fromline 1752 */
10196
10197     /** start of frame for meltrout_85_WARMELTmiOUTOBJ_OUTPUCOD_OBJGETNAMEDSYMBOL of CLASS_PROCROUTINEOBJ from 1555**/
10198
10199     /*curframdeclclassy*/ class MeltFrame_meltrout_85_WARMELTmiOUTOBJ_OUTPUCOD_OBJGETNAMEDSYMBOL// fromline 1568
10200         : public Melt_CallFrameWithValues<30>
10201     {
10202     public: /* fromline 1572*/
10203         long mcfr_varnum[12];
10204         /*classy others*/
10205         long _meltsparel;
10206         void melt_mark_stuff (void)
10207         {
10208         } /*end melt_mark_stuff*/
10209         virtual void melt_mark_ggc_data (void)
10210         {
10211             melt_mark_values ();
10212             melt_mark_stuff ();
10213         }; /*end melt_mark_ggc_data*/
10214         MeltFrame_meltrout_85_WARMELTmiOUTOBJ_OUTPUCOD_OBJGETNAMEDSYMBOL(meltclosure_ptr_t clos) //the closure constructor fromline 1630
10215             : Melt_CallFrameWithValues<30> (
10216 #if ENABLE_CHECKING /*fromline 1634*/
10217                 __FILE__, __LINE__,
10218 #endif /* ENABLE_CHECKING fromline 1638*/
10219                 sizeof(MeltFrame_meltrout_85_WARMELTmiOUTOBJ_OUTPUCOD_OBJGETNAMEDSYMBOL), clos) {};
10220         MeltFrame_meltrout_85_WARMELTmiOUTOBJ_OUTPUCOD_OBJGETNAMEDSYMBOL() //the constructor fromline 1642
10221             : Melt_CallFrameWithValues<30> (
10222 #if ENABLE_CHECKING /*fromline 1646*/
10223                 __FILE__, __LINE__,
10224 #endif /* ENABLE_CHECKING fromline 1650*/
10225                 sizeof(MeltFrame_meltrout_85_WARMELTmiOUTOBJ_OUTPUCOD_OBJGETNAMEDSYMBOL)) {};
10226 #if ENABLE_CHECKING /*fromline 1654*/
10227         MeltFrame_meltrout_85_WARMELTmiOUTOBJ_OUTPUCOD_OBJGETNAMEDSYMBOL(const char*fil, int lin) //the constructor fromline 1656
10228             : Melt_CallFrameWithValues<30> (fil,lin, sizeof(MeltFrame_meltrout_85_WARMELTmiOUTOBJ_OUTPUCOD_OBJGETNAMEDSYMBOL)) {};
10229         MeltFrame_meltrout_85_WARMELTmiOUTOBJ_OUTPUCOD_OBJGETNAMEDSYMBOL(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661
10230             : Melt_CallFrameWithValues<30> (fil,lin, sizeof(MeltFrame_meltrout_85_WARMELTmiOUTOBJ_OUTPUCOD_OBJGETNAMEDSYMBOL), clos) {};
10231 #endif /* ENABLE_CHECKING fromline 1666*/
10232
10233     }; // end  class MeltFrame_meltrout_85_WARMELTmiOUTOBJ_OUTPUCOD_OBJGETNAMEDSYMBOL
10234
10235
10236     /** end of frame for meltrout_85_WARMELTmiOUTOBJ_OUTPUCOD_OBJGETNAMEDSYMBOL fromline 1697**/
10237
10238     /* end of frame for routine meltrout_85_WARMELTmiOUTOBJ_OUTPUCOD_OBJGETNAMEDSYMBOL fromline 1756 */
10239
10240     /* classy proc frame meltrout_85_WARMELTmiOUTOBJ_OUTPUCOD_OBJGETNAMEDSYMBOL */
10241     MeltFrame_meltrout_85_WARMELTmiOUTOBJ_OUTPUCOD_OBJGETNAMEDSYMBOL
10242     meltfram__ /*declfrastruct fromline 1780*/
10243     /*classyprocarg meltrout_85_WARMELTmiOUTOBJ_OUTPUCOD_OBJGETNAMEDSYMBOL fromline 1785*/
10244 #if ENABLE_CHECKING
10245     (__FILE__, __LINE__, meltclosp_) /* fromline 1789*/
10246 #else /*ENABLE_CHECKING */
10247     (meltclosp_) /* fromline 1793*/
10248 #endif /*ENABLE_CHECKING */
10249
10250     ;
10251 #define meltframe meltfram__
10252
10253     melt_trace_start("OUTPUCOD_OBJGETNAMEDSYMBOL", meltcallcount);
10254     /*use arguments*/
10255     (void) meltclosp_;
10256     (void)meltfirstargp_;
10257     (void)meltxargdescr_;
10258     (void)meltxargtab_;
10259     (void)meltxresdescr_;
10260     (void)meltxrestab_;
10261     /*getargs*/
10262
10263     /*getarg#0*/
10264     MELT_LOCATION("warmelt-outobj.melt:3795:/ getarg");
10265     /*_.OGSY__V2*/
10266     meltfptr[1] = (melt_ptr_t) meltfirstargp_;
10267
10268     /*getarg#1*/
10269     /*^getarg*/
10270     if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs;
10271     /*_.DECLBUF__V3*/
10272     meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
10273     gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2])) != NULL);
10274
10275
10276     /*getarg#2*/
10277     /*^getarg*/
10278     if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs;
10279     /*_.IMPLBUF__V4*/
10280     meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL;
10281     gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3])) != NULL);
10282
10283
10284     /*getarg#3*/
10285     /*^getarg*/
10286     if (meltxargdescr_[2] != MELTBPAR_LONG) goto meltlab_endgetargs;
10287     /*_#DEPTH__L1*/
10288     meltfnum[0] = meltxargtab_[2].meltbp_long;
10289     ;
10290     goto meltlab_endgetargs;
10291 meltlab_endgetargs:
10292     ;
10293     /*body*/
10294     /*^block*/
10295     /*anyblock*/
10296     {
10297
10298
10299 #if MELT_HAVE_DEBUG
10300         MELT_LOCATION("warmelt-outobj.melt:3796:/ cppif.then");
10301         /*^block*/
10302         /*anyblock*/
10303         {
10304
10305
10306             MELT_CHECK_SIGNAL();
10307             ;
10308             /*_#IS_A__L2*/
10309             meltfnum[1] =
10310                 melt_is_instance_of((melt_ptr_t)(/*_.OGSY__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_OBJGETNAMEDSYMBOL*/ meltfrout->tabval[0])));;
10311             MELT_LOCATION("warmelt-outobj.melt:3796:/ cond");
10312             /*cond*/
10313             if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/
10314                 {
10315                     /*^cond.then*/
10316                     /*_._IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);;
10317                 }
10318             else
10319                 {
10320                     MELT_LOCATION("warmelt-outobj.melt:3796:/ cond.else");
10321
10322                     /*^block*/
10323                     /*anyblock*/
10324                     {
10325
10326
10327                         MELT_CHECK_SIGNAL();
10328                         ;
10329                         /*^apply*/
10330                         /*apply*/
10331                         {
10332                             union meltparam_un argtab[4];
10333                             memset(&argtab, 0, sizeof(argtab));
10334                             /*^apply.arg*/
10335                             argtab[0].meltbp_cstring =  "check ogsy";
10336                             /*^apply.arg*/
10337                             argtab[1].meltbp_cstring =  "warmelt-outobj.melt";
10338                             /*^apply.arg*/
10339                             argtab[2].meltbp_long = 3796;
10340                             /*^apply.arg*/
10341                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OGSY__V2*/ meltfptr[1];
10342                             /*_.MELT_ASSERT_FAILURE_FUN__V7*/
10343                             meltfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
10344                         }
10345                         ;
10346                         /*_._IFELSE___V6*/
10347                         meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6];;
10348                         /*epilog*/
10349
10350                         MELT_LOCATION("warmelt-outobj.melt:3796:/ clear");
10351                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V7*/
10352                         meltfptr[6] = 0 ;
10353                     }
10354                     ;
10355                 }
10356             ;
10357             /*_.IFCPP___V5*/
10358             meltfptr[4] = /*_._IFELSE___V6*/ meltfptr[5];;
10359             /*epilog*/
10360
10361             MELT_LOCATION("warmelt-outobj.melt:3796:/ clear");
10362             /*clear*/ /*_#IS_A__L2*/
10363             meltfnum[1] = 0 ;
10364             /*^clear*/
10365             /*clear*/ /*_._IFELSE___V6*/
10366             meltfptr[5] = 0 ;
10367         }
10368
10369 #else /*MELT_HAVE_DEBUG*/
10370         /*^cppif.else*/
10371         /*_.IFCPP___V5*/ meltfptr[4] = (/*nil*/NULL);
10372 #endif /*MELT_HAVE_DEBUG*/
10373         ;
10374         MELT_LOCATION("warmelt-outobj.melt:3797:/ quasiblock");
10375
10376
10377         /*^getslot*/
10378         {
10379             melt_ptr_t slot=NULL, obj=NULL;
10380             obj = (melt_ptr_t)(/*_.OGSY__V2*/ meltfptr[1]) /*=obj*/;
10381             melt_object_get_field(slot,obj, 0, "OBI_LOC");
10382             /*_.CLOC__V9*/
10383             meltfptr[5] = slot;
10384         };
10385         ;
10386         MELT_LOCATION("warmelt-outobj.melt:3798:/ getslot");
10387         {
10388             melt_ptr_t slot=NULL, obj=NULL;
10389             obj = (melt_ptr_t)(/*_.OGSY__V2*/ meltfptr[1]) /*=obj*/;
10390             melt_object_get_field(slot,obj, 1, "OBGNAMED_IOBJ");
10391             /*_.OIOBJ__V10*/
10392             meltfptr[9] = slot;
10393         };
10394         ;
10395         MELT_LOCATION("warmelt-outobj.melt:3799:/ getslot");
10396         {
10397             melt_ptr_t slot=NULL, obj=NULL;
10398             obj = (melt_ptr_t)(/*_.OIOBJ__V10*/ meltfptr[9]) /*=obj*/;
10399             melt_object_get_field(slot,obj, 2, "OIE_DATA");
10400             /*_.OGDAT__V11*/
10401             meltfptr[10] = slot;
10402         };
10403         ;
10404         MELT_LOCATION("warmelt-outobj.melt:3800:/ getslot");
10405         {
10406             melt_ptr_t slot=NULL, obj=NULL;
10407             obj = (melt_ptr_t)(/*_.OIOBJ__V10*/ meltfptr[9]) /*=obj*/;
10408             melt_object_get_field(slot,obj, 4, "OIE_LOCVAR");
10409             /*_.OILOCV__V12*/
10410             meltfptr[11] = slot;
10411         };
10412         ;
10413
10414 #if MELT_HAVE_DEBUG
10415         MELT_LOCATION("warmelt-outobj.melt:3802:/ cppif.then");
10416         /*^block*/
10417         /*anyblock*/
10418         {
10419
10420
10421             MELT_CHECK_SIGNAL();
10422             ;
10423             /*_#IS_A__L3*/
10424             meltfnum[1] =
10425                 melt_is_instance_of((melt_ptr_t)(/*_.OIOBJ__V10*/ meltfptr[9]), (melt_ptr_t)((/*!CLASS_OBJINITOBJECT*/ meltfrout->tabval[2])));;
10426             MELT_LOCATION("warmelt-outobj.melt:3802:/ cond");
10427             /*cond*/
10428             if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/
10429                 {
10430                     /*^cond.then*/
10431                     /*_._IFELSE___V14*/ meltfptr[13] = (/*nil*/NULL);;
10432                 }
10433             else
10434                 {
10435                     MELT_LOCATION("warmelt-outobj.melt:3802:/ cond.else");
10436
10437                     /*^block*/
10438                     /*anyblock*/
10439                     {
10440
10441
10442                         MELT_CHECK_SIGNAL();
10443                         ;
10444                         /*^apply*/
10445                         /*apply*/
10446                         {
10447                             union meltparam_un argtab[4];
10448                             memset(&argtab, 0, sizeof(argtab));
10449                             /*^apply.arg*/
10450                             argtab[0].meltbp_cstring =  "check oiobj";
10451                             /*^apply.arg*/
10452                             argtab[1].meltbp_cstring =  "warmelt-outobj.melt";
10453                             /*^apply.arg*/
10454                             argtab[2].meltbp_long = 3802;
10455                             /*^apply.arg*/
10456                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OIOBJ__V10*/ meltfptr[9];
10457                             /*_.MELT_ASSERT_FAILURE_FUN__V15*/
10458                             meltfptr[14] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
10459                         }
10460                         ;
10461                         /*_._IFELSE___V14*/
10462                         meltfptr[13] = /*_.MELT_ASSERT_FAILURE_FUN__V15*/ meltfptr[14];;
10463                         /*epilog*/
10464
10465                         MELT_LOCATION("warmelt-outobj.melt:3802:/ clear");
10466                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V15*/
10467                         meltfptr[14] = 0 ;
10468                     }
10469                     ;
10470                 }
10471             ;
10472             /*_.IFCPP___V13*/
10473             meltfptr[12] = /*_._IFELSE___V14*/ meltfptr[13];;
10474             /*epilog*/
10475
10476             MELT_LOCATION("warmelt-outobj.melt:3802:/ clear");
10477             /*clear*/ /*_#IS_A__L3*/
10478             meltfnum[1] = 0 ;
10479             /*^clear*/
10480             /*clear*/ /*_._IFELSE___V14*/
10481             meltfptr[13] = 0 ;
10482         }
10483
10484 #else /*MELT_HAVE_DEBUG*/
10485         /*^cppif.else*/
10486         /*_.IFCPP___V13*/ meltfptr[12] = (/*nil*/NULL);
10487 #endif /*MELT_HAVE_DEBUG*/
10488         ;
10489
10490 #if MELT_HAVE_DEBUG
10491         MELT_LOCATION("warmelt-outobj.melt:3803:/ cppif.then");
10492         /*^block*/
10493         /*anyblock*/
10494         {
10495
10496
10497             MELT_CHECK_SIGNAL();
10498             ;
10499             /*_#IS_A__L4*/
10500             meltfnum[1] =
10501                 melt_is_instance_of((melt_ptr_t)(/*_.OGDAT__V11*/ meltfptr[10]), (melt_ptr_t)((/*!CLASS_NREP_DATASYMBOL*/ meltfrout->tabval[3])));;
10502             MELT_LOCATION("warmelt-outobj.melt:3803:/ cond");
10503             /*cond*/
10504             if (/*_#IS_A__L4*/ meltfnum[1]) /*then*/
10505                 {
10506                     /*^cond.then*/
10507                     /*_._IFELSE___V17*/ meltfptr[13] = (/*nil*/NULL);;
10508                 }
10509             else
10510                 {
10511                     MELT_LOCATION("warmelt-outobj.melt:3803:/ cond.else");
10512
10513                     /*^block*/
10514                     /*anyblock*/
10515                     {
10516
10517
10518                         MELT_CHECK_SIGNAL();
10519                         ;
10520                         /*^apply*/
10521                         /*apply*/
10522                         {
10523                             union meltparam_un argtab[4];
10524                             memset(&argtab, 0, sizeof(argtab));
10525                             /*^apply.arg*/
10526                             argtab[0].meltbp_cstring =  "check ogdat";
10527                             /*^apply.arg*/
10528                             argtab[1].meltbp_cstring =  "warmelt-outobj.melt";
10529                             /*^apply.arg*/
10530                             argtab[2].meltbp_long = 3803;
10531                             /*^apply.arg*/
10532                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OGDAT__V11*/ meltfptr[10];
10533                             /*_.MELT_ASSERT_FAILURE_FUN__V18*/
10534                             meltfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
10535                         }
10536                         ;
10537                         /*_._IFELSE___V17*/
10538                         meltfptr[13] = /*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17];;
10539                         /*epilog*/
10540
10541                         MELT_LOCATION("warmelt-outobj.melt:3803:/ clear");
10542                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V18*/
10543                         meltfptr[17] = 0 ;
10544                     }
10545                     ;
10546                 }
10547             ;
10548             /*_.IFCPP___V16*/
10549             meltfptr[14] = /*_._IFELSE___V17*/ meltfptr[13];;
10550             /*epilog*/
10551
10552             MELT_LOCATION("warmelt-outobj.melt:3803:/ clear");
10553             /*clear*/ /*_#IS_A__L4*/
10554             meltfnum[1] = 0 ;
10555             /*^clear*/
10556             /*clear*/ /*_._IFELSE___V17*/
10557             meltfptr[13] = 0 ;
10558         }
10559
10560 #else /*MELT_HAVE_DEBUG*/
10561         /*^cppif.else*/
10562         /*_.IFCPP___V16*/ meltfptr[14] = (/*nil*/NULL);
10563 #endif /*MELT_HAVE_DEBUG*/
10564         ;
10565         MELT_LOCATION("warmelt-outobj.melt:3804:/ quasiblock");
10566
10567
10568         /*^getslot*/
10569         {
10570             melt_ptr_t slot=NULL, obj=NULL;
10571             obj = (melt_ptr_t)(/*_.OGDAT__V11*/ meltfptr[10]) /*=obj*/;
10572             melt_object_get_field(slot,obj, 9, "NDSY_NAMESTR");
10573             /*_.NSY__V20*/
10574             meltfptr[13] = slot;
10575         };
10576         ;
10577
10578         MELT_CHECK_SIGNAL();
10579         ;
10580         MELT_LOCATION("warmelt-outobj.melt:3806:/ cond");
10581         /*cond*/
10582         if (/*_.CLOC__V9*/ meltfptr[5]) /*then*/
10583             {
10584                 /*^cond.then*/
10585                 /*_._IFELSE___V21*/ meltfptr[20] = /*_.CLOC__V9*/ meltfptr[5];;
10586             }
10587         else
10588             {
10589                 MELT_LOCATION("warmelt-outobj.melt:3806:/ cond.else");
10590
10591                 /*^block*/
10592                 /*anyblock*/
10593                 {
10594
10595                     /*^getslot*/
10596                     {
10597                         melt_ptr_t slot=NULL, obj=NULL;
10598                         obj = (melt_ptr_t)(/*_.OGDAT__V11*/ meltfptr[10]) /*=obj*/;
10599                         melt_object_get_field(slot,obj, 0, "NREP_LOC");
10600                         /*_.NREP_LOC__V22*/
10601                         meltfptr[21] = slot;
10602                     };
10603                     ;
10604                     /*_._IFELSE___V21*/
10605                     meltfptr[20] = /*_.NREP_LOC__V22*/ meltfptr[21];;
10606                     /*epilog*/
10607
10608                     MELT_LOCATION("warmelt-outobj.melt:3806:/ clear");
10609                     /*clear*/ /*_.NREP_LOC__V22*/
10610                     meltfptr[21] = 0 ;
10611                 }
10612                 ;
10613             }
10614         ;
10615
10616         MELT_CHECK_SIGNAL();
10617         ;
10618         /*^apply*/
10619         /*apply*/
10620         {
10621             union meltparam_un argtab[3];
10622             memset(&argtab, 0, sizeof(argtab));
10623             /*^apply.arg*/
10624             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
10625             /*^apply.arg*/
10626             argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0];
10627             /*^apply.arg*/
10628             argtab[2].meltbp_cstring =  "getnamedsymbol";
10629             /*_.OUTPUT_LOCATION__V23*/
10630             meltfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_._IFELSE___V21*/ meltfptr[20]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
10631         }
10632         ;
10633
10634         {
10635             MELT_LOCATION("warmelt-outobj.melt:3807:/ locexp");
10636             /*add2sbuf_strconst*/
10637             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "/*getnamedsym:"));
10638         }
10639         ;
10640
10641         {
10642             MELT_LOCATION("warmelt-outobj.melt:3808:/ locexp");
10643             /*add2sbuf_string*/
10644             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]),
10645                               melt_string_str((melt_ptr_t)(/*_.NSY__V20*/ meltfptr[13])));
10646         }
10647         ;
10648
10649         {
10650             MELT_LOCATION("warmelt-outobj.melt:3809:/ locexp");
10651             /*add2sbuf_strconst*/
10652             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "*/"));
10653         }
10654         ;
10655
10656         {
10657             MELT_LOCATION("warmelt-outobj.melt:3810:/ locexp");
10658             meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#DEPTH__L1*/ meltfnum[0]), 0);
10659         }
10660         ;
10661         /*_#plI__L5*/
10662         meltfnum[1] =
10663             ((/*_#DEPTH__L1*/ meltfnum[0]) + (1));;
10664
10665         {
10666             MELT_LOCATION("warmelt-outobj.melt:3811:/ locexp");
10667             meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#plI__L5*/ meltfnum[1]), 0);
10668         }
10669         ;
10670
10671         {
10672             MELT_LOCATION("warmelt-outobj.melt:3812:/ locexp");
10673             /*add2sbuf_strconst*/
10674             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "if (NULL == "));
10675         }
10676         ;
10677         /*_#plI__L6*/
10678         meltfnum[5] =
10679             ((/*_#DEPTH__L1*/ meltfnum[0]) + (1));;
10680
10681         MELT_CHECK_SIGNAL();
10682         ;
10683         MELT_LOCATION("warmelt-outobj.melt:3813:/ msend");
10684         /*msend*/
10685         {
10686             union meltparam_un argtab[3];
10687             memset(&argtab, 0, sizeof(argtab));
10688             /*^ojbmsend.arg*/
10689             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2];
10690             /*^ojbmsend.arg*/
10691             argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
10692             /*^ojbmsend.arg*/
10693             argtab[2].meltbp_long = /*_#plI__L6*/ meltfnum[5];
10694             /*_.OUTPUT_C_CODE__V24*/
10695             meltfptr[23] = meltgc_send((melt_ptr_t)(/*_.OILOCV__V12*/ meltfptr[11]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[5])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
10696         }
10697         ;
10698
10699         {
10700             MELT_LOCATION("warmelt-outobj.melt:3814:/ locexp");
10701             /*add2sbuf_strconst*/
10702             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( ") {"));
10703         }
10704         ;
10705
10706         {
10707             MELT_LOCATION("warmelt-outobj.melt:3815:/ locexp");
10708             meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0);
10709         }
10710         ;
10711
10712         {
10713             MELT_LOCATION("warmelt-outobj.melt:3818:/ locexp");
10714             /*add2sbuf_strconst*/
10715             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "#if !MELT_HAS_INITIAL_ENVIRONMENT"));
10716         }
10717         ;
10718
10719         {
10720             MELT_LOCATION("warmelt-outobj.melt:3819:/ locexp");
10721             meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0);
10722         }
10723         ;
10724
10725         MELT_CHECK_SIGNAL();
10726         ;
10727         MELT_LOCATION("warmelt-outobj.melt:3820:/ apply");
10728         /*apply*/
10729         {
10730             union meltparam_un argtab[3];
10731             memset(&argtab, 0, sizeof(argtab));
10732             /*^apply.arg*/
10733             argtab[0].meltbp_cstring =  "#error MELT getting named symbol ";
10734             /*^apply.arg*/
10735             argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NSY__V20*/ meltfptr[13];
10736             /*^apply.arg*/
10737             argtab[2].meltbp_cstring =  " without initial environment";
10738             /*_.ADD2OUT__V25*/
10739             meltfptr[24] =  melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
10740         }
10741         ;
10742
10743         {
10744             MELT_LOCATION("warmelt-outobj.melt:3821:/ locexp");
10745             meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0);
10746         }
10747         ;
10748
10749         {
10750             MELT_LOCATION("warmelt-outobj.melt:3822:/ locexp");
10751             /*add2sbuf_strconst*/
10752             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "#endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/"));
10753         }
10754         ;
10755         /*_#plI__L7*/
10756         meltfnum[6] =
10757             ((/*_#DEPTH__L1*/ meltfnum[0]) + (2));;
10758
10759         {
10760             MELT_LOCATION("warmelt-outobj.melt:3823:/ locexp");
10761             meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#plI__L7*/ meltfnum[6]), 0);
10762         }
10763         ;
10764
10765         {
10766             MELT_LOCATION("warmelt-outobj.melt:3824:/ locexp");
10767             /*add2sbuf_strconst*/
10768             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( " melt_ptr_t meltsy_"));
10769         }
10770         ;
10771
10772         {
10773             MELT_LOCATION("warmelt-outobj.melt:3825:/ locexp");
10774             meltgc_add_strbuf_cident((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]),
10775                                      melt_string_str((melt_ptr_t)(/*_.NSY__V20*/ meltfptr[13])));
10776         }
10777         ;
10778
10779         {
10780             MELT_LOCATION("warmelt-outobj.melt:3826:/ locexp");
10781             /*add2sbuf_strconst*/
10782             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( " = melthookproc_HOOK_NAMED_SYMBOL (\""));
10783         }
10784         ;
10785
10786         {
10787             MELT_LOCATION("warmelt-outobj.melt:3827:/ locexp");
10788             /*add2sbuf_string*/
10789             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]),
10790                               melt_string_str((melt_ptr_t)(/*_.NSY__V20*/ meltfptr[13])));
10791         }
10792         ;
10793
10794         {
10795             MELT_LOCATION("warmelt-outobj.melt:3828:/ locexp");
10796             /*add2sbuf_strconst*/
10797             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "\", (long) MELT_GET);"));
10798         }
10799         ;
10800         /*_#plI__L8*/
10801         meltfnum[7] =
10802             ((/*_#DEPTH__L1*/ meltfnum[0]) + (2));;
10803
10804         {
10805             MELT_LOCATION("warmelt-outobj.melt:3829:/ locexp");
10806             meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#plI__L8*/ meltfnum[7]), 0);
10807         }
10808         ;
10809         /*_#plI__L9*/
10810         meltfnum[8] =
10811             ((/*_#DEPTH__L1*/ meltfnum[0]) + (3));;
10812
10813         MELT_CHECK_SIGNAL();
10814         ;
10815         MELT_LOCATION("warmelt-outobj.melt:3830:/ msend");
10816         /*msend*/
10817         {
10818             union meltparam_un argtab[3];
10819             memset(&argtab, 0, sizeof(argtab));
10820             /*^ojbmsend.arg*/
10821             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2];
10822             /*^ojbmsend.arg*/
10823             argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
10824             /*^ojbmsend.arg*/
10825             argtab[2].meltbp_long = /*_#plI__L9*/ meltfnum[8];
10826             /*_.OUTPUT_C_CODE__V26*/
10827             meltfptr[25] = meltgc_send((melt_ptr_t)(/*_.OILOCV__V12*/ meltfptr[11]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[5])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
10828         }
10829         ;
10830
10831         {
10832             MELT_LOCATION("warmelt-outobj.melt:3831:/ locexp");
10833             /*add2sbuf_strconst*/
10834             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( " = (melt_ptr_t) meltsy_"));
10835         }
10836         ;
10837
10838         {
10839             MELT_LOCATION("warmelt-outobj.melt:3832:/ locexp");
10840             meltgc_add_strbuf_cident((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]),
10841                                      melt_string_str((melt_ptr_t)(/*_.NSY__V20*/ meltfptr[13])));
10842         }
10843         ;
10844
10845         {
10846             MELT_LOCATION("warmelt-outobj.melt:3833:/ locexp");
10847             /*add2sbuf_strconst*/
10848             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( ";"));
10849         }
10850         ;
10851
10852         {
10853             MELT_LOCATION("warmelt-outobj.melt:3834:/ locexp");
10854             meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#DEPTH__L1*/ meltfnum[0]), 0);
10855         }
10856         ;
10857
10858         {
10859             MELT_LOCATION("warmelt-outobj.melt:3835:/ locexp");
10860             /*add2sbuf_strconst*/
10861             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "} /*endgetnamedsym "));
10862         }
10863         ;
10864
10865         {
10866             MELT_LOCATION("warmelt-outobj.melt:3836:/ locexp");
10867             /*add2sbuf_string*/
10868             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]),
10869                               melt_string_str((melt_ptr_t)(/*_.NSY__V20*/ meltfptr[13])));
10870         }
10871         ;
10872
10873         {
10874             MELT_LOCATION("warmelt-outobj.melt:3837:/ locexp");
10875             /*add2sbuf_strconst*/
10876             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "*/"));
10877         }
10878         ;
10879
10880         {
10881             MELT_LOCATION("warmelt-outobj.melt:3838:/ locexp");
10882             meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#DEPTH__L1*/ meltfnum[0]), 0);
10883         }
10884         ;
10885
10886         {
10887             MELT_LOCATION("warmelt-outobj.melt:3839:/ locexp");
10888             meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#DEPTH__L1*/ meltfnum[0]), 0);
10889         }
10890         ;
10891
10892 #if MELT_HAVE_DEBUG
10893         MELT_LOCATION("warmelt-outobj.melt:3840:/ cppif.then");
10894         /*^block*/
10895         /*anyblock*/
10896         {
10897
10898
10899             MELT_CHECK_SIGNAL();
10900             ;
10901             /*_#STRBUF_USEDLENGTH__L10*/
10902             meltfnum[9] =
10903                 melt_strbuf_usedlength((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]));;
10904             MELT_LOCATION("warmelt-outobj.melt:3841:/ cond");
10905             /*cond*/
10906             if (
10907                 /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[7])),
10908                                               (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[8])))
10909             ) /*then*/
10910                 {
10911                     /*^cond.then*/
10912                     /*^getslot*/
10913                     {
10914                         melt_ptr_t slot=NULL, obj=NULL;
10915                         obj = (melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[7])) /*=obj*/;
10916                         melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE");
10917                         /*_.REFERENCED_VALUE__V28*/
10918                         meltfptr[27] = slot;
10919                     };
10920                     ;
10921                 }
10922             else    /*^cond.else*/
10923                 {
10924
10925                     /*_.REFERENCED_VALUE__V28*/ meltfptr[27] =  /*reallynil*/ NULL ;;
10926                 }
10927             ;
10928             /*^compute*/
10929             /*_#GET_INT__L11*/
10930             meltfnum[10] =
10931                 (melt_get_int((melt_ptr_t)(/*_.REFERENCED_VALUE__V28*/ meltfptr[27])));;
10932             /*^compute*/
10933             /*_#ltI__L12*/
10934             meltfnum[11] =
10935                 ((/*_#STRBUF_USEDLENGTH__L10*/ meltfnum[9]) < (/*_#GET_INT__L11*/ meltfnum[10]));;
10936             MELT_LOCATION("warmelt-outobj.melt:3840:/ cond");
10937             /*cond*/
10938             if (/*_#ltI__L12*/ meltfnum[11]) /*then*/
10939                 {
10940                     /*^cond.then*/
10941                     /*_._IFELSE___V29*/ meltfptr[28] = (/*nil*/NULL);;
10942                 }
10943             else
10944                 {
10945                     MELT_LOCATION("warmelt-outobj.melt:3840:/ cond.else");
10946
10947                     /*^block*/
10948                     /*anyblock*/
10949                     {
10950
10951
10952                         MELT_CHECK_SIGNAL();
10953                         ;
10954                         /*^apply*/
10955                         /*apply*/
10956                         {
10957                             union meltparam_un argtab[4];
10958                             memset(&argtab, 0, sizeof(argtab));
10959                             /*^apply.arg*/
10960                             argtab[0].meltbp_cstring =  "check limited implbuf";
10961                             /*^apply.arg*/
10962                             argtab[1].meltbp_cstring =  "warmelt-outobj.melt";
10963                             /*^apply.arg*/
10964                             argtab[2].meltbp_long = 3840;
10965                             /*^apply.arg*/
10966                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
10967                             /*_.MELT_ASSERT_FAILURE_FUN__V30*/
10968                             meltfptr[29] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
10969                         }
10970                         ;
10971                         /*_._IFELSE___V29*/
10972                         meltfptr[28] = /*_.MELT_ASSERT_FAILURE_FUN__V30*/ meltfptr[29];;
10973                         /*epilog*/
10974
10975                         MELT_LOCATION("warmelt-outobj.melt:3840:/ clear");
10976                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V30*/
10977                         meltfptr[29] = 0 ;
10978                     }
10979                     ;
10980                 }
10981             ;
10982             /*_.IFCPP___V27*/
10983             meltfptr[26] = /*_._IFELSE___V29*/ meltfptr[28];;
10984             /*epilog*/
10985
10986             MELT_LOCATION("warmelt-outobj.melt:3840:/ clear");
10987             /*clear*/ /*_#STRBUF_USEDLENGTH__L10*/
10988             meltfnum[9] = 0 ;
10989             /*^clear*/
10990             /*clear*/ /*_.REFERENCED_VALUE__V28*/
10991             meltfptr[27] = 0 ;
10992             /*^clear*/
10993             /*clear*/ /*_#GET_INT__L11*/
10994             meltfnum[10] = 0 ;
10995             /*^clear*/
10996             /*clear*/ /*_#ltI__L12*/
10997             meltfnum[11] = 0 ;
10998             /*^clear*/
10999             /*clear*/ /*_._IFELSE___V29*/
11000             meltfptr[28] = 0 ;
11001         }
11002
11003 #else /*MELT_HAVE_DEBUG*/
11004         /*^cppif.else*/
11005         /*_.IFCPP___V27*/ meltfptr[26] = (/*nil*/NULL);
11006 #endif /*MELT_HAVE_DEBUG*/
11007         ;
11008         /*^compute*/
11009         /*_.LET___V19*/
11010         meltfptr[17] = /*_.IFCPP___V27*/ meltfptr[26];;
11011
11012         MELT_LOCATION("warmelt-outobj.melt:3804:/ clear");
11013         /*clear*/ /*_.NSY__V20*/
11014         meltfptr[13] = 0 ;
11015         /*^clear*/
11016         /*clear*/ /*_._IFELSE___V21*/
11017         meltfptr[20] = 0 ;
11018         /*^clear*/
11019         /*clear*/ /*_.OUTPUT_LOCATION__V23*/
11020         meltfptr[21] = 0 ;
11021         /*^clear*/
11022         /*clear*/ /*_#plI__L5*/
11023         meltfnum[1] = 0 ;
11024         /*^clear*/
11025         /*clear*/ /*_#plI__L6*/
11026         meltfnum[5] = 0 ;
11027         /*^clear*/
11028         /*clear*/ /*_.OUTPUT_C_CODE__V24*/
11029         meltfptr[23] = 0 ;
11030         /*^clear*/
11031         /*clear*/ /*_.ADD2OUT__V25*/
11032         meltfptr[24] = 0 ;
11033         /*^clear*/
11034         /*clear*/ /*_#plI__L7*/
11035         meltfnum[6] = 0 ;
11036         /*^clear*/
11037         /*clear*/ /*_#plI__L8*/
11038         meltfnum[7] = 0 ;
11039         /*^clear*/
11040         /*clear*/ /*_#plI__L9*/
11041         meltfnum[8] = 0 ;
11042         /*^clear*/
11043         /*clear*/ /*_.OUTPUT_C_CODE__V26*/
11044         meltfptr[25] = 0 ;
11045         /*^clear*/
11046         /*clear*/ /*_.IFCPP___V27*/
11047         meltfptr[26] = 0 ;
11048         /*_.LET___V8*/
11049         meltfptr[6] = /*_.LET___V19*/ meltfptr[17];;
11050
11051         MELT_LOCATION("warmelt-outobj.melt:3797:/ clear");
11052         /*clear*/ /*_.CLOC__V9*/
11053         meltfptr[5] = 0 ;
11054         /*^clear*/
11055         /*clear*/ /*_.OIOBJ__V10*/
11056         meltfptr[9] = 0 ;
11057         /*^clear*/
11058         /*clear*/ /*_.OGDAT__V11*/
11059         meltfptr[10] = 0 ;
11060         /*^clear*/
11061         /*clear*/ /*_.OILOCV__V12*/
11062         meltfptr[11] = 0 ;
11063         /*^clear*/
11064         /*clear*/ /*_.IFCPP___V13*/
11065         meltfptr[12] = 0 ;
11066         /*^clear*/
11067         /*clear*/ /*_.IFCPP___V16*/
11068         meltfptr[14] = 0 ;
11069         /*^clear*/
11070         /*clear*/ /*_.LET___V19*/
11071         meltfptr[17] = 0 ;
11072
11073         MELT_CHECK_SIGNAL();
11074         ;
11075         MELT_LOCATION("warmelt-outobj.melt:3795:/ quasiblock");
11076
11077
11078         /*_._RETVAL___V1*/
11079         meltfptr[0] = /*_.LET___V8*/ meltfptr[6];;
11080
11081         {
11082             MELT_LOCATION("warmelt-outobj.melt:3795:/ locexp");
11083             /*ochecknores compilobj_nrep_return*/
11084 #if MELT_HAVE_DEBUG
11085             if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
11086                 melt_warn_for_no_expected_secondary_results();
11087             /* we warned when secondary results are expected but not returned. */
11088 #endif /*MELT_HAVE_DEBUG*/
11089             ;
11090         }
11091         ;
11092         /*^finalreturn*/
11093         ;
11094         /*finalret*/
11095         goto meltlabend_rout ;
11096         /*epilog*/
11097
11098         /*^clear*/
11099         /*clear*/ /*_.IFCPP___V5*/
11100         meltfptr[4] = 0 ;
11101         /*^clear*/
11102         /*clear*/ /*_.LET___V8*/
11103         meltfptr[6] = 0 ;
11104     }
11105
11106     ;
11107     goto meltlabend_rout;
11108 meltlabend_rout:
11109     melt_trace_end("OUTPUCOD_OBJGETNAMEDSYMBOL", meltcallcount);
11110     melt_blocklevel_signals = current_blocklevel_signals_meltrout_85_WARMELTmiOUTOBJ_OUTPUCOD_OBJGETNAMEDSYMBOL_melt;
11111     return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]);
11112 #undef meltcallcount
11113 #undef meltfram__
11114 #undef MELTFRAM_NBVARNUM
11115 #undef MELTFRAM_NBVARPTR
11116 } /*end meltrout_85_WARMELTmiOUTOBJ_OUTPUCOD_OBJGETNAMEDSYMBOL*/
11117
11118
11119
11120
11121
11122
11123 melt_ptr_t MELT_MODULE_VISIBILITY
11124 meltrout_86_WARMELTmiOUTOBJ_OUTPUCOD_OBJGETNAMEDKEYWORD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_,
11125         const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_)
11126 {
11127     long current_blocklevel_signals_meltrout_86_WARMELTmiOUTOBJ_OUTPUCOD_OBJGETNAMEDKEYWORD_melt =  melt_blocklevel_signals;
11128
11129 #if MELT_HAVE_DEBUG
11130     static long melt_call_counter__;
11131     long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__;
11132 #undef meltcallcount
11133 #define meltcallcount melt_thiscallcounter__
11134 #else
11135 #undef meltcallcount
11136 #define meltcallcount 0L
11137 #endif
11138 //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538
11139
11140     /* start of frame for routine meltrout_86_WARMELTmiOUTOBJ_OUTPUCOD_OBJGETNAMEDKEYWORD fromline 1752 */
11141
11142     /** start of frame for meltrout_86_WARMELTmiOUTOBJ_OUTPUCOD_OBJGETNAMEDKEYWORD of CLASS_PROCROUTINEOBJ from 1555**/
11143
11144     /*curframdeclclassy*/ class MeltFrame_meltrout_86_WARMELTmiOUTOBJ_OUTPUCOD_OBJGETNAMEDKEYWORD// fromline 1568
11145         : public Melt_CallFrameWithValues<30>
11146     {
11147     public: /* fromline 1572*/
11148         long mcfr_varnum[9];
11149         /*classy others*/
11150         long _meltsparel;
11151         void melt_mark_stuff (void)
11152         {
11153         } /*end melt_mark_stuff*/
11154         virtual void melt_mark_ggc_data (void)
11155         {
11156             melt_mark_values ();
11157             melt_mark_stuff ();
11158         }; /*end melt_mark_ggc_data*/
11159         MeltFrame_meltrout_86_WARMELTmiOUTOBJ_OUTPUCOD_OBJGETNAMEDKEYWORD(meltclosure_ptr_t clos) //the closure constructor fromline 1630
11160             : Melt_CallFrameWithValues<30> (
11161 #if ENABLE_CHECKING /*fromline 1634*/
11162                 __FILE__, __LINE__,
11163 #endif /* ENABLE_CHECKING fromline 1638*/
11164                 sizeof(MeltFrame_meltrout_86_WARMELTmiOUTOBJ_OUTPUCOD_OBJGETNAMEDKEYWORD), clos) {};
11165         MeltFrame_meltrout_86_WARMELTmiOUTOBJ_OUTPUCOD_OBJGETNAMEDKEYWORD() //the constructor fromline 1642
11166             : Melt_CallFrameWithValues<30> (
11167 #if ENABLE_CHECKING /*fromline 1646*/
11168                 __FILE__, __LINE__,
11169 #endif /* ENABLE_CHECKING fromline 1650*/
11170                 sizeof(MeltFrame_meltrout_86_WARMELTmiOUTOBJ_OUTPUCOD_OBJGETNAMEDKEYWORD)) {};
11171 #if ENABLE_CHECKING /*fromline 1654*/
11172         MeltFrame_meltrout_86_WARMELTmiOUTOBJ_OUTPUCOD_OBJGETNAMEDKEYWORD(const char*fil, int lin) //the constructor fromline 1656
11173             : Melt_CallFrameWithValues<30> (fil,lin, sizeof(MeltFrame_meltrout_86_WARMELTmiOUTOBJ_OUTPUCOD_OBJGETNAMEDKEYWORD)) {};
11174         MeltFrame_meltrout_86_WARMELTmiOUTOBJ_OUTPUCOD_OBJGETNAMEDKEYWORD(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661
11175             : Melt_CallFrameWithValues<30> (fil,lin, sizeof(MeltFrame_meltrout_86_WARMELTmiOUTOBJ_OUTPUCOD_OBJGETNAMEDKEYWORD), clos) {};
11176 #endif /* ENABLE_CHECKING fromline 1666*/
11177
11178     }; // end  class MeltFrame_meltrout_86_WARMELTmiOUTOBJ_OUTPUCOD_OBJGETNAMEDKEYWORD
11179
11180
11181     /** end of frame for meltrout_86_WARMELTmiOUTOBJ_OUTPUCOD_OBJGETNAMEDKEYWORD fromline 1697**/
11182
11183     /* end of frame for routine meltrout_86_WARMELTmiOUTOBJ_OUTPUCOD_OBJGETNAMEDKEYWORD fromline 1756 */
11184
11185     /* classy proc frame meltrout_86_WARMELTmiOUTOBJ_OUTPUCOD_OBJGETNAMEDKEYWORD */
11186     MeltFrame_meltrout_86_WARMELTmiOUTOBJ_OUTPUCOD_OBJGETNAMEDKEYWORD
11187     meltfram__ /*declfrastruct fromline 1780*/
11188     /*classyprocarg meltrout_86_WARMELTmiOUTOBJ_OUTPUCOD_OBJGETNAMEDKEYWORD fromline 1785*/
11189 #if ENABLE_CHECKING
11190     (__FILE__, __LINE__, meltclosp_) /* fromline 1789*/
11191 #else /*ENABLE_CHECKING */
11192     (meltclosp_) /* fromline 1793*/
11193 #endif /*ENABLE_CHECKING */
11194
11195     ;
11196 #define meltframe meltfram__
11197
11198     melt_trace_start("OUTPUCOD_OBJGETNAMEDKEYWORD", meltcallcount);
11199     /*use arguments*/
11200     (void) meltclosp_;
11201     (void)meltfirstargp_;
11202     (void)meltxargdescr_;
11203     (void)meltxargtab_;
11204     (void)meltxresdescr_;
11205     (void)meltxrestab_;
11206     /*getargs*/
11207
11208     /*getarg#0*/
11209     MELT_LOCATION("warmelt-outobj.melt:3846:/ getarg");
11210     /*_.OGKW__V2*/
11211     meltfptr[1] = (melt_ptr_t) meltfirstargp_;
11212
11213     /*getarg#1*/
11214     /*^getarg*/
11215     if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs;
11216     /*_.DECLBUF__V3*/
11217     meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
11218     gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2])) != NULL);
11219
11220
11221     /*getarg#2*/
11222     /*^getarg*/
11223     if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs;
11224     /*_.IMPLBUF__V4*/
11225     meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL;
11226     gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3])) != NULL);
11227
11228
11229     /*getarg#3*/
11230     /*^getarg*/
11231     if (meltxargdescr_[2] != MELTBPAR_LONG) goto meltlab_endgetargs;
11232     /*_#DEPTH__L1*/
11233     meltfnum[0] = meltxargtab_[2].meltbp_long;
11234     ;
11235     goto meltlab_endgetargs;
11236 meltlab_endgetargs:
11237     ;
11238     /*body*/
11239     /*^block*/
11240     /*anyblock*/
11241     {
11242
11243
11244 #if MELT_HAVE_DEBUG
11245         MELT_LOCATION("warmelt-outobj.melt:3847:/ cppif.then");
11246         /*^block*/
11247         /*anyblock*/
11248         {
11249
11250
11251             MELT_CHECK_SIGNAL();
11252             ;
11253             /*_#IS_A__L2*/
11254             meltfnum[1] =
11255                 melt_is_instance_of((melt_ptr_t)(/*_.OGKW__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_OBJGETNAMEDKEYWORD*/ meltfrout->tabval[0])));;
11256             MELT_LOCATION("warmelt-outobj.melt:3847:/ cond");
11257             /*cond*/
11258             if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/
11259                 {
11260                     /*^cond.then*/
11261                     /*_._IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);;
11262                 }
11263             else
11264                 {
11265                     MELT_LOCATION("warmelt-outobj.melt:3847:/ cond.else");
11266
11267                     /*^block*/
11268                     /*anyblock*/
11269                     {
11270
11271
11272                         MELT_CHECK_SIGNAL();
11273                         ;
11274                         /*^apply*/
11275                         /*apply*/
11276                         {
11277                             union meltparam_un argtab[4];
11278                             memset(&argtab, 0, sizeof(argtab));
11279                             /*^apply.arg*/
11280                             argtab[0].meltbp_cstring =  "check ogkw";
11281                             /*^apply.arg*/
11282                             argtab[1].meltbp_cstring =  "warmelt-outobj.melt";
11283                             /*^apply.arg*/
11284                             argtab[2].meltbp_long = 3847;
11285                             /*^apply.arg*/
11286                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OGKW__V2*/ meltfptr[1];
11287                             /*_.MELT_ASSERT_FAILURE_FUN__V7*/
11288                             meltfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
11289                         }
11290                         ;
11291                         /*_._IFELSE___V6*/
11292                         meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6];;
11293                         /*epilog*/
11294
11295                         MELT_LOCATION("warmelt-outobj.melt:3847:/ clear");
11296                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V7*/
11297                         meltfptr[6] = 0 ;
11298                     }
11299                     ;
11300                 }
11301             ;
11302             /*_.IFCPP___V5*/
11303             meltfptr[4] = /*_._IFELSE___V6*/ meltfptr[5];;
11304             /*epilog*/
11305
11306             MELT_LOCATION("warmelt-outobj.melt:3847:/ clear");
11307             /*clear*/ /*_#IS_A__L2*/
11308             meltfnum[1] = 0 ;
11309             /*^clear*/
11310             /*clear*/ /*_._IFELSE___V6*/
11311             meltfptr[5] = 0 ;
11312         }
11313
11314 #else /*MELT_HAVE_DEBUG*/
11315         /*^cppif.else*/
11316         /*_.IFCPP___V5*/ meltfptr[4] = (/*nil*/NULL);
11317 #endif /*MELT_HAVE_DEBUG*/
11318         ;
11319         MELT_LOCATION("warmelt-outobj.melt:3848:/ quasiblock");
11320
11321
11322         /*^getslot*/
11323         {
11324             melt_ptr_t slot=NULL, obj=NULL;
11325             obj = (melt_ptr_t)(/*_.OGKW__V2*/ meltfptr[1]) /*=obj*/;
11326             melt_object_get_field(slot,obj, 0, "OBI_LOC");
11327             /*_.CLOC__V9*/
11328             meltfptr[5] = slot;
11329         };
11330         ;
11331         MELT_LOCATION("warmelt-outobj.melt:3849:/ getslot");
11332         {
11333             melt_ptr_t slot=NULL, obj=NULL;
11334             obj = (melt_ptr_t)(/*_.OGKW__V2*/ meltfptr[1]) /*=obj*/;
11335             melt_object_get_field(slot,obj, 1, "OBGNAMED_IOBJ");
11336             /*_.OIOBJ__V10*/
11337             meltfptr[9] = slot;
11338         };
11339         ;
11340         MELT_LOCATION("warmelt-outobj.melt:3850:/ getslot");
11341         {
11342             melt_ptr_t slot=NULL, obj=NULL;
11343             obj = (melt_ptr_t)(/*_.OIOBJ__V10*/ meltfptr[9]) /*=obj*/;
11344             melt_object_get_field(slot,obj, 2, "OIE_DATA");
11345             /*_.OGDAT__V11*/
11346             meltfptr[10] = slot;
11347         };
11348         ;
11349         MELT_LOCATION("warmelt-outobj.melt:3851:/ getslot");
11350         {
11351             melt_ptr_t slot=NULL, obj=NULL;
11352             obj = (melt_ptr_t)(/*_.OIOBJ__V10*/ meltfptr[9]) /*=obj*/;
11353             melt_object_get_field(slot,obj, 4, "OIE_LOCVAR");
11354             /*_.OILOCV__V12*/
11355             meltfptr[11] = slot;
11356         };
11357         ;
11358
11359 #if MELT_HAVE_DEBUG
11360         MELT_LOCATION("warmelt-outobj.melt:3853:/ cppif.then");
11361         /*^block*/
11362         /*anyblock*/
11363         {
11364
11365
11366             MELT_CHECK_SIGNAL();
11367             ;
11368             /*_#IS_A__L3*/
11369             meltfnum[1] =
11370                 melt_is_instance_of((melt_ptr_t)(/*_.OIOBJ__V10*/ meltfptr[9]), (melt_ptr_t)((/*!CLASS_OBJINITOBJECT*/ meltfrout->tabval[2])));;
11371             MELT_LOCATION("warmelt-outobj.melt:3853:/ cond");
11372             /*cond*/
11373             if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/
11374                 {
11375                     /*^cond.then*/
11376                     /*_._IFELSE___V14*/ meltfptr[13] = (/*nil*/NULL);;
11377                 }
11378             else
11379                 {
11380                     MELT_LOCATION("warmelt-outobj.melt:3853:/ cond.else");
11381
11382                     /*^block*/
11383                     /*anyblock*/
11384                     {
11385
11386
11387                         MELT_CHECK_SIGNAL();
11388                         ;
11389                         /*^apply*/
11390                         /*apply*/
11391                         {
11392                             union meltparam_un argtab[4];
11393                             memset(&argtab, 0, sizeof(argtab));
11394                             /*^apply.arg*/
11395                             argtab[0].meltbp_cstring =  "check oiobj";
11396                             /*^apply.arg*/
11397                             argtab[1].meltbp_cstring =  "warmelt-outobj.melt";
11398                             /*^apply.arg*/
11399                             argtab[2].meltbp_long = 3853;
11400                             /*^apply.arg*/
11401                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OIOBJ__V10*/ meltfptr[9];
11402                             /*_.MELT_ASSERT_FAILURE_FUN__V15*/
11403                             meltfptr[14] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
11404                         }
11405                         ;
11406                         /*_._IFELSE___V14*/
11407                         meltfptr[13] = /*_.MELT_ASSERT_FAILURE_FUN__V15*/ meltfptr[14];;
11408                         /*epilog*/
11409
11410                         MELT_LOCATION("warmelt-outobj.melt:3853:/ clear");
11411                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V15*/
11412                         meltfptr[14] = 0 ;
11413                     }
11414                     ;
11415                 }
11416             ;
11417             /*_.IFCPP___V13*/
11418             meltfptr[12] = /*_._IFELSE___V14*/ meltfptr[13];;
11419             /*epilog*/
11420
11421             MELT_LOCATION("warmelt-outobj.melt:3853:/ clear");
11422             /*clear*/ /*_#IS_A__L3*/
11423             meltfnum[1] = 0 ;
11424             /*^clear*/
11425             /*clear*/ /*_._IFELSE___V14*/
11426             meltfptr[13] = 0 ;
11427         }
11428
11429 #else /*MELT_HAVE_DEBUG*/
11430         /*^cppif.else*/
11431         /*_.IFCPP___V13*/ meltfptr[12] = (/*nil*/NULL);
11432 #endif /*MELT_HAVE_DEBUG*/
11433         ;
11434
11435 #if MELT_HAVE_DEBUG
11436         MELT_LOCATION("warmelt-outobj.melt:3854:/ cppif.then");
11437         /*^block*/
11438         /*anyblock*/
11439         {
11440
11441
11442             MELT_CHECK_SIGNAL();
11443             ;
11444             /*_#IS_A__L4*/
11445             meltfnum[1] =
11446                 melt_is_instance_of((melt_ptr_t)(/*_.OGDAT__V11*/ meltfptr[10]), (melt_ptr_t)((/*!CLASS_NREP_DATAKEYWORD*/ meltfrout->tabval[3])));;
11447             MELT_LOCATION("warmelt-outobj.melt:3854:/ cond");
11448             /*cond*/
11449             if (/*_#IS_A__L4*/ meltfnum[1]) /*then*/
11450                 {
11451                     /*^cond.then*/
11452                     /*_._IFELSE___V17*/ meltfptr[13] = (/*nil*/NULL);;
11453                 }
11454             else
11455                 {
11456                     MELT_LOCATION("warmelt-outobj.melt:3854:/ cond.else");
11457
11458                     /*^block*/
11459                     /*anyblock*/
11460                     {
11461
11462
11463                         MELT_CHECK_SIGNAL();
11464                         ;
11465                         /*^apply*/
11466                         /*apply*/
11467                         {
11468                             union meltparam_un argtab[4];
11469                             memset(&argtab, 0, sizeof(argtab));
11470                             /*^apply.arg*/
11471                             argtab[0].meltbp_cstring =  "check ogdat";
11472                             /*^apply.arg*/
11473                             argtab[1].meltbp_cstring =  "warmelt-outobj.melt";
11474                             /*^apply.arg*/
11475                             argtab[2].meltbp_long = 3854;
11476                             /*^apply.arg*/
11477                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OGDAT__V11*/ meltfptr[10];
11478                             /*_.MELT_ASSERT_FAILURE_FUN__V18*/
11479                             meltfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
11480                         }
11481                         ;
11482                         /*_._IFELSE___V17*/
11483                         meltfptr[13] = /*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17];;
11484                         /*epilog*/
11485
11486                         MELT_LOCATION("warmelt-outobj.melt:3854:/ clear");
11487                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V18*/
11488                         meltfptr[17] = 0 ;
11489                     }
11490                     ;
11491                 }
11492             ;
11493             /*_.IFCPP___V16*/
11494             meltfptr[14] = /*_._IFELSE___V17*/ meltfptr[13];;
11495             /*epilog*/
11496
11497             MELT_LOCATION("warmelt-outobj.melt:3854:/ clear");
11498             /*clear*/ /*_#IS_A__L4*/
11499             meltfnum[1] = 0 ;
11500             /*^clear*/
11501             /*clear*/ /*_._IFELSE___V17*/
11502             meltfptr[13] = 0 ;
11503         }
11504
11505 #else /*MELT_HAVE_DEBUG*/
11506         /*^cppif.else*/
11507         /*_.IFCPP___V16*/ meltfptr[14] = (/*nil*/NULL);
11508 #endif /*MELT_HAVE_DEBUG*/
11509         ;
11510
11511         MELT_CHECK_SIGNAL();
11512         ;
11513         MELT_LOCATION("warmelt-outobj.melt:73:/ cond");
11514         /*cond*/
11515         if ( (melt_module_var_fetch (meltmodvarix_FLAGVAL_OUTPUT_DESCR_COMMENT_symb))) /*then*/
11516             {
11517                 /*^cond.then*/
11518                 /*^block*/
11519                 /*anyblock*/
11520                 {
11521
11522
11523                     MELT_CHECK_SIGNAL();
11524                     ;
11525                     /*^apply*/
11526                     /*apply*/
11527                     {
11528                         union meltparam_un argtab[1];
11529                         memset(&argtab, 0, sizeof(argtab));
11530                         /*^apply.arg*/
11531                         argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.OGKW__V2*/ meltfptr[1];
11532                         /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V20*/
11533                         meltfptr[13] =  melt_apply ((meltclosure_ptr_t)((/*!DO_OUTPUT_DESCRIPTIVE_COMMENT*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
11534                     }
11535                     ;
11536                     /*_._IF___V19*/
11537                     meltfptr[17] = /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V20*/ meltfptr[13];;
11538                     /*epilog*/
11539
11540                     MELT_LOCATION("warmelt-outobj.melt:73:/ clear");
11541                     /*clear*/ /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V20*/
11542                     meltfptr[13] = 0 ;
11543                 }
11544                 ;
11545             }
11546         else    /*^cond.else*/
11547             {
11548
11549                 /*_._IF___V19*/ meltfptr[17] =  /*reallynil*/ NULL ;;
11550             }
11551         ;
11552         MELT_LOCATION("warmelt-outobj.melt:3856:/ quasiblock");
11553
11554
11555         /*^getslot*/
11556         {
11557             melt_ptr_t slot=NULL, obj=NULL;
11558             obj = (melt_ptr_t)(/*_.OGDAT__V11*/ meltfptr[10]) /*=obj*/;
11559             melt_object_get_field(slot,obj, 9, "NDSY_NAMESTR");
11560             /*_.NKW__V22*/
11561             meltfptr[21] = slot;
11562         };
11563         ;
11564
11565         MELT_CHECK_SIGNAL();
11566         ;
11567         MELT_LOCATION("warmelt-outobj.melt:3857:/ cond");
11568         /*cond*/
11569         if (/*_.CLOC__V9*/ meltfptr[5]) /*then*/
11570             {
11571                 /*^cond.then*/
11572                 /*_._IFELSE___V23*/ meltfptr[22] = /*_.CLOC__V9*/ meltfptr[5];;
11573             }
11574         else
11575             {
11576                 MELT_LOCATION("warmelt-outobj.melt:3857:/ cond.else");
11577
11578                 /*^block*/
11579                 /*anyblock*/
11580                 {
11581
11582                     /*^getslot*/
11583                     {
11584                         melt_ptr_t slot=NULL, obj=NULL;
11585                         obj = (melt_ptr_t)(/*_.OGDAT__V11*/ meltfptr[10]) /*=obj*/;
11586                         melt_object_get_field(slot,obj, 0, "NREP_LOC");
11587                         /*_.NREP_LOC__V24*/
11588                         meltfptr[23] = slot;
11589                     };
11590                     ;
11591                     /*_._IFELSE___V23*/
11592                     meltfptr[22] = /*_.NREP_LOC__V24*/ meltfptr[23];;
11593                     /*epilog*/
11594
11595                     MELT_LOCATION("warmelt-outobj.melt:3857:/ clear");
11596                     /*clear*/ /*_.NREP_LOC__V24*/
11597                     meltfptr[23] = 0 ;
11598                 }
11599                 ;
11600             }
11601         ;
11602
11603         MELT_CHECK_SIGNAL();
11604         ;
11605         /*^apply*/
11606         /*apply*/
11607         {
11608             union meltparam_un argtab[3];
11609             memset(&argtab, 0, sizeof(argtab));
11610             /*^apply.arg*/
11611             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
11612             /*^apply.arg*/
11613             argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0];
11614             /*^apply.arg*/
11615             argtab[2].meltbp_cstring =  "getnamedkeyword";
11616             /*_.OUTPUT_LOCATION__V25*/
11617             meltfptr[23] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_._IFELSE___V23*/ meltfptr[22]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
11618         }
11619         ;
11620
11621         {
11622             MELT_LOCATION("warmelt-outobj.melt:3858:/ locexp");
11623             /*add2sbuf_strconst*/
11624             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "/*getnamedkeyw:"));
11625         }
11626         ;
11627
11628         {
11629             MELT_LOCATION("warmelt-outobj.melt:3859:/ locexp");
11630             /*add2sbuf_string*/
11631             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]),
11632                               melt_string_str((melt_ptr_t)(/*_.NKW__V22*/ meltfptr[21])));
11633         }
11634         ;
11635
11636         {
11637             MELT_LOCATION("warmelt-outobj.melt:3860:/ locexp");
11638             /*add2sbuf_strconst*/
11639             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "*/"));
11640         }
11641         ;
11642
11643         {
11644             MELT_LOCATION("warmelt-outobj.melt:3861:/ locexp");
11645             meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#DEPTH__L1*/ meltfnum[0]), 0);
11646         }
11647         ;
11648
11649         {
11650             MELT_LOCATION("warmelt-outobj.melt:3862:/ locexp");
11651             /*add2sbuf_strconst*/
11652             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "{ melt_ptr_t kw_"));
11653         }
11654         ;
11655
11656         {
11657             MELT_LOCATION("warmelt-outobj.melt:3863:/ locexp");
11658             meltgc_add_strbuf_cident((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]),
11659                                      melt_string_str((melt_ptr_t)(/*_.NKW__V22*/ meltfptr[21])));
11660         }
11661         ;
11662
11663         {
11664             MELT_LOCATION("warmelt-outobj.melt:3864:/ locexp");
11665             /*add2sbuf_strconst*/
11666             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( " = melthookproc_HOOK_NAMED_KEYWORD (\""));
11667         }
11668         ;
11669
11670         {
11671             MELT_LOCATION("warmelt-outobj.melt:3865:/ locexp");
11672             /*add2sbuf_string*/
11673             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]),
11674                               melt_string_str((melt_ptr_t)(/*_.NKW__V22*/ meltfptr[21])));
11675         }
11676         ;
11677
11678         {
11679             MELT_LOCATION("warmelt-outobj.melt:3866:/ locexp");
11680             /*add2sbuf_strconst*/
11681             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "\", (long) MELT_GET);"));
11682         }
11683         ;
11684         /*_#plI__L5*/
11685         meltfnum[1] =
11686             ((/*_#DEPTH__L1*/ meltfnum[0]) + (1));;
11687
11688         {
11689             MELT_LOCATION("warmelt-outobj.melt:3867:/ locexp");
11690             meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#plI__L5*/ meltfnum[1]), 0);
11691         }
11692         ;
11693
11694         {
11695             MELT_LOCATION("warmelt-outobj.melt:3868:/ locexp");
11696             /*add2sbuf_strconst*/
11697             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "if (kw_"));
11698         }
11699         ;
11700
11701         {
11702             MELT_LOCATION("warmelt-outobj.melt:3869:/ locexp");
11703             meltgc_add_strbuf_cident((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]),
11704                                      melt_string_str((melt_ptr_t)(/*_.NKW__V22*/ meltfptr[21])));
11705         }
11706         ;
11707
11708         {
11709             MELT_LOCATION("warmelt-outobj.melt:3870:/ locexp");
11710             /*add2sbuf_strconst*/
11711             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( ") "));
11712         }
11713         ;
11714         /*_#plI__L6*/
11715         meltfnum[5] =
11716             ((/*_#DEPTH__L1*/ meltfnum[0]) + (1));;
11717
11718         MELT_CHECK_SIGNAL();
11719         ;
11720         MELT_LOCATION("warmelt-outobj.melt:3871:/ msend");
11721         /*msend*/
11722         {
11723             union meltparam_un argtab[3];
11724             memset(&argtab, 0, sizeof(argtab));
11725             /*^ojbmsend.arg*/
11726             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2];
11727             /*^ojbmsend.arg*/
11728             argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
11729             /*^ojbmsend.arg*/
11730             argtab[2].meltbp_long = /*_#plI__L6*/ meltfnum[5];
11731             /*_.OUTPUT_C_CODE__V26*/
11732             meltfptr[25] = meltgc_send((melt_ptr_t)(/*_.OILOCV__V12*/ meltfptr[11]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[6])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
11733         }
11734         ;
11735
11736         {
11737             MELT_LOCATION("warmelt-outobj.melt:3872:/ locexp");
11738             /*add2sbuf_strconst*/
11739             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( " = (melt_ptr_t) kw_"));
11740         }
11741         ;
11742
11743         {
11744             MELT_LOCATION("warmelt-outobj.melt:3873:/ locexp");
11745             meltgc_add_strbuf_cident((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]),
11746                                      melt_string_str((melt_ptr_t)(/*_.NKW__V22*/ meltfptr[21])));
11747         }
11748         ;
11749
11750         {
11751             MELT_LOCATION("warmelt-outobj.melt:3874:/ locexp");
11752             /*add2sbuf_strconst*/
11753             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "; }"));
11754         }
11755         ;
11756
11757         {
11758             MELT_LOCATION("warmelt-outobj.melt:3875:/ locexp");
11759             meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#DEPTH__L1*/ meltfnum[0]), 0);
11760         }
11761         ;
11762
11763 #if MELT_HAVE_DEBUG
11764         MELT_LOCATION("warmelt-outobj.melt:3876:/ cppif.then");
11765         /*^block*/
11766         /*anyblock*/
11767         {
11768
11769
11770             MELT_CHECK_SIGNAL();
11771             ;
11772             /*_#STRBUF_USEDLENGTH__L7*/
11773             meltfnum[6] =
11774                 melt_strbuf_usedlength((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]));;
11775             MELT_LOCATION("warmelt-outobj.melt:3877:/ cond");
11776             /*cond*/
11777             if (
11778                 /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[7])),
11779                                               (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[8])))
11780             ) /*then*/
11781                 {
11782                     /*^cond.then*/
11783                     /*^getslot*/
11784                     {
11785                         melt_ptr_t slot=NULL, obj=NULL;
11786                         obj = (melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[7])) /*=obj*/;
11787                         melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE");
11788                         /*_.REFERENCED_VALUE__V28*/
11789                         meltfptr[27] = slot;
11790                     };
11791                     ;
11792                 }
11793             else    /*^cond.else*/
11794                 {
11795
11796                     /*_.REFERENCED_VALUE__V28*/ meltfptr[27] =  /*reallynil*/ NULL ;;
11797                 }
11798             ;
11799             /*^compute*/
11800             /*_#GET_INT__L8*/
11801             meltfnum[7] =
11802                 (melt_get_int((melt_ptr_t)(/*_.REFERENCED_VALUE__V28*/ meltfptr[27])));;
11803             /*^compute*/
11804             /*_#ltI__L9*/
11805             meltfnum[8] =
11806                 ((/*_#STRBUF_USEDLENGTH__L7*/ meltfnum[6]) < (/*_#GET_INT__L8*/ meltfnum[7]));;
11807             MELT_LOCATION("warmelt-outobj.melt:3876:/ cond");
11808             /*cond*/
11809             if (/*_#ltI__L9*/ meltfnum[8]) /*then*/
11810                 {
11811                     /*^cond.then*/
11812                     /*_._IFELSE___V29*/ meltfptr[28] = (/*nil*/NULL);;
11813                 }
11814             else
11815                 {
11816                     MELT_LOCATION("warmelt-outobj.melt:3876:/ cond.else");
11817
11818                     /*^block*/
11819                     /*anyblock*/
11820                     {
11821
11822
11823                         MELT_CHECK_SIGNAL();
11824                         ;
11825                         /*^apply*/
11826                         /*apply*/
11827                         {
11828                             union meltparam_un argtab[4];
11829                             memset(&argtab, 0, sizeof(argtab));
11830                             /*^apply.arg*/
11831                             argtab[0].meltbp_cstring =  "check limited implbuf";
11832                             /*^apply.arg*/
11833                             argtab[1].meltbp_cstring =  "warmelt-outobj.melt";
11834                             /*^apply.arg*/
11835                             argtab[2].meltbp_long = 3876;
11836                             /*^apply.arg*/
11837                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
11838                             /*_.MELT_ASSERT_FAILURE_FUN__V30*/
11839                             meltfptr[29] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
11840                         }
11841                         ;
11842                         /*_._IFELSE___V29*/
11843                         meltfptr[28] = /*_.MELT_ASSERT_FAILURE_FUN__V30*/ meltfptr[29];;
11844                         /*epilog*/
11845
11846                         MELT_LOCATION("warmelt-outobj.melt:3876:/ clear");
11847                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V30*/
11848                         meltfptr[29] = 0 ;
11849                     }
11850                     ;
11851                 }
11852             ;
11853             /*_.IFCPP___V27*/
11854             meltfptr[26] = /*_._IFELSE___V29*/ meltfptr[28];;
11855             /*epilog*/
11856
11857             MELT_LOCATION("warmelt-outobj.melt:3876:/ clear");
11858             /*clear*/ /*_#STRBUF_USEDLENGTH__L7*/
11859             meltfnum[6] = 0 ;
11860             /*^clear*/
11861             /*clear*/ /*_.REFERENCED_VALUE__V28*/
11862             meltfptr[27] = 0 ;
11863             /*^clear*/
11864             /*clear*/ /*_#GET_INT__L8*/
11865             meltfnum[7] = 0 ;
11866             /*^clear*/
11867             /*clear*/ /*_#ltI__L9*/
11868             meltfnum[8] = 0 ;
11869             /*^clear*/
11870             /*clear*/ /*_._IFELSE___V29*/
11871             meltfptr[28] = 0 ;
11872         }
11873
11874 #else /*MELT_HAVE_DEBUG*/
11875         /*^cppif.else*/
11876         /*_.IFCPP___V27*/ meltfptr[26] = (/*nil*/NULL);
11877 #endif /*MELT_HAVE_DEBUG*/
11878         ;
11879         /*^compute*/
11880         /*_.LET___V21*/
11881         meltfptr[13] = /*_.IFCPP___V27*/ meltfptr[26];;
11882
11883         MELT_LOCATION("warmelt-outobj.melt:3856:/ clear");
11884         /*clear*/ /*_.NKW__V22*/
11885         meltfptr[21] = 0 ;
11886         /*^clear*/
11887         /*clear*/ /*_._IFELSE___V23*/
11888         meltfptr[22] = 0 ;
11889         /*^clear*/
11890         /*clear*/ /*_.OUTPUT_LOCATION__V25*/
11891         meltfptr[23] = 0 ;
11892         /*^clear*/
11893         /*clear*/ /*_#plI__L5*/
11894         meltfnum[1] = 0 ;
11895         /*^clear*/
11896         /*clear*/ /*_#plI__L6*/
11897         meltfnum[5] = 0 ;
11898         /*^clear*/
11899         /*clear*/ /*_.OUTPUT_C_CODE__V26*/
11900         meltfptr[25] = 0 ;
11901         /*^clear*/
11902         /*clear*/ /*_.IFCPP___V27*/
11903         meltfptr[26] = 0 ;
11904         /*_.LET___V8*/
11905         meltfptr[6] = /*_.LET___V21*/ meltfptr[13];;
11906
11907         MELT_LOCATION("warmelt-outobj.melt:3848:/ clear");
11908         /*clear*/ /*_.CLOC__V9*/
11909         meltfptr[5] = 0 ;
11910         /*^clear*/
11911         /*clear*/ /*_.OIOBJ__V10*/
11912         meltfptr[9] = 0 ;
11913         /*^clear*/
11914         /*clear*/ /*_.OGDAT__V11*/
11915         meltfptr[10] = 0 ;
11916         /*^clear*/
11917         /*clear*/ /*_.OILOCV__V12*/
11918         meltfptr[11] = 0 ;
11919         /*^clear*/
11920         /*clear*/ /*_.IFCPP___V13*/
11921         meltfptr[12] = 0 ;
11922         /*^clear*/
11923         /*clear*/ /*_.IFCPP___V16*/
11924         meltfptr[14] = 0 ;
11925         /*^clear*/
11926         /*clear*/ /*_._IF___V19*/
11927         meltfptr[17] = 0 ;
11928         /*^clear*/
11929         /*clear*/ /*_.LET___V21*/
11930         meltfptr[13] = 0 ;
11931
11932         MELT_CHECK_SIGNAL();
11933         ;
11934         MELT_LOCATION("warmelt-outobj.melt:3846:/ quasiblock");
11935
11936
11937         /*_._RETVAL___V1*/
11938         meltfptr[0] = /*_.LET___V8*/ meltfptr[6];;
11939
11940         {
11941             MELT_LOCATION("warmelt-outobj.melt:3846:/ locexp");
11942             /*ochecknores compilobj_nrep_return*/
11943 #if MELT_HAVE_DEBUG
11944             if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
11945                 melt_warn_for_no_expected_secondary_results();
11946             /* we warned when secondary results are expected but not returned. */
11947 #endif /*MELT_HAVE_DEBUG*/
11948             ;
11949         }
11950         ;
11951         /*^finalreturn*/
11952         ;
11953         /*finalret*/
11954         goto meltlabend_rout ;
11955         /*epilog*/
11956
11957         /*^clear*/
11958         /*clear*/ /*_.IFCPP___V5*/
11959         meltfptr[4] = 0 ;
11960         /*^clear*/
11961         /*clear*/ /*_.LET___V8*/
11962         meltfptr[6] = 0 ;
11963     }
11964
11965     ;
11966     goto meltlabend_rout;
11967 meltlabend_rout:
11968     melt_trace_end("OUTPUCOD_OBJGETNAMEDKEYWORD", meltcallcount);
11969     melt_blocklevel_signals = current_blocklevel_signals_meltrout_86_WARMELTmiOUTOBJ_OUTPUCOD_OBJGETNAMEDKEYWORD_melt;
11970     return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]);
11971 #undef meltcallcount
11972 #undef meltfram__
11973 #undef MELTFRAM_NBVARNUM
11974 #undef MELTFRAM_NBVARPTR
11975 } /*end meltrout_86_WARMELTmiOUTOBJ_OUTPUCOD_OBJGETNAMEDKEYWORD*/
11976
11977
11978
11979
11980
11981
11982 melt_ptr_t MELT_MODULE_VISIBILITY
11983 meltrout_87_WARMELTmiOUTOBJ_OUTPUCOD_OBJAPPLY(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_,
11984         const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_)
11985 {
11986     long current_blocklevel_signals_meltrout_87_WARMELTmiOUTOBJ_OUTPUCOD_OBJAPPLY_melt =  melt_blocklevel_signals;
11987
11988 #if MELT_HAVE_DEBUG
11989     static long melt_call_counter__;
11990     long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__;
11991 #undef meltcallcount
11992 #define meltcallcount melt_thiscallcounter__
11993 #else
11994 #undef meltcallcount
11995 #define meltcallcount 0L
11996 #endif
11997 //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538
11998
11999     /* start of frame for routine meltrout_87_WARMELTmiOUTOBJ_OUTPUCOD_OBJAPPLY fromline 1752 */
12000
12001     /** start of frame for meltrout_87_WARMELTmiOUTOBJ_OUTPUCOD_OBJAPPLY of CLASS_PROCROUTINEOBJ from 1555**/
12002
12003     /*curframdeclclassy*/ class MeltFrame_meltrout_87_WARMELTmiOUTOBJ_OUTPUCOD_OBJAPPLY// fromline 1568
12004         : public Melt_CallFrameWithValues<62>
12005     {
12006     public: /* fromline 1572*/
12007         long mcfr_varnum[45];
12008         /*classy others*/
12009         long _meltsparel;
12010         void melt_mark_stuff (void)
12011         {
12012         } /*end melt_mark_stuff*/
12013         virtual void melt_mark_ggc_data (void)
12014         {
12015             melt_mark_values ();
12016             melt_mark_stuff ();
12017         }; /*end melt_mark_ggc_data*/
12018         MeltFrame_meltrout_87_WARMELTmiOUTOBJ_OUTPUCOD_OBJAPPLY(meltclosure_ptr_t clos) //the closure constructor fromline 1630
12019             : Melt_CallFrameWithValues<62> (
12020 #if ENABLE_CHECKING /*fromline 1634*/
12021                 __FILE__, __LINE__,
12022 #endif /* ENABLE_CHECKING fromline 1638*/
12023                 sizeof(MeltFrame_meltrout_87_WARMELTmiOUTOBJ_OUTPUCOD_OBJAPPLY), clos) {};
12024         MeltFrame_meltrout_87_WARMELTmiOUTOBJ_OUTPUCOD_OBJAPPLY() //the constructor fromline 1642
12025             : Melt_CallFrameWithValues<62> (
12026 #if ENABLE_CHECKING /*fromline 1646*/
12027                 __FILE__, __LINE__,
12028 #endif /* ENABLE_CHECKING fromline 1650*/
12029                 sizeof(MeltFrame_meltrout_87_WARMELTmiOUTOBJ_OUTPUCOD_OBJAPPLY)) {};
12030 #if ENABLE_CHECKING /*fromline 1654*/
12031         MeltFrame_meltrout_87_WARMELTmiOUTOBJ_OUTPUCOD_OBJAPPLY(const char*fil, int lin) //the constructor fromline 1656
12032             : Melt_CallFrameWithValues<62> (fil,lin, sizeof(MeltFrame_meltrout_87_WARMELTmiOUTOBJ_OUTPUCOD_OBJAPPLY)) {};
12033         MeltFrame_meltrout_87_WARMELTmiOUTOBJ_OUTPUCOD_OBJAPPLY(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661
12034             : Melt_CallFrameWithValues<62> (fil,lin, sizeof(MeltFrame_meltrout_87_WARMELTmiOUTOBJ_OUTPUCOD_OBJAPPLY), clos) {};
12035 #endif /* ENABLE_CHECKING fromline 1666*/
12036
12037     }; // end  class MeltFrame_meltrout_87_WARMELTmiOUTOBJ_OUTPUCOD_OBJAPPLY
12038
12039
12040     /** end of frame for meltrout_87_WARMELTmiOUTOBJ_OUTPUCOD_OBJAPPLY fromline 1697**/
12041
12042     /* end of frame for routine meltrout_87_WARMELTmiOUTOBJ_OUTPUCOD_OBJAPPLY fromline 1756 */
12043
12044     /* classy proc frame meltrout_87_WARMELTmiOUTOBJ_OUTPUCOD_OBJAPPLY */
12045     MeltFrame_meltrout_87_WARMELTmiOUTOBJ_OUTPUCOD_OBJAPPLY
12046     meltfram__ /*declfrastruct fromline 1780*/
12047     /*classyprocarg meltrout_87_WARMELTmiOUTOBJ_OUTPUCOD_OBJAPPLY fromline 1785*/
12048 #if ENABLE_CHECKING
12049     (__FILE__, __LINE__, meltclosp_) /* fromline 1789*/
12050 #else /*ENABLE_CHECKING */
12051     (meltclosp_) /* fromline 1793*/
12052 #endif /*ENABLE_CHECKING */
12053
12054     ;
12055 #define meltframe meltfram__
12056
12057     melt_trace_start("OUTPUCOD_OBJAPPLY", meltcallcount);
12058     /*use arguments*/
12059     (void) meltclosp_;
12060     (void)meltfirstargp_;
12061     (void)meltxargdescr_;
12062     (void)meltxargtab_;
12063     (void)meltxresdescr_;
12064     (void)meltxrestab_;
12065     /*getargs*/
12066
12067     /*getarg#0*/
12068     MELT_LOCATION("warmelt-outobj.melt:3883:/ getarg");
12069     /*_.OAPP__V2*/
12070     meltfptr[1] = (melt_ptr_t) meltfirstargp_;
12071
12072     /*getarg#1*/
12073     /*^getarg*/
12074     if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs;
12075     /*_.DECLBUF__V3*/
12076     meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
12077     gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2])) != NULL);
12078
12079
12080     /*getarg#2*/
12081     /*^getarg*/
12082     if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs;
12083     /*_.IMPLBUF__V4*/
12084     meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL;
12085     gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3])) != NULL);
12086
12087
12088     /*getarg#3*/
12089     /*^getarg*/
12090     if (meltxargdescr_[2] != MELTBPAR_LONG) goto meltlab_endgetargs;
12091     /*_#DEPTH__L1*/
12092     meltfnum[0] = meltxargtab_[2].meltbp_long;
12093     ;
12094     goto meltlab_endgetargs;
12095 meltlab_endgetargs:
12096     ;
12097     /*body*/
12098     /*^block*/
12099     /*anyblock*/
12100     {
12101
12102
12103 #if MELT_HAVE_DEBUG
12104         MELT_LOCATION("warmelt-outobj.melt:3884:/ cppif.then");
12105         /*^block*/
12106         /*anyblock*/
12107         {
12108
12109
12110             MELT_CHECK_SIGNAL();
12111             ;
12112             /*_#IS_A__L2*/
12113             meltfnum[1] =
12114                 melt_is_instance_of((melt_ptr_t)(/*_.OAPP__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_OBJAPPLY*/ meltfrout->tabval[0])));;
12115             MELT_LOCATION("warmelt-outobj.melt:3884:/ cond");
12116             /*cond*/
12117             if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/
12118                 {
12119                     /*^cond.then*/
12120                     /*_._IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);;
12121                 }
12122             else
12123                 {
12124                     MELT_LOCATION("warmelt-outobj.melt:3884:/ cond.else");
12125
12126                     /*^block*/
12127                     /*anyblock*/
12128                     {
12129
12130
12131                         MELT_CHECK_SIGNAL();
12132                         ;
12133                         /*^apply*/
12134                         /*apply*/
12135                         {
12136                             union meltparam_un argtab[4];
12137                             memset(&argtab, 0, sizeof(argtab));
12138                             /*^apply.arg*/
12139                             argtab[0].meltbp_cstring =  "check oapp";
12140                             /*^apply.arg*/
12141                             argtab[1].meltbp_cstring =  "warmelt-outobj.melt";
12142                             /*^apply.arg*/
12143                             argtab[2].meltbp_long = 3884;
12144                             /*^apply.arg*/
12145                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OAPP__V2*/ meltfptr[1];
12146                             /*_.MELT_ASSERT_FAILURE_FUN__V7*/
12147                             meltfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
12148                         }
12149                         ;
12150                         /*_._IFELSE___V6*/
12151                         meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6];;
12152                         /*epilog*/
12153
12154                         MELT_LOCATION("warmelt-outobj.melt:3884:/ clear");
12155                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V7*/
12156                         meltfptr[6] = 0 ;
12157                     }
12158                     ;
12159                 }
12160             ;
12161             /*_.IFCPP___V5*/
12162             meltfptr[4] = /*_._IFELSE___V6*/ meltfptr[5];;
12163             /*epilog*/
12164
12165             MELT_LOCATION("warmelt-outobj.melt:3884:/ clear");
12166             /*clear*/ /*_#IS_A__L2*/
12167             meltfnum[1] = 0 ;
12168             /*^clear*/
12169             /*clear*/ /*_._IFELSE___V6*/
12170             meltfptr[5] = 0 ;
12171         }
12172
12173 #else /*MELT_HAVE_DEBUG*/
12174         /*^cppif.else*/
12175         /*_.IFCPP___V5*/ meltfptr[4] = (/*nil*/NULL);
12176 #endif /*MELT_HAVE_DEBUG*/
12177         ;
12178         MELT_LOCATION("warmelt-outobj.melt:3885:/ quasiblock");
12179
12180
12181         MELT_LOCATION("warmelt-outobj.melt:3886:/ getslot");
12182         {
12183             melt_ptr_t slot=NULL, obj=NULL;
12184             obj = (melt_ptr_t)(/*_.OAPP__V2*/ meltfptr[1]) /*=obj*/;
12185             melt_object_get_field(slot,obj, 0, "OBI_LOC");
12186             /*_.ALOC__V9*/
12187             meltfptr[5] = slot;
12188         };
12189         ;
12190         MELT_LOCATION("warmelt-outobj.melt:3887:/ getslot");
12191         {
12192             melt_ptr_t slot=NULL, obj=NULL;
12193             obj = (melt_ptr_t)(/*_.OAPP__V2*/ meltfptr[1]) /*=obj*/;
12194             melt_object_get_field(slot,obj, 1, "OBDI_DESTLIST");
12195             /*_.ADEST__V10*/
12196             meltfptr[9] = slot;
12197         };
12198         ;
12199         MELT_LOCATION("warmelt-outobj.melt:3888:/ getslot");
12200         {
12201             melt_ptr_t slot=NULL, obj=NULL;
12202             obj = (melt_ptr_t)(/*_.OAPP__V2*/ meltfptr[1]) /*=obj*/;
12203             melt_object_get_field(slot,obj, 2, "OBAPP_CLOS");
12204             /*_.OCLOS__V11*/
12205             meltfptr[10] = slot;
12206         };
12207         ;
12208         MELT_LOCATION("warmelt-outobj.melt:3889:/ getslot");
12209         {
12210             melt_ptr_t slot=NULL, obj=NULL;
12211             obj = (melt_ptr_t)(/*_.OAPP__V2*/ meltfptr[1]) /*=obj*/;
12212             melt_object_get_field(slot,obj, 3, "OBAPP_ARGS");
12213             /*_.OARGS__V12*/
12214             meltfptr[11] = slot;
12215         };
12216         ;
12217         /*_#NBARG__L3*/
12218         meltfnum[1] =
12219             (melt_multiple_length((melt_ptr_t)(/*_.OARGS__V12*/ meltfptr[11])));;
12220         /*^compute*/
12221         /*_.PARAMDESCLIST__V13*/
12222         meltfptr[12] =
12223             (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[2]))));;
12224         /*^compute*/
12225         /*_#plI__L4*/
12226         meltfnum[3] =
12227             ((1) + (/*_#DEPTH__L1*/ meltfnum[0]));;
12228         /*^compute*/
12229         /*_.BOXDEPTHP1__V14*/
12230         meltfptr[13] =
12231             (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[3])), (/*_#plI__L4*/ meltfnum[3])));;
12232
12233         MELT_CHECK_SIGNAL();
12234         ;
12235         MELT_LOCATION("warmelt-outobj.melt:3894:/ apply");
12236         /*apply*/
12237         {
12238             union meltparam_un argtab[3];
12239             memset(&argtab, 0, sizeof(argtab));
12240             /*^apply.arg*/
12241             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
12242             /*^apply.arg*/
12243             argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0];
12244             /*^apply.arg*/
12245             argtab[2].meltbp_cstring =  "apply";
12246             /*_.OUTPUT_LOCATION__V15*/
12247             meltfptr[14] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.ALOC__V9*/ meltfptr[5]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
12248         }
12249         ;
12250
12251         MELT_CHECK_SIGNAL();
12252         ;
12253         MELT_LOCATION("warmelt-outobj.melt:73:/ cond");
12254         /*cond*/
12255         if ( (melt_module_var_fetch (meltmodvarix_FLAGVAL_OUTPUT_DESCR_COMMENT_symb))) /*then*/
12256             {
12257                 /*^cond.then*/
12258                 /*^block*/
12259                 /*anyblock*/
12260                 {
12261
12262
12263                     MELT_CHECK_SIGNAL();
12264                     ;
12265                     /*^apply*/
12266                     /*apply*/
12267                     {
12268                         union meltparam_un argtab[1];
12269                         memset(&argtab, 0, sizeof(argtab));
12270                         /*^apply.arg*/
12271                         argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.OAPP__V2*/ meltfptr[1];
12272                         /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V17*/
12273                         meltfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!DO_OUTPUT_DESCRIPTIVE_COMMENT*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
12274                     }
12275                     ;
12276                     /*_._IF___V16*/
12277                     meltfptr[15] = /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V17*/ meltfptr[16];;
12278                     /*epilog*/
12279
12280                     MELT_LOCATION("warmelt-outobj.melt:73:/ clear");
12281                     /*clear*/ /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V17*/
12282                     meltfptr[16] = 0 ;
12283                 }
12284                 ;
12285             }
12286         else    /*^cond.else*/
12287             {
12288
12289                 /*_._IF___V16*/ meltfptr[15] =  /*reallynil*/ NULL ;;
12290             }
12291         ;
12292
12293         {
12294             MELT_LOCATION("warmelt-outobj.melt:3896:/ locexp");
12295             /*add2sbuf_strconst*/
12296             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "/*apply*/{"));
12297         }
12298         ;
12299         /*_#plI__L5*/
12300         meltfnum[4] =
12301             ((1) + (/*_#DEPTH__L1*/ meltfnum[0]));;
12302
12303         {
12304             MELT_LOCATION("warmelt-outobj.melt:3897:/ locexp");
12305             meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#plI__L5*/ meltfnum[4]), 0);
12306         }
12307         ;
12308
12309         MELT_CHECK_SIGNAL();
12310         ;
12311         /*_#gtI__L6*/
12312         meltfnum[5] =
12313             ((/*_#NBARG__L3*/ meltfnum[1]) > (1));;
12314         MELT_LOCATION("warmelt-outobj.melt:3898:/ cond");
12315         /*cond*/
12316         if (/*_#gtI__L6*/ meltfnum[5]) /*then*/
12317             {
12318                 /*^cond.then*/
12319                 /*^block*/
12320                 /*anyblock*/
12321                 {
12322
12323
12324                     {
12325                         MELT_LOCATION("warmelt-outobj.melt:3899:/ locexp");
12326                         /*add2sbuf_strconst*/
12327                         meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "union meltparam_un argtab["));
12328                     }
12329                     ;
12330                     /*_#miI__L7*/
12331                     meltfnum[6] =
12332                         ((/*_#NBARG__L3*/ meltfnum[1]) - (1));;
12333
12334                     {
12335                         MELT_LOCATION("warmelt-outobj.melt:3900:/ locexp");
12336                         meltgc_add_strbuf_dec((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#miI__L7*/ meltfnum[6]));
12337                     }
12338                     ;
12339
12340                     {
12341                         MELT_LOCATION("warmelt-outobj.melt:3901:/ locexp");
12342                         /*add2sbuf_strconst*/
12343                         meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "];"));
12344                     }
12345                     ;
12346                     /*_#plI__L8*/
12347                     meltfnum[7] =
12348                         ((1) + (/*_#DEPTH__L1*/ meltfnum[0]));;
12349
12350                     {
12351                         MELT_LOCATION("warmelt-outobj.melt:3902:/ locexp");
12352                         meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#plI__L8*/ meltfnum[7]), 0);
12353                     }
12354                     ;
12355
12356                     {
12357                         MELT_LOCATION("warmelt-outobj.melt:3903:/ locexp");
12358                         /*add2sbuf_strconst*/
12359                         meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "memset(&argtab, 0, sizeof(argtab));"));
12360                     }
12361                     ;
12362                     /*_#plI__L9*/
12363                     meltfnum[8] =
12364                         ((1) + (/*_#DEPTH__L1*/ meltfnum[0]));;
12365
12366                     {
12367                         MELT_LOCATION("warmelt-outobj.melt:3904:/ locexp");
12368                         meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#plI__L9*/ meltfnum[8]), 0);
12369                     }
12370                     ;
12371                     /*citerblock FOREACH_IN_MULTIPLE*/
12372                     {
12373                         /* start foreach_in_multiple meltcit1__EACHTUP */
12374                         long  meltcit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.OARGS__V12*/ meltfptr[11]);
12375                         for (/*_#CURANK__L10*/ meltfnum[9] = 0;
12376                                                (/*_#CURANK__L10*/ meltfnum[9] >= 0) && (/*_#CURANK__L10*/ meltfnum[9] <  meltcit1__EACHTUP_ln);
12377                                                /*_#CURANK__L10*/ meltfnum[9]++)
12378                             {
12379                                 /*_.CURARG__V18*/ meltfptr[16] = melt_multiple_nth((melt_ptr_t)(/*_.OARGS__V12*/ meltfptr[11]),  /*_#CURANK__L10*/ meltfnum[9]);
12380
12381
12382
12383
12384 #if MELT_HAVE_DEBUG
12385                                 MELT_LOCATION("warmelt-outobj.melt:3909:/ cppif.then");
12386                                 /*^block*/
12387                                 /*anyblock*/
12388                                 {
12389
12390
12391                                     MELT_CHECK_SIGNAL();
12392                                     ;
12393                                     /*_#IS_NOT_A__L11*/
12394                                     meltfnum[10] =
12395                                         !melt_is_instance_of((melt_ptr_t)(/*_.CURARG__V18*/ meltfptr[16]), (melt_ptr_t)((/*!CLASS_OBJINSTR*/ meltfrout->tabval[6])));;
12396                                     MELT_LOCATION("warmelt-outobj.melt:3909:/ cond");
12397                                     /*cond*/
12398                                     if (/*_#IS_NOT_A__L11*/ meltfnum[10]) /*then*/
12399                                         {
12400                                             /*^cond.then*/
12401                                             /*_._IFELSE___V20*/ meltfptr[19] = (/*nil*/NULL);;
12402                                         }
12403                                     else
12404                                         {
12405                                             MELT_LOCATION("warmelt-outobj.melt:3909:/ cond.else");
12406
12407                                             /*^block*/
12408                                             /*anyblock*/
12409                                             {
12410
12411
12412                                                 MELT_CHECK_SIGNAL();
12413                                                 ;
12414                                                 /*^apply*/
12415                                                 /*apply*/
12416                                                 {
12417                                                     union meltparam_un argtab[4];
12418                                                     memset(&argtab, 0, sizeof(argtab));
12419                                                     /*^apply.arg*/
12420                                                     argtab[0].meltbp_cstring =  "outputcod_objapply check curarg not objinstr";
12421                                                     /*^apply.arg*/
12422                                                     argtab[1].meltbp_cstring =  "warmelt-outobj.melt";
12423                                                     /*^apply.arg*/
12424                                                     argtab[2].meltbp_long = 3909;
12425                                                     /*^apply.arg*/
12426                                                     argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURARG__V18*/ meltfptr[16];
12427                                                     /*_.MELT_ASSERT_FAILURE_FUN__V21*/
12428                                                     meltfptr[20] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
12429                                                 }
12430                                                 ;
12431                                                 /*_._IFELSE___V20*/
12432                                                 meltfptr[19] = /*_.MELT_ASSERT_FAILURE_FUN__V21*/ meltfptr[20];;
12433                                                 /*epilog*/
12434
12435                                                 MELT_LOCATION("warmelt-outobj.melt:3909:/ clear");
12436                                                 /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V21*/
12437                                                 meltfptr[20] = 0 ;
12438                                             }
12439                                             ;
12440                                         }
12441                                     ;
12442                                     /*_.IFCPP___V19*/
12443                                     meltfptr[18] = /*_._IFELSE___V20*/ meltfptr[19];;
12444                                     /*epilog*/
12445
12446                                     MELT_LOCATION("warmelt-outobj.melt:3909:/ clear");
12447                                     /*clear*/ /*_#IS_NOT_A__L11*/
12448                                     meltfnum[10] = 0 ;
12449                                     /*^clear*/
12450                                     /*clear*/ /*_._IFELSE___V20*/
12451                                     meltfptr[19] = 0 ;
12452                                 }
12453
12454 #else /*MELT_HAVE_DEBUG*/
12455                                 /*^cppif.else*/
12456                                 /*_.IFCPP___V19*/ meltfptr[18] = (/*nil*/NULL);
12457 #endif /*MELT_HAVE_DEBUG*/
12458                                 ;
12459
12460                                 MELT_CHECK_SIGNAL();
12461                                 ;
12462                                 /*^compute*/
12463                                 /*_#gtI__L12*/
12464                                 meltfnum[10] =
12465                                     ((/*_#CURANK__L10*/ meltfnum[9]) > (0));;
12466                                 MELT_LOCATION("warmelt-outobj.melt:3910:/ cond");
12467                                 /*cond*/
12468                                 if (/*_#gtI__L12*/ meltfnum[10]) /*then*/
12469                                     {
12470                                         /*^cond.then*/
12471                                         /*^block*/
12472                                         /*anyblock*/
12473                                         {
12474
12475                                             MELT_LOCATION("warmelt-outobj.melt:3911:/ quasiblock");
12476
12477
12478
12479                                             MELT_CHECK_SIGNAL();
12480                                             ;
12481                                             /*^msend*/
12482                                             /*msend*/
12483                                             {
12484                                                 union meltparam_un argtab[1];
12485                                                 memset(&argtab, 0, sizeof(argtab));
12486                                                 /*^ojbmsend.arg*/
12487                                                 argtab[0].meltbp_aptr = /*nil*/(melt_ptr_t*)NULL;
12488                                                 /*_.CURCTYP__V22*/
12489                                                 meltfptr[20] = meltgc_send((melt_ptr_t)(/*_.CURARG__V18*/ meltfptr[16]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[7])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
12490                                             }
12491                                             ;
12492
12493 #if MELT_HAVE_DEBUG
12494                                             MELT_LOCATION("warmelt-outobj.melt:3912:/ cppif.then");
12495                                             /*^block*/
12496                                             /*anyblock*/
12497                                             {
12498
12499
12500                                                 MELT_CHECK_SIGNAL();
12501                                                 ;
12502                                                 /*_#IS_A__L13*/
12503                                                 meltfnum[12] =
12504                                                     melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V22*/ meltfptr[20]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[8])));;
12505                                                 MELT_LOCATION("warmelt-outobj.melt:3912:/ cond");
12506                                                 /*cond*/
12507                                                 if (/*_#IS_A__L13*/ meltfnum[12]) /*then*/
12508                                                     {
12509                                                         /*^cond.then*/
12510                                                         /*_._IFELSE___V24*/ meltfptr[23] = (/*nil*/NULL);;
12511                                                     }
12512                                                 else
12513                                                     {
12514                                                         MELT_LOCATION("warmelt-outobj.melt:3912:/ cond.else");
12515
12516                                                         /*^block*/
12517                                                         /*anyblock*/
12518                                                         {
12519
12520
12521                                                             MELT_CHECK_SIGNAL();
12522                                                             ;
12523                                                             /*^apply*/
12524                                                             /*apply*/
12525                                                             {
12526                                                                 union meltparam_un argtab[4];
12527                                                                 memset(&argtab, 0, sizeof(argtab));
12528                                                                 /*^apply.arg*/
12529                                                                 argtab[0].meltbp_cstring =  "check curctyp";
12530                                                                 /*^apply.arg*/
12531                                                                 argtab[1].meltbp_cstring =  "warmelt-outobj.melt";
12532                                                                 /*^apply.arg*/
12533                                                                 argtab[2].meltbp_long = 3912;
12534                                                                 /*^apply.arg*/
12535                                                                 argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURCTYP__V22*/ meltfptr[20];
12536                                                                 /*_.MELT_ASSERT_FAILURE_FUN__V25*/
12537                                                                 meltfptr[24] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
12538                                                             }
12539                                                             ;
12540                                                             /*_._IFELSE___V24*/
12541                                                             meltfptr[23] = /*_.MELT_ASSERT_FAILURE_FUN__V25*/ meltfptr[24];;
12542                                                             /*epilog*/
12543
12544                                                             MELT_LOCATION("warmelt-outobj.melt:3912:/ clear");
12545                                                             /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V25*/
12546                                                             meltfptr[24] = 0 ;
12547                                                         }
12548                                                         ;
12549                                                     }
12550                                                 ;
12551                                                 /*_.IFCPP___V23*/
12552                                                 meltfptr[19] = /*_._IFELSE___V24*/ meltfptr[23];;
12553                                                 /*epilog*/
12554
12555                                                 MELT_LOCATION("warmelt-outobj.melt:3912:/ clear");
12556                                                 /*clear*/ /*_#IS_A__L13*/
12557                                                 meltfnum[12] = 0 ;
12558                                                 /*^clear*/
12559                                                 /*clear*/ /*_._IFELSE___V24*/
12560                                                 meltfptr[23] = 0 ;
12561                                             }
12562
12563 #else /*MELT_HAVE_DEBUG*/
12564                                             /*^cppif.else*/
12565                                             /*_.IFCPP___V23*/ meltfptr[19] = (/*nil*/NULL);
12566 #endif /*MELT_HAVE_DEBUG*/
12567                                             ;
12568                                             /*^compute*/
12569                                             /*_#GET_INT__L14*/
12570                                             meltfnum[12] =
12571                                                 (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V14*/ meltfptr[13])));;
12572
12573                                             MELT_CHECK_SIGNAL();
12574                                             ;
12575                                             MELT_LOCATION("warmelt-outobj.melt:3913:/ apply");
12576                                             /*apply*/
12577                                             {
12578                                                 union meltparam_un argtab[3];
12579                                                 memset(&argtab, 0, sizeof(argtab));
12580                                                 /*^apply.arg*/
12581                                                 argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
12582                                                 /*^apply.arg*/
12583                                                 argtab[1].meltbp_long = /*_#GET_INT__L14*/ meltfnum[12];
12584                                                 /*^apply.arg*/
12585                                                 argtab[2].meltbp_cstring =  "apply.arg";
12586                                                 /*_.OUTPUT_LOCATION__V26*/
12587                                                 meltfptr[24] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.ALOC__V9*/ meltfptr[5]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
12588                                             }
12589                                             ;
12590                                             MELT_LOCATION("warmelt-outobj.melt:3914:/ getslot");
12591                                             {
12592                                                 melt_ptr_t slot=NULL, obj=NULL;
12593                                                 obj = (melt_ptr_t)(/*_.CURCTYP__V22*/ meltfptr[20]) /*=obj*/;
12594                                                 melt_object_get_field(slot,obj, 6, "CTYPE_PARSTRING");
12595                                                 /*_.CTYPE_PARSTRING__V27*/
12596                                                 meltfptr[23] = slot;
12597                                             };
12598                                             ;
12599
12600                                             {
12601                                                 /*^locexp*/
12602                                                 meltgc_append_list((melt_ptr_t)(/*_.PARAMDESCLIST__V13*/ meltfptr[12]), (melt_ptr_t)(/*_.CTYPE_PARSTRING__V27*/ meltfptr[23]));
12603                                             }
12604                                             ;
12605
12606                                             MELT_CHECK_SIGNAL();
12607                                             ;
12608                                             /*_#NULL__L15*/
12609                                             meltfnum[14] =
12610                                                 (/*null*/(/*_.CURARG__V18*/ meltfptr[16]) == NULL);;
12611                                             MELT_LOCATION("warmelt-outobj.melt:3915:/ cond");
12612                                             /*cond*/
12613                                             if (/*_#NULL__L15*/ meltfnum[14]) /*then*/
12614                                                 {
12615                                                     /*^cond.then*/
12616                                                     /*^block*/
12617                                                     /*anyblock*/
12618                                                     {
12619
12620
12621                                                         {
12622                                                             MELT_LOCATION("warmelt-outobj.melt:3916:/ locexp");
12623                                                             /*add2sbuf_strconst*/
12624                                                             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "argtab["));
12625                                                         }
12626                                                         ;
12627                                                         /*_#miI__L16*/
12628                                                         meltfnum[15] =
12629                                                             ((/*_#CURANK__L10*/ meltfnum[9]) - (1));;
12630
12631                                                         {
12632                                                             MELT_LOCATION("warmelt-outobj.melt:3917:/ locexp");
12633                                                             meltgc_add_strbuf_dec((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#miI__L16*/ meltfnum[15]));
12634                                                         }
12635                                                         ;
12636
12637                                                         {
12638                                                             MELT_LOCATION("warmelt-outobj.melt:3918:/ locexp");
12639                                                             /*add2sbuf_strconst*/
12640                                                             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "]."));
12641                                                         }
12642                                                         ;
12643
12644                                                         {
12645                                                             MELT_LOCATION("warmelt-outobj.melt:3919:/ locexp");
12646                                                             /*add2sbuf_strconst*/
12647                                                             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "meltbp_aptr = (melt_ptr_t*)NULL"));
12648                                                         }
12649                                                         ;
12650                                                         MELT_LOCATION("warmelt-outobj.melt:3915:/ quasiblock");
12651
12652
12653                                                         /*epilog*/
12654
12655                                                         /*^clear*/
12656                                                         /*clear*/ /*_#miI__L16*/
12657                                                         meltfnum[15] = 0 ;
12658                                                     }
12659                                                     ;
12660                                                 }
12661                                             else    /*^cond.else*/
12662                                                 {
12663
12664                                                     /*^block*/
12665                                                     /*anyblock*/
12666                                                     {
12667
12668
12669                                                         MELT_CHECK_SIGNAL();
12670                                                         ;
12671                                                         /*_#IS_A__L17*/
12672                                                         meltfnum[15] =
12673                                                             melt_is_instance_of((melt_ptr_t)(/*_.CURARG__V18*/ meltfptr[16]), (melt_ptr_t)((/*!CLASS_OBJNIL*/ meltfrout->tabval[9])));;
12674                                                         MELT_LOCATION("warmelt-outobj.melt:3920:/ cond");
12675                                                         /*cond*/
12676                                                         if (/*_#IS_A__L17*/ meltfnum[15]) /*then*/
12677                                                             {
12678                                                                 /*^cond.then*/
12679                                                                 /*^block*/
12680                                                                 /*anyblock*/
12681                                                                 {
12682
12683
12684                                                                     {
12685                                                                         MELT_LOCATION("warmelt-outobj.melt:3921:/ locexp");
12686                                                                         /*add2sbuf_strconst*/
12687                                                                         meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "argtab["));
12688                                                                     }
12689                                                                     ;
12690                                                                     /*_#miI__L18*/
12691                                                                     meltfnum[17] =
12692                                                                         ((/*_#CURANK__L10*/ meltfnum[9]) - (1));;
12693
12694                                                                     {
12695                                                                         MELT_LOCATION("warmelt-outobj.melt:3922:/ locexp");
12696                                                                         meltgc_add_strbuf_dec((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#miI__L18*/ meltfnum[17]));
12697                                                                     }
12698                                                                     ;
12699
12700                                                                     {
12701                                                                         MELT_LOCATION("warmelt-outobj.melt:3923:/ locexp");
12702                                                                         /*add2sbuf_strconst*/
12703                                                                         meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "]."));
12704                                                                     }
12705                                                                     ;
12706
12707                                                                     {
12708                                                                         MELT_LOCATION("warmelt-outobj.melt:3924:/ locexp");
12709                                                                         /*add2sbuf_strconst*/
12710                                                                         meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "meltbp_aptr = /*nil*/(melt_ptr_t*)NULL"));
12711                                                                     }
12712                                                                     ;
12713                                                                     MELT_LOCATION("warmelt-outobj.melt:3920:/ quasiblock");
12714
12715
12716                                                                     /*epilog*/
12717
12718                                                                     /*^clear*/
12719                                                                     /*clear*/ /*_#miI__L18*/
12720                                                                     meltfnum[17] = 0 ;
12721                                                                 }
12722                                                                 ;
12723                                                             }
12724                                                         else    /*^cond.else*/
12725                                                             {
12726
12727                                                                 /*^block*/
12728                                                                 /*anyblock*/
12729                                                                 {
12730
12731
12732                                                                     MELT_CHECK_SIGNAL();
12733                                                                     ;
12734                                                                     /*_#eqeq__L19*/
12735                                                                     meltfnum[17] =
12736                                                                         ((/*_.CURCTYP__V22*/ meltfptr[20]) == ((/*!CTYPE_VALUE*/ meltfrout->tabval[10])));;
12737                                                                     MELT_LOCATION("warmelt-outobj.melt:3925:/ cond");
12738                                                                     /*cond*/
12739                                                                     if (/*_#eqeq__L19*/ meltfnum[17]) /*then*/
12740                                                                         {
12741                                                                             /*^cond.then*/
12742                                                                             /*^block*/
12743                                                                             /*anyblock*/
12744                                                                             {
12745
12746
12747                                                                                 MELT_CHECK_SIGNAL();
12748                                                                                 ;
12749
12750                                                                                 MELT_CHECK_SIGNAL();
12751                                                                                 ;
12752                                                                                 /*_#IS_NOT_A__L20*/
12753                                                                                 meltfnum[19] =
12754                                                                                     !melt_is_instance_of((melt_ptr_t)(/*_.CURARG__V18*/ meltfptr[16]), (melt_ptr_t)((/*!CLASS_OBJLOCV*/ meltfrout->tabval[11])));;
12755                                                                                 MELT_LOCATION("warmelt-outobj.melt:3926:/ cond");
12756                                                                                 /*cond*/
12757                                                                                 if (/*_#IS_NOT_A__L20*/ meltfnum[19]) /*then*/
12758                                                                                     {
12759                                                                                         /*^cond.then*/
12760                                                                                         /*^block*/
12761                                                                                         /*anyblock*/
12762                                                                                         {
12763
12764
12765                                                                                             MELT_CHECK_SIGNAL();
12766                                                                                             ;
12767                                                                                             /*_#IS_NOT_A__L22*/
12768                                                                                             meltfnum[21] =
12769                                                                                                 !melt_is_instance_of((melt_ptr_t)(/*_.CURARG__V18*/ meltfptr[16]), (melt_ptr_t)((/*!CLASS_OBJCLOCCV*/ meltfrout->tabval[12])));;
12770                                                                                             MELT_LOCATION("warmelt-outobj.melt:3926:/ cond");
12771                                                                                             /*cond*/
12772                                                                                             if (/*_#IS_NOT_A__L22*/ meltfnum[21]) /*then*/
12773                                                                                                 {
12774                                                                                                     /*^cond.then*/
12775                                                                                                     /*^block*/
12776                                                                                                     /*anyblock*/
12777                                                                                                     {
12778
12779                                                                                                         /*_#IS_NOT_A__L24*/ meltfnum[23] =
12780                                                                                                             !melt_is_instance_of((melt_ptr_t)(/*_.CURARG__V18*/ meltfptr[16]), (melt_ptr_t)((/*!CLASS_OBJINITELEM*/ meltfrout->tabval[13])));;
12781                                                                                                         /*^compute*/
12782                                                                                                         /*_#_IF___L23*/
12783                                                                                                         meltfnum[22] = /*_#IS_NOT_A__L24*/ meltfnum[23];;
12784                                                                                                         /*epilog*/
12785
12786                                                                                                         MELT_LOCATION("warmelt-outobj.melt:3926:/ clear");
12787                                                                                                         /*clear*/ /*_#IS_NOT_A__L24*/
12788                                                                                                         meltfnum[23] = 0 ;
12789                                                                                                     }
12790                                                                                                     ;
12791                                                                                                 }
12792                                                                                             else    /*^cond.else*/
12793                                                                                                 {
12794
12795                                                                                                     /*_#_IF___L23*/ meltfnum[22] = 0;;
12796                                                                                                 }
12797                                                                                             ;
12798                                                                                             /*^compute*/
12799                                                                                             /*_#_IF___L21*/
12800                                                                                             meltfnum[20] = /*_#_IF___L23*/ meltfnum[22];;
12801                                                                                             /*epilog*/
12802
12803                                                                                             MELT_LOCATION("warmelt-outobj.melt:3926:/ clear");
12804                                                                                             /*clear*/ /*_#IS_NOT_A__L22*/
12805                                                                                             meltfnum[21] = 0 ;
12806                                                                                             /*^clear*/
12807                                                                                             /*clear*/ /*_#_IF___L23*/
12808                                                                                             meltfnum[22] = 0 ;
12809                                                                                         }
12810                                                                                         ;
12811                                                                                     }
12812                                                                                 else    /*^cond.else*/
12813                                                                                     {
12814
12815                                                                                         /*_#_IF___L21*/ meltfnum[20] = 0;;
12816                                                                                     }
12817                                                                                 ;
12818                                                                                 MELT_LOCATION("warmelt-outobj.melt:3926:/ cond");
12819                                                                                 /*cond*/
12820                                                                                 if (/*_#_IF___L21*/ meltfnum[20]) /*then*/
12821                                                                                     {
12822                                                                                         /*^cond.then*/
12823                                                                                         /*^block*/
12824                                                                                         /*anyblock*/
12825                                                                                         {
12826
12827
12828                                                                                             {
12829                                                                                                 MELT_LOCATION("warmelt-outobj.melt:3929:/ locexp");
12830                                                                                                 /*add2sbuf_strconst*/
12831                                                                                                 meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "if (("));
12832                                                                                             }
12833                                                                                             ;
12834                                                                                             /*_#GET_INT__L25*/
12835                                                                                             meltfnum[23] =
12836                                                                                                 (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V14*/ meltfptr[13])));;
12837
12838                                                                                             MELT_CHECK_SIGNAL();
12839                                                                                             ;
12840                                                                                             MELT_LOCATION("warmelt-outobj.melt:3930:/ msend");
12841                                                                                             /*msend*/
12842                                                                                             {
12843                                                                                                 union meltparam_un argtab[3];
12844                                                                                                 memset(&argtab, 0, sizeof(argtab));
12845                                                                                                 /*^ojbmsend.arg*/
12846                                                                                                 argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2];
12847                                                                                                 /*^ojbmsend.arg*/
12848                                                                                                 argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
12849                                                                                                 /*^ojbmsend.arg*/
12850                                                                                                 argtab[2].meltbp_long = /*_#GET_INT__L25*/ meltfnum[23];
12851                                                                                                 /*_.OUTPUT_C_CODE__V31*/
12852                                                                                                 meltfptr[30] = meltgc_send((melt_ptr_t)(/*_.CURARG__V18*/ meltfptr[16]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[14])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
12853                                                                                             }
12854                                                                                             ;
12855                                                                                             /*_.DISCRIM__V32*/
12856                                                                                             meltfptr[31] =
12857                                                                                                 ((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.CURARG__V18*/ meltfptr[16]))));;
12858                                                                                             MELT_LOCATION("warmelt-outobj.melt:3931:/ cond");
12859                                                                                             /*cond*/
12860                                                                                             if (
12861                                                                                                 /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DISCRIM__V32*/ meltfptr[31]),
12862                                                                                                                               (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[16])))
12863                                                                                             ) /*then*/
12864                                                                                                 {
12865                                                                                                     /*^cond.then*/
12866                                                                                                     /*^getslot*/
12867                                                                                                     {
12868                                                                                                         melt_ptr_t slot=NULL, obj=NULL;
12869                                                                                                         obj = (melt_ptr_t)(/*_.DISCRIM__V32*/ meltfptr[31]) /*=obj*/;
12870                                                                                                         melt_object_get_field(slot,obj, 1, "NAMED_NAME");
12871                                                                                                         /*_.NAMED_NAME__V33*/
12872                                                                                                         meltfptr[32] = slot;
12873                                                                                                     };
12874                                                                                                     ;
12875                                                                                                 }
12876                                                                                             else    /*^cond.else*/
12877                                                                                                 {
12878
12879                                                                                                     /*_.NAMED_NAME__V33*/ meltfptr[32] =  /*reallynil*/ NULL ;;
12880                                                                                                 }
12881                                                                                             ;
12882
12883                                                                                             MELT_CHECK_SIGNAL();
12884                                                                                             ;
12885                                                                                             MELT_LOCATION("warmelt-outobj.melt:3931:/ apply");
12886                                                                                             /*apply*/
12887                                                                                             {
12888                                                                                                 union meltparam_un argtab[3];
12889                                                                                                 memset(&argtab, 0, sizeof(argtab));
12890                                                                                                 /*^apply.arg*/
12891                                                                                                 argtab[0].meltbp_cstring =  ") != NULL) /*objapply no nullval ";
12892                                                                                                 /*^apply.arg*/
12893                                                                                                 argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V33*/ meltfptr[32];
12894                                                                                                 /*^apply.arg*/
12895                                                                                                 argtab[2].meltbp_cstring =  "*/";
12896                                                                                                 /*_.ADD2OUT__V34*/
12897                                                                                                 meltfptr[33] =  melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[15])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
12898                                                                                             }
12899                                                                                             ;
12900                                                                                             /*_#plI__L26*/
12901                                                                                             meltfnum[21] =
12902                                                                                                 ((2) + (/*_#DEPTH__L1*/ meltfnum[0]));;
12903
12904                                                                                             {
12905                                                                                                 MELT_LOCATION("warmelt-outobj.melt:3932:/ locexp");
12906                                                                                                 meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#plI__L26*/ meltfnum[21]), 0);
12907                                                                                             }
12908                                                                                             ;
12909                                                                                             MELT_LOCATION("warmelt-outobj.melt:3926:/ quasiblock");
12910
12911
12912                                                                                             /*epilog*/
12913
12914                                                                                             /*^clear*/
12915                                                                                             /*clear*/ /*_#GET_INT__L25*/
12916                                                                                             meltfnum[23] = 0 ;
12917                                                                                             /*^clear*/
12918                                                                                             /*clear*/ /*_.OUTPUT_C_CODE__V31*/
12919                                                                                             meltfptr[30] = 0 ;
12920                                                                                             /*^clear*/
12921                                                                                             /*clear*/ /*_.DISCRIM__V32*/
12922                                                                                             meltfptr[31] = 0 ;
12923                                                                                             /*^clear*/
12924                                                                                             /*clear*/ /*_.NAMED_NAME__V33*/
12925                                                                                             meltfptr[32] = 0 ;
12926                                                                                             /*^clear*/
12927                                                                                             /*clear*/ /*_.ADD2OUT__V34*/
12928                                                                                             meltfptr[33] = 0 ;
12929                                                                                             /*^clear*/
12930                                                                                             /*clear*/ /*_#plI__L26*/
12931                                                                                             meltfnum[21] = 0 ;
12932                                                                                         }
12933                                                                                         ;
12934                                                                                     } /*noelse*/
12935                                                                                 ;
12936
12937                                                                                 {
12938                                                                                     MELT_LOCATION("warmelt-outobj.melt:3933:/ locexp");
12939                                                                                     /*add2sbuf_strconst*/
12940                                                                                     meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "argtab["));
12941                                                                                 }
12942                                                                                 ;
12943                                                                                 /*_#miI__L27*/
12944                                                                                 meltfnum[22] =
12945                                                                                     ((/*_#CURANK__L10*/ meltfnum[9]) - (1));;
12946
12947                                                                                 {
12948                                                                                     MELT_LOCATION("warmelt-outobj.melt:3934:/ locexp");
12949                                                                                     meltgc_add_strbuf_dec((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#miI__L27*/ meltfnum[22]));
12950                                                                                 }
12951                                                                                 ;
12952
12953                                                                                 {
12954                                                                                     MELT_LOCATION("warmelt-outobj.melt:3935:/ locexp");
12955                                                                                     /*add2sbuf_strconst*/
12956                                                                                     meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "]."));
12957                                                                                 }
12958                                                                                 ;
12959
12960                                                                                 {
12961                                                                                     MELT_LOCATION("warmelt-outobj.melt:3936:/ locexp");
12962                                                                                     /*add2sbuf_strconst*/
12963                                                                                     meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "meltbp_aptr = (melt_ptr_t*) &"));
12964                                                                                 }
12965                                                                                 ;
12966                                                                                 /*_#GET_INT__L28*/
12967                                                                                 meltfnum[23] =
12968                                                                                     (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V14*/ meltfptr[13])));;
12969
12970                                                                                 MELT_CHECK_SIGNAL();
12971                                                                                 ;
12972                                                                                 MELT_LOCATION("warmelt-outobj.melt:3937:/ msend");
12973                                                                                 /*msend*/
12974                                                                                 {
12975                                                                                     union meltparam_un argtab[3];
12976                                                                                     memset(&argtab, 0, sizeof(argtab));
12977                                                                                     /*^ojbmsend.arg*/
12978                                                                                     argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2];
12979                                                                                     /*^ojbmsend.arg*/
12980                                                                                     argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
12981                                                                                     /*^ojbmsend.arg*/
12982                                                                                     argtab[2].meltbp_long = /*_#GET_INT__L28*/ meltfnum[23];
12983                                                                                     /*_.OUTPUT_C_CODE__V35*/
12984                                                                                     meltfptr[30] = meltgc_send((melt_ptr_t)(/*_.CURARG__V18*/ meltfptr[16]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[14])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
12985                                                                                 }
12986                                                                                 ;
12987                                                                                 MELT_LOCATION("warmelt-outobj.melt:3925:/ quasiblock");
12988
12989
12990                                                                                 /*_.PROGN___V36*/
12991                                                                                 meltfptr[31] = /*_.OUTPUT_C_CODE__V35*/ meltfptr[30];;
12992                                                                                 /*^compute*/
12993                                                                                 /*_._IFELSE___V30*/
12994                                                                                 meltfptr[29] = /*_.PROGN___V36*/ meltfptr[31];;
12995                                                                                 /*epilog*/
12996
12997                                                                                 MELT_LOCATION("warmelt-outobj.melt:3925:/ clear");
12998                                                                                 /*clear*/ /*_#IS_NOT_A__L20*/
12999                                                                                 meltfnum[19] = 0 ;
13000                                                                                 /*^clear*/
13001                                                                                 /*clear*/ /*_#_IF___L21*/
13002                                                                                 meltfnum[20] = 0 ;
13003                                                                                 /*^clear*/
13004                                                                                 /*clear*/ /*_#miI__L27*/
13005                                                                                 meltfnum[22] = 0 ;
13006                                                                                 /*^clear*/
13007                                                                                 /*clear*/ /*_#GET_INT__L28*/
13008                                                                                 meltfnum[23] = 0 ;
13009                                                                                 /*^clear*/
13010                                                                                 /*clear*/ /*_.OUTPUT_C_CODE__V35*/
13011                                                                                 meltfptr[30] = 0 ;
13012                                                                                 /*^clear*/
13013                                                                                 /*clear*/ /*_.PROGN___V36*/
13014                                                                                 meltfptr[31] = 0 ;
13015                                                                             }
13016                                                                             ;
13017                                                                         }
13018                                                                     else    /*^cond.else*/
13019                                                                         {
13020
13021                                                                             /*^block*/
13022                                                                             /*anyblock*/
13023                                                                             {
13024
13025
13026                                                                                 {
13027                                                                                     MELT_LOCATION("warmelt-outobj.melt:3940:/ locexp");
13028                                                                                     /*add2sbuf_strconst*/
13029                                                                                     meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "argtab["));
13030                                                                                 }
13031                                                                                 ;
13032                                                                                 /*_#miI__L29*/
13033                                                                                 meltfnum[21] =
13034                                                                                     ((/*_#CURANK__L10*/ meltfnum[9]) - (1));;
13035
13036                                                                                 {
13037                                                                                     MELT_LOCATION("warmelt-outobj.melt:3941:/ locexp");
13038                                                                                     meltgc_add_strbuf_dec((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#miI__L29*/ meltfnum[21]));
13039                                                                                 }
13040                                                                                 ;
13041
13042                                                                                 {
13043                                                                                     MELT_LOCATION("warmelt-outobj.melt:3942:/ locexp");
13044                                                                                     /*add2sbuf_strconst*/
13045                                                                                     meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "]."));
13046                                                                                 }
13047                                                                                 ;
13048                                                                                 MELT_LOCATION("warmelt-outobj.melt:3943:/ getslot");
13049                                                                                 {
13050                                                                                     melt_ptr_t slot=NULL, obj=NULL;
13051                                                                                     obj = (melt_ptr_t)(/*_.CURCTYP__V22*/ meltfptr[20]) /*=obj*/;
13052                                                                                     melt_object_get_field(slot,obj, 7, "CTYPE_ARGFIELD");
13053                                                                                     /*_.CTYPE_ARGFIELD__V37*/
13054                                                                                     meltfptr[32] = slot;
13055                                                                                 };
13056                                                                                 ;
13057
13058                                                                                 {
13059                                                                                     /*^locexp*/
13060                                                                                     /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]),
13061                                                                                                                           melt_string_str((melt_ptr_t)(/*_.CTYPE_ARGFIELD__V37*/ meltfptr[32])));
13062                                                                                 }
13063                                                                                 ;
13064
13065                                                                                 {
13066                                                                                     MELT_LOCATION("warmelt-outobj.melt:3944:/ locexp");
13067                                                                                     /*add2sbuf_strconst*/
13068                                                                                     meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( " = "));
13069                                                                                 }
13070                                                                                 ;
13071                                                                                 /*_#GET_INT__L30*/
13072                                                                                 meltfnum[19] =
13073                                                                                     (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V14*/ meltfptr[13])));;
13074
13075                                                                                 MELT_CHECK_SIGNAL();
13076                                                                                 ;
13077                                                                                 MELT_LOCATION("warmelt-outobj.melt:3945:/ msend");
13078                                                                                 /*msend*/
13079                                                                                 {
13080                                                                                     union meltparam_un argtab[3];
13081                                                                                     memset(&argtab, 0, sizeof(argtab));
13082                                                                                     /*^ojbmsend.arg*/
13083                                                                                     argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2];
13084                                                                                     /*^ojbmsend.arg*/
13085                                                                                     argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
13086                                                                                     /*^ojbmsend.arg*/
13087                                                                                     argtab[2].meltbp_long = /*_#GET_INT__L30*/ meltfnum[19];
13088                                                                                     /*_.OUTPUT_C_CODE__V38*/
13089                                                                                     meltfptr[33] = meltgc_send((melt_ptr_t)(/*_.CURARG__V18*/ meltfptr[16]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[14])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
13090                                                                                 }
13091                                                                                 ;
13092                                                                                 MELT_LOCATION("warmelt-outobj.melt:3939:/ quasiblock");
13093
13094
13095                                                                                 /*_.PROGN___V39*/
13096                                                                                 meltfptr[30] = /*_.OUTPUT_C_CODE__V38*/ meltfptr[33];;
13097                                                                                 /*^compute*/
13098                                                                                 /*_._IFELSE___V30*/
13099                                                                                 meltfptr[29] = /*_.PROGN___V39*/ meltfptr[30];;
13100                                                                                 /*epilog*/
13101
13102                                                                                 MELT_LOCATION("warmelt-outobj.melt:3925:/ clear");
13103                                                                                 /*clear*/ /*_#miI__L29*/
13104                                                                                 meltfnum[21] = 0 ;
13105                                                                                 /*^clear*/
13106                                                                                 /*clear*/ /*_.CTYPE_ARGFIELD__V37*/
13107                                                                                 meltfptr[32] = 0 ;
13108                                                                                 /*^clear*/
13109                                                                                 /*clear*/ /*_#GET_INT__L30*/
13110                                                                                 meltfnum[19] = 0 ;
13111                                                                                 /*^clear*/
13112                                                                                 /*clear*/ /*_.OUTPUT_C_CODE__V38*/
13113                                                                                 meltfptr[33] = 0 ;
13114                                                                                 /*^clear*/
13115                                                                                 /*clear*/ /*_.PROGN___V39*/
13116                                                                                 meltfptr[30] = 0 ;
13117                                                                             }
13118                                                                             ;
13119                                                                         }
13120                                                                     ;
13121                                                                     /*_._IFELSE___V29*/
13122                                                                     meltfptr[28] = /*_._IFELSE___V30*/ meltfptr[29];;
13123                                                                     /*epilog*/
13124
13125                                                                     MELT_LOCATION("warmelt-outobj.melt:3920:/ clear");
13126                                                                     /*clear*/ /*_#eqeq__L19*/
13127                                                                     meltfnum[17] = 0 ;
13128                                                                     /*^clear*/
13129                                                                     /*clear*/ /*_._IFELSE___V30*/
13130                                                                     meltfptr[29] = 0 ;
13131                                                                 }
13132                                                                 ;
13133                                                             }
13134                                                         ;
13135                                                         /*_._IFELSE___V28*/
13136                                                         meltfptr[27] = /*_._IFELSE___V29*/ meltfptr[28];;
13137                                                         /*epilog*/
13138
13139                                                         MELT_LOCATION("warmelt-outobj.melt:3915:/ clear");
13140                                                         /*clear*/ /*_#IS_A__L17*/
13141                                                         meltfnum[15] = 0 ;
13142                                                         /*^clear*/
13143                                                         /*clear*/ /*_._IFELSE___V29*/
13144                                                         meltfptr[28] = 0 ;
13145                                                     }
13146                                                     ;
13147                                                 }
13148                                             ;
13149
13150                                             {
13151                                                 MELT_LOCATION("warmelt-outobj.melt:3947:/ locexp");
13152                                                 /*add2sbuf_strconst*/
13153                                                 meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( ";"));
13154                                             }
13155                                             ;
13156                                             /*_#GET_INT__L31*/
13157                                             meltfnum[20] =
13158                                                 (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V14*/ meltfptr[13])));;
13159
13160                                             {
13161                                                 MELT_LOCATION("warmelt-outobj.melt:3948:/ locexp");
13162                                                 meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#GET_INT__L31*/ meltfnum[20]), 0);
13163                                             }
13164                                             ;
13165
13166                                             MELT_LOCATION("warmelt-outobj.melt:3911:/ clear");
13167                                             /*clear*/ /*_.CURCTYP__V22*/
13168                                             meltfptr[20] = 0 ;
13169                                             /*^clear*/
13170                                             /*clear*/ /*_.IFCPP___V23*/
13171                                             meltfptr[19] = 0 ;
13172                                             /*^clear*/
13173                                             /*clear*/ /*_#GET_INT__L14*/
13174                                             meltfnum[12] = 0 ;
13175                                             /*^clear*/
13176                                             /*clear*/ /*_.OUTPUT_LOCATION__V26*/
13177                                             meltfptr[24] = 0 ;
13178                                             /*^clear*/
13179                                             /*clear*/ /*_.CTYPE_PARSTRING__V27*/
13180                                             meltfptr[23] = 0 ;
13181                                             /*^clear*/
13182                                             /*clear*/ /*_#NULL__L15*/
13183                                             meltfnum[14] = 0 ;
13184                                             /*^clear*/
13185                                             /*clear*/ /*_._IFELSE___V28*/
13186                                             meltfptr[27] = 0 ;
13187                                             /*^clear*/
13188                                             /*clear*/ /*_#GET_INT__L31*/
13189                                             meltfnum[20] = 0 ;
13190                                             /*epilog*/
13191                                         }
13192                                         ;
13193                                     } /*noelse*/
13194                                 ;
13195
13196 #if MELT_HAVE_DEBUG
13197                                 MELT_LOCATION("warmelt-outobj.melt:3950:/ cppif.then");
13198                                 /*^block*/
13199                                 /*anyblock*/
13200                                 {
13201
13202
13203                                     MELT_CHECK_SIGNAL();
13204                                     ;
13205                                     /*_#STRBUF_USEDLENGTH__L32*/
13206                                     meltfnum[22] =
13207                                         melt_strbuf_usedlength((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]));;
13208                                     MELT_LOCATION("warmelt-outobj.melt:3951:/ cond");
13209                                     /*cond*/
13210                                     if (
13211                                         /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[17])),
13212                                                                       (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[18])))
13213                                     ) /*then*/
13214                                         {
13215                                             /*^cond.then*/
13216                                             /*^getslot*/
13217                                             {
13218                                                 melt_ptr_t slot=NULL, obj=NULL;
13219                                                 obj = (melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[17])) /*=obj*/;
13220                                                 melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE");
13221                                                 /*_.REFERENCED_VALUE__V41*/
13222                                                 meltfptr[32] = slot;
13223                                             };
13224                                             ;
13225                                         }
13226                                     else    /*^cond.else*/
13227                                         {
13228
13229                                             /*_.REFERENCED_VALUE__V41*/ meltfptr[32] =  /*reallynil*/ NULL ;;
13230                                         }
13231                                     ;
13232                                     /*^compute*/
13233                                     /*_#GET_INT__L33*/
13234                                     meltfnum[23] =
13235                                         (melt_get_int((melt_ptr_t)(/*_.REFERENCED_VALUE__V41*/ meltfptr[32])));;
13236                                     /*^compute*/
13237                                     /*_#ltI__L34*/
13238                                     meltfnum[21] =
13239                                         ((/*_#STRBUF_USEDLENGTH__L32*/ meltfnum[22]) < (/*_#GET_INT__L33*/ meltfnum[23]));;
13240                                     MELT_LOCATION("warmelt-outobj.melt:3950:/ cond");
13241                                     /*cond*/
13242                                     if (/*_#ltI__L34*/ meltfnum[21]) /*then*/
13243                                         {
13244                                             /*^cond.then*/
13245                                             /*_._IFELSE___V42*/ meltfptr[33] = (/*nil*/NULL);;
13246                                         }
13247                                     else
13248                                         {
13249                                             MELT_LOCATION("warmelt-outobj.melt:3950:/ cond.else");
13250
13251                                             /*^block*/
13252                                             /*anyblock*/
13253                                             {
13254
13255
13256                                                 MELT_CHECK_SIGNAL();
13257                                                 ;
13258                                                 /*^apply*/
13259                                                 /*apply*/
13260                                                 {
13261                                                     union meltparam_un argtab[4];
13262                                                     memset(&argtab, 0, sizeof(argtab));
13263                                                     /*^apply.arg*/
13264                                                     argtab[0].meltbp_cstring =  "check limited implbuf";
13265                                                     /*^apply.arg*/
13266                                                     argtab[1].meltbp_cstring =  "warmelt-outobj.melt";
13267                                                     /*^apply.arg*/
13268                                                     argtab[2].meltbp_long = 3950;
13269                                                     /*^apply.arg*/
13270                                                     argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
13271                                                     /*_.MELT_ASSERT_FAILURE_FUN__V43*/
13272                                                     meltfptr[30] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
13273                                                 }
13274                                                 ;
13275                                                 /*_._IFELSE___V42*/
13276                                                 meltfptr[33] = /*_.MELT_ASSERT_FAILURE_FUN__V43*/ meltfptr[30];;
13277                                                 /*epilog*/
13278
13279                                                 MELT_LOCATION("warmelt-outobj.melt:3950:/ clear");
13280                                                 /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V43*/
13281                                                 meltfptr[30] = 0 ;
13282                                             }
13283                                             ;
13284                                         }
13285                                     ;
13286                                     /*_.IFCPP___V40*/
13287                                     meltfptr[31] = /*_._IFELSE___V42*/ meltfptr[33];;
13288                                     /*epilog*/
13289
13290                                     MELT_LOCATION("warmelt-outobj.melt:3950:/ clear");
13291                                     /*clear*/ /*_#STRBUF_USEDLENGTH__L32*/
13292                                     meltfnum[22] = 0 ;
13293                                     /*^clear*/
13294                                     /*clear*/ /*_.REFERENCED_VALUE__V41*/
13295                                     meltfptr[32] = 0 ;
13296                                     /*^clear*/
13297                                     /*clear*/ /*_#GET_INT__L33*/
13298                                     meltfnum[23] = 0 ;
13299                                     /*^clear*/
13300                                     /*clear*/ /*_#ltI__L34*/
13301                                     meltfnum[21] = 0 ;
13302                                     /*^clear*/
13303                                     /*clear*/ /*_._IFELSE___V42*/
13304                                     meltfptr[33] = 0 ;
13305                                 }
13306
13307 #else /*MELT_HAVE_DEBUG*/
13308                                 /*^cppif.else*/
13309                                 /*_.IFCPP___V40*/ meltfptr[31] = (/*nil*/NULL);
13310 #endif /*MELT_HAVE_DEBUG*/
13311                                 ;
13312                                 if (/*_#CURANK__L10*/ meltfnum[9]<0) break;
13313                             } /* end  foreach_in_multiple meltcit1__EACHTUP */
13314
13315                         /*citerepilog*/
13316
13317                         MELT_LOCATION("warmelt-outobj.melt:3906:/ clear");
13318                         /*clear*/ /*_.CURARG__V18*/
13319                         meltfptr[16] = 0 ;
13320                         /*^clear*/
13321                         /*clear*/ /*_#CURANK__L10*/
13322                         meltfnum[9] = 0 ;
13323                         /*^clear*/
13324                         /*clear*/ /*_.IFCPP___V19*/
13325                         meltfptr[18] = 0 ;
13326                         /*^clear*/
13327                         /*clear*/ /*_#gtI__L12*/
13328                         meltfnum[10] = 0 ;
13329                         /*^clear*/
13330                         /*clear*/ /*_.IFCPP___V40*/
13331                         meltfptr[31] = 0 ;
13332                     } /*endciterblock FOREACH_IN_MULTIPLE*/
13333                     ;
13334                     MELT_LOCATION("warmelt-outobj.melt:3898:/ quasiblock");
13335
13336
13337                     /*epilog*/
13338
13339                     /*^clear*/
13340                     /*clear*/ /*_#miI__L7*/
13341                     meltfnum[6] = 0 ;
13342                     /*^clear*/
13343                     /*clear*/ /*_#plI__L8*/
13344                     meltfnum[7] = 0 ;
13345                     /*^clear*/
13346                     /*clear*/ /*_#plI__L9*/
13347                     meltfnum[8] = 0 ;
13348                 }
13349                 ;
13350             } /*noelse*/
13351         ;
13352         /*citerblock FOREACH_PAIR_COMPONENT_IN_LIST*/
13353         {
13354             /* start foreach_pair_component_in_list meltcit2__EACHLIST */
13355             for (/*_.CURPAIR__V44*/ meltfptr[29] = melt_list_first( (melt_ptr_t)/*_.ADEST__V10*/ meltfptr[9]);
13356                                     melt_magic_discr((melt_ptr_t) /*_.CURPAIR__V44*/ meltfptr[29]) == MELTOBMAG_PAIR;
13357                                     /*_.CURPAIR__V44*/ meltfptr[29] = melt_pair_tail((melt_ptr_t) /*_.CURPAIR__V44*/ meltfptr[29]))
13358                 {
13359                     /*_.CURDEST__V45*/ meltfptr[28] = melt_pair_head((melt_ptr_t) /*_.CURPAIR__V44*/ meltfptr[29]);
13360
13361
13362                     /*_#GET_INT__L35*/
13363                     meltfnum[19] =
13364                         (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V14*/ meltfptr[13])));;
13365
13366                     MELT_CHECK_SIGNAL();
13367                     ;
13368                     MELT_LOCATION("warmelt-outobj.melt:3958:/ msend");
13369                     /*msend*/
13370                     {
13371                         union meltparam_un argtab[3];
13372                         memset(&argtab, 0, sizeof(argtab));
13373                         /*^ojbmsend.arg*/
13374                         argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2];
13375                         /*^ojbmsend.arg*/
13376                         argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
13377                         /*^ojbmsend.arg*/
13378                         argtab[2].meltbp_long = /*_#GET_INT__L35*/ meltfnum[19];
13379                         /*_.OUTPUT_C_CODE__V46*/
13380                         meltfptr[20] = meltgc_send((melt_ptr_t)(/*_.CURDEST__V45*/ meltfptr[28]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[14])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
13381                     }
13382                     ;
13383
13384 #if MELT_HAVE_DEBUG
13385                     MELT_LOCATION("warmelt-outobj.melt:3959:/ cppif.then");
13386                     /*^block*/
13387                     /*anyblock*/
13388                     {
13389
13390
13391                         MELT_CHECK_SIGNAL();
13392                         ;
13393                         /*_#STRBUF_USEDLENGTH__L36*/
13394                         meltfnum[17] =
13395                             melt_strbuf_usedlength((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]));;
13396                         MELT_LOCATION("warmelt-outobj.melt:3960:/ cond");
13397                         /*cond*/
13398                         if (
13399                             /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[17])),
13400                                                           (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[18])))
13401                         ) /*then*/
13402                             {
13403                                 /*^cond.then*/
13404                                 /*^getslot*/
13405                                 {
13406                                     melt_ptr_t slot=NULL, obj=NULL;
13407                                     obj = (melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[17])) /*=obj*/;
13408                                     melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE");
13409                                     /*_.REFERENCED_VALUE__V48*/
13410                                     meltfptr[24] = slot;
13411                                 };
13412                                 ;
13413                             }
13414                         else    /*^cond.else*/
13415                             {
13416
13417                                 /*_.REFERENCED_VALUE__V48*/ meltfptr[24] =  /*reallynil*/ NULL ;;
13418                             }
13419                         ;
13420                         /*^compute*/
13421                         /*_#GET_INT__L37*/
13422                         meltfnum[15] =
13423                             (melt_get_int((melt_ptr_t)(/*_.REFERENCED_VALUE__V48*/ meltfptr[24])));;
13424                         /*^compute*/
13425                         /*_#ltI__L38*/
13426                         meltfnum[12] =
13427                             ((/*_#STRBUF_USEDLENGTH__L36*/ meltfnum[17]) < (/*_#GET_INT__L37*/ meltfnum[15]));;
13428                         MELT_LOCATION("warmelt-outobj.melt:3959:/ cond");
13429                         /*cond*/
13430                         if (/*_#ltI__L38*/ meltfnum[12]) /*then*/
13431                             {
13432                                 /*^cond.then*/
13433                                 /*_._IFELSE___V49*/ meltfptr[23] = (/*nil*/NULL);;
13434                             }
13435                         else
13436                             {
13437                                 MELT_LOCATION("warmelt-outobj.melt:3959:/ cond.else");
13438
13439                                 /*^block*/
13440                                 /*anyblock*/
13441                                 {
13442
13443
13444                                     MELT_CHECK_SIGNAL();
13445                                     ;
13446                                     /*^apply*/
13447                                     /*apply*/
13448                                     {
13449                                         union meltparam_un argtab[3];
13450                                         memset(&argtab, 0, sizeof(argtab));
13451                                         /*^apply.arg*/
13452                                         argtab[0].meltbp_cstring =  "check limited implbuf";
13453                                         /*^apply.arg*/
13454                                         argtab[1].meltbp_cstring =  "warmelt-outobj.melt";
13455                                         /*^apply.arg*/
13456                                         argtab[2].meltbp_long = 3959;
13457                                         /*_.MELT_ASSERT_FAILURE_FUN__V50*/
13458                                         meltfptr[27] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
13459                                     }
13460                                     ;
13461                                     /*_._IFELSE___V49*/
13462                                     meltfptr[23] = /*_.MELT_ASSERT_FAILURE_FUN__V50*/ meltfptr[27];;
13463                                     /*epilog*/
13464
13465                                     MELT_LOCATION("warmelt-outobj.melt:3959:/ clear");
13466                                     /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V50*/
13467                                     meltfptr[27] = 0 ;
13468                                 }
13469                                 ;
13470                             }
13471                         ;
13472                         /*_.IFCPP___V47*/
13473                         meltfptr[19] = /*_._IFELSE___V49*/ meltfptr[23];;
13474                         /*epilog*/
13475
13476                         MELT_LOCATION("warmelt-outobj.melt:3959:/ clear");
13477                         /*clear*/ /*_#STRBUF_USEDLENGTH__L36*/
13478                         meltfnum[17] = 0 ;
13479                         /*^clear*/
13480                         /*clear*/ /*_.REFERENCED_VALUE__V48*/
13481                         meltfptr[24] = 0 ;
13482                         /*^clear*/
13483                         /*clear*/ /*_#GET_INT__L37*/
13484                         meltfnum[15] = 0 ;
13485                         /*^clear*/
13486                         /*clear*/ /*_#ltI__L38*/
13487                         meltfnum[12] = 0 ;
13488                         /*^clear*/
13489                         /*clear*/ /*_._IFELSE___V49*/
13490                         meltfptr[23] = 0 ;
13491                     }
13492
13493 #else /*MELT_HAVE_DEBUG*/
13494                     /*^cppif.else*/
13495                     /*_.IFCPP___V47*/ meltfptr[19] = (/*nil*/NULL);
13496 #endif /*MELT_HAVE_DEBUG*/
13497                     ;
13498
13499                     {
13500                         MELT_LOCATION("warmelt-outobj.melt:3961:/ locexp");
13501                         /*add2sbuf_strconst*/
13502                         meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( " = "));
13503                     }
13504                     ;
13505                 } /* end foreach_pair_component_in_list meltcit2__EACHLIST */
13506             /*_.CURPAIR__V44*/ meltfptr[29] = NULL;
13507             /*_.CURDEST__V45*/
13508             meltfptr[28] = NULL;
13509
13510
13511             /*citerepilog*/
13512
13513             MELT_LOCATION("warmelt-outobj.melt:3955:/ clear");
13514             /*clear*/ /*_.CURPAIR__V44*/
13515             meltfptr[29] = 0 ;
13516             /*^clear*/
13517             /*clear*/ /*_.CURDEST__V45*/
13518             meltfptr[28] = 0 ;
13519             /*^clear*/
13520             /*clear*/ /*_#GET_INT__L35*/
13521             meltfnum[19] = 0 ;
13522             /*^clear*/
13523             /*clear*/ /*_.OUTPUT_C_CODE__V46*/
13524             meltfptr[20] = 0 ;
13525             /*^clear*/
13526             /*clear*/ /*_.IFCPP___V47*/
13527             meltfptr[19] = 0 ;
13528         } /*endciterblock FOREACH_PAIR_COMPONENT_IN_LIST*/
13529         ;
13530
13531         MELT_CHECK_SIGNAL();
13532         ;
13533         MELT_LOCATION("warmelt-outobj.melt:73:/ cond");
13534         /*cond*/
13535         if ( (melt_module_var_fetch (meltmodvarix_FLAGVAL_OUTPUT_DESCR_COMMENT_symb))) /*then*/
13536             {
13537                 /*^cond.then*/
13538                 /*^block*/
13539                 /*anyblock*/
13540                 {
13541
13542
13543                     MELT_CHECK_SIGNAL();
13544                     ;
13545                     /*^apply*/
13546                     /*apply*/
13547                     {
13548                         union meltparam_un argtab[1];
13549                         memset(&argtab, 0, sizeof(argtab));
13550                         /*^apply.arg*/
13551                         argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.OAPP__V2*/ meltfptr[1];
13552                         /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V52*/
13553                         meltfptr[32] =  melt_apply ((meltclosure_ptr_t)((/*!DO_OUTPUT_DESCRIPTIVE_COMMENT*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
13554                     }
13555                     ;
13556                     /*_._IF___V51*/
13557                     meltfptr[30] = /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V52*/ meltfptr[32];;
13558                     /*epilog*/
13559
13560                     MELT_LOCATION("warmelt-outobj.melt:73:/ clear");
13561                     /*clear*/ /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V52*/
13562                     meltfptr[32] = 0 ;
13563                 }
13564                 ;
13565             }
13566         else    /*^cond.else*/
13567             {
13568
13569                 /*_._IF___V51*/ meltfptr[30] =  /*reallynil*/ NULL ;;
13570             }
13571         ;
13572
13573         {
13574             MELT_LOCATION("warmelt-outobj.melt:3964:/ locexp");
13575             /*add2sbuf_strconst*/
13576             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( " melt_apply ((meltclosure_ptr_t)("));
13577         }
13578         ;
13579         /*_#plI__L39*/
13580         meltfnum[14] =
13581             ((1) + (/*_#DEPTH__L1*/ meltfnum[0]));;
13582
13583         MELT_CHECK_SIGNAL();
13584         ;
13585         MELT_LOCATION("warmelt-outobj.melt:3965:/ msend");
13586         /*msend*/
13587         {
13588             union meltparam_un argtab[3];
13589             memset(&argtab, 0, sizeof(argtab));
13590             /*^ojbmsend.arg*/
13591             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2];
13592             /*^ojbmsend.arg*/
13593             argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
13594             /*^ojbmsend.arg*/
13595             argtab[2].meltbp_long = /*_#plI__L39*/ meltfnum[14];
13596             /*_.OUTPUT_C_CODE__V53*/
13597             meltfptr[33] = meltgc_send((melt_ptr_t)(/*_.OCLOS__V11*/ meltfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[14])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
13598         }
13599         ;
13600
13601         {
13602             MELT_LOCATION("warmelt-outobj.melt:3966:/ locexp");
13603             /*add2sbuf_strconst*/
13604             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "), (melt_ptr_t)("));
13605         }
13606         ;
13607         MELT_LOCATION("warmelt-outobj.melt:3968:/ quasiblock");
13608
13609
13610         /*_.FIRSTARG__V55*/
13611         meltfptr[24] =
13612             (melt_multiple_nth((melt_ptr_t)(/*_.OARGS__V12*/ meltfptr[11]), (0)));;
13613         /*^compute*/
13614         /*_#plI__L40*/
13615         meltfnum[20] =
13616             ((1) + (/*_#DEPTH__L1*/ meltfnum[0]));;
13617
13618         MELT_CHECK_SIGNAL();
13619         ;
13620         MELT_LOCATION("warmelt-outobj.melt:3969:/ msend");
13621         /*msend*/
13622         {
13623             union meltparam_un argtab[3];
13624             memset(&argtab, 0, sizeof(argtab));
13625             /*^ojbmsend.arg*/
13626             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2];
13627             /*^ojbmsend.arg*/
13628             argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
13629             /*^ojbmsend.arg*/
13630             argtab[2].meltbp_long = /*_#plI__L40*/ meltfnum[20];
13631             /*_.OUTPUT_C_CODE__V56*/
13632             meltfptr[23] = meltgc_send((melt_ptr_t)(/*_.FIRSTARG__V55*/ meltfptr[24]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[14])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
13633         }
13634         ;
13635         /*_.LET___V54*/
13636         meltfptr[27] = /*_.OUTPUT_C_CODE__V56*/ meltfptr[23];;
13637
13638         MELT_LOCATION("warmelt-outobj.melt:3968:/ clear");
13639         /*clear*/ /*_.FIRSTARG__V55*/
13640         meltfptr[24] = 0 ;
13641         /*^clear*/
13642         /*clear*/ /*_#plI__L40*/
13643         meltfnum[20] = 0 ;
13644         /*^clear*/
13645         /*clear*/ /*_.OUTPUT_C_CODE__V56*/
13646         meltfptr[23] = 0 ;
13647
13648         {
13649             MELT_LOCATION("warmelt-outobj.melt:3971:/ locexp");
13650             /*add2sbuf_strconst*/
13651             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "), ("));
13652         }
13653         ;
13654         /*citerblock FOREACH_PAIR_COMPONENT_IN_LIST*/
13655         {
13656             /* start foreach_pair_component_in_list meltcit3__EACHLIST */
13657             for (/*_.CURPAIR__V57*/ meltfptr[32] = melt_list_first( (melt_ptr_t)/*_.PARAMDESCLIST__V13*/ meltfptr[12]);
13658                                     melt_magic_discr((melt_ptr_t) /*_.CURPAIR__V57*/ meltfptr[32]) == MELTOBMAG_PAIR;
13659                                     /*_.CURPAIR__V57*/ meltfptr[32] = melt_pair_tail((melt_ptr_t) /*_.CURPAIR__V57*/ meltfptr[32]))
13660                 {
13661                     /*_.PARD__V58*/ meltfptr[24] = melt_pair_head((melt_ptr_t) /*_.CURPAIR__V57*/ meltfptr[32]);
13662
13663
13664
13665                     {
13666                         MELT_LOCATION("warmelt-outobj.melt:3976:/ locexp");
13667                         /*add2sbuf_string*/
13668                         meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]),
13669                                           melt_string_str((melt_ptr_t)(/*_.PARD__V58*/ meltfptr[24])));
13670                     }
13671                     ;
13672
13673                     {
13674                         MELT_LOCATION("warmelt-outobj.melt:3977:/ locexp");
13675                         /*add2sbuf_strconst*/
13676                         meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( " "));
13677                     }
13678                     ;
13679                 } /* end foreach_pair_component_in_list meltcit3__EACHLIST */
13680             /*_.CURPAIR__V57*/ meltfptr[32] = NULL;
13681             /*_.PARD__V58*/
13682             meltfptr[24] = NULL;
13683
13684
13685             /*citerepilog*/
13686
13687             MELT_LOCATION("warmelt-outobj.melt:3973:/ clear");
13688             /*clear*/ /*_.CURPAIR__V57*/
13689             meltfptr[32] = 0 ;
13690             /*^clear*/
13691             /*clear*/ /*_.PARD__V58*/
13692             meltfptr[24] = 0 ;
13693         } /*endciterblock FOREACH_PAIR_COMPONENT_IN_LIST*/
13694         ;
13695
13696         {
13697             MELT_LOCATION("warmelt-outobj.melt:3978:/ locexp");
13698             /*add2sbuf_strconst*/
13699             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "\"\"), "));
13700         }
13701         ;
13702
13703         MELT_CHECK_SIGNAL();
13704         ;
13705         /*_#gtI__L41*/
13706         meltfnum[22] =
13707             ((/*_#NBARG__L3*/ meltfnum[1]) > (1));;
13708         MELT_LOCATION("warmelt-outobj.melt:3980:/ cond");
13709         /*cond*/
13710         if (/*_#gtI__L41*/ meltfnum[22]) /*then*/
13711             {
13712                 /*^cond.then*/
13713                 /*^block*/
13714                 /*anyblock*/
13715                 {
13716
13717
13718                     {
13719                         MELT_LOCATION("warmelt-outobj.melt:3981:/ locexp");
13720                         /*add2sbuf_strconst*/
13721                         meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "argtab,"));
13722                     }
13723                     ;
13724                     /*epilog*/
13725                 }
13726                 ;
13727             }
13728         else
13729             {
13730                 MELT_LOCATION("warmelt-outobj.melt:3980:/ cond.else");
13731
13732                 /*^block*/
13733                 /*anyblock*/
13734                 {
13735
13736
13737                     {
13738                         MELT_LOCATION("warmelt-outobj.melt:3982:/ locexp");
13739                         /*add2sbuf_strconst*/
13740                         meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "(union meltparam_un*)0,"));
13741                     }
13742                     ;
13743                     /*epilog*/
13744                 }
13745                 ;
13746             }
13747         ;
13748
13749         {
13750             MELT_LOCATION("warmelt-outobj.melt:3984:/ locexp");
13751             /*add2sbuf_strconst*/
13752             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( " \"\", (union meltparam_un*)0"));
13753         }
13754         ;
13755
13756         {
13757             MELT_LOCATION("warmelt-outobj.melt:3985:/ locexp");
13758             /*add2sbuf_strconst*/
13759             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( ");"));
13760         }
13761         ;
13762         /*_#plI__L42*/
13763         meltfnum[23] =
13764             ((1) + (/*_#DEPTH__L1*/ meltfnum[0]));;
13765
13766         {
13767             MELT_LOCATION("warmelt-outobj.melt:3986:/ locexp");
13768             meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#plI__L42*/ meltfnum[23]), 0);
13769         }
13770         ;
13771
13772         {
13773             MELT_LOCATION("warmelt-outobj.melt:3987:/ locexp");
13774             /*add2sbuf_strconst*/
13775             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "}"));
13776         }
13777         ;
13778
13779         {
13780             MELT_LOCATION("warmelt-outobj.melt:3988:/ locexp");
13781             meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#DEPTH__L1*/ meltfnum[0]), 0);
13782         }
13783         ;
13784
13785 #if MELT_HAVE_DEBUG
13786         MELT_LOCATION("warmelt-outobj.melt:3989:/ cppif.then");
13787         /*^block*/
13788         /*anyblock*/
13789         {
13790
13791
13792             MELT_CHECK_SIGNAL();
13793             ;
13794             /*_#STRBUF_USEDLENGTH__L43*/
13795             meltfnum[21] =
13796                 melt_strbuf_usedlength((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]));;
13797             MELT_LOCATION("warmelt-outobj.melt:3990:/ cond");
13798             /*cond*/
13799             if (
13800                 /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[17])),
13801                                               (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[18])))
13802             ) /*then*/
13803                 {
13804                     /*^cond.then*/
13805                     /*^getslot*/
13806                     {
13807                         melt_ptr_t slot=NULL, obj=NULL;
13808                         obj = (melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[17])) /*=obj*/;
13809                         melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE");
13810                         /*_.REFERENCED_VALUE__V60*/
13811                         meltfptr[59] = slot;
13812                     };
13813                     ;
13814                 }
13815             else    /*^cond.else*/
13816                 {
13817
13818                     /*_.REFERENCED_VALUE__V60*/ meltfptr[59] =  /*reallynil*/ NULL ;;
13819                 }
13820             ;
13821             /*^compute*/
13822             /*_#GET_INT__L44*/
13823             meltfnum[6] =
13824                 (melt_get_int((melt_ptr_t)(/*_.REFERENCED_VALUE__V60*/ meltfptr[59])));;
13825             /*^compute*/
13826             /*_#ltI__L45*/
13827             meltfnum[7] =
13828                 ((/*_#STRBUF_USEDLENGTH__L43*/ meltfnum[21]) < (/*_#GET_INT__L44*/ meltfnum[6]));;
13829             MELT_LOCATION("warmelt-outobj.melt:3989:/ cond");
13830             /*cond*/
13831             if (/*_#ltI__L45*/ meltfnum[7]) /*then*/
13832                 {
13833                     /*^cond.then*/
13834                     /*_._IFELSE___V61*/ meltfptr[60] = (/*nil*/NULL);;
13835                 }
13836             else
13837                 {
13838                     MELT_LOCATION("warmelt-outobj.melt:3989:/ cond.else");
13839
13840                     /*^block*/
13841                     /*anyblock*/
13842                     {
13843
13844
13845                         MELT_CHECK_SIGNAL();
13846                         ;
13847                         /*^apply*/
13848                         /*apply*/
13849                         {
13850                             union meltparam_un argtab[4];
13851                             memset(&argtab, 0, sizeof(argtab));
13852                             /*^apply.arg*/
13853                             argtab[0].meltbp_cstring =  "check limited implbuf";
13854                             /*^apply.arg*/
13855                             argtab[1].meltbp_cstring =  "warmelt-outobj.melt";
13856                             /*^apply.arg*/
13857                             argtab[2].meltbp_long = 3989;
13858                             /*^apply.arg*/
13859                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
13860                             /*_.MELT_ASSERT_FAILURE_FUN__V62*/
13861                             meltfptr[61] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
13862                         }
13863                         ;
13864                         /*_._IFELSE___V61*/
13865                         meltfptr[60] = /*_.MELT_ASSERT_FAILURE_FUN__V62*/ meltfptr[61];;
13866                         /*epilog*/
13867
13868                         MELT_LOCATION("warmelt-outobj.melt:3989:/ clear");
13869                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V62*/
13870                         meltfptr[61] = 0 ;
13871                     }
13872                     ;
13873                 }
13874             ;
13875             /*_.IFCPP___V59*/
13876             meltfptr[23] = /*_._IFELSE___V61*/ meltfptr[60];;
13877             /*epilog*/
13878
13879             MELT_LOCATION("warmelt-outobj.melt:3989:/ clear");
13880             /*clear*/ /*_#STRBUF_USEDLENGTH__L43*/
13881             meltfnum[21] = 0 ;
13882             /*^clear*/
13883             /*clear*/ /*_.REFERENCED_VALUE__V60*/
13884             meltfptr[59] = 0 ;
13885             /*^clear*/
13886             /*clear*/ /*_#GET_INT__L44*/
13887             meltfnum[6] = 0 ;
13888             /*^clear*/
13889             /*clear*/ /*_#ltI__L45*/
13890             meltfnum[7] = 0 ;
13891             /*^clear*/
13892             /*clear*/ /*_._IFELSE___V61*/
13893             meltfptr[60] = 0 ;
13894         }
13895
13896 #else /*MELT_HAVE_DEBUG*/
13897         /*^cppif.else*/
13898         /*_.IFCPP___V59*/ meltfptr[23] = (/*nil*/NULL);
13899 #endif /*MELT_HAVE_DEBUG*/
13900         ;
13901         /*^compute*/
13902         /*_.LET___V8*/
13903         meltfptr[6] = /*_.IFCPP___V59*/ meltfptr[23];;
13904
13905         MELT_LOCATION("warmelt-outobj.melt:3885:/ clear");
13906         /*clear*/ /*_.ALOC__V9*/
13907         meltfptr[5] = 0 ;
13908         /*^clear*/
13909         /*clear*/ /*_.ADEST__V10*/
13910         meltfptr[9] = 0 ;
13911         /*^clear*/
13912         /*clear*/ /*_.OCLOS__V11*/
13913         meltfptr[10] = 0 ;
13914         /*^clear*/
13915         /*clear*/ /*_.OARGS__V12*/
13916         meltfptr[11] = 0 ;
13917         /*^clear*/
13918         /*clear*/ /*_#NBARG__L3*/
13919         meltfnum[1] = 0 ;
13920         /*^clear*/
13921         /*clear*/ /*_.PARAMDESCLIST__V13*/
13922         meltfptr[12] = 0 ;
13923         /*^clear*/
13924         /*clear*/ /*_#plI__L4*/
13925         meltfnum[3] = 0 ;
13926         /*^clear*/
13927         /*clear*/ /*_.BOXDEPTHP1__V14*/
13928         meltfptr[13] = 0 ;
13929         /*^clear*/
13930         /*clear*/ /*_.OUTPUT_LOCATION__V15*/
13931         meltfptr[14] = 0 ;
13932         /*^clear*/
13933         /*clear*/ /*_._IF___V16*/
13934         meltfptr[15] = 0 ;
13935         /*^clear*/
13936         /*clear*/ /*_#plI__L5*/
13937         meltfnum[4] = 0 ;
13938         /*^clear*/
13939         /*clear*/ /*_#gtI__L6*/
13940         meltfnum[5] = 0 ;
13941         /*^clear*/
13942         /*clear*/ /*_._IF___V51*/
13943         meltfptr[30] = 0 ;
13944         /*^clear*/
13945         /*clear*/ /*_#plI__L39*/
13946         meltfnum[14] = 0 ;
13947         /*^clear*/
13948         /*clear*/ /*_.OUTPUT_C_CODE__V53*/
13949         meltfptr[33] = 0 ;
13950         /*^clear*/
13951         /*clear*/ /*_.LET___V54*/
13952         meltfptr[27] = 0 ;
13953         /*^clear*/
13954         /*clear*/ /*_#gtI__L41*/
13955         meltfnum[22] = 0 ;
13956         /*^clear*/
13957         /*clear*/ /*_#plI__L42*/
13958         meltfnum[23] = 0 ;
13959         /*^clear*/
13960         /*clear*/ /*_.IFCPP___V59*/
13961         meltfptr[23] = 0 ;
13962
13963         MELT_CHECK_SIGNAL();
13964         ;
13965         MELT_LOCATION("warmelt-outobj.melt:3883:/ quasiblock");
13966
13967
13968         /*_._RETVAL___V1*/
13969         meltfptr[0] = /*_.LET___V8*/ meltfptr[6];;
13970
13971         {
13972             MELT_LOCATION("warmelt-outobj.melt:3883:/ locexp");
13973             /*ochecknores compilobj_nrep_return*/
13974 #if MELT_HAVE_DEBUG
13975             if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
13976                 melt_warn_for_no_expected_secondary_results();
13977             /* we warned when secondary results are expected but not returned. */
13978 #endif /*MELT_HAVE_DEBUG*/
13979             ;
13980         }
13981         ;
13982         /*^finalreturn*/
13983         ;
13984         /*finalret*/
13985         goto meltlabend_rout ;
13986         /*epilog*/
13987
13988         /*^clear*/
13989         /*clear*/ /*_.IFCPP___V5*/
13990         meltfptr[4] = 0 ;
13991         /*^clear*/
13992         /*clear*/ /*_.LET___V8*/
13993         meltfptr[6] = 0 ;
13994     }
13995
13996     ;
13997     goto meltlabend_rout;
13998 meltlabend_rout:
13999     melt_trace_end("OUTPUCOD_OBJAPPLY", meltcallcount);
14000     melt_blocklevel_signals = current_blocklevel_signals_meltrout_87_WARMELTmiOUTOBJ_OUTPUCOD_OBJAPPLY_melt;
14001     return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]);
14002 #undef meltcallcount
14003 #undef meltfram__
14004 #undef MELTFRAM_NBVARNUM
14005 #undef MELTFRAM_NBVARPTR
14006 } /*end meltrout_87_WARMELTmiOUTOBJ_OUTPUCOD_OBJAPPLY*/
14007
14008
14009
14010
14011
14012
14013 melt_ptr_t MELT_MODULE_VISIBILITY
14014 meltrout_88_WARMELTmiOUTOBJ_OUTPUCOD_OBJMSEND(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_,
14015         const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_)
14016 {
14017     long current_blocklevel_signals_meltrout_88_WARMELTmiOUTOBJ_OUTPUCOD_OBJMSEND_melt =  melt_blocklevel_signals;
14018
14019 #if MELT_HAVE_DEBUG
14020     static long melt_call_counter__;
14021     long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__;
14022 #undef meltcallcount
14023 #define meltcallcount melt_thiscallcounter__
14024 #else
14025 #undef meltcallcount
14026 #define meltcallcount 0L
14027 #endif
14028 //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538
14029
14030     /* start of frame for routine meltrout_88_WARMELTmiOUTOBJ_OUTPUCOD_OBJMSEND fromline 1752 */
14031
14032     /** start of frame for meltrout_88_WARMELTmiOUTOBJ_OUTPUCOD_OBJMSEND of CLASS_PROCROUTINEOBJ from 1555**/
14033
14034     /*curframdeclclassy*/ class MeltFrame_meltrout_88_WARMELTmiOUTOBJ_OUTPUCOD_OBJMSEND// fromline 1568
14035         : public Melt_CallFrameWithValues<61>
14036     {
14037     public: /* fromline 1572*/
14038         long mcfr_varnum[35];
14039         /*classy others*/
14040         long _meltsparel;
14041         void melt_mark_stuff (void)
14042         {
14043         } /*end melt_mark_stuff*/
14044         virtual void melt_mark_ggc_data (void)
14045         {
14046             melt_mark_values ();
14047             melt_mark_stuff ();
14048         }; /*end melt_mark_ggc_data*/
14049         MeltFrame_meltrout_88_WARMELTmiOUTOBJ_OUTPUCOD_OBJMSEND(meltclosure_ptr_t clos) //the closure constructor fromline 1630
14050             : Melt_CallFrameWithValues<61> (
14051 #if ENABLE_CHECKING /*fromline 1634*/
14052                 __FILE__, __LINE__,
14053 #endif /* ENABLE_CHECKING fromline 1638*/
14054                 sizeof(MeltFrame_meltrout_88_WARMELTmiOUTOBJ_OUTPUCOD_OBJMSEND), clos) {};
14055         MeltFrame_meltrout_88_WARMELTmiOUTOBJ_OUTPUCOD_OBJMSEND() //the constructor fromline 1642
14056             : Melt_CallFrameWithValues<61> (
14057 #if ENABLE_CHECKING /*fromline 1646*/
14058                 __FILE__, __LINE__,
14059 #endif /* ENABLE_CHECKING fromline 1650*/
14060                 sizeof(MeltFrame_meltrout_88_WARMELTmiOUTOBJ_OUTPUCOD_OBJMSEND)) {};
14061 #if ENABLE_CHECKING /*fromline 1654*/
14062         MeltFrame_meltrout_88_WARMELTmiOUTOBJ_OUTPUCOD_OBJMSEND(const char*fil, int lin) //the constructor fromline 1656
14063             : Melt_CallFrameWithValues<61> (fil,lin, sizeof(MeltFrame_meltrout_88_WARMELTmiOUTOBJ_OUTPUCOD_OBJMSEND)) {};
14064         MeltFrame_meltrout_88_WARMELTmiOUTOBJ_OUTPUCOD_OBJMSEND(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661
14065             : Melt_CallFrameWithValues<61> (fil,lin, sizeof(MeltFrame_meltrout_88_WARMELTmiOUTOBJ_OUTPUCOD_OBJMSEND), clos) {};
14066 #endif /* ENABLE_CHECKING fromline 1666*/
14067
14068     }; // end  class MeltFrame_meltrout_88_WARMELTmiOUTOBJ_OUTPUCOD_OBJMSEND
14069
14070
14071     /** end of frame for meltrout_88_WARMELTmiOUTOBJ_OUTPUCOD_OBJMSEND fromline 1697**/
14072
14073     /* end of frame for routine meltrout_88_WARMELTmiOUTOBJ_OUTPUCOD_OBJMSEND fromline 1756 */
14074
14075     /* classy proc frame meltrout_88_WARMELTmiOUTOBJ_OUTPUCOD_OBJMSEND */
14076     MeltFrame_meltrout_88_WARMELTmiOUTOBJ_OUTPUCOD_OBJMSEND
14077     meltfram__ /*declfrastruct fromline 1780*/
14078     /*classyprocarg meltrout_88_WARMELTmiOUTOBJ_OUTPUCOD_OBJMSEND fromline 1785*/
14079 #if ENABLE_CHECKING
14080     (__FILE__, __LINE__, meltclosp_) /* fromline 1789*/
14081 #else /*ENABLE_CHECKING */
14082     (meltclosp_) /* fromline 1793*/
14083 #endif /*ENABLE_CHECKING */
14084
14085     ;
14086 #define meltframe meltfram__
14087
14088     melt_trace_start("OUTPUCOD_OBJMSEND", meltcallcount);
14089     /*use arguments*/
14090     (void) meltclosp_;
14091     (void)meltfirstargp_;
14092     (void)meltxargdescr_;
14093     (void)meltxargtab_;
14094     (void)meltxresdescr_;
14095     (void)meltxrestab_;
14096     /*getargs*/
14097
14098     /*getarg#0*/
14099     MELT_LOCATION("warmelt-outobj.melt:3997:/ getarg");
14100     /*_.OMSEND__V2*/
14101     meltfptr[1] = (melt_ptr_t) meltfirstargp_;
14102
14103     /*getarg#1*/
14104     /*^getarg*/
14105     if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs;
14106     /*_.DECLBUF__V3*/
14107     meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
14108     gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2])) != NULL);
14109
14110
14111     /*getarg#2*/
14112     /*^getarg*/
14113     if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs;
14114     /*_.IMPLBUF__V4*/
14115     meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL;
14116     gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3])) != NULL);
14117
14118
14119     /*getarg#3*/
14120     /*^getarg*/
14121     if (meltxargdescr_[2] != MELTBPAR_LONG) goto meltlab_endgetargs;
14122     /*_#DEPTH__L1*/
14123     meltfnum[0] = meltxargtab_[2].meltbp_long;
14124     ;
14125     goto meltlab_endgetargs;
14126 meltlab_endgetargs:
14127     ;
14128     /*body*/
14129     /*^block*/
14130     /*anyblock*/
14131     {
14132
14133
14134 #if MELT_HAVE_DEBUG
14135         MELT_LOCATION("warmelt-outobj.melt:3998:/ cppif.then");
14136         /*^block*/
14137         /*anyblock*/
14138         {
14139
14140
14141             MELT_CHECK_SIGNAL();
14142             ;
14143             /*_#IS_A__L2*/
14144             meltfnum[1] =
14145                 melt_is_instance_of((melt_ptr_t)(/*_.OMSEND__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_OBJMSEND*/ meltfrout->tabval[0])));;
14146             MELT_LOCATION("warmelt-outobj.melt:3998:/ cond");
14147             /*cond*/
14148             if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/
14149                 {
14150                     /*^cond.then*/
14151                     /*_._IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);;
14152                 }
14153             else
14154                 {
14155                     MELT_LOCATION("warmelt-outobj.melt:3998:/ cond.else");
14156
14157                     /*^block*/
14158                     /*anyblock*/
14159                     {
14160
14161
14162                         MELT_CHECK_SIGNAL();
14163                         ;
14164                         /*^apply*/
14165                         /*apply*/
14166                         {
14167                             union meltparam_un argtab[4];
14168                             memset(&argtab, 0, sizeof(argtab));
14169                             /*^apply.arg*/
14170                             argtab[0].meltbp_cstring =  "check omsend";
14171                             /*^apply.arg*/
14172                             argtab[1].meltbp_cstring =  "warmelt-outobj.melt";
14173                             /*^apply.arg*/
14174                             argtab[2].meltbp_long = 3998;
14175                             /*^apply.arg*/
14176                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OMSEND__V2*/ meltfptr[1];
14177                             /*_.MELT_ASSERT_FAILURE_FUN__V7*/
14178                             meltfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
14179                         }
14180                         ;
14181                         /*_._IFELSE___V6*/
14182                         meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6];;
14183                         /*epilog*/
14184
14185                         MELT_LOCATION("warmelt-outobj.melt:3998:/ clear");
14186                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V7*/
14187                         meltfptr[6] = 0 ;
14188                     }
14189                     ;
14190                 }
14191             ;
14192             /*_.IFCPP___V5*/
14193             meltfptr[4] = /*_._IFELSE___V6*/ meltfptr[5];;
14194             /*epilog*/
14195
14196             MELT_LOCATION("warmelt-outobj.melt:3998:/ clear");
14197             /*clear*/ /*_#IS_A__L2*/
14198             meltfnum[1] = 0 ;
14199             /*^clear*/
14200             /*clear*/ /*_._IFELSE___V6*/
14201             meltfptr[5] = 0 ;
14202         }
14203
14204 #else /*MELT_HAVE_DEBUG*/
14205         /*^cppif.else*/
14206         /*_.IFCPP___V5*/ meltfptr[4] = (/*nil*/NULL);
14207 #endif /*MELT_HAVE_DEBUG*/
14208         ;
14209         MELT_LOCATION("warmelt-outobj.melt:3999:/ quasiblock");
14210
14211
14212         /*^getslot*/
14213         {
14214             melt_ptr_t slot=NULL, obj=NULL;
14215             obj = (melt_ptr_t)(/*_.OMSEND__V2*/ meltfptr[1]) /*=obj*/;
14216             melt_object_get_field(slot,obj, 0, "OBI_LOC");
14217             /*_.OLOC__V9*/
14218             meltfptr[5] = slot;
14219         };
14220         ;
14221         MELT_LOCATION("warmelt-outobj.melt:4000:/ getslot");
14222         {
14223             melt_ptr_t slot=NULL, obj=NULL;
14224             obj = (melt_ptr_t)(/*_.OMSEND__V2*/ meltfptr[1]) /*=obj*/;
14225             melt_object_get_field(slot,obj, 1, "OBDI_DESTLIST");
14226             /*_.ODEST__V10*/
14227             meltfptr[9] = slot;
14228         };
14229         ;
14230         MELT_LOCATION("warmelt-outobj.melt:4001:/ getslot");
14231         {
14232             melt_ptr_t slot=NULL, obj=NULL;
14233             obj = (melt_ptr_t)(/*_.OMSEND__V2*/ meltfptr[1]) /*=obj*/;
14234             melt_object_get_field(slot,obj, 2, "OBMSND_SEL");
14235             /*_.OSEL__V11*/
14236             meltfptr[10] = slot;
14237         };
14238         ;
14239         MELT_LOCATION("warmelt-outobj.melt:4002:/ getslot");
14240         {
14241             melt_ptr_t slot=NULL, obj=NULL;
14242             obj = (melt_ptr_t)(/*_.OMSEND__V2*/ meltfptr[1]) /*=obj*/;
14243             melt_object_get_field(slot,obj, 3, "OBMSND_RECV");
14244             /*_.ORECV__V12*/
14245             meltfptr[11] = slot;
14246         };
14247         ;
14248         MELT_LOCATION("warmelt-outobj.melt:4003:/ getslot");
14249         {
14250             melt_ptr_t slot=NULL, obj=NULL;
14251             obj = (melt_ptr_t)(/*_.OMSEND__V2*/ meltfptr[1]) /*=obj*/;
14252             melt_object_get_field(slot,obj, 4, "OBMSND_ARGS");
14253             /*_.OARGS__V13*/
14254             meltfptr[12] = slot;
14255         };
14256         ;
14257         /*_#NBARG__L3*/
14258         meltfnum[1] =
14259             (melt_multiple_length((melt_ptr_t)(/*_.OARGS__V13*/ meltfptr[12])));;
14260         /*^compute*/
14261         /*_.PARAMDESCLIST__V14*/
14262         meltfptr[13] =
14263             (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[2]))));;
14264         /*^compute*/
14265         /*_#plI__L4*/
14266         meltfnum[3] =
14267             ((1) + (/*_#DEPTH__L1*/ meltfnum[0]));;
14268         /*^compute*/
14269         /*_.BOXDEPTHP1__V15*/
14270         meltfptr[14] =
14271             (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[3])), (/*_#plI__L4*/ meltfnum[3])));;
14272
14273         MELT_CHECK_SIGNAL();
14274         ;
14275         MELT_LOCATION("warmelt-outobj.melt:4008:/ apply");
14276         /*apply*/
14277         {
14278             union meltparam_un argtab[3];
14279             memset(&argtab, 0, sizeof(argtab));
14280             /*^apply.arg*/
14281             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
14282             /*^apply.arg*/
14283             argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0];
14284             /*^apply.arg*/
14285             argtab[2].meltbp_cstring =  "msend";
14286             /*_.OUTPUT_LOCATION__V16*/
14287             meltfptr[15] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.OLOC__V9*/ meltfptr[5]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
14288         }
14289         ;
14290
14291         MELT_CHECK_SIGNAL();
14292         ;
14293         MELT_LOCATION("warmelt-outobj.melt:73:/ cond");
14294         /*cond*/
14295         if ( (melt_module_var_fetch (meltmodvarix_FLAGVAL_OUTPUT_DESCR_COMMENT_symb))) /*then*/
14296             {
14297                 /*^cond.then*/
14298                 /*^block*/
14299                 /*anyblock*/
14300                 {
14301
14302
14303                     MELT_CHECK_SIGNAL();
14304                     ;
14305                     /*^apply*/
14306                     /*apply*/
14307                     {
14308                         union meltparam_un argtab[1];
14309                         memset(&argtab, 0, sizeof(argtab));
14310                         /*^apply.arg*/
14311                         argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.OMSEND__V2*/ meltfptr[1];
14312                         /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V18*/
14313                         meltfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!DO_OUTPUT_DESCRIPTIVE_COMMENT*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
14314                     }
14315                     ;
14316                     /*_._IF___V17*/
14317                     meltfptr[16] = /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V18*/ meltfptr[17];;
14318                     /*epilog*/
14319
14320                     MELT_LOCATION("warmelt-outobj.melt:73:/ clear");
14321                     /*clear*/ /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V18*/
14322                     meltfptr[17] = 0 ;
14323                 }
14324                 ;
14325             }
14326         else    /*^cond.else*/
14327             {
14328
14329                 /*_._IF___V17*/ meltfptr[16] =  /*reallynil*/ NULL ;;
14330             }
14331         ;
14332
14333         {
14334             MELT_LOCATION("warmelt-outobj.melt:4010:/ locexp");
14335             /*add2sbuf_strconst*/
14336             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "/*msend*/{"));
14337         }
14338         ;
14339         /*_#plI__L5*/
14340         meltfnum[4] =
14341             ((1) + (/*_#DEPTH__L1*/ meltfnum[0]));;
14342
14343         {
14344             MELT_LOCATION("warmelt-outobj.melt:4011:/ locexp");
14345             meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#plI__L5*/ meltfnum[4]), 0);
14346         }
14347         ;
14348
14349         MELT_CHECK_SIGNAL();
14350         ;
14351         /*_#gtI__L6*/
14352         meltfnum[5] =
14353             ((/*_#NBARG__L3*/ meltfnum[1]) > (0));;
14354         MELT_LOCATION("warmelt-outobj.melt:4012:/ cond");
14355         /*cond*/
14356         if (/*_#gtI__L6*/ meltfnum[5]) /*then*/
14357             {
14358                 /*^cond.then*/
14359                 /*^block*/
14360                 /*anyblock*/
14361                 {
14362
14363
14364                     {
14365                         MELT_LOCATION("warmelt-outobj.melt:4016:/ locexp");
14366                         /*add2sbuf_strconst*/
14367                         meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "union meltparam_un argtab["));
14368                     }
14369                     ;
14370
14371                     {
14372                         MELT_LOCATION("warmelt-outobj.melt:4017:/ locexp");
14373                         meltgc_add_strbuf_dec((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#NBARG__L3*/ meltfnum[1]));
14374                     }
14375                     ;
14376
14377                     {
14378                         MELT_LOCATION("warmelt-outobj.melt:4018:/ locexp");
14379                         /*add2sbuf_strconst*/
14380                         meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "];"));
14381                     }
14382                     ;
14383                     /*_#plI__L7*/
14384                     meltfnum[6] =
14385                         ((1) + (/*_#DEPTH__L1*/ meltfnum[0]));;
14386
14387                     {
14388                         MELT_LOCATION("warmelt-outobj.melt:4019:/ locexp");
14389                         meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#plI__L7*/ meltfnum[6]), 0);
14390                     }
14391                     ;
14392
14393                     {
14394                         MELT_LOCATION("warmelt-outobj.melt:4020:/ locexp");
14395                         /*add2sbuf_strconst*/
14396                         meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "memset(&argtab, 0, sizeof(argtab));"));
14397                     }
14398                     ;
14399                     /*_#plI__L8*/
14400                     meltfnum[7] =
14401                         ((1) + (/*_#DEPTH__L1*/ meltfnum[0]));;
14402
14403                     {
14404                         MELT_LOCATION("warmelt-outobj.melt:4021:/ locexp");
14405                         meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#plI__L8*/ meltfnum[7]), 0);
14406                     }
14407                     ;
14408                     /*citerblock FOREACH_IN_MULTIPLE*/
14409                     {
14410                         /* start foreach_in_multiple meltcit1__EACHTUP */
14411                         long  meltcit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.OARGS__V13*/ meltfptr[12]);
14412                         for (/*_#CURANK__L9*/ meltfnum[8] = 0;
14413                                               (/*_#CURANK__L9*/ meltfnum[8] >= 0) && (/*_#CURANK__L9*/ meltfnum[8] <  meltcit1__EACHTUP_ln);
14414                                               /*_#CURANK__L9*/ meltfnum[8]++)
14415                             {
14416                                 /*_.CURARG__V19*/ meltfptr[17] = melt_multiple_nth((melt_ptr_t)(/*_.OARGS__V13*/ meltfptr[12]),  /*_#CURANK__L9*/ meltfnum[8]);
14417
14418
14419
14420                                 MELT_LOCATION("warmelt-outobj.melt:4026:/ quasiblock");
14421
14422
14423
14424                                 MELT_CHECK_SIGNAL();
14425                                 ;
14426                                 /*^msend*/
14427                                 /*msend*/
14428                                 {
14429                                     union meltparam_un argtab[1];
14430                                     memset(&argtab, 0, sizeof(argtab));
14431                                     /*^ojbmsend.arg*/
14432                                     argtab[0].meltbp_aptr = /*nil*/(melt_ptr_t*)NULL;
14433                                     /*_.CURCTYP__V20*/
14434                                     meltfptr[19] = meltgc_send((melt_ptr_t)(/*_.CURARG__V19*/ meltfptr[17]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[6])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
14435                                 }
14436                                 ;
14437
14438 #if MELT_HAVE_DEBUG
14439                                 MELT_LOCATION("warmelt-outobj.melt:4027:/ cppif.then");
14440                                 /*^block*/
14441                                 /*anyblock*/
14442                                 {
14443
14444
14445                                     MELT_CHECK_SIGNAL();
14446                                     ;
14447                                     /*_#IS_A__L10*/
14448                                     meltfnum[9] =
14449                                         melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V20*/ meltfptr[19]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[7])));;
14450                                     MELT_LOCATION("warmelt-outobj.melt:4027:/ cond");
14451                                     /*cond*/
14452                                     if (/*_#IS_A__L10*/ meltfnum[9]) /*then*/
14453                                         {
14454                                             /*^cond.then*/
14455                                             /*_._IFELSE___V22*/ meltfptr[21] = (/*nil*/NULL);;
14456                                         }
14457                                     else
14458                                         {
14459                                             MELT_LOCATION("warmelt-outobj.melt:4027:/ cond.else");
14460
14461                                             /*^block*/
14462                                             /*anyblock*/
14463                                             {
14464
14465
14466                                                 MELT_CHECK_SIGNAL();
14467                                                 ;
14468                                                 /*^apply*/
14469                                                 /*apply*/
14470                                                 {
14471                                                     union meltparam_un argtab[3];
14472                                                     memset(&argtab, 0, sizeof(argtab));
14473                                                     /*^apply.arg*/
14474                                                     argtab[0].meltbp_cstring =  "check curctyp";
14475                                                     /*^apply.arg*/
14476                                                     argtab[1].meltbp_cstring =  "warmelt-outobj.melt";
14477                                                     /*^apply.arg*/
14478                                                     argtab[2].meltbp_long = 4027;
14479                                                     /*_.MELT_ASSERT_FAILURE_FUN__V23*/
14480                                                     meltfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
14481                                                 }
14482                                                 ;
14483                                                 /*_._IFELSE___V22*/
14484                                                 meltfptr[21] = /*_.MELT_ASSERT_FAILURE_FUN__V23*/ meltfptr[22];;
14485                                                 /*epilog*/
14486
14487                                                 MELT_LOCATION("warmelt-outobj.melt:4027:/ clear");
14488                                                 /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V23*/
14489                                                 meltfptr[22] = 0 ;
14490                                             }
14491                                             ;
14492                                         }
14493                                     ;
14494                                     /*_.IFCPP___V21*/
14495                                     meltfptr[20] = /*_._IFELSE___V22*/ meltfptr[21];;
14496                                     /*epilog*/
14497
14498                                     MELT_LOCATION("warmelt-outobj.melt:4027:/ clear");
14499                                     /*clear*/ /*_#IS_A__L10*/
14500                                     meltfnum[9] = 0 ;
14501                                     /*^clear*/
14502                                     /*clear*/ /*_._IFELSE___V22*/
14503                                     meltfptr[21] = 0 ;
14504                                 }
14505
14506 #else /*MELT_HAVE_DEBUG*/
14507                                 /*^cppif.else*/
14508                                 /*_.IFCPP___V21*/ meltfptr[20] = (/*nil*/NULL);
14509 #endif /*MELT_HAVE_DEBUG*/
14510                                 ;
14511                                 /*^compute*/
14512                                 /*_#GET_INT__L11*/
14513                                 meltfnum[9] =
14514                                     (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V15*/ meltfptr[14])));;
14515
14516                                 MELT_CHECK_SIGNAL();
14517                                 ;
14518                                 MELT_LOCATION("warmelt-outobj.melt:4028:/ apply");
14519                                 /*apply*/
14520                                 {
14521                                     union meltparam_un argtab[3];
14522                                     memset(&argtab, 0, sizeof(argtab));
14523                                     /*^apply.arg*/
14524                                     argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
14525                                     /*^apply.arg*/
14526                                     argtab[1].meltbp_long = /*_#GET_INT__L11*/ meltfnum[9];
14527                                     /*^apply.arg*/
14528                                     argtab[2].meltbp_cstring =  "ojbmsend.arg";
14529                                     /*_.OUTPUT_LOCATION__V24*/
14530                                     meltfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.OLOC__V9*/ meltfptr[5]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
14531                                 }
14532                                 ;
14533
14534                                 {
14535                                     MELT_LOCATION("warmelt-outobj.melt:4029:/ locexp");
14536                                     /*add2sbuf_strconst*/
14537                                     meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "argtab["));
14538                                 }
14539                                 ;
14540
14541                                 {
14542                                     MELT_LOCATION("warmelt-outobj.melt:4030:/ locexp");
14543                                     meltgc_add_strbuf_dec((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#CURANK__L9*/ meltfnum[8]));
14544                                 }
14545                                 ;
14546
14547                                 {
14548                                     MELT_LOCATION("warmelt-outobj.melt:4031:/ locexp");
14549                                     /*add2sbuf_strconst*/
14550                                     meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "]."));
14551                                 }
14552                                 ;
14553                                 MELT_LOCATION("warmelt-outobj.melt:4032:/ getslot");
14554                                 {
14555                                     melt_ptr_t slot=NULL, obj=NULL;
14556                                     obj = (melt_ptr_t)(/*_.CURCTYP__V20*/ meltfptr[19]) /*=obj*/;
14557                                     melt_object_get_field(slot,obj, 6, "CTYPE_PARSTRING");
14558                                     /*_.CTYPE_PARSTRING__V25*/
14559                                     meltfptr[21] = slot;
14560                                 };
14561                                 ;
14562
14563                                 {
14564                                     /*^locexp*/
14565                                     meltgc_append_list((melt_ptr_t)(/*_.PARAMDESCLIST__V14*/ meltfptr[13]), (melt_ptr_t)(/*_.CTYPE_PARSTRING__V25*/ meltfptr[21]));
14566                                 }
14567                                 ;
14568
14569                                 MELT_CHECK_SIGNAL();
14570                                 ;
14571                                 /*_#NULL__L12*/
14572                                 meltfnum[11] =
14573                                     (/*null*/(/*_.CURARG__V19*/ meltfptr[17]) == NULL);;
14574                                 MELT_LOCATION("warmelt-outobj.melt:4033:/ cond");
14575                                 /*cond*/
14576                                 if (/*_#NULL__L12*/ meltfnum[11]) /*then*/
14577                                     {
14578                                         /*^cond.then*/
14579                                         /*^block*/
14580                                         /*anyblock*/
14581                                         {
14582
14583
14584
14585
14586                                             {
14587                                                 MELT_LOCATION("warmelt-outobj.melt:4034:/ locexp");
14588                                                 /*add2sbuf_strconst*/
14589                                                 meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "meltbp_aptr = (melt_ptr_t*)NULL"));
14590                                             }
14591                                             ;
14592                                             /*clear*/ /*_._IFELSE___V26*/
14593                                             meltfptr[25] = 0 ;
14594                                             /*epilog*/
14595                                         }
14596                                         ;
14597                                     }
14598                                 else
14599                                     {
14600                                         MELT_LOCATION("warmelt-outobj.melt:4033:/ cond.else");
14601
14602                                         /*^block*/
14603                                         /*anyblock*/
14604                                         {
14605
14606
14607                                             MELT_CHECK_SIGNAL();
14608                                             ;
14609                                             /*_#IS_A__L13*/
14610                                             meltfnum[12] =
14611                                                 melt_is_instance_of((melt_ptr_t)(/*_.CURARG__V19*/ meltfptr[17]), (melt_ptr_t)((/*!CLASS_OBJNIL*/ meltfrout->tabval[8])));;
14612                                             MELT_LOCATION("warmelt-outobj.melt:4036:/ cond");
14613                                             /*cond*/
14614                                             if (/*_#IS_A__L13*/ meltfnum[12]) /*then*/
14615                                                 {
14616                                                     /*^cond.then*/
14617                                                     /*^block*/
14618                                                     /*anyblock*/
14619                                                     {
14620
14621
14622
14623
14624                                                         {
14625                                                             MELT_LOCATION("warmelt-outobj.melt:4037:/ locexp");
14626                                                             /*add2sbuf_strconst*/
14627                                                             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "meltbp_aptr = /*nil*/(melt_ptr_t*)NULL"));
14628                                                         }
14629                                                         ;
14630                                                         /*clear*/ /*_._IFELSE___V27*/
14631                                                         meltfptr[26] = 0 ;
14632                                                         /*epilog*/
14633                                                     }
14634                                                     ;
14635                                                 }
14636                                             else
14637                                                 {
14638                                                     MELT_LOCATION("warmelt-outobj.melt:4036:/ cond.else");
14639
14640                                                     /*^block*/
14641                                                     /*anyblock*/
14642                                                     {
14643
14644
14645                                                         MELT_CHECK_SIGNAL();
14646                                                         ;
14647                                                         /*_#eqeq__L14*/
14648                                                         meltfnum[13] =
14649                                                             ((/*_.CURCTYP__V20*/ meltfptr[19]) == ((/*!CTYPE_VALUE*/ meltfrout->tabval[9])));;
14650                                                         MELT_LOCATION("warmelt-outobj.melt:4039:/ cond");
14651                                                         /*cond*/
14652                                                         if (/*_#eqeq__L14*/ meltfnum[13]) /*then*/
14653                                                             {
14654                                                                 /*^cond.then*/
14655                                                                 /*^block*/
14656                                                                 /*anyblock*/
14657                                                                 {
14658
14659
14660                                                                     {
14661                                                                         MELT_LOCATION("warmelt-outobj.melt:4040:/ locexp");
14662                                                                         /*add2sbuf_strconst*/
14663                                                                         meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "meltbp_aptr = (melt_ptr_t*) &"));
14664                                                                     }
14665                                                                     ;
14666                                                                     /*_#GET_INT__L15*/
14667                                                                     meltfnum[14] =
14668                                                                         (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V15*/ meltfptr[14])));;
14669
14670                                                                     MELT_CHECK_SIGNAL();
14671                                                                     ;
14672                                                                     MELT_LOCATION("warmelt-outobj.melt:4041:/ msend");
14673                                                                     /*msend*/
14674                                                                     {
14675                                                                         union meltparam_un argtab[3];
14676                                                                         memset(&argtab, 0, sizeof(argtab));
14677                                                                         /*^ojbmsend.arg*/
14678                                                                         argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2];
14679                                                                         /*^ojbmsend.arg*/
14680                                                                         argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
14681                                                                         /*^ojbmsend.arg*/
14682                                                                         argtab[2].meltbp_long = /*_#GET_INT__L15*/ meltfnum[14];
14683                                                                         /*_.OUTPUT_C_CODE__V29*/
14684                                                                         meltfptr[28] = meltgc_send((melt_ptr_t)(/*_.CURARG__V19*/ meltfptr[17]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[10])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
14685                                                                     }
14686                                                                     ;
14687                                                                     MELT_LOCATION("warmelt-outobj.melt:4039:/ quasiblock");
14688
14689
14690                                                                     /*_.PROGN___V30*/
14691                                                                     meltfptr[29] = /*_.OUTPUT_C_CODE__V29*/ meltfptr[28];;
14692                                                                     /*^compute*/
14693                                                                     /*_._IFELSE___V28*/
14694                                                                     meltfptr[27] = /*_.PROGN___V30*/ meltfptr[29];;
14695                                                                     /*epilog*/
14696
14697                                                                     MELT_LOCATION("warmelt-outobj.melt:4039:/ clear");
14698                                                                     /*clear*/ /*_#GET_INT__L15*/
14699                                                                     meltfnum[14] = 0 ;
14700                                                                     /*^clear*/
14701                                                                     /*clear*/ /*_.OUTPUT_C_CODE__V29*/
14702                                                                     meltfptr[28] = 0 ;
14703                                                                     /*^clear*/
14704                                                                     /*clear*/ /*_.PROGN___V30*/
14705                                                                     meltfptr[29] = 0 ;
14706                                                                 }
14707                                                                 ;
14708                                                             }
14709                                                         else    /*^cond.else*/
14710                                                             {
14711
14712                                                                 /*^block*/
14713                                                                 /*anyblock*/
14714                                                                 {
14715
14716
14717 #if MELT_HAVE_DEBUG
14718                                                                     MELT_LOCATION("warmelt-outobj.melt:4044:/ cppif.then");
14719                                                                     /*^block*/
14720                                                                     /*anyblock*/
14721                                                                     {
14722
14723
14724                                                                         MELT_CHECK_SIGNAL();
14725                                                                         ;
14726                                                                         /*_#IS_MULTIPLE__L16*/
14727                                                                         meltfnum[14] =
14728                                                                             (melt_magic_discr((melt_ptr_t)(/*_.CURARG__V19*/ meltfptr[17])) == MELTOBMAG_MULTIPLE);;
14729                                                                         /*^compute*/
14730                                                                         /*_#NOT__L17*/
14731                                                                         meltfnum[16] =
14732                                                                             (!(/*_#IS_MULTIPLE__L16*/ meltfnum[14]));;
14733                                                                         MELT_LOCATION("warmelt-outobj.melt:4044:/ cond");
14734                                                                         /*cond*/
14735                                                                         if (/*_#NOT__L17*/ meltfnum[16]) /*then*/
14736                                                                             {
14737                                                                                 /*^cond.then*/
14738                                                                                 /*_._IFELSE___V32*/ meltfptr[29] = (/*nil*/NULL);;
14739                                                                             }
14740                                                                         else
14741                                                                             {
14742                                                                                 MELT_LOCATION("warmelt-outobj.melt:4044:/ cond.else");
14743
14744                                                                                 /*^block*/
14745                                                                                 /*anyblock*/
14746                                                                                 {
14747
14748
14749                                                                                     MELT_CHECK_SIGNAL();
14750                                                                                     ;
14751                                                                                     /*^apply*/
14752                                                                                     /*apply*/
14753                                                                                     {
14754                                                                                         union meltparam_un argtab[3];
14755                                                                                         memset(&argtab, 0, sizeof(argtab));
14756                                                                                         /*^apply.arg*/
14757                                                                                         argtab[0].meltbp_cstring =  "check curarg is not multiple";
14758                                                                                         /*^apply.arg*/
14759                                                                                         argtab[1].meltbp_cstring =  "warmelt-outobj.melt";
14760                                                                                         /*^apply.arg*/
14761                                                                                         argtab[2].meltbp_long = 4044;
14762                                                                                         /*_.MELT_ASSERT_FAILURE_FUN__V33*/
14763                                                                                         meltfptr[32] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
14764                                                                                     }
14765                                                                                     ;
14766                                                                                     /*_._IFELSE___V32*/
14767                                                                                     meltfptr[29] = /*_.MELT_ASSERT_FAILURE_FUN__V33*/ meltfptr[32];;
14768                                                                                     /*epilog*/
14769
14770                                                                                     MELT_LOCATION("warmelt-outobj.melt:4044:/ clear");
14771                                                                                     /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V33*/
14772                                                                                     meltfptr[32] = 0 ;
14773                                                                                 }
14774                                                                                 ;
14775                                                                             }
14776                                                                         ;
14777                                                                         /*_.IFCPP___V31*/
14778                                                                         meltfptr[28] = /*_._IFELSE___V32*/ meltfptr[29];;
14779                                                                         /*epilog*/
14780
14781                                                                         MELT_LOCATION("warmelt-outobj.melt:4044:/ clear");
14782                                                                         /*clear*/ /*_#IS_MULTIPLE__L16*/
14783                                                                         meltfnum[14] = 0 ;
14784                                                                         /*^clear*/
14785                                                                         /*clear*/ /*_#NOT__L17*/
14786                                                                         meltfnum[16] = 0 ;
14787                                                                         /*^clear*/
14788                                                                         /*clear*/ /*_._IFELSE___V32*/
14789                                                                         meltfptr[29] = 0 ;
14790                                                                     }
14791
14792 #else /*MELT_HAVE_DEBUG*/
14793                                                                     /*^cppif.else*/
14794                                                                     /*_.IFCPP___V31*/ meltfptr[28] = (/*nil*/NULL);
14795 #endif /*MELT_HAVE_DEBUG*/
14796                                                                     ;
14797                                                                     MELT_LOCATION("warmelt-outobj.melt:4045:/ getslot");
14798                                                                     {
14799                                                                         melt_ptr_t slot=NULL, obj=NULL;
14800                                                                         obj = (melt_ptr_t)(/*_.CURCTYP__V20*/ meltfptr[19]) /*=obj*/;
14801                                                                         melt_object_get_field(slot,obj, 7, "CTYPE_ARGFIELD");
14802                                                                         /*_.CTYPE_ARGFIELD__V34*/
14803                                                                         meltfptr[32] = slot;
14804                                                                     };
14805                                                                     ;
14806
14807                                                                     {
14808                                                                         /*^locexp*/
14809                                                                         /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]),
14810                                                                                                               melt_string_str((melt_ptr_t)(/*_.CTYPE_ARGFIELD__V34*/ meltfptr[32])));
14811                                                                     }
14812                                                                     ;
14813
14814                                                                     {
14815                                                                         MELT_LOCATION("warmelt-outobj.melt:4046:/ locexp");
14816                                                                         /*add2sbuf_strconst*/
14817                                                                         meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( " = "));
14818                                                                     }
14819                                                                     ;
14820                                                                     /*_#GET_INT__L18*/
14821                                                                     meltfnum[14] =
14822                                                                         (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V15*/ meltfptr[14])));;
14823
14824                                                                     MELT_CHECK_SIGNAL();
14825                                                                     ;
14826                                                                     MELT_LOCATION("warmelt-outobj.melt:4047:/ msend");
14827                                                                     /*msend*/
14828                                                                     {
14829                                                                         union meltparam_un argtab[3];
14830                                                                         memset(&argtab, 0, sizeof(argtab));
14831                                                                         /*^ojbmsend.arg*/
14832                                                                         argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2];
14833                                                                         /*^ojbmsend.arg*/
14834                                                                         argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
14835                                                                         /*^ojbmsend.arg*/
14836                                                                         argtab[2].meltbp_long = /*_#GET_INT__L18*/ meltfnum[14];
14837                                                                         /*_.OUTPUT_C_CODE__V35*/
14838                                                                         meltfptr[29] = meltgc_send((melt_ptr_t)(/*_.CURARG__V19*/ meltfptr[17]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[10])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
14839                                                                     }
14840                                                                     ;
14841                                                                     MELT_LOCATION("warmelt-outobj.melt:4043:/ quasiblock");
14842
14843
14844                                                                     /*_.PROGN___V36*/
14845                                                                     meltfptr[35] = /*_.OUTPUT_C_CODE__V35*/ meltfptr[29];;
14846                                                                     /*^compute*/
14847                                                                     /*_._IFELSE___V28*/
14848                                                                     meltfptr[27] = /*_.PROGN___V36*/ meltfptr[35];;
14849                                                                     /*epilog*/
14850
14851                                                                     MELT_LOCATION("warmelt-outobj.melt:4039:/ clear");
14852                                                                     /*clear*/ /*_.IFCPP___V31*/
14853                                                                     meltfptr[28] = 0 ;
14854                                                                     /*^clear*/
14855                                                                     /*clear*/ /*_.CTYPE_ARGFIELD__V34*/
14856                                                                     meltfptr[32] = 0 ;
14857                                                                     /*^clear*/
14858                                                                     /*clear*/ /*_#GET_INT__L18*/
14859                                                                     meltfnum[14] = 0 ;
14860                                                                     /*^clear*/
14861                                                                     /*clear*/ /*_.OUTPUT_C_CODE__V35*/
14862                                                                     meltfptr[29] = 0 ;
14863                                                                     /*^clear*/
14864                                                                     /*clear*/ /*_.PROGN___V36*/
14865                                                                     meltfptr[35] = 0 ;
14866                                                                 }
14867                                                                 ;
14868                                                             }
14869                                                         ;
14870                                                         /*_._IFELSE___V27*/
14871                                                         meltfptr[26] = /*_._IFELSE___V28*/ meltfptr[27];;
14872                                                         /*epilog*/
14873
14874                                                         MELT_LOCATION("warmelt-outobj.melt:4036:/ clear");
14875                                                         /*clear*/ /*_#eqeq__L14*/
14876                                                         meltfnum[13] = 0 ;
14877                                                         /*^clear*/
14878                                                         /*clear*/ /*_._IFELSE___V28*/
14879                                                         meltfptr[27] = 0 ;
14880                                                     }
14881                                                     ;
14882                                                 }
14883                                             ;
14884                                             /*_._IFELSE___V26*/
14885                                             meltfptr[25] = /*_._IFELSE___V27*/ meltfptr[26];;
14886                                             /*epilog*/
14887
14888                                             MELT_LOCATION("warmelt-outobj.melt:4033:/ clear");
14889                                             /*clear*/ /*_#IS_A__L13*/
14890                                             meltfnum[12] = 0 ;
14891                                             /*^clear*/
14892                                             /*clear*/ /*_._IFELSE___V27*/
14893                                             meltfptr[26] = 0 ;
14894                                         }
14895                                         ;
14896                                     }
14897                                 ;
14898
14899                                 {
14900                                     MELT_LOCATION("warmelt-outobj.melt:4049:/ locexp");
14901                                     /*add2sbuf_strconst*/
14902                                     meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( ";"));
14903                                 }
14904                                 ;
14905
14906 #if MELT_HAVE_DEBUG
14907                                 MELT_LOCATION("warmelt-outobj.melt:4050:/ cppif.then");
14908                                 /*^block*/
14909                                 /*anyblock*/
14910                                 {
14911
14912
14913                                     MELT_CHECK_SIGNAL();
14914                                     ;
14915                                     /*_#STRBUF_USEDLENGTH__L19*/
14916                                     meltfnum[16] =
14917                                         melt_strbuf_usedlength((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]));;
14918                                     MELT_LOCATION("warmelt-outobj.melt:4051:/ cond");
14919                                     /*cond*/
14920                                     if (
14921                                         /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[11])),
14922                                                                       (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[12])))
14923                                     ) /*then*/
14924                                         {
14925                                             /*^cond.then*/
14926                                             /*^getslot*/
14927                                             {
14928                                                 melt_ptr_t slot=NULL, obj=NULL;
14929                                                 obj = (melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[11])) /*=obj*/;
14930                                                 melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE");
14931                                                 /*_.REFERENCED_VALUE__V38*/
14932                                                 meltfptr[32] = slot;
14933                                             };
14934                                             ;
14935                                         }
14936                                     else    /*^cond.else*/
14937                                         {
14938
14939                                             /*_.REFERENCED_VALUE__V38*/ meltfptr[32] =  /*reallynil*/ NULL ;;
14940                                         }
14941                                     ;
14942                                     /*^compute*/
14943                                     /*_#GET_INT__L20*/
14944                                     meltfnum[14] =
14945                                         (melt_get_int((melt_ptr_t)(/*_.REFERENCED_VALUE__V38*/ meltfptr[32])));;
14946                                     /*^compute*/
14947                                     /*_#ltI__L21*/
14948                                     meltfnum[13] =
14949                                         ((/*_#STRBUF_USEDLENGTH__L19*/ meltfnum[16]) < (/*_#GET_INT__L20*/ meltfnum[14]));;
14950                                     MELT_LOCATION("warmelt-outobj.melt:4050:/ cond");
14951                                     /*cond*/
14952                                     if (/*_#ltI__L21*/ meltfnum[13]) /*then*/
14953                                         {
14954                                             /*^cond.then*/
14955                                             /*_._IFELSE___V39*/ meltfptr[29] = (/*nil*/NULL);;
14956                                         }
14957                                     else
14958                                         {
14959                                             MELT_LOCATION("warmelt-outobj.melt:4050:/ cond.else");
14960
14961                                             /*^block*/
14962                                             /*anyblock*/
14963                                             {
14964
14965
14966                                                 MELT_CHECK_SIGNAL();
14967                                                 ;
14968                                                 /*^apply*/
14969                                                 /*apply*/
14970                                                 {
14971                                                     union meltparam_un argtab[4];
14972                                                     memset(&argtab, 0, sizeof(argtab));
14973                                                     /*^apply.arg*/
14974                                                     argtab[0].meltbp_cstring =  "check limited implbuf";
14975                                                     /*^apply.arg*/
14976                                                     argtab[1].meltbp_cstring =  "warmelt-outobj.melt";
14977                                                     /*^apply.arg*/
14978                                                     argtab[2].meltbp_long = 4050;
14979                                                     /*^apply.arg*/
14980                                                     argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
14981                                                     /*_.MELT_ASSERT_FAILURE_FUN__V40*/
14982                                                     meltfptr[35] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
14983                                                 }
14984                                                 ;
14985                                                 /*_._IFELSE___V39*/
14986                                                 meltfptr[29] = /*_.MELT_ASSERT_FAILURE_FUN__V40*/ meltfptr[35];;
14987                                                 /*epilog*/
14988
14989                                                 MELT_LOCATION("warmelt-outobj.melt:4050:/ clear");
14990                                                 /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V40*/
14991                                                 meltfptr[35] = 0 ;
14992                                             }
14993                                             ;
14994                                         }
14995                                     ;
14996                                     /*_.IFCPP___V37*/
14997                                     meltfptr[28] = /*_._IFELSE___V39*/ meltfptr[29];;
14998                                     /*epilog*/
14999
15000                                     MELT_LOCATION("warmelt-outobj.melt:4050:/ clear");
15001                                     /*clear*/ /*_#STRBUF_USEDLENGTH__L19*/
15002                                     meltfnum[16] = 0 ;
15003                                     /*^clear*/
15004                                     /*clear*/ /*_.REFERENCED_VALUE__V38*/
15005                                     meltfptr[32] = 0 ;
15006                                     /*^clear*/
15007                                     /*clear*/ /*_#GET_INT__L20*/
15008                                     meltfnum[14] = 0 ;
15009                                     /*^clear*/
15010                                     /*clear*/ /*_#ltI__L21*/
15011                                     meltfnum[13] = 0 ;
15012                                     /*^clear*/
15013                                     /*clear*/ /*_._IFELSE___V39*/
15014                                     meltfptr[29] = 0 ;
15015                                 }
15016
15017 #else /*MELT_HAVE_DEBUG*/
15018                                 /*^cppif.else*/
15019                                 /*_.IFCPP___V37*/ meltfptr[28] = (/*nil*/NULL);
15020 #endif /*MELT_HAVE_DEBUG*/
15021                                 ;
15022                                 /*^compute*/
15023                                 /*_#GET_INT__L22*/
15024                                 meltfnum[12] =
15025                                     (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V15*/ meltfptr[14])));;
15026
15027                                 {
15028                                     MELT_LOCATION("warmelt-outobj.melt:4052:/ locexp");
15029                                     meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#GET_INT__L22*/ meltfnum[12]), 0);
15030                                 }
15031                                 ;
15032
15033                                 MELT_LOCATION("warmelt-outobj.melt:4026:/ clear");
15034                                 /*clear*/ /*_.CURCTYP__V20*/
15035                                 meltfptr[19] = 0 ;
15036                                 /*^clear*/
15037                                 /*clear*/ /*_.IFCPP___V21*/
15038                                 meltfptr[20] = 0 ;
15039                                 /*^clear*/
15040                                 /*clear*/ /*_#GET_INT__L11*/
15041                                 meltfnum[9] = 0 ;
15042                                 /*^clear*/
15043                                 /*clear*/ /*_.OUTPUT_LOCATION__V24*/
15044                                 meltfptr[22] = 0 ;
15045                                 /*^clear*/
15046                                 /*clear*/ /*_.CTYPE_PARSTRING__V25*/
15047                                 meltfptr[21] = 0 ;
15048                                 /*^clear*/
15049                                 /*clear*/ /*_#NULL__L12*/
15050                                 meltfnum[11] = 0 ;
15051                                 /*^clear*/
15052                                 /*clear*/ /*_._IFELSE___V26*/
15053                                 meltfptr[25] = 0 ;
15054                                 /*^clear*/
15055                                 /*clear*/ /*_.IFCPP___V37*/
15056                                 meltfptr[28] = 0 ;
15057                                 /*^clear*/
15058                                 /*clear*/ /*_#GET_INT__L22*/
15059                                 meltfnum[12] = 0 ;
15060                                 if (/*_#CURANK__L9*/ meltfnum[8]<0) break;
15061                             } /* end  foreach_in_multiple meltcit1__EACHTUP */
15062
15063                         /*citerepilog*/
15064
15065                         MELT_LOCATION("warmelt-outobj.melt:4023:/ clear");
15066                         /*clear*/ /*_.CURARG__V19*/
15067                         meltfptr[17] = 0 ;
15068                         /*^clear*/
15069                         /*clear*/ /*_#CURANK__L9*/
15070                         meltfnum[8] = 0 ;
15071                     } /*endciterblock FOREACH_IN_MULTIPLE*/
15072                     ;
15073                     MELT_LOCATION("warmelt-outobj.melt:4012:/ quasiblock");
15074
15075
15076                     /*epilog*/
15077
15078                     /*^clear*/
15079                     /*clear*/ /*_#plI__L7*/
15080                     meltfnum[6] = 0 ;
15081                     /*^clear*/
15082                     /*clear*/ /*_#plI__L8*/
15083                     meltfnum[7] = 0 ;
15084                 }
15085                 ;
15086             } /*noelse*/
15087         ;
15088         /*citerblock FOREACH_PAIR_COMPONENT_IN_LIST*/
15089         {
15090             /* start foreach_pair_component_in_list meltcit2__EACHLIST */
15091             for (/*_.CURPAIR__V41*/ meltfptr[27] = melt_list_first( (melt_ptr_t)/*_.ODEST__V10*/ meltfptr[9]);
15092                                     melt_magic_discr((melt_ptr_t) /*_.CURPAIR__V41*/ meltfptr[27]) == MELTOBMAG_PAIR;
15093                                     /*_.CURPAIR__V41*/ meltfptr[27] = melt_pair_tail((melt_ptr_t) /*_.CURPAIR__V41*/ meltfptr[27]))
15094                 {
15095                     /*_.CURDEST__V42*/ meltfptr[26] = melt_pair_head((melt_ptr_t) /*_.CURPAIR__V41*/ meltfptr[27]);
15096
15097
15098                     /*_#GET_INT__L23*/
15099                     meltfnum[16] =
15100                         (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V15*/ meltfptr[14])));;
15101
15102                     MELT_CHECK_SIGNAL();
15103                     ;
15104                     MELT_LOCATION("warmelt-outobj.melt:4059:/ msend");
15105                     /*msend*/
15106                     {
15107                         union meltparam_un argtab[3];
15108                         memset(&argtab, 0, sizeof(argtab));
15109                         /*^ojbmsend.arg*/
15110                         argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2];
15111                         /*^ojbmsend.arg*/
15112                         argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
15113                         /*^ojbmsend.arg*/
15114                         argtab[2].meltbp_long = /*_#GET_INT__L23*/ meltfnum[16];
15115                         /*_.OUTPUT_C_CODE__V43*/
15116                         meltfptr[35] = meltgc_send((melt_ptr_t)(/*_.CURDEST__V42*/ meltfptr[26]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[10])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
15117                     }
15118                     ;
15119
15120 #if MELT_HAVE_DEBUG
15121                     MELT_LOCATION("warmelt-outobj.melt:4060:/ cppif.then");
15122                     /*^block*/
15123                     /*anyblock*/
15124                     {
15125
15126
15127                         MELT_CHECK_SIGNAL();
15128                         ;
15129                         /*_#STRBUF_USEDLENGTH__L24*/
15130                         meltfnum[14] =
15131                             melt_strbuf_usedlength((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]));;
15132                         MELT_LOCATION("warmelt-outobj.melt:4061:/ cond");
15133                         /*cond*/
15134                         if (
15135                             /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[11])),
15136                                                           (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[12])))
15137                         ) /*then*/
15138                             {
15139                                 /*^cond.then*/
15140                                 /*^getslot*/
15141                                 {
15142                                     melt_ptr_t slot=NULL, obj=NULL;
15143                                     obj = (melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[11])) /*=obj*/;
15144                                     melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE");
15145                                     /*_.REFERENCED_VALUE__V45*/
15146                                     meltfptr[29] = slot;
15147                                 };
15148                                 ;
15149                             }
15150                         else    /*^cond.else*/
15151                             {
15152
15153                                 /*_.REFERENCED_VALUE__V45*/ meltfptr[29] =  /*reallynil*/ NULL ;;
15154                             }
15155                         ;
15156                         /*^compute*/
15157                         /*_#GET_INT__L25*/
15158                         meltfnum[13] =
15159                             (melt_get_int((melt_ptr_t)(/*_.REFERENCED_VALUE__V45*/ meltfptr[29])));;
15160                         /*^compute*/
15161                         /*_#ltI__L26*/
15162                         meltfnum[9] =
15163                             ((/*_#STRBUF_USEDLENGTH__L24*/ meltfnum[14]) < (/*_#GET_INT__L25*/ meltfnum[13]));;
15164                         MELT_LOCATION("warmelt-outobj.melt:4060:/ cond");
15165                         /*cond*/
15166                         if (/*_#ltI__L26*/ meltfnum[9]) /*then*/
15167                             {
15168                                 /*^cond.then*/
15169                                 /*_._IFELSE___V46*/ meltfptr[19] = (/*nil*/NULL);;
15170                             }
15171                         else
15172                             {
15173                                 MELT_LOCATION("warmelt-outobj.melt:4060:/ cond.else");
15174
15175                                 /*^block*/
15176                                 /*anyblock*/
15177                                 {
15178
15179
15180                                     MELT_CHECK_SIGNAL();
15181                                     ;
15182                                     /*^apply*/
15183                                     /*apply*/
15184                                     {
15185                                         union meltparam_un argtab[4];
15186                                         memset(&argtab, 0, sizeof(argtab));
15187                                         /*^apply.arg*/
15188                                         argtab[0].meltbp_cstring =  "check limited implbuf";
15189                                         /*^apply.arg*/
15190                                         argtab[1].meltbp_cstring =  "warmelt-outobj.melt";
15191                                         /*^apply.arg*/
15192                                         argtab[2].meltbp_long = 4060;
15193                                         /*^apply.arg*/
15194                                         argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
15195                                         /*_.MELT_ASSERT_FAILURE_FUN__V47*/
15196                                         meltfptr[20] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
15197                                     }
15198                                     ;
15199                                     /*_._IFELSE___V46*/
15200                                     meltfptr[19] = /*_.MELT_ASSERT_FAILURE_FUN__V47*/ meltfptr[20];;
15201                                     /*epilog*/
15202
15203                                     MELT_LOCATION("warmelt-outobj.melt:4060:/ clear");
15204                                     /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V47*/
15205                                     meltfptr[20] = 0 ;
15206                                 }
15207                                 ;
15208                             }
15209                         ;
15210                         /*_.IFCPP___V44*/
15211                         meltfptr[32] = /*_._IFELSE___V46*/ meltfptr[19];;
15212                         /*epilog*/
15213
15214                         MELT_LOCATION("warmelt-outobj.melt:4060:/ clear");
15215                         /*clear*/ /*_#STRBUF_USEDLENGTH__L24*/
15216                         meltfnum[14] = 0 ;
15217                         /*^clear*/
15218                         /*clear*/ /*_.REFERENCED_VALUE__V45*/
15219                         meltfptr[29] = 0 ;
15220                         /*^clear*/
15221                         /*clear*/ /*_#GET_INT__L25*/
15222                         meltfnum[13] = 0 ;
15223                         /*^clear*/
15224                         /*clear*/ /*_#ltI__L26*/
15225                         meltfnum[9] = 0 ;
15226                         /*^clear*/
15227                         /*clear*/ /*_._IFELSE___V46*/
15228                         meltfptr[19] = 0 ;
15229                     }
15230
15231 #else /*MELT_HAVE_DEBUG*/
15232                     /*^cppif.else*/
15233                     /*_.IFCPP___V44*/ meltfptr[32] = (/*nil*/NULL);
15234 #endif /*MELT_HAVE_DEBUG*/
15235                     ;
15236
15237                     {
15238                         MELT_LOCATION("warmelt-outobj.melt:4062:/ locexp");
15239                         /*add2sbuf_strconst*/
15240                         meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( " = "));
15241                     }
15242                     ;
15243                 } /* end foreach_pair_component_in_list meltcit2__EACHLIST */
15244             /*_.CURPAIR__V41*/ meltfptr[27] = NULL;
15245             /*_.CURDEST__V42*/
15246             meltfptr[26] = NULL;
15247
15248
15249             /*citerepilog*/
15250
15251             MELT_LOCATION("warmelt-outobj.melt:4056:/ clear");
15252             /*clear*/ /*_.CURPAIR__V41*/
15253             meltfptr[27] = 0 ;
15254             /*^clear*/
15255             /*clear*/ /*_.CURDEST__V42*/
15256             meltfptr[26] = 0 ;
15257             /*^clear*/
15258             /*clear*/ /*_#GET_INT__L23*/
15259             meltfnum[16] = 0 ;
15260             /*^clear*/
15261             /*clear*/ /*_.OUTPUT_C_CODE__V43*/
15262             meltfptr[35] = 0 ;
15263             /*^clear*/
15264             /*clear*/ /*_.IFCPP___V44*/
15265             meltfptr[32] = 0 ;
15266         } /*endciterblock FOREACH_PAIR_COMPONENT_IN_LIST*/
15267         ;
15268
15269 #if MELT_HAVE_DEBUG
15270         MELT_LOCATION("warmelt-outobj.melt:4064:/ cppif.then");
15271         /*^block*/
15272         /*anyblock*/
15273         {
15274
15275
15276             MELT_CHECK_SIGNAL();
15277             ;
15278             /*_#IS_OBJECT__L27*/
15279             meltfnum[11] =
15280                 (melt_magic_discr((melt_ptr_t)(/*_.ORECV__V12*/ meltfptr[11])) == MELTOBMAG_OBJECT);;
15281             MELT_LOCATION("warmelt-outobj.melt:4064:/ cond");
15282             /*cond*/
15283             if (/*_#IS_OBJECT__L27*/ meltfnum[11]) /*then*/
15284                 {
15285                     /*^cond.then*/
15286                     /*_._IFELSE___V49*/ meltfptr[21] = (/*nil*/NULL);;
15287                 }
15288             else
15289                 {
15290                     MELT_LOCATION("warmelt-outobj.melt:4064:/ cond.else");
15291
15292                     /*^block*/
15293                     /*anyblock*/
15294                     {
15295
15296
15297                         MELT_CHECK_SIGNAL();
15298                         ;
15299                         /*^apply*/
15300                         /*apply*/
15301                         {
15302                             union meltparam_un argtab[4];
15303                             memset(&argtab, 0, sizeof(argtab));
15304                             /*^apply.arg*/
15305                             argtab[0].meltbp_cstring =  "check orecv object";
15306                             /*^apply.arg*/
15307                             argtab[1].meltbp_cstring =  "warmelt-outobj.melt";
15308                             /*^apply.arg*/
15309                             argtab[2].meltbp_long = 4064;
15310                             /*^apply.arg*/
15311                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ORECV__V12*/ meltfptr[11];
15312                             /*_.MELT_ASSERT_FAILURE_FUN__V50*/
15313                             meltfptr[25] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
15314                         }
15315                         ;
15316                         /*_._IFELSE___V49*/
15317                         meltfptr[21] = /*_.MELT_ASSERT_FAILURE_FUN__V50*/ meltfptr[25];;
15318                         /*epilog*/
15319
15320                         MELT_LOCATION("warmelt-outobj.melt:4064:/ clear");
15321                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V50*/
15322                         meltfptr[25] = 0 ;
15323                     }
15324                     ;
15325                 }
15326             ;
15327             /*_.IFCPP___V48*/
15328             meltfptr[22] = /*_._IFELSE___V49*/ meltfptr[21];;
15329             /*epilog*/
15330
15331             MELT_LOCATION("warmelt-outobj.melt:4064:/ clear");
15332             /*clear*/ /*_#IS_OBJECT__L27*/
15333             meltfnum[11] = 0 ;
15334             /*^clear*/
15335             /*clear*/ /*_._IFELSE___V49*/
15336             meltfptr[21] = 0 ;
15337         }
15338
15339 #else /*MELT_HAVE_DEBUG*/
15340         /*^cppif.else*/
15341         /*_.IFCPP___V48*/ meltfptr[22] = (/*nil*/NULL);
15342 #endif /*MELT_HAVE_DEBUG*/
15343         ;
15344
15345         {
15346             MELT_LOCATION("warmelt-outobj.melt:4066:/ locexp");
15347             /*add2sbuf_strconst*/
15348             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "meltgc_send((melt_ptr_t)("));
15349         }
15350         ;
15351         /*_#plI__L28*/
15352         meltfnum[12] =
15353             ((/*_#DEPTH__L1*/ meltfnum[0]) + (1));;
15354
15355         MELT_CHECK_SIGNAL();
15356         ;
15357         MELT_LOCATION("warmelt-outobj.melt:4067:/ msend");
15358         /*msend*/
15359         {
15360             union meltparam_un argtab[3];
15361             memset(&argtab, 0, sizeof(argtab));
15362             /*^ojbmsend.arg*/
15363             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2];
15364             /*^ojbmsend.arg*/
15365             argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
15366             /*^ojbmsend.arg*/
15367             argtab[2].meltbp_long = /*_#plI__L28*/ meltfnum[12];
15368             /*_.OUTPUT_C_CODE__V51*/
15369             meltfptr[28] = meltgc_send((melt_ptr_t)(/*_.ORECV__V12*/ meltfptr[11]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[10])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
15370         }
15371         ;
15372
15373         {
15374             MELT_LOCATION("warmelt-outobj.melt:4068:/ locexp");
15375             /*add2sbuf_strconst*/
15376             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "), (melt_ptr_t)("));
15377         }
15378         ;
15379         /*_#plI__L29*/
15380         meltfnum[6] =
15381             ((/*_#DEPTH__L1*/ meltfnum[0]) + (1));;
15382
15383         MELT_CHECK_SIGNAL();
15384         ;
15385         MELT_LOCATION("warmelt-outobj.melt:4069:/ msend");
15386         /*msend*/
15387         {
15388             union meltparam_un argtab[3];
15389             memset(&argtab, 0, sizeof(argtab));
15390             /*^ojbmsend.arg*/
15391             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2];
15392             /*^ojbmsend.arg*/
15393             argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
15394             /*^ojbmsend.arg*/
15395             argtab[2].meltbp_long = /*_#plI__L29*/ meltfnum[6];
15396             /*_.OUTPUT_C_CODE__V52*/
15397             meltfptr[20] = meltgc_send((melt_ptr_t)(/*_.OSEL__V11*/ meltfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[10])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
15398         }
15399         ;
15400
15401         {
15402             MELT_LOCATION("warmelt-outobj.melt:4070:/ locexp");
15403             /*add2sbuf_strconst*/
15404             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "), ("));
15405         }
15406         ;
15407         /*citerblock FOREACH_PAIR_COMPONENT_IN_LIST*/
15408         {
15409             /* start foreach_pair_component_in_list meltcit3__EACHLIST */
15410             for (/*_.CURPAIR__V53*/ meltfptr[29] = melt_list_first( (melt_ptr_t)/*_.PARAMDESCLIST__V14*/ meltfptr[13]);
15411                                     melt_magic_discr((melt_ptr_t) /*_.CURPAIR__V53*/ meltfptr[29]) == MELTOBMAG_PAIR;
15412                                     /*_.CURPAIR__V53*/ meltfptr[29] = melt_pair_tail((melt_ptr_t) /*_.CURPAIR__V53*/ meltfptr[29]))
15413                 {
15414                     /*_.PARD__V54*/ meltfptr[19] = melt_pair_head((melt_ptr_t) /*_.CURPAIR__V53*/ meltfptr[29]);
15415
15416
15417
15418 #if MELT_HAVE_DEBUG
15419                     MELT_LOCATION("warmelt-outobj.melt:4075:/ cppif.then");
15420                     /*^block*/
15421                     /*anyblock*/
15422                     {
15423
15424
15425                         MELT_CHECK_SIGNAL();
15426                         ;
15427                         /*_#IS_STRING__L30*/
15428                         meltfnum[7] =
15429                             (melt_magic_discr((melt_ptr_t)(/*_.PARD__V54*/ meltfptr[19])) == MELTOBMAG_STRING);;
15430                         MELT_LOCATION("warmelt-outobj.melt:4075:/ cond");
15431                         /*cond*/
15432                         if (/*_#IS_STRING__L30*/ meltfnum[7]) /*then*/
15433                             {
15434                                 /*^cond.then*/
15435                                 /*_._IFELSE___V56*/ meltfptr[21] = (/*nil*/NULL);;
15436                             }
15437                         else
15438                             {
15439                                 MELT_LOCATION("warmelt-outobj.melt:4075:/ cond.else");
15440
15441                                 /*^block*/
15442                                 /*anyblock*/
15443                                 {
15444
15445
15446                                     MELT_CHECK_SIGNAL();
15447                                     ;
15448                                     /*^apply*/
15449                                     /*apply*/
15450                                     {
15451                                         union meltparam_un argtab[3];
15452                                         memset(&argtab, 0, sizeof(argtab));
15453                                         /*^apply.arg*/
15454                                         argtab[0].meltbp_cstring =  "check pard";
15455                                         /*^apply.arg*/
15456                                         argtab[1].meltbp_cstring =  "warmelt-outobj.melt";
15457                                         /*^apply.arg*/
15458                                         argtab[2].meltbp_long = 4075;
15459                                         /*_.MELT_ASSERT_FAILURE_FUN__V57*/
15460                                         meltfptr[56] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
15461                                     }
15462                                     ;
15463                                     /*_._IFELSE___V56*/
15464                                     meltfptr[21] = /*_.MELT_ASSERT_FAILURE_FUN__V57*/ meltfptr[56];;
15465                                     /*epilog*/
15466
15467                                     MELT_LOCATION("warmelt-outobj.melt:4075:/ clear");
15468                                     /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V57*/
15469                                     meltfptr[56] = 0 ;
15470                                 }
15471                                 ;
15472                             }
15473                         ;
15474                         /*_.IFCPP___V55*/
15475                         meltfptr[25] = /*_._IFELSE___V56*/ meltfptr[21];;
15476                         /*epilog*/
15477
15478                         MELT_LOCATION("warmelt-outobj.melt:4075:/ clear");
15479                         /*clear*/ /*_#IS_STRING__L30*/
15480                         meltfnum[7] = 0 ;
15481                         /*^clear*/
15482                         /*clear*/ /*_._IFELSE___V56*/
15483                         meltfptr[21] = 0 ;
15484                     }
15485
15486 #else /*MELT_HAVE_DEBUG*/
15487                     /*^cppif.else*/
15488                     /*_.IFCPP___V55*/ meltfptr[25] = (/*nil*/NULL);
15489 #endif /*MELT_HAVE_DEBUG*/
15490                     ;
15491
15492                     {
15493                         MELT_LOCATION("warmelt-outobj.melt:4076:/ locexp");
15494                         /*add2sbuf_string*/
15495                         meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]),
15496                                           melt_string_str((melt_ptr_t)(/*_.PARD__V54*/ meltfptr[19])));
15497                     }
15498                     ;
15499
15500                     {
15501                         MELT_LOCATION("warmelt-outobj.melt:4077:/ locexp");
15502                         /*add2sbuf_strconst*/
15503                         meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( " "));
15504                     }
15505                     ;
15506                 } /* end foreach_pair_component_in_list meltcit3__EACHLIST */
15507             /*_.CURPAIR__V53*/ meltfptr[29] = NULL;
15508             /*_.PARD__V54*/
15509             meltfptr[19] = NULL;
15510
15511
15512             /*citerepilog*/
15513
15514             MELT_LOCATION("warmelt-outobj.melt:4072:/ clear");
15515             /*clear*/ /*_.CURPAIR__V53*/
15516             meltfptr[29] = 0 ;
15517             /*^clear*/
15518             /*clear*/ /*_.PARD__V54*/
15519             meltfptr[19] = 0 ;
15520             /*^clear*/
15521             /*clear*/ /*_.IFCPP___V55*/
15522             meltfptr[25] = 0 ;
15523         } /*endciterblock FOREACH_PAIR_COMPONENT_IN_LIST*/
15524         ;
15525
15526         {
15527             MELT_LOCATION("warmelt-outobj.melt:4078:/ locexp");
15528             /*add2sbuf_strconst*/
15529             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "\"\"), "));
15530         }
15531         ;
15532
15533         MELT_CHECK_SIGNAL();
15534         ;
15535         /*_#gtI__L31*/
15536         meltfnum[14] =
15537             ((/*_#NBARG__L3*/ meltfnum[1]) > (0));;
15538         MELT_LOCATION("warmelt-outobj.melt:4079:/ cond");
15539         /*cond*/
15540         if (/*_#gtI__L31*/ meltfnum[14]) /*then*/
15541             {
15542                 /*^cond.then*/
15543                 /*^block*/
15544                 /*anyblock*/
15545                 {
15546
15547
15548                     {
15549                         MELT_LOCATION("warmelt-outobj.melt:4080:/ locexp");
15550                         /*add2sbuf_strconst*/
15551                         meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "argtab,"));
15552                     }
15553                     ;
15554                     /*epilog*/
15555                 }
15556                 ;
15557             }
15558         else
15559             {
15560                 MELT_LOCATION("warmelt-outobj.melt:4079:/ cond.else");
15561
15562                 /*^block*/
15563                 /*anyblock*/
15564                 {
15565
15566
15567                     {
15568                         MELT_LOCATION("warmelt-outobj.melt:4081:/ locexp");
15569                         /*add2sbuf_strconst*/
15570                         meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "(union meltparam_un*)0,"));
15571                     }
15572                     ;
15573                     /*epilog*/
15574                 }
15575                 ;
15576             }
15577         ;
15578
15579         {
15580             MELT_LOCATION("warmelt-outobj.melt:4083:/ locexp");
15581             /*add2sbuf_strconst*/
15582             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( " \"\", (union meltparam_un*)0"));
15583         }
15584         ;
15585
15586         {
15587             MELT_LOCATION("warmelt-outobj.melt:4084:/ locexp");
15588             /*add2sbuf_strconst*/
15589             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( ");"));
15590         }
15591         ;
15592         /*_#plI__L32*/
15593         meltfnum[13] =
15594             ((1) + (/*_#DEPTH__L1*/ meltfnum[0]));;
15595
15596         {
15597             MELT_LOCATION("warmelt-outobj.melt:4085:/ locexp");
15598             meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#plI__L32*/ meltfnum[13]), 0);
15599         }
15600         ;
15601
15602         {
15603             MELT_LOCATION("warmelt-outobj.melt:4086:/ locexp");
15604             /*add2sbuf_strconst*/
15605             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "}"));
15606         }
15607         ;
15608
15609         {
15610             MELT_LOCATION("warmelt-outobj.melt:4087:/ locexp");
15611             meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#DEPTH__L1*/ meltfnum[0]), 0);
15612         }
15613         ;
15614
15615 #if MELT_HAVE_DEBUG
15616         MELT_LOCATION("warmelt-outobj.melt:4088:/ cppif.then");
15617         /*^block*/
15618         /*anyblock*/
15619         {
15620
15621
15622             MELT_CHECK_SIGNAL();
15623             ;
15624             /*_#STRBUF_USEDLENGTH__L33*/
15625             meltfnum[9] =
15626                 melt_strbuf_usedlength((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]));;
15627             MELT_LOCATION("warmelt-outobj.melt:4089:/ cond");
15628             /*cond*/
15629             if (
15630                 /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[11])),
15631                                               (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[12])))
15632             ) /*then*/
15633                 {
15634                     /*^cond.then*/
15635                     /*^getslot*/
15636                     {
15637                         melt_ptr_t slot=NULL, obj=NULL;
15638                         obj = (melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[11])) /*=obj*/;
15639                         melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE");
15640                         /*_.REFERENCED_VALUE__V59*/
15641                         meltfptr[21] = slot;
15642                     };
15643                     ;
15644                 }
15645             else    /*^cond.else*/
15646                 {
15647
15648                     /*_.REFERENCED_VALUE__V59*/ meltfptr[21] =  /*reallynil*/ NULL ;;
15649                 }
15650             ;
15651             /*^compute*/
15652             /*_#GET_INT__L34*/
15653             meltfnum[11] =
15654                 (melt_get_int((melt_ptr_t)(/*_.REFERENCED_VALUE__V59*/ meltfptr[21])));;
15655             /*^compute*/
15656             /*_#ltI__L35*/
15657             meltfnum[7] =
15658                 ((/*_#STRBUF_USEDLENGTH__L33*/ meltfnum[9]) < (/*_#GET_INT__L34*/ meltfnum[11]));;
15659             MELT_LOCATION("warmelt-outobj.melt:4088:/ cond");
15660             /*cond*/
15661             if (/*_#ltI__L35*/ meltfnum[7]) /*then*/
15662                 {
15663                     /*^cond.then*/
15664                     /*_._IFELSE___V60*/ meltfptr[59] = (/*nil*/NULL);;
15665                 }
15666             else
15667                 {
15668                     MELT_LOCATION("warmelt-outobj.melt:4088:/ cond.else");
15669
15670                     /*^block*/
15671                     /*anyblock*/
15672                     {
15673
15674
15675                         MELT_CHECK_SIGNAL();
15676                         ;
15677                         /*^apply*/
15678                         /*apply*/
15679                         {
15680                             union meltparam_un argtab[4];
15681                             memset(&argtab, 0, sizeof(argtab));
15682                             /*^apply.arg*/
15683                             argtab[0].meltbp_cstring =  "check limited implbuf";
15684                             /*^apply.arg*/
15685                             argtab[1].meltbp_cstring =  "warmelt-outobj.melt";
15686                             /*^apply.arg*/
15687                             argtab[2].meltbp_long = 4088;
15688                             /*^apply.arg*/
15689                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
15690                             /*_.MELT_ASSERT_FAILURE_FUN__V61*/
15691                             meltfptr[60] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
15692                         }
15693                         ;
15694                         /*_._IFELSE___V60*/
15695                         meltfptr[59] = /*_.MELT_ASSERT_FAILURE_FUN__V61*/ meltfptr[60];;
15696                         /*epilog*/
15697
15698                         MELT_LOCATION("warmelt-outobj.melt:4088:/ clear");
15699                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V61*/
15700                         meltfptr[60] = 0 ;
15701                     }
15702                     ;
15703                 }
15704             ;
15705             /*_.IFCPP___V58*/
15706             meltfptr[56] = /*_._IFELSE___V60*/ meltfptr[59];;
15707             /*epilog*/
15708
15709             MELT_LOCATION("warmelt-outobj.melt:4088:/ clear");
15710             /*clear*/ /*_#STRBUF_USEDLENGTH__L33*/
15711             meltfnum[9] = 0 ;
15712             /*^clear*/
15713             /*clear*/ /*_.REFERENCED_VALUE__V59*/
15714             meltfptr[21] = 0 ;
15715             /*^clear*/
15716             /*clear*/ /*_#GET_INT__L34*/
15717             meltfnum[11] = 0 ;
15718             /*^clear*/
15719             /*clear*/ /*_#ltI__L35*/
15720             meltfnum[7] = 0 ;
15721             /*^clear*/
15722             /*clear*/ /*_._IFELSE___V60*/
15723             meltfptr[59] = 0 ;
15724         }
15725
15726 #else /*MELT_HAVE_DEBUG*/
15727         /*^cppif.else*/
15728         /*_.IFCPP___V58*/ meltfptr[56] = (/*nil*/NULL);
15729 #endif /*MELT_HAVE_DEBUG*/
15730         ;
15731         /*^compute*/
15732         /*_.LET___V8*/
15733         meltfptr[6] = /*_.IFCPP___V58*/ meltfptr[56];;
15734
15735         MELT_LOCATION("warmelt-outobj.melt:3999:/ clear");
15736         /*clear*/ /*_.OLOC__V9*/
15737         meltfptr[5] = 0 ;
15738         /*^clear*/
15739         /*clear*/ /*_.ODEST__V10*/
15740         meltfptr[9] = 0 ;
15741         /*^clear*/
15742         /*clear*/ /*_.OSEL__V11*/
15743         meltfptr[10] = 0 ;
15744         /*^clear*/
15745         /*clear*/ /*_.ORECV__V12*/
15746         meltfptr[11] = 0 ;
15747         /*^clear*/
15748         /*clear*/ /*_.OARGS__V13*/
15749         meltfptr[12] = 0 ;
15750         /*^clear*/
15751         /*clear*/ /*_#NBARG__L3*/
15752         meltfnum[1] = 0 ;
15753         /*^clear*/
15754         /*clear*/ /*_.PARAMDESCLIST__V14*/
15755         meltfptr[13] = 0 ;
15756         /*^clear*/
15757         /*clear*/ /*_#plI__L4*/
15758         meltfnum[3] = 0 ;
15759         /*^clear*/
15760         /*clear*/ /*_.BOXDEPTHP1__V15*/
15761         meltfptr[14] = 0 ;
15762         /*^clear*/
15763         /*clear*/ /*_.OUTPUT_LOCATION__V16*/
15764         meltfptr[15] = 0 ;
15765         /*^clear*/
15766         /*clear*/ /*_._IF___V17*/
15767         meltfptr[16] = 0 ;
15768         /*^clear*/
15769         /*clear*/ /*_#plI__L5*/
15770         meltfnum[4] = 0 ;
15771         /*^clear*/
15772         /*clear*/ /*_#gtI__L6*/
15773         meltfnum[5] = 0 ;
15774         /*^clear*/
15775         /*clear*/ /*_.IFCPP___V48*/
15776         meltfptr[22] = 0 ;
15777         /*^clear*/
15778         /*clear*/ /*_#plI__L28*/
15779         meltfnum[12] = 0 ;
15780         /*^clear*/
15781         /*clear*/ /*_.OUTPUT_C_CODE__V51*/
15782         meltfptr[28] = 0 ;
15783         /*^clear*/
15784         /*clear*/ /*_#plI__L29*/
15785         meltfnum[6] = 0 ;
15786         /*^clear*/
15787         /*clear*/ /*_.OUTPUT_C_CODE__V52*/
15788         meltfptr[20] = 0 ;
15789         /*^clear*/
15790         /*clear*/ /*_#gtI__L31*/
15791         meltfnum[14] = 0 ;
15792         /*^clear*/
15793         /*clear*/ /*_#plI__L32*/
15794         meltfnum[13] = 0 ;
15795         /*^clear*/
15796         /*clear*/ /*_.IFCPP___V58*/
15797         meltfptr[56] = 0 ;
15798
15799         MELT_CHECK_SIGNAL();
15800         ;
15801         MELT_LOCATION("warmelt-outobj.melt:3997:/ quasiblock");
15802
15803
15804         /*_._RETVAL___V1*/
15805         meltfptr[0] = /*_.LET___V8*/ meltfptr[6];;
15806
15807         {
15808             MELT_LOCATION("warmelt-outobj.melt:3997:/ locexp");
15809             /*ochecknores compilobj_nrep_return*/
15810 #if MELT_HAVE_DEBUG
15811             if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
15812                 melt_warn_for_no_expected_secondary_results();
15813             /* we warned when secondary results are expected but not returned. */
15814 #endif /*MELT_HAVE_DEBUG*/
15815             ;
15816         }
15817         ;
15818         /*^finalreturn*/
15819         ;
15820         /*finalret*/
15821         goto meltlabend_rout ;
15822         /*epilog*/
15823
15824         /*^clear*/
15825         /*clear*/ /*_.IFCPP___V5*/
15826         meltfptr[4] = 0 ;
15827         /*^clear*/
15828         /*clear*/ /*_.LET___V8*/
15829         meltfptr[6] = 0 ;
15830     }
15831
15832     ;
15833     goto meltlabend_rout;
15834 meltlabend_rout:
15835     melt_trace_end("OUTPUCOD_OBJMSEND", meltcallcount);
15836     melt_blocklevel_signals = current_blocklevel_signals_meltrout_88_WARMELTmiOUTOBJ_OUTPUCOD_OBJMSEND_melt;
15837     return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]);
15838 #undef meltcallcount
15839 #undef meltfram__
15840 #undef MELTFRAM_NBVARNUM
15841 #undef MELTFRAM_NBVARPTR
15842 } /*end meltrout_88_WARMELTmiOUTOBJ_OUTPUCOD_OBJMSEND*/
15843
15844
15845
15846
15847
15848
15849 melt_ptr_t MELT_MODULE_VISIBILITY
15850 meltrout_89_WARMELTmiOUTOBJ_OUTPUCOD_OBJMULTIAPPLY(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_,
15851         const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_)
15852 {
15853     long current_blocklevel_signals_meltrout_89_WARMELTmiOUTOBJ_OUTPUCOD_OBJMULTIAPPLY_melt =  melt_blocklevel_signals;
15854
15855 #if MELT_HAVE_DEBUG
15856     static long melt_call_counter__;
15857     long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__;
15858 #undef meltcallcount
15859 #define meltcallcount melt_thiscallcounter__
15860 #else
15861 #undef meltcallcount
15862 #define meltcallcount 0L
15863 #endif
15864 //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538
15865
15866     /* start of frame for routine meltrout_89_WARMELTmiOUTOBJ_OUTPUCOD_OBJMULTIAPPLY fromline 1752 */
15867
15868     /** start of frame for meltrout_89_WARMELTmiOUTOBJ_OUTPUCOD_OBJMULTIAPPLY of CLASS_PROCROUTINEOBJ from 1555**/
15869
15870     /*curframdeclclassy*/ class MeltFrame_meltrout_89_WARMELTmiOUTOBJ_OUTPUCOD_OBJMULTIAPPLY// fromline 1568
15871         : public Melt_CallFrameWithValues<76>
15872     {
15873     public: /* fromline 1572*/
15874         long mcfr_varnum[51];
15875         /*classy others*/
15876         long _meltsparel;
15877         void melt_mark_stuff (void)
15878         {
15879         } /*end melt_mark_stuff*/
15880         virtual void melt_mark_ggc_data (void)
15881         {
15882             melt_mark_values ();
15883             melt_mark_stuff ();
15884         }; /*end melt_mark_ggc_data*/
15885         MeltFrame_meltrout_89_WARMELTmiOUTOBJ_OUTPUCOD_OBJMULTIAPPLY(meltclosure_ptr_t clos) //the closure constructor fromline 1630
15886             : Melt_CallFrameWithValues<76> (
15887 #if ENABLE_CHECKING /*fromline 1634*/
15888                 __FILE__, __LINE__,
15889 #endif /* ENABLE_CHECKING fromline 1638*/
15890                 sizeof(MeltFrame_meltrout_89_WARMELTmiOUTOBJ_OUTPUCOD_OBJMULTIAPPLY), clos) {};
15891         MeltFrame_meltrout_89_WARMELTmiOUTOBJ_OUTPUCOD_OBJMULTIAPPLY() //the constructor fromline 1642
15892             : Melt_CallFrameWithValues<76> (
15893 #if ENABLE_CHECKING /*fromline 1646*/
15894                 __FILE__, __LINE__,
15895 #endif /* ENABLE_CHECKING fromline 1650*/
15896                 sizeof(MeltFrame_meltrout_89_WARMELTmiOUTOBJ_OUTPUCOD_OBJMULTIAPPLY)) {};
15897 #if ENABLE_CHECKING /*fromline 1654*/
15898         MeltFrame_meltrout_89_WARMELTmiOUTOBJ_OUTPUCOD_OBJMULTIAPPLY(const char*fil, int lin) //the constructor fromline 1656
15899             : Melt_CallFrameWithValues<76> (fil,lin, sizeof(MeltFrame_meltrout_89_WARMELTmiOUTOBJ_OUTPUCOD_OBJMULTIAPPLY)) {};
15900         MeltFrame_meltrout_89_WARMELTmiOUTOBJ_OUTPUCOD_OBJMULTIAPPLY(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661
15901             : Melt_CallFrameWithValues<76> (fil,lin, sizeof(MeltFrame_meltrout_89_WARMELTmiOUTOBJ_OUTPUCOD_OBJMULTIAPPLY), clos) {};
15902 #endif /* ENABLE_CHECKING fromline 1666*/
15903
15904     }; // end  class MeltFrame_meltrout_89_WARMELTmiOUTOBJ_OUTPUCOD_OBJMULTIAPPLY
15905
15906
15907     /** end of frame for meltrout_89_WARMELTmiOUTOBJ_OUTPUCOD_OBJMULTIAPPLY fromline 1697**/
15908
15909     /* end of frame for routine meltrout_89_WARMELTmiOUTOBJ_OUTPUCOD_OBJMULTIAPPLY fromline 1756 */
15910
15911     /* classy proc frame meltrout_89_WARMELTmiOUTOBJ_OUTPUCOD_OBJMULTIAPPLY */
15912     MeltFrame_meltrout_89_WARMELTmiOUTOBJ_OUTPUCOD_OBJMULTIAPPLY
15913     meltfram__ /*declfrastruct fromline 1780*/
15914     /*classyprocarg meltrout_89_WARMELTmiOUTOBJ_OUTPUCOD_OBJMULTIAPPLY fromline 1785*/
15915 #if ENABLE_CHECKING
15916     (__FILE__, __LINE__, meltclosp_) /* fromline 1789*/
15917 #else /*ENABLE_CHECKING */
15918     (meltclosp_) /* fromline 1793*/
15919 #endif /*ENABLE_CHECKING */
15920
15921     ;
15922 #define meltframe meltfram__
15923
15924     melt_trace_start("OUTPUCOD_OBJMULTIAPPLY", meltcallcount);
15925     /*use arguments*/
15926     (void) meltclosp_;
15927     (void)meltfirstargp_;
15928     (void)meltxargdescr_;
15929     (void)meltxargtab_;
15930     (void)meltxresdescr_;
15931     (void)meltxrestab_;
15932     /*getargs*/
15933
15934     /*getarg#0*/
15935     MELT_LOCATION("warmelt-outobj.melt:4096:/ getarg");
15936     /*_.OAPP__V2*/
15937     meltfptr[1] = (melt_ptr_t) meltfirstargp_;
15938
15939     /*getarg#1*/
15940     /*^getarg*/
15941     if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs;
15942     /*_.DECLBUF__V3*/
15943     meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
15944     gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2])) != NULL);
15945
15946
15947     /*getarg#2*/
15948     /*^getarg*/
15949     if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs;
15950     /*_.IMPLBUF__V4*/
15951     meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL;
15952     gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3])) != NULL);
15953
15954
15955     /*getarg#3*/
15956     /*^getarg*/
15957     if (meltxargdescr_[2] != MELTBPAR_LONG) goto meltlab_endgetargs;
15958     /*_#DEPTH__L1*/
15959     meltfnum[0] = meltxargtab_[2].meltbp_long;
15960     ;
15961     goto meltlab_endgetargs;
15962 meltlab_endgetargs:
15963     ;
15964     /*body*/
15965     /*^block*/
15966     /*anyblock*/
15967     {
15968
15969
15970 #if MELT_HAVE_DEBUG
15971         MELT_LOCATION("warmelt-outobj.melt:4097:/ cppif.then");
15972         /*^block*/
15973         /*anyblock*/
15974         {
15975
15976
15977             MELT_CHECK_SIGNAL();
15978             ;
15979             /*_#IS_A__L2*/
15980             meltfnum[1] =
15981                 melt_is_instance_of((melt_ptr_t)(/*_.OAPP__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_OBJMULTIAPPLY*/ meltfrout->tabval[0])));;
15982             MELT_LOCATION("warmelt-outobj.melt:4097:/ cond");
15983             /*cond*/
15984             if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/
15985                 {
15986                     /*^cond.then*/
15987                     /*_._IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);;
15988                 }
15989             else
15990                 {
15991                     MELT_LOCATION("warmelt-outobj.melt:4097:/ cond.else");
15992
15993                     /*^block*/
15994                     /*anyblock*/
15995                     {
15996
15997
15998                         MELT_CHECK_SIGNAL();
15999                         ;
16000                         /*^apply*/
16001                         /*apply*/
16002                         {
16003                             union meltparam_un argtab[4];
16004                             memset(&argtab, 0, sizeof(argtab));
16005                             /*^apply.arg*/
16006                             argtab[0].meltbp_cstring =  "check oapp";
16007                             /*^apply.arg*/
16008                             argtab[1].meltbp_cstring =  "warmelt-outobj.melt";
16009                             /*^apply.arg*/
16010                             argtab[2].meltbp_long = 4097;
16011                             /*^apply.arg*/
16012                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OAPP__V2*/ meltfptr[1];
16013                             /*_.MELT_ASSERT_FAILURE_FUN__V7*/
16014                             meltfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
16015                         }
16016                         ;
16017                         /*_._IFELSE___V6*/
16018                         meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6];;
16019                         /*epilog*/
16020
16021                         MELT_LOCATION("warmelt-outobj.melt:4097:/ clear");
16022                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V7*/
16023                         meltfptr[6] = 0 ;
16024                     }
16025                     ;
16026                 }
16027             ;
16028             /*_.IFCPP___V5*/
16029             meltfptr[4] = /*_._IFELSE___V6*/ meltfptr[5];;
16030             /*epilog*/
16031
16032             MELT_LOCATION("warmelt-outobj.melt:4097:/ clear");
16033             /*clear*/ /*_#IS_A__L2*/
16034             meltfnum[1] = 0 ;
16035             /*^clear*/
16036             /*clear*/ /*_._IFELSE___V6*/
16037             meltfptr[5] = 0 ;
16038         }
16039
16040 #else /*MELT_HAVE_DEBUG*/
16041         /*^cppif.else*/
16042         /*_.IFCPP___V5*/ meltfptr[4] = (/*nil*/NULL);
16043 #endif /*MELT_HAVE_DEBUG*/
16044         ;
16045         MELT_LOCATION("warmelt-outobj.melt:4098:/ quasiblock");
16046
16047
16048         MELT_LOCATION("warmelt-outobj.melt:4099:/ getslot");
16049         {
16050             melt_ptr_t slot=NULL, obj=NULL;
16051             obj = (melt_ptr_t)(/*_.OAPP__V2*/ meltfptr[1]) /*=obj*/;
16052             melt_object_get_field(slot,obj, 0, "OBI_LOC");
16053             /*_.ALOC__V9*/
16054             meltfptr[5] = slot;
16055         };
16056         ;
16057         MELT_LOCATION("warmelt-outobj.melt:4100:/ getslot");
16058         {
16059             melt_ptr_t slot=NULL, obj=NULL;
16060             obj = (melt_ptr_t)(/*_.OAPP__V2*/ meltfptr[1]) /*=obj*/;
16061             melt_object_get_field(slot,obj, 1, "OBDI_DESTLIST");
16062             /*_.ADEST__V10*/
16063             meltfptr[9] = slot;
16064         };
16065         ;
16066         MELT_LOCATION("warmelt-outobj.melt:4101:/ getslot");
16067         {
16068             melt_ptr_t slot=NULL, obj=NULL;
16069             obj = (melt_ptr_t)(/*_.OAPP__V2*/ meltfptr[1]) /*=obj*/;
16070             melt_object_get_field(slot,obj, 2, "OBAPP_CLOS");
16071             /*_.OCLOS__V11*/
16072             meltfptr[10] = slot;
16073         };
16074         ;
16075         MELT_LOCATION("warmelt-outobj.melt:4102:/ getslot");
16076         {
16077             melt_ptr_t slot=NULL, obj=NULL;
16078             obj = (melt_ptr_t)(/*_.OAPP__V2*/ meltfptr[1]) /*=obj*/;
16079             melt_object_get_field(slot,obj, 3, "OBAPP_ARGS");
16080             /*_.OARGS__V12*/
16081             meltfptr[11] = slot;
16082         };
16083         ;
16084         MELT_LOCATION("warmelt-outobj.melt:4103:/ getslot");
16085         {
16086             melt_ptr_t slot=NULL, obj=NULL;
16087             obj = (melt_ptr_t)(/*_.OAPP__V2*/ meltfptr[1]) /*=obj*/;
16088             melt_object_get_field(slot,obj, 4, "OBMULTAPP_XRES");
16089             /*_.OXRES__V13*/
16090             meltfptr[12] = slot;
16091         };
16092         ;
16093         /*_#NBARG__L3*/
16094         meltfnum[1] =
16095             (melt_multiple_length((melt_ptr_t)(/*_.OARGS__V12*/ meltfptr[11])));;
16096         /*^compute*/
16097         /*_#NBXRES__L4*/
16098         meltfnum[3] =
16099             (melt_multiple_length((melt_ptr_t)(/*_.OXRES__V13*/ meltfptr[12])));;
16100         /*^compute*/
16101         /*_.PARAMDESCLIST__V14*/
16102         meltfptr[13] =
16103             (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[2]))));;
16104         /*^compute*/
16105         /*_.RESDESCLIST__V15*/
16106         meltfptr[14] =
16107             (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[2]))));;
16108         /*^compute*/
16109         /*_#plI__L5*/
16110         meltfnum[4] =
16111             ((1) + (/*_#DEPTH__L1*/ meltfnum[0]));;
16112         /*^compute*/
16113         /*_.BOXDEPTHP1__V16*/
16114         meltfptr[15] =
16115             (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[3])), (/*_#plI__L5*/ meltfnum[4])));;
16116
16117 #if MELT_HAVE_DEBUG
16118         MELT_LOCATION("warmelt-outobj.melt:4110:/ cppif.then");
16119         /*^block*/
16120         /*anyblock*/
16121         {
16122
16123
16124             MELT_CHECK_SIGNAL();
16125             ;
16126             /*_#IS_MULTIPLE_OR_NULL__L6*/
16127             meltfnum[5] =
16128                 ((/*_.OARGS__V12*/ meltfptr[11]) == NULL || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.OARGS__V12*/ meltfptr[11])) == MELTOBMAG_MULTIPLE));;
16129             MELT_LOCATION("warmelt-outobj.melt:4110:/ cond");
16130             /*cond*/
16131             if (/*_#IS_MULTIPLE_OR_NULL__L6*/ meltfnum[5]) /*then*/
16132                 {
16133                     /*^cond.then*/
16134                     /*_._IFELSE___V18*/ meltfptr[17] = (/*nil*/NULL);;
16135                 }
16136             else
16137                 {
16138                     MELT_LOCATION("warmelt-outobj.melt:4110:/ cond.else");
16139
16140                     /*^block*/
16141                     /*anyblock*/
16142                     {
16143
16144
16145                         MELT_CHECK_SIGNAL();
16146                         ;
16147                         /*^apply*/
16148                         /*apply*/
16149                         {
16150                             union meltparam_un argtab[4];
16151                             memset(&argtab, 0, sizeof(argtab));
16152                             /*^apply.arg*/
16153                             argtab[0].meltbp_cstring =  "check oargs";
16154                             /*^apply.arg*/
16155                             argtab[1].meltbp_cstring =  "warmelt-outobj.melt";
16156                             /*^apply.arg*/
16157                             argtab[2].meltbp_long = 4110;
16158                             /*^apply.arg*/
16159                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OARGS__V12*/ meltfptr[11];
16160                             /*_.MELT_ASSERT_FAILURE_FUN__V19*/
16161                             meltfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
16162                         }
16163                         ;
16164                         /*_._IFELSE___V18*/
16165                         meltfptr[17] = /*_.MELT_ASSERT_FAILURE_FUN__V19*/ meltfptr[18];;
16166                         /*epilog*/
16167
16168                         MELT_LOCATION("warmelt-outobj.melt:4110:/ clear");
16169                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V19*/
16170                         meltfptr[18] = 0 ;
16171                     }
16172                     ;
16173                 }
16174             ;
16175             /*_.IFCPP___V17*/
16176             meltfptr[16] = /*_._IFELSE___V18*/ meltfptr[17];;
16177             /*epilog*/
16178
16179             MELT_LOCATION("warmelt-outobj.melt:4110:/ clear");
16180             /*clear*/ /*_#IS_MULTIPLE_OR_NULL__L6*/
16181             meltfnum[5] = 0 ;
16182             /*^clear*/
16183             /*clear*/ /*_._IFELSE___V18*/
16184             meltfptr[17] = 0 ;
16185         }
16186
16187 #else /*MELT_HAVE_DEBUG*/
16188         /*^cppif.else*/
16189         /*_.IFCPP___V17*/ meltfptr[16] = (/*nil*/NULL);
16190 #endif /*MELT_HAVE_DEBUG*/
16191         ;
16192
16193 #if MELT_HAVE_DEBUG
16194         MELT_LOCATION("warmelt-outobj.melt:4111:/ cppif.then");
16195         /*^block*/
16196         /*anyblock*/
16197         {
16198
16199
16200             MELT_CHECK_SIGNAL();
16201             ;
16202             /*_#IS_MULTIPLE_OR_NULL__L7*/
16203             meltfnum[5] =
16204                 ((/*_.OXRES__V13*/ meltfptr[12]) == NULL || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.OXRES__V13*/ meltfptr[12])) == MELTOBMAG_MULTIPLE));;
16205             MELT_LOCATION("warmelt-outobj.melt:4111:/ cond");
16206             /*cond*/
16207             if (/*_#IS_MULTIPLE_OR_NULL__L7*/ meltfnum[5]) /*then*/
16208                 {
16209                     /*^cond.then*/
16210                     /*_._IFELSE___V21*/ meltfptr[17] = (/*nil*/NULL);;
16211                 }
16212             else
16213                 {
16214                     MELT_LOCATION("warmelt-outobj.melt:4111:/ cond.else");
16215
16216                     /*^block*/
16217                     /*anyblock*/
16218                     {
16219
16220
16221                         MELT_CHECK_SIGNAL();
16222                         ;
16223                         /*^apply*/
16224                         /*apply*/
16225                         {
16226                             union meltparam_un argtab[4];
16227                             memset(&argtab, 0, sizeof(argtab));
16228                             /*^apply.arg*/
16229                             argtab[0].meltbp_cstring =  "check oxres";
16230                             /*^apply.arg*/
16231                             argtab[1].meltbp_cstring =  "warmelt-outobj.melt";
16232                             /*^apply.arg*/
16233                             argtab[2].meltbp_long = 4111;
16234                             /*^apply.arg*/
16235                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OXRES__V13*/ meltfptr[12];
16236                             /*_.MELT_ASSERT_FAILURE_FUN__V22*/
16237                             meltfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
16238                         }
16239                         ;
16240                         /*_._IFELSE___V21*/
16241                         meltfptr[17] = /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[21];;
16242                         /*epilog*/
16243
16244                         MELT_LOCATION("warmelt-outobj.melt:4111:/ clear");
16245                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V22*/
16246                         meltfptr[21] = 0 ;
16247                     }
16248                     ;
16249                 }
16250             ;
16251             /*_.IFCPP___V20*/
16252             meltfptr[18] = /*_._IFELSE___V21*/ meltfptr[17];;
16253             /*epilog*/
16254
16255             MELT_LOCATION("warmelt-outobj.melt:4111:/ clear");
16256             /*clear*/ /*_#IS_MULTIPLE_OR_NULL__L7*/
16257             meltfnum[5] = 0 ;
16258             /*^clear*/
16259             /*clear*/ /*_._IFELSE___V21*/
16260             meltfptr[17] = 0 ;
16261         }
16262
16263 #else /*MELT_HAVE_DEBUG*/
16264         /*^cppif.else*/
16265         /*_.IFCPP___V20*/ meltfptr[18] = (/*nil*/NULL);
16266 #endif /*MELT_HAVE_DEBUG*/
16267         ;
16268
16269         MELT_CHECK_SIGNAL();
16270         ;
16271         MELT_LOCATION("warmelt-outobj.melt:4112:/ apply");
16272         /*apply*/
16273         {
16274             union meltparam_un argtab[3];
16275             memset(&argtab, 0, sizeof(argtab));
16276             /*^apply.arg*/
16277             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
16278             /*^apply.arg*/
16279             argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0];
16280             /*^apply.arg*/
16281             argtab[2].meltbp_cstring =  "multiapply";
16282             /*_.OUTPUT_LOCATION__V23*/
16283             meltfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.ALOC__V9*/ meltfptr[5]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
16284         }
16285         ;
16286
16287         MELT_CHECK_SIGNAL();
16288         ;
16289         MELT_LOCATION("warmelt-outobj.melt:73:/ cond");
16290         /*cond*/
16291         if ( (melt_module_var_fetch (meltmodvarix_FLAGVAL_OUTPUT_DESCR_COMMENT_symb))) /*then*/
16292             {
16293                 /*^cond.then*/
16294                 /*^block*/
16295                 /*anyblock*/
16296                 {
16297
16298
16299                     MELT_CHECK_SIGNAL();
16300                     ;
16301                     /*^apply*/
16302                     /*apply*/
16303                     {
16304                         union meltparam_un argtab[1];
16305                         memset(&argtab, 0, sizeof(argtab));
16306                         /*^apply.arg*/
16307                         argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.OAPP__V2*/ meltfptr[1];
16308                         /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V25*/
16309                         meltfptr[24] =  melt_apply ((meltclosure_ptr_t)((/*!DO_OUTPUT_DESCRIPTIVE_COMMENT*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
16310                     }
16311                     ;
16312                     /*_._IF___V24*/
16313                     meltfptr[17] = /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V25*/ meltfptr[24];;
16314                     /*epilog*/
16315
16316                     MELT_LOCATION("warmelt-outobj.melt:73:/ clear");
16317                     /*clear*/ /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V25*/
16318                     meltfptr[24] = 0 ;
16319                 }
16320                 ;
16321             }
16322         else    /*^cond.else*/
16323             {
16324
16325                 /*_._IF___V24*/ meltfptr[17] =  /*reallynil*/ NULL ;;
16326             }
16327         ;
16328
16329         {
16330             MELT_LOCATION("warmelt-outobj.melt:4114:/ locexp");
16331             /*add2sbuf_strconst*/
16332             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "/*multiapply "));
16333         }
16334         ;
16335
16336         {
16337             MELT_LOCATION("warmelt-outobj.melt:4115:/ locexp");
16338             meltgc_add_strbuf_dec((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#NBARG__L3*/ meltfnum[1]));
16339         }
16340         ;
16341
16342         {
16343             MELT_LOCATION("warmelt-outobj.melt:4116:/ locexp");
16344             /*add2sbuf_strconst*/
16345             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "args, "));
16346         }
16347         ;
16348
16349         {
16350             MELT_LOCATION("warmelt-outobj.melt:4117:/ locexp");
16351             meltgc_add_strbuf_dec((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#NBXRES__L4*/ meltfnum[3]));
16352         }
16353         ;
16354
16355         {
16356             MELT_LOCATION("warmelt-outobj.melt:4118:/ locexp");
16357             /*add2sbuf_strconst*/
16358             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "x.res*/ "));
16359         }
16360         ;
16361
16362         {
16363             MELT_LOCATION("warmelt-outobj.melt:4119:/ locexp");
16364             /*add2sbuf_strconst*/
16365             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "{"));
16366         }
16367         ;
16368         /*_#plI__L8*/
16369         meltfnum[5] =
16370             ((1) + (/*_#DEPTH__L1*/ meltfnum[0]));;
16371
16372         {
16373             MELT_LOCATION("warmelt-outobj.melt:4120:/ locexp");
16374             meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#plI__L8*/ meltfnum[5]), 0);
16375         }
16376         ;
16377
16378         MELT_CHECK_SIGNAL();
16379         ;
16380         /*_#gtI__L9*/
16381         meltfnum[8] =
16382             ((/*_#NBARG__L3*/ meltfnum[1]) > (1));;
16383         MELT_LOCATION("warmelt-outobj.melt:4121:/ cond");
16384         /*cond*/
16385         if (/*_#gtI__L9*/ meltfnum[8]) /*then*/
16386             {
16387                 /*^cond.then*/
16388                 /*^block*/
16389                 /*anyblock*/
16390                 {
16391
16392
16393                     {
16394                         MELT_LOCATION("warmelt-outobj.melt:4122:/ locexp");
16395                         /*add2sbuf_strconst*/
16396                         meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "union meltparam_un argtab["));
16397                     }
16398                     ;
16399                     /*_#miI__L10*/
16400                     meltfnum[9] =
16401                         ((/*_#NBARG__L3*/ meltfnum[1]) - (1));;
16402
16403                     {
16404                         MELT_LOCATION("warmelt-outobj.melt:4123:/ locexp");
16405                         meltgc_add_strbuf_dec((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#miI__L10*/ meltfnum[9]));
16406                     }
16407                     ;
16408
16409                     {
16410                         MELT_LOCATION("warmelt-outobj.melt:4124:/ locexp");
16411                         /*add2sbuf_strconst*/
16412                         meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "];"));
16413                     }
16414                     ;
16415                     /*_#plI__L11*/
16416                     meltfnum[10] =
16417                         ((1) + (/*_#DEPTH__L1*/ meltfnum[0]));;
16418
16419                     {
16420                         MELT_LOCATION("warmelt-outobj.melt:4125:/ locexp");
16421                         meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#plI__L11*/ meltfnum[10]), 0);
16422                     }
16423                     ;
16424                     MELT_LOCATION("warmelt-outobj.melt:4121:/ quasiblock");
16425
16426
16427                     /*epilog*/
16428
16429                     /*^clear*/
16430                     /*clear*/ /*_#miI__L10*/
16431                     meltfnum[9] = 0 ;
16432                     /*^clear*/
16433                     /*clear*/ /*_#plI__L11*/
16434                     meltfnum[10] = 0 ;
16435                 }
16436                 ;
16437             } /*noelse*/
16438         ;
16439
16440         MELT_CHECK_SIGNAL();
16441         ;
16442         /*_#gtI__L12*/
16443         meltfnum[9] =
16444             ((/*_#NBXRES__L4*/ meltfnum[3]) > (0));;
16445         MELT_LOCATION("warmelt-outobj.melt:4127:/ cond");
16446         /*cond*/
16447         if (/*_#gtI__L12*/ meltfnum[9]) /*then*/
16448             {
16449                 /*^cond.then*/
16450                 /*^block*/
16451                 /*anyblock*/
16452                 {
16453
16454                     /*_#plI__L13*/ meltfnum[10] =
16455                         ((1) + (/*_#DEPTH__L1*/ meltfnum[0]));;
16456
16457                     {
16458                         MELT_LOCATION("warmelt-outobj.melt:4128:/ locexp");
16459                         meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#plI__L13*/ meltfnum[10]), 0);
16460                     }
16461                     ;
16462
16463                     {
16464                         MELT_LOCATION("warmelt-outobj.melt:4129:/ locexp");
16465                         /*add2sbuf_strconst*/
16466                         meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "union meltparam_un restab["));
16467                     }
16468                     ;
16469
16470                     {
16471                         MELT_LOCATION("warmelt-outobj.melt:4130:/ locexp");
16472                         meltgc_add_strbuf_dec((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#NBXRES__L4*/ meltfnum[3]));
16473                     }
16474                     ;
16475
16476                     {
16477                         MELT_LOCATION("warmelt-outobj.melt:4131:/ locexp");
16478                         /*add2sbuf_strconst*/
16479                         meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "];"));
16480                     }
16481                     ;
16482                     /*_#plI__L14*/
16483                     meltfnum[13] =
16484                         ((1) + (/*_#DEPTH__L1*/ meltfnum[0]));;
16485
16486                     {
16487                         MELT_LOCATION("warmelt-outobj.melt:4132:/ locexp");
16488                         meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#plI__L14*/ meltfnum[13]), 0);
16489                     }
16490                     ;
16491                     MELT_LOCATION("warmelt-outobj.melt:4127:/ quasiblock");
16492
16493
16494                     /*epilog*/
16495
16496                     /*^clear*/
16497                     /*clear*/ /*_#plI__L13*/
16498                     meltfnum[10] = 0 ;
16499                     /*^clear*/
16500                     /*clear*/ /*_#plI__L14*/
16501                     meltfnum[13] = 0 ;
16502                 }
16503                 ;
16504             } /*noelse*/
16505         ;
16506
16507         MELT_CHECK_SIGNAL();
16508         ;
16509         /*_#gtI__L15*/
16510         meltfnum[10] =
16511             ((/*_#NBXRES__L4*/ meltfnum[3]) > (0));;
16512         MELT_LOCATION("warmelt-outobj.melt:4134:/ cond");
16513         /*cond*/
16514         if (/*_#gtI__L15*/ meltfnum[10]) /*then*/
16515             {
16516                 /*^cond.then*/
16517                 /*^block*/
16518                 /*anyblock*/
16519                 {
16520
16521
16522                     {
16523                         MELT_LOCATION("warmelt-outobj.melt:4135:/ locexp");
16524                         /*add2sbuf_strconst*/
16525                         meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "memset(&restab, 0, sizeof(restab));"));
16526                     }
16527                     ;
16528                     /*_#plI__L16*/
16529                     meltfnum[13] =
16530                         ((1) + (/*_#DEPTH__L1*/ meltfnum[0]));;
16531
16532                     {
16533                         MELT_LOCATION("warmelt-outobj.melt:4136:/ locexp");
16534                         meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#plI__L16*/ meltfnum[13]), 0);
16535                     }
16536                     ;
16537                     /*citerblock FOREACH_IN_MULTIPLE*/
16538                     {
16539                         /* start foreach_in_multiple meltcit1__EACHTUP */
16540                         long  meltcit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.OXRES__V13*/ meltfptr[12]);
16541                         for (/*_#CURANK__L17*/ meltfnum[16] = 0;
16542                                                (/*_#CURANK__L17*/ meltfnum[16] >= 0) && (/*_#CURANK__L17*/ meltfnum[16] <  meltcit1__EACHTUP_ln);
16543                                                /*_#CURANK__L17*/ meltfnum[16]++)
16544                             {
16545                                 /*_.CURES__V26*/ meltfptr[24] = melt_multiple_nth((melt_ptr_t)(/*_.OXRES__V13*/ meltfptr[12]),  /*_#CURANK__L17*/ meltfnum[16]);
16546
16547
16548
16549                                 MELT_LOCATION("warmelt-outobj.melt:4141:/ quasiblock");
16550
16551
16552
16553                                 MELT_CHECK_SIGNAL();
16554                                 ;
16555                                 /*^msend*/
16556                                 /*msend*/
16557                                 {
16558                                     union meltparam_un argtab[1];
16559                                     memset(&argtab, 0, sizeof(argtab));
16560                                     /*^ojbmsend.arg*/
16561                                     argtab[0].meltbp_aptr = /*nil*/(melt_ptr_t*)NULL;
16562                                     /*_.CURCTYP__V27*/
16563                                     meltfptr[26] = meltgc_send((melt_ptr_t)(/*_.CURES__V26*/ meltfptr[24]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[6])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
16564                                 }
16565                                 ;
16566                                 MELT_LOCATION("warmelt-outobj.melt:4142:/ getslot");
16567                                 {
16568                                     melt_ptr_t slot=NULL, obj=NULL;
16569                                     obj = (melt_ptr_t)(/*_.CURCTYP__V27*/ meltfptr[26]) /*=obj*/;
16570                                     melt_object_get_field(slot,obj, 6, "CTYPE_PARSTRING");
16571                                     /*_.CTYPE_PARSTRING__V28*/
16572                                     meltfptr[27] = slot;
16573                                 };
16574                                 ;
16575
16576                                 {
16577                                     /*^locexp*/
16578                                     meltgc_append_list((melt_ptr_t)(/*_.RESDESCLIST__V15*/ meltfptr[14]), (melt_ptr_t)(/*_.CTYPE_PARSTRING__V28*/ meltfptr[27]));
16579                                 }
16580                                 ;
16581
16582                                 MELT_LOCATION("warmelt-outobj.melt:4141:/ clear");
16583                                 /*clear*/ /*_.CURCTYP__V27*/
16584                                 meltfptr[26] = 0 ;
16585                                 /*^clear*/
16586                                 /*clear*/ /*_.CTYPE_PARSTRING__V28*/
16587                                 meltfptr[27] = 0 ;
16588                                 if (/*_#CURANK__L17*/ meltfnum[16]<0) break;
16589                             } /* end  foreach_in_multiple meltcit1__EACHTUP */
16590
16591                         /*citerepilog*/
16592
16593                         MELT_LOCATION("warmelt-outobj.melt:4138:/ clear");
16594                         /*clear*/ /*_.CURES__V26*/
16595                         meltfptr[24] = 0 ;
16596                         /*^clear*/
16597                         /*clear*/ /*_#CURANK__L17*/
16598                         meltfnum[16] = 0 ;
16599                     } /*endciterblock FOREACH_IN_MULTIPLE*/
16600                     ;
16601                     MELT_LOCATION("warmelt-outobj.melt:4134:/ quasiblock");
16602
16603
16604                     /*epilog*/
16605
16606                     /*^clear*/
16607                     /*clear*/ /*_#plI__L16*/
16608                     meltfnum[13] = 0 ;
16609                 }
16610                 ;
16611             } /*noelse*/
16612         ;
16613
16614         MELT_CHECK_SIGNAL();
16615         ;
16616         /*_#gtI__L18*/
16617         meltfnum[13] =
16618             ((/*_#NBARG__L3*/ meltfnum[1]) > (1));;
16619         MELT_LOCATION("warmelt-outobj.melt:4143:/ cond");
16620         /*cond*/
16621         if (/*_#gtI__L18*/ meltfnum[13]) /*then*/
16622             {
16623                 /*^cond.then*/
16624                 /*^block*/
16625                 /*anyblock*/
16626                 {
16627
16628
16629                     {
16630                         MELT_LOCATION("warmelt-outobj.melt:4144:/ locexp");
16631                         /*add2sbuf_strconst*/
16632                         meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "memset(&argtab, 0, sizeof(argtab));"));
16633                     }
16634                     ;
16635                     /*_#plI__L19*/
16636                     meltfnum[18] =
16637                         ((1) + (/*_#DEPTH__L1*/ meltfnum[0]));;
16638
16639                     {
16640                         MELT_LOCATION("warmelt-outobj.melt:4145:/ locexp");
16641                         meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#plI__L19*/ meltfnum[18]), 0);
16642                     }
16643                     ;
16644                     /*citerblock FOREACH_IN_MULTIPLE*/
16645                     {
16646                         /* start foreach_in_multiple meltcit2__EACHTUP */
16647                         long  meltcit2__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.OARGS__V12*/ meltfptr[11]);
16648                         for (/*_#CURANK__L20*/ meltfnum[19] = 0;
16649                                                (/*_#CURANK__L20*/ meltfnum[19] >= 0) && (/*_#CURANK__L20*/ meltfnum[19] <  meltcit2__EACHTUP_ln);
16650                                                /*_#CURANK__L20*/ meltfnum[19]++)
16651                             {
16652                                 /*_.CURARG__V29*/ meltfptr[26] = melt_multiple_nth((melt_ptr_t)(/*_.OARGS__V12*/ meltfptr[11]),  /*_#CURANK__L20*/ meltfnum[19]);
16653
16654
16655
16656
16657                                 MELT_CHECK_SIGNAL();
16658                                 ;
16659                                 /*_#gtI__L21*/
16660                                 meltfnum[20] =
16661                                     ((/*_#CURANK__L20*/ meltfnum[19]) > (0));;
16662                                 MELT_LOCATION("warmelt-outobj.melt:4150:/ cond");
16663                                 /*cond*/
16664                                 if (/*_#gtI__L21*/ meltfnum[20]) /*then*/
16665                                     {
16666                                         /*^cond.then*/
16667                                         /*^block*/
16668                                         /*anyblock*/
16669                                         {
16670
16671                                             MELT_LOCATION("warmelt-outobj.melt:4151:/ quasiblock");
16672
16673
16674
16675                                             MELT_CHECK_SIGNAL();
16676                                             ;
16677                                             /*^msend*/
16678                                             /*msend*/
16679                                             {
16680                                                 union meltparam_un argtab[1];
16681                                                 memset(&argtab, 0, sizeof(argtab));
16682                                                 /*^ojbmsend.arg*/
16683                                                 argtab[0].meltbp_aptr = /*nil*/(melt_ptr_t*)NULL;
16684                                                 /*_.CURCTYP__V30*/
16685                                                 meltfptr[27] = meltgc_send((melt_ptr_t)(/*_.CURARG__V29*/ meltfptr[26]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[6])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
16686                                             }
16687                                             ;
16688
16689 #if MELT_HAVE_DEBUG
16690                                             MELT_LOCATION("warmelt-outobj.melt:4152:/ cppif.then");
16691                                             /*^block*/
16692                                             /*anyblock*/
16693                                             {
16694
16695
16696                                                 MELT_CHECK_SIGNAL();
16697                                                 ;
16698                                                 /*_#IS_A__L22*/
16699                                                 meltfnum[21] =
16700                                                     melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V30*/ meltfptr[27]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[7])));;
16701                                                 MELT_LOCATION("warmelt-outobj.melt:4152:/ cond");
16702                                                 /*cond*/
16703                                                 if (/*_#IS_A__L22*/ meltfnum[21]) /*then*/
16704                                                     {
16705                                                         /*^cond.then*/
16706                                                         /*_._IFELSE___V32*/ meltfptr[31] = (/*nil*/NULL);;
16707                                                     }
16708                                                 else
16709                                                     {
16710                                                         MELT_LOCATION("warmelt-outobj.melt:4152:/ cond.else");
16711
16712                                                         /*^block*/
16713                                                         /*anyblock*/
16714                                                         {
16715
16716
16717                                                             MELT_CHECK_SIGNAL();
16718                                                             ;
16719                                                             /*^apply*/
16720                                                             /*apply*/
16721                                                             {
16722                                                                 union meltparam_un argtab[3];
16723                                                                 memset(&argtab, 0, sizeof(argtab));
16724                                                                 /*^apply.arg*/
16725                                                                 argtab[0].meltbp_cstring =  "check curctyp";
16726                                                                 /*^apply.arg*/
16727                                                                 argtab[1].meltbp_cstring =  "warmelt-outobj.melt";
16728                                                                 /*^apply.arg*/
16729                                                                 argtab[2].meltbp_long = 4152;
16730                                                                 /*_.MELT_ASSERT_FAILURE_FUN__V33*/
16731                                                                 meltfptr[32] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
16732                                                             }
16733                                                             ;
16734                                                             /*_._IFELSE___V32*/
16735                                                             meltfptr[31] = /*_.MELT_ASSERT_FAILURE_FUN__V33*/ meltfptr[32];;
16736                                                             /*epilog*/
16737
16738                                                             MELT_LOCATION("warmelt-outobj.melt:4152:/ clear");
16739                                                             /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V33*/
16740                                                             meltfptr[32] = 0 ;
16741                                                         }
16742                                                         ;
16743                                                     }
16744                                                 ;
16745                                                 /*_.IFCPP___V31*/
16746                                                 meltfptr[30] = /*_._IFELSE___V32*/ meltfptr[31];;
16747                                                 /*epilog*/
16748
16749                                                 MELT_LOCATION("warmelt-outobj.melt:4152:/ clear");
16750                                                 /*clear*/ /*_#IS_A__L22*/
16751                                                 meltfnum[21] = 0 ;
16752                                                 /*^clear*/
16753                                                 /*clear*/ /*_._IFELSE___V32*/
16754                                                 meltfptr[31] = 0 ;
16755                                             }
16756
16757 #else /*MELT_HAVE_DEBUG*/
16758                                             /*^cppif.else*/
16759                                             /*_.IFCPP___V31*/ meltfptr[30] = (/*nil*/NULL);
16760 #endif /*MELT_HAVE_DEBUG*/
16761                                             ;
16762                                             /*^compute*/
16763                                             /*_#GET_INT__L23*/
16764                                             meltfnum[21] =
16765                                                 (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V16*/ meltfptr[15])));;
16766
16767                                             MELT_CHECK_SIGNAL();
16768                                             ;
16769                                             MELT_LOCATION("warmelt-outobj.melt:4153:/ apply");
16770                                             /*apply*/
16771                                             {
16772                                                 union meltparam_un argtab[3];
16773                                                 memset(&argtab, 0, sizeof(argtab));
16774                                                 /*^apply.arg*/
16775                                                 argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
16776                                                 /*^apply.arg*/
16777                                                 argtab[1].meltbp_long = /*_#GET_INT__L23*/ meltfnum[21];
16778                                                 /*^apply.arg*/
16779                                                 argtab[2].meltbp_cstring =  "multiapply.arg";
16780                                                 /*_.OUTPUT_LOCATION__V34*/
16781                                                 meltfptr[32] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.ALOC__V9*/ meltfptr[5]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
16782                                             }
16783                                             ;
16784
16785                                             {
16786                                                 MELT_LOCATION("warmelt-outobj.melt:4154:/ locexp");
16787                                                 /*add2sbuf_strconst*/
16788                                                 meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "argtab["));
16789                                             }
16790                                             ;
16791                                             /*_#miI__L24*/
16792                                             meltfnum[23] =
16793                                                 ((/*_#CURANK__L20*/ meltfnum[19]) - (1));;
16794
16795                                             {
16796                                                 MELT_LOCATION("warmelt-outobj.melt:4155:/ locexp");
16797                                                 meltgc_add_strbuf_dec((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#miI__L24*/ meltfnum[23]));
16798                                             }
16799                                             ;
16800
16801                                             {
16802                                                 MELT_LOCATION("warmelt-outobj.melt:4156:/ locexp");
16803                                                 /*add2sbuf_strconst*/
16804                                                 meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "]."));
16805                                             }
16806                                             ;
16807                                             MELT_LOCATION("warmelt-outobj.melt:4157:/ getslot");
16808                                             {
16809                                                 melt_ptr_t slot=NULL, obj=NULL;
16810                                                 obj = (melt_ptr_t)(/*_.CURCTYP__V30*/ meltfptr[27]) /*=obj*/;
16811                                                 melt_object_get_field(slot,obj, 6, "CTYPE_PARSTRING");
16812                                                 /*_.CTYPE_PARSTRING__V35*/
16813                                                 meltfptr[31] = slot;
16814                                             };
16815                                             ;
16816
16817                                             {
16818                                                 /*^locexp*/
16819                                                 meltgc_append_list((melt_ptr_t)(/*_.PARAMDESCLIST__V14*/ meltfptr[13]), (melt_ptr_t)(/*_.CTYPE_PARSTRING__V35*/ meltfptr[31]));
16820                                             }
16821                                             ;
16822
16823                                             MELT_CHECK_SIGNAL();
16824                                             ;
16825                                             /*_#NULL__L25*/
16826                                             meltfnum[24] =
16827                                                 (/*null*/(/*_.CURARG__V29*/ meltfptr[26]) == NULL);;
16828                                             MELT_LOCATION("warmelt-outobj.melt:4159:/ cond");
16829                                             /*cond*/
16830                                             if (/*_#NULL__L25*/ meltfnum[24]) /*then*/
16831                                                 {
16832                                                     /*^cond.then*/
16833                                                     /*^block*/
16834                                                     /*anyblock*/
16835                                                     {
16836
16837
16838
16839
16840                                                         {
16841                                                             MELT_LOCATION("warmelt-outobj.melt:4160:/ locexp");
16842                                                             /*add2sbuf_strconst*/
16843                                                             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "meltbp_aptr = (melt_ptr_t*)NULL"));
16844                                                         }
16845                                                         ;
16846                                                         /*clear*/ /*_._IFELSE___V36*/
16847                                                         meltfptr[35] = 0 ;
16848                                                         /*epilog*/
16849                                                     }
16850                                                     ;
16851                                                 }
16852                                             else
16853                                                 {
16854                                                     MELT_LOCATION("warmelt-outobj.melt:4159:/ cond.else");
16855
16856                                                     /*^block*/
16857                                                     /*anyblock*/
16858                                                     {
16859
16860
16861                                                         MELT_CHECK_SIGNAL();
16862                                                         ;
16863                                                         /*_#eqeq__L26*/
16864                                                         meltfnum[25] =
16865                                                             ((/*_.CURCTYP__V30*/ meltfptr[27]) == ((/*!CTYPE_VALUE*/ meltfrout->tabval[8])));;
16866                                                         MELT_LOCATION("warmelt-outobj.melt:4161:/ cond");
16867                                                         /*cond*/
16868                                                         if (/*_#eqeq__L26*/ meltfnum[25]) /*then*/
16869                                                             {
16870                                                                 /*^cond.then*/
16871                                                                 /*^block*/
16872                                                                 /*anyblock*/
16873                                                                 {
16874
16875
16876                                                                     {
16877                                                                         MELT_LOCATION("warmelt-outobj.melt:4162:/ locexp");
16878                                                                         /*add2sbuf_strconst*/
16879                                                                         meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "meltbp_aptr = (melt_ptr_t*) &"));
16880                                                                     }
16881                                                                     ;
16882                                                                     /*_#GET_INT__L27*/
16883                                                                     meltfnum[26] =
16884                                                                         (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V16*/ meltfptr[15])));;
16885
16886                                                                     MELT_CHECK_SIGNAL();
16887                                                                     ;
16888                                                                     MELT_LOCATION("warmelt-outobj.melt:4163:/ msend");
16889                                                                     /*msend*/
16890                                                                     {
16891                                                                         union meltparam_un argtab[3];
16892                                                                         memset(&argtab, 0, sizeof(argtab));
16893                                                                         /*^ojbmsend.arg*/
16894                                                                         argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2];
16895                                                                         /*^ojbmsend.arg*/
16896                                                                         argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
16897                                                                         /*^ojbmsend.arg*/
16898                                                                         argtab[2].meltbp_long = /*_#GET_INT__L27*/ meltfnum[26];
16899                                                                         /*_.OUTPUT_C_CODE__V38*/
16900                                                                         meltfptr[37] = meltgc_send((melt_ptr_t)(/*_.CURARG__V29*/ meltfptr[26]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[9])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
16901                                                                     }
16902                                                                     ;
16903                                                                     MELT_LOCATION("warmelt-outobj.melt:4161:/ quasiblock");
16904
16905
16906                                                                     /*_.PROGN___V39*/
16907                                                                     meltfptr[38] = /*_.OUTPUT_C_CODE__V38*/ meltfptr[37];;
16908                                                                     /*^compute*/
16909                                                                     /*_._IFELSE___V37*/
16910                                                                     meltfptr[36] = /*_.PROGN___V39*/ meltfptr[38];;
16911                                                                     /*epilog*/
16912
16913                                                                     MELT_LOCATION("warmelt-outobj.melt:4161:/ clear");
16914                                                                     /*clear*/ /*_#GET_INT__L27*/
16915                                                                     meltfnum[26] = 0 ;
16916                                                                     /*^clear*/
16917                                                                     /*clear*/ /*_.OUTPUT_C_CODE__V38*/
16918                                                                     meltfptr[37] = 0 ;
16919                                                                     /*^clear*/
16920                                                                     /*clear*/ /*_.PROGN___V39*/
16921                                                                     meltfptr[38] = 0 ;
16922                                                                 }
16923                                                                 ;
16924                                                             }
16925                                                         else    /*^cond.else*/
16926                                                             {
16927
16928                                                                 /*^block*/
16929                                                                 /*anyblock*/
16930                                                                 {
16931
16932                                                                     MELT_LOCATION("warmelt-outobj.melt:4166:/ getslot");
16933                                                                     {
16934                                                                         melt_ptr_t slot=NULL, obj=NULL;
16935                                                                         obj = (melt_ptr_t)(/*_.CURCTYP__V30*/ meltfptr[27]) /*=obj*/;
16936                                                                         melt_object_get_field(slot,obj, 7, "CTYPE_ARGFIELD");
16937                                                                         /*_.CTYPE_ARGFIELD__V40*/
16938                                                                         meltfptr[37] = slot;
16939                                                                     };
16940                                                                     ;
16941
16942                                                                     {
16943                                                                         /*^locexp*/
16944                                                                         /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]),
16945                                                                                                               melt_string_str((melt_ptr_t)(/*_.CTYPE_ARGFIELD__V40*/ meltfptr[37])));
16946                                                                     }
16947                                                                     ;
16948
16949                                                                     {
16950                                                                         MELT_LOCATION("warmelt-outobj.melt:4167:/ locexp");
16951                                                                         /*add2sbuf_strconst*/
16952                                                                         meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( " = "));
16953                                                                     }
16954                                                                     ;
16955                                                                     /*_#GET_INT__L28*/
16956                                                                     meltfnum[26] =
16957                                                                         (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V16*/ meltfptr[15])));;
16958
16959                                                                     MELT_CHECK_SIGNAL();
16960                                                                     ;
16961                                                                     MELT_LOCATION("warmelt-outobj.melt:4168:/ msend");
16962                                                                     /*msend*/
16963                                                                     {
16964                                                                         union meltparam_un argtab[3];
16965                                                                         memset(&argtab, 0, sizeof(argtab));
16966                                                                         /*^ojbmsend.arg*/
16967                                                                         argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2];
16968                                                                         /*^ojbmsend.arg*/
16969                                                                         argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
16970                                                                         /*^ojbmsend.arg*/
16971                                                                         argtab[2].meltbp_long = /*_#GET_INT__L28*/ meltfnum[26];
16972                                                                         /*_.OUTPUT_C_CODE__V41*/
16973                                                                         meltfptr[38] = meltgc_send((melt_ptr_t)(/*_.CURARG__V29*/ meltfptr[26]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[9])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
16974                                                                     }
16975                                                                     ;
16976                                                                     MELT_LOCATION("warmelt-outobj.melt:4165:/ quasiblock");
16977
16978
16979                                                                     /*_.PROGN___V42*/
16980                                                                     meltfptr[41] = /*_.OUTPUT_C_CODE__V41*/ meltfptr[38];;
16981                                                                     /*^compute*/
16982                                                                     /*_._IFELSE___V37*/
16983                                                                     meltfptr[36] = /*_.PROGN___V42*/ meltfptr[41];;
16984                                                                     /*epilog*/
16985
16986                                                                     MELT_LOCATION("warmelt-outobj.melt:4161:/ clear");
16987                                                                     /*clear*/ /*_.CTYPE_ARGFIELD__V40*/
16988                                                                     meltfptr[37] = 0 ;
16989                                                                     /*^clear*/
16990                                                                     /*clear*/ /*_#GET_INT__L28*/
16991                                                                     meltfnum[26] = 0 ;
16992                                                                     /*^clear*/
16993                                                                     /*clear*/ /*_.OUTPUT_C_CODE__V41*/
16994                                                                     meltfptr[38] = 0 ;
16995                                                                     /*^clear*/
16996                                                                     /*clear*/ /*_.PROGN___V42*/
16997                                                                     meltfptr[41] = 0 ;
16998                                                                 }
16999                                                                 ;
17000                                                             }
17001                                                         ;
17002                                                         /*_._IFELSE___V36*/
17003                                                         meltfptr[35] = /*_._IFELSE___V37*/ meltfptr[36];;
17004                                                         /*epilog*/
17005
17006                                                         MELT_LOCATION("warmelt-outobj.melt:4159:/ clear");
17007                                                         /*clear*/ /*_#eqeq__L26*/
17008                                                         meltfnum[25] = 0 ;
17009                                                         /*^clear*/
17010                                                         /*clear*/ /*_._IFELSE___V37*/
17011                                                         meltfptr[36] = 0 ;
17012                                                     }
17013                                                     ;
17014                                                 }
17015                                             ;
17016
17017                                             {
17018                                                 MELT_LOCATION("warmelt-outobj.melt:4170:/ locexp");
17019                                                 /*add2sbuf_strconst*/
17020                                                 meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( ";"));
17021                                             }
17022                                             ;
17023
17024                                             MELT_LOCATION("warmelt-outobj.melt:4151:/ clear");
17025                                             /*clear*/ /*_.CURCTYP__V30*/
17026                                             meltfptr[27] = 0 ;
17027                                             /*^clear*/
17028                                             /*clear*/ /*_.IFCPP___V31*/
17029                                             meltfptr[30] = 0 ;
17030                                             /*^clear*/
17031                                             /*clear*/ /*_#GET_INT__L23*/
17032                                             meltfnum[21] = 0 ;
17033                                             /*^clear*/
17034                                             /*clear*/ /*_.OUTPUT_LOCATION__V34*/
17035                                             meltfptr[32] = 0 ;
17036                                             /*^clear*/
17037                                             /*clear*/ /*_#miI__L24*/
17038                                             meltfnum[23] = 0 ;
17039                                             /*^clear*/
17040                                             /*clear*/ /*_.CTYPE_PARSTRING__V35*/
17041                                             meltfptr[31] = 0 ;
17042                                             /*^clear*/
17043                                             /*clear*/ /*_#NULL__L25*/
17044                                             meltfnum[24] = 0 ;
17045                                             /*^clear*/
17046                                             /*clear*/ /*_._IFELSE___V36*/
17047                                             meltfptr[35] = 0 ;
17048                                             /*epilog*/
17049                                         }
17050                                         ;
17051                                     } /*noelse*/
17052                                 ;
17053
17054 #if MELT_HAVE_DEBUG
17055                                 MELT_LOCATION("warmelt-outobj.melt:4172:/ cppif.then");
17056                                 /*^block*/
17057                                 /*anyblock*/
17058                                 {
17059
17060
17061                                     MELT_CHECK_SIGNAL();
17062                                     ;
17063                                     /*_#STRBUF_USEDLENGTH__L29*/
17064                                     meltfnum[26] =
17065                                         melt_strbuf_usedlength((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]));;
17066                                     MELT_LOCATION("warmelt-outobj.melt:4173:/ cond");
17067                                     /*cond*/
17068                                     if (
17069                                         /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[10])),
17070                                                                       (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[11])))
17071                                     ) /*then*/
17072                                         {
17073                                             /*^cond.then*/
17074                                             /*^getslot*/
17075                                             {
17076                                                 melt_ptr_t slot=NULL, obj=NULL;
17077                                                 obj = (melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[10])) /*=obj*/;
17078                                                 melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE");
17079                                                 /*_.REFERENCED_VALUE__V44*/
17080                                                 meltfptr[38] = slot;
17081                                             };
17082                                             ;
17083                                         }
17084                                     else    /*^cond.else*/
17085                                         {
17086
17087                                             /*_.REFERENCED_VALUE__V44*/ meltfptr[38] =  /*reallynil*/ NULL ;;
17088                                         }
17089                                     ;
17090                                     /*^compute*/
17091                                     /*_#GET_INT__L30*/
17092                                     meltfnum[25] =
17093                                         (melt_get_int((melt_ptr_t)(/*_.REFERENCED_VALUE__V44*/ meltfptr[38])));;
17094                                     /*^compute*/
17095                                     /*_#ltI__L31*/
17096                                     meltfnum[21] =
17097                                         ((/*_#STRBUF_USEDLENGTH__L29*/ meltfnum[26]) < (/*_#GET_INT__L30*/ meltfnum[25]));;
17098                                     MELT_LOCATION("warmelt-outobj.melt:4172:/ cond");
17099                                     /*cond*/
17100                                     if (/*_#ltI__L31*/ meltfnum[21]) /*then*/
17101                                         {
17102                                             /*^cond.then*/
17103                                             /*_._IFELSE___V45*/ meltfptr[41] = (/*nil*/NULL);;
17104                                         }
17105                                     else
17106                                         {
17107                                             MELT_LOCATION("warmelt-outobj.melt:4172:/ cond.else");
17108
17109                                             /*^block*/
17110                                             /*anyblock*/
17111                                             {
17112
17113
17114                                                 MELT_CHECK_SIGNAL();
17115                                                 ;
17116                                                 /*^apply*/
17117                                                 /*apply*/
17118                                                 {
17119                                                     union meltparam_un argtab[4];
17120                                                     memset(&argtab, 0, sizeof(argtab));
17121                                                     /*^apply.arg*/
17122                                                     argtab[0].meltbp_cstring =  "check limited implbuf";
17123                                                     /*^apply.arg*/
17124                                                     argtab[1].meltbp_cstring =  "warmelt-outobj.melt";
17125                                                     /*^apply.arg*/
17126                                                     argtab[2].meltbp_long = 4172;
17127                                                     /*^apply.arg*/
17128                                                     argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
17129                                                     /*_.MELT_ASSERT_FAILURE_FUN__V46*/
17130                                                     meltfptr[36] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
17131                                                 }
17132                                                 ;
17133                                                 /*_._IFELSE___V45*/
17134                                                 meltfptr[41] = /*_.MELT_ASSERT_FAILURE_FUN__V46*/ meltfptr[36];;
17135                                                 /*epilog*/
17136
17137                                                 MELT_LOCATION("warmelt-outobj.melt:4172:/ clear");
17138                                                 /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V46*/
17139                                                 meltfptr[36] = 0 ;
17140                                             }
17141                                             ;
17142                                         }
17143                                     ;
17144                                     /*_.IFCPP___V43*/
17145                                     meltfptr[37] = /*_._IFELSE___V45*/ meltfptr[41];;
17146                                     /*epilog*/
17147
17148                                     MELT_LOCATION("warmelt-outobj.melt:4172:/ clear");
17149                                     /*clear*/ /*_#STRBUF_USEDLENGTH__L29*/
17150                                     meltfnum[26] = 0 ;
17151                                     /*^clear*/
17152                                     /*clear*/ /*_.REFERENCED_VALUE__V44*/
17153                                     meltfptr[38] = 0 ;
17154                                     /*^clear*/
17155                                     /*clear*/ /*_#GET_INT__L30*/
17156                                     meltfnum[25] = 0 ;
17157                                     /*^clear*/
17158                                     /*clear*/ /*_#ltI__L31*/
17159                                     meltfnum[21] = 0 ;
17160                                     /*^clear*/
17161                                     /*clear*/ /*_._IFELSE___V45*/
17162                                     meltfptr[41] = 0 ;
17163                                 }
17164
17165 #else /*MELT_HAVE_DEBUG*/
17166                                 /*^cppif.else*/
17167                                 /*_.IFCPP___V43*/ meltfptr[37] = (/*nil*/NULL);
17168 #endif /*MELT_HAVE_DEBUG*/
17169                                 ;
17170                                 if (/*_#CURANK__L20*/ meltfnum[19]<0) break;
17171                             } /* end  foreach_in_multiple meltcit2__EACHTUP */
17172
17173                         /*citerepilog*/
17174
17175                         MELT_LOCATION("warmelt-outobj.melt:4147:/ clear");
17176                         /*clear*/ /*_.CURARG__V29*/
17177                         meltfptr[26] = 0 ;
17178                         /*^clear*/
17179                         /*clear*/ /*_#CURANK__L20*/
17180                         meltfnum[19] = 0 ;
17181                         /*^clear*/
17182                         /*clear*/ /*_#gtI__L21*/
17183                         meltfnum[20] = 0 ;
17184                         /*^clear*/
17185                         /*clear*/ /*_.IFCPP___V43*/
17186                         meltfptr[37] = 0 ;
17187                     } /*endciterblock FOREACH_IN_MULTIPLE*/
17188                     ;
17189                     /*_#GET_INT__L32*/
17190                     meltfnum[23] =
17191                         (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V16*/ meltfptr[15])));;
17192
17193                     {
17194                         MELT_LOCATION("warmelt-outobj.melt:4175:/ locexp");
17195                         meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#GET_INT__L32*/ meltfnum[23]), 0);
17196                     }
17197                     ;
17198                     MELT_LOCATION("warmelt-outobj.melt:4143:/ quasiblock");
17199
17200
17201                     /*epilog*/
17202
17203                     /*^clear*/
17204                     /*clear*/ /*_#plI__L19*/
17205                     meltfnum[18] = 0 ;
17206                     /*^clear*/
17207                     /*clear*/ /*_#GET_INT__L32*/
17208                     meltfnum[23] = 0 ;
17209                 }
17210                 ;
17211             } /*noelse*/
17212         ;
17213
17214         MELT_CHECK_SIGNAL();
17215         ;
17216         /*_#gtI__L33*/
17217         meltfnum[24] =
17218             ((/*_#NBXRES__L4*/ meltfnum[3]) > (0));;
17219         MELT_LOCATION("warmelt-outobj.melt:4178:/ cond");
17220         /*cond*/
17221         if (/*_#gtI__L33*/ meltfnum[24]) /*then*/
17222             {
17223                 /*^cond.then*/
17224                 /*^block*/
17225                 /*anyblock*/
17226                 {
17227
17228                     /*citerblock FOREACH_IN_MULTIPLE*/
17229                     {
17230                         /* start foreach_in_multiple meltcit3__EACHTUP */
17231                         long  meltcit3__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.OXRES__V13*/ meltfptr[12]);
17232                         for (/*_#CURANK__L34*/ meltfnum[26] = 0;
17233                                                (/*_#CURANK__L34*/ meltfnum[26] >= 0) && (/*_#CURANK__L34*/ meltfnum[26] <  meltcit3__EACHTUP_ln);
17234                                                /*_#CURANK__L34*/ meltfnum[26]++)
17235                             {
17236                                 /*_.CURES__V47*/ meltfptr[27] = melt_multiple_nth((melt_ptr_t)(/*_.OXRES__V13*/ meltfptr[12]),  /*_#CURANK__L34*/ meltfnum[26]);
17237
17238
17239
17240                                 MELT_LOCATION("warmelt-outobj.melt:4182:/ quasiblock");
17241
17242
17243
17244                                 MELT_CHECK_SIGNAL();
17245                                 ;
17246                                 /*^msend*/
17247                                 /*msend*/
17248                                 {
17249                                     union meltparam_un argtab[1];
17250                                     memset(&argtab, 0, sizeof(argtab));
17251                                     /*^ojbmsend.arg*/
17252                                     argtab[0].meltbp_aptr = /*nil*/(melt_ptr_t*)NULL;
17253                                     /*_.CURESTYP__V48*/
17254                                     meltfptr[30] = meltgc_send((melt_ptr_t)(/*_.CURES__V47*/ meltfptr[27]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[6])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
17255                                 }
17256                                 ;
17257
17258 #if MELT_HAVE_DEBUG
17259                                 MELT_LOCATION("warmelt-outobj.melt:4183:/ cppif.then");
17260                                 /*^block*/
17261                                 /*anyblock*/
17262                                 {
17263
17264
17265                                     MELT_CHECK_SIGNAL();
17266                                     ;
17267                                     /*_#IS_A__L35*/
17268                                     meltfnum[25] =
17269                                         melt_is_instance_of((melt_ptr_t)(/*_.CURESTYP__V48*/ meltfptr[30]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[7])));;
17270                                     MELT_LOCATION("warmelt-outobj.melt:4183:/ cond");
17271                                     /*cond*/
17272                                     if (/*_#IS_A__L35*/ meltfnum[25]) /*then*/
17273                                         {
17274                                             /*^cond.then*/
17275                                             /*_._IFELSE___V50*/ meltfptr[31] = (/*nil*/NULL);;
17276                                         }
17277                                     else
17278                                         {
17279                                             MELT_LOCATION("warmelt-outobj.melt:4183:/ cond.else");
17280
17281                                             /*^block*/
17282                                             /*anyblock*/
17283                                             {
17284
17285
17286                                                 MELT_CHECK_SIGNAL();
17287                                                 ;
17288                                                 /*^apply*/
17289                                                 /*apply*/
17290                                                 {
17291                                                     union meltparam_un argtab[3];
17292                                                     memset(&argtab, 0, sizeof(argtab));
17293                                                     /*^apply.arg*/
17294                                                     argtab[0].meltbp_cstring =  "check curestyp";
17295                                                     /*^apply.arg*/
17296                                                     argtab[1].meltbp_cstring =  "warmelt-outobj.melt";
17297                                                     /*^apply.arg*/
17298                                                     argtab[2].meltbp_long = 4183;
17299                                                     /*_.MELT_ASSERT_FAILURE_FUN__V51*/
17300                                                     meltfptr[35] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
17301                                                 }
17302                                                 ;
17303                                                 /*_._IFELSE___V50*/
17304                                                 meltfptr[31] = /*_.MELT_ASSERT_FAILURE_FUN__V51*/ meltfptr[35];;
17305                                                 /*epilog*/
17306
17307                                                 MELT_LOCATION("warmelt-outobj.melt:4183:/ clear");
17308                                                 /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V51*/
17309                                                 meltfptr[35] = 0 ;
17310                                             }
17311                                             ;
17312                                         }
17313                                     ;
17314                                     /*_.IFCPP___V49*/
17315                                     meltfptr[32] = /*_._IFELSE___V50*/ meltfptr[31];;
17316                                     /*epilog*/
17317
17318                                     MELT_LOCATION("warmelt-outobj.melt:4183:/ clear");
17319                                     /*clear*/ /*_#IS_A__L35*/
17320                                     meltfnum[25] = 0 ;
17321                                     /*^clear*/
17322                                     /*clear*/ /*_._IFELSE___V50*/
17323                                     meltfptr[31] = 0 ;
17324                                 }
17325
17326 #else /*MELT_HAVE_DEBUG*/
17327                                 /*^cppif.else*/
17328                                 /*_.IFCPP___V49*/ meltfptr[32] = (/*nil*/NULL);
17329 #endif /*MELT_HAVE_DEBUG*/
17330                                 ;
17331                                 /*^compute*/
17332                                 /*_#GET_INT__L36*/
17333                                 meltfnum[21] =
17334                                     (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V16*/ meltfptr[15])));;
17335
17336                                 MELT_CHECK_SIGNAL();
17337                                 ;
17338                                 MELT_LOCATION("warmelt-outobj.melt:4184:/ apply");
17339                                 /*apply*/
17340                                 {
17341                                     union meltparam_un argtab[3];
17342                                     memset(&argtab, 0, sizeof(argtab));
17343                                     /*^apply.arg*/
17344                                     argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
17345                                     /*^apply.arg*/
17346                                     argtab[1].meltbp_long = /*_#GET_INT__L36*/ meltfnum[21];
17347                                     /*^apply.arg*/
17348                                     argtab[2].meltbp_cstring =  "multiapply.xres";
17349                                     /*_.OUTPUT_LOCATION__V52*/
17350                                     meltfptr[36] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.ALOC__V9*/ meltfptr[5]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
17351                                 }
17352                                 ;
17353
17354                                 {
17355                                     MELT_LOCATION("warmelt-outobj.melt:4185:/ locexp");
17356                                     /*add2sbuf_strconst*/
17357                                     meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "restab["));
17358                                 }
17359                                 ;
17360
17361                                 {
17362                                     MELT_LOCATION("warmelt-outobj.melt:4186:/ locexp");
17363                                     meltgc_add_strbuf_dec((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#CURANK__L34*/ meltfnum[26]));
17364                                 }
17365                                 ;
17366
17367                                 {
17368                                     MELT_LOCATION("warmelt-outobj.melt:4187:/ locexp");
17369                                     /*add2sbuf_strconst*/
17370                                     meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "]."));
17371                                 }
17372                                 ;
17373
17374                                 MELT_CHECK_SIGNAL();
17375                                 ;
17376                                 /*_#NULL__L37*/
17377                                 meltfnum[18] =
17378                                     (/*null*/(/*_.CURES__V47*/ meltfptr[27]) == NULL);;
17379                                 MELT_LOCATION("warmelt-outobj.melt:4189:/ cond");
17380                                 /*cond*/
17381                                 if (/*_#NULL__L37*/ meltfnum[18]) /*then*/
17382                                     {
17383                                         /*^cond.then*/
17384                                         /*^block*/
17385                                         /*anyblock*/
17386                                         {
17387
17388
17389
17390
17391                                             {
17392                                                 MELT_LOCATION("warmelt-outobj.melt:4190:/ locexp");
17393                                                 /*add2sbuf_strconst*/
17394                                                 meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "meltbp_aptr = (melt_ptr_t*)NULL"));
17395                                             }
17396                                             ;
17397                                             /*clear*/ /*_._IFELSE___V53*/
17398                                             meltfptr[38] = 0 ;
17399                                             /*epilog*/
17400                                         }
17401                                         ;
17402                                     }
17403                                 else
17404                                     {
17405                                         MELT_LOCATION("warmelt-outobj.melt:4189:/ cond.else");
17406
17407                                         /*^block*/
17408                                         /*anyblock*/
17409                                         {
17410
17411
17412                                             MELT_CHECK_SIGNAL();
17413                                             ;
17414                                             /*_#eqeq__L38*/
17415                                             meltfnum[23] =
17416                                                 ((/*_.CURESTYP__V48*/ meltfptr[30]) == ((/*!CTYPE_VALUE*/ meltfrout->tabval[8])));;
17417                                             MELT_LOCATION("warmelt-outobj.melt:4191:/ cond");
17418                                             /*cond*/
17419                                             if (/*_#eqeq__L38*/ meltfnum[23]) /*then*/
17420                                                 {
17421                                                     /*^cond.then*/
17422                                                     /*^block*/
17423                                                     /*anyblock*/
17424                                                     {
17425
17426
17427                                                         {
17428                                                             MELT_LOCATION("warmelt-outobj.melt:4192:/ locexp");
17429                                                             /*add2sbuf_strconst*/
17430                                                             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "meltbp_aptr = (melt_ptr_t*) &"));
17431                                                         }
17432                                                         ;
17433                                                         /*_#GET_INT__L39*/
17434                                                         meltfnum[25] =
17435                                                             (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V16*/ meltfptr[15])));;
17436
17437                                                         MELT_CHECK_SIGNAL();
17438                                                         ;
17439                                                         MELT_LOCATION("warmelt-outobj.melt:4193:/ msend");
17440                                                         /*msend*/
17441                                                         {
17442                                                             union meltparam_un argtab[3];
17443                                                             memset(&argtab, 0, sizeof(argtab));
17444                                                             /*^ojbmsend.arg*/
17445                                                             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2];
17446                                                             /*^ojbmsend.arg*/
17447                                                             argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
17448                                                             /*^ojbmsend.arg*/
17449                                                             argtab[2].meltbp_long = /*_#GET_INT__L39*/ meltfnum[25];
17450                                                             /*_.OUTPUT_C_CODE__V55*/
17451                                                             meltfptr[35] = meltgc_send((melt_ptr_t)(/*_.CURES__V47*/ meltfptr[27]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[9])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
17452                                                         }
17453                                                         ;
17454                                                         MELT_LOCATION("warmelt-outobj.melt:4191:/ quasiblock");
17455
17456
17457                                                         /*_.PROGN___V56*/
17458                                                         meltfptr[31] = /*_.OUTPUT_C_CODE__V55*/ meltfptr[35];;
17459                                                         /*^compute*/
17460                                                         /*_._IFELSE___V54*/
17461                                                         meltfptr[41] = /*_.PROGN___V56*/ meltfptr[31];;
17462                                                         /*epilog*/
17463
17464                                                         MELT_LOCATION("warmelt-outobj.melt:4191:/ clear");
17465                                                         /*clear*/ /*_#GET_INT__L39*/
17466                                                         meltfnum[25] = 0 ;
17467                                                         /*^clear*/
17468                                                         /*clear*/ /*_.OUTPUT_C_CODE__V55*/
17469                                                         meltfptr[35] = 0 ;
17470                                                         /*^clear*/
17471                                                         /*clear*/ /*_.PROGN___V56*/
17472                                                         meltfptr[31] = 0 ;
17473                                                     }
17474                                                     ;
17475                                                 }
17476                                             else    /*^cond.else*/
17477                                                 {
17478
17479                                                     /*^block*/
17480                                                     /*anyblock*/
17481                                                     {
17482
17483                                                         MELT_LOCATION("warmelt-outobj.melt:4196:/ getslot");
17484                                                         {
17485                                                             melt_ptr_t slot=NULL, obj=NULL;
17486                                                             obj = (melt_ptr_t)(/*_.CURESTYP__V48*/ meltfptr[30]) /*=obj*/;
17487                                                             melt_object_get_field(slot,obj, 8, "CTYPE_RESFIELD");
17488                                                             /*_.CTYPE_RESFIELD__V57*/
17489                                                             meltfptr[35] = slot;
17490                                                         };
17491                                                         ;
17492
17493                                                         {
17494                                                             /*^locexp*/
17495                                                             /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]),
17496                                                                                                   melt_string_str((melt_ptr_t)(/*_.CTYPE_RESFIELD__V57*/ meltfptr[35])));
17497                                                         }
17498                                                         ;
17499
17500                                                         {
17501                                                             MELT_LOCATION("warmelt-outobj.melt:4197:/ locexp");
17502                                                             /*add2sbuf_strconst*/
17503                                                             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( " =  & "));
17504                                                         }
17505                                                         ;
17506                                                         /*_#GET_INT__L40*/
17507                                                         meltfnum[25] =
17508                                                             (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V16*/ meltfptr[15])));;
17509
17510                                                         MELT_CHECK_SIGNAL();
17511                                                         ;
17512                                                         MELT_LOCATION("warmelt-outobj.melt:4198:/ msend");
17513                                                         /*msend*/
17514                                                         {
17515                                                             union meltparam_un argtab[3];
17516                                                             memset(&argtab, 0, sizeof(argtab));
17517                                                             /*^ojbmsend.arg*/
17518                                                             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2];
17519                                                             /*^ojbmsend.arg*/
17520                                                             argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
17521                                                             /*^ojbmsend.arg*/
17522                                                             argtab[2].meltbp_long = /*_#GET_INT__L40*/ meltfnum[25];
17523                                                             /*_.OUTPUT_C_CODE__V58*/
17524                                                             meltfptr[31] = meltgc_send((melt_ptr_t)(/*_.CURES__V47*/ meltfptr[27]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[9])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
17525                                                         }
17526                                                         ;
17527                                                         MELT_LOCATION("warmelt-outobj.melt:4195:/ quasiblock");
17528
17529
17530                                                         /*_.PROGN___V59*/
17531                                                         meltfptr[58] = /*_.OUTPUT_C_CODE__V58*/ meltfptr[31];;
17532                                                         /*^compute*/
17533                                                         /*_._IFELSE___V54*/
17534                                                         meltfptr[41] = /*_.PROGN___V59*/ meltfptr[58];;
17535                                                         /*epilog*/
17536
17537                                                         MELT_LOCATION("warmelt-outobj.melt:4191:/ clear");
17538                                                         /*clear*/ /*_.CTYPE_RESFIELD__V57*/
17539                                                         meltfptr[35] = 0 ;
17540                                                         /*^clear*/
17541                                                         /*clear*/ /*_#GET_INT__L40*/
17542                                                         meltfnum[25] = 0 ;
17543                                                         /*^clear*/
17544                                                         /*clear*/ /*_.OUTPUT_C_CODE__V58*/
17545                                                         meltfptr[31] = 0 ;
17546                                                         /*^clear*/
17547                                                         /*clear*/ /*_.PROGN___V59*/
17548                                                         meltfptr[58] = 0 ;
17549                                                     }
17550                                                     ;
17551                                                 }
17552                                             ;
17553                                             /*_._IFELSE___V53*/
17554                                             meltfptr[38] = /*_._IFELSE___V54*/ meltfptr[41];;
17555                                             /*epilog*/
17556
17557                                             MELT_LOCATION("warmelt-outobj.melt:4189:/ clear");
17558                                             /*clear*/ /*_#eqeq__L38*/
17559                                             meltfnum[23] = 0 ;
17560                                             /*^clear*/
17561                                             /*clear*/ /*_._IFELSE___V54*/
17562                                             meltfptr[41] = 0 ;
17563                                         }
17564                                         ;
17565                                     }
17566                                 ;
17567
17568                                 {
17569                                     MELT_LOCATION("warmelt-outobj.melt:4200:/ locexp");
17570                                     /*add2sbuf_strconst*/
17571                                     meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( ";"));
17572                                 }
17573                                 ;
17574                                 /*_#GET_INT__L41*/
17575                                 meltfnum[25] =
17576                                     (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V16*/ meltfptr[15])));;
17577
17578                                 {
17579                                     MELT_LOCATION("warmelt-outobj.melt:4201:/ locexp");
17580                                     meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#GET_INT__L41*/ meltfnum[25]), 0);
17581                                 }
17582                                 ;
17583
17584                                 MELT_LOCATION("warmelt-outobj.melt:4182:/ clear");
17585                                 /*clear*/ /*_.CURESTYP__V48*/
17586                                 meltfptr[30] = 0 ;
17587                                 /*^clear*/
17588                                 /*clear*/ /*_.IFCPP___V49*/
17589                                 meltfptr[32] = 0 ;
17590                                 /*^clear*/
17591                                 /*clear*/ /*_#GET_INT__L36*/
17592                                 meltfnum[21] = 0 ;
17593                                 /*^clear*/
17594                                 /*clear*/ /*_.OUTPUT_LOCATION__V52*/
17595                                 meltfptr[36] = 0 ;
17596                                 /*^clear*/
17597                                 /*clear*/ /*_#NULL__L37*/
17598                                 meltfnum[18] = 0 ;
17599                                 /*^clear*/
17600                                 /*clear*/ /*_._IFELSE___V53*/
17601                                 meltfptr[38] = 0 ;
17602                                 /*^clear*/
17603                                 /*clear*/ /*_#GET_INT__L41*/
17604                                 meltfnum[25] = 0 ;
17605                                 if (/*_#CURANK__L34*/ meltfnum[26]<0) break;
17606                             } /* end  foreach_in_multiple meltcit3__EACHTUP */
17607
17608                         /*citerepilog*/
17609
17610                         MELT_LOCATION("warmelt-outobj.melt:4179:/ clear");
17611                         /*clear*/ /*_.CURES__V47*/
17612                         meltfptr[27] = 0 ;
17613                         /*^clear*/
17614                         /*clear*/ /*_#CURANK__L34*/
17615                         meltfnum[26] = 0 ;
17616                     } /*endciterblock FOREACH_IN_MULTIPLE*/
17617                     ;
17618                     MELT_LOCATION("warmelt-outobj.melt:4178:/ quasiblock");
17619
17620
17621                     /*epilog*/
17622                 }
17623                 ;
17624             } /*noelse*/
17625         ;
17626         /*_#GET_INT__L42*/
17627         meltfnum[23] =
17628             (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V16*/ meltfptr[15])));;
17629
17630         MELT_CHECK_SIGNAL();
17631         ;
17632         MELT_LOCATION("warmelt-outobj.melt:4204:/ apply");
17633         /*apply*/
17634         {
17635             union meltparam_un argtab[3];
17636             memset(&argtab, 0, sizeof(argtab));
17637             /*^apply.arg*/
17638             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
17639             /*^apply.arg*/
17640             argtab[1].meltbp_long = /*_#GET_INT__L42*/ meltfnum[23];
17641             /*^apply.arg*/
17642             argtab[2].meltbp_cstring =  "multiapply.appl";
17643             /*_.OUTPUT_LOCATION__V60*/
17644             meltfptr[35] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.ALOC__V9*/ meltfptr[5]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
17645         }
17646         ;
17647         /*citerblock FOREACH_PAIR_COMPONENT_IN_LIST*/
17648         {
17649             /* start foreach_pair_component_in_list meltcit4__EACHLIST */
17650             for (/*_.CURPAIR__V61*/ meltfptr[31] = melt_list_first( (melt_ptr_t)/*_.ADEST__V10*/ meltfptr[9]);
17651                                     melt_magic_discr((melt_ptr_t) /*_.CURPAIR__V61*/ meltfptr[31]) == MELTOBMAG_PAIR;
17652                                     /*_.CURPAIR__V61*/ meltfptr[31] = melt_pair_tail((melt_ptr_t) /*_.CURPAIR__V61*/ meltfptr[31]))
17653                 {
17654                     /*_.CURDEST__V62*/ meltfptr[58] = melt_pair_head((melt_ptr_t) /*_.CURPAIR__V61*/ meltfptr[31]);
17655
17656
17657                     /*_#GET_INT__L43*/
17658                     meltfnum[21] =
17659                         (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V16*/ meltfptr[15])));;
17660
17661                     MELT_CHECK_SIGNAL();
17662                     ;
17663                     MELT_LOCATION("warmelt-outobj.melt:4209:/ msend");
17664                     /*msend*/
17665                     {
17666                         union meltparam_un argtab[3];
17667                         memset(&argtab, 0, sizeof(argtab));
17668                         /*^ojbmsend.arg*/
17669                         argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2];
17670                         /*^ojbmsend.arg*/
17671                         argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
17672                         /*^ojbmsend.arg*/
17673                         argtab[2].meltbp_long = /*_#GET_INT__L43*/ meltfnum[21];
17674                         /*_.OUTPUT_C_CODE__V63*/
17675                         meltfptr[41] = meltgc_send((melt_ptr_t)(/*_.CURDEST__V62*/ meltfptr[58]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[9])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
17676                     }
17677                     ;
17678
17679                     {
17680                         MELT_LOCATION("warmelt-outobj.melt:4210:/ locexp");
17681                         /*add2sbuf_strconst*/
17682                         meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( " = "));
17683                     }
17684                     ;
17685                 } /* end foreach_pair_component_in_list meltcit4__EACHLIST */
17686             /*_.CURPAIR__V61*/ meltfptr[31] = NULL;
17687             /*_.CURDEST__V62*/
17688             meltfptr[58] = NULL;
17689
17690
17691             /*citerepilog*/
17692
17693             MELT_LOCATION("warmelt-outobj.melt:4206:/ clear");
17694             /*clear*/ /*_.CURPAIR__V61*/
17695             meltfptr[31] = 0 ;
17696             /*^clear*/
17697             /*clear*/ /*_.CURDEST__V62*/
17698             meltfptr[58] = 0 ;
17699             /*^clear*/
17700             /*clear*/ /*_#GET_INT__L43*/
17701             meltfnum[21] = 0 ;
17702             /*^clear*/
17703             /*clear*/ /*_.OUTPUT_C_CODE__V63*/
17704             meltfptr[41] = 0 ;
17705         } /*endciterblock FOREACH_PAIR_COMPONENT_IN_LIST*/
17706         ;
17707
17708         {
17709             MELT_LOCATION("warmelt-outobj.melt:4212:/ locexp");
17710             /*add2sbuf_strconst*/
17711             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( " melt_apply ((meltclosure_ptr_t)("));
17712         }
17713         ;
17714         /*_#plI__L44*/
17715         meltfnum[18] =
17716             ((1) + (/*_#DEPTH__L1*/ meltfnum[0]));;
17717
17718         MELT_CHECK_SIGNAL();
17719         ;
17720         MELT_LOCATION("warmelt-outobj.melt:4213:/ msend");
17721         /*msend*/
17722         {
17723             union meltparam_un argtab[3];
17724             memset(&argtab, 0, sizeof(argtab));
17725             /*^ojbmsend.arg*/
17726             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2];
17727             /*^ojbmsend.arg*/
17728             argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
17729             /*^ojbmsend.arg*/
17730             argtab[2].meltbp_long = /*_#plI__L44*/ meltfnum[18];
17731             /*_.OUTPUT_C_CODE__V64*/
17732             meltfptr[30] = meltgc_send((melt_ptr_t)(/*_.OCLOS__V11*/ meltfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[9])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
17733         }
17734         ;
17735
17736         {
17737             MELT_LOCATION("warmelt-outobj.melt:4214:/ locexp");
17738             /*add2sbuf_strconst*/
17739             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "), (melt_ptr_t)("));
17740         }
17741         ;
17742         MELT_LOCATION("warmelt-outobj.melt:4216:/ quasiblock");
17743
17744
17745         /*_.FIRSTARG__V66*/
17746         meltfptr[36] =
17747             (melt_multiple_nth((melt_ptr_t)(/*_.OARGS__V12*/ meltfptr[11]), (0)));;
17748         /*^compute*/
17749         /*_#plI__L45*/
17750         meltfnum[25] =
17751             ((1) + (/*_#DEPTH__L1*/ meltfnum[0]));;
17752
17753         MELT_CHECK_SIGNAL();
17754         ;
17755         MELT_LOCATION("warmelt-outobj.melt:4217:/ msend");
17756         /*msend*/
17757         {
17758             union meltparam_un argtab[3];
17759             memset(&argtab, 0, sizeof(argtab));
17760             /*^ojbmsend.arg*/
17761             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2];
17762             /*^ojbmsend.arg*/
17763             argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
17764             /*^ojbmsend.arg*/
17765             argtab[2].meltbp_long = /*_#plI__L45*/ meltfnum[25];
17766             /*_.OUTPUT_C_CODE__V67*/
17767             meltfptr[38] = meltgc_send((melt_ptr_t)(/*_.FIRSTARG__V66*/ meltfptr[36]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[9])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
17768         }
17769         ;
17770         /*_.LET___V65*/
17771         meltfptr[32] = /*_.OUTPUT_C_CODE__V67*/ meltfptr[38];;
17772
17773         MELT_LOCATION("warmelt-outobj.melt:4216:/ clear");
17774         /*clear*/ /*_.FIRSTARG__V66*/
17775         meltfptr[36] = 0 ;
17776         /*^clear*/
17777         /*clear*/ /*_#plI__L45*/
17778         meltfnum[25] = 0 ;
17779         /*^clear*/
17780         /*clear*/ /*_.OUTPUT_C_CODE__V67*/
17781         meltfptr[38] = 0 ;
17782
17783         {
17784             MELT_LOCATION("warmelt-outobj.melt:4219:/ locexp");
17785             /*add2sbuf_strconst*/
17786             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "), ("));
17787         }
17788         ;
17789         MELT_LOCATION("warmelt-outobj.melt:4223:/ quasiblock");
17790
17791
17792         /*^newclosure*/
17793         /*newclosure*/ /*_.LAMBDA___V69*/
17794         meltfptr[38] =
17795             (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_13*/ meltfrout->tabval[13])), (1));
17796         ;
17797         /*^putclosedv*/
17798         /*putclosv*/
17799         melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V69*/ meltfptr[38])) == MELTOBMAG_CLOSURE);
17800         melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V69*/ meltfptr[38])));
17801         ((meltclosure_ptr_t)/*_.LAMBDA___V69*/ meltfptr[38])->tabval[0] = (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]);
17802         ;
17803         /*_.LAMBDA___V68*/
17804         meltfptr[36] = /*_.LAMBDA___V69*/ meltfptr[38];;
17805
17806         MELT_CHECK_SIGNAL();
17807         ;
17808         MELT_LOCATION("warmelt-outobj.melt:4221:/ apply");
17809         /*apply*/
17810         {
17811             union meltparam_un argtab[1];
17812             memset(&argtab, 0, sizeof(argtab));
17813             /*^apply.arg*/
17814             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V68*/ meltfptr[36];
17815             /*_.LIST_EVERY__V70*/
17816             meltfptr[69] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ meltfrout->tabval[12])), (melt_ptr_t)(/*_.PARAMDESCLIST__V14*/ meltfptr[13]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
17817         }
17818         ;
17819
17820         {
17821             MELT_LOCATION("warmelt-outobj.melt:4226:/ locexp");
17822             /*add2sbuf_strconst*/
17823             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "\"\"), "));
17824         }
17825         ;
17826
17827         MELT_CHECK_SIGNAL();
17828         ;
17829         /*_#gtI__L46*/
17830         meltfnum[25] =
17831             ((/*_#NBARG__L3*/ meltfnum[1]) > (1));;
17832         MELT_LOCATION("warmelt-outobj.melt:4228:/ cond");
17833         /*cond*/
17834         if (/*_#gtI__L46*/ meltfnum[25]) /*then*/
17835             {
17836                 /*^cond.then*/
17837                 /*^block*/
17838                 /*anyblock*/
17839                 {
17840
17841
17842                     {
17843                         MELT_LOCATION("warmelt-outobj.melt:4229:/ locexp");
17844                         /*add2sbuf_strconst*/
17845                         meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "argtab, ("));
17846                     }
17847                     ;
17848                     /*epilog*/
17849                 }
17850                 ;
17851             }
17852         else
17853             {
17854                 MELT_LOCATION("warmelt-outobj.melt:4228:/ cond.else");
17855
17856                 /*^block*/
17857                 /*anyblock*/
17858                 {
17859
17860
17861                     {
17862                         MELT_LOCATION("warmelt-outobj.melt:4230:/ locexp");
17863                         /*add2sbuf_strconst*/
17864                         meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "(union meltparam_un*)0, ("));
17865                     }
17866                     ;
17867                     /*epilog*/
17868                 }
17869                 ;
17870             }
17871         ;
17872         /*citerblock FOREACH_PAIR_COMPONENT_IN_LIST*/
17873         {
17874             /* start foreach_pair_component_in_list meltcit5__EACHLIST */
17875             for (/*_.CURPAIR__V71*/ meltfptr[70] = melt_list_first( (melt_ptr_t)/*_.RESDESCLIST__V15*/ meltfptr[14]);
17876                                     melt_magic_discr((melt_ptr_t) /*_.CURPAIR__V71*/ meltfptr[70]) == MELTOBMAG_PAIR;
17877                                     /*_.CURPAIR__V71*/ meltfptr[70] = melt_pair_tail((melt_ptr_t) /*_.CURPAIR__V71*/ meltfptr[70]))
17878                 {
17879                     /*_.RESD__V72*/ meltfptr[71] = melt_pair_head((melt_ptr_t) /*_.CURPAIR__V71*/ meltfptr[70]);
17880
17881
17882
17883                     {
17884                         MELT_LOCATION("warmelt-outobj.melt:4235:/ locexp");
17885                         /*add2sbuf_string*/
17886                         meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]),
17887                                           melt_string_str((melt_ptr_t)(/*_.RESD__V72*/ meltfptr[71])));
17888                     }
17889                     ;
17890
17891                     {
17892                         MELT_LOCATION("warmelt-outobj.melt:4236:/ locexp");
17893                         /*add2sbuf_strconst*/
17894                         meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( " "));
17895                     }
17896                     ;
17897                 } /* end foreach_pair_component_in_list meltcit5__EACHLIST */
17898             /*_.CURPAIR__V71*/ meltfptr[70] = NULL;
17899             /*_.RESD__V72*/
17900             meltfptr[71] = NULL;
17901
17902
17903             /*citerepilog*/
17904
17905             MELT_LOCATION("warmelt-outobj.melt:4232:/ clear");
17906             /*clear*/ /*_.CURPAIR__V71*/
17907             meltfptr[70] = 0 ;
17908             /*^clear*/
17909             /*clear*/ /*_.RESD__V72*/
17910             meltfptr[71] = 0 ;
17911         } /*endciterblock FOREACH_PAIR_COMPONENT_IN_LIST*/
17912         ;
17913
17914         {
17915             MELT_LOCATION("warmelt-outobj.melt:4237:/ locexp");
17916             /*add2sbuf_strconst*/
17917             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "\"\"), "));
17918         }
17919         ;
17920
17921         MELT_CHECK_SIGNAL();
17922         ;
17923         /*_#gtI__L47*/
17924         meltfnum[46] =
17925             ((/*_#NBXRES__L4*/ meltfnum[3]) > (0));;
17926         MELT_LOCATION("warmelt-outobj.melt:4239:/ cond");
17927         /*cond*/
17928         if (/*_#gtI__L47*/ meltfnum[46]) /*then*/
17929             {
17930                 /*^cond.then*/
17931                 /*^block*/
17932                 /*anyblock*/
17933                 {
17934
17935
17936                     {
17937                         MELT_LOCATION("warmelt-outobj.melt:4240:/ locexp");
17938                         /*add2sbuf_strconst*/
17939                         meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "restab"));
17940                     }
17941                     ;
17942                     /*epilog*/
17943                 }
17944                 ;
17945             }
17946         else
17947             {
17948                 MELT_LOCATION("warmelt-outobj.melt:4239:/ cond.else");
17949
17950                 /*^block*/
17951                 /*anyblock*/
17952                 {
17953
17954
17955                     {
17956                         MELT_LOCATION("warmelt-outobj.melt:4241:/ locexp");
17957                         /*add2sbuf_strconst*/
17958                         meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "(union meltparam_un*)0"));
17959                     }
17960                     ;
17961                     /*epilog*/
17962                 }
17963                 ;
17964             }
17965         ;
17966
17967         {
17968             MELT_LOCATION("warmelt-outobj.melt:4242:/ locexp");
17969             /*add2sbuf_strconst*/
17970             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( ");"));
17971         }
17972         ;
17973         /*_#plI__L48*/
17974         meltfnum[47] =
17975             ((1) + (/*_#DEPTH__L1*/ meltfnum[0]));;
17976
17977         {
17978             MELT_LOCATION("warmelt-outobj.melt:4243:/ locexp");
17979             meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#plI__L48*/ meltfnum[47]), 0);
17980         }
17981         ;
17982
17983         {
17984             MELT_LOCATION("warmelt-outobj.melt:4244:/ locexp");
17985             /*add2sbuf_strconst*/
17986             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "}"));
17987         }
17988         ;
17989
17990         {
17991             MELT_LOCATION("warmelt-outobj.melt:4245:/ locexp");
17992             meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#DEPTH__L1*/ meltfnum[0]), 0);
17993         }
17994         ;
17995
17996 #if MELT_HAVE_DEBUG
17997         MELT_LOCATION("warmelt-outobj.melt:4246:/ cppif.then");
17998         /*^block*/
17999         /*anyblock*/
18000         {
18001
18002
18003             MELT_CHECK_SIGNAL();
18004             ;
18005             /*_#STRBUF_USEDLENGTH__L49*/
18006             meltfnum[48] =
18007                 melt_strbuf_usedlength((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]));;
18008             MELT_LOCATION("warmelt-outobj.melt:4247:/ cond");
18009             /*cond*/
18010             if (
18011                 /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[10])),
18012                                               (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[11])))
18013             ) /*then*/
18014                 {
18015                     /*^cond.then*/
18016                     /*^getslot*/
18017                     {
18018                         melt_ptr_t slot=NULL, obj=NULL;
18019                         obj = (melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[10])) /*=obj*/;
18020                         melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE");
18021                         /*_.REFERENCED_VALUE__V74*/
18022                         meltfptr[73] = slot;
18023                     };
18024                     ;
18025                 }
18026             else    /*^cond.else*/
18027                 {
18028
18029                     /*_.REFERENCED_VALUE__V74*/ meltfptr[73] =  /*reallynil*/ NULL ;;
18030                 }
18031             ;
18032             /*^compute*/
18033             /*_#GET_INT__L50*/
18034             meltfnum[49] =
18035                 (melt_get_int((melt_ptr_t)(/*_.REFERENCED_VALUE__V74*/ meltfptr[73])));;
18036             /*^compute*/
18037             /*_#ltI__L51*/
18038             meltfnum[50] =
18039                 ((/*_#STRBUF_USEDLENGTH__L49*/ meltfnum[48]) < (/*_#GET_INT__L50*/ meltfnum[49]));;
18040             MELT_LOCATION("warmelt-outobj.melt:4246:/ cond");
18041             /*cond*/
18042             if (/*_#ltI__L51*/ meltfnum[50]) /*then*/
18043                 {
18044                     /*^cond.then*/
18045                     /*_._IFELSE___V75*/ meltfptr[74] = (/*nil*/NULL);;
18046                 }
18047             else
18048                 {
18049                     MELT_LOCATION("warmelt-outobj.melt:4246:/ cond.else");
18050
18051                     /*^block*/
18052                     /*anyblock*/
18053                     {
18054
18055
18056                         MELT_CHECK_SIGNAL();
18057                         ;
18058                         /*^apply*/
18059                         /*apply*/
18060                         {
18061                             union meltparam_un argtab[4];
18062                             memset(&argtab, 0, sizeof(argtab));
18063                             /*^apply.arg*/
18064                             argtab[0].meltbp_cstring =  "check limited implbuf";
18065                             /*^apply.arg*/
18066                             argtab[1].meltbp_cstring =  "warmelt-outobj.melt";
18067                             /*^apply.arg*/
18068                             argtab[2].meltbp_long = 4246;
18069                             /*^apply.arg*/
18070                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
18071                             /*_.MELT_ASSERT_FAILURE_FUN__V76*/
18072                             meltfptr[75] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
18073                         }
18074                         ;
18075                         /*_._IFELSE___V75*/
18076                         meltfptr[74] = /*_.MELT_ASSERT_FAILURE_FUN__V76*/ meltfptr[75];;
18077                         /*epilog*/
18078
18079                         MELT_LOCATION("warmelt-outobj.melt:4246:/ clear");
18080                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V76*/
18081                         meltfptr[75] = 0 ;
18082                     }
18083                     ;
18084                 }
18085             ;
18086             /*_.IFCPP___V73*/
18087             meltfptr[72] = /*_._IFELSE___V75*/ meltfptr[74];;
18088             /*epilog*/
18089
18090             MELT_LOCATION("warmelt-outobj.melt:4246:/ clear");
18091             /*clear*/ /*_#STRBUF_USEDLENGTH__L49*/
18092             meltfnum[48] = 0 ;
18093             /*^clear*/
18094             /*clear*/ /*_.REFERENCED_VALUE__V74*/
18095             meltfptr[73] = 0 ;
18096             /*^clear*/
18097             /*clear*/ /*_#GET_INT__L50*/
18098             meltfnum[49] = 0 ;
18099             /*^clear*/
18100             /*clear*/ /*_#ltI__L51*/
18101             meltfnum[50] = 0 ;
18102             /*^clear*/
18103             /*clear*/ /*_._IFELSE___V75*/
18104             meltfptr[74] = 0 ;
18105         }
18106
18107 #else /*MELT_HAVE_DEBUG*/
18108         /*^cppif.else*/
18109         /*_.IFCPP___V73*/ meltfptr[72] = (/*nil*/NULL);
18110 #endif /*MELT_HAVE_DEBUG*/
18111         ;
18112         /*^compute*/
18113         /*_.LET___V8*/
18114         meltfptr[6] = /*_.IFCPP___V73*/ meltfptr[72];;
18115
18116         MELT_LOCATION("warmelt-outobj.melt:4098:/ clear");
18117         /*clear*/ /*_.ALOC__V9*/
18118         meltfptr[5] = 0 ;
18119         /*^clear*/
18120         /*clear*/ /*_.ADEST__V10*/
18121         meltfptr[9] = 0 ;
18122         /*^clear*/
18123         /*clear*/ /*_.OCLOS__V11*/
18124         meltfptr[10] = 0 ;
18125         /*^clear*/
18126         /*clear*/ /*_.OARGS__V12*/
18127         meltfptr[11] = 0 ;
18128         /*^clear*/
18129         /*clear*/ /*_.OXRES__V13*/
18130         meltfptr[12] = 0 ;
18131         /*^clear*/
18132         /*clear*/ /*_#NBARG__L3*/
18133         meltfnum[1] = 0 ;
18134         /*^clear*/
18135         /*clear*/ /*_#NBXRES__L4*/
18136         meltfnum[3] = 0 ;
18137         /*^clear*/
18138         /*clear*/ /*_.PARAMDESCLIST__V14*/
18139         meltfptr[13] = 0 ;
18140         /*^clear*/
18141         /*clear*/ /*_.RESDESCLIST__V15*/
18142         meltfptr[14] = 0 ;
18143         /*^clear*/
18144         /*clear*/ /*_#plI__L5*/
18145         meltfnum[4] = 0 ;
18146         /*^clear*/
18147         /*clear*/ /*_.BOXDEPTHP1__V16*/
18148         meltfptr[15] = 0 ;
18149         /*^clear*/
18150         /*clear*/ /*_.IFCPP___V17*/
18151         meltfptr[16] = 0 ;
18152         /*^clear*/
18153         /*clear*/ /*_.IFCPP___V20*/
18154         meltfptr[18] = 0 ;
18155         /*^clear*/
18156         /*clear*/ /*_.OUTPUT_LOCATION__V23*/
18157         meltfptr[21] = 0 ;
18158         /*^clear*/
18159         /*clear*/ /*_._IF___V24*/
18160         meltfptr[17] = 0 ;
18161         /*^clear*/
18162         /*clear*/ /*_#plI__L8*/
18163         meltfnum[5] = 0 ;
18164         /*^clear*/
18165         /*clear*/ /*_#gtI__L9*/
18166         meltfnum[8] = 0 ;
18167         /*^clear*/
18168         /*clear*/ /*_#gtI__L12*/
18169         meltfnum[9] = 0 ;
18170         /*^clear*/
18171         /*clear*/ /*_#gtI__L15*/
18172         meltfnum[10] = 0 ;
18173         /*^clear*/
18174         /*clear*/ /*_#gtI__L18*/
18175         meltfnum[13] = 0 ;
18176         /*^clear*/
18177         /*clear*/ /*_#gtI__L33*/
18178         meltfnum[24] = 0 ;
18179         /*^clear*/
18180         /*clear*/ /*_#GET_INT__L42*/
18181         meltfnum[23] = 0 ;
18182         /*^clear*/
18183         /*clear*/ /*_.OUTPUT_LOCATION__V60*/
18184         meltfptr[35] = 0 ;
18185         /*^clear*/
18186         /*clear*/ /*_#plI__L44*/
18187         meltfnum[18] = 0 ;
18188         /*^clear*/
18189         /*clear*/ /*_.OUTPUT_C_CODE__V64*/
18190         meltfptr[30] = 0 ;
18191         /*^clear*/
18192         /*clear*/ /*_.LET___V65*/
18193         meltfptr[32] = 0 ;
18194         /*^clear*/
18195         /*clear*/ /*_.LAMBDA___V68*/
18196         meltfptr[36] = 0 ;
18197         /*^clear*/
18198         /*clear*/ /*_.LIST_EVERY__V70*/
18199         meltfptr[69] = 0 ;
18200         /*^clear*/
18201         /*clear*/ /*_#gtI__L46*/
18202         meltfnum[25] = 0 ;
18203         /*^clear*/
18204         /*clear*/ /*_#gtI__L47*/
18205         meltfnum[46] = 0 ;
18206         /*^clear*/
18207         /*clear*/ /*_#plI__L48*/
18208         meltfnum[47] = 0 ;
18209         /*^clear*/
18210         /*clear*/ /*_.IFCPP___V73*/
18211         meltfptr[72] = 0 ;
18212
18213         MELT_CHECK_SIGNAL();
18214         ;
18215         MELT_LOCATION("warmelt-outobj.melt:4096:/ quasiblock");
18216
18217
18218         /*_._RETVAL___V1*/
18219         meltfptr[0] = /*_.LET___V8*/ meltfptr[6];;
18220
18221         {
18222             MELT_LOCATION("warmelt-outobj.melt:4096:/ locexp");
18223             /*ochecknores compilobj_nrep_return*/
18224 #if MELT_HAVE_DEBUG
18225             if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
18226                 melt_warn_for_no_expected_secondary_results();
18227             /* we warned when secondary results are expected but not returned. */
18228 #endif /*MELT_HAVE_DEBUG*/
18229             ;
18230         }
18231         ;
18232         /*^finalreturn*/
18233         ;
18234         /*finalret*/
18235         goto meltlabend_rout ;
18236         /*epilog*/
18237
18238         /*^clear*/
18239         /*clear*/ /*_.IFCPP___V5*/
18240         meltfptr[4] = 0 ;
18241         /*^clear*/
18242         /*clear*/ /*_.LET___V8*/
18243         meltfptr[6] = 0 ;
18244     }
18245
18246     ;
18247     goto meltlabend_rout;
18248 meltlabend_rout:
18249     melt_trace_end("OUTPUCOD_OBJMULTIAPPLY", meltcallcount);
18250     melt_blocklevel_signals = current_blocklevel_signals_meltrout_89_WARMELTmiOUTOBJ_OUTPUCOD_OBJMULTIAPPLY_melt;
18251     return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]);
18252 #undef meltcallcount
18253 #undef meltfram__
18254 #undef MELTFRAM_NBVARNUM
18255 #undef MELTFRAM_NBVARPTR
18256 } /*end meltrout_89_WARMELTmiOUTOBJ_OUTPUCOD_OBJMULTIAPPLY*/
18257
18258
18259
18260
18261
18262
18263 melt_ptr_t MELT_MODULE_VISIBILITY
18264 meltrout_90_WARMELTmiOUTOBJ_LAMBDA_cl5(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_,
18265                                        const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_)
18266 {
18267     long current_blocklevel_signals_meltrout_90_WARMELTmiOUTOBJ_LAMBDA_cl5_melt =  melt_blocklevel_signals;
18268
18269 #if MELT_HAVE_DEBUG
18270     static long melt_call_counter__;
18271     long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__;
18272 #undef meltcallcount
18273 #define meltcallcount melt_thiscallcounter__
18274 #else
18275 #undef meltcallcount
18276 #define meltcallcount 0L
18277 #endif
18278 //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538
18279
18280     /* start of frame for routine meltrout_90_WARMELTmiOUTOBJ_LAMBDA_cl5 fromline 1752 */
18281
18282     /** start of frame for meltrout_90_WARMELTmiOUTOBJ_LAMBDA_cl5 of CLASS_PROCROUTINEOBJ from 1555**/
18283
18284     /*curframdeclclassy*/ class MeltFrame_meltrout_90_WARMELTmiOUTOBJ_LAMBDA_cl5// fromline 1568
18285         : public Melt_CallFrameWithValues<2>
18286     {
18287     public: /* fromline 1572*/
18288 // no classy longs
18289         /*classy others*/
18290         long _meltsparel;
18291         void melt_mark_stuff (void)
18292         {
18293         } /*end melt_mark_stuff*/
18294         virtual void melt_mark_ggc_data (void)
18295         {
18296             melt_mark_values ();
18297             melt_mark_stuff ();
18298         }; /*end melt_mark_ggc_data*/
18299         MeltFrame_meltrout_90_WARMELTmiOUTOBJ_LAMBDA_cl5(meltclosure_ptr_t clos) //the closure constructor fromline 1630
18300             : Melt_CallFrameWithValues<2> (
18301 #if ENABLE_CHECKING /*fromline 1634*/
18302                 __FILE__, __LINE__,
18303 #endif /* ENABLE_CHECKING fromline 1638*/
18304                 sizeof(MeltFrame_meltrout_90_WARMELTmiOUTOBJ_LAMBDA_cl5), clos) {};
18305         MeltFrame_meltrout_90_WARMELTmiOUTOBJ_LAMBDA_cl5() //the constructor fromline 1642
18306             : Melt_CallFrameWithValues<2> (
18307 #if ENABLE_CHECKING /*fromline 1646*/
18308                 __FILE__, __LINE__,
18309 #endif /* ENABLE_CHECKING fromline 1650*/
18310                 sizeof(MeltFrame_meltrout_90_WARMELTmiOUTOBJ_LAMBDA_cl5)) {};
18311 #if ENABLE_CHECKING /*fromline 1654*/
18312         MeltFrame_meltrout_90_WARMELTmiOUTOBJ_LAMBDA_cl5(const char*fil, int lin) //the constructor fromline 1656
18313             : Melt_CallFrameWithValues<2> (fil,lin, sizeof(MeltFrame_meltrout_90_WARMELTmiOUTOBJ_LAMBDA_cl5)) {};
18314         MeltFrame_meltrout_90_WARMELTmiOUTOBJ_LAMBDA_cl5(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661
18315             : Melt_CallFrameWithValues<2> (fil,lin, sizeof(MeltFrame_meltrout_90_WARMELTmiOUTOBJ_LAMBDA_cl5), clos) {};
18316 #endif /* ENABLE_CHECKING fromline 1666*/
18317
18318     }; // end  class MeltFrame_meltrout_90_WARMELTmiOUTOBJ_LAMBDA_cl5
18319
18320
18321     /** end of frame for meltrout_90_WARMELTmiOUTOBJ_LAMBDA_cl5 fromline 1697**/
18322
18323     /* end of frame for routine meltrout_90_WARMELTmiOUTOBJ_LAMBDA_cl5 fromline 1756 */
18324
18325     /* classy proc frame meltrout_90_WARMELTmiOUTOBJ_LAMBDA_cl5 */
18326     MeltFrame_meltrout_90_WARMELTmiOUTOBJ_LAMBDA_cl5
18327     meltfram__ /*declfrastruct fromline 1780*/
18328     /*classyprocarg meltrout_90_WARMELTmiOUTOBJ_LAMBDA_cl5 fromline 1785*/
18329 #if ENABLE_CHECKING
18330     (__FILE__, __LINE__, meltclosp_) /* fromline 1789*/
18331 #else /*ENABLE_CHECKING */
18332     (meltclosp_) /* fromline 1793*/
18333 #endif /*ENABLE_CHECKING */
18334
18335     ;
18336 #define meltframe meltfram__
18337
18338     melt_trace_start("LAMBDA_cl5", meltcallcount);
18339     /*use arguments*/
18340     (void) meltclosp_;
18341     (void)meltfirstargp_;
18342     (void)meltxargdescr_;
18343     (void)meltxargtab_;
18344     (void)meltxresdescr_;
18345     (void)meltxrestab_;
18346     /*getargs*/
18347
18348     /*getarg#0*/
18349     MELT_LOCATION("warmelt-outobj.melt:4223:/ getarg");
18350     /*_.PARD__V2*/
18351     meltfptr[1] = (melt_ptr_t) meltfirstargp_;
18352     ;
18353     goto meltlab_endgetargs;
18354 meltlab_endgetargs:
18355     ;
18356     /*body*/
18357     /*^block*/
18358     /*anyblock*/
18359     {
18360
18361
18362         {
18363             MELT_LOCATION("warmelt-outobj.melt:4224:/ locexp");
18364             /*add2sbuf_string*/
18365             meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ meltfclos->tabval[0])),
18366                               melt_string_str((melt_ptr_t)(/*_.PARD__V2*/ meltfptr[1])));
18367         }
18368         ;
18369
18370         {
18371             MELT_LOCATION("warmelt-outobj.melt:4225:/ locexp");
18372             /*add2sbuf_strconst*/
18373             meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ meltfclos->tabval[0])), ( " "));
18374         }
18375         ;
18376
18377         MELT_CHECK_SIGNAL();
18378         ;
18379         /*epilog*/
18380     }
18381
18382     ;
18383     goto meltlabend_rout;
18384 meltlabend_rout:
18385     melt_trace_end("LAMBDA_cl5", meltcallcount);
18386     melt_blocklevel_signals = current_blocklevel_signals_meltrout_90_WARMELTmiOUTOBJ_LAMBDA_cl5_melt;
18387     return (melt_ptr_t)(/*noretval*/ NULL);
18388 #undef meltcallcount
18389 #undef meltfram__
18390 #undef MELTFRAM_NBVARNUM
18391 #undef MELTFRAM_NBVARPTR
18392 } /*end meltrout_90_WARMELTmiOUTOBJ_LAMBDA_cl5*/
18393
18394
18395
18396
18397
18398
18399 melt_ptr_t MELT_MODULE_VISIBILITY
18400 meltrout_91_WARMELTmiOUTOBJ_OUTPUCOD_OBJMULTIMSEND(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_,
18401         const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_)
18402 {
18403     long current_blocklevel_signals_meltrout_91_WARMELTmiOUTOBJ_OUTPUCOD_OBJMULTIMSEND_melt =  melt_blocklevel_signals;
18404
18405 #if MELT_HAVE_DEBUG
18406     static long melt_call_counter__;
18407     long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__;
18408 #undef meltcallcount
18409 #define meltcallcount melt_thiscallcounter__
18410 #else
18411 #undef meltcallcount
18412 #define meltcallcount 0L
18413 #endif
18414 //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538
18415
18416     /* start of frame for routine meltrout_91_WARMELTmiOUTOBJ_OUTPUCOD_OBJMULTIMSEND fromline 1752 */
18417
18418     /** start of frame for meltrout_91_WARMELTmiOUTOBJ_OUTPUCOD_OBJMULTIMSEND of CLASS_PROCROUTINEOBJ from 1555**/
18419
18420     /*curframdeclclassy*/ class MeltFrame_meltrout_91_WARMELTmiOUTOBJ_OUTPUCOD_OBJMULTIMSEND// fromline 1568
18421         : public Melt_CallFrameWithValues<68>
18422     {
18423     public: /* fromline 1572*/
18424         long mcfr_varnum[45];
18425         /*classy others*/
18426         long _meltsparel;
18427         void melt_mark_stuff (void)
18428         {
18429         } /*end melt_mark_stuff*/
18430         virtual void melt_mark_ggc_data (void)
18431         {
18432             melt_mark_values ();
18433             melt_mark_stuff ();
18434         }; /*end melt_mark_ggc_data*/
18435         MeltFrame_meltrout_91_WARMELTmiOUTOBJ_OUTPUCOD_OBJMULTIMSEND(meltclosure_ptr_t clos) //the closure constructor fromline 1630
18436             : Melt_CallFrameWithValues<68> (
18437 #if ENABLE_CHECKING /*fromline 1634*/
18438                 __FILE__, __LINE__,
18439 #endif /* ENABLE_CHECKING fromline 1638*/
18440                 sizeof(MeltFrame_meltrout_91_WARMELTmiOUTOBJ_OUTPUCOD_OBJMULTIMSEND), clos) {};
18441         MeltFrame_meltrout_91_WARMELTmiOUTOBJ_OUTPUCOD_OBJMULTIMSEND() //the constructor fromline 1642
18442             : Melt_CallFrameWithValues<68> (
18443 #if ENABLE_CHECKING /*fromline 1646*/
18444                 __FILE__, __LINE__,
18445 #endif /* ENABLE_CHECKING fromline 1650*/
18446                 sizeof(MeltFrame_meltrout_91_WARMELTmiOUTOBJ_OUTPUCOD_OBJMULTIMSEND)) {};
18447 #if ENABLE_CHECKING /*fromline 1654*/
18448         MeltFrame_meltrout_91_WARMELTmiOUTOBJ_OUTPUCOD_OBJMULTIMSEND(const char*fil, int lin) //the constructor fromline 1656
18449             : Melt_CallFrameWithValues<68> (fil,lin, sizeof(MeltFrame_meltrout_91_WARMELTmiOUTOBJ_OUTPUCOD_OBJMULTIMSEND)) {};
18450         MeltFrame_meltrout_91_WARMELTmiOUTOBJ_OUTPUCOD_OBJMULTIMSEND(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661
18451             : Melt_CallFrameWithValues<68> (fil,lin, sizeof(MeltFrame_meltrout_91_WARMELTmiOUTOBJ_OUTPUCOD_OBJMULTIMSEND), clos) {};
18452 #endif /* ENABLE_CHECKING fromline 1666*/
18453
18454     }; // end  class MeltFrame_meltrout_91_WARMELTmiOUTOBJ_OUTPUCOD_OBJMULTIMSEND
18455
18456
18457     /** end of frame for meltrout_91_WARMELTmiOUTOBJ_OUTPUCOD_OBJMULTIMSEND fromline 1697**/
18458
18459     /* end of frame for routine meltrout_91_WARMELTmiOUTOBJ_OUTPUCOD_OBJMULTIMSEND fromline 1756 */
18460
18461     /* classy proc frame meltrout_91_WARMELTmiOUTOBJ_OUTPUCOD_OBJMULTIMSEND */
18462     MeltFrame_meltrout_91_WARMELTmiOUTOBJ_OUTPUCOD_OBJMULTIMSEND
18463     meltfram__ /*declfrastruct fromline 1780*/
18464     /*classyprocarg meltrout_91_WARMELTmiOUTOBJ_OUTPUCOD_OBJMULTIMSEND fromline 1785*/
18465 #if ENABLE_CHECKING
18466     (__FILE__, __LINE__, meltclosp_) /* fromline 1789*/
18467 #else /*ENABLE_CHECKING */
18468     (meltclosp_) /* fromline 1793*/
18469 #endif /*ENABLE_CHECKING */
18470
18471     ;
18472 #define meltframe meltfram__
18473
18474     melt_trace_start("OUTPUCOD_OBJMULTIMSEND", meltcallcount);
18475     /*use arguments*/
18476     (void) meltclosp_;
18477     (void)meltfirstargp_;
18478     (void)meltxargdescr_;
18479     (void)meltxargtab_;
18480     (void)meltxresdescr_;
18481     (void)meltxrestab_;
18482     /*getargs*/
18483
18484     /*getarg#0*/
18485     MELT_LOCATION("warmelt-outobj.melt:4256:/ getarg");
18486     /*_.OMSND__V2*/
18487     meltfptr[1] = (melt_ptr_t) meltfirstargp_;
18488
18489     /*getarg#1*/
18490     /*^getarg*/
18491     if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs;
18492     /*_.DECLBUF__V3*/
18493     meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
18494     gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2])) != NULL);
18495
18496
18497     /*getarg#2*/
18498     /*^getarg*/
18499     if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs;
18500     /*_.IMPLBUF__V4*/
18501     meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL;
18502     gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3])) != NULL);
18503
18504
18505     /*getarg#3*/
18506     /*^getarg*/
18507     if (meltxargdescr_[2] != MELTBPAR_LONG) goto meltlab_endgetargs;
18508     /*_#DEPTH__L1*/
18509     meltfnum[0] = meltxargtab_[2].meltbp_long;
18510     ;
18511     goto meltlab_endgetargs;
18512 meltlab_endgetargs:
18513     ;
18514     /*body*/
18515     /*^block*/
18516     /*anyblock*/
18517     {
18518
18519
18520 #if MELT_HAVE_DEBUG
18521         MELT_LOCATION("warmelt-outobj.melt:4257:/ cppif.then");
18522         /*^block*/
18523         /*anyblock*/
18524         {
18525
18526
18527             MELT_CHECK_SIGNAL();
18528             ;
18529             /*_#IS_A__L2*/
18530             meltfnum[1] =
18531                 melt_is_instance_of((melt_ptr_t)(/*_.OMSND__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_OBJMULTIMSEND*/ meltfrout->tabval[0])));;
18532             MELT_LOCATION("warmelt-outobj.melt:4257:/ cond");
18533             /*cond*/
18534             if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/
18535                 {
18536                     /*^cond.then*/
18537                     /*_._IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);;
18538                 }
18539             else
18540                 {
18541                     MELT_LOCATION("warmelt-outobj.melt:4257:/ cond.else");
18542
18543                     /*^block*/
18544                     /*anyblock*/
18545                     {
18546
18547
18548                         MELT_CHECK_SIGNAL();
18549                         ;
18550                         /*^apply*/
18551                         /*apply*/
18552                         {
18553                             union meltparam_un argtab[4];
18554                             memset(&argtab, 0, sizeof(argtab));
18555                             /*^apply.arg*/
18556                             argtab[0].meltbp_cstring =  "check omsnd";
18557                             /*^apply.arg*/
18558                             argtab[1].meltbp_cstring =  "warmelt-outobj.melt";
18559                             /*^apply.arg*/
18560                             argtab[2].meltbp_long = 4257;
18561                             /*^apply.arg*/
18562                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OMSND__V2*/ meltfptr[1];
18563                             /*_.MELT_ASSERT_FAILURE_FUN__V7*/
18564                             meltfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
18565                         }
18566                         ;
18567                         /*_._IFELSE___V6*/
18568                         meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6];;
18569                         /*epilog*/
18570
18571                         MELT_LOCATION("warmelt-outobj.melt:4257:/ clear");
18572                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V7*/
18573                         meltfptr[6] = 0 ;
18574                     }
18575                     ;
18576                 }
18577             ;
18578             /*_.IFCPP___V5*/
18579             meltfptr[4] = /*_._IFELSE___V6*/ meltfptr[5];;
18580             /*epilog*/
18581
18582             MELT_LOCATION("warmelt-outobj.melt:4257:/ clear");
18583             /*clear*/ /*_#IS_A__L2*/
18584             meltfnum[1] = 0 ;
18585             /*^clear*/
18586             /*clear*/ /*_._IFELSE___V6*/
18587             meltfptr[5] = 0 ;
18588         }
18589
18590 #else /*MELT_HAVE_DEBUG*/
18591         /*^cppif.else*/
18592         /*_.IFCPP___V5*/ meltfptr[4] = (/*nil*/NULL);
18593 #endif /*MELT_HAVE_DEBUG*/
18594         ;
18595         MELT_LOCATION("warmelt-outobj.melt:4258:/ quasiblock");
18596
18597
18598         /*^getslot*/
18599         {
18600             melt_ptr_t slot=NULL, obj=NULL;
18601             obj = (melt_ptr_t)(/*_.OMSND__V2*/ meltfptr[1]) /*=obj*/;
18602             melt_object_get_field(slot,obj, 0, "OBI_LOC");
18603             /*_.OLOC__V9*/
18604             meltfptr[5] = slot;
18605         };
18606         ;
18607         MELT_LOCATION("warmelt-outobj.melt:4259:/ getslot");
18608         {
18609             melt_ptr_t slot=NULL, obj=NULL;
18610             obj = (melt_ptr_t)(/*_.OMSND__V2*/ meltfptr[1]) /*=obj*/;
18611             melt_object_get_field(slot,obj, 1, "OBDI_DESTLIST");
18612             /*_.ODEST__V10*/
18613             meltfptr[9] = slot;
18614         };
18615         ;
18616         MELT_LOCATION("warmelt-outobj.melt:4260:/ getslot");
18617         {
18618             melt_ptr_t slot=NULL, obj=NULL;
18619             obj = (melt_ptr_t)(/*_.OMSND__V2*/ meltfptr[1]) /*=obj*/;
18620             melt_object_get_field(slot,obj, 2, "OBMSND_SEL");
18621             /*_.OSEL__V11*/
18622             meltfptr[10] = slot;
18623         };
18624         ;
18625         MELT_LOCATION("warmelt-outobj.melt:4261:/ getslot");
18626         {
18627             melt_ptr_t slot=NULL, obj=NULL;
18628             obj = (melt_ptr_t)(/*_.OMSND__V2*/ meltfptr[1]) /*=obj*/;
18629             melt_object_get_field(slot,obj, 3, "OBMSND_RECV");
18630             /*_.ORECV__V12*/
18631             meltfptr[11] = slot;
18632         };
18633         ;
18634         MELT_LOCATION("warmelt-outobj.melt:4262:/ getslot");
18635         {
18636             melt_ptr_t slot=NULL, obj=NULL;
18637             obj = (melt_ptr_t)(/*_.OMSND__V2*/ meltfptr[1]) /*=obj*/;
18638             melt_object_get_field(slot,obj, 4, "OBMSND_ARGS");
18639             /*_.OARGS__V13*/
18640             meltfptr[12] = slot;
18641         };
18642         ;
18643         MELT_LOCATION("warmelt-outobj.melt:4263:/ getslot");
18644         {
18645             melt_ptr_t slot=NULL, obj=NULL;
18646             obj = (melt_ptr_t)(/*_.OMSND__V2*/ meltfptr[1]) /*=obj*/;
18647             melt_object_get_field(slot,obj, 5, "OBMULTSND_XRES");
18648             /*_.OXRES__V14*/
18649             meltfptr[13] = slot;
18650         };
18651         ;
18652         /*_#NBARG__L3*/
18653         meltfnum[1] =
18654             (melt_multiple_length((melt_ptr_t)(/*_.OARGS__V13*/ meltfptr[12])));;
18655         /*^compute*/
18656         /*_#NBXRES__L4*/
18657         meltfnum[3] =
18658             (melt_multiple_length((melt_ptr_t)(/*_.OXRES__V14*/ meltfptr[13])));;
18659         /*^compute*/
18660         /*_.PARAMDESCLIST__V15*/
18661         meltfptr[14] =
18662             (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[2]))));;
18663         /*^compute*/
18664         /*_.RESDESCLIST__V16*/
18665         meltfptr[15] =
18666             (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[2]))));;
18667         /*^compute*/
18668         /*_#plI__L5*/
18669         meltfnum[4] =
18670             ((1) + (/*_#DEPTH__L1*/ meltfnum[0]));;
18671         /*^compute*/
18672         /*_.BOXDEPTHP1__V17*/
18673         meltfptr[16] =
18674             (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[3])), (/*_#plI__L5*/ meltfnum[4])));;
18675
18676         MELT_CHECK_SIGNAL();
18677         ;
18678         MELT_LOCATION("warmelt-outobj.melt:4270:/ apply");
18679         /*apply*/
18680         {
18681             union meltparam_un argtab[3];
18682             memset(&argtab, 0, sizeof(argtab));
18683             /*^apply.arg*/
18684             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
18685             /*^apply.arg*/
18686             argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0];
18687             /*^apply.arg*/
18688             argtab[2].meltbp_cstring =  "multimsend";
18689             /*_.OUTPUT_LOCATION__V18*/
18690             meltfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.OLOC__V9*/ meltfptr[5]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
18691         }
18692         ;
18693
18694         MELT_CHECK_SIGNAL();
18695         ;
18696         MELT_LOCATION("warmelt-outobj.melt:73:/ cond");
18697         /*cond*/
18698         if ( (melt_module_var_fetch (meltmodvarix_FLAGVAL_OUTPUT_DESCR_COMMENT_symb))) /*then*/
18699             {
18700                 /*^cond.then*/
18701                 /*^block*/
18702                 /*anyblock*/
18703                 {
18704
18705
18706                     MELT_CHECK_SIGNAL();
18707                     ;
18708                     /*^apply*/
18709                     /*apply*/
18710                     {
18711                         union meltparam_un argtab[1];
18712                         memset(&argtab, 0, sizeof(argtab));
18713                         /*^apply.arg*/
18714                         argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.OMSND__V2*/ meltfptr[1];
18715                         /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V20*/
18716                         meltfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!DO_OUTPUT_DESCRIPTIVE_COMMENT*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
18717                     }
18718                     ;
18719                     /*_._IF___V19*/
18720                     meltfptr[18] = /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V20*/ meltfptr[19];;
18721                     /*epilog*/
18722
18723                     MELT_LOCATION("warmelt-outobj.melt:73:/ clear");
18724                     /*clear*/ /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V20*/
18725                     meltfptr[19] = 0 ;
18726                 }
18727                 ;
18728             }
18729         else    /*^cond.else*/
18730             {
18731
18732                 /*_._IF___V19*/ meltfptr[18] =  /*reallynil*/ NULL ;;
18733             }
18734         ;
18735
18736         {
18737             MELT_LOCATION("warmelt-outobj.melt:4272:/ locexp");
18738             /*add2sbuf_strconst*/
18739             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "/*multimsend*/{"));
18740         }
18741         ;
18742         /*_#plI__L6*/
18743         meltfnum[5] =
18744             ((1) + (/*_#DEPTH__L1*/ meltfnum[0]));;
18745
18746         {
18747             MELT_LOCATION("warmelt-outobj.melt:4273:/ locexp");
18748             meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#plI__L6*/ meltfnum[5]), 0);
18749         }
18750         ;
18751
18752         MELT_CHECK_SIGNAL();
18753         ;
18754         /*_#gtI__L7*/
18755         meltfnum[6] =
18756             ((/*_#NBARG__L3*/ meltfnum[1]) > (0));;
18757         MELT_LOCATION("warmelt-outobj.melt:4274:/ cond");
18758         /*cond*/
18759         if (/*_#gtI__L7*/ meltfnum[6]) /*then*/
18760             {
18761                 /*^cond.then*/
18762                 /*^block*/
18763                 /*anyblock*/
18764                 {
18765
18766
18767                     {
18768                         MELT_LOCATION("warmelt-outobj.melt:4275:/ locexp");
18769                         /*add2sbuf_strconst*/
18770                         meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "union meltparam_un argtab["));
18771                     }
18772                     ;
18773
18774                     {
18775                         MELT_LOCATION("warmelt-outobj.melt:4276:/ locexp");
18776                         meltgc_add_strbuf_dec((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#NBARG__L3*/ meltfnum[1]));
18777                     }
18778                     ;
18779
18780                     {
18781                         MELT_LOCATION("warmelt-outobj.melt:4277:/ locexp");
18782                         /*add2sbuf_strconst*/
18783                         meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "];"));
18784                     }
18785                     ;
18786                     /*_#plI__L8*/
18787                     meltfnum[7] =
18788                         ((1) + (/*_#DEPTH__L1*/ meltfnum[0]));;
18789
18790                     {
18791                         MELT_LOCATION("warmelt-outobj.melt:4278:/ locexp");
18792                         meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#plI__L8*/ meltfnum[7]), 0);
18793                     }
18794                     ;
18795                     MELT_LOCATION("warmelt-outobj.melt:4274:/ quasiblock");
18796
18797
18798                     /*epilog*/
18799
18800                     /*^clear*/
18801                     /*clear*/ /*_#plI__L8*/
18802                     meltfnum[7] = 0 ;
18803                 }
18804                 ;
18805             } /*noelse*/
18806         ;
18807
18808         MELT_CHECK_SIGNAL();
18809         ;
18810         /*_#gtI__L9*/
18811         meltfnum[7] =
18812             ((/*_#NBXRES__L4*/ meltfnum[3]) > (0));;
18813         MELT_LOCATION("warmelt-outobj.melt:4280:/ cond");
18814         /*cond*/
18815         if (/*_#gtI__L9*/ meltfnum[7]) /*then*/
18816             {
18817                 /*^cond.then*/
18818                 /*^block*/
18819                 /*anyblock*/
18820                 {
18821
18822
18823                     {
18824                         MELT_LOCATION("warmelt-outobj.melt:4281:/ locexp");
18825                         /*add2sbuf_strconst*/
18826                         meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "union meltparam_un restab["));
18827                     }
18828                     ;
18829
18830                     {
18831                         MELT_LOCATION("warmelt-outobj.melt:4282:/ locexp");
18832                         meltgc_add_strbuf_dec((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#NBXRES__L4*/ meltfnum[3]));
18833                     }
18834                     ;
18835
18836                     {
18837                         MELT_LOCATION("warmelt-outobj.melt:4283:/ locexp");
18838                         /*add2sbuf_strconst*/
18839                         meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "];"));
18840                     }
18841                     ;
18842                     /*_#plI__L10*/
18843                     meltfnum[9] =
18844                         ((1) + (/*_#DEPTH__L1*/ meltfnum[0]));;
18845
18846                     {
18847                         MELT_LOCATION("warmelt-outobj.melt:4284:/ locexp");
18848                         meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#plI__L10*/ meltfnum[9]), 0);
18849                     }
18850                     ;
18851                     /*citerblock FOREACH_IN_MULTIPLE*/
18852                     {
18853                         /* start foreach_in_multiple meltcit1__EACHTUP */
18854                         long  meltcit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.OXRES__V14*/ meltfptr[13]);
18855                         for (/*_#CURANK__L11*/ meltfnum[10] = 0;
18856                                                (/*_#CURANK__L11*/ meltfnum[10] >= 0) && (/*_#CURANK__L11*/ meltfnum[10] <  meltcit1__EACHTUP_ln);
18857                                                /*_#CURANK__L11*/ meltfnum[10]++)
18858                             {
18859                                 /*_.CURES__V21*/ meltfptr[19] = melt_multiple_nth((melt_ptr_t)(/*_.OXRES__V14*/ meltfptr[13]),  /*_#CURANK__L11*/ meltfnum[10]);
18860
18861
18862
18863                                 MELT_LOCATION("warmelt-outobj.melt:4289:/ quasiblock");
18864
18865
18866
18867                                 MELT_CHECK_SIGNAL();
18868                                 ;
18869                                 /*^msend*/
18870                                 /*msend*/
18871                                 {
18872                                     union meltparam_un argtab[1];
18873                                     memset(&argtab, 0, sizeof(argtab));
18874                                     /*^ojbmsend.arg*/
18875                                     argtab[0].meltbp_aptr = /*nil*/(melt_ptr_t*)NULL;
18876                                     /*_.CURESTYP__V22*/
18877                                     meltfptr[21] = meltgc_send((melt_ptr_t)(/*_.CURES__V21*/ meltfptr[19]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[6])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
18878                                 }
18879                                 ;
18880                                 MELT_LOCATION("warmelt-outobj.melt:4290:/ getslot");
18881                                 {
18882                                     melt_ptr_t slot=NULL, obj=NULL;
18883                                     obj = (melt_ptr_t)(/*_.CURESTYP__V22*/ meltfptr[21]) /*=obj*/;
18884                                     melt_object_get_field(slot,obj, 6, "CTYPE_PARSTRING");
18885                                     /*_.CTYPE_PARSTRING__V23*/
18886                                     meltfptr[22] = slot;
18887                                 };
18888                                 ;
18889
18890                                 {
18891                                     /*^locexp*/
18892                                     meltgc_append_list((melt_ptr_t)(/*_.RESDESCLIST__V16*/ meltfptr[15]), (melt_ptr_t)(/*_.CTYPE_PARSTRING__V23*/ meltfptr[22]));
18893                                 }
18894                                 ;
18895
18896                                 MELT_LOCATION("warmelt-outobj.melt:4289:/ clear");
18897                                 /*clear*/ /*_.CURESTYP__V22*/
18898                                 meltfptr[21] = 0 ;
18899                                 /*^clear*/
18900                                 /*clear*/ /*_.CTYPE_PARSTRING__V23*/
18901                                 meltfptr[22] = 0 ;
18902                                 if (/*_#CURANK__L11*/ meltfnum[10]<0) break;
18903                             } /* end  foreach_in_multiple meltcit1__EACHTUP */
18904
18905                         /*citerepilog*/
18906
18907                         MELT_LOCATION("warmelt-outobj.melt:4286:/ clear");
18908                         /*clear*/ /*_.CURES__V21*/
18909                         meltfptr[19] = 0 ;
18910                         /*^clear*/
18911                         /*clear*/ /*_#CURANK__L11*/
18912                         meltfnum[10] = 0 ;
18913                     } /*endciterblock FOREACH_IN_MULTIPLE*/
18914                     ;
18915                     MELT_LOCATION("warmelt-outobj.melt:4280:/ quasiblock");
18916
18917
18918                     /*epilog*/
18919
18920                     /*^clear*/
18921                     /*clear*/ /*_#plI__L10*/
18922                     meltfnum[9] = 0 ;
18923                 }
18924                 ;
18925             } /*noelse*/
18926         ;
18927
18928         MELT_CHECK_SIGNAL();
18929         ;
18930         /*_#gtI__L12*/
18931         meltfnum[9] =
18932             ((/*_#NBARG__L3*/ meltfnum[1]) > (0));;
18933         MELT_LOCATION("warmelt-outobj.melt:4292:/ cond");
18934         /*cond*/
18935         if (/*_#gtI__L12*/ meltfnum[9]) /*then*/
18936             {
18937                 /*^cond.then*/
18938                 /*^block*/
18939                 /*anyblock*/
18940                 {
18941
18942
18943                     {
18944                         MELT_LOCATION("warmelt-outobj.melt:4293:/ locexp");
18945                         /*add2sbuf_strconst*/
18946                         meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "memset(&argtab, 0, sizeof(argtab));"));
18947                     }
18948                     ;
18949                     /*_#plI__L13*/
18950                     meltfnum[12] =
18951                         ((1) + (/*_#DEPTH__L1*/ meltfnum[0]));;
18952
18953                     {
18954                         MELT_LOCATION("warmelt-outobj.melt:4294:/ locexp");
18955                         meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#plI__L13*/ meltfnum[12]), 0);
18956                     }
18957                     ;
18958                     MELT_LOCATION("warmelt-outobj.melt:4292:/ quasiblock");
18959
18960
18961                     /*epilog*/
18962
18963                     /*^clear*/
18964                     /*clear*/ /*_#plI__L13*/
18965                     meltfnum[12] = 0 ;
18966                 }
18967                 ;
18968             } /*noelse*/
18969         ;
18970
18971         MELT_CHECK_SIGNAL();
18972         ;
18973         /*_#gtI__L14*/
18974         meltfnum[12] =
18975             ((/*_#NBXRES__L4*/ meltfnum[3]) > (0));;
18976         MELT_LOCATION("warmelt-outobj.melt:4295:/ cond");
18977         /*cond*/
18978         if (/*_#gtI__L14*/ meltfnum[12]) /*then*/
18979             {
18980                 /*^cond.then*/
18981                 /*^block*/
18982                 /*anyblock*/
18983                 {
18984
18985
18986                     {
18987                         MELT_LOCATION("warmelt-outobj.melt:4296:/ locexp");
18988                         /*add2sbuf_strconst*/
18989                         meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "memset(&restab, 0, sizeof(restab));"));
18990                     }
18991                     ;
18992                     /*_#plI__L15*/
18993                     meltfnum[14] =
18994                         ((1) + (/*_#DEPTH__L1*/ meltfnum[0]));;
18995
18996                     {
18997                         MELT_LOCATION("warmelt-outobj.melt:4297:/ locexp");
18998                         meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#plI__L15*/ meltfnum[14]), 0);
18999                     }
19000                     ;
19001                     MELT_LOCATION("warmelt-outobj.melt:4295:/ quasiblock");
19002
19003
19004                     /*epilog*/
19005
19006                     /*^clear*/
19007                     /*clear*/ /*_#plI__L15*/
19008                     meltfnum[14] = 0 ;
19009                 }
19010                 ;
19011             } /*noelse*/
19012         ;
19013
19014         MELT_CHECK_SIGNAL();
19015         ;
19016         /*_#gtI__L16*/
19017         meltfnum[14] =
19018             ((/*_#NBARG__L3*/ meltfnum[1]) > (0));;
19019         MELT_LOCATION("warmelt-outobj.melt:4299:/ cond");
19020         /*cond*/
19021         if (/*_#gtI__L16*/ meltfnum[14]) /*then*/
19022             {
19023                 /*^cond.then*/
19024                 /*^block*/
19025                 /*anyblock*/
19026                 {
19027
19028                     /*citerblock FOREACH_IN_MULTIPLE*/
19029                     {
19030                         /* start foreach_in_multiple meltcit2__EACHTUP */
19031                         long  meltcit2__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.OARGS__V13*/ meltfptr[12]);
19032                         for (/*_#CURANK__L17*/ meltfnum[16] = 0;
19033                                                (/*_#CURANK__L17*/ meltfnum[16] >= 0) && (/*_#CURANK__L17*/ meltfnum[16] <  meltcit2__EACHTUP_ln);
19034                                                /*_#CURANK__L17*/ meltfnum[16]++)
19035                             {
19036                                 /*_.CURARG__V24*/ meltfptr[21] = melt_multiple_nth((melt_ptr_t)(/*_.OARGS__V13*/ meltfptr[12]),  /*_#CURANK__L17*/ meltfnum[16]);
19037
19038
19039
19040                                 MELT_LOCATION("warmelt-outobj.melt:4304:/ quasiblock");
19041
19042
19043
19044                                 MELT_CHECK_SIGNAL();
19045                                 ;
19046                                 /*^msend*/
19047                                 /*msend*/
19048                                 {
19049                                     union meltparam_un argtab[1];
19050                                     memset(&argtab, 0, sizeof(argtab));
19051                                     /*^ojbmsend.arg*/
19052                                     argtab[0].meltbp_aptr = /*nil*/(melt_ptr_t*)NULL;
19053                                     /*_.CURCTYP__V25*/
19054                                     meltfptr[22] = meltgc_send((melt_ptr_t)(/*_.CURARG__V24*/ meltfptr[21]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[6])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
19055                                 }
19056                                 ;
19057
19058 #if MELT_HAVE_DEBUG
19059                                 MELT_LOCATION("warmelt-outobj.melt:4305:/ cppif.then");
19060                                 /*^block*/
19061                                 /*anyblock*/
19062                                 {
19063
19064
19065                                     MELT_CHECK_SIGNAL();
19066                                     ;
19067                                     /*_#IS_A__L18*/
19068                                     meltfnum[17] =
19069                                         melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V25*/ meltfptr[22]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[7])));;
19070                                     MELT_LOCATION("warmelt-outobj.melt:4305:/ cond");
19071                                     /*cond*/
19072                                     if (/*_#IS_A__L18*/ meltfnum[17]) /*then*/
19073                                         {
19074                                             /*^cond.then*/
19075                                             /*_._IFELSE___V27*/ meltfptr[26] = (/*nil*/NULL);;
19076                                         }
19077                                     else
19078                                         {
19079                                             MELT_LOCATION("warmelt-outobj.melt:4305:/ cond.else");
19080
19081                                             /*^block*/
19082                                             /*anyblock*/
19083                                             {
19084
19085
19086                                                 MELT_CHECK_SIGNAL();
19087                                                 ;
19088                                                 /*^apply*/
19089                                                 /*apply*/
19090                                                 {
19091                                                     union meltparam_un argtab[3];
19092                                                     memset(&argtab, 0, sizeof(argtab));
19093                                                     /*^apply.arg*/
19094                                                     argtab[0].meltbp_cstring =  "check curctyp";
19095                                                     /*^apply.arg*/
19096                                                     argtab[1].meltbp_cstring =  "warmelt-outobj.melt";
19097                                                     /*^apply.arg*/
19098                                                     argtab[2].meltbp_long = 4305;
19099                                                     /*_.MELT_ASSERT_FAILURE_FUN__V28*/
19100                                                     meltfptr[27] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
19101                                                 }
19102                                                 ;
19103                                                 /*_._IFELSE___V27*/
19104                                                 meltfptr[26] = /*_.MELT_ASSERT_FAILURE_FUN__V28*/ meltfptr[27];;
19105                                                 /*epilog*/
19106
19107                                                 MELT_LOCATION("warmelt-outobj.melt:4305:/ clear");
19108                                                 /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V28*/
19109                                                 meltfptr[27] = 0 ;
19110                                             }
19111                                             ;
19112                                         }
19113                                     ;
19114                                     /*_.IFCPP___V26*/
19115                                     meltfptr[25] = /*_._IFELSE___V27*/ meltfptr[26];;
19116                                     /*epilog*/
19117
19118                                     MELT_LOCATION("warmelt-outobj.melt:4305:/ clear");
19119                                     /*clear*/ /*_#IS_A__L18*/
19120                                     meltfnum[17] = 0 ;
19121                                     /*^clear*/
19122                                     /*clear*/ /*_._IFELSE___V27*/
19123                                     meltfptr[26] = 0 ;
19124                                 }
19125
19126 #else /*MELT_HAVE_DEBUG*/
19127                                 /*^cppif.else*/
19128                                 /*_.IFCPP___V26*/ meltfptr[25] = (/*nil*/NULL);
19129 #endif /*MELT_HAVE_DEBUG*/
19130                                 ;
19131                                 /*^compute*/
19132                                 /*_#GET_INT__L19*/
19133                                 meltfnum[17] =
19134                                     (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V17*/ meltfptr[16])));;
19135
19136                                 MELT_CHECK_SIGNAL();
19137                                 ;
19138                                 MELT_LOCATION("warmelt-outobj.melt:4306:/ apply");
19139                                 /*apply*/
19140                                 {
19141                                     union meltparam_un argtab[3];
19142                                     memset(&argtab, 0, sizeof(argtab));
19143                                     /*^apply.arg*/
19144                                     argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
19145                                     /*^apply.arg*/
19146                                     argtab[1].meltbp_long = /*_#GET_INT__L19*/ meltfnum[17];
19147                                     /*^apply.arg*/
19148                                     argtab[2].meltbp_cstring =  "multimsend.arg";
19149                                     /*_.OUTPUT_LOCATION__V29*/
19150                                     meltfptr[27] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.OLOC__V9*/ meltfptr[5]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
19151                                 }
19152                                 ;
19153
19154                                 {
19155                                     MELT_LOCATION("warmelt-outobj.melt:4307:/ locexp");
19156                                     /*add2sbuf_strconst*/
19157                                     meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "argtab["));
19158                                 }
19159                                 ;
19160
19161                                 {
19162                                     MELT_LOCATION("warmelt-outobj.melt:4308:/ locexp");
19163                                     meltgc_add_strbuf_dec((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#CURANK__L17*/ meltfnum[16]));
19164                                 }
19165                                 ;
19166
19167                                 {
19168                                     MELT_LOCATION("warmelt-outobj.melt:4309:/ locexp");
19169                                     /*add2sbuf_strconst*/
19170                                     meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "]."));
19171                                 }
19172                                 ;
19173                                 MELT_LOCATION("warmelt-outobj.melt:4310:/ getslot");
19174                                 {
19175                                     melt_ptr_t slot=NULL, obj=NULL;
19176                                     obj = (melt_ptr_t)(/*_.CURCTYP__V25*/ meltfptr[22]) /*=obj*/;
19177                                     melt_object_get_field(slot,obj, 6, "CTYPE_PARSTRING");
19178                                     /*_.CTYPE_PARSTRING__V30*/
19179                                     meltfptr[26] = slot;
19180                                 };
19181                                 ;
19182
19183                                 {
19184                                     /*^locexp*/
19185                                     meltgc_append_list((melt_ptr_t)(/*_.PARAMDESCLIST__V15*/ meltfptr[14]), (melt_ptr_t)(/*_.CTYPE_PARSTRING__V30*/ meltfptr[26]));
19186                                 }
19187                                 ;
19188
19189                                 MELT_CHECK_SIGNAL();
19190                                 ;
19191                                 /*_#NULL__L20*/
19192                                 meltfnum[19] =
19193                                     (/*null*/(/*_.CURARG__V24*/ meltfptr[21]) == NULL);;
19194                                 MELT_LOCATION("warmelt-outobj.melt:4312:/ cond");
19195                                 /*cond*/
19196                                 if (/*_#NULL__L20*/ meltfnum[19]) /*then*/
19197                                     {
19198                                         /*^cond.then*/
19199                                         /*^block*/
19200                                         /*anyblock*/
19201                                         {
19202
19203
19204
19205
19206                                             {
19207                                                 MELT_LOCATION("warmelt-outobj.melt:4313:/ locexp");
19208                                                 /*add2sbuf_strconst*/
19209                                                 meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "meltbp_aptr = (melt_ptr_t*)NULL"));
19210                                             }
19211                                             ;
19212                                             /*clear*/ /*_._IFELSE___V31*/
19213                                             meltfptr[30] = 0 ;
19214                                             /*epilog*/
19215                                         }
19216                                         ;
19217                                     }
19218                                 else
19219                                     {
19220                                         MELT_LOCATION("warmelt-outobj.melt:4312:/ cond.else");
19221
19222                                         /*^block*/
19223                                         /*anyblock*/
19224                                         {
19225
19226
19227                                             MELT_CHECK_SIGNAL();
19228                                             ;
19229                                             /*_#eqeq__L21*/
19230                                             meltfnum[20] =
19231                                                 ((/*_.CURCTYP__V25*/ meltfptr[22]) == ((/*!CTYPE_VALUE*/ meltfrout->tabval[8])));;
19232                                             MELT_LOCATION("warmelt-outobj.melt:4314:/ cond");
19233                                             /*cond*/
19234                                             if (/*_#eqeq__L21*/ meltfnum[20]) /*then*/
19235                                                 {
19236                                                     /*^cond.then*/
19237                                                     /*^block*/
19238                                                     /*anyblock*/
19239                                                     {
19240
19241
19242                                                         {
19243                                                             MELT_LOCATION("warmelt-outobj.melt:4315:/ locexp");
19244                                                             /*add2sbuf_strconst*/
19245                                                             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "meltbp_aptr = (melt_ptr_t*) &"));
19246                                                         }
19247                                                         ;
19248                                                         /*_#GET_INT__L22*/
19249                                                         meltfnum[21] =
19250                                                             (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V17*/ meltfptr[16])));;
19251
19252                                                         MELT_CHECK_SIGNAL();
19253                                                         ;
19254                                                         MELT_LOCATION("warmelt-outobj.melt:4316:/ msend");
19255                                                         /*msend*/
19256                                                         {
19257                                                             union meltparam_un argtab[3];
19258                                                             memset(&argtab, 0, sizeof(argtab));
19259                                                             /*^ojbmsend.arg*/
19260                                                             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2];
19261                                                             /*^ojbmsend.arg*/
19262                                                             argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
19263                                                             /*^ojbmsend.arg*/
19264                                                             argtab[2].meltbp_long = /*_#GET_INT__L22*/ meltfnum[21];
19265                                                             /*_.OUTPUT_C_CODE__V33*/
19266                                                             meltfptr[32] = meltgc_send((melt_ptr_t)(/*_.CURARG__V24*/ meltfptr[21]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[9])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
19267                                                         }
19268                                                         ;
19269                                                         MELT_LOCATION("warmelt-outobj.melt:4314:/ quasiblock");
19270
19271
19272                                                         /*_.PROGN___V34*/
19273                                                         meltfptr[33] = /*_.OUTPUT_C_CODE__V33*/ meltfptr[32];;
19274                                                         /*^compute*/
19275                                                         /*_._IFELSE___V32*/
19276                                                         meltfptr[31] = /*_.PROGN___V34*/ meltfptr[33];;
19277                                                         /*epilog*/
19278
19279                                                         MELT_LOCATION("warmelt-outobj.melt:4314:/ clear");
19280                                                         /*clear*/ /*_#GET_INT__L22*/
19281                                                         meltfnum[21] = 0 ;
19282                                                         /*^clear*/
19283                                                         /*clear*/ /*_.OUTPUT_C_CODE__V33*/
19284                                                         meltfptr[32] = 0 ;
19285                                                         /*^clear*/
19286                                                         /*clear*/ /*_.PROGN___V34*/
19287                                                         meltfptr[33] = 0 ;
19288                                                     }
19289                                                     ;
19290                                                 }
19291                                             else    /*^cond.else*/
19292                                                 {
19293
19294                                                     /*^block*/
19295                                                     /*anyblock*/
19296                                                     {
19297
19298                                                         MELT_LOCATION("warmelt-outobj.melt:4319:/ getslot");
19299                                                         {
19300                                                             melt_ptr_t slot=NULL, obj=NULL;
19301                                                             obj = (melt_ptr_t)(/*_.CURCTYP__V25*/ meltfptr[22]) /*=obj*/;
19302                                                             melt_object_get_field(slot,obj, 7, "CTYPE_ARGFIELD");
19303                                                             /*_.CTYPE_ARGFIELD__V35*/
19304                                                             meltfptr[32] = slot;
19305                                                         };
19306                                                         ;
19307
19308                                                         {
19309                                                             /*^locexp*/
19310                                                             /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]),
19311                                                                                                   melt_string_str((melt_ptr_t)(/*_.CTYPE_ARGFIELD__V35*/ meltfptr[32])));
19312                                                         }
19313                                                         ;
19314
19315                                                         {
19316                                                             MELT_LOCATION("warmelt-outobj.melt:4320:/ locexp");
19317                                                             /*add2sbuf_strconst*/
19318                                                             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( " = "));
19319                                                         }
19320                                                         ;
19321                                                         /*_#GET_INT__L23*/
19322                                                         meltfnum[21] =
19323                                                             (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V17*/ meltfptr[16])));;
19324
19325                                                         MELT_CHECK_SIGNAL();
19326                                                         ;
19327                                                         MELT_LOCATION("warmelt-outobj.melt:4321:/ msend");
19328                                                         /*msend*/
19329                                                         {
19330                                                             union meltparam_un argtab[3];
19331                                                             memset(&argtab, 0, sizeof(argtab));
19332                                                             /*^ojbmsend.arg*/
19333                                                             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2];
19334                                                             /*^ojbmsend.arg*/
19335                                                             argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
19336                                                             /*^ojbmsend.arg*/
19337                                                             argtab[2].meltbp_long = /*_#GET_INT__L23*/ meltfnum[21];
19338                                                             /*_.OUTPUT_C_CODE__V36*/
19339                                                             meltfptr[33] = meltgc_send((melt_ptr_t)(/*_.CURARG__V24*/ meltfptr[21]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[9])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
19340                                                         }
19341                                                         ;
19342                                                         MELT_LOCATION("warmelt-outobj.melt:4318:/ quasiblock");
19343
19344
19345                                                         /*_.PROGN___V37*/
19346                                                         meltfptr[36] = /*_.OUTPUT_C_CODE__V36*/ meltfptr[33];;
19347                                                         /*^compute*/
19348                                                         /*_._IFELSE___V32*/
19349                                                         meltfptr[31] = /*_.PROGN___V37*/ meltfptr[36];;
19350                                                         /*epilog*/
19351
19352                                                         MELT_LOCATION("warmelt-outobj.melt:4314:/ clear");
19353                                                         /*clear*/ /*_.CTYPE_ARGFIELD__V35*/
19354                                                         meltfptr[32] = 0 ;
19355                                                         /*^clear*/
19356                                                         /*clear*/ /*_#GET_INT__L23*/
19357                                                         meltfnum[21] = 0 ;
19358                                                         /*^clear*/
19359                                                         /*clear*/ /*_.OUTPUT_C_CODE__V36*/
19360                                                         meltfptr[33] = 0 ;
19361                                                         /*^clear*/
19362                                                         /*clear*/ /*_.PROGN___V37*/
19363                                                         meltfptr[36] = 0 ;
19364                                                     }
19365                                                     ;
19366                                                 }
19367                                             ;
19368                                             /*_._IFELSE___V31*/
19369                                             meltfptr[30] = /*_._IFELSE___V32*/ meltfptr[31];;
19370                                             /*epilog*/
19371
19372                                             MELT_LOCATION("warmelt-outobj.melt:4312:/ clear");
19373                                             /*clear*/ /*_#eqeq__L21*/
19374                                             meltfnum[20] = 0 ;
19375                                             /*^clear*/
19376                                             /*clear*/ /*_._IFELSE___V32*/
19377                                             meltfptr[31] = 0 ;
19378                                         }
19379                                         ;
19380                                     }
19381                                 ;
19382
19383                                 {
19384                                     MELT_LOCATION("warmelt-outobj.melt:4323:/ locexp");
19385                                     /*add2sbuf_strconst*/
19386                                     meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( ";"));
19387                                 }
19388                                 ;
19389
19390                                 MELT_LOCATION("warmelt-outobj.melt:4304:/ clear");
19391                                 /*clear*/ /*_.CURCTYP__V25*/
19392                                 meltfptr[22] = 0 ;
19393                                 /*^clear*/
19394                                 /*clear*/ /*_.IFCPP___V26*/
19395                                 meltfptr[25] = 0 ;
19396                                 /*^clear*/
19397                                 /*clear*/ /*_#GET_INT__L19*/
19398                                 meltfnum[17] = 0 ;
19399                                 /*^clear*/
19400                                 /*clear*/ /*_.OUTPUT_LOCATION__V29*/
19401                                 meltfptr[27] = 0 ;
19402                                 /*^clear*/
19403                                 /*clear*/ /*_.CTYPE_PARSTRING__V30*/
19404                                 meltfptr[26] = 0 ;
19405                                 /*^clear*/
19406                                 /*clear*/ /*_#NULL__L20*/
19407                                 meltfnum[19] = 0 ;
19408                                 /*^clear*/
19409                                 /*clear*/ /*_._IFELSE___V31*/
19410                                 meltfptr[30] = 0 ;
19411
19412 #if MELT_HAVE_DEBUG
19413                                 MELT_LOCATION("warmelt-outobj.melt:4325:/ cppif.then");
19414                                 /*^block*/
19415                                 /*anyblock*/
19416                                 {
19417
19418
19419                                     MELT_CHECK_SIGNAL();
19420                                     ;
19421                                     /*_#STRBUF_USEDLENGTH__L24*/
19422                                     meltfnum[21] =
19423                                         melt_strbuf_usedlength((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]));;
19424                                     MELT_LOCATION("warmelt-outobj.melt:4326:/ cond");
19425                                     /*cond*/
19426                                     if (
19427                                         /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[10])),
19428                                                                       (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[11])))
19429                                     ) /*then*/
19430                                         {
19431                                             /*^cond.then*/
19432                                             /*^getslot*/
19433                                             {
19434                                                 melt_ptr_t slot=NULL, obj=NULL;
19435                                                 obj = (melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[10])) /*=obj*/;
19436                                                 melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE");
19437                                                 /*_.REFERENCED_VALUE__V39*/
19438                                                 meltfptr[33] = slot;
19439                                             };
19440                                             ;
19441                                         }
19442                                     else    /*^cond.else*/
19443                                         {
19444
19445                                             /*_.REFERENCED_VALUE__V39*/ meltfptr[33] =  /*reallynil*/ NULL ;;
19446                                         }
19447                                     ;
19448                                     /*^compute*/
19449                                     /*_#GET_INT__L25*/
19450                                     meltfnum[20] =
19451                                         (melt_get_int((melt_ptr_t)(/*_.REFERENCED_VALUE__V39*/ meltfptr[33])));;
19452                                     /*^compute*/
19453                                     /*_#ltI__L26*/
19454                                     meltfnum[17] =
19455                                         ((/*_#STRBUF_USEDLENGTH__L24*/ meltfnum[21]) < (/*_#GET_INT__L25*/ meltfnum[20]));;
19456                                     MELT_LOCATION("warmelt-outobj.melt:4325:/ cond");
19457                                     /*cond*/
19458                                     if (/*_#ltI__L26*/ meltfnum[17]) /*then*/
19459                                         {
19460                                             /*^cond.then*/
19461                                             /*_._IFELSE___V40*/ meltfptr[36] = (/*nil*/NULL);;
19462                                         }
19463                                     else
19464                                         {
19465                                             MELT_LOCATION("warmelt-outobj.melt:4325:/ cond.else");
19466
19467                                             /*^block*/
19468                                             /*anyblock*/
19469                                             {
19470
19471
19472                                                 MELT_CHECK_SIGNAL();
19473                                                 ;
19474                                                 /*^apply*/
19475                                                 /*apply*/
19476                                                 {
19477                                                     union meltparam_un argtab[3];
19478                                                     memset(&argtab, 0, sizeof(argtab));
19479                                                     /*^apply.arg*/
19480                                                     argtab[0].meltbp_cstring =  "check limited implbuf";
19481                                                     /*^apply.arg*/
19482                                                     argtab[1].meltbp_cstring =  "warmelt-outobj.melt";
19483                                                     /*^apply.arg*/
19484                                                     argtab[2].meltbp_long = 4325;
19485                                                     /*_.MELT_ASSERT_FAILURE_FUN__V41*/
19486                                                     meltfptr[31] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
19487                                                 }
19488                                                 ;
19489                                                 /*_._IFELSE___V40*/
19490                                                 meltfptr[36] = /*_.MELT_ASSERT_FAILURE_FUN__V41*/ meltfptr[31];;
19491                                                 /*epilog*/
19492
19493                                                 MELT_LOCATION("warmelt-outobj.melt:4325:/ clear");
19494                                                 /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V41*/
19495                                                 meltfptr[31] = 0 ;
19496                                             }
19497                                             ;
19498                                         }
19499                                     ;
19500                                     /*_.IFCPP___V38*/
19501                                     meltfptr[32] = /*_._IFELSE___V40*/ meltfptr[36];;
19502                                     /*epilog*/
19503
19504                                     MELT_LOCATION("warmelt-outobj.melt:4325:/ clear");
19505                                     /*clear*/ /*_#STRBUF_USEDLENGTH__L24*/
19506                                     meltfnum[21] = 0 ;
19507                                     /*^clear*/
19508                                     /*clear*/ /*_.REFERENCED_VALUE__V39*/
19509                                     meltfptr[33] = 0 ;
19510                                     /*^clear*/
19511                                     /*clear*/ /*_#GET_INT__L25*/
19512                                     meltfnum[20] = 0 ;
19513                                     /*^clear*/
19514                                     /*clear*/ /*_#ltI__L26*/
19515                                     meltfnum[17] = 0 ;
19516                                     /*^clear*/
19517                                     /*clear*/ /*_._IFELSE___V40*/
19518                                     meltfptr[36] = 0 ;
19519                                 }
19520
19521 #else /*MELT_HAVE_DEBUG*/
19522                                 /*^cppif.else*/
19523                                 /*_.IFCPP___V38*/ meltfptr[32] = (/*nil*/NULL);
19524 #endif /*MELT_HAVE_DEBUG*/
19525                                 ;
19526                                 if (/*_#CURANK__L17*/ meltfnum[16]<0) break;
19527                             } /* end  foreach_in_multiple meltcit2__EACHTUP */
19528
19529                         /*citerepilog*/
19530
19531                         MELT_LOCATION("warmelt-outobj.melt:4301:/ clear");
19532                         /*clear*/ /*_.CURARG__V24*/
19533                         meltfptr[21] = 0 ;
19534                         /*^clear*/
19535                         /*clear*/ /*_#CURANK__L17*/
19536                         meltfnum[16] = 0 ;
19537                         /*^clear*/
19538                         /*clear*/ /*_.IFCPP___V38*/
19539                         meltfptr[32] = 0 ;
19540                     } /*endciterblock FOREACH_IN_MULTIPLE*/
19541                     ;
19542                     /*_#GET_INT__L27*/
19543                     meltfnum[19] =
19544                         (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V17*/ meltfptr[16])));;
19545
19546                     {
19547                         MELT_LOCATION("warmelt-outobj.melt:4328:/ locexp");
19548                         meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#GET_INT__L27*/ meltfnum[19]), 0);
19549                     }
19550                     ;
19551                     MELT_LOCATION("warmelt-outobj.melt:4299:/ quasiblock");
19552
19553
19554                     /*epilog*/
19555
19556                     /*^clear*/
19557                     /*clear*/ /*_#GET_INT__L27*/
19558                     meltfnum[19] = 0 ;
19559                 }
19560                 ;
19561             } /*noelse*/
19562         ;
19563
19564         MELT_CHECK_SIGNAL();
19565         ;
19566         /*_#gtI__L28*/
19567         meltfnum[21] =
19568             ((/*_#NBXRES__L4*/ meltfnum[3]) > (0));;
19569         MELT_LOCATION("warmelt-outobj.melt:4331:/ cond");
19570         /*cond*/
19571         if (/*_#gtI__L28*/ meltfnum[21]) /*then*/
19572             {
19573                 /*^cond.then*/
19574                 /*^block*/
19575                 /*anyblock*/
19576                 {
19577
19578                     /*citerblock FOREACH_IN_MULTIPLE*/
19579                     {
19580                         /* start foreach_in_multiple meltcit3__EACHTUP */
19581                         long  meltcit3__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.OXRES__V14*/ meltfptr[13]);
19582                         for (/*_#CURANK__L29*/ meltfnum[20] = 0;
19583                                                (/*_#CURANK__L29*/ meltfnum[20] >= 0) && (/*_#CURANK__L29*/ meltfnum[20] <  meltcit3__EACHTUP_ln);
19584                                                /*_#CURANK__L29*/ meltfnum[20]++)
19585                             {
19586                                 /*_.CURES__V42*/ meltfptr[22] = melt_multiple_nth((melt_ptr_t)(/*_.OXRES__V14*/ meltfptr[13]),  /*_#CURANK__L29*/ meltfnum[20]);
19587
19588
19589
19590                                 MELT_LOCATION("warmelt-outobj.melt:4335:/ quasiblock");
19591
19592
19593
19594                                 MELT_CHECK_SIGNAL();
19595                                 ;
19596                                 /*^msend*/
19597                                 /*msend*/
19598                                 {
19599                                     union meltparam_un argtab[1];
19600                                     memset(&argtab, 0, sizeof(argtab));
19601                                     /*^ojbmsend.arg*/
19602                                     argtab[0].meltbp_aptr = /*nil*/(melt_ptr_t*)NULL;
19603                                     /*_.CURESTYP__V43*/
19604                                     meltfptr[25] = meltgc_send((melt_ptr_t)(/*_.CURES__V42*/ meltfptr[22]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[6])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
19605                                 }
19606                                 ;
19607
19608 #if MELT_HAVE_DEBUG
19609                                 MELT_LOCATION("warmelt-outobj.melt:4336:/ cppif.then");
19610                                 /*^block*/
19611                                 /*anyblock*/
19612                                 {
19613
19614
19615                                     MELT_CHECK_SIGNAL();
19616                                     ;
19617                                     /*_#IS_A__L30*/
19618                                     meltfnum[17] =
19619                                         melt_is_instance_of((melt_ptr_t)(/*_.CURESTYP__V43*/ meltfptr[25]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[7])));;
19620                                     MELT_LOCATION("warmelt-outobj.melt:4336:/ cond");
19621                                     /*cond*/
19622                                     if (/*_#IS_A__L30*/ meltfnum[17]) /*then*/
19623                                         {
19624                                             /*^cond.then*/
19625                                             /*_._IFELSE___V45*/ meltfptr[26] = (/*nil*/NULL);;
19626                                         }
19627                                     else
19628                                         {
19629                                             MELT_LOCATION("warmelt-outobj.melt:4336:/ cond.else");
19630
19631                                             /*^block*/
19632                                             /*anyblock*/
19633                                             {
19634
19635
19636                                                 MELT_CHECK_SIGNAL();
19637                                                 ;
19638                                                 /*^apply*/
19639                                                 /*apply*/
19640                                                 {
19641                                                     union meltparam_un argtab[4];
19642                                                     memset(&argtab, 0, sizeof(argtab));
19643                                                     /*^apply.arg*/
19644                                                     argtab[0].meltbp_cstring =  "check curestyp";
19645                                                     /*^apply.arg*/
19646                                                     argtab[1].meltbp_cstring =  "warmelt-outobj.melt";
19647                                                     /*^apply.arg*/
19648                                                     argtab[2].meltbp_long = 4336;
19649                                                     /*^apply.arg*/
19650                                                     argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURESTYP__V43*/ meltfptr[25];
19651                                                     /*_.MELT_ASSERT_FAILURE_FUN__V46*/
19652                                                     meltfptr[30] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
19653                                                 }
19654                                                 ;
19655                                                 /*_._IFELSE___V45*/
19656                                                 meltfptr[26] = /*_.MELT_ASSERT_FAILURE_FUN__V46*/ meltfptr[30];;
19657                                                 /*epilog*/
19658
19659                                                 MELT_LOCATION("warmelt-outobj.melt:4336:/ clear");
19660                                                 /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V46*/
19661                                                 meltfptr[30] = 0 ;
19662                                             }
19663                                             ;
19664                                         }
19665                                     ;
19666                                     /*_.IFCPP___V44*/
19667                                     meltfptr[27] = /*_._IFELSE___V45*/ meltfptr[26];;
19668                                     /*epilog*/
19669
19670                                     MELT_LOCATION("warmelt-outobj.melt:4336:/ clear");
19671                                     /*clear*/ /*_#IS_A__L30*/
19672                                     meltfnum[17] = 0 ;
19673                                     /*^clear*/
19674                                     /*clear*/ /*_._IFELSE___V45*/
19675                                     meltfptr[26] = 0 ;
19676                                 }
19677
19678 #else /*MELT_HAVE_DEBUG*/
19679                                 /*^cppif.else*/
19680                                 /*_.IFCPP___V44*/ meltfptr[27] = (/*nil*/NULL);
19681 #endif /*MELT_HAVE_DEBUG*/
19682                                 ;
19683                                 /*^compute*/
19684                                 /*_#GET_INT__L31*/
19685                                 meltfnum[19] =
19686                                     (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V17*/ meltfptr[16])));;
19687
19688                                 MELT_CHECK_SIGNAL();
19689                                 ;
19690                                 MELT_LOCATION("warmelt-outobj.melt:4337:/ apply");
19691                                 /*apply*/
19692                                 {
19693                                     union meltparam_un argtab[3];
19694                                     memset(&argtab, 0, sizeof(argtab));
19695                                     /*^apply.arg*/
19696                                     argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
19697                                     /*^apply.arg*/
19698                                     argtab[1].meltbp_long = /*_#GET_INT__L31*/ meltfnum[19];
19699                                     /*^apply.arg*/
19700                                     argtab[2].meltbp_cstring =  "multimsend.xres";
19701                                     /*_.OUTPUT_LOCATION__V47*/
19702                                     meltfptr[31] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.OLOC__V9*/ meltfptr[5]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
19703                                 }
19704                                 ;
19705
19706                                 {
19707                                     MELT_LOCATION("warmelt-outobj.melt:4338:/ locexp");
19708                                     /*add2sbuf_strconst*/
19709                                     meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "restab["));
19710                                 }
19711                                 ;
19712
19713                                 {
19714                                     MELT_LOCATION("warmelt-outobj.melt:4339:/ locexp");
19715                                     meltgc_add_strbuf_dec((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#CURANK__L29*/ meltfnum[20]));
19716                                 }
19717                                 ;
19718
19719                                 {
19720                                     MELT_LOCATION("warmelt-outobj.melt:4340:/ locexp");
19721                                     /*add2sbuf_strconst*/
19722                                     meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "]."));
19723                                 }
19724                                 ;
19725
19726                                 MELT_CHECK_SIGNAL();
19727                                 ;
19728                                 /*_#NULL__L32*/
19729                                 meltfnum[17] =
19730                                     (/*null*/(/*_.CURES__V42*/ meltfptr[22]) == NULL);;
19731                                 MELT_LOCATION("warmelt-outobj.melt:4342:/ cond");
19732                                 /*cond*/
19733                                 if (/*_#NULL__L32*/ meltfnum[17]) /*then*/
19734                                     {
19735                                         /*^cond.then*/
19736                                         /*^block*/
19737                                         /*anyblock*/
19738                                         {
19739
19740
19741
19742
19743                                             {
19744                                                 MELT_LOCATION("warmelt-outobj.melt:4343:/ locexp");
19745                                                 /*add2sbuf_strconst*/
19746                                                 meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "meltbp_aptr = (melt_ptr_t*)NULL"));
19747                                             }
19748                                             ;
19749                                             /*clear*/ /*_._IFELSE___V48*/
19750                                             meltfptr[33] = 0 ;
19751                                             /*epilog*/
19752                                         }
19753                                         ;
19754                                     }
19755                                 else
19756                                     {
19757                                         MELT_LOCATION("warmelt-outobj.melt:4342:/ cond.else");
19758
19759                                         /*^block*/
19760                                         /*anyblock*/
19761                                         {
19762
19763
19764                                             MELT_CHECK_SIGNAL();
19765                                             ;
19766                                             /*_#eqeq__L33*/
19767                                             meltfnum[32] =
19768                                                 ((/*_.CURESTYP__V43*/ meltfptr[25]) == ((/*!CTYPE_VALUE*/ meltfrout->tabval[8])));;
19769                                             MELT_LOCATION("warmelt-outobj.melt:4345:/ cond");
19770                                             /*cond*/
19771                                             if (/*_#eqeq__L33*/ meltfnum[32]) /*then*/
19772                                                 {
19773                                                     /*^cond.then*/
19774                                                     /*^block*/
19775                                                     /*anyblock*/
19776                                                     {
19777
19778
19779                                                         {
19780                                                             MELT_LOCATION("warmelt-outobj.melt:4346:/ locexp");
19781                                                             /*add2sbuf_strconst*/
19782                                                             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "meltbp_aptr = (melt_ptr_t*) &"));
19783                                                         }
19784                                                         ;
19785                                                         /*_#GET_INT__L34*/
19786                                                         meltfnum[33] =
19787                                                             (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V17*/ meltfptr[16])));;
19788
19789                                                         MELT_CHECK_SIGNAL();
19790                                                         ;
19791                                                         MELT_LOCATION("warmelt-outobj.melt:4347:/ msend");
19792                                                         /*msend*/
19793                                                         {
19794                                                             union meltparam_un argtab[3];
19795                                                             memset(&argtab, 0, sizeof(argtab));
19796                                                             /*^ojbmsend.arg*/
19797                                                             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2];
19798                                                             /*^ojbmsend.arg*/
19799                                                             argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
19800                                                             /*^ojbmsend.arg*/
19801                                                             argtab[2].meltbp_long = /*_#GET_INT__L34*/ meltfnum[33];
19802                                                             /*_.OUTPUT_C_CODE__V50*/
19803                                                             meltfptr[30] = meltgc_send((melt_ptr_t)(/*_.CURES__V42*/ meltfptr[22]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[9])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
19804                                                         }
19805                                                         ;
19806                                                         MELT_LOCATION("warmelt-outobj.melt:4345:/ quasiblock");
19807
19808
19809                                                         /*_.PROGN___V51*/
19810                                                         meltfptr[26] = /*_.OUTPUT_C_CODE__V50*/ meltfptr[30];;
19811                                                         /*^compute*/
19812                                                         /*_._IFELSE___V49*/
19813                                                         meltfptr[36] = /*_.PROGN___V51*/ meltfptr[26];;
19814                                                         /*epilog*/
19815
19816                                                         MELT_LOCATION("warmelt-outobj.melt:4345:/ clear");
19817                                                         /*clear*/ /*_#GET_INT__L34*/
19818                                                         meltfnum[33] = 0 ;
19819                                                         /*^clear*/
19820                                                         /*clear*/ /*_.OUTPUT_C_CODE__V50*/
19821                                                         meltfptr[30] = 0 ;
19822                                                         /*^clear*/
19823                                                         /*clear*/ /*_.PROGN___V51*/
19824                                                         meltfptr[26] = 0 ;
19825                                                     }
19826                                                     ;
19827                                                 }
19828                                             else    /*^cond.else*/
19829                                                 {
19830
19831                                                     /*^block*/
19832                                                     /*anyblock*/
19833                                                     {
19834
19835                                                         MELT_LOCATION("warmelt-outobj.melt:4350:/ getslot");
19836                                                         {
19837                                                             melt_ptr_t slot=NULL, obj=NULL;
19838                                                             obj = (melt_ptr_t)(/*_.CURESTYP__V43*/ meltfptr[25]) /*=obj*/;
19839                                                             melt_object_get_field(slot,obj, 8, "CTYPE_RESFIELD");
19840                                                             /*_.CTYPE_RESFIELD__V52*/
19841                                                             meltfptr[30] = slot;
19842                                                         };
19843                                                         ;
19844
19845                                                         {
19846                                                             /*^locexp*/
19847                                                             /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]),
19848                                                                                                   melt_string_str((melt_ptr_t)(/*_.CTYPE_RESFIELD__V52*/ meltfptr[30])));
19849                                                         }
19850                                                         ;
19851
19852                                                         {
19853                                                             MELT_LOCATION("warmelt-outobj.melt:4351:/ locexp");
19854                                                             /*add2sbuf_strconst*/
19855                                                             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( " = "));
19856                                                         }
19857                                                         ;
19858                                                         /*_#GET_INT__L35*/
19859                                                         meltfnum[33] =
19860                                                             (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V17*/ meltfptr[16])));;
19861
19862                                                         MELT_CHECK_SIGNAL();
19863                                                         ;
19864                                                         MELT_LOCATION("warmelt-outobj.melt:4352:/ msend");
19865                                                         /*msend*/
19866                                                         {
19867                                                             union meltparam_un argtab[3];
19868                                                             memset(&argtab, 0, sizeof(argtab));
19869                                                             /*^ojbmsend.arg*/
19870                                                             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2];
19871                                                             /*^ojbmsend.arg*/
19872                                                             argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
19873                                                             /*^ojbmsend.arg*/
19874                                                             argtab[2].meltbp_long = /*_#GET_INT__L35*/ meltfnum[33];
19875                                                             /*_.OUTPUT_C_CODE__V53*/
19876                                                             meltfptr[26] = meltgc_send((melt_ptr_t)(/*_.CURES__V42*/ meltfptr[22]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[9])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
19877                                                         }
19878                                                         ;
19879                                                         MELT_LOCATION("warmelt-outobj.melt:4349:/ quasiblock");
19880
19881
19882                                                         /*_.PROGN___V54*/
19883                                                         meltfptr[53] = /*_.OUTPUT_C_CODE__V53*/ meltfptr[26];;
19884                                                         /*^compute*/
19885                                                         /*_._IFELSE___V49*/
19886                                                         meltfptr[36] = /*_.PROGN___V54*/ meltfptr[53];;
19887                                                         /*epilog*/
19888
19889                                                         MELT_LOCATION("warmelt-outobj.melt:4345:/ clear");
19890                                                         /*clear*/ /*_.CTYPE_RESFIELD__V52*/
19891                                                         meltfptr[30] = 0 ;
19892                                                         /*^clear*/
19893                                                         /*clear*/ /*_#GET_INT__L35*/
19894                                                         meltfnum[33] = 0 ;
19895                                                         /*^clear*/
19896                                                         /*clear*/ /*_.OUTPUT_C_CODE__V53*/
19897                                                         meltfptr[26] = 0 ;
19898                                                         /*^clear*/
19899                                                         /*clear*/ /*_.PROGN___V54*/
19900                                                         meltfptr[53] = 0 ;
19901                                                     }
19902                                                     ;
19903                                                 }
19904                                             ;
19905                                             /*_._IFELSE___V48*/
19906                                             meltfptr[33] = /*_._IFELSE___V49*/ meltfptr[36];;
19907                                             /*epilog*/
19908
19909                                             MELT_LOCATION("warmelt-outobj.melt:4342:/ clear");
19910                                             /*clear*/ /*_#eqeq__L33*/
19911                                             meltfnum[32] = 0 ;
19912                                             /*^clear*/
19913                                             /*clear*/ /*_._IFELSE___V49*/
19914                                             meltfptr[36] = 0 ;
19915                                         }
19916                                         ;
19917                                     }
19918                                 ;
19919
19920                                 {
19921                                     MELT_LOCATION("warmelt-outobj.melt:4354:/ locexp");
19922                                     /*add2sbuf_strconst*/
19923                                     meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( ";"));
19924                                 }
19925                                 ;
19926
19927                                 MELT_LOCATION("warmelt-outobj.melt:4335:/ clear");
19928                                 /*clear*/ /*_.CURESTYP__V43*/
19929                                 meltfptr[25] = 0 ;
19930                                 /*^clear*/
19931                                 /*clear*/ /*_.IFCPP___V44*/
19932                                 meltfptr[27] = 0 ;
19933                                 /*^clear*/
19934                                 /*clear*/ /*_#GET_INT__L31*/
19935                                 meltfnum[19] = 0 ;
19936                                 /*^clear*/
19937                                 /*clear*/ /*_.OUTPUT_LOCATION__V47*/
19938                                 meltfptr[31] = 0 ;
19939                                 /*^clear*/
19940                                 /*clear*/ /*_#NULL__L32*/
19941                                 meltfnum[17] = 0 ;
19942                                 /*^clear*/
19943                                 /*clear*/ /*_._IFELSE___V48*/
19944                                 meltfptr[33] = 0 ;
19945                                 if (/*_#CURANK__L29*/ meltfnum[20]<0) break;
19946                             } /* end  foreach_in_multiple meltcit3__EACHTUP */
19947
19948                         /*citerepilog*/
19949
19950                         MELT_LOCATION("warmelt-outobj.melt:4332:/ clear");
19951                         /*clear*/ /*_.CURES__V42*/
19952                         meltfptr[22] = 0 ;
19953                         /*^clear*/
19954                         /*clear*/ /*_#CURANK__L29*/
19955                         meltfnum[20] = 0 ;
19956                     } /*endciterblock FOREACH_IN_MULTIPLE*/
19957                     ;
19958                     MELT_LOCATION("warmelt-outobj.melt:4331:/ quasiblock");
19959
19960
19961                     /*epilog*/
19962                 }
19963                 ;
19964             } /*noelse*/
19965         ;
19966         /*_#GET_INT__L36*/
19967         meltfnum[33] =
19968             (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V17*/ meltfptr[16])));;
19969
19970         MELT_CHECK_SIGNAL();
19971         ;
19972         MELT_LOCATION("warmelt-outobj.melt:4358:/ apply");
19973         /*apply*/
19974         {
19975             union meltparam_un argtab[3];
19976             memset(&argtab, 0, sizeof(argtab));
19977             /*^apply.arg*/
19978             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
19979             /*^apply.arg*/
19980             argtab[1].meltbp_long = /*_#GET_INT__L36*/ meltfnum[33];
19981             /*^apply.arg*/
19982             argtab[2].meltbp_cstring =  "multimsend.send";
19983             /*_.OUTPUT_LOCATION__V55*/
19984             meltfptr[30] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.OLOC__V9*/ meltfptr[5]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
19985         }
19986         ;
19987         /*citerblock FOREACH_PAIR_COMPONENT_IN_LIST*/
19988         {
19989             /* start foreach_pair_component_in_list meltcit4__EACHLIST */
19990             for (/*_.CURPAIR__V56*/ meltfptr[26] = melt_list_first( (melt_ptr_t)/*_.ODEST__V10*/ meltfptr[9]);
19991                                     melt_magic_discr((melt_ptr_t) /*_.CURPAIR__V56*/ meltfptr[26]) == MELTOBMAG_PAIR;
19992                                     /*_.CURPAIR__V56*/ meltfptr[26] = melt_pair_tail((melt_ptr_t) /*_.CURPAIR__V56*/ meltfptr[26]))
19993                 {
19994                     /*_.CURDEST__V57*/ meltfptr[53] = melt_pair_head((melt_ptr_t) /*_.CURPAIR__V56*/ meltfptr[26]);
19995
19996
19997                     /*_#GET_INT__L37*/
19998                     meltfnum[32] =
19999                         (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V17*/ meltfptr[16])));;
20000
20001                     MELT_CHECK_SIGNAL();
20002                     ;
20003                     MELT_LOCATION("warmelt-outobj.melt:4363:/ msend");
20004                     /*msend*/
20005                     {
20006                         union meltparam_un argtab[3];
20007                         memset(&argtab, 0, sizeof(argtab));
20008                         /*^ojbmsend.arg*/
20009                         argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2];
20010                         /*^ojbmsend.arg*/
20011                         argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
20012                         /*^ojbmsend.arg*/
20013                         argtab[2].meltbp_long = /*_#GET_INT__L37*/ meltfnum[32];
20014                         /*_.OUTPUT_C_CODE__V58*/
20015                         meltfptr[36] = meltgc_send((melt_ptr_t)(/*_.CURDEST__V57*/ meltfptr[53]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[9])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
20016                     }
20017                     ;
20018
20019                     {
20020                         MELT_LOCATION("warmelt-outobj.melt:4364:/ locexp");
20021                         /*add2sbuf_strconst*/
20022                         meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( " = "));
20023                     }
20024                     ;
20025                 } /* end foreach_pair_component_in_list meltcit4__EACHLIST */
20026             /*_.CURPAIR__V56*/ meltfptr[26] = NULL;
20027             /*_.CURDEST__V57*/
20028             meltfptr[53] = NULL;
20029
20030
20031             /*citerepilog*/
20032
20033             MELT_LOCATION("warmelt-outobj.melt:4360:/ clear");
20034             /*clear*/ /*_.CURPAIR__V56*/
20035             meltfptr[26] = 0 ;
20036             /*^clear*/
20037             /*clear*/ /*_.CURDEST__V57*/
20038             meltfptr[53] = 0 ;
20039             /*^clear*/
20040             /*clear*/ /*_#GET_INT__L37*/
20041             meltfnum[32] = 0 ;
20042             /*^clear*/
20043             /*clear*/ /*_.OUTPUT_C_CODE__V58*/
20044             meltfptr[36] = 0 ;
20045         } /*endciterblock FOREACH_PAIR_COMPONENT_IN_LIST*/
20046         ;
20047
20048         {
20049             MELT_LOCATION("warmelt-outobj.melt:4366:/ locexp");
20050             /*add2sbuf_strconst*/
20051             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( " meltgc_send ((melt_ptr_t)("));
20052         }
20053         ;
20054         /*_#plI__L38*/
20055         meltfnum[19] =
20056             ((1) + (/*_#DEPTH__L1*/ meltfnum[0]));;
20057
20058         MELT_CHECK_SIGNAL();
20059         ;
20060         MELT_LOCATION("warmelt-outobj.melt:4367:/ msend");
20061         /*msend*/
20062         {
20063             union meltparam_un argtab[3];
20064             memset(&argtab, 0, sizeof(argtab));
20065             /*^ojbmsend.arg*/
20066             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2];
20067             /*^ojbmsend.arg*/
20068             argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
20069             /*^ojbmsend.arg*/
20070             argtab[2].meltbp_long = /*_#plI__L38*/ meltfnum[19];
20071             /*_.OUTPUT_C_CODE__V59*/
20072             meltfptr[25] = meltgc_send((melt_ptr_t)(/*_.ORECV__V12*/ meltfptr[11]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[9])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
20073         }
20074         ;
20075
20076         {
20077             MELT_LOCATION("warmelt-outobj.melt:4368:/ locexp");
20078             /*add2sbuf_strconst*/
20079             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "), ((melt_ptr_t)("));
20080         }
20081         ;
20082         /*_#plI__L39*/
20083         meltfnum[17] =
20084             ((1) + (/*_#DEPTH__L1*/ meltfnum[0]));;
20085
20086         MELT_CHECK_SIGNAL();
20087         ;
20088         MELT_LOCATION("warmelt-outobj.melt:4370:/ msend");
20089         /*msend*/
20090         {
20091             union meltparam_un argtab[3];
20092             memset(&argtab, 0, sizeof(argtab));
20093             /*^ojbmsend.arg*/
20094             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2];
20095             /*^ojbmsend.arg*/
20096             argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
20097             /*^ojbmsend.arg*/
20098             argtab[2].meltbp_long = /*_#plI__L39*/ meltfnum[17];
20099             /*_.OUTPUT_C_CODE__V60*/
20100             meltfptr[27] = meltgc_send((melt_ptr_t)(/*_.OSEL__V11*/ meltfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[9])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
20101         }
20102         ;
20103
20104         {
20105             MELT_LOCATION("warmelt-outobj.melt:4371:/ locexp");
20106             /*add2sbuf_strconst*/
20107             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( ")), ("));
20108         }
20109         ;
20110         /*citerblock FOREACH_PAIR_COMPONENT_IN_LIST*/
20111         {
20112             /* start foreach_pair_component_in_list meltcit5__EACHLIST */
20113             for (/*_.CURPAIR__V61*/ meltfptr[31] = melt_list_first( (melt_ptr_t)/*_.PARAMDESCLIST__V15*/ meltfptr[14]);
20114                                     melt_magic_discr((melt_ptr_t) /*_.CURPAIR__V61*/ meltfptr[31]) == MELTOBMAG_PAIR;
20115                                     /*_.CURPAIR__V61*/ meltfptr[31] = melt_pair_tail((melt_ptr_t) /*_.CURPAIR__V61*/ meltfptr[31]))
20116                 {
20117                     /*_.PARD__V62*/ meltfptr[33] = melt_pair_head((melt_ptr_t) /*_.CURPAIR__V61*/ meltfptr[31]);
20118
20119
20120
20121                     {
20122                         MELT_LOCATION("warmelt-outobj.melt:4376:/ locexp");
20123                         /*add2sbuf_string*/
20124                         meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]),
20125                                           melt_string_str((melt_ptr_t)(/*_.PARD__V62*/ meltfptr[33])));
20126                     }
20127                     ;
20128
20129                     {
20130                         MELT_LOCATION("warmelt-outobj.melt:4377:/ locexp");
20131                         /*add2sbuf_strconst*/
20132                         meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( " "));
20133                     }
20134                     ;
20135                 } /* end foreach_pair_component_in_list meltcit5__EACHLIST */
20136             /*_.CURPAIR__V61*/ meltfptr[31] = NULL;
20137             /*_.PARD__V62*/
20138             meltfptr[33] = NULL;
20139
20140
20141             /*citerepilog*/
20142
20143             MELT_LOCATION("warmelt-outobj.melt:4373:/ clear");
20144             /*clear*/ /*_.CURPAIR__V61*/
20145             meltfptr[31] = 0 ;
20146             /*^clear*/
20147             /*clear*/ /*_.PARD__V62*/
20148             meltfptr[33] = 0 ;
20149         } /*endciterblock FOREACH_PAIR_COMPONENT_IN_LIST*/
20150         ;
20151
20152         {
20153             MELT_LOCATION("warmelt-outobj.melt:4378:/ locexp");
20154             /*add2sbuf_strconst*/
20155             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "\"\"), "));
20156         }
20157         ;
20158
20159         MELT_CHECK_SIGNAL();
20160         ;
20161         /*_#gtI__L40*/
20162         meltfnum[39] =
20163             ((/*_#NBARG__L3*/ meltfnum[1]) > (0));;
20164         MELT_LOCATION("warmelt-outobj.melt:4380:/ cond");
20165         /*cond*/
20166         if (/*_#gtI__L40*/ meltfnum[39]) /*then*/
20167             {
20168                 /*^cond.then*/
20169                 /*^block*/
20170                 /*anyblock*/
20171                 {
20172
20173
20174                     {
20175                         MELT_LOCATION("warmelt-outobj.melt:4381:/ locexp");
20176                         /*add2sbuf_strconst*/
20177                         meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "argtab, ("));
20178                     }
20179                     ;
20180                     /*epilog*/
20181                 }
20182                 ;
20183             }
20184         else
20185             {
20186                 MELT_LOCATION("warmelt-outobj.melt:4380:/ cond.else");
20187
20188                 /*^block*/
20189                 /*anyblock*/
20190                 {
20191
20192
20193                     {
20194                         MELT_LOCATION("warmelt-outobj.melt:4382:/ locexp");
20195                         /*add2sbuf_strconst*/
20196                         meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "(union meltparam_un*)0, ("));
20197                     }
20198                     ;
20199                     /*epilog*/
20200                 }
20201                 ;
20202             }
20203         ;
20204         /*citerblock FOREACH_PAIR_COMPONENT_IN_LIST*/
20205         {
20206             /* start foreach_pair_component_in_list meltcit6__EACHLIST */
20207             for (/*_.CURPAIR__V63*/ meltfptr[62] = melt_list_first( (melt_ptr_t)/*_.RESDESCLIST__V16*/ meltfptr[15]);
20208                                     melt_magic_discr((melt_ptr_t) /*_.CURPAIR__V63*/ meltfptr[62]) == MELTOBMAG_PAIR;
20209                                     /*_.CURPAIR__V63*/ meltfptr[62] = melt_pair_tail((melt_ptr_t) /*_.CURPAIR__V63*/ meltfptr[62]))
20210                 {
20211                     /*_.RESD__V64*/ meltfptr[63] = melt_pair_head((melt_ptr_t) /*_.CURPAIR__V63*/ meltfptr[62]);
20212
20213
20214
20215                     {
20216                         MELT_LOCATION("warmelt-outobj.melt:4387:/ locexp");
20217                         /*add2sbuf_string*/
20218                         meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]),
20219                                           melt_string_str((melt_ptr_t)(/*_.RESD__V64*/ meltfptr[63])));
20220                     }
20221                     ;
20222
20223                     {
20224                         MELT_LOCATION("warmelt-outobj.melt:4388:/ locexp");
20225                         /*add2sbuf_strconst*/
20226                         meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( " "));
20227                     }
20228                     ;
20229                 } /* end foreach_pair_component_in_list meltcit6__EACHLIST */
20230             /*_.CURPAIR__V63*/ meltfptr[62] = NULL;
20231             /*_.RESD__V64*/
20232             meltfptr[63] = NULL;
20233
20234
20235             /*citerepilog*/
20236
20237             MELT_LOCATION("warmelt-outobj.melt:4384:/ clear");
20238             /*clear*/ /*_.CURPAIR__V63*/
20239             meltfptr[62] = 0 ;
20240             /*^clear*/
20241             /*clear*/ /*_.RESD__V64*/
20242             meltfptr[63] = 0 ;
20243         } /*endciterblock FOREACH_PAIR_COMPONENT_IN_LIST*/
20244         ;
20245
20246         {
20247             MELT_LOCATION("warmelt-outobj.melt:4389:/ locexp");
20248             /*add2sbuf_strconst*/
20249             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "\"\"), "));
20250         }
20251         ;
20252
20253         MELT_CHECK_SIGNAL();
20254         ;
20255         /*_#gtI__L41*/
20256         meltfnum[40] =
20257             ((/*_#NBXRES__L4*/ meltfnum[3]) > (0));;
20258         MELT_LOCATION("warmelt-outobj.melt:4391:/ cond");
20259         /*cond*/
20260         if (/*_#gtI__L41*/ meltfnum[40]) /*then*/
20261             {
20262                 /*^cond.then*/
20263                 /*^block*/
20264                 /*anyblock*/
20265                 {
20266
20267
20268                     {
20269                         MELT_LOCATION("warmelt-outobj.melt:4392:/ locexp");
20270                         /*add2sbuf_strconst*/
20271                         meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "restab"));
20272                     }
20273                     ;
20274                     /*epilog*/
20275                 }
20276                 ;
20277             }
20278         else
20279             {
20280                 MELT_LOCATION("warmelt-outobj.melt:4391:/ cond.else");
20281
20282                 /*^block*/
20283                 /*anyblock*/
20284                 {
20285
20286
20287                     {
20288                         MELT_LOCATION("warmelt-outobj.melt:4393:/ locexp");
20289                         /*add2sbuf_strconst*/
20290                         meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "(union meltparam_un*)0"));
20291                     }
20292                     ;
20293                     /*epilog*/
20294                 }
20295                 ;
20296             }
20297         ;
20298
20299         {
20300             MELT_LOCATION("warmelt-outobj.melt:4394:/ locexp");
20301             /*add2sbuf_strconst*/
20302             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( ");"));
20303         }
20304         ;
20305         /*_#plI__L42*/
20306         meltfnum[41] =
20307             ((1) + (/*_#DEPTH__L1*/ meltfnum[0]));;
20308
20309         {
20310             MELT_LOCATION("warmelt-outobj.melt:4395:/ locexp");
20311             meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#plI__L42*/ meltfnum[41]), 0);
20312         }
20313         ;
20314
20315         {
20316             MELT_LOCATION("warmelt-outobj.melt:4396:/ locexp");
20317             /*add2sbuf_strconst*/
20318             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "}"));
20319         }
20320         ;
20321
20322         {
20323             MELT_LOCATION("warmelt-outobj.melt:4397:/ locexp");
20324             meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (/*_#DEPTH__L1*/ meltfnum[0]), 0);
20325         }
20326         ;
20327
20328 #if MELT_HAVE_DEBUG
20329         MELT_LOCATION("warmelt-outobj.melt:4398:/ cppif.then");
20330         /*^block*/
20331         /*anyblock*/
20332         {
20333
20334
20335             MELT_CHECK_SIGNAL();
20336             ;
20337             /*_#STRBUF_USEDLENGTH__L43*/
20338             meltfnum[42] =
20339                 melt_strbuf_usedlength((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]));;
20340             MELT_LOCATION("warmelt-outobj.melt:4399:/ cond");
20341             /*cond*/
20342             if (
20343                 /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[10])),
20344                                               (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[11])))
20345             ) /*then*/
20346                 {
20347                     /*^cond.then*/
20348                     /*^getslot*/
20349                     {
20350                         melt_ptr_t slot=NULL, obj=NULL;
20351                         obj = (melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[10])) /*=obj*/;
20352                         melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE");
20353                         /*_.REFERENCED_VALUE__V66*/
20354                         meltfptr[65] = slot;
20355                     };
20356                     ;
20357                 }
20358             else    /*^cond.else*/
20359                 {
20360
20361                     /*_.REFERENCED_VALUE__V66*/ meltfptr[65] =  /*reallynil*/ NULL ;;
20362                 }
20363             ;
20364             /*^compute*/
20365             /*_#GET_INT__L44*/
20366             meltfnum[43] =
20367                 (melt_get_int((melt_ptr_t)(/*_.REFERENCED_VALUE__V66*/ meltfptr[65])));;
20368             /*^compute*/
20369             /*_#ltI__L45*/
20370             meltfnum[44] =
20371                 ((/*_#STRBUF_USEDLENGTH__L43*/ meltfnum[42]) < (/*_#GET_INT__L44*/ meltfnum[43]));;
20372             MELT_LOCATION("warmelt-outobj.melt:4398:/ cond");
20373             /*cond*/
20374             if (/*_#ltI__L45*/ meltfnum[44]) /*then*/
20375                 {
20376                     /*^cond.then*/
20377                     /*_._IFELSE___V67*/ meltfptr[66] = (/*nil*/NULL);;
20378                 }
20379             else
20380                 {
20381                     MELT_LOCATION("warmelt-outobj.melt:4398:/ cond.else");
20382
20383                     /*^block*/
20384                     /*anyblock*/
20385                     {
20386
20387
20388                         MELT_CHECK_SIGNAL();
20389                         ;
20390                         /*^apply*/
20391                         /*apply*/
20392                         {
20393                             union meltparam_un argtab[4];
20394                             memset(&argtab, 0, sizeof(argtab));
20395                             /*^apply.arg*/
20396                             argtab[0].meltbp_cstring =  "check limited implbuf";
20397                             /*^apply.arg*/
20398                             argtab[1].meltbp_cstring =  "warmelt-outobj.melt";
20399                             /*^apply.arg*/
20400                             argtab[2].meltbp_long = 4398;
20401                             /*^apply.arg*/
20402                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
20403                             /*_.MELT_ASSERT_FAILURE_FUN__V68*/
20404                             meltfptr[67] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
20405                         }
20406                         ;
20407                         /*_._IFELSE___V67*/
20408                         meltfptr[66] = /*_.MELT_ASSERT_FAILURE_FUN__V68*/ meltfptr[67];;
20409                         /*epilog*/
20410
20411                         MELT_LOCATION("warmelt-outobj.melt:4398:/ clear");
20412                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V68*/
20413                         meltfptr[67] = 0 ;
20414                     }
20415                     ;
20416                 }
20417             ;
20418             /*_.IFCPP___V65*/
20419             meltfptr[64] = /*_._IFELSE___V67*/ meltfptr[66];;
20420             /*epilog*/
20421
20422             MELT_LOCATION("warmelt-outobj.melt:4398:/ clear");
20423             /*clear*/ /*_#STRBUF_USEDLENGTH__L43*/
20424             meltfnum[42] = 0 ;
20425             /*^clear*/
20426             /*clear*/ /*_.REFERENCED_VALUE__V66*/
20427             meltfptr[65] = 0 ;
20428             /*^clear*/
20429             /*clear*/ /*_#GET_INT__L44*/
20430             meltfnum[43] = 0 ;
20431             /*^clear*/
20432             /*clear*/ /*_#ltI__L45*/
20433             meltfnum[44] = 0 ;
20434             /*^clear*/
20435             /*clear*/ /*_._IFELSE___V67*/
20436             meltfptr[66] = 0 ;
20437         }
20438
20439 #else /*MELT_HAVE_DEBUG*/
20440         /*^cppif.else*/
20441         /*_.IFCPP___V65*/ meltfptr[64] = (/*nil*/NULL);
20442 #endif /*MELT_HAVE_DEBUG*/
20443         ;
20444         /*^compute*/
20445         /*_.LET___V8*/
20446         meltfptr[6] = /*_.IFCPP___V65*/ meltfptr[64];;
20447
20448         MELT_LOCATION("warmelt-outobj.melt:4258:/ clear");
20449         /*clear*/ /*_.OLOC__V9*/
20450         meltfptr[5] = 0 ;
20451         /*^clear*/
20452         /*clear*/ /*_.ODEST__V10*/
20453         meltfptr[9] = 0 ;
20454         /*^clear*/
20455         /*clear*/ /*_.OSEL__V11*/
20456         meltfptr[10] = 0 ;
20457         /*^clear*/
20458         /*clear*/ /*_.ORECV__V12*/
20459         meltfptr[11] = 0 ;
20460         /*^clear*/
20461         /*clear*/ /*_.OARGS__V13*/
20462         meltfptr[12] = 0 ;
20463         /*^clear*/
20464         /*clear*/ /*_.OXRES__V14*/
20465         meltfptr[13] = 0 ;
20466         /*^clear*/
20467         /*clear*/ /*_#NBARG__L3*/
20468         meltfnum[1] = 0 ;
20469         /*^clear*/
20470         /*clear*/ /*_#NBXRES__L4*/
20471         meltfnum[3] = 0 ;
20472         /*^clear*/
20473         /*clear*/ /*_.PARAMDESCLIST__V15*/
20474         meltfptr[14] = 0 ;
20475         /*^clear*/
20476         /*clear*/ /*_.RESDESCLIST__V16*/
20477         meltfptr[15] = 0 ;
20478         /*^clear*/
20479         /*clear*/ /*_#plI__L5*/
20480         meltfnum[4] = 0 ;
20481         /*^clear*/
20482         /*clear*/ /*_.BOXDEPTHP1__V17*/
20483         meltfptr[16] = 0 ;
20484         /*^clear*/
20485         /*clear*/ /*_.OUTPUT_LOCATION__V18*/
20486         meltfptr[17] = 0 ;
20487         /*^clear*/
20488         /*clear*/ /*_._IF___V19*/
20489         meltfptr[18] = 0 ;
20490         /*^clear*/
20491         /*clear*/ /*_#plI__L6*/
20492         meltfnum[5] = 0 ;
20493         /*^clear*/
20494         /*clear*/ /*_#gtI__L7*/
20495         meltfnum[6] = 0 ;
20496         /*^clear*/
20497         /*clear*/ /*_#gtI__L9*/
20498         meltfnum[7] = 0 ;
20499         /*^clear*/
20500         /*clear*/ /*_#gtI__L12*/
20501         meltfnum[9] = 0 ;
20502         /*^clear*/
20503         /*clear*/ /*_#gtI__L14*/
20504         meltfnum[12] = 0 ;
20505         /*^clear*/
20506         /*clear*/ /*_#gtI__L16*/
20507         meltfnum[14] = 0 ;
20508         /*^clear*/
20509         /*clear*/ /*_#gtI__L28*/
20510         meltfnum[21] = 0 ;
20511         /*^clear*/
20512         /*clear*/ /*_#GET_INT__L36*/
20513         meltfnum[33] = 0 ;
20514         /*^clear*/
20515         /*clear*/ /*_.OUTPUT_LOCATION__V55*/
20516         meltfptr[30] = 0 ;
20517         /*^clear*/
20518         /*clear*/ /*_#plI__L38*/
20519         meltfnum[19] = 0 ;
20520         /*^clear*/
20521         /*clear*/ /*_.OUTPUT_C_CODE__V59*/
20522         meltfptr[25] = 0 ;
20523         /*^clear*/
20524         /*clear*/ /*_#plI__L39*/
20525         meltfnum[17] = 0 ;
20526         /*^clear*/
20527         /*clear*/ /*_.OUTPUT_C_CODE__V60*/
20528         meltfptr[27] = 0 ;
20529         /*^clear*/
20530         /*clear*/ /*_#gtI__L40*/
20531         meltfnum[39] = 0 ;
20532         /*^clear*/
20533         /*clear*/ /*_#gtI__L41*/
20534         meltfnum[40] = 0 ;
20535         /*^clear*/
20536         /*clear*/ /*_#plI__L42*/
20537         meltfnum[41] = 0 ;
20538         /*^clear*/
20539         /*clear*/ /*_.IFCPP___V65*/
20540         meltfptr[64] = 0 ;
20541
20542         MELT_CHECK_SIGNAL();
20543         ;
20544         MELT_LOCATION("warmelt-outobj.melt:4256:/ quasiblock");
20545
20546
20547         /*_._RETVAL___V1*/
20548         meltfptr[0] = /*_.LET___V8*/ meltfptr[6];;
20549
20550         {
20551             MELT_LOCATION("warmelt-outobj.melt:4256:/ locexp");
20552             /*ochecknores compilobj_nrep_return*/
20553 #if MELT_HAVE_DEBUG
20554             if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
20555                 melt_warn_for_no_expected_secondary_results();
20556             /* we warned when secondary results are expected but not returned. */
20557 #endif /*MELT_HAVE_DEBUG*/
20558             ;
20559         }
20560         ;
20561         /*^finalreturn*/
20562         ;
20563         /*finalret*/
20564         goto meltlabend_rout ;
20565         /*epilog*/
20566
20567         /*^clear*/
20568         /*clear*/ /*_.IFCPP___V5*/
20569         meltfptr[4] = 0 ;
20570         /*^clear*/
20571         /*clear*/ /*_.LET___V8*/
20572         meltfptr[6] = 0 ;
20573     }
20574
20575     ;
20576     goto meltlabend_rout;
20577 meltlabend_rout:
20578     melt_trace_end("OUTPUCOD_OBJMULTIMSEND", meltcallcount);
20579     melt_blocklevel_signals = current_blocklevel_signals_meltrout_91_WARMELTmiOUTOBJ_OUTPUCOD_OBJMULTIMSEND_melt;
20580     return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]);
20581 #undef meltcallcount
20582 #undef meltfram__
20583 #undef MELTFRAM_NBVARNUM
20584 #undef MELTFRAM_NBVARPTR
20585 } /*end meltrout_91_WARMELTmiOUTOBJ_OUTPUCOD_OBJMULTIMSEND*/
20586
20587
20588
20589
20590
20591
20592 melt_ptr_t MELT_MODULE_VISIBILITY
20593 meltrout_92_WARMELTmiOUTOBJ_OUTPUCOD_OBJCLEAR(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_,
20594         const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_)
20595 {
20596     long current_blocklevel_signals_meltrout_92_WARMELTmiOUTOBJ_OUTPUCOD_OBJCLEAR_melt =  melt_blocklevel_signals;
20597
20598 #if MELT_HAVE_DEBUG
20599     static long melt_call_counter__;
20600     long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__;
20601 #undef meltcallcount
20602 #define meltcallcount melt_thiscallcounter__
20603 #else
20604 #undef meltcallcount
20605 #define meltcallcount 0L
20606 #endif
20607 //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538
20608
20609     /* start of frame for routine meltrout_92_WARMELTmiOUTOBJ_OUTPUCOD_OBJCLEAR fromline 1752 */
20610
20611     /** start of frame for meltrout_92_WARMELTmiOUTOBJ_OUTPUCOD_OBJCLEAR of CLASS_PROCROUTINEOBJ from 1555**/
20612
20613     /*curframdeclclassy*/ class MeltFrame_meltrout_92_WARMELTmiOUTOBJ_OUTPUCOD_OBJCLEAR// fromline 1568
20614         : public Melt_CallFrameWithValues<18>
20615     {
20616     public: /* fromline 1572*/
20617         long mcfr_varnum[6];
20618         /*classy others*/
20619         long _meltsparel;
20620         void melt_mark_stuff (void)
20621         {
20622         } /*end melt_mark_stuff*/
20623         virtual void melt_mark_ggc_data (void)
20624         {
20625             melt_mark_values ();
20626             melt_mark_stuff ();
20627         }; /*end melt_mark_ggc_data*/
20628         MeltFrame_meltrout_92_WARMELTmiOUTOBJ_OUTPUCOD_OBJCLEAR(meltclosure_ptr_t clos) //the closure constructor fromline 1630
20629             : Melt_CallFrameWithValues<18> (
20630 #if ENABLE_CHECKING /*fromline 1634*/
20631                 __FILE__, __LINE__,
20632 #endif /* ENABLE_CHECKING fromline 1638*/
20633                 sizeof(MeltFrame_meltrout_92_WARMELTmiOUTOBJ_OUTPUCOD_OBJCLEAR), clos) {};
20634         MeltFrame_meltrout_92_WARMELTmiOUTOBJ_OUTPUCOD_OBJCLEAR() //the constructor fromline 1642
20635             : Melt_CallFrameWithValues<18> (
20636 #if ENABLE_CHECKING /*fromline 1646*/
20637                 __FILE__, __LINE__,
20638 #endif /* ENABLE_CHECKING fromline 1650*/
20639                 sizeof(MeltFrame_meltrout_92_WARMELTmiOUTOBJ_OUTPUCOD_OBJCLEAR)) {};
20640 #if ENABLE_CHECKING /*fromline 1654*/
20641         MeltFrame_meltrout_92_WARMELTmiOUTOBJ_OUTPUCOD_OBJCLEAR(const char*fil, int lin) //the constructor fromline 1656
20642             : Melt_CallFrameWithValues<18> (fil,lin, sizeof(MeltFrame_meltrout_92_WARMELTmiOUTOBJ_OUTPUCOD_OBJCLEAR)) {};
20643         MeltFrame_meltrout_92_WARMELTmiOUTOBJ_OUTPUCOD_OBJCLEAR(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661
20644             : Melt_CallFrameWithValues<18> (fil,lin, sizeof(MeltFrame_meltrout_92_WARMELTmiOUTOBJ_OUTPUCOD_OBJCLEAR), clos) {};
20645 #endif /* ENABLE_CHECKING fromline 1666*/
20646
20647     }; // end  class MeltFrame_meltrout_92_WARMELTmiOUTOBJ_OUTPUCOD_OBJCLEAR
20648
20649
20650     /** end of frame for meltrout_92_WARMELTmiOUTOBJ_OUTPUCOD_OBJCLEAR fromline 1697**/
20651
20652     /* end of frame for routine meltrout_92_WARMELTmiOUTOBJ_OUTPUCOD_OBJCLEAR fromline 1756 */
20653
20654     /* classy proc frame meltrout_92_WARMELTmiOUTOBJ_OUTPUCOD_OBJCLEAR */
20655     MeltFrame_meltrout_92_WARMELTmiOUTOBJ_OUTPUCOD_OBJCLEAR
20656     meltfram__ /*declfrastruct fromline 1780*/
20657     /*classyprocarg meltrout_92_WARMELTmiOUTOBJ_OUTPUCOD_OBJCLEAR fromline 1785*/
20658 #if ENABLE_CHECKING
20659     (__FILE__, __LINE__, meltclosp_) /* fromline 1789*/
20660 #else /*ENABLE_CHECKING */
20661     (meltclosp_) /* fromline 1793*/
20662 #endif /*ENABLE_CHECKING */
20663
20664     ;
20665 #define meltframe meltfram__
20666
20667     melt_trace_start("OUTPUCOD_OBJCLEAR", meltcallcount);
20668     /*use arguments*/
20669     (void) meltclosp_;
20670     (void)meltfirstargp_;
20671     (void)meltxargdescr_;
20672     (void)meltxargtab_;
20673     (void)meltxresdescr_;
20674     (void)meltxrestab_;
20675     /*getargs*/
20676
20677     /*getarg#0*/
20678     MELT_LOCATION("warmelt-outobj.melt:4406:/ getarg");
20679     /*_.OCLEAR__V2*/
20680     meltfptr[1] = (melt_ptr_t) meltfirstargp_;
20681
20682     /*getarg#1*/
20683     /*^getarg*/
20684     if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs;
20685     /*_.DECLBUF__V3*/
20686     meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
20687     gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2])) != NULL);
20688
20689
20690     /*getarg#2*/
20691     /*^getarg*/
20692     if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs;
20693     /*_.IMPLBUF__V4*/
20694     meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL;
20695     gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3])) != NULL);
20696
20697
20698     /*getarg#3*/
20699     /*^getarg*/
20700     if (meltxargdescr_[2] != MELTBPAR_LONG) goto meltlab_endgetargs;
20701     /*_#DEPTH__L1*/
20702     meltfnum[0] = meltxargtab_[2].meltbp_long;
20703     ;
20704     goto meltlab_endgetargs;
20705 meltlab_endgetargs:
20706     ;
20707     /*body*/
20708     /*^block*/
20709     /*anyblock*/
20710     {
20711
20712
20713 #if MELT_HAVE_DEBUG
20714         MELT_LOCATION("warmelt-outobj.melt:4407:/ cppif.then");
20715         /*^block*/
20716         /*anyblock*/
20717         {
20718
20719
20720             MELT_CHECK_SIGNAL();
20721             ;
20722             /*_#IS_A__L2*/
20723             meltfnum[1] =
20724                 melt_is_instance_of((melt_ptr_t)(/*_.OCLEAR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_OBJCLEAR*/ meltfrout->tabval[0])));;
20725             MELT_LOCATION("warmelt-outobj.melt:4407:/ cond");
20726             /*cond*/
20727             if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/
20728                 {
20729                     /*^cond.then*/
20730                     /*_._IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);;
20731                 }
20732             else
20733                 {
20734                     MELT_LOCATION("warmelt-outobj.melt:4407:/ cond.else");
20735
20736                     /*^block*/
20737                     /*anyblock*/
20738                     {
20739
20740
20741                         MELT_CHECK_SIGNAL();
20742                         ;
20743                         /*^apply*/
20744                         /*apply*/
20745                         {
20746                             union meltparam_un argtab[4];
20747                             memset(&argtab, 0, sizeof(argtab));
20748                             /*^apply.arg*/
20749                             argtab[0].meltbp_cstring =  "check oclear";
20750                             /*^apply.arg*/
20751                             argtab[1].meltbp_cstring =  "warmelt-outobj.melt";
20752                             /*^apply.arg*/
20753                             argtab[2].meltbp_long = 4407;
20754                             /*^apply.arg*/
20755                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OCLEAR__V2*/ meltfptr[1];
20756                             /*_.MELT_ASSERT_FAILURE_FUN__V7*/
20757                             meltfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
20758                         }
20759                         ;
20760                         /*_._IFELSE___V6*/
20761                         meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6];;
20762                         /*epilog*/
20763
20764                         MELT_LOCATION("warmelt-outobj.melt:4407:/ clear");
20765                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V7*/
20766                         meltfptr[6] = 0 ;
20767                     }
20768                     ;
20769                 }
20770             ;
20771             /*_.IFCPP___V5*/
20772             meltfptr[4] = /*_._IFELSE___V6*/ meltfptr[5];;
20773             /*epilog*/
20774
20775             MELT_LOCATION("warmelt-outobj.melt:4407:/ clear");
20776             /*clear*/ /*_#IS_A__L2*/
20777             meltfnum[1] = 0 ;
20778             /*^clear*/
20779             /*clear*/ /*_._IFELSE___V6*/
20780             meltfptr[5] = 0 ;
20781         }
20782
20783 #else /*MELT_HAVE_DEBUG*/
20784         /*^cppif.else*/
20785         /*_.IFCPP___V5*/ meltfptr[4] = (/*nil*/NULL);
20786 #endif /*MELT_HAVE_DEBUG*/
20787         ;
20788         MELT_LOCATION("warmelt-outobj.melt:4408:/ quasiblock");
20789
20790
20791         /*^getslot*/
20792         {
20793             melt_ptr_t slot=NULL, obj=NULL;
20794             obj = (melt_ptr_t)(/*_.OCLEAR__V2*/ meltfptr[1]) /*=obj*/;
20795             melt_object_get_field(slot,obj, 0, "OBI_LOC");
20796             /*_.CLOC__V9*/
20797             meltfptr[5] = slot;
20798         };
20799         ;
20800         MELT_LOCATION("warmelt-outobj.melt:4409:/ getslot");
20801         {
20802             melt_ptr_t slot=NULL, obj=NULL;
20803             obj = (melt_ptr_t)(/*_.OCLEAR__V2*/ meltfptr[1]) /*=obj*/;
20804             melt_object_get_field(slot,obj, 1, "OCLR_VLOC");
20805             /*_.CVL__V10*/
20806             meltfptr[9] = slot;
20807         };
20808         ;
20809
20810         MELT_CHECK_SIGNAL();
20811         ;
20812         MELT_LOCATION("warmelt-outobj.melt:4411:/ apply");
20813         /*apply*/
20814         {
20815             union meltparam_un argtab[3];
20816             memset(&argtab, 0, sizeof(argtab));
20817             /*^apply.arg*/
20818             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
20819             /*^apply.arg*/
20820             argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0];
20821             /*^apply.arg*/
20822             argtab[2].meltbp_cstring =  "clear";
20823             /*_.OUTPUT_LOCATION__V11*/
20824             meltfptr[10] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.CLOC__V9*/ meltfptr[5]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
20825         }
20826         ;
20827
20828         MELT_CHECK_SIGNAL();
20829         ;
20830         MELT_LOCATION("warmelt-outobj.melt:73:/ cond");
20831         /*cond*/
20832         if ( (melt_module_var_fetch (meltmodvarix_FLAGVAL_OUTPUT_DESCR_COMMENT_symb))) /*then*/
20833             {
20834                 /*^cond.then*/
20835                 /*^block*/
20836                 /*anyblock*/
20837                 {
20838
20839
20840                     MELT_CHECK_SIGNAL();
20841                     ;
20842                     /*^apply*/
20843                     /*apply*/
20844                     {
20845                         union meltparam_un argtab[1];
20846                         memset(&argtab, 0, sizeof(argtab));
20847                         /*^apply.arg*/
20848                         argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.OCLEAR__V2*/ meltfptr[1];
20849                         /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V13*/
20850                         meltfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DO_OUTPUT_DESCRIPTIVE_COMMENT*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
20851                     }
20852                     ;
20853                     /*_._IF___V12*/
20854                     meltfptr[11] = /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V13*/ meltfptr[12];;
20855                     /*epilog*/
20856
20857                     MELT_LOCATION("warmelt-outobj.melt:73:/ clear");
20858                     /*clear*/ /*_.DO_OUTPUT_DESCRIPTIVE_COMMENT__V13*/
20859                     meltfptr[12] = 0 ;
20860                 }
20861                 ;
20862             }
20863         else    /*^cond.else*/
20864             {
20865
20866                 /*_._IF___V12*/ meltfptr[11] =  /*reallynil*/ NULL ;;
20867             }
20868         ;
20869
20870         {
20871             MELT_LOCATION("warmelt-outobj.melt:4413:/ locexp");
20872             /*add2sbuf_strconst*/
20873             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "/*clear*/ "));
20874         }
20875         ;
20876         /*_#plI__L3*/
20877         meltfnum[1] =
20878             ((/*_#DEPTH__L1*/ meltfnum[0]) + (1));;
20879
20880         MELT_CHECK_SIGNAL();
20881         ;
20882         MELT_LOCATION("warmelt-outobj.melt:4414:/ msend");
20883         /*msend*/
20884         {
20885             union meltparam_un argtab[3];
20886             memset(&argtab, 0, sizeof(argtab));
20887             /*^ojbmsend.arg*/
20888             argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2];
20889             /*^ojbmsend.arg*/
20890             argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
20891             /*^ojbmsend.arg*/
20892             argtab[2].meltbp_long = /*_#plI__L3*/ meltfnum[1];
20893             /*_.OUTPUT_C_CODE__V14*/
20894             meltfptr[12] = meltgc_send((melt_ptr_t)(/*_.CVL__V10*/ meltfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[4])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
20895         }
20896         ;
20897
20898         {
20899             MELT_LOCATION("warmelt-outobj.melt:4415:/ locexp");
20900             /*add2sbuf_strconst*/
20901             meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( " = 0 "));
20902         }
20903         ;
20904
20905 #if MELT_HAVE_DEBUG
20906         MELT_LOCATION("warmelt-outobj.melt:4416:/ cppif.then");
20907         /*^block*/
20908         /*anyblock*/
20909         {
20910
20911
20912             MELT_CHECK_SIGNAL();
20913             ;
20914             /*_#STRBUF_USEDLENGTH__L4*/
20915             meltfnum[3] =
20916                 melt_strbuf_usedlength((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]));;
20917             MELT_LOCATION("warmelt-outobj.melt:4417:/ cond");
20918             /*cond*/
20919             if (
20920                 /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[5])),
20921                                               (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[6])))
20922             ) /*then*/
20923                 {
20924                     /*^cond.then*/
20925                     /*^getslot*/
20926                     {
20927                         melt_ptr_t slot=NULL, obj=NULL;
20928                         obj = (melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[5])) /*=obj*/;
20929                         melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE");
20930                         /*_.REFERENCED_VALUE__V16*/
20931                         meltfptr[15] = slot;
20932                     };
20933                     ;
20934                 }
20935             else    /*^cond.else*/
20936                 {
20937
20938                     /*_.REFERENCED_VALUE__V16*/ meltfptr[15] =  /*reallynil*/ NULL ;;
20939                 }
20940             ;
20941             /*^compute*/
20942             /*_#GET_INT__L5*/
20943             meltfnum[4] =
20944                 (melt_get_int((melt_ptr_t)(/*_.REFERENCED_VALUE__V16*/ meltfptr[15])));;
20945             /*^compute*/
20946             /*_#ltI__L6*/
20947             meltfnum[5] =
20948                 ((/*_#STRBUF_USEDLENGTH__L4*/ meltfnum[3]) < (/*_#GET_INT__L5*/ meltfnum[4]));;
20949             MELT_LOCATION("warmelt-outobj.melt:4416:/ cond");
20950             /*cond*/
20951             if (/*_#ltI__L6*/ meltfnum[5]) /*then*/
20952                 {
20953                     /*^cond.then*/
20954                     /*_._IFELSE___V17*/ meltfptr[16] = (/*nil*/NULL);;
20955                 }
20956             else
20957                 {
20958                     MELT_LOCATION("warmelt-outobj.melt:4416:/ cond.else");
20959
20960                     /*^block*/
20961                     /*anyblock*/
20962                     {
20963
20964
20965                         MELT_CHECK_SIGNAL();
20966                         ;
20967                         /*^apply*/
20968                         /*apply*/
20969                         {
20970                             union meltparam_un argtab[4];
20971                             memset(&argtab, 0, sizeof(argtab));
20972                             /*^apply.arg*/
20973                             argtab[0].meltbp_cstring =  "check limited implbuf";
20974                             /*^apply.arg*/
20975                             argtab[1].meltbp_cstring =  "warmelt-outobj.melt";
20976                             /*^apply.arg*/
20977                             argtab[2].meltbp_long = 4416;
20978                             /*^apply.arg*/
20979                             argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3];
20980                             /*_.MELT_ASSERT_FAILURE_FUN__V18*/
20981                             meltfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
20982                         }
20983                         ;
20984                         /*_._IFELSE___V17*/
20985                         meltfptr[16] = /*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17];;
20986                         /*epilog*/
20987
20988                         MELT_LOCATION("warmelt-outobj.melt:4416:/ clear");
20989                         /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V18*/
20990                         meltfptr[17] = 0 ;
20991                     }
20992                     ;
20993                 }
20994             ;
20995             /*_.IFCPP___V15*/
20996             meltfptr[14] = /*_._IFELSE___V17*/ meltfptr[16];;
20997             /*epilog*/
20998
20999             MELT_LOCATION("warmelt-outobj.melt:4416:/ clear");
21000             /*clear*/ /*_#STRBUF_USEDLENGTH__L4*/
21001             meltfnum[3] = 0 ;
21002             /*^clear*/
21003             /*clear*/ /*_.REFERENCED_VALUE__V16*/
21004             meltfptr[15] = 0 ;
21005             /*^clear*/
21006             /*clear*/ /*_#GET_INT__L5*/
21007             meltfnum[4] = 0 ;
21008             /*^clear*/
21009             /*clear*/ /*_#ltI__L6*/
21010             meltfnum[5] = 0 ;
21011             /*^clear*/
21012             /*clear*/ /*_._IFELSE___V17*/
21013             meltfptr[16] = 0 ;
21014         }
21015
21016 #else /*MELT_HAVE_DEBUG*/
21017         /*^cppif.else*/
21018         /*_.IFCPP___V15*/ meltfptr[14] = (/*nil*/NULL);
21019 #endif /*MELT_HAVE_DEBUG*/
21020         ;
21021         /*^compute*/
21022         /*_.LET___V8*/
21023         meltfptr[6] = /*_.IFCPP___V15*/ meltfptr[14];;
21024
21025         MELT_LOCATION("warmelt-outobj.melt:4408:/ clear");
21026         /*clear*/ /*_.CLOC__V9*/
21027         meltfptr[5] = 0 ;
21028         /*^clear*/
21029         /*clear*/ /*_.CVL__V10*/
21030         meltfptr[9] = 0 ;
21031         /*^clear*/
21032         /*clear*/ /*_.OUTPUT_LOCATION__V11*/
21033         meltfptr[10] = 0 ;
21034         /*^clear*/
21035         /*clear*/ /*_._IF___V12*/
21036         meltfptr[11] = 0 ;
21037         /*^clear*/
21038         /*clear*/ /*_#plI__L3*/
21039         meltfnum[1] = 0 ;
21040         /*^clear*/
21041         /*clear*/ /*_.OUTPUT_C_CODE__V14*/
21042         meltfptr[12] = 0 ;
21043         /*^clear*/
21044         /*clear*/ /*_.IFCPP___V15*/
21045         meltfptr[14] = 0 ;
21046
21047         MELT_CHECK_SIGNAL();
21048         ;
21049         MELT_LOCATION("warmelt-outobj.melt:4406:/ quasiblock");
21050
21051
21052         /*_._RETVAL___V1*/
21053         meltfptr[0] = /*_.LET___V8*/ meltfptr[6];;
21054
21055         {
21056             MELT_LOCATION("warmelt-outobj.melt:4406:/ locexp");
21057             /*ochecknores compilobj_nrep_return*/
21058 #if MELT_HAVE_DEBUG
21059             if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
21060                 melt_warn_for_no_expected_secondary_results();
21061             /* we warned when secondary results are expected but not returned. */
21062 #endif /*MELT_HAVE_DEBUG*/
21063             ;
21064         }
21065         ;
21066         /*^finalreturn*/
21067         ;
21068         /*finalret*/
21069         goto meltlabend_rout ;
21070         /*epilog*/
21071
21072         /*^clear*/
21073         /*clear*/ /*_.IFCPP___V5*/
21074         meltfptr[4] = 0 ;
21075         /*^clear*/
21076         /*clear*/ /*_.LET___V8*/
21077         meltfptr[6] = 0 ;
21078     }
21079
21080     ;
21081     goto meltlabend_rout;
21082 meltlabend_rout:
21083     melt_trace_end("OUTPUCOD_OBJCLEAR", meltcallcount);
21084     melt_blocklevel_signals = current_blocklevel_signals_meltrout_92_WARMELTmiOUTOBJ_OUTPUCOD_OBJCLEAR_melt;
21085     return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]);
21086 #undef meltcallcount
21087 #undef meltfram__
21088 #undef MELTFRAM_NBVARNUM
21089 #undef MELTFRAM_NBVARPTR
21090 } /*end meltrout_92_WARMELTmiOUTOBJ_OUTPUCOD_OBJCLEAR*/
21091
21092
21093
21094
21095 /**** end of warmelt-outobj+04.cc ****/