/* GCC MELT GENERATED FILE warmelt-debug.c - DO NOT EDIT */ /***+ warmelt-debug without options +***/ #include "melt-run.h" /* used hash from melt-run.h when compiling this file: */ const char used_meltrun_md5_melt[] = MELT_RUN_HASHMD5 /* from melt-run.h */ ; /**** warmelt-debug declarations ****/ #define MELT_HAS_INITIAL_ENVIRONMENT 1 struct melt_callframe_st; /*defined in melt-runtime.h */ /**!!** *** Copyright 2009, 2010, 2011, 2012 Free Software Foundation, Inc. Contributed by Basile Starynkevitch This file is part of GCC. GCC is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 3, or (at your option) any later version. GCC is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with GCC; see the file COPYING3. If not see . *****!!**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_1_warmelt_debug_DEBUG_MSG_FUN (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_2_warmelt_debug_REGISTER_TREE_DEBUG_FUN (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_3_warmelt_debug_REGISTER_GIMPLE_DEBUG_FUN (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_4_warmelt_debug_REGISTER_GIMPLESEQ_DEBUG_FUN (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_5_warmelt_debug_REGISTER_EDGE_DEBUG_FUN (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_6_warmelt_debug_REGISTER_BASICBLOCK_DEBUG_FUN (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_7_warmelt_debug_REGISTER_LOOP_DEBUG_FUN (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_8_warmelt_debug_MELT_DEBUG_FUN (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_9_warmelt_debug_DBG_OUTOBJECT (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_10_warmelt_debug_DBG_OUT (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_11_warmelt_debug_DBGOUT_FIELDS (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_12_warmelt_debug_DBGOUTAGAIN_FIELDS (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_13_warmelt_debug_DBGOUT_NULL_METHOD (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_14_warmelt_debug_DBGOUT_STRING_METHOD (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_15_warmelt_debug_DBGOUT_STRBUF_METHOD (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_16_warmelt_debug_DBGOUT_INTEGER_METHOD (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_17_warmelt_debug_DBGOUT_MIXINT_METHOD (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_18_warmelt_debug_DBGOUT_MIXLOC_METHOD (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_19_warmelt_debug_DBGOUT_MIXBIGINT_METHOD (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_20_warmelt_debug_DBGOUT_MULTIPLE_METHOD (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_21_warmelt_debug_DBGOUT_ROUTINE_METHOD (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_22_warmelt_debug_LAMBDA___1__ (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_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_23_warmelt_debug_DBGOUT_CLOSURE_METHOD (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_24_warmelt_debug_DBGOUT_LIST_METHOD (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_25_warmelt_debug_DBGOUT_PAIR_METHOD (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_26_warmelt_debug_DBGOUT_MAPOBJECT_METHOD (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_27_warmelt_debug_LAMBDA___2__ (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_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_28_warmelt_debug_LAMBDA___3__ (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_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_29_warmelt_debug_LAMBDA___4__ (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_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_30_warmelt_debug_DBGOUT_MAPSTRING_METHOD (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_31_warmelt_debug_LAMBDA___5__ (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_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_32_warmelt_debug_LAMBDA___6__ (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_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_33_warmelt_debug_LAMBDA___7__ (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_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_34_warmelt_debug_DBGOUT_ANYOBJECT_METHOD (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_35_warmelt_debug_DBGOUT_ANYRECV_METHOD (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_36_warmelt_debug_DBGOUTAGAIN_ANYOBJECT_METHOD (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_37_warmelt_debug_DBGOUT_NAMEDOBJECT_METHOD (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_38_warmelt_debug_DBGOUTAGAIN_NAMEDOBJECT_METHOD (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_39_warmelt_debug_DBGOUTAGAIN_SYMBOL_METHOD (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_40_warmelt_debug_DBGOUT_SYMBOL_METHOD (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_41_warmelt_debug_DBGOUT_CLASS_METHOD (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_42_warmelt_debug_DBGOUTAGAIN_KEYWORD_METHOD (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_43_warmelt_debug_DBGOUT_KEYWORD_METHOD (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_44_warmelt_debug_DBGOUTAGAIN_CLONED_SYMBOL_METHOD (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_45_warmelt_debug_DBGOUT_CLONED_SYMBOL_METHOD (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_46_warmelt_debug_DBGOUT_ENVIRONMENT_METHOD (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_47_warmelt_debug_DBGOUTAGAIN_CTYPE_METHOD (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_48_warmelt_debug_DBGOUT_CTYPE_METHOD (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_49_warmelt_debug_DBGOUT_ANYBINDING_METHOD (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_50_warmelt_debug_DISPLAY_DEBUG_MESSAGE (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #ifdef __cplusplus extern "C" #endif void *start_module_melt (void *); /* define different names when debugging or not */ #if MELT_HAVE_DEBUG extern #ifdef __cplusplus "C" #endif /*__cplusplus*/ const char meltmodule_warmelt_debug__melt_have_debug_enabled[]; #define melt_have_debug_string meltmodule_warmelt_debug__melt_have_debug_enabled #else /*!MELT_HAVE_DEBUG */ extern #ifdef __cplusplus "C" #endif /*__cplusplus*/ const char meltmodule_warmelt_debug__melt_have_debug_disabled[]; #define melt_have_debug_string meltmodule_warmelt_debug__melt_have_debug_disabled #endif /*!MELT_HAVE_DEBUG */ struct frame_start_module_melt_st; void MELT_MODULE_VISIBILITY meltmod__warmelt_debug__initialmeltchunk_0 (struct frame_start_module_melt_st *, char *); void MELT_MODULE_VISIBILITY meltmod__warmelt_debug__initialmeltchunk_1 (struct frame_start_module_melt_st *, char *); void MELT_MODULE_VISIBILITY meltmod__warmelt_debug__initialmeltchunk_2 (struct frame_start_module_melt_st *, char *); void MELT_MODULE_VISIBILITY meltmod__warmelt_debug__initialmeltchunk_3 (struct frame_start_module_melt_st *, char *); void MELT_MODULE_VISIBILITY meltmod__warmelt_debug__initialmeltchunk_4 (struct frame_start_module_melt_st *, char *); void MELT_MODULE_VISIBILITY meltmod__warmelt_debug__initialmeltchunk_5 (struct frame_start_module_melt_st *, char *); void MELT_MODULE_VISIBILITY meltmod__warmelt_debug__forward_or_mark_module_start_frame (struct melt_callframe_st *fp, int marking); /**** warmelt-debug implementations ****/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_1_warmelt_debug_DEBUG_MSG_FUN (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_1_warmelt_debug_DEBUG_MSG_FUN_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++call_counter__; #undef meltcallcount #define meltcallcount thiscallcounter__ #else #undef meltcallcount #define meltcallcount 0L #endif struct frame_meltrout_1_warmelt_debug_DEBUG_MSG_FUN_st { int mcfr_nbvar; #if MELT_HAVE_DEBUG const char *mcfr_flocs; #else /*!MELT_HAVE_DEBUG */ const char *mcfr_unusedflocs; #endif /*MELT_HAVE_DEBUG */ struct meltclosure_st *mcfr_clos; struct excepth_melt_st *mcfr_exh; struct melt_callframe_st *mcfr_prev; #define MELTFRAM_NBVARPTR 19 melt_ptr_t mcfr_varptr[19]; #define MELTFRAM_NBVARNUM 16 long mcfr_varnum[16]; /*others*/ const char *loc_CSTRING__o0; const char *loc_CSTRING__o1; long _spare_; } *meltframptr_ = 0, meltfram__; #define meltframe meltfram__ if (MELT_UNLIKELY (meltxargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc */ int ix = 0; meltframptr_ = (struct frame_meltrout_1_warmelt_debug_DEBUG_MSG_FUN_st *) meltfirstargp_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 19; ix++) if (meltframptr_->mcfr_varptr[ix]) gt_ggc_mx_melt_un (meltframptr_->mcfr_varptr[ix]); return NULL; } /*end markggc */ ; memset (&meltfram__, 0, sizeof (meltfram__)); meltfram__.mcfr_nbvar = 19; meltfram__.mcfr_clos = meltclosp_; meltfram__.mcfr_prev = (struct melt_callframe_st *) melt_topframe; melt_topframe = (struct melt_callframe_st *) &meltfram__; melt_trace_start ("DEBUG_MSG_FUN", meltcallcount); /*getargs*/ /*getarg#0 */ MELT_LOCATION ("warmelt-debug.melt:76:/ getarg"); /*_.VAL__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ /*^getarg */ if (meltxargdescr_[0] != MELTBPAR_CSTRING) goto lab_endgetargs; /*_?*/ meltfram__.loc_CSTRING__o0 = meltxargtab_[0].meltbp_cstring; /*getarg#2 */ /*^getarg */ if (meltxargdescr_[1] != MELTBPAR_LONG) goto lab_endgetargs; /*_#COUNT__L1*/ meltfnum[0] = meltxargtab_[1].meltbp_long; /*getarg#3 */ /*^getarg */ if (meltxargdescr_[2] != MELTBPAR_CSTRING) goto lab_endgetargs; /*_?*/ meltfram__.loc_CSTRING__o1 = meltxargtab_[2].meltbp_cstring; /*getarg#4 */ /*^getarg */ if (meltxargdescr_[3] != MELTBPAR_LONG) goto lab_endgetargs; /*_#LINENO__L2*/ meltfnum[1] = meltxargtab_[3].meltbp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ /*^block*/ /*anyblock*/ { { MELT_LOCATION ("warmelt-debug.melt:80:/ locexp"); ++melt_dbgcounter; } ; MELT_LOCATION ("warmelt-debug.melt:81:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#MELT_HAS_FLAG_DEBUG_SET__L3*/ meltfnum[2] = /*MELT_HAS_FLAG_DEBUG_SET */ melt_flag_debug;; MELT_LOCATION ("warmelt-debug.melt:81:/ cond"); /*cond */ if ( /*_#MELT_HAS_FLAG_DEBUG_SET__L3*/ meltfnum[2]) /*then */ { /*^cond.then */ /*^block */ /*anyblock */ { MELT_LOCATION ("warmelt-debug.melt:82:/ quasiblock"); /*_#DBGCOUNTER__L4*/ meltfnum[3] = 0;; MELT_LOCATION ("warmelt-debug.melt:83:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) (( /*!INITIAL_SYSTEM_DATA */ meltfrout->tabval[0])), (melt_ptr_t) (( /*!CLASS_SYSTEM_DATA */ meltfrout->tabval[1]))) ) /*then */ { /*^cond.then */ /*^getslot */ { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) (( /*!INITIAL_SYSTEM_DATA */ meltfrout->tabval[0])), 20, "SYSDATA_DUMPFILE"); /*_.DUMPF__V3*/ meltfptr[2] = slot; }; ; } else { /*^cond.else */ /*_.DUMPF__V3*/ meltfptr[2] = NULL;; } ; MELT_LOCATION ("warmelt-debug.melt:84:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) (( /*!INITIAL_SYSTEM_DATA */ meltfrout->tabval[0])), (melt_ptr_t) (( /*!CLASS_SYSTEM_DATA */ meltfrout->tabval[1]))) ) /*then */ { /*^cond.then */ /*^getslot */ { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) (( /*!INITIAL_SYSTEM_DATA */ meltfrout->tabval[0])), 19, "SYSDATA_STDERR"); /*_.STDERRF__V4*/ meltfptr[3] = slot; }; ; } else { /*^cond.else */ /*_.STDERRF__V4*/ meltfptr[3] = NULL;; } ; /*^compute */ /*_.OUT__V5*/ meltfptr[4] = /*_.DUMPF__V3*/ meltfptr[2];; /*^compute */ /*_.OCCMAP__V6*/ meltfptr[5] = (meltgc_new_mapobjects ((meltobject_ptr_t) (( /*!DISCR_MAP_OBJECTS */ meltfrout->tabval[2])), (50)));; /*^compute */ /*_#DEBUG_DEPTH__L5*/ meltfnum[4] = (long) (melt_debug_depth ());; /*^compute */ /*_.BOXEDMAXDEPTH__V7*/ meltfptr[6] = (meltgc_new_int ((meltobject_ptr_t) (( /*!DISCR_INTEGER */ meltfrout->tabval[3])), ( /*_#DEBUG_DEPTH__L5*/ meltfnum[4])));; { MELT_LOCATION ("warmelt-debug.melt:90:/ locexp"); /*debug_msg_fun GETDBGCOUNTER__1 *//*_#DBGCOUNTER__L4*/ meltfnum[3] = melt_dbgcounter; ; } ; { MELT_LOCATION ("warmelt-debug.melt:94:/ locexp"); /*debug_msg_fun ENSUREGOODOUT__1 */ static int nbwarn; if (melt_get_file ((melt_ptr_t) /*_.OUT__V5*/ meltfptr[4]) == NULL) { gcc_assert (melt_get_file ((melt_ptr_t) /*_.STDERRF__V4*/ meltfptr[3]) == stderr); /*_.OUT__V5*/ meltfptr[4] = /*_.STDERRF__V4*/ meltfptr[3]; if (nbwarn++ <= 0) { inform (UNKNOWN_LOCATION, "MELT debug output goes to stderr because we have no dump_file."); } } ; } ; MELT_LOCATION ("warmelt-debug.melt:105:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L6*/ meltfnum[5] = (( /*_.OUT__V5*/ meltfptr[4]) == NULL);; MELT_LOCATION ("warmelt-debug.melt:105:/ cond"); /*cond */ if ( /*_#NULL__L6*/ meltfnum[5]) /*then */ { /*^cond.then */ /*^block */ /*anyblock */ { MELT_LOCATION ("warmelt-debug.melt:106:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) (( /*!INITIAL_SYSTEM_DATA */ meltfrout->tabval[0])), (melt_ptr_t) (( /*!CLASS_SYSTEM_DATA */ meltfrout->tabval[1]))) ) /*then */ { /*^cond.then */ /*^getslot */ { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) (( /*!INITIAL_SYSTEM_DATA */ meltfrout->tabval[0])), 19, "SYSDATA_STDERR"); /*_.SYSDATA_STDERR__V9*/ meltfptr[8] = slot; }; ; } else { /*^cond.else */ /*_.SYSDATA_STDERR__V9*/ meltfptr[8] = NULL;; } ; MELT_LOCATION ("warmelt-debug.melt:106:/ compute"); /*_.OUT__V5*/ meltfptr[4] = /*_.SETQ___V10*/ meltfptr[9] = /*_.SYSDATA_STDERR__V9*/ meltfptr[8];; /*_.IF___V8*/ meltfptr[7] = /*_.SETQ___V10*/ meltfptr[9];; /*epilog */ MELT_LOCATION ("warmelt-debug.melt:105:/ clear"); /*clear *//*_.SYSDATA_STDERR__V9*/ meltfptr[8] = 0; /*^clear */ /*clear *//*_.SETQ___V10*/ meltfptr[9] = 0; } ; } else { /*^cond.else */ /*_.IF___V8*/ meltfptr[7] = NULL;; } ; MELT_LOCATION ("warmelt-debug.melt:110:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L7*/ meltfnum[6] = (( /*_.OUT__V5*/ meltfptr[4]) == NULL);; MELT_LOCATION ("warmelt-debug.melt:110:/ cond"); /*cond */ if ( /*_#NULL__L7*/ meltfnum[6]) /*then */ { /*^cond.then */ /*^block */ /*anyblock */ { /*_.MAKE_STRBUF__V12*/ meltfptr[9] = (melt_ptr_t) meltgc_new_strbuf ((meltobject_ptr_t) (( /*!DISCR_STRBUF */ meltfrout-> tabval[4])), (const char *) 0);; MELT_LOCATION ("warmelt-debug.melt:111:/ compute"); /*_.OUT__V5*/ meltfptr[4] = /*_.SETQ___V13*/ meltfptr[12] = /*_.MAKE_STRBUF__V12*/ meltfptr[9];; /*_.IF___V11*/ meltfptr[8] = /*_.SETQ___V13*/ meltfptr[12];; /*epilog */ MELT_LOCATION ("warmelt-debug.melt:110:/ clear"); /*clear *//*_.MAKE_STRBUF__V12*/ meltfptr[9] = 0; /*^clear */ /*clear *//*_.SETQ___V13*/ meltfptr[12] = 0; } ; } else { /*^cond.else */ /*_.IF___V11*/ meltfptr[8] = NULL;; } ; #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-debug.melt:112:/ cppif.then"); /*^block */ /*anyblock */ { /*^checksignal */ MELT_CHECK_SIGNAL (); ; /*_#IS_OUT__L8*/ meltfnum[7] = (melt_is_out ((melt_ptr_t) /*_.OUT__V5*/ meltfptr[4]));; MELT_LOCATION ("warmelt-debug.melt:112:/ cond"); /*cond */ if ( /*_#IS_OUT__L8*/ meltfnum[7]) /*then */ { /*^cond.then */ /*_.IFELSE___V15*/ meltfptr[12] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-debug.melt:112:/ cond.else"); /*^block */ /*anyblock */ { { /*^locexp */ melt_assert_failed (("check good out"), ("warmelt-debug.melt") ? ("warmelt-debug.melt") : __FILE__, (112) ? (112) : __LINE__, __FUNCTION__); ; } ; /*clear *//*_.IFELSE___V15*/ meltfptr[12] = 0; /*epilog */ } ; } ; /*^compute */ /*_.IFCPP___V14*/ meltfptr[9] = /*_.IFELSE___V15*/ meltfptr[12];; /*epilog */ MELT_LOCATION ("warmelt-debug.melt:112:/ clear"); /*clear *//*_#IS_OUT__L8*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.IFELSE___V15*/ meltfptr[12] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ /*_.IFCPP___V14*/ meltfptr[9] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-debug.melt:113:/ quasiblock"); MELT_LOCATION ("warmelt-debug.melt:114:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ /*^rawallocobj */ /*rawallocobj */ { melt_ptr_t newobj = 0; melt_raw_object_create (newobj, (melt_ptr_t) (( /*!CLASS_DEBUG_INFORMATION */ meltfrout->tabval[5])), (3), "CLASS_DEBUG_INFORMATION"); /*_.INST__V17*/ meltfptr[16] = newobj; }; ; /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj @DBGI_OUT", melt_magic_discr ((melt_ptr_t) ( /*_.INST__V17*/ meltfptr[16])) == MELTOBMAG_OBJECT); melt_putfield_object (( /*_.INST__V17*/ meltfptr[16]), (0), ( /*_.OUT__V5*/ meltfptr[4]), "DBGI_OUT"); ; /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj @DBGI_OCCMAP", melt_magic_discr ((melt_ptr_t) ( /*_.INST__V17*/ meltfptr[16])) == MELTOBMAG_OBJECT); melt_putfield_object (( /*_.INST__V17*/ meltfptr[16]), (1), ( /*_.OCCMAP__V6*/ meltfptr[5]), "DBGI_OCCMAP"); ; /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj @DBGI_MAXDEPTH", melt_magic_discr ((melt_ptr_t) ( /*_.INST__V17*/ meltfptr[16])) == MELTOBMAG_OBJECT); melt_putfield_object (( /*_.INST__V17*/ meltfptr[16]), (2), ( /*_.BOXEDMAXDEPTH__V7*/ meltfptr[6]), "DBGI_MAXDEPTH"); ; /*_.DBGI__V16*/ meltfptr[12] = /*_.INST__V17*/ meltfptr[16];; /*^compute */ /*_#FRAMDEPTH__L9*/ meltfnum[7] = (melt_curframdepth ());; /*^compute */ /*_#INILEN__L10*/ meltfnum[9] = melt_output_length ((melt_ptr_t) /*_.OUT__V5*/ meltfptr[4]);; { MELT_LOCATION ("warmelt-debug.melt:121:/ locexp"); meltgc_add_out ((melt_ptr_t) ( /*_.OUT__V5*/ meltfptr[4]), ("!!!!****####")); } ; { MELT_LOCATION ("warmelt-debug.melt:122:/ locexp"); meltgc_add_out_dec ((melt_ptr_t) ( /*_.OUT__V5*/ meltfptr[4]), ( /*_#DBGCOUNTER__L4*/ meltfnum[3])); } ; { MELT_LOCATION ("warmelt-debug.melt:123:/ locexp"); meltgc_add_out ((melt_ptr_t) ( /*_.OUT__V5*/ meltfptr[4]), ("#^")); } ; /*_#I__L11*/ meltfnum[10] = (( /*_#FRAMDEPTH__L9*/ meltfnum[7]) - (1));; { MELT_LOCATION ("warmelt-debug.melt:124:/ locexp"); meltgc_add_out_dec ((melt_ptr_t) ( /*_.OUT__V5*/ meltfptr[4]), ( /*_#I__L11*/ meltfnum[10])); } ; { MELT_LOCATION ("warmelt-debug.melt:125:/ locexp"); meltgc_add_out ((melt_ptr_t) ( /*_.OUT__V5*/ meltfptr[4]), (":")); } ; MELT_LOCATION ("warmelt-debug.melt:126:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ /*cond */ if ( /*_?*/ meltfram__.loc_CSTRING__o1) /*then */ { /*^cond.then */ /*^block */ /*anyblock */ { { MELT_LOCATION ("warmelt-debug.melt:128:/ locexp"); meltgc_add_out ((melt_ptr_t) ( /*_.OUT__V5*/ meltfptr[4]), ( /*_?*/ meltfram__.loc_CSTRING__o1)); } ; { MELT_LOCATION ("warmelt-debug.melt:129:/ locexp"); meltgc_add_out ((melt_ptr_t) ( /*_.OUT__V5*/ meltfptr[4]), (":")); } ; { MELT_LOCATION ("warmelt-debug.melt:130:/ locexp"); meltgc_add_out_dec ((melt_ptr_t) ( /*_.OUT__V5*/ meltfptr[4]), ( /*_#LINENO__L2*/ meltfnum[1])); } ; { MELT_LOCATION ("warmelt-debug.melt:131:/ locexp"); meltgc_add_out ((melt_ptr_t) ( /*_.OUT__V5*/ meltfptr[4]), (":")); } ; MELT_LOCATION ("warmelt-debug.melt:127:/ quasiblock"); /*epilog */ } ; } /*noelse */ ; { MELT_LOCATION ("warmelt-debug.melt:133:/ locexp"); meltgc_add_out ((melt_ptr_t) ( /*_.OUT__V5*/ meltfptr[4]), ( /*_?*/ meltfram__.loc_CSTRING__o0)); } ; MELT_LOCATION ("warmelt-debug.melt:134:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L12*/ meltfnum[11] = (( /*_#COUNT__L1*/ meltfnum[0]) > (0));; MELT_LOCATION ("warmelt-debug.melt:134:/ cond"); /*cond */ if ( /*_#I__L12*/ meltfnum[11]) /*then */ { /*^cond.then */ /*^block */ /*anyblock */ { { MELT_LOCATION ("warmelt-debug.melt:136:/ locexp"); meltgc_add_out ((melt_ptr_t) ( /*_.OUT__V5*/ meltfptr[4]), (" !")); } ; { MELT_LOCATION ("warmelt-debug.melt:137:/ locexp"); meltgc_add_out_dec ((melt_ptr_t) ( /*_.OUT__V5*/ meltfptr[4]), ( /*_#COUNT__L1*/ meltfnum[0])); } ; { MELT_LOCATION ("warmelt-debug.melt:138:/ locexp"); meltgc_add_out ((melt_ptr_t) ( /*_.OUT__V5*/ meltfptr[4]), (": ")); } ; MELT_LOCATION ("warmelt-debug.melt:135:/ quasiblock"); /*epilog */ } ; } /*noelse */ ; MELT_LOCATION ("warmelt-debug.melt:140:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ /*cond */ if ( /*_.VAL__V2*/ meltfptr[1]) /*then */ { /*^cond.then */ /*^block */ /*anyblock */ { MELT_LOCATION ("warmelt-debug.melt:141:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.DBGI__V16*/ meltfptr[12]; /*^apply.arg */ argtab[1].meltbp_long = 0; /*_.DBG_OUT__V19*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t) (( /*!DBG_OUT */ meltfrout->tabval[6])), (melt_ptr_t) ( /*_.VAL__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un *) 0); } ; /*_.IFELSE___V18*/ meltfptr[17] = /*_.DBG_OUT__V19*/ meltfptr[18];; /*epilog */ MELT_LOCATION ("warmelt-debug.melt:140:/ clear"); /*clear *//*_.DBG_OUT__V19*/ meltfptr[18] = 0; } ; } else { /*^cond.else */ /*^block */ /*anyblock */ { { MELT_LOCATION ("warmelt-debug.melt:142:/ locexp"); meltgc_add_out ((melt_ptr_t) ( /*_.OUT__V5*/ meltfptr[4]), ("() ;;;NIL!!!")); } ; /*clear *//*_.IFELSE___V18*/ meltfptr[17] = 0; /*epilog */ } ; } ; { MELT_LOCATION ("warmelt-debug.melt:144:/ locexp"); meltgc_out_add_indent ((melt_ptr_t) ( /*_.OUT__V5*/ meltfptr[4]), (0), 0);; } ; MELT_LOCATION ("warmelt-debug.melt:145:/ quasiblock"); /*_#FINALLEN__L13*/ meltfnum[12] = melt_output_length ((melt_ptr_t) /*_.OUT__V5*/ meltfptr[4]);; MELT_LOCATION ("warmelt-debug.melt:147:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L14*/ meltfnum[13] = (( /*_#INILEN__L10*/ meltfnum[9]) + (200));; /*^compute */ /*_#I__L15*/ meltfnum[14] = (( /*_#FINALLEN__L13*/ meltfnum[12]) > ( /*_#I__L14*/ meltfnum[13]));; MELT_LOCATION ("warmelt-debug.melt:147:/ cond"); /*cond */ if ( /*_#I__L15*/ meltfnum[14]) /*then */ { /*^cond.then */ /*^block */ /*anyblock */ { { MELT_LOCATION ("warmelt-debug.melt:149:/ locexp"); meltgc_add_out ((melt_ptr_t) ( /*_.OUT__V5*/ meltfptr[4]), (" .###")); } ; { MELT_LOCATION ("warmelt-debug.melt:150:/ locexp"); meltgc_out_add_indent ((melt_ptr_t) ( /*_.OUT__V5*/ meltfptr[4]), (0), 0);; } ; MELT_LOCATION ("warmelt-debug.melt:148:/ quasiblock"); /*epilog */ } ; } /*noelse */ ; MELT_LOCATION ("warmelt-debug.melt:145:/ clear"); /*clear *//*_#FINALLEN__L13*/ meltfnum[12] = 0; /*^clear */ /*clear *//*_#I__L14*/ meltfnum[13] = 0; /*^clear */ /*clear *//*_#I__L15*/ meltfnum[14] = 0; MELT_LOCATION ("warmelt-debug.melt:152:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_STRBUF__L16*/ meltfnum[12] = (melt_magic_discr ((melt_ptr_t) ( /*_.OUT__V5*/ meltfptr[4])) == MELTOBMAG_STRBUF);; MELT_LOCATION ("warmelt-debug.melt:152:/ cond"); /*cond */ if ( /*_#IS_STRBUF__L16*/ meltfnum[12]) /*then */ { /*^cond.then */ /*^block */ /*anyblock */ { { MELT_LOCATION ("warmelt-debug.melt:154:/ locexp"); /* debug_msg_fun DEBUGSTRBUF__1 */ fprintf (stderr, "\n**debug_msg thru strbuffer:\n%s\n", melt_strbuf_str ((melt_ptr_t) /*_.OUT__V5*/ meltfptr[4])); fflush (stderr); ; } ; MELT_LOCATION ("warmelt-debug.melt:153:/ quasiblock"); /*epilog */ } ; } /*noelse */ ; MELT_LOCATION ("warmelt-debug.melt:113:/ clear"); /*clear *//*_.DBGI__V16*/ meltfptr[12] = 0; /*^clear */ /*clear *//*_#FRAMDEPTH__L9*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_#INILEN__L10*/ meltfnum[9] = 0; /*^clear */ /*clear *//*_#I__L11*/ meltfnum[10] = 0; /*^clear */ /*clear *//*_#I__L12*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.IFELSE___V18*/ meltfptr[17] = 0; /*^clear */ /*clear *//*_#IS_STRBUF__L16*/ meltfnum[12] = 0; MELT_LOCATION ("warmelt-debug.melt:82:/ clear"); /*clear *//*_#DBGCOUNTER__L4*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.DUMPF__V3*/ meltfptr[2] = 0; /*^clear */ /*clear *//*_.STDERRF__V4*/ meltfptr[3] = 0; /*^clear */ /*clear *//*_.OUT__V5*/ meltfptr[4] = 0; /*^clear */ /*clear *//*_.OCCMAP__V6*/ meltfptr[5] = 0; /*^clear */ /*clear *//*_#DEBUG_DEPTH__L5*/ meltfnum[4] = 0; /*^clear */ /*clear *//*_.BOXEDMAXDEPTH__V7*/ meltfptr[6] = 0; /*^clear */ /*clear *//*_#NULL__L6*/ meltfnum[5] = 0; /*^clear */ /*clear *//*_.IF___V8*/ meltfptr[7] = 0; /*^clear */ /*clear *//*_#NULL__L7*/ meltfnum[6] = 0; /*^clear */ /*clear *//*_.IF___V11*/ meltfptr[8] = 0; /*^clear */ /*clear *//*_.IFCPP___V14*/ meltfptr[9] = 0; /*epilog */ } ; } /*noelse */ ; MELT_LOCATION ("warmelt-debug.melt:76:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*epilog */ /*^clear */ /*clear *//*_#MELT_HAS_FLAG_DEBUG_SET__L3*/ meltfnum[2] = 0; } ; goto labend_rout; labend_rout: melt_trace_end ("DEBUG_MSG_FUN", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_1_warmelt_debug_DEBUG_MSG_FUN_melt; melt_topframe = (struct melt_callframe_st *) meltfram__.mcfr_prev; return (melt_ptr_t) ( /*noretval */ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_1_warmelt_debug_DEBUG_MSG_FUN */ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_2_warmelt_debug_REGISTER_TREE_DEBUG_FUN (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un * meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un * meltxrestab_) { long current_blocklevel_signals_meltrout_2_warmelt_debug_REGISTER_TREE_DEBUG_FUN_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++call_counter__; #undef meltcallcount #define meltcallcount thiscallcounter__ #else #undef meltcallcount #define meltcallcount 0L #endif struct frame_meltrout_2_warmelt_debug_REGISTER_TREE_DEBUG_FUN_st { int mcfr_nbvar; #if MELT_HAVE_DEBUG const char *mcfr_flocs; #else /*!MELT_HAVE_DEBUG */ const char *mcfr_unusedflocs; #endif /*MELT_HAVE_DEBUG */ struct meltclosure_st *mcfr_clos; struct excepth_melt_st *mcfr_exh; struct melt_callframe_st *mcfr_prev; #define MELTFRAM_NBVARPTR 6 melt_ptr_t mcfr_varptr[6]; #define MELTFRAM_NBVARNUM 3 long mcfr_varnum[3]; /*others*/ long _spare_; } *meltframptr_ = 0, meltfram__; #define meltframe meltfram__ if (MELT_UNLIKELY (meltxargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc */ int ix = 0; meltframptr_ = (struct frame_meltrout_2_warmelt_debug_REGISTER_TREE_DEBUG_FUN_st *) meltfirstargp_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 6; ix++) if (meltframptr_->mcfr_varptr[ix]) gt_ggc_mx_melt_un (meltframptr_->mcfr_varptr[ix]); return NULL; } /*end markggc */ ; memset (&meltfram__, 0, sizeof (meltfram__)); meltfram__.mcfr_nbvar = 6; meltfram__.mcfr_clos = meltclosp_; meltfram__.mcfr_prev = (struct melt_callframe_st *) melt_topframe; melt_topframe = (struct melt_callframe_st *) &meltfram__; melt_trace_start ("REGISTER_TREE_DEBUG_FUN", meltcallcount); /*getargs*/ /*getarg#0 */ MELT_LOCATION ("warmelt-debug.melt:187:/ getarg"); /*_.F__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ /*^block*/ /*anyblock*/ { MELT_LOCATION ("warmelt-debug.melt:192:/ quasiblock"); /*^cond */ /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) (( /*!TREE_DEBUG_FUNCONT */ meltfrout->tabval[0])), (melt_ptr_t) (( /*!CLASS_CONTAINER */ meltfrout->tabval[1]))) ) /*then */ { /*^cond.then */ /*^getslot */ { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) (( /*!TREE_DEBUG_FUNCONT */ meltfrout->tabval[0])), 0, "CONTAINER_VALUE"); /*_.OLDCONT__V4*/ meltfptr[3] = slot; }; ; } else { /*^cond.else */ /*_.OLDCONT__V4*/ meltfptr[3] = NULL;; } ; MELT_LOCATION ("warmelt-debug.melt:194:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L1*/ meltfnum[0] = (( /*_.F__V2*/ meltfptr[1]) == NULL);; MELT_LOCATION ("warmelt-debug.melt:194:/ cond"); /*cond */ if ( /*_#NULL__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ /*_#OR___L2*/ meltfnum[1] = /*_#NULL__L1*/ meltfnum[0];; } else { MELT_LOCATION ("warmelt-debug.melt:194:/ cond.else"); /*^block */ /*anyblock */ { /*_#IS_CLOSURE__L3*/ meltfnum[2] = (melt_magic_discr ((melt_ptr_t) ( /*_.F__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);; /*^compute */ /*_#OR___L2*/ meltfnum[1] = /*_#IS_CLOSURE__L3*/ meltfnum[2];; /*epilog */ MELT_LOCATION ("warmelt-debug.melt:194:/ clear"); /*clear *//*_#IS_CLOSURE__L3*/ meltfnum[2] = 0; } ; } ; /*^cond */ /*cond */ if ( /*_#OR___L2*/ meltfnum[1]) /*then */ { /*^cond.then */ /*^block */ /*anyblock */ { MELT_LOCATION ("warmelt-debug.melt:195:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.F__V2*/ meltfptr[1]; /*_.SET_CONTENT__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t) (( /*!SET_CONTENT */ meltfrout->tabval[2])), (melt_ptr_t) (( /*!TREE_DEBUG_FUNCONT */ meltfrout-> tabval[0])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*_.IF___V5*/ meltfptr[4] = /*_.SET_CONTENT__V6*/ meltfptr[5];; /*epilog */ MELT_LOCATION ("warmelt-debug.melt:194:/ clear"); /*clear *//*_.SET_CONTENT__V6*/ meltfptr[5] = 0; } ; } else { /*^cond.else */ /*_.IF___V5*/ meltfptr[4] = NULL;; } ; /*^compute */ /*_.LET___V3*/ meltfptr[2] = /*_.OLDCONT__V4*/ meltfptr[3];; MELT_LOCATION ("warmelt-debug.melt:192:/ clear"); /*clear *//*_.OLDCONT__V4*/ meltfptr[3] = 0; /*^clear */ /*clear *//*_#NULL__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_#OR___L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IF___V5*/ meltfptr[4] = 0; MELT_LOCATION ("warmelt-debug.melt:187:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V3*/ meltfptr[2];; MELT_LOCATION ("warmelt-debug.melt:187:/ finalreturn"); ; /*finalret */ goto labend_rout; /*epilog */ /*^clear */ /*clear *//*_.LET___V3*/ meltfptr[2] = 0; } ; goto labend_rout; labend_rout: melt_trace_end ("REGISTER_TREE_DEBUG_FUN", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_2_warmelt_debug_REGISTER_TREE_DEBUG_FUN_melt; melt_topframe = (struct melt_callframe_st *) meltfram__.mcfr_prev; return (melt_ptr_t) ( /*_.RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_2_warmelt_debug_REGISTER_TREE_DEBUG_FUN */ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_3_warmelt_debug_REGISTER_GIMPLE_DEBUG_FUN (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un * meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un * meltxrestab_) { long current_blocklevel_signals_meltrout_3_warmelt_debug_REGISTER_GIMPLE_DEBUG_FUN_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++call_counter__; #undef meltcallcount #define meltcallcount thiscallcounter__ #else #undef meltcallcount #define meltcallcount 0L #endif struct frame_meltrout_3_warmelt_debug_REGISTER_GIMPLE_DEBUG_FUN_st { int mcfr_nbvar; #if MELT_HAVE_DEBUG const char *mcfr_flocs; #else /*!MELT_HAVE_DEBUG */ const char *mcfr_unusedflocs; #endif /*MELT_HAVE_DEBUG */ struct meltclosure_st *mcfr_clos; struct excepth_melt_st *mcfr_exh; struct melt_callframe_st *mcfr_prev; #define MELTFRAM_NBVARPTR 6 melt_ptr_t mcfr_varptr[6]; #define MELTFRAM_NBVARNUM 3 long mcfr_varnum[3]; /*others*/ long _spare_; } *meltframptr_ = 0, meltfram__; #define meltframe meltfram__ if (MELT_UNLIKELY (meltxargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc */ int ix = 0; meltframptr_ = (struct frame_meltrout_3_warmelt_debug_REGISTER_GIMPLE_DEBUG_FUN_st *) meltfirstargp_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 6; ix++) if (meltframptr_->mcfr_varptr[ix]) gt_ggc_mx_melt_un (meltframptr_->mcfr_varptr[ix]); return NULL; } /*end markggc */ ; memset (&meltfram__, 0, sizeof (meltfram__)); meltfram__.mcfr_nbvar = 6; meltfram__.mcfr_clos = meltclosp_; meltfram__.mcfr_prev = (struct melt_callframe_st *) melt_topframe; melt_topframe = (struct melt_callframe_st *) &meltfram__; melt_trace_start ("REGISTER_GIMPLE_DEBUG_FUN", meltcallcount); /*getargs*/ /*getarg#0 */ MELT_LOCATION ("warmelt-debug.melt:200:/ getarg"); /*_.F__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ /*^block*/ /*anyblock*/ { MELT_LOCATION ("warmelt-debug.melt:205:/ quasiblock"); /*^cond */ /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) (( /*!GIMPLE_DEBUG_FUNCONT */ meltfrout->tabval[0])), (melt_ptr_t) (( /*!CLASS_CONTAINER */ meltfrout->tabval[1]))) ) /*then */ { /*^cond.then */ /*^getslot */ { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) (( /*!GIMPLE_DEBUG_FUNCONT */ meltfrout->tabval[0])), 0, "CONTAINER_VALUE"); /*_.OLDCONT__V4*/ meltfptr[3] = slot; }; ; } else { /*^cond.else */ /*_.OLDCONT__V4*/ meltfptr[3] = NULL;; } ; MELT_LOCATION ("warmelt-debug.melt:207:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L1*/ meltfnum[0] = (( /*_.F__V2*/ meltfptr[1]) == NULL);; MELT_LOCATION ("warmelt-debug.melt:207:/ cond"); /*cond */ if ( /*_#NULL__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ /*_#OR___L2*/ meltfnum[1] = /*_#NULL__L1*/ meltfnum[0];; } else { MELT_LOCATION ("warmelt-debug.melt:207:/ cond.else"); /*^block */ /*anyblock */ { /*_#IS_CLOSURE__L3*/ meltfnum[2] = (melt_magic_discr ((melt_ptr_t) ( /*_.F__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);; /*^compute */ /*_#OR___L2*/ meltfnum[1] = /*_#IS_CLOSURE__L3*/ meltfnum[2];; /*epilog */ MELT_LOCATION ("warmelt-debug.melt:207:/ clear"); /*clear *//*_#IS_CLOSURE__L3*/ meltfnum[2] = 0; } ; } ; /*^cond */ /*cond */ if ( /*_#OR___L2*/ meltfnum[1]) /*then */ { /*^cond.then */ /*^block */ /*anyblock */ { MELT_LOCATION ("warmelt-debug.melt:208:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.F__V2*/ meltfptr[1]; /*_.SET_CONTENT__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t) (( /*!SET_CONTENT */ meltfrout->tabval[2])), (melt_ptr_t) (( /*!GIMPLE_DEBUG_FUNCONT */ meltfrout->tabval[0])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*_.IF___V5*/ meltfptr[4] = /*_.SET_CONTENT__V6*/ meltfptr[5];; /*epilog */ MELT_LOCATION ("warmelt-debug.melt:207:/ clear"); /*clear *//*_.SET_CONTENT__V6*/ meltfptr[5] = 0; } ; } else { /*^cond.else */ /*_.IF___V5*/ meltfptr[4] = NULL;; } ; /*^compute */ /*_.LET___V3*/ meltfptr[2] = /*_.OLDCONT__V4*/ meltfptr[3];; MELT_LOCATION ("warmelt-debug.melt:205:/ clear"); /*clear *//*_.OLDCONT__V4*/ meltfptr[3] = 0; /*^clear */ /*clear *//*_#NULL__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_#OR___L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IF___V5*/ meltfptr[4] = 0; MELT_LOCATION ("warmelt-debug.melt:200:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V3*/ meltfptr[2];; MELT_LOCATION ("warmelt-debug.melt:200:/ finalreturn"); ; /*finalret */ goto labend_rout; /*epilog */ /*^clear */ /*clear *//*_.LET___V3*/ meltfptr[2] = 0; } ; goto labend_rout; labend_rout: melt_trace_end ("REGISTER_GIMPLE_DEBUG_FUN", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_3_warmelt_debug_REGISTER_GIMPLE_DEBUG_FUN_melt; melt_topframe = (struct melt_callframe_st *) meltfram__.mcfr_prev; return (melt_ptr_t) ( /*_.RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_3_warmelt_debug_REGISTER_GIMPLE_DEBUG_FUN */ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_4_warmelt_debug_REGISTER_GIMPLESEQ_DEBUG_FUN (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un * meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un * meltxrestab_) { long current_blocklevel_signals_meltrout_4_warmelt_debug_REGISTER_GIMPLESEQ_DEBUG_FUN_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++call_counter__; #undef meltcallcount #define meltcallcount thiscallcounter__ #else #undef meltcallcount #define meltcallcount 0L #endif struct frame_meltrout_4_warmelt_debug_REGISTER_GIMPLESEQ_DEBUG_FUN_st { int mcfr_nbvar; #if MELT_HAVE_DEBUG const char *mcfr_flocs; #else /*!MELT_HAVE_DEBUG */ const char *mcfr_unusedflocs; #endif /*MELT_HAVE_DEBUG */ struct meltclosure_st *mcfr_clos; struct excepth_melt_st *mcfr_exh; struct melt_callframe_st *mcfr_prev; #define MELTFRAM_NBVARPTR 6 melt_ptr_t mcfr_varptr[6]; #define MELTFRAM_NBVARNUM 3 long mcfr_varnum[3]; /*others*/ long _spare_; } *meltframptr_ = 0, meltfram__; #define meltframe meltfram__ if (MELT_UNLIKELY (meltxargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc */ int ix = 0; meltframptr_ = (struct frame_meltrout_4_warmelt_debug_REGISTER_GIMPLESEQ_DEBUG_FUN_st *) meltfirstargp_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 6; ix++) if (meltframptr_->mcfr_varptr[ix]) gt_ggc_mx_melt_un (meltframptr_->mcfr_varptr[ix]); return NULL; } /*end markggc */ ; memset (&meltfram__, 0, sizeof (meltfram__)); meltfram__.mcfr_nbvar = 6; meltfram__.mcfr_clos = meltclosp_; meltfram__.mcfr_prev = (struct melt_callframe_st *) melt_topframe; melt_topframe = (struct melt_callframe_st *) &meltfram__; melt_trace_start ("REGISTER_GIMPLESEQ_DEBUG_FUN", meltcallcount); /*getargs*/ /*getarg#0 */ MELT_LOCATION ("warmelt-debug.melt:213:/ getarg"); /*_.F__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ /*^block*/ /*anyblock*/ { MELT_LOCATION ("warmelt-debug.melt:218:/ quasiblock"); /*^cond */ /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) (( /*!GIMPLESEQ_DEBUG_FUNCONT */ meltfrout->tabval[0])), (melt_ptr_t) (( /*!CLASS_CONTAINER */ meltfrout->tabval[1]))) ) /*then */ { /*^cond.then */ /*^getslot */ { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) (( /*!GIMPLESEQ_DEBUG_FUNCONT */ meltfrout->tabval[0])), 0, "CONTAINER_VALUE"); /*_.OLDCONT__V4*/ meltfptr[3] = slot; }; ; } else { /*^cond.else */ /*_.OLDCONT__V4*/ meltfptr[3] = NULL;; } ; MELT_LOCATION ("warmelt-debug.melt:220:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L1*/ meltfnum[0] = (( /*_.F__V2*/ meltfptr[1]) == NULL);; MELT_LOCATION ("warmelt-debug.melt:220:/ cond"); /*cond */ if ( /*_#NULL__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ /*_#OR___L2*/ meltfnum[1] = /*_#NULL__L1*/ meltfnum[0];; } else { MELT_LOCATION ("warmelt-debug.melt:220:/ cond.else"); /*^block */ /*anyblock */ { /*_#IS_CLOSURE__L3*/ meltfnum[2] = (melt_magic_discr ((melt_ptr_t) ( /*_.F__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);; /*^compute */ /*_#OR___L2*/ meltfnum[1] = /*_#IS_CLOSURE__L3*/ meltfnum[2];; /*epilog */ MELT_LOCATION ("warmelt-debug.melt:220:/ clear"); /*clear *//*_#IS_CLOSURE__L3*/ meltfnum[2] = 0; } ; } ; /*^cond */ /*cond */ if ( /*_#OR___L2*/ meltfnum[1]) /*then */ { /*^cond.then */ /*^block */ /*anyblock */ { MELT_LOCATION ("warmelt-debug.melt:221:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.F__V2*/ meltfptr[1]; /*_.SET_CONTENT__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t) (( /*!SET_CONTENT */ meltfrout->tabval[2])), (melt_ptr_t) (( /*!GIMPLESEQ_DEBUG_FUNCONT */ meltfrout->tabval[0])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*_.IF___V5*/ meltfptr[4] = /*_.SET_CONTENT__V6*/ meltfptr[5];; /*epilog */ MELT_LOCATION ("warmelt-debug.melt:220:/ clear"); /*clear *//*_.SET_CONTENT__V6*/ meltfptr[5] = 0; } ; } else { /*^cond.else */ /*_.IF___V5*/ meltfptr[4] = NULL;; } ; /*^compute */ /*_.LET___V3*/ meltfptr[2] = /*_.OLDCONT__V4*/ meltfptr[3];; MELT_LOCATION ("warmelt-debug.melt:218:/ clear"); /*clear *//*_.OLDCONT__V4*/ meltfptr[3] = 0; /*^clear */ /*clear *//*_#NULL__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_#OR___L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IF___V5*/ meltfptr[4] = 0; MELT_LOCATION ("warmelt-debug.melt:213:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V3*/ meltfptr[2];; MELT_LOCATION ("warmelt-debug.melt:213:/ finalreturn"); ; /*finalret */ goto labend_rout; /*epilog */ /*^clear */ /*clear *//*_.LET___V3*/ meltfptr[2] = 0; } ; goto labend_rout; labend_rout: melt_trace_end ("REGISTER_GIMPLESEQ_DEBUG_FUN", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_4_warmelt_debug_REGISTER_GIMPLESEQ_DEBUG_FUN_melt; melt_topframe = (struct melt_callframe_st *) meltfram__.mcfr_prev; return (melt_ptr_t) ( /*_.RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_4_warmelt_debug_REGISTER_GIMPLESEQ_DEBUG_FUN */ /****** emitted syntax checking for C generating devices *****/ #if MELT_HAVE_DEBUG /* generated syntax checking routine for 4 C generating devices */ void MELT_MODULE_VISIBILITY melt_syntax_tester_warmelt_debug (void) { if (1) return; /* generating device #1 */ /*primitive-syntax DEBUG_DEPTH*/ { long primres_0 = (long) (melt_debug_depth ()); if (primres_0) return; } /*end primitive-syntax DEBUG_DEPTH */ /* generating device #2 */ /*primitive-syntax MELT_REALLY_NEED_DEBUG*/ { long primf_0_DEPTH = 0; long primres_1 = /*MELT_REALLY_NEED_DEBUG */ (melt_need_debug ((int) primf_0_DEPTH)); if (primres_1) return; } /*end primitive-syntax MELT_REALLY_NEED_DEBUG */ /* generating device #3 */ /*primitive-syntax MELT_HAS_FLAG_DEBUG_SET*/ { long primres_2 = /*MELT_HAS_FLAG_DEBUG_SET */ melt_flag_debug; if (primres_2) return; } /*end primitive-syntax MELT_HAS_FLAG_DEBUG_SET */ /* generating device #4 */ /*primitive-syntax MELT_REALLY_NEED_DBGLIM*/ { long primf_0_DEPTH = 0; long primf_1_LIMIT = 0; long primres_3 = ( /*MELT_REALLY_NEED_DBGLIM */ melt_need_debug_limit ((int) primf_0_DEPTH, (int) primf_1_LIMIT)); if (primres_3) return; } /*end primitive-syntax MELT_REALLY_NEED_DBGLIM */ } /* end generated melt_syntax_tester_warmelt_debug */ #endif /*MELT_HAVE_DEBUG syntaxcheck */ typedef struct frame_start_module_melt_st { int mcfr_nbvar; #if MELT_HAVE_DEBUG const char *mcfr_flocs; #else /*!MELT_HAVE_DEBUG */ const char *mcfr_unusedflocs; #endif /*MELT_HAVE_DEBUG */ void (*mcfr_initforwmarkrout) (struct melt_callframe_st *, int); struct excepth_melt_st *mcfr_exh; struct melt_callframe_st *mcfr_prev; #define MELTFRAM_NBVARPTR 386 melt_ptr_t mcfr_varptr[386]; /*no varnum*/ #define MELTFRAM_NBVARNUM /*none*/0 /*others*/ long _spare_; } initial_frame_st; static void initialize_module_meltdata_warmelt_debug (initial_frame_st * iniframp__, char predefinited[]) { #define meltfram__ (*iniframp__) dbgprintf ("start initialize_module_meltdata_warmelt_debug iniframp__=%p", (void *) iniframp__); melt_assertmsg ("check module initial frame", iniframp__->mcfr_nbvar == /*minihash */ -2708); struct cdata_st { struct MELT_OBJECT_STRUCT (3) dsym_1__CLASS_DEBUG_INFORMATION; struct MELT_STRING_STRUCT (23) dstr_2__CLASS_DEBUG_INFO; struct MELT_OBJECT_STRUCT (3) dsym_3__CLASS_ROOT; struct MELT_STRING_STRUCT (10) dstr_4__CLASS_ROOT; struct MELT_OBJECT_STRUCT (8) dobj_5__CLASS_DEBUG_INFORMATION; struct MELT_STRING_STRUCT (23) dstr_6__CLASS_DEBUG_INFO; struct MELT_MULTIPLE_STRUCT (1) dtup_7__CLASS_DEBUG_INFORMATION; struct MELT_MULTIPLE_STRUCT (3) dtup_8__CLASS_DEBUG_INFORMATION; struct MELT_OBJECT_STRUCT (3) dsym_9__DBGI_OUT; struct MELT_STRING_STRUCT (8) dstr_10__DBGI_OUT; struct MELT_OBJECT_STRUCT (4) dobj_11__DBGI_OUT; struct MELT_STRING_STRUCT (8) dstr_12__DBGI_OUT; struct MELT_OBJECT_STRUCT (3) dsym_13__DBGI_OCCMAP; struct MELT_STRING_STRUCT (11) dstr_14__DBGI_OCCMAP; struct MELT_OBJECT_STRUCT (4) dobj_15__DBGI_OCCMAP; struct MELT_STRING_STRUCT (11) dstr_16__DBGI_OCCMAP; struct MELT_OBJECT_STRUCT (3) dsym_17__DBGI_MAXDEPTH; struct MELT_STRING_STRUCT (13) dstr_18__DBGI_MAXDEPTH; struct MELT_OBJECT_STRUCT (4) dobj_19__DBGI_MAXDEPTH; struct MELT_STRING_STRUCT (13) dstr_20__DBGI_MAXDEPTH; struct MELT_OBJECT_STRUCT (3) dsym_21__DEBUG_DEPTH; struct MELT_STRING_STRUCT (11) dstr_22__DEBUG_DEPTH; struct MELT_OBJECT_STRUCT (5) dobj_23__DEBUG_DEPTH; struct MELT_MULTIPLE_STRUCT (1) dtup_24__DEBUG_DEPTH; struct MELT_MULTIPLE_STRUCT (0) dtup_25__DEBUG_DEPTH; struct MELT_STRING_STRUCT (28) dstr_26__long_melt_deb; struct MELT_STRING_STRUCT (11) dstr_27__DEBUG_DEPTH; struct MELT_OBJECT_STRUCT (3) dsym_28__MELT_REALLY_NEED_DEBUG; struct MELT_STRING_STRUCT (22) dstr_29__MELT_REALLY_NEED; struct MELT_OBJECT_STRUCT (5) dobj_30__MELT_REALLY_NEED_DEBUG; struct MELT_MULTIPLE_STRUCT (3) dtup_31__MELT_REALLY_NEED_DEBUG; struct MELT_MULTIPLE_STRUCT (1) dtup_32__MELT_REALLY_NEED_DEBUG; struct MELT_OBJECT_STRUCT (3) dsym_33__DEPTH; struct MELT_STRING_STRUCT (5) dstr_34__DEPTH; struct MELT_OBJECT_STRUCT (2) dobj_35; struct MELT_STRING_STRUCT (51) dstr_36__MELT_REALLY_NE; struct MELT_STRING_STRUCT (2) dstr_37__; struct MELT_STRING_STRUCT (22) dstr_38__MELT_REALLY_NEED; struct MELT_OBJECT_STRUCT (3) dsym_39__MELT_HAS_FLAG_DEBUG_SET; struct MELT_STRING_STRUCT (23) dstr_40__MELT_HAS_FLAG_DE; struct MELT_OBJECT_STRUCT (5) dobj_41__MELT_HAS_FLAG_DEBUG_SET; struct MELT_MULTIPLE_STRUCT (1) dtup_42__MELT_HAS_FLAG_DEBUG_SET; struct MELT_MULTIPLE_STRUCT (0) dtup_43__MELT_HAS_FLAG_DEBUG_SET; struct MELT_STRING_STRUCT (43) dstr_44__MELT_HAS_FLAG_; struct MELT_STRING_STRUCT (23) dstr_45__MELT_HAS_FLAG_DE; struct MELT_OBJECT_STRUCT (3) dsym_46__MELT_REALLY_NEED_DBGLIM; struct MELT_STRING_STRUCT (23) dstr_47__MELT_REALLY_NEED; struct MELT_OBJECT_STRUCT (5) dobj_48__MELT_REALLY_NEED_DBGLIM; struct MELT_MULTIPLE_STRUCT (5) dtup_49__MELT_REALLY_NEED_DBGLIM; struct MELT_MULTIPLE_STRUCT (2) dtup_50__MELT_REALLY_NEED_DBGLIM; struct MELT_OBJECT_STRUCT (2) dobj_51; struct MELT_OBJECT_STRUCT (3) dsym_52__LIMIT; struct MELT_STRING_STRUCT (5) dstr_53__LIMIT; struct MELT_OBJECT_STRUCT (2) dobj_54; struct MELT_STRING_STRUCT (59) dstr_55__MELT_REALLY_; struct MELT_STRING_STRUCT (8) dstr_56__int_; struct MELT_STRING_STRUCT (2) dstr_57__; struct MELT_STRING_STRUCT (23) dstr_58__MELT_REALLY_NEED; struct MELT_ROUTINE_STRUCT (7) drout_59__DEBUG_MSG_FUN; struct MELT_CLOSURE_STRUCT (0) dclo_60__DEBUG_MSG_FUN; struct MELT_OBJECT_STRUCT (3) dsym_61__INITIAL_SYSTEM_DATA; struct MELT_STRING_STRUCT (19) dstr_62__INITIAL_SYSTEM_D; struct MELT_OBJECT_STRUCT (3) dsym_63__CLASS_SYSTEM_DATA; struct MELT_STRING_STRUCT (17) dstr_64__CLASS_SYSTEM_DAT; struct MELT_OBJECT_STRUCT (3) dsym_65__DISCR_MAP_OBJECTS; struct MELT_STRING_STRUCT (17) dstr_66__DISCR_MAP_OBJECT; struct MELT_OBJECT_STRUCT (3) dsym_67__DISCR_INTEGER; struct MELT_STRING_STRUCT (13) dstr_68__DISCR_INTEGER; struct MELT_OBJECT_STRUCT (3) dsym_69__DISCR_STRBUF; struct MELT_STRING_STRUCT (12) dstr_70__DISCR_STRBUF; struct MELT_OBJECT_STRUCT (3) dsym_71__DBG_OUTPUT; struct MELT_STRING_STRUCT (10) dstr_72__DBG_OUTPUT; struct MELT_OBJECT_STRUCT (3) dsym_73__CLASS_SELECTOR; struct MELT_STRING_STRUCT (14) dstr_74__CLASS_SELECTOR; struct MELT_OBJECT_STRUCT (3) dsym_75__RECV; struct MELT_STRING_STRUCT (4) dstr_76__RECV; struct MELT_OBJECT_STRUCT (2) dobj_77; struct MELT_OBJECT_STRUCT (3) dsym_78__DBGINFO; struct MELT_STRING_STRUCT (7) dstr_79__DBGINFO; struct MELT_OBJECT_STRUCT (2) dobj_80; struct MELT_OBJECT_STRUCT (2) dobj_81; struct MELT_MULTIPLE_STRUCT (3) dtup_82__DBG_OUTPUT; struct MELT_OBJECT_STRUCT (4) dobj_83__DBG_OUTPUT; struct MELT_STRING_STRUCT (10) dstr_84__DBG_OUTPUT; struct MELT_OBJECT_STRUCT (3) dsym_85__DBG_OUTPUTAGAIN; struct MELT_STRING_STRUCT (15) dstr_86__DBG_OUTPUTAGAIN; struct MELT_OBJECT_STRUCT (2) dobj_87; struct MELT_OBJECT_STRUCT (2) dobj_88; struct MELT_OBJECT_STRUCT (2) dobj_89; struct MELT_MULTIPLE_STRUCT (3) dtup_90__DBG_OUTPUTAGAIN; struct MELT_OBJECT_STRUCT (4) dobj_91__DBG_OUTPUTAGAIN; struct MELT_STRING_STRUCT (15) dstr_92__DBG_OUTPUTAGAIN; struct MELT_OBJECT_STRUCT (3) dsym_93__TREE_DEBUG_FUNCONT; struct MELT_STRING_STRUCT (18) dstr_94__TREE_DEBUG_FUNCO; struct MELT_OBJECT_STRUCT (3) dsym_95__CLASS_CONTAINER; struct MELT_STRING_STRUCT (15) dstr_96__CLASS_CONTAINER; struct MELT_OBJECT_STRUCT (1) dobj_97__TREE_DEBUG_FUNCONT; struct MELT_ROUTINE_STRUCT (3) drout_98__REGISTER_TREE_DEBUG_FUN; struct MELT_CLOSURE_STRUCT (0) dclo_99__REGISTER_TREE_DEBUG_FUN; struct MELT_OBJECT_STRUCT (3) dsym_100__SET_CONTENT; struct MELT_STRING_STRUCT (11) dstr_101__SET_CONTENT; struct MELT_OBJECT_STRUCT (3) dsym_102__GIMPLE_DEBUG_FUNCONT; struct MELT_STRING_STRUCT (20) dstr_103__GIMPLE_DEBUG_FUN; struct MELT_OBJECT_STRUCT (1) dobj_104__GIMPLE_DEBUG_FUNCONT; struct MELT_ROUTINE_STRUCT (3) drout_105__REGISTER_GIMPLE_DEBUG_FUN; struct MELT_CLOSURE_STRUCT (0) dclo_106__REGISTER_GIMPLE_DEBUG_FUN; struct MELT_OBJECT_STRUCT (3) dsym_107__GIMPLESEQ_DEBUG_FUNCONT; struct MELT_STRING_STRUCT (23) dstr_108__GIMPLESEQ_DEBUG_; struct MELT_OBJECT_STRUCT (1) dobj_109__GIMPLESEQ_DEBUG_FUNCONT; struct MELT_ROUTINE_STRUCT (3) drout_110__REGISTER_GIMPLESEQ_DEBUG_FUN; struct MELT_CLOSURE_STRUCT (0) dclo_111__REGISTER_GIMPLESEQ_DEBUG_FUN; struct MELT_OBJECT_STRUCT (3) dsym_112__EDGE_DEBUG_FUNCONT; struct MELT_STRING_STRUCT (18) dstr_113__EDGE_DEBUG_FUNCO; struct MELT_OBJECT_STRUCT (1) dobj_114__EDGE_DEBUG_FUNCONT; struct MELT_ROUTINE_STRUCT (3) drout_115__REGISTER_EDGE_DEBUG_FUN; struct MELT_CLOSURE_STRUCT (0) dclo_116__REGISTER_EDGE_DEBUG_FUN; struct MELT_OBJECT_STRUCT (3) dsym_117__BASICBLOCK_DEBUG_FUNCONT; struct MELT_STRING_STRUCT (24) dstr_118__BASICBLOCK_DEBUG; struct MELT_OBJECT_STRUCT (1) dobj_119__BASICBLOCK_DEBUG_FUNCONT; struct MELT_ROUTINE_STRUCT (3) drout_120__REGISTER_BASICBLOCK_DEBUG_FUN; struct MELT_CLOSURE_STRUCT (0) dclo_121__REGISTER_BASICBLOCK_DEBUG_FUN; struct MELT_OBJECT_STRUCT (3) dsym_122__LOOP_DEBUG_FUNCONT; struct MELT_STRING_STRUCT (18) dstr_123__LOOP_DEBUG_FUNCO; struct MELT_OBJECT_STRUCT (1) dobj_124__LOOP_DEBUG_FUNCONT; struct MELT_ROUTINE_STRUCT (3) drout_125__REGISTER_LOOP_DEBUG_FUN; struct MELT_CLOSURE_STRUCT (0) dclo_126__REGISTER_LOOP_DEBUG_FUN; struct MELT_OBJECT_STRUCT (3) dsym_127__DISCR_DEBUG_CLOSURE; struct MELT_STRING_STRUCT (19) dstr_128__DISCR_DEBUG_CLOS; struct MELT_OBJECT_STRUCT (3) dsym_129__CLASS_DISCRIMINANT; struct MELT_STRING_STRUCT (18) dstr_130__CLASS_DISCRIMINA; struct MELT_OBJECT_STRUCT (5) dobj_131__DISCR_DEBUG_CLOSURE; struct MELT_OBJECT_STRUCT (3) dsym_132__DISCR_CLOSURE; struct MELT_STRING_STRUCT (13) dstr_133__DISCR_CLOSURE; struct MELT_STRING_STRUCT (19) dstr_134__DISCR_DEBUG_CLOS; struct MELT_ROUTINE_STRUCT (19) drout_135__MELT_DEBUG_FUN; struct MELT_CLOSURE_STRUCT (0) dclo_136__MELT_DEBUG_FUN; struct MELT_OBJECT_STRUCT (3) dsym_137__ADD2OUT; struct MELT_STRING_STRUCT (7) dstr_138__ADD2OUT; struct MELT_OBJECT_STRUCT (3) dsym_139__CSTRING_PREFIXED; struct MELT_STRING_STRUCT (16) dstr_140__CSTRING_PREFIXED; struct MELT_OBJECT_STRUCT (3) dsym_141__CLASS_NAMED; struct MELT_STRING_STRUCT (11) dstr_142__CLASS_NAMED; struct MELT_OBJECT_STRUCT (3) dsym_143__CLASS_CTYPE; struct MELT_STRING_STRUCT (11) dstr_144__CLASS_CTYPE; struct MELT_ROUTINE_STRUCT (4) drout_145__DBG_OUTOBJECT; struct MELT_CLOSURE_STRUCT (0) dclo_146__DBG_OUTOBJECT; struct MELT_ROUTINE_STRUCT (3) drout_147__DBG_OUT; struct MELT_CLOSURE_STRUCT (0) dclo_148__DBG_OUT; struct MELT_ROUTINE_STRUCT (2) drout_149__DBGOUT_FIELDS; struct MELT_CLOSURE_STRUCT (0) dclo_150__DBGOUT_FIELDS; struct MELT_ROUTINE_STRUCT (2) drout_151__DBGOUTAGAIN_FIELDS; struct MELT_CLOSURE_STRUCT (0) dclo_152__DBGOUTAGAIN_FIELDS; struct MELT_ROUTINE_STRUCT (0) drout_153__DBGOUT_NULL_METHOD; struct MELT_CLOSURE_STRUCT (0) dclo_154__DBGOUT_NULL_METHOD; struct MELT_OBJECT_STRUCT (3) dsym_155__INSTALL_METHOD; struct MELT_STRING_STRUCT (14) dstr_156__INSTALL_METHOD; struct MELT_OBJECT_STRUCT (3) dsym_157__DISCR_NULL_RECEIVER; struct MELT_STRING_STRUCT (19) dstr_158__DISCR_NULL_RECEI; struct MELT_ROUTINE_STRUCT (2) drout_159__DBGOUT_STRING_METHOD; struct MELT_CLOSURE_STRUCT (0) dclo_160__DBGOUT_STRING_METHOD; struct MELT_OBJECT_STRUCT (3) dsym_161__DISCR_STRING; struct MELT_STRING_STRUCT (12) dstr_162__DISCR_STRING; struct MELT_ROUTINE_STRUCT (3) drout_163__DBGOUT_STRBUF_METHOD; struct MELT_CLOSURE_STRUCT (0) dclo_164__DBGOUT_STRBUF_METHOD; struct MELT_ROUTINE_STRUCT (2) drout_165__DBGOUT_INTEGER_METHOD; struct MELT_CLOSURE_STRUCT (0) dclo_166__DBGOUT_INTEGER_METHOD; struct MELT_ROUTINE_STRUCT (3) drout_167__DBGOUT_MIXINT_METHOD; struct MELT_CLOSURE_STRUCT (0) dclo_168__DBGOUT_MIXINT_METHOD; struct MELT_OBJECT_STRUCT (3) dsym_169__DISCR_MIXED_INTEGER; struct MELT_STRING_STRUCT (19) dstr_170__DISCR_MIXED_INTE; struct MELT_ROUTINE_STRUCT (2) drout_171__DBGOUT_MIXLOC_METHOD; struct MELT_CLOSURE_STRUCT (0) dclo_172__DBGOUT_MIXLOC_METHOD; struct MELT_OBJECT_STRUCT (3) dsym_173__DISCR_MIXED_LOCATION; struct MELT_STRING_STRUCT (20) dstr_174__DISCR_MIXED_LOCA; struct MELT_ROUTINE_STRUCT (2) drout_175__DBGOUT_MIXBIGINT_METHOD; struct MELT_CLOSURE_STRUCT (0) dclo_176__DBGOUT_MIXBIGINT_METHOD; struct MELT_OBJECT_STRUCT (3) dsym_177__DISCR_MIXED_BIGINT; struct MELT_STRING_STRUCT (18) dstr_178__DISCR_MIXED_BIGI; struct MELT_ROUTINE_STRUCT (3) drout_179__DBGOUT_MULTIPLE_METHOD; struct MELT_CLOSURE_STRUCT (0) dclo_180__DBGOUT_MULTIPLE_METHOD; struct MELT_OBJECT_STRUCT (3) dsym_181__DISCR_MULTIPLE; struct MELT_STRING_STRUCT (14) dstr_182__DISCR_MULTIPLE; struct MELT_ROUTINE_STRUCT (6) drout_183__DBGOUT_ROUTINE_METHOD; struct MELT_CLOSURE_STRUCT (0) dclo_184__DBGOUT_ROUTINE_METHOD; struct MELT_OBJECT_STRUCT (3) dsym_185__DISCR_ROUTINE; struct MELT_STRING_STRUCT (13) dstr_186__DISCR_ROUTINE; struct MELT_OBJECT_STRUCT (3) dsym_187__ROUTINE_EVERY; struct MELT_STRING_STRUCT (13) dstr_188__ROUTINE_EVERY; struct MELT_ROUTINE_STRUCT (1) drout_189__LAMBDA_; struct MELT_ROUTINE_STRUCT (3) drout_190__DBGOUT_CLOSURE_METHOD; struct MELT_CLOSURE_STRUCT (0) dclo_191__DBGOUT_CLOSURE_METHOD; struct MELT_ROUTINE_STRUCT (3) drout_192__DBGOUT_LIST_METHOD; struct MELT_CLOSURE_STRUCT (0) dclo_193__DBGOUT_LIST_METHOD; struct MELT_OBJECT_STRUCT (3) dsym_194__DISCR_LIST; struct MELT_STRING_STRUCT (10) dstr_195__DISCR_LIST; struct MELT_ROUTINE_STRUCT (3) drout_196__DBGOUT_PAIR_METHOD; struct MELT_CLOSURE_STRUCT (0) dclo_197__DBGOUT_PAIR_METHOD; struct MELT_OBJECT_STRUCT (3) dsym_198__DISCR_PAIR; struct MELT_STRING_STRUCT (10) dstr_199__DISCR_PAIR; struct MELT_ROUTINE_STRUCT (15) drout_200__DBGOUT_MAPOBJECT_METHOD; struct MELT_CLOSURE_STRUCT (0) dclo_201__DBGOUT_MAPOBJECT_METHOD; struct MELT_OBJECT_STRUCT (3) dsym_202__MAPOBJECT_EVERY; struct MELT_STRING_STRUCT (15) dstr_203__MAPOBJECT_EVERY; struct MELT_ROUTINE_STRUCT (1) drout_204__LAMBDA_; struct MELT_ROUTINE_STRUCT (4) drout_205__LAMBDA_; struct MELT_OBJECT_STRUCT (3) dsym_206__COMPARE_OBJ_RANKED; struct MELT_STRING_STRUCT (18) dstr_207__COMPARE_OBJ_RANK; struct meltint_st dint_208__; struct meltint_st dint_209__; struct meltint_st dint_210__; struct MELT_OBJECT_STRUCT (3) dsym_211__MULTIPLE_EVERY; struct MELT_STRING_STRUCT (14) dstr_212__MULTIPLE_EVERY; struct MELT_ROUTINE_STRUCT (2) drout_213__LAMBDA_; struct MELT_ROUTINE_STRUCT (14) drout_214__DBGOUT_MAPSTRING_METHOD; struct MELT_CLOSURE_STRUCT (0) dclo_215__DBGOUT_MAPSTRING_METHOD; struct MELT_OBJECT_STRUCT (3) dsym_216__DISCR_MAP_STRINGS; struct MELT_STRING_STRUCT (17) dstr_217__DISCR_MAP_STRING; struct MELT_OBJECT_STRUCT (3) dsym_218__MAPSTRING_EVERY; struct MELT_STRING_STRUCT (15) dstr_219__MAPSTRING_EVERY; struct MELT_ROUTINE_STRUCT (1) drout_220__LAMBDA_; struct MELT_ROUTINE_STRUCT (4) drout_221__LAMBDA_; struct meltint_st dint_222__; struct meltint_st dint_223__; struct meltint_st dint_224__; struct MELT_ROUTINE_STRUCT (1) drout_225__LAMBDA_; struct MELT_ROUTINE_STRUCT (2) drout_226__DBGOUT_ANYOBJECT_METHOD; struct MELT_CLOSURE_STRUCT (0) dclo_227__DBGOUT_ANYOBJECT_METHOD; struct MELT_ROUTINE_STRUCT (2) drout_228__DBGOUT_ANYRECV_METHOD; struct MELT_CLOSURE_STRUCT (0) dclo_229__DBGOUT_ANYRECV_METHOD; struct MELT_OBJECT_STRUCT (3) dsym_230__DISCR_ANY_RECEIVER; struct MELT_STRING_STRUCT (18) dstr_231__DISCR_ANY_RECEIV; struct MELT_ROUTINE_STRUCT (1) drout_232__DBGOUTAGAIN_ANYOBJECT_METHOD; struct MELT_CLOSURE_STRUCT (0) dclo_233__DBGOUTAGAIN_ANYOBJECT_METHOD; struct MELT_ROUTINE_STRUCT (3) drout_234__DBGOUT_NAMEDOBJECT_METHOD; struct MELT_CLOSURE_STRUCT (0) dclo_235__DBGOUT_NAMEDOBJECT_METHOD; struct MELT_OBJECT_STRUCT (3) dsym_236__DBGOUT_NAMEDOBJECT_METHOD; struct MELT_STRING_STRUCT (25) dstr_237__DBGOUT_NAMEDOBJE; struct MELT_ROUTINE_STRUCT (1) drout_238__DBGOUTAGAIN_NAMEDOBJECT_METHOD; struct MELT_CLOSURE_STRUCT (0) dclo_239__DBGOUTAGAIN_NAMEDOBJECT_METHOD; struct MELT_ROUTINE_STRUCT (2) drout_240__DBGOUTAGAIN_SYMBOL_METHOD; struct MELT_CLOSURE_STRUCT (0) dclo_241__DBGOUTAGAIN_SYMBOL_METHOD; struct MELT_OBJECT_STRUCT (3) dsym_242__CLASS_SYMBOL; struct MELT_STRING_STRUCT (12) dstr_243__CLASS_SYMBOL; struct MELT_ROUTINE_STRUCT (4) drout_244__DBGOUT_SYMBOL_METHOD; struct MELT_CLOSURE_STRUCT (0) dclo_245__DBGOUT_SYMBOL_METHOD; struct MELT_ROUTINE_STRUCT (4) drout_246__DBGOUT_CLASS_METHOD; struct MELT_CLOSURE_STRUCT (0) dclo_247__DBGOUT_CLASS_METHOD; struct MELT_OBJECT_STRUCT (3) dsym_248__CLASS_CLASS; struct MELT_STRING_STRUCT (11) dstr_249__CLASS_CLASS; struct MELT_ROUTINE_STRUCT (2) drout_250__DBGOUTAGAIN_KEYWORD_METHOD; struct MELT_CLOSURE_STRUCT (0) dclo_251__DBGOUTAGAIN_KEYWORD_METHOD; struct MELT_OBJECT_STRUCT (3) dsym_252__CLASS_KEYWORD; struct MELT_STRING_STRUCT (13) dstr_253__CLASS_KEYWORD; struct MELT_ROUTINE_STRUCT (4) drout_254__DBGOUT_KEYWORD_METHOD; struct MELT_CLOSURE_STRUCT (0) dclo_255__DBGOUT_KEYWORD_METHOD; struct MELT_ROUTINE_STRUCT (0) drout_256__DBGOUTAGAIN_CLONED_SYMBOL_METHOD; struct MELT_CLOSURE_STRUCT (0) dclo_257__DBGOUTAGAIN_CLONED_SYMBOL_METHOD; struct MELT_OBJECT_STRUCT (3) dsym_258__CLASS_CLONED_SYMBOL; struct MELT_STRING_STRUCT (19) dstr_259__CLASS_CLONED_SYM; struct MELT_ROUTINE_STRUCT (4) drout_260__DBGOUT_CLONED_SYMBOL_METHOD; struct MELT_CLOSURE_STRUCT (0) dclo_261__DBGOUT_CLONED_SYMBOL_METHOD; struct MELT_ROUTINE_STRUCT (5) drout_262__DBGOUT_ENVIRONMENT_METHOD; struct MELT_CLOSURE_STRUCT (0) dclo_263__DBGOUT_ENVIRONMENT_METHOD; struct MELT_OBJECT_STRUCT (3) dsym_264__CLASS_ENVIRONMENT; struct MELT_STRING_STRUCT (17) dstr_265__CLASS_ENVIRONMEN; struct MELT_OBJECT_STRUCT (3) dsym_266__ENV_PREV; struct MELT_STRING_STRUCT (8) dstr_267__ENV_PREV; struct MELT_ROUTINE_STRUCT (0) drout_268__DBGOUTAGAIN_CTYPE_METHOD; struct MELT_CLOSURE_STRUCT (0) dclo_269__DBGOUTAGAIN_CTYPE_METHOD; struct MELT_ROUTINE_STRUCT (4) drout_270__DBGOUT_CTYPE_METHOD; struct MELT_CLOSURE_STRUCT (0) dclo_271__DBGOUT_CTYPE_METHOD; struct MELT_ROUTINE_STRUCT (4) drout_272__DBGOUT_ANYBINDING_METHOD; struct MELT_CLOSURE_STRUCT (0) dclo_273__DBGOUT_ANYBINDING_METHOD; struct MELT_OBJECT_STRUCT (3) dsym_274__CLASS_ANY_BINDING; struct MELT_STRING_STRUCT (17) dstr_275__CLASS_ANY_BINDIN; struct MELT_ROUTINE_STRUCT (5) drout_276__DISPLAY_DEBUG_MESSAGE; struct MELT_CLOSURE_STRUCT (0) dclo_277__DISPLAY_DEBUG_MESSAGE; struct MELT_OBJECT_STRUCT (3) dsym_278__DBG_OUT; struct MELT_STRING_STRUCT (7) dstr_279__DBG_OUT; struct MELT_OBJECT_STRUCT (3) dsym_280__DBG_OUTOBJECT; struct MELT_STRING_STRUCT (13) dstr_281__DBG_OUTOBJECT; struct MELT_OBJECT_STRUCT (3) dsym_282__DBGOUT_FIELDS; struct MELT_STRING_STRUCT (13) dstr_283__DBGOUT_FIELDS; struct MELT_OBJECT_STRUCT (3) dsym_284__DBGOUTAGAIN_FIELDS; struct MELT_STRING_STRUCT (18) dstr_285__DBGOUTAGAIN_FIEL; struct MELT_OBJECT_STRUCT (3) dsym_286__DEBUG_MSG_FUN; struct MELT_STRING_STRUCT (13) dstr_287__DEBUG_MSG_FUN; struct MELT_OBJECT_STRUCT (3) dsym_288__DISPLAY_DEBUG_MESSAGE; struct MELT_STRING_STRUCT (21) dstr_289__DISPLAY_DEBUG_ME; struct MELT_OBJECT_STRUCT (3) dsym_290__MELT_DEBUG_FUN; struct MELT_STRING_STRUCT (14) dstr_291__MELT_DEBUG_FUN; struct MELT_OBJECT_STRUCT (3) dsym_292__REGISTER_BASICBLOCK_DEBUG_FUN; struct MELT_STRING_STRUCT (29) dstr_293__REGISTER_BASICBL; struct MELT_OBJECT_STRUCT (3) dsym_294__REGISTER_EDGE_DEBUG_FUN; struct MELT_STRING_STRUCT (23) dstr_295__REGISTER_EDGE_DE; struct MELT_OBJECT_STRUCT (3) dsym_296__REGISTER_GIMPLE_DEBUG_FUN; struct MELT_STRING_STRUCT (25) dstr_297__REGISTER_GIMPLE_; struct MELT_OBJECT_STRUCT (3) dsym_298__REGISTER_GIMPLESEQ_DEBUG_FUN; struct MELT_STRING_STRUCT (28) dstr_299__REGISTER_GIMPLES; struct MELT_OBJECT_STRUCT (3) dsym_300__REGISTER_LOOP_DEBUG_FUN; struct MELT_STRING_STRUCT (23) dstr_301__REGISTER_LOOP_DE; struct MELT_OBJECT_STRUCT (3) dsym_302__REGISTER_TREE_DEBUG_FUN; struct MELT_STRING_STRUCT (23) dstr_303__REGISTER_TREE_DE; long spare_; } *cdat = NULL; cdat = (struct cdata_st *) meltgc_allocate (sizeof (*cdat), 0); melt_prohibit_garbcoll = TRUE; /*initial routine predef */ /*initial routine fill */ /*iniobj dsym_1__CLASS_DEBUG_INFORMATION*/ /*uniqueobj*/ if (! /*_.VALDATA___V46*/ meltfptr[45]) /*_.VALDATA___V46*/ meltfptr[45] = (melt_ptr_t) & cdat->dsym_1__CLASS_DEBUG_INFORMATION; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1__CLASS_DEBUG_INFORMATION", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1__CLASS_DEBUG_INFORMATION", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1__CLASS_DEBUG_INFORMATION.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1__CLASS_DEBUG_INFORMATION.obj_hash = 190162903; cdat->dsym_1__CLASS_DEBUG_INFORMATION.obj_len = 3; /*inistring dstr_2__CLASS_DEBUG_INFO*/ /*_.VALSTR___V47*/ meltfptr[46] = (melt_ptr_t) & cdat->dstr_2__CLASS_DEBUG_INFO; cdat->dstr_2__CLASS_DEBUG_INFO.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_2__CLASS_DEBUG_INFO.val, "CLASS_DEBUG_INFORMATION", sizeof (cdat->dstr_2__CLASS_DEBUG_INFO.val) - 1); /*iniobj dsym_3__CLASS_ROOT*/ /*uniqueobj*/ if (! /*_.VALDATA___V48*/ meltfptr[47]) /*_.VALDATA___V48*/ meltfptr[47] = (melt_ptr_t) & cdat->dsym_3__CLASS_ROOT; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_3__CLASS_ROOT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_3__CLASS_ROOT", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_3__CLASS_ROOT.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_3__CLASS_ROOT.obj_hash = 60568825; cdat->dsym_3__CLASS_ROOT.obj_len = 3; /*inistring dstr_4__CLASS_ROOT*/ /*_.VALSTR___V49*/ meltfptr[48] = (melt_ptr_t) & cdat->dstr_4__CLASS_ROOT; cdat->dstr_4__CLASS_ROOT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_4__CLASS_ROOT.val, "CLASS_ROOT", sizeof (cdat->dstr_4__CLASS_ROOT.val) - 1); MELT_LOCATION ("warmelt-debug.melt:39:/ iniobj"); /*iniobj dobj_5__CLASS_DEBUG_INFORMATION*/ /*_.VALDATA___V50*/ meltfptr[49] = (melt_ptr_t) & cdat->dobj_5__CLASS_DEBUG_INFORMATION; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_5__CLASS_DEBUG_INFORMATION", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_5__CLASS_DEBUG_INFORMATION", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_5__CLASS_DEBUG_INFORMATION.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_5__CLASS_DEBUG_INFORMATION.obj_num = MELTOBMAG_OBJECT; cdat->dobj_5__CLASS_DEBUG_INFORMATION.obj_hash = 663761215; cdat->dobj_5__CLASS_DEBUG_INFORMATION.obj_len = 8; /*inistring dstr_6__CLASS_DEBUG_INFO*/ /*_.VALSTR___V51*/ meltfptr[50] = (melt_ptr_t) & cdat->dstr_6__CLASS_DEBUG_INFO; cdat->dstr_6__CLASS_DEBUG_INFO.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_6__CLASS_DEBUG_INFO.val, "CLASS_DEBUG_INFORMATION", sizeof (cdat->dstr_6__CLASS_DEBUG_INFO.val) - 1); /*inimult dtup_7__CLASS_DEBUG_INFORMATION */ /*_.VALTUP___V52*/ meltfptr[51] = (melt_ptr_t) & cdat->dtup_7__CLASS_DEBUG_INFORMATION; cdat->dtup_7__CLASS_DEBUG_INFORMATION.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_7__CLASS_DEBUG_INFORMATION.nbval = 1; /*inimult dtup_8__CLASS_DEBUG_INFORMATION */ /*_.VALTUP___V59*/ meltfptr[58] = (melt_ptr_t) & cdat->dtup_8__CLASS_DEBUG_INFORMATION; cdat->dtup_8__CLASS_DEBUG_INFORMATION.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_8__CLASS_DEBUG_INFORMATION.nbval = 3; /*iniobj dsym_9__DBGI_OUT*/ /*uniqueobj*/ if (! /*_.VALDATA___V60*/ meltfptr[59]) /*_.VALDATA___V60*/ meltfptr[59] = (melt_ptr_t) & cdat->dsym_9__DBGI_OUT; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_9__DBGI_OUT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_9__DBGI_OUT", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_9__DBGI_OUT.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_9__DBGI_OUT.obj_hash = 639486128; cdat->dsym_9__DBGI_OUT.obj_len = 3; /*inistring dstr_10__DBGI_OUT*/ /*_.VALSTR___V61*/ meltfptr[60] = (melt_ptr_t) & cdat->dstr_10__DBGI_OUT; cdat->dstr_10__DBGI_OUT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_10__DBGI_OUT.val, "DBGI_OUT", sizeof (cdat->dstr_10__DBGI_OUT.val) - 1); /*^iniobj */ /*iniobj dobj_11__DBGI_OUT*/ /*_.VALDATA___V53*/ meltfptr[52] = (melt_ptr_t) & cdat->dobj_11__DBGI_OUT; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_11__DBGI_OUT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_11__DBGI_OUT", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_11__DBGI_OUT.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_11__DBGI_OUT.obj_num = 0; cdat->dobj_11__DBGI_OUT.obj_hash = 404975914; cdat->dobj_11__DBGI_OUT.obj_len = 4; /*inistring dstr_12__DBGI_OUT*/ /*_.VALSTR___V54*/ meltfptr[53] = (melt_ptr_t) & cdat->dstr_12__DBGI_OUT; cdat->dstr_12__DBGI_OUT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_12__DBGI_OUT.val, "DBGI_OUT", sizeof (cdat->dstr_12__DBGI_OUT.val) - 1); /*iniobj dsym_13__DBGI_OCCMAP*/ /*uniqueobj*/ if (! /*_.VALDATA___V62*/ meltfptr[61]) /*_.VALDATA___V62*/ meltfptr[61] = (melt_ptr_t) & cdat->dsym_13__DBGI_OCCMAP; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_13__DBGI_OCCMAP", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_13__DBGI_OCCMAP", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_13__DBGI_OCCMAP.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_13__DBGI_OCCMAP.obj_hash = 701804047; cdat->dsym_13__DBGI_OCCMAP.obj_len = 3; /*inistring dstr_14__DBGI_OCCMAP*/ /*_.VALSTR___V63*/ meltfptr[62] = (melt_ptr_t) & cdat->dstr_14__DBGI_OCCMAP; cdat->dstr_14__DBGI_OCCMAP.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_14__DBGI_OCCMAP.val, "DBGI_OCCMAP", sizeof (cdat->dstr_14__DBGI_OCCMAP.val) - 1); /*^iniobj */ /*iniobj dobj_15__DBGI_OCCMAP*/ /*_.VALDATA___V55*/ meltfptr[54] = (melt_ptr_t) & cdat->dobj_15__DBGI_OCCMAP; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_15__DBGI_OCCMAP", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_15__DBGI_OCCMAP", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_15__DBGI_OCCMAP.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_15__DBGI_OCCMAP.obj_num = 1; cdat->dobj_15__DBGI_OCCMAP.obj_hash = 952410908; cdat->dobj_15__DBGI_OCCMAP.obj_len = 4; /*inistring dstr_16__DBGI_OCCMAP*/ /*_.VALSTR___V56*/ meltfptr[55] = (melt_ptr_t) & cdat->dstr_16__DBGI_OCCMAP; cdat->dstr_16__DBGI_OCCMAP.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_16__DBGI_OCCMAP.val, "DBGI_OCCMAP", sizeof (cdat->dstr_16__DBGI_OCCMAP.val) - 1); /*iniobj dsym_17__DBGI_MAXDEPTH*/ /*uniqueobj*/ if (! /*_.VALDATA___V64*/ meltfptr[63]) /*_.VALDATA___V64*/ meltfptr[63] = (melt_ptr_t) & cdat->dsym_17__DBGI_MAXDEPTH; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_17__DBGI_MAXDEPTH", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_17__DBGI_MAXDEPTH", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_17__DBGI_MAXDEPTH.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_17__DBGI_MAXDEPTH.obj_hash = 732580240; cdat->dsym_17__DBGI_MAXDEPTH.obj_len = 3; /*inistring dstr_18__DBGI_MAXDEPTH*/ /*_.VALSTR___V65*/ meltfptr[64] = (melt_ptr_t) & cdat->dstr_18__DBGI_MAXDEPTH; cdat->dstr_18__DBGI_MAXDEPTH.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_18__DBGI_MAXDEPTH.val, "DBGI_MAXDEPTH", sizeof (cdat->dstr_18__DBGI_MAXDEPTH.val) - 1); /*^iniobj */ /*iniobj dobj_19__DBGI_MAXDEPTH*/ /*_.VALDATA___V57*/ meltfptr[56] = (melt_ptr_t) & cdat->dobj_19__DBGI_MAXDEPTH; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_19__DBGI_MAXDEPTH", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_19__DBGI_MAXDEPTH", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_19__DBGI_MAXDEPTH.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_19__DBGI_MAXDEPTH.obj_num = 2; cdat->dobj_19__DBGI_MAXDEPTH.obj_hash = 588743319; cdat->dobj_19__DBGI_MAXDEPTH.obj_len = 4; /*inistring dstr_20__DBGI_MAXDEPTH*/ /*_.VALSTR___V58*/ meltfptr[57] = (melt_ptr_t) & cdat->dstr_20__DBGI_MAXDEPTH; cdat->dstr_20__DBGI_MAXDEPTH.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_20__DBGI_MAXDEPTH.val, "DBGI_MAXDEPTH", sizeof (cdat->dstr_20__DBGI_MAXDEPTH.val) - 1); /*iniobj dsym_21__DEBUG_DEPTH*/ /*uniqueobj*/ if (! /*_.VALDATA___V66*/ meltfptr[65]) /*_.VALDATA___V66*/ meltfptr[65] = (melt_ptr_t) & cdat->dsym_21__DEBUG_DEPTH; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_21__DEBUG_DEPTH", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_21__DEBUG_DEPTH", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_21__DEBUG_DEPTH.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_21__DEBUG_DEPTH.obj_hash = 532594980; cdat->dsym_21__DEBUG_DEPTH.obj_len = 3; /*inistring dstr_22__DEBUG_DEPTH*/ /*_.VALSTR___V67*/ meltfptr[66] = (melt_ptr_t) & cdat->dstr_22__DEBUG_DEPTH; cdat->dstr_22__DEBUG_DEPTH.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_22__DEBUG_DEPTH.val, "DEBUG_DEPTH", sizeof (cdat->dstr_22__DEBUG_DEPTH.val) - 1); MELT_LOCATION ("warmelt-debug.melt:53:/ iniobj"); /*iniobj dobj_23__DEBUG_DEPTH*/ /*_.VALDATA___V68*/ meltfptr[67] = (melt_ptr_t) & cdat->dobj_23__DEBUG_DEPTH; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_23__DEBUG_DEPTH", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_PRIMITIVE))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_23__DEBUG_DEPTH", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_PRIMITIVE)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_23__DEBUG_DEPTH.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_PRIMITIVE)))); cdat->dobj_23__DEBUG_DEPTH.obj_hash = 321423601; cdat->dobj_23__DEBUG_DEPTH.obj_len = 5; /*inimult dtup_24__DEBUG_DEPTH */ /*_.VALTUP___V72*/ meltfptr[71] = (melt_ptr_t) & cdat->dtup_24__DEBUG_DEPTH; cdat->dtup_24__DEBUG_DEPTH.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_MULTIPLE)))); cdat->dtup_24__DEBUG_DEPTH.nbval = 1; /*inimult dtup_25__DEBUG_DEPTH */ /*_.VALTUP___V70*/ meltfptr[69] = (melt_ptr_t) & cdat->dtup_25__DEBUG_DEPTH; cdat->dtup_25__DEBUG_DEPTH.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_MULTIPLE)))); cdat->dtup_25__DEBUG_DEPTH.nbval = 0; /*inistring dstr_26__long_melt_deb*/ /*_.VALSTR___V71*/ meltfptr[70] = (melt_ptr_t) & cdat->dstr_26__long_melt_deb; cdat->dstr_26__long_melt_deb.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_VERBATIM_STRING)))); /*small inistring */ strncpy (cdat->dstr_26__long_melt_deb.val, "(long) (melt_debug_depth ())", sizeof (cdat->dstr_26__long_melt_deb.val) - 1); /*inistring dstr_27__DEBUG_DEPTH*/ /*_.VALSTR___V69*/ meltfptr[68] = (melt_ptr_t) & cdat->dstr_27__DEBUG_DEPTH; cdat->dstr_27__DEBUG_DEPTH.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_27__DEBUG_DEPTH.val, "DEBUG_DEPTH", sizeof (cdat->dstr_27__DEBUG_DEPTH.val) - 1); /*iniobj dsym_28__MELT_REALLY_NEED_DEBUG*/ /*uniqueobj*/ if (! /*_.VALDATA___V73*/ meltfptr[72]) /*_.VALDATA___V73*/ meltfptr[72] = (melt_ptr_t) & cdat->dsym_28__MELT_REALLY_NEED_DEBUG; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_28__MELT_REALLY_NEED_DEBUG", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_28__MELT_REALLY_NEED_DEBUG", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_28__MELT_REALLY_NEED_DEBUG.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_28__MELT_REALLY_NEED_DEBUG.obj_hash = 542840019; cdat->dsym_28__MELT_REALLY_NEED_DEBUG.obj_len = 3; /*inistring dstr_29__MELT_REALLY_NEED*/ /*_.VALSTR___V74*/ meltfptr[73] = (melt_ptr_t) & cdat->dstr_29__MELT_REALLY_NEED; cdat->dstr_29__MELT_REALLY_NEED.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_29__MELT_REALLY_NEED.val, "MELT_REALLY_NEED_DEBUG", sizeof (cdat->dstr_29__MELT_REALLY_NEED.val) - 1); MELT_LOCATION ("warmelt-debug.melt:61:/ iniobj"); /*iniobj dobj_30__MELT_REALLY_NEED_DEBUG*/ /*_.VALDATA___V75*/ meltfptr[74] = (melt_ptr_t) & cdat->dobj_30__MELT_REALLY_NEED_DEBUG; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_30__MELT_REALLY_NEED_DEBUG", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_PRIMITIVE))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_30__MELT_REALLY_NEED_DEBUG", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_PRIMITIVE)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_30__MELT_REALLY_NEED_DEBUG.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_PRIMITIVE)))); cdat->dobj_30__MELT_REALLY_NEED_DEBUG.obj_hash = 1888503; cdat->dobj_30__MELT_REALLY_NEED_DEBUG.obj_len = 5; /*inimult dtup_31__MELT_REALLY_NEED_DEBUG */ /*_.VALTUP___V83*/ meltfptr[82] = (melt_ptr_t) & cdat->dtup_31__MELT_REALLY_NEED_DEBUG; cdat->dtup_31__MELT_REALLY_NEED_DEBUG.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_MULTIPLE)))); cdat->dtup_31__MELT_REALLY_NEED_DEBUG.nbval = 3; /*inimult dtup_32__MELT_REALLY_NEED_DEBUG */ /*_.VALTUP___V80*/ meltfptr[79] = (melt_ptr_t) & cdat->dtup_32__MELT_REALLY_NEED_DEBUG; cdat->dtup_32__MELT_REALLY_NEED_DEBUG.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_MULTIPLE)))); cdat->dtup_32__MELT_REALLY_NEED_DEBUG.nbval = 1; /*iniobj dsym_33__DEPTH*/ /*uniqueobj*/ if (! /*_.VALDATA___V78*/ meltfptr[77]) /*_.VALDATA___V78*/ meltfptr[77] = (melt_ptr_t) & cdat->dsym_33__DEPTH; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_33__DEPTH", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_33__DEPTH", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_33__DEPTH.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_33__DEPTH.obj_hash = 52029444; cdat->dsym_33__DEPTH.obj_len = 3; /*inistring dstr_34__DEPTH*/ /*_.VALSTR___V79*/ meltfptr[78] = (melt_ptr_t) & cdat->dstr_34__DEPTH; cdat->dstr_34__DEPTH.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_34__DEPTH.val, "DEPTH", sizeof (cdat->dstr_34__DEPTH.val) - 1); /*^iniobj */ /*iniobj dobj_35*/ /*_.VALDATA___V77*/ meltfptr[76] = (melt_ptr_t) & cdat->dobj_35; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_35", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FORMAL_BINDING))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_35", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FORMAL_BINDING)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_35.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FORMAL_BINDING)))); cdat->dobj_35.obj_num = 0; cdat->dobj_35.obj_hash = 993811678; cdat->dobj_35.obj_len = 2; /*inistring dstr_36__MELT_REALLY_NE*/ /*_.VALSTR___V81*/ meltfptr[80] = (melt_ptr_t) & cdat->dstr_36__MELT_REALLY_NE; cdat->dstr_36__MELT_REALLY_NE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_VERBATIM_STRING)))); /*small inistring */ strncpy (cdat->dstr_36__MELT_REALLY_NE.val, "/*MELT_REALLY_NEED_DEBUG*/ (melt_need_debug ((int) ", sizeof (cdat->dstr_36__MELT_REALLY_NE.val) - 1); /*inistring dstr_37__*/ /*_.VALSTR___V82*/ meltfptr[81] = (melt_ptr_t) & cdat->dstr_37__; cdat->dstr_37__.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_VERBATIM_STRING)))); /*small inistring */ strncpy (cdat->dstr_37__.val, "))", sizeof (cdat->dstr_37__.val) - 1); /*inistring dstr_38__MELT_REALLY_NEED*/ /*_.VALSTR___V76*/ meltfptr[75] = (melt_ptr_t) & cdat->dstr_38__MELT_REALLY_NEED; cdat->dstr_38__MELT_REALLY_NEED.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_38__MELT_REALLY_NEED.val, "MELT_REALLY_NEED_DEBUG", sizeof (cdat->dstr_38__MELT_REALLY_NEED.val) - 1); /*iniobj dsym_39__MELT_HAS_FLAG_DEBUG_SET*/ /*uniqueobj*/ if (! /*_.VALDATA___V84*/ meltfptr[83]) /*_.VALDATA___V84*/ meltfptr[83] = (melt_ptr_t) & cdat->dsym_39__MELT_HAS_FLAG_DEBUG_SET; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_39__MELT_HAS_FLAG_DEBUG_SET", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_39__MELT_HAS_FLAG_DEBUG_SET", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_39__MELT_HAS_FLAG_DEBUG_SET.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_39__MELT_HAS_FLAG_DEBUG_SET.obj_hash = 125931725; cdat->dsym_39__MELT_HAS_FLAG_DEBUG_SET.obj_len = 3; /*inistring dstr_40__MELT_HAS_FLAG_DE*/ /*_.VALSTR___V85*/ meltfptr[84] = (melt_ptr_t) & cdat->dstr_40__MELT_HAS_FLAG_DE; cdat->dstr_40__MELT_HAS_FLAG_DE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_40__MELT_HAS_FLAG_DE.val, "MELT_HAS_FLAG_DEBUG_SET", sizeof (cdat->dstr_40__MELT_HAS_FLAG_DE.val) - 1); MELT_LOCATION ("warmelt-debug.melt:66:/ iniobj"); /*iniobj dobj_41__MELT_HAS_FLAG_DEBUG_SET*/ /*_.VALDATA___V86*/ meltfptr[85] = (melt_ptr_t) & cdat->dobj_41__MELT_HAS_FLAG_DEBUG_SET; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_41__MELT_HAS_FLAG_DEBUG_SET", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_PRIMITIVE))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_41__MELT_HAS_FLAG_DEBUG_SET", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_PRIMITIVE)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_41__MELT_HAS_FLAG_DEBUG_SET.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_PRIMITIVE)))); cdat->dobj_41__MELT_HAS_FLAG_DEBUG_SET.obj_hash = 493551784; cdat->dobj_41__MELT_HAS_FLAG_DEBUG_SET.obj_len = 5; /*inimult dtup_42__MELT_HAS_FLAG_DEBUG_SET */ /*_.VALTUP___V90*/ meltfptr[89] = (melt_ptr_t) & cdat->dtup_42__MELT_HAS_FLAG_DEBUG_SET; cdat->dtup_42__MELT_HAS_FLAG_DEBUG_SET.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_MULTIPLE)))); cdat->dtup_42__MELT_HAS_FLAG_DEBUG_SET.nbval = 1; /*inimult dtup_43__MELT_HAS_FLAG_DEBUG_SET */ /*_.VALTUP___V88*/ meltfptr[87] = (melt_ptr_t) & cdat->dtup_43__MELT_HAS_FLAG_DEBUG_SET; cdat->dtup_43__MELT_HAS_FLAG_DEBUG_SET.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_MULTIPLE)))); cdat->dtup_43__MELT_HAS_FLAG_DEBUG_SET.nbval = 0; /*inistring dstr_44__MELT_HAS_FLAG_*/ /*_.VALSTR___V89*/ meltfptr[88] = (melt_ptr_t) & cdat->dstr_44__MELT_HAS_FLAG_; cdat->dstr_44__MELT_HAS_FLAG_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_VERBATIM_STRING)))); /*small inistring */ strncpy (cdat->dstr_44__MELT_HAS_FLAG_.val, "/*MELT_HAS_FLAG_DEBUG_SET*/ melt_flag_debug", sizeof (cdat->dstr_44__MELT_HAS_FLAG_.val) - 1); /*inistring dstr_45__MELT_HAS_FLAG_DE*/ /*_.VALSTR___V87*/ meltfptr[86] = (melt_ptr_t) & cdat->dstr_45__MELT_HAS_FLAG_DE; cdat->dstr_45__MELT_HAS_FLAG_DE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_45__MELT_HAS_FLAG_DE.val, "MELT_HAS_FLAG_DEBUG_SET", sizeof (cdat->dstr_45__MELT_HAS_FLAG_DE.val) - 1); /*iniobj dsym_46__MELT_REALLY_NEED_DBGLIM*/ /*uniqueobj*/ if (! /*_.VALDATA___V91*/ meltfptr[90]) /*_.VALDATA___V91*/ meltfptr[90] = (melt_ptr_t) & cdat->dsym_46__MELT_REALLY_NEED_DBGLIM; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_46__MELT_REALLY_NEED_DBGLIM", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_46__MELT_REALLY_NEED_DBGLIM", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_46__MELT_REALLY_NEED_DBGLIM.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_46__MELT_REALLY_NEED_DBGLIM.obj_hash = 1026196939; cdat->dsym_46__MELT_REALLY_NEED_DBGLIM.obj_len = 3; /*inistring dstr_47__MELT_REALLY_NEED*/ /*_.VALSTR___V92*/ meltfptr[91] = (melt_ptr_t) & cdat->dstr_47__MELT_REALLY_NEED; cdat->dstr_47__MELT_REALLY_NEED.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_47__MELT_REALLY_NEED.val, "MELT_REALLY_NEED_DBGLIM", sizeof (cdat->dstr_47__MELT_REALLY_NEED.val) - 1); MELT_LOCATION ("warmelt-debug.melt:69:/ iniobj"); /*iniobj dobj_48__MELT_REALLY_NEED_DBGLIM*/ /*_.VALDATA___V93*/ meltfptr[92] = (melt_ptr_t) & cdat->dobj_48__MELT_REALLY_NEED_DBGLIM; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_48__MELT_REALLY_NEED_DBGLIM", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_PRIMITIVE))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_48__MELT_REALLY_NEED_DBGLIM", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_PRIMITIVE)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_48__MELT_REALLY_NEED_DBGLIM.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_PRIMITIVE)))); cdat->dobj_48__MELT_REALLY_NEED_DBGLIM.obj_hash = 687818703; cdat->dobj_48__MELT_REALLY_NEED_DBGLIM.obj_len = 5; /*inimult dtup_49__MELT_REALLY_NEED_DBGLIM */ /*_.VALTUP___V103*/ meltfptr[102] = (melt_ptr_t) & cdat->dtup_49__MELT_REALLY_NEED_DBGLIM; cdat->dtup_49__MELT_REALLY_NEED_DBGLIM.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_MULTIPLE)))); cdat->dtup_49__MELT_REALLY_NEED_DBGLIM.nbval = 5; /*inimult dtup_50__MELT_REALLY_NEED_DBGLIM */ /*_.VALTUP___V99*/ meltfptr[98] = (melt_ptr_t) & cdat->dtup_50__MELT_REALLY_NEED_DBGLIM; cdat->dtup_50__MELT_REALLY_NEED_DBGLIM.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_MULTIPLE)))); cdat->dtup_50__MELT_REALLY_NEED_DBGLIM.nbval = 2; /*^iniobj */ /*iniobj dobj_51*/ /*_.VALDATA___V95*/ meltfptr[94] = (melt_ptr_t) & cdat->dobj_51; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_51", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FORMAL_BINDING))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_51", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FORMAL_BINDING)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_51.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FORMAL_BINDING)))); cdat->dobj_51.obj_num = 0; cdat->dobj_51.obj_hash = 175899225; cdat->dobj_51.obj_len = 2; /*iniobj dsym_52__LIMIT*/ /*uniqueobj*/ if (! /*_.VALDATA___V97*/ meltfptr[96]) /*_.VALDATA___V97*/ meltfptr[96] = (melt_ptr_t) & cdat->dsym_52__LIMIT; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_52__LIMIT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_52__LIMIT", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_52__LIMIT.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_52__LIMIT.obj_hash = 133458422; cdat->dsym_52__LIMIT.obj_len = 3; /*inistring dstr_53__LIMIT*/ /*_.VALSTR___V98*/ meltfptr[97] = (melt_ptr_t) & cdat->dstr_53__LIMIT; cdat->dstr_53__LIMIT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_53__LIMIT.val, "LIMIT", sizeof (cdat->dstr_53__LIMIT.val) - 1); /*^iniobj */ /*iniobj dobj_54*/ /*_.VALDATA___V96*/ meltfptr[95] = (melt_ptr_t) & cdat->dobj_54; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_54", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FORMAL_BINDING))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_54", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FORMAL_BINDING)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_54.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FORMAL_BINDING)))); cdat->dobj_54.obj_num = 1; cdat->dobj_54.obj_hash = 15018097; cdat->dobj_54.obj_len = 2; /*inistring dstr_55__MELT_REALLY_*/ /*_.VALSTR___V100*/ meltfptr[99] = (melt_ptr_t) & cdat->dstr_55__MELT_REALLY_; cdat->dstr_55__MELT_REALLY_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_VERBATIM_STRING)))); /*small inistring */ strncpy (cdat->dstr_55__MELT_REALLY_.val, "( /*MELT_REALLY_NEED_DBGLIM*/ melt_need_debug_limit ((int) ", sizeof (cdat->dstr_55__MELT_REALLY_.val) - 1); /*inistring dstr_56__int_*/ /*_.VALSTR___V101*/ meltfptr[100] = (melt_ptr_t) & cdat->dstr_56__int_; cdat->dstr_56__int_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_VERBATIM_STRING)))); /*small inistring */ strncpy (cdat->dstr_56__int_.val, ", (int) ", sizeof (cdat->dstr_56__int_.val) - 1); /*inistring dstr_57__*/ /*_.VALSTR___V102*/ meltfptr[101] = (melt_ptr_t) & cdat->dstr_57__; cdat->dstr_57__.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_VERBATIM_STRING)))); /*small inistring */ strncpy (cdat->dstr_57__.val, "))", sizeof (cdat->dstr_57__.val) - 1); /*inistring dstr_58__MELT_REALLY_NEED*/ /*_.VALSTR___V94*/ meltfptr[93] = (melt_ptr_t) & cdat->dstr_58__MELT_REALLY_NEED; cdat->dstr_58__MELT_REALLY_NEED.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_58__MELT_REALLY_NEED.val, "MELT_REALLY_NEED_DBGLIM", sizeof (cdat->dstr_58__MELT_REALLY_NEED.val) - 1); /*inirout drout_59__DEBUG_MSG_FUN */ /*_.VALROUT___V104*/ meltfptr[103] = (melt_ptr_t) & cdat->drout_59__DEBUG_MSG_FUN; cdat->drout_59__DEBUG_MSG_FUN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_59__DEBUG_MSG_FUN.routdescr, "DEBUG_MSG_FUN @warmelt-debug.melt:76", MELT_ROUTDESCR_LEN - 1); cdat->drout_59__DEBUG_MSG_FUN.nbval = 7; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_59__DEBUG_MSG_FUN, meltrout_1_warmelt_debug_DEBUG_MSG_FUN); /*iniclos dclo_60__DEBUG_MSG_FUN */ /*_.VALCLO___V113*/ meltfptr[112] = (melt_ptr_t) & cdat->dclo_60__DEBUG_MSG_FUN; cdat->dclo_60__DEBUG_MSG_FUN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_60__DEBUG_MSG_FUN.nbval = 0; /*iniobj dsym_61__INITIAL_SYSTEM_DATA*/ /*uniqueobj*/ if (! /*_.VALDATA___V114*/ meltfptr[113]) /*_.VALDATA___V114*/ meltfptr[113] = (melt_ptr_t) & cdat->dsym_61__INITIAL_SYSTEM_DATA; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_61__INITIAL_SYSTEM_DATA", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_61__INITIAL_SYSTEM_DATA", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_61__INITIAL_SYSTEM_DATA.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_61__INITIAL_SYSTEM_DATA.obj_hash = 771349808; cdat->dsym_61__INITIAL_SYSTEM_DATA.obj_len = 3; /*inistring dstr_62__INITIAL_SYSTEM_D*/ /*_.VALSTR___V115*/ meltfptr[114] = (melt_ptr_t) & cdat->dstr_62__INITIAL_SYSTEM_D; cdat->dstr_62__INITIAL_SYSTEM_D.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_62__INITIAL_SYSTEM_D.val, "INITIAL_SYSTEM_DATA", sizeof (cdat->dstr_62__INITIAL_SYSTEM_D.val) - 1); /*iniobj dsym_63__CLASS_SYSTEM_DATA*/ /*uniqueobj*/ if (! /*_.VALDATA___V116*/ meltfptr[115]) /*_.VALDATA___V116*/ meltfptr[115] = (melt_ptr_t) & cdat->dsym_63__CLASS_SYSTEM_DATA; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_63__CLASS_SYSTEM_DATA", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_63__CLASS_SYSTEM_DATA", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_63__CLASS_SYSTEM_DATA.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_63__CLASS_SYSTEM_DATA.obj_hash = 648451867; cdat->dsym_63__CLASS_SYSTEM_DATA.obj_len = 3; /*inistring dstr_64__CLASS_SYSTEM_DAT*/ /*_.VALSTR___V117*/ meltfptr[116] = (melt_ptr_t) & cdat->dstr_64__CLASS_SYSTEM_DAT; cdat->dstr_64__CLASS_SYSTEM_DAT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_64__CLASS_SYSTEM_DAT.val, "CLASS_SYSTEM_DATA", sizeof (cdat->dstr_64__CLASS_SYSTEM_DAT.val) - 1); /*iniobj dsym_65__DISCR_MAP_OBJECTS*/ /*uniqueobj*/ if (! /*_.VALDATA___V118*/ meltfptr[117]) /*_.VALDATA___V118*/ meltfptr[117] = (melt_ptr_t) & cdat->dsym_65__DISCR_MAP_OBJECTS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_65__DISCR_MAP_OBJECTS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_65__DISCR_MAP_OBJECTS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_65__DISCR_MAP_OBJECTS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_65__DISCR_MAP_OBJECTS.obj_hash = 217147088; cdat->dsym_65__DISCR_MAP_OBJECTS.obj_len = 3; /*inistring dstr_66__DISCR_MAP_OBJECT*/ /*_.VALSTR___V119*/ meltfptr[118] = (melt_ptr_t) & cdat->dstr_66__DISCR_MAP_OBJECT; cdat->dstr_66__DISCR_MAP_OBJECT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_66__DISCR_MAP_OBJECT.val, "DISCR_MAP_OBJECTS", sizeof (cdat->dstr_66__DISCR_MAP_OBJECT.val) - 1); /*iniobj dsym_67__DISCR_INTEGER*/ /*uniqueobj*/ if (! /*_.VALDATA___V120*/ meltfptr[119]) /*_.VALDATA___V120*/ meltfptr[119] = (melt_ptr_t) & cdat->dsym_67__DISCR_INTEGER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_67__DISCR_INTEGER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_67__DISCR_INTEGER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_67__DISCR_INTEGER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_67__DISCR_INTEGER.obj_hash = 119182103; cdat->dsym_67__DISCR_INTEGER.obj_len = 3; /*inistring dstr_68__DISCR_INTEGER*/ /*_.VALSTR___V121*/ meltfptr[120] = (melt_ptr_t) & cdat->dstr_68__DISCR_INTEGER; cdat->dstr_68__DISCR_INTEGER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_68__DISCR_INTEGER.val, "DISCR_INTEGER", sizeof (cdat->dstr_68__DISCR_INTEGER.val) - 1); /*iniobj dsym_69__DISCR_STRBUF*/ /*uniqueobj*/ if (! /*_.VALDATA___V122*/ meltfptr[121]) /*_.VALDATA___V122*/ meltfptr[121] = (melt_ptr_t) & cdat->dsym_69__DISCR_STRBUF; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_69__DISCR_STRBUF", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_69__DISCR_STRBUF", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_69__DISCR_STRBUF.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_69__DISCR_STRBUF.obj_hash = 492035674; cdat->dsym_69__DISCR_STRBUF.obj_len = 3; /*inistring dstr_70__DISCR_STRBUF*/ /*_.VALSTR___V123*/ meltfptr[122] = (melt_ptr_t) & cdat->dstr_70__DISCR_STRBUF; cdat->dstr_70__DISCR_STRBUF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_70__DISCR_STRBUF.val, "DISCR_STRBUF", sizeof (cdat->dstr_70__DISCR_STRBUF.val) - 1); /*iniobj dsym_71__DBG_OUTPUT*/ /*uniqueobj*/ if (! /*_.VALDATA___V124*/ meltfptr[123]) /*_.VALDATA___V124*/ meltfptr[123] = (melt_ptr_t) & cdat->dsym_71__DBG_OUTPUT; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_71__DBG_OUTPUT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_71__DBG_OUTPUT", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_71__DBG_OUTPUT.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_71__DBG_OUTPUT.obj_hash = 225394304; cdat->dsym_71__DBG_OUTPUT.obj_len = 3; /*inistring dstr_72__DBG_OUTPUT*/ /*_.VALSTR___V125*/ meltfptr[124] = (melt_ptr_t) & cdat->dstr_72__DBG_OUTPUT; cdat->dstr_72__DBG_OUTPUT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_72__DBG_OUTPUT.val, "DBG_OUTPUT", sizeof (cdat->dstr_72__DBG_OUTPUT.val) - 1); /*iniobj dsym_73__CLASS_SELECTOR*/ /*uniqueobj*/ if (! /*_.VALDATA___V126*/ meltfptr[125]) /*_.VALDATA___V126*/ meltfptr[125] = (melt_ptr_t) & cdat->dsym_73__CLASS_SELECTOR; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_73__CLASS_SELECTOR", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_73__CLASS_SELECTOR", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_73__CLASS_SELECTOR.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_73__CLASS_SELECTOR.obj_hash = 100646971; cdat->dsym_73__CLASS_SELECTOR.obj_len = 3; /*inistring dstr_74__CLASS_SELECTOR*/ /*_.VALSTR___V127*/ meltfptr[126] = (melt_ptr_t) & cdat->dstr_74__CLASS_SELECTOR; cdat->dstr_74__CLASS_SELECTOR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_74__CLASS_SELECTOR.val, "CLASS_SELECTOR", sizeof (cdat->dstr_74__CLASS_SELECTOR.val) - 1); /*iniobj dsym_75__RECV*/ /*uniqueobj*/ if (! /*_.VALDATA___V128*/ meltfptr[127]) /*_.VALDATA___V128*/ meltfptr[127] = (melt_ptr_t) & cdat->dsym_75__RECV; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_75__RECV", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_75__RECV", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_75__RECV.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_75__RECV.obj_hash = 10842790; cdat->dsym_75__RECV.obj_len = 3; /*inistring dstr_76__RECV*/ /*_.VALSTR___V129*/ meltfptr[128] = (melt_ptr_t) & cdat->dstr_76__RECV; cdat->dstr_76__RECV.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_76__RECV.val, "RECV", sizeof (cdat->dstr_76__RECV.val) - 1); MELT_LOCATION ("warmelt-debug.melt:166:/ iniobj"); /*iniobj dobj_77*/ /*_.VALDATA___V130*/ meltfptr[129] = (melt_ptr_t) & cdat->dobj_77; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_77", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FORMAL_BINDING))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_77", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FORMAL_BINDING)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_77.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FORMAL_BINDING)))); cdat->dobj_77.obj_num = 0; cdat->dobj_77.obj_hash = 1049784701; cdat->dobj_77.obj_len = 2; /*iniobj dsym_78__DBGINFO*/ /*uniqueobj*/ if (! /*_.VALDATA___V131*/ meltfptr[130]) /*_.VALDATA___V131*/ meltfptr[130] = (melt_ptr_t) & cdat->dsym_78__DBGINFO; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_78__DBGINFO", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_78__DBGINFO", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_78__DBGINFO.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_78__DBGINFO.obj_hash = 587771081; cdat->dsym_78__DBGINFO.obj_len = 3; /*inistring dstr_79__DBGINFO*/ /*_.VALSTR___V132*/ meltfptr[131] = (melt_ptr_t) & cdat->dstr_79__DBGINFO; cdat->dstr_79__DBGINFO.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_79__DBGINFO.val, "DBGINFO", sizeof (cdat->dstr_79__DBGINFO.val) - 1); /*^iniobj */ /*iniobj dobj_80*/ /*_.VALDATA___V133*/ meltfptr[132] = (melt_ptr_t) & cdat->dobj_80; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_80", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FORMAL_BINDING))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_80", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FORMAL_BINDING)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_80.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FORMAL_BINDING)))); cdat->dobj_80.obj_num = 1; cdat->dobj_80.obj_hash = 611470996; cdat->dobj_80.obj_len = 2; /*^iniobj */ /*iniobj dobj_81*/ /*_.VALDATA___V134*/ meltfptr[133] = (melt_ptr_t) & cdat->dobj_81; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_81", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FORMAL_BINDING))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_81", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FORMAL_BINDING)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_81.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FORMAL_BINDING)))); cdat->dobj_81.obj_num = 2; cdat->dobj_81.obj_hash = 418780802; cdat->dobj_81.obj_len = 2; /*inimult dtup_82__DBG_OUTPUT */ /*_.VALTUP___V135*/ meltfptr[134] = (melt_ptr_t) & cdat->dtup_82__DBG_OUTPUT; cdat->dtup_82__DBG_OUTPUT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_MULTIPLE)))); cdat->dtup_82__DBG_OUTPUT.nbval = 3; /*^iniobj */ /*iniobj dobj_83__DBG_OUTPUT*/ /*_.VALDATA___V111*/ meltfptr[110] = (melt_ptr_t) & cdat->dobj_83__DBG_OUTPUT; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_83__DBG_OUTPUT", melt_magic_discr ((melt_ptr_t) ( /*_.CLASS_SELECTOR__V13*/ meltfptr[12])) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_83__DBG_OUTPUT", ((meltobject_ptr_t) ( /*_.CLASS_SELECTOR__V13*/ meltfptr[12]))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_83__DBG_OUTPUT.meltobj_class = (meltobject_ptr_t) ( /*_.CLASS_SELECTOR__V13*/ meltfptr[12]); cdat->dobj_83__DBG_OUTPUT.obj_hash = 993662868; cdat->dobj_83__DBG_OUTPUT.obj_len = 4; /*inistring dstr_84__DBG_OUTPUT*/ /*_.VALSTR___V112*/ meltfptr[111] = (melt_ptr_t) & cdat->dstr_84__DBG_OUTPUT; cdat->dstr_84__DBG_OUTPUT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_84__DBG_OUTPUT.val, "DBG_OUTPUT", sizeof (cdat->dstr_84__DBG_OUTPUT.val) - 1); /*iniobj dsym_85__DBG_OUTPUTAGAIN*/ /*uniqueobj*/ if (! /*_.VALDATA___V136*/ meltfptr[135]) /*_.VALDATA___V136*/ meltfptr[135] = (melt_ptr_t) & cdat->dsym_85__DBG_OUTPUTAGAIN; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_85__DBG_OUTPUTAGAIN", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_85__DBG_OUTPUTAGAIN", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_85__DBG_OUTPUTAGAIN.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_85__DBG_OUTPUTAGAIN.obj_hash = 28744821; cdat->dsym_85__DBG_OUTPUTAGAIN.obj_len = 3; /*inistring dstr_86__DBG_OUTPUTAGAIN*/ /*_.VALSTR___V137*/ meltfptr[136] = (melt_ptr_t) & cdat->dstr_86__DBG_OUTPUTAGAIN; cdat->dstr_86__DBG_OUTPUTAGAIN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_86__DBG_OUTPUTAGAIN.val, "DBG_OUTPUTAGAIN", sizeof (cdat->dstr_86__DBG_OUTPUTAGAIN.val) - 1); MELT_LOCATION ("warmelt-debug.melt:175:/ iniobj"); /*iniobj dobj_87*/ /*_.VALDATA___V138*/ meltfptr[137] = (melt_ptr_t) & cdat->dobj_87; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_87", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FORMAL_BINDING))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_87", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FORMAL_BINDING)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_87.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FORMAL_BINDING)))); cdat->dobj_87.obj_num = 0; cdat->dobj_87.obj_hash = 972736754; cdat->dobj_87.obj_len = 2; /*^iniobj */ /*iniobj dobj_88*/ /*_.VALDATA___V139*/ meltfptr[138] = (melt_ptr_t) & cdat->dobj_88; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_88", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FORMAL_BINDING))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_88", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FORMAL_BINDING)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_88.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FORMAL_BINDING)))); cdat->dobj_88.obj_num = 1; cdat->dobj_88.obj_hash = 36958157; cdat->dobj_88.obj_len = 2; /*^iniobj */ /*iniobj dobj_89*/ /*_.VALDATA___V140*/ meltfptr[139] = (melt_ptr_t) & cdat->dobj_89; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_89", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FORMAL_BINDING))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_89", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FORMAL_BINDING)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_89.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FORMAL_BINDING)))); cdat->dobj_89.obj_num = 2; cdat->dobj_89.obj_hash = 1003317655; cdat->dobj_89.obj_len = 2; /*inimult dtup_90__DBG_OUTPUTAGAIN */ /*_.VALTUP___V141*/ meltfptr[140] = (melt_ptr_t) & cdat->dtup_90__DBG_OUTPUTAGAIN; cdat->dtup_90__DBG_OUTPUTAGAIN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_MULTIPLE)))); cdat->dtup_90__DBG_OUTPUTAGAIN.nbval = 3; /*^iniobj */ /*iniobj dobj_91__DBG_OUTPUTAGAIN*/ /*_.VALDATA___V109*/ meltfptr[108] = (melt_ptr_t) & cdat->dobj_91__DBG_OUTPUTAGAIN; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_91__DBG_OUTPUTAGAIN", melt_magic_discr ((melt_ptr_t) ( /*_.CLASS_SELECTOR__V13*/ meltfptr[12])) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_91__DBG_OUTPUTAGAIN", ((meltobject_ptr_t) ( /*_.CLASS_SELECTOR__V13*/ meltfptr[12]))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_91__DBG_OUTPUTAGAIN.meltobj_class = (meltobject_ptr_t) ( /*_.CLASS_SELECTOR__V13*/ meltfptr[12]); cdat->dobj_91__DBG_OUTPUTAGAIN.obj_hash = 352060588; cdat->dobj_91__DBG_OUTPUTAGAIN.obj_len = 4; /*inistring dstr_92__DBG_OUTPUTAGAIN*/ /*_.VALSTR___V110*/ meltfptr[109] = (melt_ptr_t) & cdat->dstr_92__DBG_OUTPUTAGAIN; cdat->dstr_92__DBG_OUTPUTAGAIN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_92__DBG_OUTPUTAGAIN.val, "DBG_OUTPUTAGAIN", sizeof (cdat->dstr_92__DBG_OUTPUTAGAIN.val) - 1); /*iniobj dsym_93__TREE_DEBUG_FUNCONT*/ /*uniqueobj*/ if (! /*_.VALDATA___V142*/ meltfptr[141]) /*_.VALDATA___V142*/ meltfptr[141] = (melt_ptr_t) & cdat->dsym_93__TREE_DEBUG_FUNCONT; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_93__TREE_DEBUG_FUNCONT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_93__TREE_DEBUG_FUNCONT", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_93__TREE_DEBUG_FUNCONT.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_93__TREE_DEBUG_FUNCONT.obj_hash = 374867797; cdat->dsym_93__TREE_DEBUG_FUNCONT.obj_len = 3; /*inistring dstr_94__TREE_DEBUG_FUNCO*/ /*_.VALSTR___V143*/ meltfptr[142] = (melt_ptr_t) & cdat->dstr_94__TREE_DEBUG_FUNCO; cdat->dstr_94__TREE_DEBUG_FUNCO.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_94__TREE_DEBUG_FUNCO.val, "TREE_DEBUG_FUNCONT", sizeof (cdat->dstr_94__TREE_DEBUG_FUNCO.val) - 1); /*iniobj dsym_95__CLASS_CONTAINER*/ /*uniqueobj*/ if (! /*_.VALDATA___V144*/ meltfptr[143]) /*_.VALDATA___V144*/ meltfptr[143] = (melt_ptr_t) & cdat->dsym_95__CLASS_CONTAINER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_95__CLASS_CONTAINER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_95__CLASS_CONTAINER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_95__CLASS_CONTAINER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_95__CLASS_CONTAINER.obj_hash = 301899711; cdat->dsym_95__CLASS_CONTAINER.obj_len = 3; /*inistring dstr_96__CLASS_CONTAINER*/ /*_.VALSTR___V145*/ meltfptr[144] = (melt_ptr_t) & cdat->dstr_96__CLASS_CONTAINER; cdat->dstr_96__CLASS_CONTAINER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_96__CLASS_CONTAINER.val, "CLASS_CONTAINER", sizeof (cdat->dstr_96__CLASS_CONTAINER.val) - 1); MELT_LOCATION ("warmelt-debug.melt:186:/ iniobj"); /*iniobj dobj_97__TREE_DEBUG_FUNCONT*/ /*_.VALDATA___V146*/ meltfptr[145] = (melt_ptr_t) & cdat->dobj_97__TREE_DEBUG_FUNCONT; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_97__TREE_DEBUG_FUNCONT", melt_magic_discr ((melt_ptr_t) ( /*_.CLASS_CONTAINER__V14*/ meltfptr[13])) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_97__TREE_DEBUG_FUNCONT", ((meltobject_ptr_t) ( /*_.CLASS_CONTAINER__V14*/ meltfptr[13]))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_97__TREE_DEBUG_FUNCONT.meltobj_class = (meltobject_ptr_t) ( /*_.CLASS_CONTAINER__V14*/ meltfptr[13]); cdat->dobj_97__TREE_DEBUG_FUNCONT.obj_hash = 1025169497; cdat->dobj_97__TREE_DEBUG_FUNCONT.obj_len = 1; /*inirout drout_98__REGISTER_TREE_DEBUG_FUN */ /*_.VALROUT___V147*/ meltfptr[146] = (melt_ptr_t) & cdat->drout_98__REGISTER_TREE_DEBUG_FUN; cdat->drout_98__REGISTER_TREE_DEBUG_FUN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_98__REGISTER_TREE_DEBUG_FUN.routdescr, "REGISTER_TREE_DEBUG_FUN @warmelt-debug.melt:187", MELT_ROUTDESCR_LEN - 1); cdat->drout_98__REGISTER_TREE_DEBUG_FUN.nbval = 3; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_98__REGISTER_TREE_DEBUG_FUN, meltrout_2_warmelt_debug_REGISTER_TREE_DEBUG_FUN); /*iniclos dclo_99__REGISTER_TREE_DEBUG_FUN */ /*_.VALCLO___V148*/ meltfptr[147] = (melt_ptr_t) & cdat->dclo_99__REGISTER_TREE_DEBUG_FUN; cdat->dclo_99__REGISTER_TREE_DEBUG_FUN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_99__REGISTER_TREE_DEBUG_FUN.nbval = 0; /*iniobj dsym_100__SET_CONTENT*/ /*uniqueobj*/ if (! /*_.VALDATA___V149*/ meltfptr[148]) /*_.VALDATA___V149*/ meltfptr[148] = (melt_ptr_t) & cdat->dsym_100__SET_CONTENT; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_100__SET_CONTENT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_100__SET_CONTENT", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_100__SET_CONTENT.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_100__SET_CONTENT.obj_hash = 1002281179; cdat->dsym_100__SET_CONTENT.obj_len = 3; /*inistring dstr_101__SET_CONTENT*/ /*_.VALSTR___V150*/ meltfptr[149] = (melt_ptr_t) & cdat->dstr_101__SET_CONTENT; cdat->dstr_101__SET_CONTENT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_101__SET_CONTENT.val, "SET_CONTENT", sizeof (cdat->dstr_101__SET_CONTENT.val) - 1); /*iniobj dsym_102__GIMPLE_DEBUG_FUNCONT*/ /*uniqueobj*/ if (! /*_.VALDATA___V151*/ meltfptr[150]) /*_.VALDATA___V151*/ meltfptr[150] = (melt_ptr_t) & cdat->dsym_102__GIMPLE_DEBUG_FUNCONT; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_102__GIMPLE_DEBUG_FUNCONT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_102__GIMPLE_DEBUG_FUNCONT", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_102__GIMPLE_DEBUG_FUNCONT.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_102__GIMPLE_DEBUG_FUNCONT.obj_hash = 51178959; cdat->dsym_102__GIMPLE_DEBUG_FUNCONT.obj_len = 3; /*inistring dstr_103__GIMPLE_DEBUG_FUN*/ /*_.VALSTR___V152*/ meltfptr[151] = (melt_ptr_t) & cdat->dstr_103__GIMPLE_DEBUG_FUN; cdat->dstr_103__GIMPLE_DEBUG_FUN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_103__GIMPLE_DEBUG_FUN.val, "GIMPLE_DEBUG_FUNCONT", sizeof (cdat->dstr_103__GIMPLE_DEBUG_FUN. val) - 1); MELT_LOCATION ("warmelt-debug.melt:199:/ iniobj"); /*iniobj dobj_104__GIMPLE_DEBUG_FUNCONT*/ /*_.VALDATA___V153*/ meltfptr[152] = (melt_ptr_t) & cdat->dobj_104__GIMPLE_DEBUG_FUNCONT; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_104__GIMPLE_DEBUG_FUNCONT", melt_magic_discr ((melt_ptr_t) ( /*_.CLASS_CONTAINER__V14*/ meltfptr[13])) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_104__GIMPLE_DEBUG_FUNCONT", ((meltobject_ptr_t) ( /*_.CLASS_CONTAINER__V14*/ meltfptr[13]))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_104__GIMPLE_DEBUG_FUNCONT.meltobj_class = (meltobject_ptr_t) ( /*_.CLASS_CONTAINER__V14*/ meltfptr[13]); cdat->dobj_104__GIMPLE_DEBUG_FUNCONT.obj_hash = 16536634; cdat->dobj_104__GIMPLE_DEBUG_FUNCONT.obj_len = 1; /*inirout drout_105__REGISTER_GIMPLE_DEBUG_FUN */ /*_.VALROUT___V154*/ meltfptr[153] = (melt_ptr_t) & cdat->drout_105__REGISTER_GIMPLE_DEBUG_FUN; cdat->drout_105__REGISTER_GIMPLE_DEBUG_FUN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_105__REGISTER_GIMPLE_DEBUG_FUN.routdescr, "REGISTER_GIMPLE_DEBUG_FUN @warmelt-debug.melt:200", MELT_ROUTDESCR_LEN - 1); cdat->drout_105__REGISTER_GIMPLE_DEBUG_FUN.nbval = 3; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_105__REGISTER_GIMPLE_DEBUG_FUN, meltrout_3_warmelt_debug_REGISTER_GIMPLE_DEBUG_FUN); /*iniclos dclo_106__REGISTER_GIMPLE_DEBUG_FUN */ /*_.VALCLO___V155*/ meltfptr[154] = (melt_ptr_t) & cdat->dclo_106__REGISTER_GIMPLE_DEBUG_FUN; cdat->dclo_106__REGISTER_GIMPLE_DEBUG_FUN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_106__REGISTER_GIMPLE_DEBUG_FUN.nbval = 0; /*iniobj dsym_107__GIMPLESEQ_DEBUG_FUNCONT*/ /*uniqueobj*/ if (! /*_.VALDATA___V156*/ meltfptr[155]) /*_.VALDATA___V156*/ meltfptr[155] = (melt_ptr_t) & cdat->dsym_107__GIMPLESEQ_DEBUG_FUNCONT; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_107__GIMPLESEQ_DEBUG_FUNCONT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_107__GIMPLESEQ_DEBUG_FUNCONT", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_107__GIMPLESEQ_DEBUG_FUNCONT.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_107__GIMPLESEQ_DEBUG_FUNCONT.obj_hash = 813085508; cdat->dsym_107__GIMPLESEQ_DEBUG_FUNCONT.obj_len = 3; /*inistring dstr_108__GIMPLESEQ_DEBUG_*/ /*_.VALSTR___V157*/ meltfptr[156] = (melt_ptr_t) & cdat->dstr_108__GIMPLESEQ_DEBUG_; cdat->dstr_108__GIMPLESEQ_DEBUG_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_108__GIMPLESEQ_DEBUG_.val, "GIMPLESEQ_DEBUG_FUNCONT", sizeof (cdat->dstr_108__GIMPLESEQ_DEBUG_. val) - 1); MELT_LOCATION ("warmelt-debug.melt:212:/ iniobj"); /*iniobj dobj_109__GIMPLESEQ_DEBUG_FUNCONT*/ /*_.VALDATA___V158*/ meltfptr[157] = (melt_ptr_t) & cdat->dobj_109__GIMPLESEQ_DEBUG_FUNCONT; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_109__GIMPLESEQ_DEBUG_FUNCONT", melt_magic_discr ((melt_ptr_t) ( /*_.CLASS_CONTAINER__V14*/ meltfptr[13])) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_109__GIMPLESEQ_DEBUG_FUNCONT", ((meltobject_ptr_t) ( /*_.CLASS_CONTAINER__V14*/ meltfptr[13]))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_109__GIMPLESEQ_DEBUG_FUNCONT.meltobj_class = (meltobject_ptr_t) ( /*_.CLASS_CONTAINER__V14*/ meltfptr[13]); cdat->dobj_109__GIMPLESEQ_DEBUG_FUNCONT.obj_hash = 648216670; cdat->dobj_109__GIMPLESEQ_DEBUG_FUNCONT.obj_len = 1; /*inirout drout_110__REGISTER_GIMPLESEQ_DEBUG_FUN */ /*_.VALROUT___V159*/ meltfptr[158] = (melt_ptr_t) & cdat->drout_110__REGISTER_GIMPLESEQ_DEBUG_FUN; cdat->drout_110__REGISTER_GIMPLESEQ_DEBUG_FUN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_110__REGISTER_GIMPLESEQ_DEBUG_FUN.routdescr, "REGISTER_GIMPLESEQ_DEBUG_FUN @warmelt-debug.melt:213", MELT_ROUTDESCR_LEN - 1); cdat->drout_110__REGISTER_GIMPLESEQ_DEBUG_FUN.nbval = 3; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_110__REGISTER_GIMPLESEQ_DEBUG_FUN, meltrout_4_warmelt_debug_REGISTER_GIMPLESEQ_DEBUG_FUN); /*iniclos dclo_111__REGISTER_GIMPLESEQ_DEBUG_FUN */ /*_.VALCLO___V160*/ meltfptr[159] = (melt_ptr_t) & cdat->dclo_111__REGISTER_GIMPLESEQ_DEBUG_FUN; cdat->dclo_111__REGISTER_GIMPLESEQ_DEBUG_FUN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_111__REGISTER_GIMPLESEQ_DEBUG_FUN.nbval = 0; /*iniobj dsym_112__EDGE_DEBUG_FUNCONT*/ /*uniqueobj*/ if (! /*_.VALDATA___V161*/ meltfptr[160]) /*_.VALDATA___V161*/ meltfptr[160] = (melt_ptr_t) & cdat->dsym_112__EDGE_DEBUG_FUNCONT; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_112__EDGE_DEBUG_FUNCONT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_112__EDGE_DEBUG_FUNCONT", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_112__EDGE_DEBUG_FUNCONT.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_112__EDGE_DEBUG_FUNCONT.obj_hash = 803948317; cdat->dsym_112__EDGE_DEBUG_FUNCONT.obj_len = 3; /*inistring dstr_113__EDGE_DEBUG_FUNCO*/ /*_.VALSTR___V162*/ meltfptr[161] = (melt_ptr_t) & cdat->dstr_113__EDGE_DEBUG_FUNCO; cdat->dstr_113__EDGE_DEBUG_FUNCO.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_113__EDGE_DEBUG_FUNCO.val, "EDGE_DEBUG_FUNCONT", sizeof (cdat->dstr_113__EDGE_DEBUG_FUNCO. val) - 1); MELT_LOCATION ("warmelt-debug.melt:225:/ iniobj"); /*iniobj dobj_114__EDGE_DEBUG_FUNCONT*/ /*_.VALDATA___V163*/ meltfptr[162] = (melt_ptr_t) & cdat->dobj_114__EDGE_DEBUG_FUNCONT; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_114__EDGE_DEBUG_FUNCONT", melt_magic_discr ((melt_ptr_t) ( /*_.CLASS_CONTAINER__V14*/ meltfptr[13])) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_114__EDGE_DEBUG_FUNCONT", ((meltobject_ptr_t) ( /*_.CLASS_CONTAINER__V14*/ meltfptr[13]))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_114__EDGE_DEBUG_FUNCONT.meltobj_class = (meltobject_ptr_t) ( /*_.CLASS_CONTAINER__V14*/ meltfptr[13]); cdat->dobj_114__EDGE_DEBUG_FUNCONT.obj_hash = 759728705; cdat->dobj_114__EDGE_DEBUG_FUNCONT.obj_len = 1; /*inirout drout_115__REGISTER_EDGE_DEBUG_FUN */ /*_.VALROUT___V164*/ meltfptr[163] = (melt_ptr_t) & cdat->drout_115__REGISTER_EDGE_DEBUG_FUN; cdat->drout_115__REGISTER_EDGE_DEBUG_FUN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_115__REGISTER_EDGE_DEBUG_FUN.routdescr, "REGISTER_EDGE_DEBUG_FUN @warmelt-debug.melt:226", MELT_ROUTDESCR_LEN - 1); cdat->drout_115__REGISTER_EDGE_DEBUG_FUN.nbval = 3; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_115__REGISTER_EDGE_DEBUG_FUN, meltrout_5_warmelt_debug_REGISTER_EDGE_DEBUG_FUN); /*iniclos dclo_116__REGISTER_EDGE_DEBUG_FUN */ /*_.VALCLO___V165*/ meltfptr[164] = (melt_ptr_t) & cdat->dclo_116__REGISTER_EDGE_DEBUG_FUN; cdat->dclo_116__REGISTER_EDGE_DEBUG_FUN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_116__REGISTER_EDGE_DEBUG_FUN.nbval = 0; /*iniobj dsym_117__BASICBLOCK_DEBUG_FUNCONT*/ /*uniqueobj*/ if (! /*_.VALDATA___V166*/ meltfptr[165]) /*_.VALDATA___V166*/ meltfptr[165] = (melt_ptr_t) & cdat->dsym_117__BASICBLOCK_DEBUG_FUNCONT; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_117__BASICBLOCK_DEBUG_FUNCONT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_117__BASICBLOCK_DEBUG_FUNCONT", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_117__BASICBLOCK_DEBUG_FUNCONT.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_117__BASICBLOCK_DEBUG_FUNCONT.obj_hash = 507389899; cdat->dsym_117__BASICBLOCK_DEBUG_FUNCONT.obj_len = 3; /*inistring dstr_118__BASICBLOCK_DEBUG*/ /*_.VALSTR___V167*/ meltfptr[166] = (melt_ptr_t) & cdat->dstr_118__BASICBLOCK_DEBUG; cdat->dstr_118__BASICBLOCK_DEBUG.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_118__BASICBLOCK_DEBUG.val, "BASICBLOCK_DEBUG_FUNCONT", sizeof (cdat->dstr_118__BASICBLOCK_DEBUG. val) - 1); MELT_LOCATION ("warmelt-debug.melt:238:/ iniobj"); /*iniobj dobj_119__BASICBLOCK_DEBUG_FUNCONT*/ /*_.VALDATA___V168*/ meltfptr[167] = (melt_ptr_t) & cdat->dobj_119__BASICBLOCK_DEBUG_FUNCONT; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_119__BASICBLOCK_DEBUG_FUNCONT", melt_magic_discr ((melt_ptr_t) ( /*_.CLASS_CONTAINER__V14*/ meltfptr[13])) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_119__BASICBLOCK_DEBUG_FUNCONT", ((meltobject_ptr_t) ( /*_.CLASS_CONTAINER__V14*/ meltfptr[13]))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_119__BASICBLOCK_DEBUG_FUNCONT.meltobj_class = (meltobject_ptr_t) ( /*_.CLASS_CONTAINER__V14*/ meltfptr[13]); cdat->dobj_119__BASICBLOCK_DEBUG_FUNCONT.obj_hash = 742401293; cdat->dobj_119__BASICBLOCK_DEBUG_FUNCONT.obj_len = 1; /*inirout drout_120__REGISTER_BASICBLOCK_DEBUG_FUN */ /*_.VALROUT___V169*/ meltfptr[168] = (melt_ptr_t) & cdat->drout_120__REGISTER_BASICBLOCK_DEBUG_FUN; cdat->drout_120__REGISTER_BASICBLOCK_DEBUG_FUN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_120__REGISTER_BASICBLOCK_DEBUG_FUN.routdescr, "REGISTER_BASICBLOCK_DEBUG_FUN @warmelt-debug.melt:239", MELT_ROUTDESCR_LEN - 1); cdat->drout_120__REGISTER_BASICBLOCK_DEBUG_FUN.nbval = 3; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_120__REGISTER_BASICBLOCK_DEBUG_FUN, meltrout_6_warmelt_debug_REGISTER_BASICBLOCK_DEBUG_FUN); /*iniclos dclo_121__REGISTER_BASICBLOCK_DEBUG_FUN */ /*_.VALCLO___V170*/ meltfptr[169] = (melt_ptr_t) & cdat->dclo_121__REGISTER_BASICBLOCK_DEBUG_FUN; cdat->dclo_121__REGISTER_BASICBLOCK_DEBUG_FUN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_121__REGISTER_BASICBLOCK_DEBUG_FUN.nbval = 0; /*iniobj dsym_122__LOOP_DEBUG_FUNCONT*/ /*uniqueobj*/ if (! /*_.VALDATA___V171*/ meltfptr[170]) /*_.VALDATA___V171*/ meltfptr[170] = (melt_ptr_t) & cdat->dsym_122__LOOP_DEBUG_FUNCONT; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_122__LOOP_DEBUG_FUNCONT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_122__LOOP_DEBUG_FUNCONT", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_122__LOOP_DEBUG_FUNCONT.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_122__LOOP_DEBUG_FUNCONT.obj_hash = 436769164; cdat->dsym_122__LOOP_DEBUG_FUNCONT.obj_len = 3; /*inistring dstr_123__LOOP_DEBUG_FUNCO*/ /*_.VALSTR___V172*/ meltfptr[171] = (melt_ptr_t) & cdat->dstr_123__LOOP_DEBUG_FUNCO; cdat->dstr_123__LOOP_DEBUG_FUNCO.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_123__LOOP_DEBUG_FUNCO.val, "LOOP_DEBUG_FUNCONT", sizeof (cdat->dstr_123__LOOP_DEBUG_FUNCO. val) - 1); MELT_LOCATION ("warmelt-debug.melt:251:/ iniobj"); /*iniobj dobj_124__LOOP_DEBUG_FUNCONT*/ /*_.VALDATA___V173*/ meltfptr[172] = (melt_ptr_t) & cdat->dobj_124__LOOP_DEBUG_FUNCONT; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_124__LOOP_DEBUG_FUNCONT", melt_magic_discr ((melt_ptr_t) ( /*_.CLASS_CONTAINER__V14*/ meltfptr[13])) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_124__LOOP_DEBUG_FUNCONT", ((meltobject_ptr_t) ( /*_.CLASS_CONTAINER__V14*/ meltfptr[13]))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_124__LOOP_DEBUG_FUNCONT.meltobj_class = (meltobject_ptr_t) ( /*_.CLASS_CONTAINER__V14*/ meltfptr[13]); cdat->dobj_124__LOOP_DEBUG_FUNCONT.obj_hash = 368196554; cdat->dobj_124__LOOP_DEBUG_FUNCONT.obj_len = 1; /*inirout drout_125__REGISTER_LOOP_DEBUG_FUN */ /*_.VALROUT___V174*/ meltfptr[173] = (melt_ptr_t) & cdat->drout_125__REGISTER_LOOP_DEBUG_FUN; cdat->drout_125__REGISTER_LOOP_DEBUG_FUN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_125__REGISTER_LOOP_DEBUG_FUN.routdescr, "REGISTER_LOOP_DEBUG_FUN @warmelt-debug.melt:252", MELT_ROUTDESCR_LEN - 1); cdat->drout_125__REGISTER_LOOP_DEBUG_FUN.nbval = 3; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_125__REGISTER_LOOP_DEBUG_FUN, meltrout_7_warmelt_debug_REGISTER_LOOP_DEBUG_FUN); /*iniclos dclo_126__REGISTER_LOOP_DEBUG_FUN */ /*_.VALCLO___V175*/ meltfptr[174] = (melt_ptr_t) & cdat->dclo_126__REGISTER_LOOP_DEBUG_FUN; cdat->dclo_126__REGISTER_LOOP_DEBUG_FUN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_126__REGISTER_LOOP_DEBUG_FUN.nbval = 0; /*iniobj dsym_127__DISCR_DEBUG_CLOSURE*/ /*uniqueobj*/ if (! /*_.VALDATA___V176*/ meltfptr[175]) /*_.VALDATA___V176*/ meltfptr[175] = (melt_ptr_t) & cdat->dsym_127__DISCR_DEBUG_CLOSURE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_127__DISCR_DEBUG_CLOSURE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_127__DISCR_DEBUG_CLOSURE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_127__DISCR_DEBUG_CLOSURE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_127__DISCR_DEBUG_CLOSURE.obj_hash = 726425766; cdat->dsym_127__DISCR_DEBUG_CLOSURE.obj_len = 3; /*inistring dstr_128__DISCR_DEBUG_CLOS*/ /*_.VALSTR___V177*/ meltfptr[176] = (melt_ptr_t) & cdat->dstr_128__DISCR_DEBUG_CLOS; cdat->dstr_128__DISCR_DEBUG_CLOS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_128__DISCR_DEBUG_CLOS.val, "DISCR_DEBUG_CLOSURE", sizeof (cdat->dstr_128__DISCR_DEBUG_CLOS. val) - 1); /*iniobj dsym_129__CLASS_DISCRIMINANT*/ /*uniqueobj*/ if (! /*_.VALDATA___V178*/ meltfptr[177]) /*_.VALDATA___V178*/ meltfptr[177] = (melt_ptr_t) & cdat->dsym_129__CLASS_DISCRIMINANT; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_129__CLASS_DISCRIMINANT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_129__CLASS_DISCRIMINANT", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_129__CLASS_DISCRIMINANT.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_129__CLASS_DISCRIMINANT.obj_hash = 535191995; cdat->dsym_129__CLASS_DISCRIMINANT.obj_len = 3; /*inistring dstr_130__CLASS_DISCRIMINA*/ /*_.VALSTR___V179*/ meltfptr[178] = (melt_ptr_t) & cdat->dstr_130__CLASS_DISCRIMINA; cdat->dstr_130__CLASS_DISCRIMINA.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_130__CLASS_DISCRIMINA.val, "CLASS_DISCRIMINANT", sizeof (cdat->dstr_130__CLASS_DISCRIMINA. val) - 1); MELT_LOCATION ("warmelt-debug.melt:264:/ iniobj"); /*iniobj dobj_131__DISCR_DEBUG_CLOSURE*/ /*_.VALDATA___V180*/ meltfptr[179] = (melt_ptr_t) & cdat->dobj_131__DISCR_DEBUG_CLOSURE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_131__DISCR_DEBUG_CLOSURE", melt_magic_discr ((melt_ptr_t) ( /*_.CLASS_DISCRIMINANT__V16*/ meltfptr[15])) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_131__DISCR_DEBUG_CLOSURE", ((meltobject_ptr_t) ( /*_.CLASS_DISCRIMINANT__V16*/ meltfptr[15]))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_131__DISCR_DEBUG_CLOSURE.meltobj_class = (meltobject_ptr_t) ( /*_.CLASS_DISCRIMINANT__V16*/ meltfptr[15]); cdat->dobj_131__DISCR_DEBUG_CLOSURE.obj_num = MELTOBMAG_CLOSURE; cdat->dobj_131__DISCR_DEBUG_CLOSURE.obj_hash = 910773795; cdat->dobj_131__DISCR_DEBUG_CLOSURE.obj_len = 5; /*iniobj dsym_132__DISCR_CLOSURE*/ /*uniqueobj*/ if (! /*_.VALDATA___V182*/ meltfptr[181]) /*_.VALDATA___V182*/ meltfptr[181] = (melt_ptr_t) & cdat->dsym_132__DISCR_CLOSURE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_132__DISCR_CLOSURE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_132__DISCR_CLOSURE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_132__DISCR_CLOSURE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_132__DISCR_CLOSURE.obj_hash = 99248147; cdat->dsym_132__DISCR_CLOSURE.obj_len = 3; /*inistring dstr_133__DISCR_CLOSURE*/ /*_.VALSTR___V183*/ meltfptr[182] = (melt_ptr_t) & cdat->dstr_133__DISCR_CLOSURE; cdat->dstr_133__DISCR_CLOSURE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_133__DISCR_CLOSURE.val, "DISCR_CLOSURE", sizeof (cdat->dstr_133__DISCR_CLOSURE.val) - 1); /*inistring dstr_134__DISCR_DEBUG_CLOS*/ /*_.VALSTR___V181*/ meltfptr[180] = (melt_ptr_t) & cdat->dstr_134__DISCR_DEBUG_CLOS; cdat->dstr_134__DISCR_DEBUG_CLOS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_134__DISCR_DEBUG_CLOS.val, "DISCR_DEBUG_CLOSURE", sizeof (cdat->dstr_134__DISCR_DEBUG_CLOS. val) - 1); /*inirout drout_135__MELT_DEBUG_FUN */ /*_.VALROUT___V184*/ meltfptr[183] = (melt_ptr_t) & cdat->drout_135__MELT_DEBUG_FUN; cdat->drout_135__MELT_DEBUG_FUN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_135__MELT_DEBUG_FUN.routdescr, "MELT_DEBUG_FUN @warmelt-debug.melt:273", MELT_ROUTDESCR_LEN - 1); cdat->drout_135__MELT_DEBUG_FUN.nbval = 19; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_135__MELT_DEBUG_FUN, meltrout_8_warmelt_debug_MELT_DEBUG_FUN); /*iniclos dclo_136__MELT_DEBUG_FUN */ /*_.VALCLO___V185*/ meltfptr[184] = (melt_ptr_t) & cdat->dclo_136__MELT_DEBUG_FUN; cdat->dclo_136__MELT_DEBUG_FUN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_136__MELT_DEBUG_FUN.nbval = 0; /*iniobj dsym_137__ADD2OUT*/ /*uniqueobj*/ if (! /*_.VALDATA___V186*/ meltfptr[185]) /*_.VALDATA___V186*/ meltfptr[185] = (melt_ptr_t) & cdat->dsym_137__ADD2OUT; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_137__ADD2OUT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_137__ADD2OUT", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_137__ADD2OUT.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_137__ADD2OUT.obj_hash = 901325062; cdat->dsym_137__ADD2OUT.obj_len = 3; /*inistring dstr_138__ADD2OUT*/ /*_.VALSTR___V187*/ meltfptr[186] = (melt_ptr_t) & cdat->dstr_138__ADD2OUT; cdat->dstr_138__ADD2OUT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_138__ADD2OUT.val, "ADD2OUT", sizeof (cdat->dstr_138__ADD2OUT.val) - 1); /*iniobj dsym_139__CSTRING_PREFIXED*/ /*uniqueobj*/ if (! /*_.VALDATA___V188*/ meltfptr[187]) /*_.VALDATA___V188*/ meltfptr[187] = (melt_ptr_t) & cdat->dsym_139__CSTRING_PREFIXED; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_139__CSTRING_PREFIXED", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_139__CSTRING_PREFIXED", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_139__CSTRING_PREFIXED.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_139__CSTRING_PREFIXED.obj_hash = 976907042; cdat->dsym_139__CSTRING_PREFIXED.obj_len = 3; /*inistring dstr_140__CSTRING_PREFIXED*/ /*_.VALSTR___V189*/ meltfptr[188] = (melt_ptr_t) & cdat->dstr_140__CSTRING_PREFIXED; cdat->dstr_140__CSTRING_PREFIXED.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_140__CSTRING_PREFIXED.val, "CSTRING_PREFIXED", sizeof (cdat->dstr_140__CSTRING_PREFIXED. val) - 1); /*iniobj dsym_141__CLASS_NAMED*/ /*uniqueobj*/ if (! /*_.VALDATA___V190*/ meltfptr[189]) /*_.VALDATA___V190*/ meltfptr[189] = (melt_ptr_t) & cdat->dsym_141__CLASS_NAMED; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_141__CLASS_NAMED", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_141__CLASS_NAMED", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_141__CLASS_NAMED.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_141__CLASS_NAMED.obj_hash = 60407004; cdat->dsym_141__CLASS_NAMED.obj_len = 3; /*inistring dstr_142__CLASS_NAMED*/ /*_.VALSTR___V191*/ meltfptr[190] = (melt_ptr_t) & cdat->dstr_142__CLASS_NAMED; cdat->dstr_142__CLASS_NAMED.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_142__CLASS_NAMED.val, "CLASS_NAMED", sizeof (cdat->dstr_142__CLASS_NAMED.val) - 1); /*iniobj dsym_143__CLASS_CTYPE*/ /*uniqueobj*/ if (! /*_.VALDATA___V192*/ meltfptr[191]) /*_.VALDATA___V192*/ meltfptr[191] = (melt_ptr_t) & cdat->dsym_143__CLASS_CTYPE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_143__CLASS_CTYPE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_143__CLASS_CTYPE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_143__CLASS_CTYPE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_143__CLASS_CTYPE.obj_hash = 78610803; cdat->dsym_143__CLASS_CTYPE.obj_len = 3; /*inistring dstr_144__CLASS_CTYPE*/ /*_.VALSTR___V193*/ meltfptr[192] = (melt_ptr_t) & cdat->dstr_144__CLASS_CTYPE; cdat->dstr_144__CLASS_CTYPE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_144__CLASS_CTYPE.val, "CLASS_CTYPE", sizeof (cdat->dstr_144__CLASS_CTYPE.val) - 1); /*inirout drout_145__DBG_OUTOBJECT */ /*_.VALROUT___V108*/ meltfptr[107] = (melt_ptr_t) & cdat->drout_145__DBG_OUTOBJECT; cdat->drout_145__DBG_OUTOBJECT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_145__DBG_OUTOBJECT.routdescr, "DBG_OUTOBJECT @warmelt-debug.melt:443", MELT_ROUTDESCR_LEN - 1); cdat->drout_145__DBG_OUTOBJECT.nbval = 4; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_145__DBG_OUTOBJECT, meltrout_9_warmelt_debug_DBG_OUTOBJECT); /*iniclos dclo_146__DBG_OUTOBJECT */ /*_.VALCLO___V107*/ meltfptr[106] = (melt_ptr_t) & cdat->dclo_146__DBG_OUTOBJECT; cdat->dclo_146__DBG_OUTOBJECT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_146__DBG_OUTOBJECT.nbval = 0; /*inirout drout_147__DBG_OUT */ /*_.VALROUT___V106*/ meltfptr[105] = (melt_ptr_t) & cdat->drout_147__DBG_OUT; cdat->drout_147__DBG_OUT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_147__DBG_OUT.routdescr, "DBG_OUT @warmelt-debug.melt:463", MELT_ROUTDESCR_LEN - 1); cdat->drout_147__DBG_OUT.nbval = 3; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_147__DBG_OUT, meltrout_10_warmelt_debug_DBG_OUT); /*iniclos dclo_148__DBG_OUT */ /*_.VALCLO___V105*/ meltfptr[104] = (melt_ptr_t) & cdat->dclo_148__DBG_OUT; cdat->dclo_148__DBG_OUT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_148__DBG_OUT.nbval = 0; /*inirout drout_149__DBGOUT_FIELDS */ /*_.VALROUT___V194*/ meltfptr[193] = (melt_ptr_t) & cdat->drout_149__DBGOUT_FIELDS; cdat->drout_149__DBGOUT_FIELDS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_149__DBGOUT_FIELDS.routdescr, "DBGOUT_FIELDS @warmelt-debug.melt:490", MELT_ROUTDESCR_LEN - 1); cdat->drout_149__DBGOUT_FIELDS.nbval = 2; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_149__DBGOUT_FIELDS, meltrout_11_warmelt_debug_DBGOUT_FIELDS); /*iniclos dclo_150__DBGOUT_FIELDS */ /*_.VALCLO___V195*/ meltfptr[194] = (melt_ptr_t) & cdat->dclo_150__DBGOUT_FIELDS; cdat->dclo_150__DBGOUT_FIELDS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_150__DBGOUT_FIELDS.nbval = 0; /*inirout drout_151__DBGOUTAGAIN_FIELDS */ /*_.VALROUT___V196*/ meltfptr[195] = (melt_ptr_t) & cdat->drout_151__DBGOUTAGAIN_FIELDS; cdat->drout_151__DBGOUTAGAIN_FIELDS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_151__DBGOUTAGAIN_FIELDS.routdescr, "DBGOUTAGAIN_FIELDS @warmelt-debug.melt:542", MELT_ROUTDESCR_LEN - 1); cdat->drout_151__DBGOUTAGAIN_FIELDS.nbval = 2; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_151__DBGOUTAGAIN_FIELDS, meltrout_12_warmelt_debug_DBGOUTAGAIN_FIELDS); /*iniclos dclo_152__DBGOUTAGAIN_FIELDS */ /*_.VALCLO___V197*/ meltfptr[196] = (melt_ptr_t) & cdat->dclo_152__DBGOUTAGAIN_FIELDS; cdat->dclo_152__DBGOUTAGAIN_FIELDS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_152__DBGOUTAGAIN_FIELDS.nbval = 0; /*inirout drout_153__DBGOUT_NULL_METHOD */ /*_.VALROUT___V198*/ meltfptr[197] = (melt_ptr_t) & cdat->drout_153__DBGOUT_NULL_METHOD; cdat->drout_153__DBGOUT_NULL_METHOD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_153__DBGOUT_NULL_METHOD.routdescr, "DBGOUT_NULL_METHOD @warmelt-debug.melt:583", MELT_ROUTDESCR_LEN - 1); cdat->drout_153__DBGOUT_NULL_METHOD.nbval = 0; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_153__DBGOUT_NULL_METHOD, meltrout_13_warmelt_debug_DBGOUT_NULL_METHOD); /*iniclos dclo_154__DBGOUT_NULL_METHOD */ /*_.VALCLO___V199*/ meltfptr[198] = (melt_ptr_t) & cdat->dclo_154__DBGOUT_NULL_METHOD; cdat->dclo_154__DBGOUT_NULL_METHOD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_154__DBGOUT_NULL_METHOD.nbval = 0; /*iniobj dsym_155__INSTALL_METHOD*/ /*uniqueobj*/ if (! /*_.VALDATA___V200*/ meltfptr[199]) /*_.VALDATA___V200*/ meltfptr[199] = (melt_ptr_t) & cdat->dsym_155__INSTALL_METHOD; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_155__INSTALL_METHOD", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_155__INSTALL_METHOD", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_155__INSTALL_METHOD.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_155__INSTALL_METHOD.obj_hash = 680699224; cdat->dsym_155__INSTALL_METHOD.obj_len = 3; /*inistring dstr_156__INSTALL_METHOD*/ /*_.VALSTR___V201*/ meltfptr[200] = (melt_ptr_t) & cdat->dstr_156__INSTALL_METHOD; cdat->dstr_156__INSTALL_METHOD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_156__INSTALL_METHOD.val, "INSTALL_METHOD", sizeof (cdat->dstr_156__INSTALL_METHOD.val) - 1); /*iniobj dsym_157__DISCR_NULL_RECEIVER*/ /*uniqueobj*/ if (! /*_.VALDATA___V202*/ meltfptr[201]) /*_.VALDATA___V202*/ meltfptr[201] = (melt_ptr_t) & cdat->dsym_157__DISCR_NULL_RECEIVER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_157__DISCR_NULL_RECEIVER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_157__DISCR_NULL_RECEIVER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_157__DISCR_NULL_RECEIVER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_157__DISCR_NULL_RECEIVER.obj_hash = 1063609307; cdat->dsym_157__DISCR_NULL_RECEIVER.obj_len = 3; /*inistring dstr_158__DISCR_NULL_RECEI*/ /*_.VALSTR___V203*/ meltfptr[202] = (melt_ptr_t) & cdat->dstr_158__DISCR_NULL_RECEI; cdat->dstr_158__DISCR_NULL_RECEI.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_158__DISCR_NULL_RECEI.val, "DISCR_NULL_RECEIVER", sizeof (cdat->dstr_158__DISCR_NULL_RECEI. val) - 1); /*inirout drout_159__DBGOUT_STRING_METHOD */ /*_.VALROUT___V204*/ meltfptr[203] = (melt_ptr_t) & cdat->drout_159__DBGOUT_STRING_METHOD; cdat->drout_159__DBGOUT_STRING_METHOD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_159__DBGOUT_STRING_METHOD.routdescr, "DBGOUT_STRING_METHOD @warmelt-debug.melt:591", MELT_ROUTDESCR_LEN - 1); cdat->drout_159__DBGOUT_STRING_METHOD.nbval = 2; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_159__DBGOUT_STRING_METHOD, meltrout_14_warmelt_debug_DBGOUT_STRING_METHOD); /*iniclos dclo_160__DBGOUT_STRING_METHOD */ /*_.VALCLO___V205*/ meltfptr[204] = (melt_ptr_t) & cdat->dclo_160__DBGOUT_STRING_METHOD; cdat->dclo_160__DBGOUT_STRING_METHOD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_160__DBGOUT_STRING_METHOD.nbval = 0; /*iniobj dsym_161__DISCR_STRING*/ /*uniqueobj*/ if (! /*_.VALDATA___V206*/ meltfptr[205]) /*_.VALDATA___V206*/ meltfptr[205] = (melt_ptr_t) & cdat->dsym_161__DISCR_STRING; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_161__DISCR_STRING", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_161__DISCR_STRING", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_161__DISCR_STRING.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_161__DISCR_STRING.obj_hash = 100436219; cdat->dsym_161__DISCR_STRING.obj_len = 3; /*inistring dstr_162__DISCR_STRING*/ /*_.VALSTR___V207*/ meltfptr[206] = (melt_ptr_t) & cdat->dstr_162__DISCR_STRING; cdat->dstr_162__DISCR_STRING.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_162__DISCR_STRING.val, "DISCR_STRING", sizeof (cdat->dstr_162__DISCR_STRING.val) - 1); /*inirout drout_163__DBGOUT_STRBUF_METHOD */ /*_.VALROUT___V208*/ meltfptr[207] = (melt_ptr_t) & cdat->drout_163__DBGOUT_STRBUF_METHOD; cdat->drout_163__DBGOUT_STRBUF_METHOD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_163__DBGOUT_STRBUF_METHOD.routdescr, "DBGOUT_STRBUF_METHOD @warmelt-debug.melt:613", MELT_ROUTDESCR_LEN - 1); cdat->drout_163__DBGOUT_STRBUF_METHOD.nbval = 3; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_163__DBGOUT_STRBUF_METHOD, meltrout_15_warmelt_debug_DBGOUT_STRBUF_METHOD); /*iniclos dclo_164__DBGOUT_STRBUF_METHOD */ /*_.VALCLO___V209*/ meltfptr[208] = (melt_ptr_t) & cdat->dclo_164__DBGOUT_STRBUF_METHOD; cdat->dclo_164__DBGOUT_STRBUF_METHOD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_164__DBGOUT_STRBUF_METHOD.nbval = 0; /*inirout drout_165__DBGOUT_INTEGER_METHOD */ /*_.VALROUT___V210*/ meltfptr[209] = (melt_ptr_t) & cdat->drout_165__DBGOUT_INTEGER_METHOD; cdat->drout_165__DBGOUT_INTEGER_METHOD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_165__DBGOUT_INTEGER_METHOD.routdescr, "DBGOUT_INTEGER_METHOD @warmelt-debug.melt:698", MELT_ROUTDESCR_LEN - 1); cdat->drout_165__DBGOUT_INTEGER_METHOD.nbval = 2; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_165__DBGOUT_INTEGER_METHOD, meltrout_16_warmelt_debug_DBGOUT_INTEGER_METHOD); /*iniclos dclo_166__DBGOUT_INTEGER_METHOD */ /*_.VALCLO___V211*/ meltfptr[210] = (melt_ptr_t) & cdat->dclo_166__DBGOUT_INTEGER_METHOD; cdat->dclo_166__DBGOUT_INTEGER_METHOD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_166__DBGOUT_INTEGER_METHOD.nbval = 0; /*inirout drout_167__DBGOUT_MIXINT_METHOD */ /*_.VALROUT___V212*/ meltfptr[211] = (melt_ptr_t) & cdat->drout_167__DBGOUT_MIXINT_METHOD; cdat->drout_167__DBGOUT_MIXINT_METHOD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_167__DBGOUT_MIXINT_METHOD.routdescr, "DBGOUT_MIXINT_METHOD @warmelt-debug.melt:717", MELT_ROUTDESCR_LEN - 1); cdat->drout_167__DBGOUT_MIXINT_METHOD.nbval = 3; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_167__DBGOUT_MIXINT_METHOD, meltrout_17_warmelt_debug_DBGOUT_MIXINT_METHOD); /*iniclos dclo_168__DBGOUT_MIXINT_METHOD */ /*_.VALCLO___V213*/ meltfptr[212] = (melt_ptr_t) & cdat->dclo_168__DBGOUT_MIXINT_METHOD; cdat->dclo_168__DBGOUT_MIXINT_METHOD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_168__DBGOUT_MIXINT_METHOD.nbval = 0; /*iniobj dsym_169__DISCR_MIXED_INTEGER*/ /*uniqueobj*/ if (! /*_.VALDATA___V214*/ meltfptr[213]) /*_.VALDATA___V214*/ meltfptr[213] = (melt_ptr_t) & cdat->dsym_169__DISCR_MIXED_INTEGER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_169__DISCR_MIXED_INTEGER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_169__DISCR_MIXED_INTEGER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_169__DISCR_MIXED_INTEGER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_169__DISCR_MIXED_INTEGER.obj_hash = 355248820; cdat->dsym_169__DISCR_MIXED_INTEGER.obj_len = 3; /*inistring dstr_170__DISCR_MIXED_INTE*/ /*_.VALSTR___V215*/ meltfptr[214] = (melt_ptr_t) & cdat->dstr_170__DISCR_MIXED_INTE; cdat->dstr_170__DISCR_MIXED_INTE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_170__DISCR_MIXED_INTE.val, "DISCR_MIXED_INTEGER", sizeof (cdat->dstr_170__DISCR_MIXED_INTE. val) - 1); /*inirout drout_171__DBGOUT_MIXLOC_METHOD */ /*_.VALROUT___V216*/ meltfptr[215] = (melt_ptr_t) & cdat->drout_171__DBGOUT_MIXLOC_METHOD; cdat->drout_171__DBGOUT_MIXLOC_METHOD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_171__DBGOUT_MIXLOC_METHOD.routdescr, "DBGOUT_MIXLOC_METHOD @warmelt-debug.melt:744", MELT_ROUTDESCR_LEN - 1); cdat->drout_171__DBGOUT_MIXLOC_METHOD.nbval = 2; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_171__DBGOUT_MIXLOC_METHOD, meltrout_18_warmelt_debug_DBGOUT_MIXLOC_METHOD); /*iniclos dclo_172__DBGOUT_MIXLOC_METHOD */ /*_.VALCLO___V217*/ meltfptr[216] = (melt_ptr_t) & cdat->dclo_172__DBGOUT_MIXLOC_METHOD; cdat->dclo_172__DBGOUT_MIXLOC_METHOD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_172__DBGOUT_MIXLOC_METHOD.nbval = 0; /*iniobj dsym_173__DISCR_MIXED_LOCATION*/ /*uniqueobj*/ if (! /*_.VALDATA___V218*/ meltfptr[217]) /*_.VALDATA___V218*/ meltfptr[217] = (melt_ptr_t) & cdat->dsym_173__DISCR_MIXED_LOCATION; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_173__DISCR_MIXED_LOCATION", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_173__DISCR_MIXED_LOCATION", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_173__DISCR_MIXED_LOCATION.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_173__DISCR_MIXED_LOCATION.obj_hash = 1019373807; cdat->dsym_173__DISCR_MIXED_LOCATION.obj_len = 3; /*inistring dstr_174__DISCR_MIXED_LOCA*/ /*_.VALSTR___V219*/ meltfptr[218] = (melt_ptr_t) & cdat->dstr_174__DISCR_MIXED_LOCA; cdat->dstr_174__DISCR_MIXED_LOCA.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_174__DISCR_MIXED_LOCA.val, "DISCR_MIXED_LOCATION", sizeof (cdat->dstr_174__DISCR_MIXED_LOCA. val) - 1); /*inirout drout_175__DBGOUT_MIXBIGINT_METHOD */ /*_.VALROUT___V220*/ meltfptr[219] = (melt_ptr_t) & cdat->drout_175__DBGOUT_MIXBIGINT_METHOD; cdat->drout_175__DBGOUT_MIXBIGINT_METHOD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_175__DBGOUT_MIXBIGINT_METHOD.routdescr, "DBGOUT_MIXBIGINT_METHOD @warmelt-debug.melt:773", MELT_ROUTDESCR_LEN - 1); cdat->drout_175__DBGOUT_MIXBIGINT_METHOD.nbval = 2; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_175__DBGOUT_MIXBIGINT_METHOD, meltrout_19_warmelt_debug_DBGOUT_MIXBIGINT_METHOD); /*iniclos dclo_176__DBGOUT_MIXBIGINT_METHOD */ /*_.VALCLO___V221*/ meltfptr[220] = (melt_ptr_t) & cdat->dclo_176__DBGOUT_MIXBIGINT_METHOD; cdat->dclo_176__DBGOUT_MIXBIGINT_METHOD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_176__DBGOUT_MIXBIGINT_METHOD.nbval = 0; /*iniobj dsym_177__DISCR_MIXED_BIGINT*/ /*uniqueobj*/ if (! /*_.VALDATA___V222*/ meltfptr[221]) /*_.VALDATA___V222*/ meltfptr[221] = (melt_ptr_t) & cdat->dsym_177__DISCR_MIXED_BIGINT; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_177__DISCR_MIXED_BIGINT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_177__DISCR_MIXED_BIGINT", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_177__DISCR_MIXED_BIGINT.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_177__DISCR_MIXED_BIGINT.obj_hash = 484145131; cdat->dsym_177__DISCR_MIXED_BIGINT.obj_len = 3; /*inistring dstr_178__DISCR_MIXED_BIGI*/ /*_.VALSTR___V223*/ meltfptr[222] = (melt_ptr_t) & cdat->dstr_178__DISCR_MIXED_BIGI; cdat->dstr_178__DISCR_MIXED_BIGI.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_178__DISCR_MIXED_BIGI.val, "DISCR_MIXED_BIGINT", sizeof (cdat->dstr_178__DISCR_MIXED_BIGI. val) - 1); /*inirout drout_179__DBGOUT_MULTIPLE_METHOD */ /*_.VALROUT___V224*/ meltfptr[223] = (melt_ptr_t) & cdat->drout_179__DBGOUT_MULTIPLE_METHOD; cdat->drout_179__DBGOUT_MULTIPLE_METHOD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_179__DBGOUT_MULTIPLE_METHOD.routdescr, "DBGOUT_MULTIPLE_METHOD @warmelt-debug.melt:795", MELT_ROUTDESCR_LEN - 1); cdat->drout_179__DBGOUT_MULTIPLE_METHOD.nbval = 3; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_179__DBGOUT_MULTIPLE_METHOD, meltrout_20_warmelt_debug_DBGOUT_MULTIPLE_METHOD); /*iniclos dclo_180__DBGOUT_MULTIPLE_METHOD */ /*_.VALCLO___V225*/ meltfptr[224] = (melt_ptr_t) & cdat->dclo_180__DBGOUT_MULTIPLE_METHOD; cdat->dclo_180__DBGOUT_MULTIPLE_METHOD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_180__DBGOUT_MULTIPLE_METHOD.nbval = 0; /*iniobj dsym_181__DISCR_MULTIPLE*/ /*uniqueobj*/ if (! /*_.VALDATA___V226*/ meltfptr[225]) /*_.VALDATA___V226*/ meltfptr[225] = (melt_ptr_t) & cdat->dsym_181__DISCR_MULTIPLE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_181__DISCR_MULTIPLE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_181__DISCR_MULTIPLE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_181__DISCR_MULTIPLE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_181__DISCR_MULTIPLE.obj_hash = 91864583; cdat->dsym_181__DISCR_MULTIPLE.obj_len = 3; /*inistring dstr_182__DISCR_MULTIPLE*/ /*_.VALSTR___V227*/ meltfptr[226] = (melt_ptr_t) & cdat->dstr_182__DISCR_MULTIPLE; cdat->dstr_182__DISCR_MULTIPLE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_182__DISCR_MULTIPLE.val, "DISCR_MULTIPLE", sizeof (cdat->dstr_182__DISCR_MULTIPLE.val) - 1); /*inirout drout_183__DBGOUT_ROUTINE_METHOD */ /*_.VALROUT___V228*/ meltfptr[227] = (melt_ptr_t) & cdat->drout_183__DBGOUT_ROUTINE_METHOD; cdat->drout_183__DBGOUT_ROUTINE_METHOD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_183__DBGOUT_ROUTINE_METHOD.routdescr, "DBGOUT_ROUTINE_METHOD @warmelt-debug.melt:828", MELT_ROUTDESCR_LEN - 1); cdat->drout_183__DBGOUT_ROUTINE_METHOD.nbval = 6; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_183__DBGOUT_ROUTINE_METHOD, meltrout_21_warmelt_debug_DBGOUT_ROUTINE_METHOD); /*iniclos dclo_184__DBGOUT_ROUTINE_METHOD */ /*_.VALCLO___V230*/ meltfptr[229] = (melt_ptr_t) & cdat->dclo_184__DBGOUT_ROUTINE_METHOD; cdat->dclo_184__DBGOUT_ROUTINE_METHOD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_184__DBGOUT_ROUTINE_METHOD.nbval = 0; /*iniobj dsym_185__DISCR_ROUTINE*/ /*uniqueobj*/ if (! /*_.VALDATA___V231*/ meltfptr[230]) /*_.VALDATA___V231*/ meltfptr[230] = (melt_ptr_t) & cdat->dsym_185__DISCR_ROUTINE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_185__DISCR_ROUTINE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_185__DISCR_ROUTINE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_185__DISCR_ROUTINE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_185__DISCR_ROUTINE.obj_hash = 30464565; cdat->dsym_185__DISCR_ROUTINE.obj_len = 3; /*inistring dstr_186__DISCR_ROUTINE*/ /*_.VALSTR___V232*/ meltfptr[231] = (melt_ptr_t) & cdat->dstr_186__DISCR_ROUTINE; cdat->dstr_186__DISCR_ROUTINE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_186__DISCR_ROUTINE.val, "DISCR_ROUTINE", sizeof (cdat->dstr_186__DISCR_ROUTINE.val) - 1); /*iniobj dsym_187__ROUTINE_EVERY*/ /*uniqueobj*/ if (! /*_.VALDATA___V233*/ meltfptr[232]) /*_.VALDATA___V233*/ meltfptr[232] = (melt_ptr_t) & cdat->dsym_187__ROUTINE_EVERY; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_187__ROUTINE_EVERY", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_187__ROUTINE_EVERY", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_187__ROUTINE_EVERY.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_187__ROUTINE_EVERY.obj_hash = 347090207; cdat->dsym_187__ROUTINE_EVERY.obj_len = 3; /*inistring dstr_188__ROUTINE_EVERY*/ /*_.VALSTR___V234*/ meltfptr[233] = (melt_ptr_t) & cdat->dstr_188__ROUTINE_EVERY; cdat->dstr_188__ROUTINE_EVERY.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_188__ROUTINE_EVERY.val, "ROUTINE_EVERY", sizeof (cdat->dstr_188__ROUTINE_EVERY.val) - 1); /*inirout drout_189__LAMBDA_ */ /*_.VALROUT___V229*/ meltfptr[228] = (melt_ptr_t) & cdat->drout_189__LAMBDA_; cdat->drout_189__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_189__LAMBDA_.routdescr, "LAMBDA_ @warmelt-debug.melt:843", MELT_ROUTDESCR_LEN - 1); cdat->drout_189__LAMBDA_.nbval = 1; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_189__LAMBDA_, meltrout_22_warmelt_debug_LAMBDA___1__); /*inirout drout_190__DBGOUT_CLOSURE_METHOD */ /*_.VALROUT___V235*/ meltfptr[234] = (melt_ptr_t) & cdat->drout_190__DBGOUT_CLOSURE_METHOD; cdat->drout_190__DBGOUT_CLOSURE_METHOD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_190__DBGOUT_CLOSURE_METHOD.routdescr, "DBGOUT_CLOSURE_METHOD @warmelt-debug.melt:855", MELT_ROUTDESCR_LEN - 1); cdat->drout_190__DBGOUT_CLOSURE_METHOD.nbval = 3; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_190__DBGOUT_CLOSURE_METHOD, meltrout_23_warmelt_debug_DBGOUT_CLOSURE_METHOD); /*iniclos dclo_191__DBGOUT_CLOSURE_METHOD */ /*_.VALCLO___V236*/ meltfptr[235] = (melt_ptr_t) & cdat->dclo_191__DBGOUT_CLOSURE_METHOD; cdat->dclo_191__DBGOUT_CLOSURE_METHOD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_191__DBGOUT_CLOSURE_METHOD.nbval = 0; /*inirout drout_192__DBGOUT_LIST_METHOD */ /*_.VALROUT___V237*/ meltfptr[236] = (melt_ptr_t) & cdat->drout_192__DBGOUT_LIST_METHOD; cdat->drout_192__DBGOUT_LIST_METHOD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_192__DBGOUT_LIST_METHOD.routdescr, "DBGOUT_LIST_METHOD @warmelt-debug.melt:895", MELT_ROUTDESCR_LEN - 1); cdat->drout_192__DBGOUT_LIST_METHOD.nbval = 3; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_192__DBGOUT_LIST_METHOD, meltrout_24_warmelt_debug_DBGOUT_LIST_METHOD); /*iniclos dclo_193__DBGOUT_LIST_METHOD */ /*_.VALCLO___V238*/ meltfptr[237] = (melt_ptr_t) & cdat->dclo_193__DBGOUT_LIST_METHOD; cdat->dclo_193__DBGOUT_LIST_METHOD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_193__DBGOUT_LIST_METHOD.nbval = 0; /*iniobj dsym_194__DISCR_LIST*/ /*uniqueobj*/ if (! /*_.VALDATA___V239*/ meltfptr[238]) /*_.VALDATA___V239*/ meltfptr[238] = (melt_ptr_t) & cdat->dsym_194__DISCR_LIST; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_194__DISCR_LIST", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_194__DISCR_LIST", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_194__DISCR_LIST.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_194__DISCR_LIST.obj_hash = 98407634; cdat->dsym_194__DISCR_LIST.obj_len = 3; /*inistring dstr_195__DISCR_LIST*/ /*_.VALSTR___V240*/ meltfptr[239] = (melt_ptr_t) & cdat->dstr_195__DISCR_LIST; cdat->dstr_195__DISCR_LIST.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_195__DISCR_LIST.val, "DISCR_LIST", sizeof (cdat->dstr_195__DISCR_LIST.val) - 1); /*inirout drout_196__DBGOUT_PAIR_METHOD */ /*_.VALROUT___V241*/ meltfptr[240] = (melt_ptr_t) & cdat->drout_196__DBGOUT_PAIR_METHOD; cdat->drout_196__DBGOUT_PAIR_METHOD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_196__DBGOUT_PAIR_METHOD.routdescr, "DBGOUT_PAIR_METHOD @warmelt-debug.melt:935", MELT_ROUTDESCR_LEN - 1); cdat->drout_196__DBGOUT_PAIR_METHOD.nbval = 3; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_196__DBGOUT_PAIR_METHOD, meltrout_25_warmelt_debug_DBGOUT_PAIR_METHOD); /*iniclos dclo_197__DBGOUT_PAIR_METHOD */ /*_.VALCLO___V242*/ meltfptr[241] = (melt_ptr_t) & cdat->dclo_197__DBGOUT_PAIR_METHOD; cdat->dclo_197__DBGOUT_PAIR_METHOD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_197__DBGOUT_PAIR_METHOD.nbval = 0; /*iniobj dsym_198__DISCR_PAIR*/ /*uniqueobj*/ if (! /*_.VALDATA___V243*/ meltfptr[242]) /*_.VALDATA___V243*/ meltfptr[242] = (melt_ptr_t) & cdat->dsym_198__DISCR_PAIR; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_198__DISCR_PAIR", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_198__DISCR_PAIR", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_198__DISCR_PAIR.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_198__DISCR_PAIR.obj_hash = 69333571; cdat->dsym_198__DISCR_PAIR.obj_len = 3; /*inistring dstr_199__DISCR_PAIR*/ /*_.VALSTR___V244*/ meltfptr[243] = (melt_ptr_t) & cdat->dstr_199__DISCR_PAIR; cdat->dstr_199__DISCR_PAIR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_199__DISCR_PAIR.val, "DISCR_PAIR", sizeof (cdat->dstr_199__DISCR_PAIR.val) - 1); /*inirout drout_200__DBGOUT_MAPOBJECT_METHOD */ /*_.VALROUT___V245*/ meltfptr[244] = (melt_ptr_t) & cdat->drout_200__DBGOUT_MAPOBJECT_METHOD; cdat->drout_200__DBGOUT_MAPOBJECT_METHOD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_200__DBGOUT_MAPOBJECT_METHOD.routdescr, "DBGOUT_MAPOBJECT_METHOD @warmelt-debug.melt:957", MELT_ROUTDESCR_LEN - 1); cdat->drout_200__DBGOUT_MAPOBJECT_METHOD.nbval = 15; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_200__DBGOUT_MAPOBJECT_METHOD, meltrout_26_warmelt_debug_DBGOUT_MAPOBJECT_METHOD); /*iniclos dclo_201__DBGOUT_MAPOBJECT_METHOD */ /*_.VALCLO___V252*/ meltfptr[251] = (melt_ptr_t) & cdat->dclo_201__DBGOUT_MAPOBJECT_METHOD; cdat->dclo_201__DBGOUT_MAPOBJECT_METHOD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_201__DBGOUT_MAPOBJECT_METHOD.nbval = 0; /*iniobj dsym_202__MAPOBJECT_EVERY*/ /*uniqueobj*/ if (! /*_.VALDATA___V253*/ meltfptr[252]) /*_.VALDATA___V253*/ meltfptr[252] = (melt_ptr_t) & cdat->dsym_202__MAPOBJECT_EVERY; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_202__MAPOBJECT_EVERY", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_202__MAPOBJECT_EVERY", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_202__MAPOBJECT_EVERY.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_202__MAPOBJECT_EVERY.obj_hash = 726732435; cdat->dsym_202__MAPOBJECT_EVERY.obj_len = 3; /*inistring dstr_203__MAPOBJECT_EVERY*/ /*_.VALSTR___V254*/ meltfptr[253] = (melt_ptr_t) & cdat->dstr_203__MAPOBJECT_EVERY; cdat->dstr_203__MAPOBJECT_EVERY.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_203__MAPOBJECT_EVERY.val, "MAPOBJECT_EVERY", sizeof (cdat->dstr_203__MAPOBJECT_EVERY.val) - 1); /*inirout drout_204__LAMBDA_ */ /*_.VALROUT___V246*/ meltfptr[245] = (melt_ptr_t) & cdat->drout_204__LAMBDA_; cdat->drout_204__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_204__LAMBDA_.routdescr, "LAMBDA_ @warmelt-debug.melt:990", MELT_ROUTDESCR_LEN - 1); cdat->drout_204__LAMBDA_.nbval = 1; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_204__LAMBDA_, meltrout_27_warmelt_debug_LAMBDA___2__); /*inirout drout_205__LAMBDA_ */ /*_.VALROUT___V247*/ meltfptr[246] = (melt_ptr_t) & cdat->drout_205__LAMBDA_; cdat->drout_205__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_205__LAMBDA_.routdescr, "LAMBDA_ @warmelt-debug.melt:1003", MELT_ROUTDESCR_LEN - 1); cdat->drout_205__LAMBDA_.nbval = 4; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_205__LAMBDA_, meltrout_28_warmelt_debug_LAMBDA___3__); /*iniobj dsym_206__COMPARE_OBJ_RANKED*/ /*uniqueobj*/ if (! /*_.VALDATA___V255*/ meltfptr[254]) /*_.VALDATA___V255*/ meltfptr[254] = (melt_ptr_t) & cdat->dsym_206__COMPARE_OBJ_RANKED; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_206__COMPARE_OBJ_RANKED", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_206__COMPARE_OBJ_RANKED", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_206__COMPARE_OBJ_RANKED.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_206__COMPARE_OBJ_RANKED.obj_hash = 657124045; cdat->dsym_206__COMPARE_OBJ_RANKED.obj_len = 3; /*inistring dstr_207__COMPARE_OBJ_RANK*/ /*_.VALSTR___V256*/ meltfptr[255] = (melt_ptr_t) & cdat->dstr_207__COMPARE_OBJ_RANK; cdat->dstr_207__COMPARE_OBJ_RANK.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_207__COMPARE_OBJ_RANK.val, "COMPARE_OBJ_RANKED", sizeof (cdat->dstr_207__COMPARE_OBJ_RANK. val) - 1); /*iniboxint dint_208__ */ /*_.VALBXINT___V248*/ meltfptr[247] = (melt_ptr_t) & cdat->dint_208__; cdat->dint_208__.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CONSTANT_INTEGER)))); cdat->dint_208__.val = -1; /*iniboxint dint_209__ */ /*_.VALBXINT___V249*/ meltfptr[248] = (melt_ptr_t) & cdat->dint_209__; cdat->dint_209__.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CONSTANT_INTEGER)))); cdat->dint_209__.val = 0; /*iniboxint dint_210__ */ /*_.VALBXINT___V250*/ meltfptr[249] = (melt_ptr_t) & cdat->dint_210__; cdat->dint_210__.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CONSTANT_INTEGER)))); cdat->dint_210__.val = 1; /*iniobj dsym_211__MULTIPLE_EVERY*/ /*uniqueobj*/ if (! /*_.VALDATA___V257*/ meltfptr[256]) /*_.VALDATA___V257*/ meltfptr[256] = (melt_ptr_t) & cdat->dsym_211__MULTIPLE_EVERY; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_211__MULTIPLE_EVERY", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_211__MULTIPLE_EVERY", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_211__MULTIPLE_EVERY.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_211__MULTIPLE_EVERY.obj_hash = 130098745; cdat->dsym_211__MULTIPLE_EVERY.obj_len = 3; /*inistring dstr_212__MULTIPLE_EVERY*/ /*_.VALSTR___V258*/ meltfptr[257] = (melt_ptr_t) & cdat->dstr_212__MULTIPLE_EVERY; cdat->dstr_212__MULTIPLE_EVERY.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_212__MULTIPLE_EVERY.val, "MULTIPLE_EVERY", sizeof (cdat->dstr_212__MULTIPLE_EVERY.val) - 1); /*inirout drout_213__LAMBDA_ */ /*_.VALROUT___V251*/ meltfptr[250] = (melt_ptr_t) & cdat->drout_213__LAMBDA_; cdat->drout_213__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_213__LAMBDA_.routdescr, "LAMBDA_ @warmelt-debug.melt:1019", MELT_ROUTDESCR_LEN - 1); cdat->drout_213__LAMBDA_.nbval = 2; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_213__LAMBDA_, meltrout_29_warmelt_debug_LAMBDA___4__); /*inirout drout_214__DBGOUT_MAPSTRING_METHOD */ /*_.VALROUT___V259*/ meltfptr[258] = (melt_ptr_t) & cdat->drout_214__DBGOUT_MAPSTRING_METHOD; cdat->drout_214__DBGOUT_MAPSTRING_METHOD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_214__DBGOUT_MAPSTRING_METHOD.routdescr, "DBGOUT_MAPSTRING_METHOD @warmelt-debug.melt:1042", MELT_ROUTDESCR_LEN - 1); cdat->drout_214__DBGOUT_MAPSTRING_METHOD.nbval = 14; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_214__DBGOUT_MAPSTRING_METHOD, meltrout_30_warmelt_debug_DBGOUT_MAPSTRING_METHOD); /*iniclos dclo_215__DBGOUT_MAPSTRING_METHOD */ /*_.VALCLO___V266*/ meltfptr[265] = (melt_ptr_t) & cdat->dclo_215__DBGOUT_MAPSTRING_METHOD; cdat->dclo_215__DBGOUT_MAPSTRING_METHOD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_215__DBGOUT_MAPSTRING_METHOD.nbval = 0; /*iniobj dsym_216__DISCR_MAP_STRINGS*/ /*uniqueobj*/ if (! /*_.VALDATA___V267*/ meltfptr[266]) /*_.VALDATA___V267*/ meltfptr[266] = (melt_ptr_t) & cdat->dsym_216__DISCR_MAP_STRINGS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_216__DISCR_MAP_STRINGS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_216__DISCR_MAP_STRINGS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_216__DISCR_MAP_STRINGS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_216__DISCR_MAP_STRINGS.obj_hash = 344609662; cdat->dsym_216__DISCR_MAP_STRINGS.obj_len = 3; /*inistring dstr_217__DISCR_MAP_STRING*/ /*_.VALSTR___V268*/ meltfptr[267] = (melt_ptr_t) & cdat->dstr_217__DISCR_MAP_STRING; cdat->dstr_217__DISCR_MAP_STRING.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_217__DISCR_MAP_STRING.val, "DISCR_MAP_STRINGS", sizeof (cdat->dstr_217__DISCR_MAP_STRING. val) - 1); /*iniobj dsym_218__MAPSTRING_EVERY*/ /*uniqueobj*/ if (! /*_.VALDATA___V269*/ meltfptr[268]) /*_.VALDATA___V269*/ meltfptr[268] = (melt_ptr_t) & cdat->dsym_218__MAPSTRING_EVERY; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_218__MAPSTRING_EVERY", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_218__MAPSTRING_EVERY", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_218__MAPSTRING_EVERY.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_218__MAPSTRING_EVERY.obj_hash = 173778712; cdat->dsym_218__MAPSTRING_EVERY.obj_len = 3; /*inistring dstr_219__MAPSTRING_EVERY*/ /*_.VALSTR___V270*/ meltfptr[269] = (melt_ptr_t) & cdat->dstr_219__MAPSTRING_EVERY; cdat->dstr_219__MAPSTRING_EVERY.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_219__MAPSTRING_EVERY.val, "MAPSTRING_EVERY", sizeof (cdat->dstr_219__MAPSTRING_EVERY.val) - 1); /*inirout drout_220__LAMBDA_ */ /*_.VALROUT___V260*/ meltfptr[259] = (melt_ptr_t) & cdat->drout_220__LAMBDA_; cdat->drout_220__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_220__LAMBDA_.routdescr, "LAMBDA_ @warmelt-debug.melt:1075", MELT_ROUTDESCR_LEN - 1); cdat->drout_220__LAMBDA_.nbval = 1; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_220__LAMBDA_, meltrout_31_warmelt_debug_LAMBDA___5__); /*inirout drout_221__LAMBDA_ */ /*_.VALROUT___V261*/ meltfptr[260] = (melt_ptr_t) & cdat->drout_221__LAMBDA_; cdat->drout_221__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_221__LAMBDA_.routdescr, "LAMBDA_ @warmelt-debug.melt:1087", MELT_ROUTDESCR_LEN - 1); cdat->drout_221__LAMBDA_.nbval = 4; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_221__LAMBDA_, meltrout_32_warmelt_debug_LAMBDA___6__); /*iniboxint dint_222__ */ /*_.VALBXINT___V262*/ meltfptr[261] = (melt_ptr_t) & cdat->dint_222__; cdat->dint_222__.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CONSTANT_INTEGER)))); cdat->dint_222__.val = -1; /*iniboxint dint_223__ */ /*_.VALBXINT___V263*/ meltfptr[262] = (melt_ptr_t) & cdat->dint_223__; cdat->dint_223__.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CONSTANT_INTEGER)))); cdat->dint_223__.val = 0; /*iniboxint dint_224__ */ /*_.VALBXINT___V264*/ meltfptr[263] = (melt_ptr_t) & cdat->dint_224__; cdat->dint_224__.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CONSTANT_INTEGER)))); cdat->dint_224__.val = 1; /*inirout drout_225__LAMBDA_ */ /*_.VALROUT___V265*/ meltfptr[264] = (melt_ptr_t) & cdat->drout_225__LAMBDA_; cdat->drout_225__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_225__LAMBDA_.routdescr, "LAMBDA_ @warmelt-debug.melt:1103", MELT_ROUTDESCR_LEN - 1); cdat->drout_225__LAMBDA_.nbval = 1; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_225__LAMBDA_, meltrout_33_warmelt_debug_LAMBDA___7__); /*inirout drout_226__DBGOUT_ANYOBJECT_METHOD */ /*_.VALROUT___V271*/ meltfptr[270] = (melt_ptr_t) & cdat->drout_226__DBGOUT_ANYOBJECT_METHOD; cdat->drout_226__DBGOUT_ANYOBJECT_METHOD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_226__DBGOUT_ANYOBJECT_METHOD.routdescr, "DBGOUT_ANYOBJECT_METHOD @warmelt-debug.melt:1122", MELT_ROUTDESCR_LEN - 1); cdat->drout_226__DBGOUT_ANYOBJECT_METHOD.nbval = 2; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_226__DBGOUT_ANYOBJECT_METHOD, meltrout_34_warmelt_debug_DBGOUT_ANYOBJECT_METHOD); /*iniclos dclo_227__DBGOUT_ANYOBJECT_METHOD */ /*_.VALCLO___V272*/ meltfptr[271] = (melt_ptr_t) & cdat->dclo_227__DBGOUT_ANYOBJECT_METHOD; cdat->dclo_227__DBGOUT_ANYOBJECT_METHOD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_227__DBGOUT_ANYOBJECT_METHOD.nbval = 0; /*inirout drout_228__DBGOUT_ANYRECV_METHOD */ /*_.VALROUT___V273*/ meltfptr[272] = (melt_ptr_t) & cdat->drout_228__DBGOUT_ANYRECV_METHOD; cdat->drout_228__DBGOUT_ANYRECV_METHOD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_228__DBGOUT_ANYRECV_METHOD.routdescr, "DBGOUT_ANYRECV_METHOD @warmelt-debug.melt:1148", MELT_ROUTDESCR_LEN - 1); cdat->drout_228__DBGOUT_ANYRECV_METHOD.nbval = 2; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_228__DBGOUT_ANYRECV_METHOD, meltrout_35_warmelt_debug_DBGOUT_ANYRECV_METHOD); /*iniclos dclo_229__DBGOUT_ANYRECV_METHOD */ /*_.VALCLO___V274*/ meltfptr[273] = (melt_ptr_t) & cdat->dclo_229__DBGOUT_ANYRECV_METHOD; cdat->dclo_229__DBGOUT_ANYRECV_METHOD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_229__DBGOUT_ANYRECV_METHOD.nbval = 0; /*iniobj dsym_230__DISCR_ANY_RECEIVER*/ /*uniqueobj*/ if (! /*_.VALDATA___V275*/ meltfptr[274]) /*_.VALDATA___V275*/ meltfptr[274] = (melt_ptr_t) & cdat->dsym_230__DISCR_ANY_RECEIVER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_230__DISCR_ANY_RECEIVER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_230__DISCR_ANY_RECEIVER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_230__DISCR_ANY_RECEIVER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_230__DISCR_ANY_RECEIVER.obj_hash = 95947314; cdat->dsym_230__DISCR_ANY_RECEIVER.obj_len = 3; /*inistring dstr_231__DISCR_ANY_RECEIV*/ /*_.VALSTR___V276*/ meltfptr[275] = (melt_ptr_t) & cdat->dstr_231__DISCR_ANY_RECEIV; cdat->dstr_231__DISCR_ANY_RECEIV.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_231__DISCR_ANY_RECEIV.val, "DISCR_ANY_RECEIVER", sizeof (cdat->dstr_231__DISCR_ANY_RECEIV. val) - 1); /*inirout drout_232__DBGOUTAGAIN_ANYOBJECT_METHOD */ /*_.VALROUT___V277*/ meltfptr[276] = (melt_ptr_t) & cdat->drout_232__DBGOUTAGAIN_ANYOBJECT_METHOD; cdat->drout_232__DBGOUTAGAIN_ANYOBJECT_METHOD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_232__DBGOUTAGAIN_ANYOBJECT_METHOD.routdescr, "DBGOUTAGAIN_ANYOBJECT_METHOD @warmelt-debug.melt:1159", MELT_ROUTDESCR_LEN - 1); cdat->drout_232__DBGOUTAGAIN_ANYOBJECT_METHOD.nbval = 1; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_232__DBGOUTAGAIN_ANYOBJECT_METHOD, meltrout_36_warmelt_debug_DBGOUTAGAIN_ANYOBJECT_METHOD); /*iniclos dclo_233__DBGOUTAGAIN_ANYOBJECT_METHOD */ /*_.VALCLO___V278*/ meltfptr[277] = (melt_ptr_t) & cdat->dclo_233__DBGOUTAGAIN_ANYOBJECT_METHOD; cdat->dclo_233__DBGOUTAGAIN_ANYOBJECT_METHOD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_233__DBGOUTAGAIN_ANYOBJECT_METHOD.nbval = 0; /*inirout drout_234__DBGOUT_NAMEDOBJECT_METHOD */ /*_.VALROUT___V279*/ meltfptr[278] = (melt_ptr_t) & cdat->drout_234__DBGOUT_NAMEDOBJECT_METHOD; cdat->drout_234__DBGOUT_NAMEDOBJECT_METHOD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_234__DBGOUT_NAMEDOBJECT_METHOD.routdescr, "DBGOUT_NAMEDOBJECT_METHOD @warmelt-debug.melt:1177", MELT_ROUTDESCR_LEN - 1); cdat->drout_234__DBGOUT_NAMEDOBJECT_METHOD.nbval = 3; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_234__DBGOUT_NAMEDOBJECT_METHOD, meltrout_37_warmelt_debug_DBGOUT_NAMEDOBJECT_METHOD); /*iniclos dclo_235__DBGOUT_NAMEDOBJECT_METHOD */ /*_.VALCLO___V280*/ meltfptr[279] = (melt_ptr_t) & cdat->dclo_235__DBGOUT_NAMEDOBJECT_METHOD; cdat->dclo_235__DBGOUT_NAMEDOBJECT_METHOD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_235__DBGOUT_NAMEDOBJECT_METHOD.nbval = 0; /*iniobj dsym_236__DBGOUT_NAMEDOBJECT_METHOD*/ /*uniqueobj*/ if (! /*_.VALDATA___V281*/ meltfptr[280]) /*_.VALDATA___V281*/ meltfptr[280] = (melt_ptr_t) & cdat->dsym_236__DBGOUT_NAMEDOBJECT_METHOD; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_236__DBGOUT_NAMEDOBJECT_METHOD", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_236__DBGOUT_NAMEDOBJECT_METHOD", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_236__DBGOUT_NAMEDOBJECT_METHOD.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_236__DBGOUT_NAMEDOBJECT_METHOD.obj_hash = 359355803; cdat->dsym_236__DBGOUT_NAMEDOBJECT_METHOD.obj_len = 3; /*inistring dstr_237__DBGOUT_NAMEDOBJE*/ /*_.VALSTR___V282*/ meltfptr[281] = (melt_ptr_t) & cdat->dstr_237__DBGOUT_NAMEDOBJE; cdat->dstr_237__DBGOUT_NAMEDOBJE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_237__DBGOUT_NAMEDOBJE.val, "DBGOUT_NAMEDOBJECT_METHOD", sizeof (cdat->dstr_237__DBGOUT_NAMEDOBJE. val) - 1); /*inirout drout_238__DBGOUTAGAIN_NAMEDOBJECT_METHOD */ /*_.VALROUT___V283*/ meltfptr[282] = (melt_ptr_t) & cdat->drout_238__DBGOUTAGAIN_NAMEDOBJECT_METHOD; cdat->drout_238__DBGOUTAGAIN_NAMEDOBJECT_METHOD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_238__DBGOUTAGAIN_NAMEDOBJECT_METHOD.routdescr, "DBGOUTAGAIN_NAMEDOBJECT_METHOD @warmelt-debug.melt:1211", MELT_ROUTDESCR_LEN - 1); cdat->drout_238__DBGOUTAGAIN_NAMEDOBJECT_METHOD.nbval = 1; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_238__DBGOUTAGAIN_NAMEDOBJECT_METHOD, meltrout_38_warmelt_debug_DBGOUTAGAIN_NAMEDOBJECT_METHOD); /*iniclos dclo_239__DBGOUTAGAIN_NAMEDOBJECT_METHOD */ /*_.VALCLO___V284*/ meltfptr[283] = (melt_ptr_t) & cdat->dclo_239__DBGOUTAGAIN_NAMEDOBJECT_METHOD; cdat->dclo_239__DBGOUTAGAIN_NAMEDOBJECT_METHOD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_239__DBGOUTAGAIN_NAMEDOBJECT_METHOD.nbval = 0; /*inirout drout_240__DBGOUTAGAIN_SYMBOL_METHOD */ /*_.VALROUT___V285*/ meltfptr[284] = (melt_ptr_t) & cdat->drout_240__DBGOUTAGAIN_SYMBOL_METHOD; cdat->drout_240__DBGOUTAGAIN_SYMBOL_METHOD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_240__DBGOUTAGAIN_SYMBOL_METHOD.routdescr, "DBGOUTAGAIN_SYMBOL_METHOD @warmelt-debug.melt:1228", MELT_ROUTDESCR_LEN - 1); cdat->drout_240__DBGOUTAGAIN_SYMBOL_METHOD.nbval = 2; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_240__DBGOUTAGAIN_SYMBOL_METHOD, meltrout_39_warmelt_debug_DBGOUTAGAIN_SYMBOL_METHOD); /*iniclos dclo_241__DBGOUTAGAIN_SYMBOL_METHOD */ /*_.VALCLO___V286*/ meltfptr[285] = (melt_ptr_t) & cdat->dclo_241__DBGOUTAGAIN_SYMBOL_METHOD; cdat->dclo_241__DBGOUTAGAIN_SYMBOL_METHOD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_241__DBGOUTAGAIN_SYMBOL_METHOD.nbval = 0; /*iniobj dsym_242__CLASS_SYMBOL*/ /*uniqueobj*/ if (! /*_.VALDATA___V287*/ meltfptr[286]) /*_.VALDATA___V287*/ meltfptr[286] = (melt_ptr_t) & cdat->dsym_242__CLASS_SYMBOL; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_242__CLASS_SYMBOL", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_242__CLASS_SYMBOL", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_242__CLASS_SYMBOL.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_242__CLASS_SYMBOL.obj_hash = 53524182; cdat->dsym_242__CLASS_SYMBOL.obj_len = 3; /*inistring dstr_243__CLASS_SYMBOL*/ /*_.VALSTR___V288*/ meltfptr[287] = (melt_ptr_t) & cdat->dstr_243__CLASS_SYMBOL; cdat->dstr_243__CLASS_SYMBOL.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_243__CLASS_SYMBOL.val, "CLASS_SYMBOL", sizeof (cdat->dstr_243__CLASS_SYMBOL.val) - 1); /*inirout drout_244__DBGOUT_SYMBOL_METHOD */ /*_.VALROUT___V289*/ meltfptr[288] = (melt_ptr_t) & cdat->drout_244__DBGOUT_SYMBOL_METHOD; cdat->drout_244__DBGOUT_SYMBOL_METHOD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_244__DBGOUT_SYMBOL_METHOD.routdescr, "DBGOUT_SYMBOL_METHOD @warmelt-debug.melt:1246", MELT_ROUTDESCR_LEN - 1); cdat->drout_244__DBGOUT_SYMBOL_METHOD.nbval = 4; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_244__DBGOUT_SYMBOL_METHOD, meltrout_40_warmelt_debug_DBGOUT_SYMBOL_METHOD); /*iniclos dclo_245__DBGOUT_SYMBOL_METHOD */ /*_.VALCLO___V290*/ meltfptr[289] = (melt_ptr_t) & cdat->dclo_245__DBGOUT_SYMBOL_METHOD; cdat->dclo_245__DBGOUT_SYMBOL_METHOD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_245__DBGOUT_SYMBOL_METHOD.nbval = 0; /*inirout drout_246__DBGOUT_CLASS_METHOD */ /*_.VALROUT___V291*/ meltfptr[290] = (melt_ptr_t) & cdat->drout_246__DBGOUT_CLASS_METHOD; cdat->drout_246__DBGOUT_CLASS_METHOD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_246__DBGOUT_CLASS_METHOD.routdescr, "DBGOUT_CLASS_METHOD @warmelt-debug.melt:1256", MELT_ROUTDESCR_LEN - 1); cdat->drout_246__DBGOUT_CLASS_METHOD.nbval = 4; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_246__DBGOUT_CLASS_METHOD, meltrout_41_warmelt_debug_DBGOUT_CLASS_METHOD); /*iniclos dclo_247__DBGOUT_CLASS_METHOD */ /*_.VALCLO___V292*/ meltfptr[291] = (melt_ptr_t) & cdat->dclo_247__DBGOUT_CLASS_METHOD; cdat->dclo_247__DBGOUT_CLASS_METHOD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_247__DBGOUT_CLASS_METHOD.nbval = 0; /*iniobj dsym_248__CLASS_CLASS*/ /*uniqueobj*/ if (! /*_.VALDATA___V293*/ meltfptr[292]) /*_.VALDATA___V293*/ meltfptr[292] = (melt_ptr_t) & cdat->dsym_248__CLASS_CLASS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_248__CLASS_CLASS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_248__CLASS_CLASS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_248__CLASS_CLASS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_248__CLASS_CLASS.obj_hash = 60141292; cdat->dsym_248__CLASS_CLASS.obj_len = 3; /*inistring dstr_249__CLASS_CLASS*/ /*_.VALSTR___V294*/ meltfptr[293] = (melt_ptr_t) & cdat->dstr_249__CLASS_CLASS; cdat->dstr_249__CLASS_CLASS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_249__CLASS_CLASS.val, "CLASS_CLASS", sizeof (cdat->dstr_249__CLASS_CLASS.val) - 1); /*inirout drout_250__DBGOUTAGAIN_KEYWORD_METHOD */ /*_.VALROUT___V295*/ meltfptr[294] = (melt_ptr_t) & cdat->drout_250__DBGOUTAGAIN_KEYWORD_METHOD; cdat->drout_250__DBGOUTAGAIN_KEYWORD_METHOD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_250__DBGOUTAGAIN_KEYWORD_METHOD.routdescr, "DBGOUTAGAIN_KEYWORD_METHOD @warmelt-debug.melt:1266", MELT_ROUTDESCR_LEN - 1); cdat->drout_250__DBGOUTAGAIN_KEYWORD_METHOD.nbval = 2; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_250__DBGOUTAGAIN_KEYWORD_METHOD, meltrout_42_warmelt_debug_DBGOUTAGAIN_KEYWORD_METHOD); /*iniclos dclo_251__DBGOUTAGAIN_KEYWORD_METHOD */ /*_.VALCLO___V296*/ meltfptr[295] = (melt_ptr_t) & cdat->dclo_251__DBGOUTAGAIN_KEYWORD_METHOD; cdat->dclo_251__DBGOUTAGAIN_KEYWORD_METHOD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_251__DBGOUTAGAIN_KEYWORD_METHOD.nbval = 0; /*iniobj dsym_252__CLASS_KEYWORD*/ /*uniqueobj*/ if (! /*_.VALDATA___V297*/ meltfptr[296]) /*_.VALDATA___V297*/ meltfptr[296] = (melt_ptr_t) & cdat->dsym_252__CLASS_KEYWORD; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_252__CLASS_KEYWORD", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_252__CLASS_KEYWORD", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_252__CLASS_KEYWORD.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_252__CLASS_KEYWORD.obj_hash = 14992133; cdat->dsym_252__CLASS_KEYWORD.obj_len = 3; /*inistring dstr_253__CLASS_KEYWORD*/ /*_.VALSTR___V298*/ meltfptr[297] = (melt_ptr_t) & cdat->dstr_253__CLASS_KEYWORD; cdat->dstr_253__CLASS_KEYWORD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_253__CLASS_KEYWORD.val, "CLASS_KEYWORD", sizeof (cdat->dstr_253__CLASS_KEYWORD.val) - 1); /*inirout drout_254__DBGOUT_KEYWORD_METHOD */ /*_.VALROUT___V299*/ meltfptr[298] = (melt_ptr_t) & cdat->drout_254__DBGOUT_KEYWORD_METHOD; cdat->drout_254__DBGOUT_KEYWORD_METHOD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_254__DBGOUT_KEYWORD_METHOD.routdescr, "DBGOUT_KEYWORD_METHOD @warmelt-debug.melt:1279", MELT_ROUTDESCR_LEN - 1); cdat->drout_254__DBGOUT_KEYWORD_METHOD.nbval = 4; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_254__DBGOUT_KEYWORD_METHOD, meltrout_43_warmelt_debug_DBGOUT_KEYWORD_METHOD); /*iniclos dclo_255__DBGOUT_KEYWORD_METHOD */ /*_.VALCLO___V300*/ meltfptr[299] = (melt_ptr_t) & cdat->dclo_255__DBGOUT_KEYWORD_METHOD; cdat->dclo_255__DBGOUT_KEYWORD_METHOD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_255__DBGOUT_KEYWORD_METHOD.nbval = 0; /*inirout drout_256__DBGOUTAGAIN_CLONED_SYMBOL_METHOD */ /*_.VALROUT___V301*/ meltfptr[300] = (melt_ptr_t) & cdat->drout_256__DBGOUTAGAIN_CLONED_SYMBOL_METHOD; cdat->drout_256__DBGOUTAGAIN_CLONED_SYMBOL_METHOD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_256__DBGOUTAGAIN_CLONED_SYMBOL_METHOD.routdescr, "DBGOUTAGAIN_CLONED_SYMBOL_METHOD @warmelt-debug.melt:1289", MELT_ROUTDESCR_LEN - 1); cdat->drout_256__DBGOUTAGAIN_CLONED_SYMBOL_METHOD.nbval = 0; MELT_ROUTINE_SET_ROUTCODE (&cdat-> drout_256__DBGOUTAGAIN_CLONED_SYMBOL_METHOD, meltrout_44_warmelt_debug_DBGOUTAGAIN_CLONED_SYMBOL_METHOD); /*iniclos dclo_257__DBGOUTAGAIN_CLONED_SYMBOL_METHOD */ /*_.VALCLO___V302*/ meltfptr[301] = (melt_ptr_t) & cdat->dclo_257__DBGOUTAGAIN_CLONED_SYMBOL_METHOD; cdat->dclo_257__DBGOUTAGAIN_CLONED_SYMBOL_METHOD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_257__DBGOUTAGAIN_CLONED_SYMBOL_METHOD.nbval = 0; /*iniobj dsym_258__CLASS_CLONED_SYMBOL*/ /*uniqueobj*/ if (! /*_.VALDATA___V303*/ meltfptr[302]) /*_.VALDATA___V303*/ meltfptr[302] = (melt_ptr_t) & cdat->dsym_258__CLASS_CLONED_SYMBOL; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_258__CLASS_CLONED_SYMBOL", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_258__CLASS_CLONED_SYMBOL", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_258__CLASS_CLONED_SYMBOL.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_258__CLASS_CLONED_SYMBOL.obj_hash = 933549728; cdat->dsym_258__CLASS_CLONED_SYMBOL.obj_len = 3; /*inistring dstr_259__CLASS_CLONED_SYM*/ /*_.VALSTR___V304*/ meltfptr[303] = (melt_ptr_t) & cdat->dstr_259__CLASS_CLONED_SYM; cdat->dstr_259__CLASS_CLONED_SYM.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_259__CLASS_CLONED_SYM.val, "CLASS_CLONED_SYMBOL", sizeof (cdat->dstr_259__CLASS_CLONED_SYM. val) - 1); /*inirout drout_260__DBGOUT_CLONED_SYMBOL_METHOD */ /*_.VALROUT___V305*/ meltfptr[304] = (melt_ptr_t) & cdat->drout_260__DBGOUT_CLONED_SYMBOL_METHOD; cdat->drout_260__DBGOUT_CLONED_SYMBOL_METHOD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_260__DBGOUT_CLONED_SYMBOL_METHOD.routdescr, "DBGOUT_CLONED_SYMBOL_METHOD @warmelt-debug.melt:1304", MELT_ROUTDESCR_LEN - 1); cdat->drout_260__DBGOUT_CLONED_SYMBOL_METHOD.nbval = 4; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_260__DBGOUT_CLONED_SYMBOL_METHOD, meltrout_45_warmelt_debug_DBGOUT_CLONED_SYMBOL_METHOD); /*iniclos dclo_261__DBGOUT_CLONED_SYMBOL_METHOD */ /*_.VALCLO___V306*/ meltfptr[305] = (melt_ptr_t) & cdat->dclo_261__DBGOUT_CLONED_SYMBOL_METHOD; cdat->dclo_261__DBGOUT_CLONED_SYMBOL_METHOD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_261__DBGOUT_CLONED_SYMBOL_METHOD.nbval = 0; /*inirout drout_262__DBGOUT_ENVIRONMENT_METHOD */ /*_.VALROUT___V307*/ meltfptr[306] = (melt_ptr_t) & cdat->drout_262__DBGOUT_ENVIRONMENT_METHOD; cdat->drout_262__DBGOUT_ENVIRONMENT_METHOD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_262__DBGOUT_ENVIRONMENT_METHOD.routdescr, "DBGOUT_ENVIRONMENT_METHOD @warmelt-debug.melt:1315", MELT_ROUTDESCR_LEN - 1); cdat->drout_262__DBGOUT_ENVIRONMENT_METHOD.nbval = 5; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_262__DBGOUT_ENVIRONMENT_METHOD, meltrout_46_warmelt_debug_DBGOUT_ENVIRONMENT_METHOD); /*iniclos dclo_263__DBGOUT_ENVIRONMENT_METHOD */ /*_.VALCLO___V308*/ meltfptr[307] = (melt_ptr_t) & cdat->dclo_263__DBGOUT_ENVIRONMENT_METHOD; cdat->dclo_263__DBGOUT_ENVIRONMENT_METHOD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_263__DBGOUT_ENVIRONMENT_METHOD.nbval = 0; /*iniobj dsym_264__CLASS_ENVIRONMENT*/ /*uniqueobj*/ if (! /*_.VALDATA___V309*/ meltfptr[308]) /*_.VALDATA___V309*/ meltfptr[308] = (melt_ptr_t) & cdat->dsym_264__CLASS_ENVIRONMENT; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_264__CLASS_ENVIRONMENT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_264__CLASS_ENVIRONMENT", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_264__CLASS_ENVIRONMENT.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_264__CLASS_ENVIRONMENT.obj_hash = 59212821; cdat->dsym_264__CLASS_ENVIRONMENT.obj_len = 3; /*inistring dstr_265__CLASS_ENVIRONMEN*/ /*_.VALSTR___V310*/ meltfptr[309] = (melt_ptr_t) & cdat->dstr_265__CLASS_ENVIRONMEN; cdat->dstr_265__CLASS_ENVIRONMEN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_265__CLASS_ENVIRONMEN.val, "CLASS_ENVIRONMENT", sizeof (cdat->dstr_265__CLASS_ENVIRONMEN. val) - 1); /*iniobj dsym_266__ENV_PREV*/ /*uniqueobj*/ if (! /*_.VALDATA___V311*/ meltfptr[310]) /*_.VALDATA___V311*/ meltfptr[310] = (melt_ptr_t) & cdat->dsym_266__ENV_PREV; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_266__ENV_PREV", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_266__ENV_PREV", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_266__ENV_PREV.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_266__ENV_PREV.obj_hash = 363634370; cdat->dsym_266__ENV_PREV.obj_len = 3; /*inistring dstr_267__ENV_PREV*/ /*_.VALSTR___V312*/ meltfptr[311] = (melt_ptr_t) & cdat->dstr_267__ENV_PREV; cdat->dstr_267__ENV_PREV.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_267__ENV_PREV.val, "ENV_PREV", sizeof (cdat->dstr_267__ENV_PREV.val) - 1); /*inirout drout_268__DBGOUTAGAIN_CTYPE_METHOD */ /*_.VALROUT___V313*/ meltfptr[312] = (melt_ptr_t) & cdat->drout_268__DBGOUTAGAIN_CTYPE_METHOD; cdat->drout_268__DBGOUTAGAIN_CTYPE_METHOD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_268__DBGOUTAGAIN_CTYPE_METHOD.routdescr, "DBGOUTAGAIN_CTYPE_METHOD @warmelt-debug.melt:1356", MELT_ROUTDESCR_LEN - 1); cdat->drout_268__DBGOUTAGAIN_CTYPE_METHOD.nbval = 0; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_268__DBGOUTAGAIN_CTYPE_METHOD, meltrout_47_warmelt_debug_DBGOUTAGAIN_CTYPE_METHOD); /*iniclos dclo_269__DBGOUTAGAIN_CTYPE_METHOD */ /*_.VALCLO___V314*/ meltfptr[313] = (melt_ptr_t) & cdat->dclo_269__DBGOUTAGAIN_CTYPE_METHOD; cdat->dclo_269__DBGOUTAGAIN_CTYPE_METHOD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_269__DBGOUTAGAIN_CTYPE_METHOD.nbval = 0; /*inirout drout_270__DBGOUT_CTYPE_METHOD */ /*_.VALROUT___V315*/ meltfptr[314] = (melt_ptr_t) & cdat->drout_270__DBGOUT_CTYPE_METHOD; cdat->drout_270__DBGOUT_CTYPE_METHOD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_270__DBGOUT_CTYPE_METHOD.routdescr, "DBGOUT_CTYPE_METHOD @warmelt-debug.melt:1368", MELT_ROUTDESCR_LEN - 1); cdat->drout_270__DBGOUT_CTYPE_METHOD.nbval = 4; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_270__DBGOUT_CTYPE_METHOD, meltrout_48_warmelt_debug_DBGOUT_CTYPE_METHOD); /*iniclos dclo_271__DBGOUT_CTYPE_METHOD */ /*_.VALCLO___V316*/ meltfptr[315] = (melt_ptr_t) & cdat->dclo_271__DBGOUT_CTYPE_METHOD; cdat->dclo_271__DBGOUT_CTYPE_METHOD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_271__DBGOUT_CTYPE_METHOD.nbval = 0; /*inirout drout_272__DBGOUT_ANYBINDING_METHOD */ /*_.VALROUT___V317*/ meltfptr[316] = (melt_ptr_t) & cdat->drout_272__DBGOUT_ANYBINDING_METHOD; cdat->drout_272__DBGOUT_ANYBINDING_METHOD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_272__DBGOUT_ANYBINDING_METHOD.routdescr, "DBGOUT_ANYBINDING_METHOD @warmelt-debug.melt:1378", MELT_ROUTDESCR_LEN - 1); cdat->drout_272__DBGOUT_ANYBINDING_METHOD.nbval = 4; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_272__DBGOUT_ANYBINDING_METHOD, meltrout_49_warmelt_debug_DBGOUT_ANYBINDING_METHOD); /*iniclos dclo_273__DBGOUT_ANYBINDING_METHOD */ /*_.VALCLO___V318*/ meltfptr[317] = (melt_ptr_t) & cdat->dclo_273__DBGOUT_ANYBINDING_METHOD; cdat->dclo_273__DBGOUT_ANYBINDING_METHOD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_273__DBGOUT_ANYBINDING_METHOD.nbval = 0; /*iniobj dsym_274__CLASS_ANY_BINDING*/ /*uniqueobj*/ if (! /*_.VALDATA___V319*/ meltfptr[318]) /*_.VALDATA___V319*/ meltfptr[318] = (melt_ptr_t) & cdat->dsym_274__CLASS_ANY_BINDING; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_274__CLASS_ANY_BINDING", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_274__CLASS_ANY_BINDING", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_274__CLASS_ANY_BINDING.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_274__CLASS_ANY_BINDING.obj_hash = 935770; cdat->dsym_274__CLASS_ANY_BINDING.obj_len = 3; /*inistring dstr_275__CLASS_ANY_BINDIN*/ /*_.VALSTR___V320*/ meltfptr[319] = (melt_ptr_t) & cdat->dstr_275__CLASS_ANY_BINDIN; cdat->dstr_275__CLASS_ANY_BINDIN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_275__CLASS_ANY_BINDIN.val, "CLASS_ANY_BINDING", sizeof (cdat->dstr_275__CLASS_ANY_BINDIN. val) - 1); /*inirout drout_276__DISPLAY_DEBUG_MESSAGE */ /*_.VALROUT___V321*/ meltfptr[320] = (melt_ptr_t) & cdat->drout_276__DISPLAY_DEBUG_MESSAGE; cdat->drout_276__DISPLAY_DEBUG_MESSAGE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_276__DISPLAY_DEBUG_MESSAGE.routdescr, "DISPLAY_DEBUG_MESSAGE @warmelt-debug.melt:1412", MELT_ROUTDESCR_LEN - 1); cdat->drout_276__DISPLAY_DEBUG_MESSAGE.nbval = 5; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_276__DISPLAY_DEBUG_MESSAGE, meltrout_50_warmelt_debug_DISPLAY_DEBUG_MESSAGE); /*iniclos dclo_277__DISPLAY_DEBUG_MESSAGE */ /*_.VALCLO___V322*/ meltfptr[321] = (melt_ptr_t) & cdat->dclo_277__DISPLAY_DEBUG_MESSAGE; cdat->dclo_277__DISPLAY_DEBUG_MESSAGE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_277__DISPLAY_DEBUG_MESSAGE.nbval = 0; /*iniobj dsym_278__DBG_OUT*/ /*uniqueobj*/ if (! /*_.VALDATA___V323*/ meltfptr[322]) /*_.VALDATA___V323*/ meltfptr[322] = (melt_ptr_t) & cdat->dsym_278__DBG_OUT; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_278__DBG_OUT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_278__DBG_OUT", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_278__DBG_OUT.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_278__DBG_OUT.obj_hash = 492035674; cdat->dsym_278__DBG_OUT.obj_len = 3; /*inistring dstr_279__DBG_OUT*/ /*_.VALSTR___V324*/ meltfptr[323] = (melt_ptr_t) & cdat->dstr_279__DBG_OUT; cdat->dstr_279__DBG_OUT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_279__DBG_OUT.val, "DBG_OUT", sizeof (cdat->dstr_279__DBG_OUT.val) - 1); /*iniobj dsym_280__DBG_OUTOBJECT*/ /*uniqueobj*/ if (! /*_.VALDATA___V325*/ meltfptr[324]) /*_.VALDATA___V325*/ meltfptr[324] = (melt_ptr_t) & cdat->dsym_280__DBG_OUTOBJECT; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_280__DBG_OUTOBJECT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_280__DBG_OUTOBJECT", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_280__DBG_OUTOBJECT.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_280__DBG_OUTOBJECT.obj_hash = 723698673; cdat->dsym_280__DBG_OUTOBJECT.obj_len = 3; /*inistring dstr_281__DBG_OUTOBJECT*/ /*_.VALSTR___V326*/ meltfptr[325] = (melt_ptr_t) & cdat->dstr_281__DBG_OUTOBJECT; cdat->dstr_281__DBG_OUTOBJECT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_281__DBG_OUTOBJECT.val, "DBG_OUTOBJECT", sizeof (cdat->dstr_281__DBG_OUTOBJECT.val) - 1); /*iniobj dsym_282__DBGOUT_FIELDS*/ /*uniqueobj*/ if (! /*_.VALDATA___V327*/ meltfptr[326]) /*_.VALDATA___V327*/ meltfptr[326] = (melt_ptr_t) & cdat->dsym_282__DBGOUT_FIELDS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_282__DBGOUT_FIELDS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_282__DBGOUT_FIELDS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_282__DBGOUT_FIELDS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_282__DBGOUT_FIELDS.obj_hash = 795625446; cdat->dsym_282__DBGOUT_FIELDS.obj_len = 3; /*inistring dstr_283__DBGOUT_FIELDS*/ /*_.VALSTR___V328*/ meltfptr[327] = (melt_ptr_t) & cdat->dstr_283__DBGOUT_FIELDS; cdat->dstr_283__DBGOUT_FIELDS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_283__DBGOUT_FIELDS.val, "DBGOUT_FIELDS", sizeof (cdat->dstr_283__DBGOUT_FIELDS.val) - 1); /*iniobj dsym_284__DBGOUTAGAIN_FIELDS*/ /*uniqueobj*/ if (! /*_.VALDATA___V329*/ meltfptr[328]) /*_.VALDATA___V329*/ meltfptr[328] = (melt_ptr_t) & cdat->dsym_284__DBGOUTAGAIN_FIELDS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_284__DBGOUTAGAIN_FIELDS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_284__DBGOUTAGAIN_FIELDS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_284__DBGOUTAGAIN_FIELDS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_284__DBGOUTAGAIN_FIELDS.obj_hash = 961773165; cdat->dsym_284__DBGOUTAGAIN_FIELDS.obj_len = 3; /*inistring dstr_285__DBGOUTAGAIN_FIEL*/ /*_.VALSTR___V330*/ meltfptr[329] = (melt_ptr_t) & cdat->dstr_285__DBGOUTAGAIN_FIEL; cdat->dstr_285__DBGOUTAGAIN_FIEL.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_285__DBGOUTAGAIN_FIEL.val, "DBGOUTAGAIN_FIELDS", sizeof (cdat->dstr_285__DBGOUTAGAIN_FIEL. val) - 1); /*iniobj dsym_286__DEBUG_MSG_FUN*/ /*uniqueobj*/ if (! /*_.VALDATA___V331*/ meltfptr[330]) /*_.VALDATA___V331*/ meltfptr[330] = (melt_ptr_t) & cdat->dsym_286__DEBUG_MSG_FUN; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_286__DEBUG_MSG_FUN", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_286__DEBUG_MSG_FUN", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_286__DEBUG_MSG_FUN.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_286__DEBUG_MSG_FUN.obj_hash = 938829072; cdat->dsym_286__DEBUG_MSG_FUN.obj_len = 3; /*inistring dstr_287__DEBUG_MSG_FUN*/ /*_.VALSTR___V332*/ meltfptr[331] = (melt_ptr_t) & cdat->dstr_287__DEBUG_MSG_FUN; cdat->dstr_287__DEBUG_MSG_FUN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_287__DEBUG_MSG_FUN.val, "DEBUG_MSG_FUN", sizeof (cdat->dstr_287__DEBUG_MSG_FUN.val) - 1); /*iniobj dsym_288__DISPLAY_DEBUG_MESSAGE*/ /*uniqueobj*/ if (! /*_.VALDATA___V333*/ meltfptr[332]) /*_.VALDATA___V333*/ meltfptr[332] = (melt_ptr_t) & cdat->dsym_288__DISPLAY_DEBUG_MESSAGE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_288__DISPLAY_DEBUG_MESSAGE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_288__DISPLAY_DEBUG_MESSAGE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_288__DISPLAY_DEBUG_MESSAGE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_288__DISPLAY_DEBUG_MESSAGE.obj_hash = 759618783; cdat->dsym_288__DISPLAY_DEBUG_MESSAGE.obj_len = 3; /*inistring dstr_289__DISPLAY_DEBUG_ME*/ /*_.VALSTR___V334*/ meltfptr[333] = (melt_ptr_t) & cdat->dstr_289__DISPLAY_DEBUG_ME; cdat->dstr_289__DISPLAY_DEBUG_ME.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_289__DISPLAY_DEBUG_ME.val, "DISPLAY_DEBUG_MESSAGE", sizeof (cdat->dstr_289__DISPLAY_DEBUG_ME. val) - 1); /*iniobj dsym_290__MELT_DEBUG_FUN*/ /*uniqueobj*/ if (! /*_.VALDATA___V335*/ meltfptr[334]) /*_.VALDATA___V335*/ meltfptr[334] = (melt_ptr_t) & cdat->dsym_290__MELT_DEBUG_FUN; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_290__MELT_DEBUG_FUN", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_290__MELT_DEBUG_FUN", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_290__MELT_DEBUG_FUN.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_290__MELT_DEBUG_FUN.obj_hash = 972123377; cdat->dsym_290__MELT_DEBUG_FUN.obj_len = 3; /*inistring dstr_291__MELT_DEBUG_FUN*/ /*_.VALSTR___V336*/ meltfptr[335] = (melt_ptr_t) & cdat->dstr_291__MELT_DEBUG_FUN; cdat->dstr_291__MELT_DEBUG_FUN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_291__MELT_DEBUG_FUN.val, "MELT_DEBUG_FUN", sizeof (cdat->dstr_291__MELT_DEBUG_FUN.val) - 1); /*iniobj dsym_292__REGISTER_BASICBLOCK_DEBUG_FUN*/ /*uniqueobj*/ if (! /*_.VALDATA___V337*/ meltfptr[336]) /*_.VALDATA___V337*/ meltfptr[336] = (melt_ptr_t) & cdat->dsym_292__REGISTER_BASICBLOCK_DEBUG_FUN; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_292__REGISTER_BASICBLOCK_DEBUG_FUN", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_292__REGISTER_BASICBLOCK_DEBUG_FUN", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_292__REGISTER_BASICBLOCK_DEBUG_FUN.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_292__REGISTER_BASICBLOCK_DEBUG_FUN.obj_hash = 475134270; cdat->dsym_292__REGISTER_BASICBLOCK_DEBUG_FUN.obj_len = 3; /*inistring dstr_293__REGISTER_BASICBL*/ /*_.VALSTR___V338*/ meltfptr[337] = (melt_ptr_t) & cdat->dstr_293__REGISTER_BASICBL; cdat->dstr_293__REGISTER_BASICBL.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_293__REGISTER_BASICBL.val, "REGISTER_BASICBLOCK_DEBUG_FUN", sizeof (cdat->dstr_293__REGISTER_BASICBL. val) - 1); /*iniobj dsym_294__REGISTER_EDGE_DEBUG_FUN*/ /*uniqueobj*/ if (! /*_.VALDATA___V339*/ meltfptr[338]) /*_.VALDATA___V339*/ meltfptr[338] = (melt_ptr_t) & cdat->dsym_294__REGISTER_EDGE_DEBUG_FUN; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_294__REGISTER_EDGE_DEBUG_FUN", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_294__REGISTER_EDGE_DEBUG_FUN", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_294__REGISTER_EDGE_DEBUG_FUN.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_294__REGISTER_EDGE_DEBUG_FUN.obj_hash = 739045024; cdat->dsym_294__REGISTER_EDGE_DEBUG_FUN.obj_len = 3; /*inistring dstr_295__REGISTER_EDGE_DE*/ /*_.VALSTR___V340*/ meltfptr[339] = (melt_ptr_t) & cdat->dstr_295__REGISTER_EDGE_DE; cdat->dstr_295__REGISTER_EDGE_DE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_295__REGISTER_EDGE_DE.val, "REGISTER_EDGE_DEBUG_FUN", sizeof (cdat->dstr_295__REGISTER_EDGE_DE. val) - 1); /*iniobj dsym_296__REGISTER_GIMPLE_DEBUG_FUN*/ /*uniqueobj*/ if (! /*_.VALDATA___V341*/ meltfptr[340]) /*_.VALDATA___V341*/ meltfptr[340] = (melt_ptr_t) & cdat->dsym_296__REGISTER_GIMPLE_DEBUG_FUN; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_296__REGISTER_GIMPLE_DEBUG_FUN", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_296__REGISTER_GIMPLE_DEBUG_FUN", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_296__REGISTER_GIMPLE_DEBUG_FUN.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_296__REGISTER_GIMPLE_DEBUG_FUN.obj_hash = 158282506; cdat->dsym_296__REGISTER_GIMPLE_DEBUG_FUN.obj_len = 3; /*inistring dstr_297__REGISTER_GIMPLE_*/ /*_.VALSTR___V342*/ meltfptr[341] = (melt_ptr_t) & cdat->dstr_297__REGISTER_GIMPLE_; cdat->dstr_297__REGISTER_GIMPLE_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_297__REGISTER_GIMPLE_.val, "REGISTER_GIMPLE_DEBUG_FUN", sizeof (cdat->dstr_297__REGISTER_GIMPLE_. val) - 1); /*iniobj dsym_298__REGISTER_GIMPLESEQ_DEBUG_FUN*/ /*uniqueobj*/ if (! /*_.VALDATA___V343*/ meltfptr[342]) /*_.VALDATA___V343*/ meltfptr[342] = (melt_ptr_t) & cdat->dsym_298__REGISTER_GIMPLESEQ_DEBUG_FUN; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_298__REGISTER_GIMPLESEQ_DEBUG_FUN", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_298__REGISTER_GIMPLESEQ_DEBUG_FUN", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_298__REGISTER_GIMPLESEQ_DEBUG_FUN.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_298__REGISTER_GIMPLESEQ_DEBUG_FUN.obj_hash = 247154639; cdat->dsym_298__REGISTER_GIMPLESEQ_DEBUG_FUN.obj_len = 3; /*inistring dstr_299__REGISTER_GIMPLES*/ /*_.VALSTR___V344*/ meltfptr[343] = (melt_ptr_t) & cdat->dstr_299__REGISTER_GIMPLES; cdat->dstr_299__REGISTER_GIMPLES.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_299__REGISTER_GIMPLES.val, "REGISTER_GIMPLESEQ_DEBUG_FUN", sizeof (cdat->dstr_299__REGISTER_GIMPLES. val) - 1); /*iniobj dsym_300__REGISTER_LOOP_DEBUG_FUN*/ /*uniqueobj*/ if (! /*_.VALDATA___V345*/ meltfptr[344]) /*_.VALDATA___V345*/ meltfptr[344] = (melt_ptr_t) & cdat->dsym_300__REGISTER_LOOP_DEBUG_FUN; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_300__REGISTER_LOOP_DEBUG_FUN", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_300__REGISTER_LOOP_DEBUG_FUN", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_300__REGISTER_LOOP_DEBUG_FUN.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_300__REGISTER_LOOP_DEBUG_FUN.obj_hash = 182074459; cdat->dsym_300__REGISTER_LOOP_DEBUG_FUN.obj_len = 3; /*inistring dstr_301__REGISTER_LOOP_DE*/ /*_.VALSTR___V346*/ meltfptr[345] = (melt_ptr_t) & cdat->dstr_301__REGISTER_LOOP_DE; cdat->dstr_301__REGISTER_LOOP_DE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_301__REGISTER_LOOP_DE.val, "REGISTER_LOOP_DEBUG_FUN", sizeof (cdat->dstr_301__REGISTER_LOOP_DE. val) - 1); /*iniobj dsym_302__REGISTER_TREE_DEBUG_FUN*/ /*uniqueobj*/ if (! /*_.VALDATA___V347*/ meltfptr[346]) /*_.VALDATA___V347*/ meltfptr[346] = (melt_ptr_t) & cdat->dsym_302__REGISTER_TREE_DEBUG_FUN; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_302__REGISTER_TREE_DEBUG_FUN", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_302__REGISTER_TREE_DEBUG_FUN", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_302__REGISTER_TREE_DEBUG_FUN.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_302__REGISTER_TREE_DEBUG_FUN.obj_hash = 352695421; cdat->dsym_302__REGISTER_TREE_DEBUG_FUN.obj_len = 3; /*inistring dstr_303__REGISTER_TREE_DE*/ /*_.VALSTR___V348*/ meltfptr[347] = (melt_ptr_t) & cdat->dstr_303__REGISTER_TREE_DE; cdat->dstr_303__REGISTER_TREE_DE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_303__REGISTER_TREE_DE.val, "REGISTER_TREE_DEBUG_FUN", sizeof (cdat->dstr_303__REGISTER_TREE_DE. val) - 1); cdat = NULL; melt_prohibit_garbcoll = FALSE; #undef meltfram__ } /*end initialize_module_meltdata_warmelt_debug */ #if MELT_HAVE_DEBUG const char meltmodule_warmelt_debug__melt_have_debug_enabled[] = "MELT module warmelt-debug have debug enabled"; #else /*!MELT_HAVE_DEBUG */ const char meltmodule_warmelt_debug__melt_have_debug_disabled[] = "MELT module warmelt-debug have debug disabled"; #endif /*MELT_HAVE_DEBUG */ void * start_module_melt (void *modargp_) { char predefinited[MELTGLOB__LASTGLOB + 8]; #if MELT_HAVE_DEBUG static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++call_counter__; #undef meltcallcount #define meltcallcount thiscallcounter__ #else #undef meltcallcount #define meltcallcount 0L #endif initial_frame_st meltfram__; #define meltframe meltfram__ memset (&meltfram__, 0, sizeof (meltfram__)); meltfram__.mcfr_nbvar = 386; meltfram__.mcfr_prev = (struct melt_callframe_st *) melt_topframe; melt_topframe = (struct melt_callframe_st *) &meltfram__; /**initial routine prologue**/ /* set initial frame marking */ ((struct melt_callframe_st *) &meltfram__)->mcfr_nbvar = /*minihash */ -2708; ((struct melt_callframe_st *) &meltfram__)->mcfr_forwmarkrout = meltmod__warmelt_debug__forward_or_mark_module_start_frame; /**COMMENT: get previous environment **/ ; /*^compute */ /*_.PREVENV___V4*/ meltfptr[3] = /*getprevenv */ (melt_ptr_t) modargp_; /*^comment */ /**COMMENT: compute boxloc **/ ; /*^cond */ /*cond */ if ( /*_.CONTENV___V2*/ meltfptr[1] || melt_object_length ((melt_ptr_t) MELT_PREDEF (INITIAL_SYSTEM_DATA)) < MELTFIELD_SYSDATA_CONT_FRESH_ENV) /*then */ { } else { /*^cond.else */ /*^block */ /*com.block:compute fresh module environment */ { /*^comment */ /**COMMENT: start computing boxloc **/ ; ; /*^getslot */ { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (INITIAL_SYSTEM_DATA)))), 3, "SYSDATA_CONT_FRESH_ENV"); /*_.FRESHENV___V3*/ meltfptr[2] = slot; }; ; /*^compute */ /*checkfreshenv */ if (( /*_.PREVENV___V4*/ meltfptr[3]) && melt_magic_discr ((melt_ptr_t) ( /*_.FRESHENV___V3*/ meltfptr[2])) != MELTOBMAG_CLOSURE) warning (0, "bad MELT FRESH_ENV @%p in system data <%s:%d>", ( /*_.FRESHENV___V3*/ meltfptr[2]), __FILE__, __LINE__);;; /*^apply */ /*apply */ { /*_.CONTENV___V2*/ meltfptr[1] = melt_apply ((meltclosure_ptr_t) ( /*_.FRESHENV___V3*/ meltfptr[2]), (melt_ptr_t) ( /*_.PREVENV___V4*/ meltfptr[3]), (""), (union meltparam_un *) 0, "", (union meltparam_un *) 0); } ; } /*com.end block:compute fresh module environment */ ; } /*^comment */ /**COMMENT: get symbols & keywords **/ ; /*^getnamedsymbol */ /*getnamedsym:CLASS_DEBUG_INFORMATION */ { melt_ptr_t sy_CLASS_DEBUG_INFORMATION = meltgc_named_symbol ("CLASS_DEBUG_INFORMATION", MELT_GET); if (sy_CLASS_DEBUG_INFORMATION && NULL == /*_.VALDATA___V46*/ meltfptr[45]) /*_.VALDATA___V46*/ meltfptr[45] = (melt_ptr_t) sy_CLASS_DEBUG_INFORMATION; } /*^getnamedsymbol */ /*getnamedsym:CLASS_ROOT */ { melt_ptr_t sy_CLASS_ROOT = meltgc_named_symbol ("CLASS_ROOT", MELT_GET); if (sy_CLASS_ROOT && NULL == /*_.VALDATA___V48*/ meltfptr[47]) /*_.VALDATA___V48*/ meltfptr[47] = (melt_ptr_t) sy_CLASS_ROOT; } /*^getnamedsymbol */ /*getnamedsym:DBGI_OUT */ { melt_ptr_t sy_DBGI_OUT = meltgc_named_symbol ("DBGI_OUT", MELT_GET); if (sy_DBGI_OUT && NULL == /*_.VALDATA___V60*/ meltfptr[59]) /*_.VALDATA___V60*/ meltfptr[59] = (melt_ptr_t) sy_DBGI_OUT; } /*^getnamedsymbol */ /*getnamedsym:DBGI_OCCMAP */ { melt_ptr_t sy_DBGI_OCCMAP = meltgc_named_symbol ("DBGI_OCCMAP", MELT_GET); if (sy_DBGI_OCCMAP && NULL == /*_.VALDATA___V62*/ meltfptr[61]) /*_.VALDATA___V62*/ meltfptr[61] = (melt_ptr_t) sy_DBGI_OCCMAP; } /*^getnamedsymbol */ /*getnamedsym:DBGI_MAXDEPTH */ { melt_ptr_t sy_DBGI_MAXDEPTH = meltgc_named_symbol ("DBGI_MAXDEPTH", MELT_GET); if (sy_DBGI_MAXDEPTH && NULL == /*_.VALDATA___V64*/ meltfptr[63]) /*_.VALDATA___V64*/ meltfptr[63] = (melt_ptr_t) sy_DBGI_MAXDEPTH; } /*^getnamedsymbol */ /*getnamedsym:DEBUG_DEPTH */ { melt_ptr_t sy_DEBUG_DEPTH = meltgc_named_symbol ("DEBUG_DEPTH", MELT_GET); if (sy_DEBUG_DEPTH && NULL == /*_.VALDATA___V66*/ meltfptr[65]) /*_.VALDATA___V66*/ meltfptr[65] = (melt_ptr_t) sy_DEBUG_DEPTH; } /*^getnamedsymbol */ /*getnamedsym:MELT_REALLY_NEED_DEBUG */ { melt_ptr_t sy_MELT_REALLY_NEED_DEBUG = meltgc_named_symbol ("MELT_REALLY_NEED_DEBUG", MELT_GET); if (sy_MELT_REALLY_NEED_DEBUG && NULL == /*_.VALDATA___V73*/ meltfptr[72]) /*_.VALDATA___V73*/ meltfptr[72] = (melt_ptr_t) sy_MELT_REALLY_NEED_DEBUG; } /*^getnamedsymbol */ /*getnamedsym:DEPTH */ { melt_ptr_t sy_DEPTH = meltgc_named_symbol ("DEPTH", MELT_GET); if (sy_DEPTH && NULL == /*_.VALDATA___V78*/ meltfptr[77]) /*_.VALDATA___V78*/ meltfptr[77] = (melt_ptr_t) sy_DEPTH; } /*^getnamedsymbol */ /*getnamedsym:MELT_HAS_FLAG_DEBUG_SET */ { melt_ptr_t sy_MELT_HAS_FLAG_DEBUG_SET = meltgc_named_symbol ("MELT_HAS_FLAG_DEBUG_SET", MELT_GET); if (sy_MELT_HAS_FLAG_DEBUG_SET && NULL == /*_.VALDATA___V84*/ meltfptr[83]) /*_.VALDATA___V84*/ meltfptr[83] = (melt_ptr_t) sy_MELT_HAS_FLAG_DEBUG_SET; } /*^getnamedsymbol */ /*getnamedsym:MELT_REALLY_NEED_DBGLIM */ { melt_ptr_t sy_MELT_REALLY_NEED_DBGLIM = meltgc_named_symbol ("MELT_REALLY_NEED_DBGLIM", MELT_GET); if (sy_MELT_REALLY_NEED_DBGLIM && NULL == /*_.VALDATA___V91*/ meltfptr[90]) /*_.VALDATA___V91*/ meltfptr[90] = (melt_ptr_t) sy_MELT_REALLY_NEED_DBGLIM; } /*^getnamedsymbol */ /*getnamedsym:LIMIT */ { melt_ptr_t sy_LIMIT = meltgc_named_symbol ("LIMIT", MELT_GET); if (sy_LIMIT && NULL == /*_.VALDATA___V97*/ meltfptr[96]) /*_.VALDATA___V97*/ meltfptr[96] = (melt_ptr_t) sy_LIMIT; } /*^getnamedsymbol */ /*getnamedsym:INITIAL_SYSTEM_DATA */ { melt_ptr_t sy_INITIAL_SYSTEM_DATA = meltgc_named_symbol ("INITIAL_SYSTEM_DATA", MELT_GET); if (sy_INITIAL_SYSTEM_DATA && NULL == /*_.VALDATA___V114*/ meltfptr[113]) /*_.VALDATA___V114*/ meltfptr[113] = (melt_ptr_t) sy_INITIAL_SYSTEM_DATA; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SYSTEM_DATA */ { melt_ptr_t sy_CLASS_SYSTEM_DATA = meltgc_named_symbol ("CLASS_SYSTEM_DATA", MELT_GET); if (sy_CLASS_SYSTEM_DATA && NULL == /*_.VALDATA___V116*/ meltfptr[115]) /*_.VALDATA___V116*/ meltfptr[115] = (melt_ptr_t) sy_CLASS_SYSTEM_DATA; } /*^getnamedsymbol */ /*getnamedsym:DISCR_MAP_OBJECTS */ { melt_ptr_t sy_DISCR_MAP_OBJECTS = meltgc_named_symbol ("DISCR_MAP_OBJECTS", MELT_GET); if (sy_DISCR_MAP_OBJECTS && NULL == /*_.VALDATA___V118*/ meltfptr[117]) /*_.VALDATA___V118*/ meltfptr[117] = (melt_ptr_t) sy_DISCR_MAP_OBJECTS; } /*^getnamedsymbol */ /*getnamedsym:DISCR_INTEGER */ { melt_ptr_t sy_DISCR_INTEGER = meltgc_named_symbol ("DISCR_INTEGER", MELT_GET); if (sy_DISCR_INTEGER && NULL == /*_.VALDATA___V120*/ meltfptr[119]) /*_.VALDATA___V120*/ meltfptr[119] = (melt_ptr_t) sy_DISCR_INTEGER; } /*^getnamedsymbol */ /*getnamedsym:DISCR_STRBUF */ { melt_ptr_t sy_DISCR_STRBUF = meltgc_named_symbol ("DISCR_STRBUF", MELT_GET); if (sy_DISCR_STRBUF && NULL == /*_.VALDATA___V122*/ meltfptr[121]) /*_.VALDATA___V122*/ meltfptr[121] = (melt_ptr_t) sy_DISCR_STRBUF; } /*^getnamedsymbol */ /*getnamedsym:DBG_OUTPUT */ { melt_ptr_t sy_DBG_OUTPUT = meltgc_named_symbol ("DBG_OUTPUT", MELT_GET); if (sy_DBG_OUTPUT && NULL == /*_.VALDATA___V124*/ meltfptr[123]) /*_.VALDATA___V124*/ meltfptr[123] = (melt_ptr_t) sy_DBG_OUTPUT; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SELECTOR */ { melt_ptr_t sy_CLASS_SELECTOR = meltgc_named_symbol ("CLASS_SELECTOR", MELT_GET); if (sy_CLASS_SELECTOR && NULL == /*_.VALDATA___V126*/ meltfptr[125]) /*_.VALDATA___V126*/ meltfptr[125] = (melt_ptr_t) sy_CLASS_SELECTOR; } /*^getnamedsymbol */ /*getnamedsym:RECV */ { melt_ptr_t sy_RECV = meltgc_named_symbol ("RECV", MELT_GET); if (sy_RECV && NULL == /*_.VALDATA___V128*/ meltfptr[127]) /*_.VALDATA___V128*/ meltfptr[127] = (melt_ptr_t) sy_RECV; } /*^getnamedsymbol */ /*getnamedsym:DBGINFO */ { melt_ptr_t sy_DBGINFO = meltgc_named_symbol ("DBGINFO", MELT_GET); if (sy_DBGINFO && NULL == /*_.VALDATA___V131*/ meltfptr[130]) /*_.VALDATA___V131*/ meltfptr[130] = (melt_ptr_t) sy_DBGINFO; } /*^getnamedsymbol */ /*getnamedsym:DBG_OUTPUTAGAIN */ { melt_ptr_t sy_DBG_OUTPUTAGAIN = meltgc_named_symbol ("DBG_OUTPUTAGAIN", MELT_GET); if (sy_DBG_OUTPUTAGAIN && NULL == /*_.VALDATA___V136*/ meltfptr[135]) /*_.VALDATA___V136*/ meltfptr[135] = (melt_ptr_t) sy_DBG_OUTPUTAGAIN; } /*^getnamedsymbol */ /*getnamedsym:TREE_DEBUG_FUNCONT */ { melt_ptr_t sy_TREE_DEBUG_FUNCONT = meltgc_named_symbol ("TREE_DEBUG_FUNCONT", MELT_GET); if (sy_TREE_DEBUG_FUNCONT && NULL == /*_.VALDATA___V142*/ meltfptr[141]) /*_.VALDATA___V142*/ meltfptr[141] = (melt_ptr_t) sy_TREE_DEBUG_FUNCONT; } /*^getnamedsymbol */ /*getnamedsym:CLASS_CONTAINER */ { melt_ptr_t sy_CLASS_CONTAINER = meltgc_named_symbol ("CLASS_CONTAINER", MELT_GET); if (sy_CLASS_CONTAINER && NULL == /*_.VALDATA___V144*/ meltfptr[143]) /*_.VALDATA___V144*/ meltfptr[143] = (melt_ptr_t) sy_CLASS_CONTAINER; } /*^getnamedsymbol */ /*getnamedsym:SET_CONTENT */ { melt_ptr_t sy_SET_CONTENT = meltgc_named_symbol ("SET_CONTENT", MELT_GET); if (sy_SET_CONTENT && NULL == /*_.VALDATA___V149*/ meltfptr[148]) /*_.VALDATA___V149*/ meltfptr[148] = (melt_ptr_t) sy_SET_CONTENT; } /*^getnamedsymbol */ /*getnamedsym:GIMPLE_DEBUG_FUNCONT */ { melt_ptr_t sy_GIMPLE_DEBUG_FUNCONT = meltgc_named_symbol ("GIMPLE_DEBUG_FUNCONT", MELT_GET); if (sy_GIMPLE_DEBUG_FUNCONT && NULL == /*_.VALDATA___V151*/ meltfptr[150]) /*_.VALDATA___V151*/ meltfptr[150] = (melt_ptr_t) sy_GIMPLE_DEBUG_FUNCONT; } /*^getnamedsymbol */ /*getnamedsym:GIMPLESEQ_DEBUG_FUNCONT */ { melt_ptr_t sy_GIMPLESEQ_DEBUG_FUNCONT = meltgc_named_symbol ("GIMPLESEQ_DEBUG_FUNCONT", MELT_GET); if (sy_GIMPLESEQ_DEBUG_FUNCONT && NULL == /*_.VALDATA___V156*/ meltfptr[155]) /*_.VALDATA___V156*/ meltfptr[155] = (melt_ptr_t) sy_GIMPLESEQ_DEBUG_FUNCONT; } /*^getnamedsymbol */ /*getnamedsym:EDGE_DEBUG_FUNCONT */ { melt_ptr_t sy_EDGE_DEBUG_FUNCONT = meltgc_named_symbol ("EDGE_DEBUG_FUNCONT", MELT_GET); if (sy_EDGE_DEBUG_FUNCONT && NULL == /*_.VALDATA___V161*/ meltfptr[160]) /*_.VALDATA___V161*/ meltfptr[160] = (melt_ptr_t) sy_EDGE_DEBUG_FUNCONT; } /*^getnamedsymbol */ /*getnamedsym:BASICBLOCK_DEBUG_FUNCONT */ { melt_ptr_t sy_BASICBLOCK_DEBUG_FUNCONT = meltgc_named_symbol ("BASICBLOCK_DEBUG_FUNCONT", MELT_GET); if (sy_BASICBLOCK_DEBUG_FUNCONT && NULL == /*_.VALDATA___V166*/ meltfptr[165]) /*_.VALDATA___V166*/ meltfptr[165] = (melt_ptr_t) sy_BASICBLOCK_DEBUG_FUNCONT; } /*^getnamedsymbol */ /*getnamedsym:LOOP_DEBUG_FUNCONT */ { melt_ptr_t sy_LOOP_DEBUG_FUNCONT = meltgc_named_symbol ("LOOP_DEBUG_FUNCONT", MELT_GET); if (sy_LOOP_DEBUG_FUNCONT && NULL == /*_.VALDATA___V171*/ meltfptr[170]) /*_.VALDATA___V171*/ meltfptr[170] = (melt_ptr_t) sy_LOOP_DEBUG_FUNCONT; } /*^getnamedsymbol */ /*getnamedsym:DISCR_DEBUG_CLOSURE */ { melt_ptr_t sy_DISCR_DEBUG_CLOSURE = meltgc_named_symbol ("DISCR_DEBUG_CLOSURE", MELT_GET); if (sy_DISCR_DEBUG_CLOSURE && NULL == /*_.VALDATA___V176*/ meltfptr[175]) /*_.VALDATA___V176*/ meltfptr[175] = (melt_ptr_t) sy_DISCR_DEBUG_CLOSURE; } /*^getnamedsymbol */ /*getnamedsym:CLASS_DISCRIMINANT */ { melt_ptr_t sy_CLASS_DISCRIMINANT = meltgc_named_symbol ("CLASS_DISCRIMINANT", MELT_GET); if (sy_CLASS_DISCRIMINANT && NULL == /*_.VALDATA___V178*/ meltfptr[177]) /*_.VALDATA___V178*/ meltfptr[177] = (melt_ptr_t) sy_CLASS_DISCRIMINANT; } /*^getnamedsymbol */ /*getnamedsym:DISCR_CLOSURE */ { melt_ptr_t sy_DISCR_CLOSURE = meltgc_named_symbol ("DISCR_CLOSURE", MELT_GET); if (sy_DISCR_CLOSURE && NULL == /*_.VALDATA___V182*/ meltfptr[181]) /*_.VALDATA___V182*/ meltfptr[181] = (melt_ptr_t) sy_DISCR_CLOSURE; } /*^getnamedsymbol */ /*getnamedsym:ADD2OUT */ { melt_ptr_t sy_ADD2OUT = meltgc_named_symbol ("ADD2OUT", MELT_GET); if (sy_ADD2OUT && NULL == /*_.VALDATA___V186*/ meltfptr[185]) /*_.VALDATA___V186*/ meltfptr[185] = (melt_ptr_t) sy_ADD2OUT; } /*^getnamedsymbol */ /*getnamedsym:CSTRING_PREFIXED */ { melt_ptr_t sy_CSTRING_PREFIXED = meltgc_named_symbol ("CSTRING_PREFIXED", MELT_GET); if (sy_CSTRING_PREFIXED && NULL == /*_.VALDATA___V188*/ meltfptr[187]) /*_.VALDATA___V188*/ meltfptr[187] = (melt_ptr_t) sy_CSTRING_PREFIXED; } /*^getnamedsymbol */ /*getnamedsym:CLASS_NAMED */ { melt_ptr_t sy_CLASS_NAMED = meltgc_named_symbol ("CLASS_NAMED", MELT_GET); if (sy_CLASS_NAMED && NULL == /*_.VALDATA___V190*/ meltfptr[189]) /*_.VALDATA___V190*/ meltfptr[189] = (melt_ptr_t) sy_CLASS_NAMED; } /*^getnamedsymbol */ /*getnamedsym:CLASS_CTYPE */ { melt_ptr_t sy_CLASS_CTYPE = meltgc_named_symbol ("CLASS_CTYPE", MELT_GET); if (sy_CLASS_CTYPE && NULL == /*_.VALDATA___V192*/ meltfptr[191]) /*_.VALDATA___V192*/ meltfptr[191] = (melt_ptr_t) sy_CLASS_CTYPE; } /*^getnamedsymbol */ /*getnamedsym:INSTALL_METHOD */ { melt_ptr_t sy_INSTALL_METHOD = meltgc_named_symbol ("INSTALL_METHOD", MELT_GET); if (sy_INSTALL_METHOD && NULL == /*_.VALDATA___V200*/ meltfptr[199]) /*_.VALDATA___V200*/ meltfptr[199] = (melt_ptr_t) sy_INSTALL_METHOD; } /*^getnamedsymbol */ /*getnamedsym:DISCR_NULL_RECEIVER */ { melt_ptr_t sy_DISCR_NULL_RECEIVER = meltgc_named_symbol ("DISCR_NULL_RECEIVER", MELT_GET); if (sy_DISCR_NULL_RECEIVER && NULL == /*_.VALDATA___V202*/ meltfptr[201]) /*_.VALDATA___V202*/ meltfptr[201] = (melt_ptr_t) sy_DISCR_NULL_RECEIVER; } /*^getnamedsymbol */ /*getnamedsym:DISCR_STRING */ { melt_ptr_t sy_DISCR_STRING = meltgc_named_symbol ("DISCR_STRING", MELT_GET); if (sy_DISCR_STRING && NULL == /*_.VALDATA___V206*/ meltfptr[205]) /*_.VALDATA___V206*/ meltfptr[205] = (melt_ptr_t) sy_DISCR_STRING; } /*^getnamedsymbol */ /*getnamedsym:DISCR_MIXED_INTEGER */ { melt_ptr_t sy_DISCR_MIXED_INTEGER = meltgc_named_symbol ("DISCR_MIXED_INTEGER", MELT_GET); if (sy_DISCR_MIXED_INTEGER && NULL == /*_.VALDATA___V214*/ meltfptr[213]) /*_.VALDATA___V214*/ meltfptr[213] = (melt_ptr_t) sy_DISCR_MIXED_INTEGER; } /*^getnamedsymbol */ /*getnamedsym:DISCR_MIXED_LOCATION */ { melt_ptr_t sy_DISCR_MIXED_LOCATION = meltgc_named_symbol ("DISCR_MIXED_LOCATION", MELT_GET); if (sy_DISCR_MIXED_LOCATION && NULL == /*_.VALDATA___V218*/ meltfptr[217]) /*_.VALDATA___V218*/ meltfptr[217] = (melt_ptr_t) sy_DISCR_MIXED_LOCATION; } /*^getnamedsymbol */ /*getnamedsym:DISCR_MIXED_BIGINT */ { melt_ptr_t sy_DISCR_MIXED_BIGINT = meltgc_named_symbol ("DISCR_MIXED_BIGINT", MELT_GET); if (sy_DISCR_MIXED_BIGINT && NULL == /*_.VALDATA___V222*/ meltfptr[221]) /*_.VALDATA___V222*/ meltfptr[221] = (melt_ptr_t) sy_DISCR_MIXED_BIGINT; } /*^getnamedsymbol */ /*getnamedsym:DISCR_MULTIPLE */ { melt_ptr_t sy_DISCR_MULTIPLE = meltgc_named_symbol ("DISCR_MULTIPLE", MELT_GET); if (sy_DISCR_MULTIPLE && NULL == /*_.VALDATA___V226*/ meltfptr[225]) /*_.VALDATA___V226*/ meltfptr[225] = (melt_ptr_t) sy_DISCR_MULTIPLE; } /*^getnamedsymbol */ /*getnamedsym:DISCR_ROUTINE */ { melt_ptr_t sy_DISCR_ROUTINE = meltgc_named_symbol ("DISCR_ROUTINE", MELT_GET); if (sy_DISCR_ROUTINE && NULL == /*_.VALDATA___V231*/ meltfptr[230]) /*_.VALDATA___V231*/ meltfptr[230] = (melt_ptr_t) sy_DISCR_ROUTINE; } /*^getnamedsymbol */ /*getnamedsym:ROUTINE_EVERY */ { melt_ptr_t sy_ROUTINE_EVERY = meltgc_named_symbol ("ROUTINE_EVERY", MELT_GET); if (sy_ROUTINE_EVERY && NULL == /*_.VALDATA___V233*/ meltfptr[232]) /*_.VALDATA___V233*/ meltfptr[232] = (melt_ptr_t) sy_ROUTINE_EVERY; } /*^getnamedsymbol */ /*getnamedsym:DISCR_LIST */ { melt_ptr_t sy_DISCR_LIST = meltgc_named_symbol ("DISCR_LIST", MELT_GET); if (sy_DISCR_LIST && NULL == /*_.VALDATA___V239*/ meltfptr[238]) /*_.VALDATA___V239*/ meltfptr[238] = (melt_ptr_t) sy_DISCR_LIST; } /*^getnamedsymbol */ /*getnamedsym:DISCR_PAIR */ { melt_ptr_t sy_DISCR_PAIR = meltgc_named_symbol ("DISCR_PAIR", MELT_GET); if (sy_DISCR_PAIR && NULL == /*_.VALDATA___V243*/ meltfptr[242]) /*_.VALDATA___V243*/ meltfptr[242] = (melt_ptr_t) sy_DISCR_PAIR; } /*^getnamedsymbol */ /*getnamedsym:MAPOBJECT_EVERY */ { melt_ptr_t sy_MAPOBJECT_EVERY = meltgc_named_symbol ("MAPOBJECT_EVERY", MELT_GET); if (sy_MAPOBJECT_EVERY && NULL == /*_.VALDATA___V253*/ meltfptr[252]) /*_.VALDATA___V253*/ meltfptr[252] = (melt_ptr_t) sy_MAPOBJECT_EVERY; } /*^getnamedsymbol */ /*getnamedsym:COMPARE_OBJ_RANKED */ { melt_ptr_t sy_COMPARE_OBJ_RANKED = meltgc_named_symbol ("COMPARE_OBJ_RANKED", MELT_GET); if (sy_COMPARE_OBJ_RANKED && NULL == /*_.VALDATA___V255*/ meltfptr[254]) /*_.VALDATA___V255*/ meltfptr[254] = (melt_ptr_t) sy_COMPARE_OBJ_RANKED; } /*^getnamedsymbol */ /*getnamedsym:MULTIPLE_EVERY */ { melt_ptr_t sy_MULTIPLE_EVERY = meltgc_named_symbol ("MULTIPLE_EVERY", MELT_GET); if (sy_MULTIPLE_EVERY && NULL == /*_.VALDATA___V257*/ meltfptr[256]) /*_.VALDATA___V257*/ meltfptr[256] = (melt_ptr_t) sy_MULTIPLE_EVERY; } /*^getnamedsymbol */ /*getnamedsym:DISCR_MAP_STRINGS */ { melt_ptr_t sy_DISCR_MAP_STRINGS = meltgc_named_symbol ("DISCR_MAP_STRINGS", MELT_GET); if (sy_DISCR_MAP_STRINGS && NULL == /*_.VALDATA___V267*/ meltfptr[266]) /*_.VALDATA___V267*/ meltfptr[266] = (melt_ptr_t) sy_DISCR_MAP_STRINGS; } /*^getnamedsymbol */ /*getnamedsym:MAPSTRING_EVERY */ { melt_ptr_t sy_MAPSTRING_EVERY = meltgc_named_symbol ("MAPSTRING_EVERY", MELT_GET); if (sy_MAPSTRING_EVERY && NULL == /*_.VALDATA___V269*/ meltfptr[268]) /*_.VALDATA___V269*/ meltfptr[268] = (melt_ptr_t) sy_MAPSTRING_EVERY; } /*^getnamedsymbol */ /*getnamedsym:DISCR_ANY_RECEIVER */ { melt_ptr_t sy_DISCR_ANY_RECEIVER = meltgc_named_symbol ("DISCR_ANY_RECEIVER", MELT_GET); if (sy_DISCR_ANY_RECEIVER && NULL == /*_.VALDATA___V275*/ meltfptr[274]) /*_.VALDATA___V275*/ meltfptr[274] = (melt_ptr_t) sy_DISCR_ANY_RECEIVER; } /*^getnamedsymbol */ /*getnamedsym:DBGOUT_NAMEDOBJECT_METHOD */ { melt_ptr_t sy_DBGOUT_NAMEDOBJECT_METHOD = meltgc_named_symbol ("DBGOUT_NAMEDOBJECT_METHOD", MELT_GET); if (sy_DBGOUT_NAMEDOBJECT_METHOD && NULL == /*_.VALDATA___V281*/ meltfptr[280]) /*_.VALDATA___V281*/ meltfptr[280] = (melt_ptr_t) sy_DBGOUT_NAMEDOBJECT_METHOD; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SYMBOL */ { melt_ptr_t sy_CLASS_SYMBOL = meltgc_named_symbol ("CLASS_SYMBOL", MELT_GET); if (sy_CLASS_SYMBOL && NULL == /*_.VALDATA___V287*/ meltfptr[286]) /*_.VALDATA___V287*/ meltfptr[286] = (melt_ptr_t) sy_CLASS_SYMBOL; } /*^getnamedsymbol */ /*getnamedsym:CLASS_CLASS */ { melt_ptr_t sy_CLASS_CLASS = meltgc_named_symbol ("CLASS_CLASS", MELT_GET); if (sy_CLASS_CLASS && NULL == /*_.VALDATA___V293*/ meltfptr[292]) /*_.VALDATA___V293*/ meltfptr[292] = (melt_ptr_t) sy_CLASS_CLASS; } /*^getnamedsymbol */ /*getnamedsym:CLASS_KEYWORD */ { melt_ptr_t sy_CLASS_KEYWORD = meltgc_named_symbol ("CLASS_KEYWORD", MELT_GET); if (sy_CLASS_KEYWORD && NULL == /*_.VALDATA___V297*/ meltfptr[296]) /*_.VALDATA___V297*/ meltfptr[296] = (melt_ptr_t) sy_CLASS_KEYWORD; } /*^getnamedsymbol */ /*getnamedsym:CLASS_CLONED_SYMBOL */ { melt_ptr_t sy_CLASS_CLONED_SYMBOL = meltgc_named_symbol ("CLASS_CLONED_SYMBOL", MELT_GET); if (sy_CLASS_CLONED_SYMBOL && NULL == /*_.VALDATA___V303*/ meltfptr[302]) /*_.VALDATA___V303*/ meltfptr[302] = (melt_ptr_t) sy_CLASS_CLONED_SYMBOL; } /*^getnamedsymbol */ /*getnamedsym:CLASS_ENVIRONMENT */ { melt_ptr_t sy_CLASS_ENVIRONMENT = meltgc_named_symbol ("CLASS_ENVIRONMENT", MELT_GET); if (sy_CLASS_ENVIRONMENT && NULL == /*_.VALDATA___V309*/ meltfptr[308]) /*_.VALDATA___V309*/ meltfptr[308] = (melt_ptr_t) sy_CLASS_ENVIRONMENT; } /*^getnamedsymbol */ /*getnamedsym:ENV_PREV */ { melt_ptr_t sy_ENV_PREV = meltgc_named_symbol ("ENV_PREV", MELT_GET); if (sy_ENV_PREV && NULL == /*_.VALDATA___V311*/ meltfptr[310]) /*_.VALDATA___V311*/ meltfptr[310] = (melt_ptr_t) sy_ENV_PREV; } /*^getnamedsymbol */ /*getnamedsym:CLASS_ANY_BINDING */ { melt_ptr_t sy_CLASS_ANY_BINDING = meltgc_named_symbol ("CLASS_ANY_BINDING", MELT_GET); if (sy_CLASS_ANY_BINDING && NULL == /*_.VALDATA___V319*/ meltfptr[318]) /*_.VALDATA___V319*/ meltfptr[318] = (melt_ptr_t) sy_CLASS_ANY_BINDING; } /*^getnamedsymbol */ /*getnamedsym:DBG_OUT */ { melt_ptr_t sy_DBG_OUT = meltgc_named_symbol ("DBG_OUT", MELT_GET); if (sy_DBG_OUT && NULL == /*_.VALDATA___V323*/ meltfptr[322]) /*_.VALDATA___V323*/ meltfptr[322] = (melt_ptr_t) sy_DBG_OUT; } /*^getnamedsymbol */ /*getnamedsym:DBG_OUTOBJECT */ { melt_ptr_t sy_DBG_OUTOBJECT = meltgc_named_symbol ("DBG_OUTOBJECT", MELT_GET); if (sy_DBG_OUTOBJECT && NULL == /*_.VALDATA___V325*/ meltfptr[324]) /*_.VALDATA___V325*/ meltfptr[324] = (melt_ptr_t) sy_DBG_OUTOBJECT; } /*^getnamedsymbol */ /*getnamedsym:DBGOUT_FIELDS */ { melt_ptr_t sy_DBGOUT_FIELDS = meltgc_named_symbol ("DBGOUT_FIELDS", MELT_GET); if (sy_DBGOUT_FIELDS && NULL == /*_.VALDATA___V327*/ meltfptr[326]) /*_.VALDATA___V327*/ meltfptr[326] = (melt_ptr_t) sy_DBGOUT_FIELDS; } /*^getnamedsymbol */ /*getnamedsym:DBGOUTAGAIN_FIELDS */ { melt_ptr_t sy_DBGOUTAGAIN_FIELDS = meltgc_named_symbol ("DBGOUTAGAIN_FIELDS", MELT_GET); if (sy_DBGOUTAGAIN_FIELDS && NULL == /*_.VALDATA___V329*/ meltfptr[328]) /*_.VALDATA___V329*/ meltfptr[328] = (melt_ptr_t) sy_DBGOUTAGAIN_FIELDS; } /*^getnamedsymbol */ /*getnamedsym:DEBUG_MSG_FUN */ { melt_ptr_t sy_DEBUG_MSG_FUN = meltgc_named_symbol ("DEBUG_MSG_FUN", MELT_GET); if (sy_DEBUG_MSG_FUN && NULL == /*_.VALDATA___V331*/ meltfptr[330]) /*_.VALDATA___V331*/ meltfptr[330] = (melt_ptr_t) sy_DEBUG_MSG_FUN; } /*^getnamedsymbol */ /*getnamedsym:DISPLAY_DEBUG_MESSAGE */ { melt_ptr_t sy_DISPLAY_DEBUG_MESSAGE = meltgc_named_symbol ("DISPLAY_DEBUG_MESSAGE", MELT_GET); if (sy_DISPLAY_DEBUG_MESSAGE && NULL == /*_.VALDATA___V333*/ meltfptr[332]) /*_.VALDATA___V333*/ meltfptr[332] = (melt_ptr_t) sy_DISPLAY_DEBUG_MESSAGE; } /*^getnamedsymbol */ /*getnamedsym:MELT_DEBUG_FUN */ { melt_ptr_t sy_MELT_DEBUG_FUN = meltgc_named_symbol ("MELT_DEBUG_FUN", MELT_GET); if (sy_MELT_DEBUG_FUN && NULL == /*_.VALDATA___V335*/ meltfptr[334]) /*_.VALDATA___V335*/ meltfptr[334] = (melt_ptr_t) sy_MELT_DEBUG_FUN; } /*^getnamedsymbol */ /*getnamedsym:REGISTER_BASICBLOCK_DEBUG_FUN */ { melt_ptr_t sy_REGISTER_BASICBLOCK_DEBUG_FUN = meltgc_named_symbol ("REGISTER_BASICBLOCK_DEBUG_FUN", MELT_GET); if (sy_REGISTER_BASICBLOCK_DEBUG_FUN && NULL == /*_.VALDATA___V337*/ meltfptr[336]) /*_.VALDATA___V337*/ meltfptr[336] = (melt_ptr_t) sy_REGISTER_BASICBLOCK_DEBUG_FUN; } /*^getnamedsymbol */ /*getnamedsym:REGISTER_EDGE_DEBUG_FUN */ { melt_ptr_t sy_REGISTER_EDGE_DEBUG_FUN = meltgc_named_symbol ("REGISTER_EDGE_DEBUG_FUN", MELT_GET); if (sy_REGISTER_EDGE_DEBUG_FUN && NULL == /*_.VALDATA___V339*/ meltfptr[338]) /*_.VALDATA___V339*/ meltfptr[338] = (melt_ptr_t) sy_REGISTER_EDGE_DEBUG_FUN; } /*^getnamedsymbol */ /*getnamedsym:REGISTER_GIMPLE_DEBUG_FUN */ { melt_ptr_t sy_REGISTER_GIMPLE_DEBUG_FUN = meltgc_named_symbol ("REGISTER_GIMPLE_DEBUG_FUN", MELT_GET); if (sy_REGISTER_GIMPLE_DEBUG_FUN && NULL == /*_.VALDATA___V341*/ meltfptr[340]) /*_.VALDATA___V341*/ meltfptr[340] = (melt_ptr_t) sy_REGISTER_GIMPLE_DEBUG_FUN; } /*^getnamedsymbol */ /*getnamedsym:REGISTER_GIMPLESEQ_DEBUG_FUN */ { melt_ptr_t sy_REGISTER_GIMPLESEQ_DEBUG_FUN = meltgc_named_symbol ("REGISTER_GIMPLESEQ_DEBUG_FUN", MELT_GET); if (sy_REGISTER_GIMPLESEQ_DEBUG_FUN && NULL == /*_.VALDATA___V343*/ meltfptr[342]) /*_.VALDATA___V343*/ meltfptr[342] = (melt_ptr_t) sy_REGISTER_GIMPLESEQ_DEBUG_FUN; } /*^getnamedsymbol */ /*getnamedsym:REGISTER_LOOP_DEBUG_FUN */ { melt_ptr_t sy_REGISTER_LOOP_DEBUG_FUN = meltgc_named_symbol ("REGISTER_LOOP_DEBUG_FUN", MELT_GET); if (sy_REGISTER_LOOP_DEBUG_FUN && NULL == /*_.VALDATA___V345*/ meltfptr[344]) /*_.VALDATA___V345*/ meltfptr[344] = (melt_ptr_t) sy_REGISTER_LOOP_DEBUG_FUN; } /*^getnamedsymbol */ /*getnamedsym:REGISTER_TREE_DEBUG_FUN */ { melt_ptr_t sy_REGISTER_TREE_DEBUG_FUN = meltgc_named_symbol ("REGISTER_TREE_DEBUG_FUN", MELT_GET); if (sy_REGISTER_TREE_DEBUG_FUN && NULL == /*_.VALDATA___V347*/ meltfptr[346]) /*_.VALDATA___V347*/ meltfptr[346] = (melt_ptr_t) sy_REGISTER_TREE_DEBUG_FUN; } /*^comment */ /**COMMENT: get the value importer **/ ; /*^getslot */ { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (INITIAL_SYSTEM_DATA)))), 12, "SYSDATA_VALUE_IMPORTER"); /*_.VALIMPORT___V6*/ meltfptr[5] = slot; }; /*^comment */ /**COMMENT: before getting imported values **/ ; /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "CLASS_ROOT"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-debug"; /*_.CLASS_ROOT__V7*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V48*/ meltfptr[47]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "INITIAL_SYSTEM_DATA"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-debug"; /*_.INITIAL_SYSTEM_DATA__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V114*/ meltfptr[113]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "CLASS_SYSTEM_DATA"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-debug"; /*_.CLASS_SYSTEM_DATA__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V116*/ meltfptr[115]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "DISCR_MAP_OBJECTS"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-debug"; /*_.DISCR_MAP_OBJECTS__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V118*/ meltfptr[117]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "DISCR_INTEGER"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-debug"; /*_.DISCR_INTEGER__V11*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V120*/ meltfptr[119]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "DISCR_STRBUF"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-debug"; /*_.DISCR_STRBUF__V12*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V122*/ meltfptr[121]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "CLASS_SELECTOR"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-debug"; /*_.CLASS_SELECTOR__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V126*/ meltfptr[125]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "CLASS_CONTAINER"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-debug"; /*_.CLASS_CONTAINER__V14*/ meltfptr[13] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V144*/ meltfptr[143]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "SET_CONTENT"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-debug"; /*_.SET_CONTENT__V15*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V149*/ meltfptr[148]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "CLASS_DISCRIMINANT"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-debug"; /*_.CLASS_DISCRIMINANT__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V178*/ meltfptr[177]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "DISCR_CLOSURE"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-debug"; /*_.DISCR_CLOSURE__V17*/ meltfptr[16] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V182*/ meltfptr[181]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "ADD2OUT"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-debug"; /*_.ADD2OUT__V18*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V186*/ meltfptr[185]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "CSTRING_PREFIXED"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-debug"; /*_.CSTRING_PREFIXED__V19*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V188*/ meltfptr[187]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "CLASS_NAMED"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-debug"; /*_.CLASS_NAMED__V20*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V190*/ meltfptr[189]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "CLASS_CTYPE"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-debug"; /*_.CLASS_CTYPE__V21*/ meltfptr[20] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V192*/ meltfptr[191]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "INSTALL_METHOD"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-debug"; /*_.INSTALL_METHOD__V22*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V200*/ meltfptr[199]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "DISCR_NULL_RECEIVER"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-debug"; /*_.DISCR_NULL_RECEIVER__V23*/ meltfptr[22] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V202*/ meltfptr[201]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "DISCR_STRING"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-debug"; /*_.DISCR_STRING__V24*/ meltfptr[23] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V206*/ meltfptr[205]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "DISCR_MIXED_INTEGER"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-debug"; /*_.DISCR_MIXED_INTEGER__V25*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V214*/ meltfptr[213]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "DISCR_MIXED_LOCATION"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-debug"; /*_.DISCR_MIXED_LOCATION__V26*/ meltfptr[25] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V218*/ meltfptr[217]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "DISCR_MIXED_BIGINT"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-debug"; /*_.DISCR_MIXED_BIGINT__V27*/ meltfptr[26] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V222*/ meltfptr[221]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "DISCR_MULTIPLE"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-debug"; /*_.DISCR_MULTIPLE__V28*/ meltfptr[27] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V226*/ meltfptr[225]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "DISCR_ROUTINE"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-debug"; /*_.DISCR_ROUTINE__V29*/ meltfptr[28] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V231*/ meltfptr[230]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "ROUTINE_EVERY"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-debug"; /*_.ROUTINE_EVERY__V30*/ meltfptr[29] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V233*/ meltfptr[232]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "DISCR_LIST"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-debug"; /*_.DISCR_LIST__V31*/ meltfptr[30] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V239*/ meltfptr[238]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "DISCR_PAIR"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-debug"; /*_.DISCR_PAIR__V32*/ meltfptr[31] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V243*/ meltfptr[242]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "MAPOBJECT_EVERY"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-debug"; /*_.MAPOBJECT_EVERY__V33*/ meltfptr[32] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V253*/ meltfptr[252]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "COMPARE_OBJ_RANKED"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-debug"; /*_.COMPARE_OBJ_RANKED__V34*/ meltfptr[33] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V255*/ meltfptr[254]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "MULTIPLE_EVERY"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-debug"; /*_.MULTIPLE_EVERY__V35*/ meltfptr[34] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V257*/ meltfptr[256]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "DISCR_MAP_STRINGS"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-debug"; /*_.DISCR_MAP_STRINGS__V36*/ meltfptr[35] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V267*/ meltfptr[266]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "MAPSTRING_EVERY"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-debug"; /*_.MAPSTRING_EVERY__V37*/ meltfptr[36] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V269*/ meltfptr[268]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "DISCR_ANY_RECEIVER"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-debug"; /*_.DISCR_ANY_RECEIVER__V38*/ meltfptr[37] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V275*/ meltfptr[274]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "CLASS_SYMBOL"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-debug"; /*_.CLASS_SYMBOL__V39*/ meltfptr[38] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V287*/ meltfptr[286]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "CLASS_CLASS"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-debug"; /*_.CLASS_CLASS__V40*/ meltfptr[39] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V293*/ meltfptr[292]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "CLASS_KEYWORD"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-debug"; /*_.CLASS_KEYWORD__V41*/ meltfptr[40] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V297*/ meltfptr[296]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "CLASS_CLONED_SYMBOL"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-debug"; /*_.CLASS_CLONED_SYMBOL__V42*/ meltfptr[41] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V303*/ meltfptr[302]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "CLASS_ENVIRONMENT"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-debug"; /*_.CLASS_ENVIRONMENT__V43*/ meltfptr[42] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V309*/ meltfptr[308]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "ENV_PREV"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-debug"; /*_.ENV_PREV__V44*/ meltfptr[43] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V311*/ meltfptr[310]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "CLASS_ANY_BINDING"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-debug"; /*_.CLASS_ANY_BINDING__V45*/ meltfptr[44] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V319*/ meltfptr[318]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^comment */ /**COMMENT: after getting imported values **/ ; /**initial routine cdata initializer**/ memset (predefinited, 0, sizeof (predefinited)); initialize_module_meltdata_warmelt_debug (&meltfram__, predefinited); /**initial routine body**/ meltmod__warmelt_debug__initialmeltchunk_0 (&meltfram__, predefinited); meltmod__warmelt_debug__initialmeltchunk_1 (&meltfram__, predefinited); meltmod__warmelt_debug__initialmeltchunk_2 (&meltfram__, predefinited); meltmod__warmelt_debug__initialmeltchunk_3 (&meltfram__, predefinited); meltmod__warmelt_debug__initialmeltchunk_4 (&meltfram__, predefinited); meltmod__warmelt_debug__initialmeltchunk_5 (&meltfram__, predefinited);; goto labend_rout; labend_rout:; melt_topframe = (struct melt_callframe_st *) meltfram__.mcfr_prev; /* popped initial frame */ { /* clear initial frame & return */ melt_ptr_t retval = /*_.RETINIT___V1*/ meltfptr[0]; memset ((void *) &meltfram__, 0, sizeof (meltfram__)); return retval; } #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /* end start_module_melt */ void meltmod__warmelt_debug__initialmeltchunk_0 (struct frame_start_module_melt_st *meltmeltframptr__, char predefinited[]) { #define meltfram__ (*meltmeltframptr__) #undef meltcallcount #define meltcallcount 0L /**COMMENT: start of oinibody **/ ; /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V46*/ meltfptr[45])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V46*/ meltfptr[45])))); ((meltobject_ptr_t) ( /*_.VALDATA___V46*/ meltfptr[45]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V47*/ meltfptr[46]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V46*/ meltfptr[45]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V48*/ meltfptr[47])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V48*/ meltfptr[47])))); ((meltobject_ptr_t) ( /*_.VALDATA___V48*/ meltfptr[47]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V49*/ meltfptr[48]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V48*/ meltfptr[47]); MELT_LOCATION ("warmelt-debug.melt:39:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V50*/ meltfptr[49])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V50*/ meltfptr[49])))); ((meltobject_ptr_t) ( /*_.VALDATA___V50*/ meltfptr[49]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V51*/ meltfptr[50]); MELT_LOCATION ("warmelt-debug.melt:39:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V50*/ meltfptr[49])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V50*/ meltfptr[49])))); ((meltobject_ptr_t) ( /*_.VALDATA___V50*/ meltfptr[49]))->obj_vartab[4] = (melt_ptr_t) ( /*_.CLASS_ROOT__V7*/ meltfptr[6]); /*putupl#7 */ melt_assertmsg ("putupl #7 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V52*/ meltfptr[51])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #7 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V52*/ meltfptr[51])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V52*/ meltfptr[51]))->tabval[0] = (melt_ptr_t) ( /*_.CLASS_ROOT__V7*/ meltfptr[6]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V52*/ meltfptr[51]); MELT_LOCATION ("warmelt-debug.melt:39:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V50*/ meltfptr[49])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V50*/ meltfptr[49])))); ((meltobject_ptr_t) ( /*_.VALDATA___V50*/ meltfptr[49]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V52*/ meltfptr[51]); MELT_LOCATION ("warmelt-debug.melt:39:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V53*/ meltfptr[52])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V53*/ meltfptr[52])))); ((meltobject_ptr_t) ( /*_.VALDATA___V53*/ meltfptr[52]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V54*/ meltfptr[53]); MELT_LOCATION ("warmelt-debug.melt:39:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V53*/ meltfptr[52])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V53*/ meltfptr[52])))); ((meltobject_ptr_t) ( /*_.VALDATA___V53*/ meltfptr[52]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V50*/ meltfptr[49]); MELT_LOCATION ("warmelt-debug.melt:39:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V53*/ meltfptr[52]); MELT_LOCATION ("warmelt-debug.melt:39:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V55*/ meltfptr[54])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V55*/ meltfptr[54])))); ((meltobject_ptr_t) ( /*_.VALDATA___V55*/ meltfptr[54]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V56*/ meltfptr[55]); MELT_LOCATION ("warmelt-debug.melt:39:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V55*/ meltfptr[54])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V55*/ meltfptr[54])))); ((meltobject_ptr_t) ( /*_.VALDATA___V55*/ meltfptr[54]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V50*/ meltfptr[49]); MELT_LOCATION ("warmelt-debug.melt:39:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V55*/ meltfptr[54]); MELT_LOCATION ("warmelt-debug.melt:39:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V57*/ meltfptr[56])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V57*/ meltfptr[56])))); ((meltobject_ptr_t) ( /*_.VALDATA___V57*/ meltfptr[56]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V58*/ meltfptr[57]); MELT_LOCATION ("warmelt-debug.melt:39:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V57*/ meltfptr[56])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V57*/ meltfptr[56])))); ((meltobject_ptr_t) ( /*_.VALDATA___V57*/ meltfptr[56]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V50*/ meltfptr[49]); MELT_LOCATION ("warmelt-debug.melt:39:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V57*/ meltfptr[56]); /*putupl#8 */ melt_assertmsg ("putupl #8 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V59*/ meltfptr[58])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #8 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V59*/ meltfptr[58])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V59*/ meltfptr[58]))->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V53*/ meltfptr[52]); /*putupl#9 */ melt_assertmsg ("putupl #9 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V59*/ meltfptr[58])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #9 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V59*/ meltfptr[58])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V59*/ meltfptr[58]))->tabval[1] = (melt_ptr_t) ( /*_.VALDATA___V55*/ meltfptr[54]); /*putupl#10 */ melt_assertmsg ("putupl #10 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V59*/ meltfptr[58])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #10 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V59*/ meltfptr[58])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V59*/ meltfptr[58]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V57*/ meltfptr[56]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V59*/ meltfptr[58]); MELT_LOCATION ("warmelt-debug.melt:39:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V50*/ meltfptr[49])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V50*/ meltfptr[49])))); ((meltobject_ptr_t) ( /*_.VALDATA___V50*/ meltfptr[49]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V59*/ meltfptr[58]); MELT_LOCATION ("warmelt-debug.melt:39:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V50*/ meltfptr[49]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V60*/ meltfptr[59])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V60*/ meltfptr[59])))); ((meltobject_ptr_t) ( /*_.VALDATA___V60*/ meltfptr[59]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V61*/ meltfptr[60]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V60*/ meltfptr[59]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V62*/ meltfptr[61])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V62*/ meltfptr[61])))); ((meltobject_ptr_t) ( /*_.VALDATA___V62*/ meltfptr[61]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V63*/ meltfptr[62]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V62*/ meltfptr[61]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V64*/ meltfptr[63])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V64*/ meltfptr[63])))); ((meltobject_ptr_t) ( /*_.VALDATA___V64*/ meltfptr[63]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V65*/ meltfptr[64]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V64*/ meltfptr[63]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V66*/ meltfptr[65])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V66*/ meltfptr[65])))); ((meltobject_ptr_t) ( /*_.VALDATA___V66*/ meltfptr[65]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V67*/ meltfptr[66]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V66*/ meltfptr[65]); MELT_LOCATION ("warmelt-debug.melt:53:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V68*/ meltfptr[67])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V68*/ meltfptr[67])))); ((meltobject_ptr_t) ( /*_.VALDATA___V68*/ meltfptr[67]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V69*/ meltfptr[68]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V70*/ meltfptr[69]); MELT_LOCATION ("warmelt-debug.melt:53:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V68*/ meltfptr[67])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V68*/ meltfptr[67])))); ((meltobject_ptr_t) ( /*_.VALDATA___V68*/ meltfptr[67]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALTUP___V70*/ meltfptr[69]); MELT_LOCATION ("warmelt-debug.melt:53:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V68*/ meltfptr[67])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (3 >= 0 && 3 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V68*/ meltfptr[67])))); ((meltobject_ptr_t) ( /*_.VALDATA___V68*/ meltfptr[67]))->obj_vartab[3] = (melt_ptr_t) ( ((melt_ptr_t) (MELT_PREDEF (CTYPE_LONG)))); /*putupl#11 */ melt_assertmsg ("putupl #11 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V72*/ meltfptr[71])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #11 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V72*/ meltfptr[71])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V72*/ meltfptr[71]))->tabval[0] = (melt_ptr_t) ( /*_.VALSTR___V71*/ meltfptr[70]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V72*/ meltfptr[71]); MELT_LOCATION ("warmelt-debug.melt:53:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V68*/ meltfptr[67])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V68*/ meltfptr[67])))); ((meltobject_ptr_t) ( /*_.VALDATA___V68*/ meltfptr[67]))->obj_vartab[4] = (melt_ptr_t) ( /*_.VALTUP___V72*/ meltfptr[71]); MELT_LOCATION ("warmelt-debug.melt:53:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V68*/ meltfptr[67]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V73*/ meltfptr[72])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V73*/ meltfptr[72])))); ((meltobject_ptr_t) ( /*_.VALDATA___V73*/ meltfptr[72]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V74*/ meltfptr[73]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V73*/ meltfptr[72]); MELT_LOCATION ("warmelt-debug.melt:61:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V75*/ meltfptr[74])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V75*/ meltfptr[74])))); ((meltobject_ptr_t) ( /*_.VALDATA___V75*/ meltfptr[74]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V76*/ meltfptr[75]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V78*/ meltfptr[77])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V78*/ meltfptr[77])))); ((meltobject_ptr_t) ( /*_.VALDATA___V78*/ meltfptr[77]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V79*/ meltfptr[78]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V78*/ meltfptr[77]); MELT_LOCATION ("warmelt-debug.melt:61:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V77*/ meltfptr[76])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (0 >= 0 && 0 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V77*/ meltfptr[76])))); ((meltobject_ptr_t) ( /*_.VALDATA___V77*/ meltfptr[76]))->obj_vartab[0] = (melt_ptr_t) ( /*_.VALDATA___V78*/ meltfptr[77]); MELT_LOCATION ("warmelt-debug.melt:61:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V77*/ meltfptr[76])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V77*/ meltfptr[76])))); ((meltobject_ptr_t) ( /*_.VALDATA___V77*/ meltfptr[76]))->obj_vartab[1] = (melt_ptr_t) ( ((melt_ptr_t) (MELT_PREDEF (CTYPE_LONG)))); MELT_LOCATION ("warmelt-debug.melt:61:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V77*/ meltfptr[76]); /*putupl#12 */ melt_assertmsg ("putupl #12 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V80*/ meltfptr[79])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #12 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V80*/ meltfptr[79])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V80*/ meltfptr[79]))->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V77*/ meltfptr[76]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V80*/ meltfptr[79]); MELT_LOCATION ("warmelt-debug.melt:61:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V75*/ meltfptr[74])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V75*/ meltfptr[74])))); ((meltobject_ptr_t) ( /*_.VALDATA___V75*/ meltfptr[74]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALTUP___V80*/ meltfptr[79]); MELT_LOCATION ("warmelt-debug.melt:61:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V75*/ meltfptr[74])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (3 >= 0 && 3 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V75*/ meltfptr[74])))); ((meltobject_ptr_t) ( /*_.VALDATA___V75*/ meltfptr[74]))->obj_vartab[3] = (melt_ptr_t) ( ((melt_ptr_t) (MELT_PREDEF (CTYPE_LONG)))); /*putupl#13 */ melt_assertmsg ("putupl #13 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V83*/ meltfptr[82])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #13 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V83*/ meltfptr[82])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V83*/ meltfptr[82]))->tabval[0] = (melt_ptr_t) ( /*_.VALSTR___V81*/ meltfptr[80]); /*putupl#14 */ melt_assertmsg ("putupl #14 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V83*/ meltfptr[82])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #14 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V83*/ meltfptr[82])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V83*/ meltfptr[82]))->tabval[1] = (melt_ptr_t) ( /*_.VALDATA___V78*/ meltfptr[77]); /*putupl#15 */ melt_assertmsg ("putupl #15 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V83*/ meltfptr[82])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #15 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V83*/ meltfptr[82])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V83*/ meltfptr[82]))->tabval[2] = (melt_ptr_t) ( /*_.VALSTR___V82*/ meltfptr[81]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V83*/ meltfptr[82]); MELT_LOCATION ("warmelt-debug.melt:61:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V75*/ meltfptr[74])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V75*/ meltfptr[74])))); ((meltobject_ptr_t) ( /*_.VALDATA___V75*/ meltfptr[74]))->obj_vartab[4] = (melt_ptr_t) ( /*_.VALTUP___V83*/ meltfptr[82]); MELT_LOCATION ("warmelt-debug.melt:61:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V75*/ meltfptr[74]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V84*/ meltfptr[83])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V84*/ meltfptr[83])))); ((meltobject_ptr_t) ( /*_.VALDATA___V84*/ meltfptr[83]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V85*/ meltfptr[84]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V84*/ meltfptr[83]); MELT_LOCATION ("warmelt-debug.melt:66:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V86*/ meltfptr[85])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V86*/ meltfptr[85])))); ((meltobject_ptr_t) ( /*_.VALDATA___V86*/ meltfptr[85]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V87*/ meltfptr[86]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V88*/ meltfptr[87]); MELT_LOCATION ("warmelt-debug.melt:66:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V86*/ meltfptr[85])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V86*/ meltfptr[85])))); ((meltobject_ptr_t) ( /*_.VALDATA___V86*/ meltfptr[85]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALTUP___V88*/ meltfptr[87]); MELT_LOCATION ("warmelt-debug.melt:66:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V86*/ meltfptr[85])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (3 >= 0 && 3 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V86*/ meltfptr[85])))); ((meltobject_ptr_t) ( /*_.VALDATA___V86*/ meltfptr[85]))->obj_vartab[3] = (melt_ptr_t) ( ((melt_ptr_t) (MELT_PREDEF (CTYPE_LONG)))); /*putupl#16 */ melt_assertmsg ("putupl #16 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V90*/ meltfptr[89])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #16 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V90*/ meltfptr[89])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V90*/ meltfptr[89]))->tabval[0] = (melt_ptr_t) ( /*_.VALSTR___V89*/ meltfptr[88]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V90*/ meltfptr[89]); MELT_LOCATION ("warmelt-debug.melt:66:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V86*/ meltfptr[85])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V86*/ meltfptr[85])))); ((meltobject_ptr_t) ( /*_.VALDATA___V86*/ meltfptr[85]))->obj_vartab[4] = (melt_ptr_t) ( /*_.VALTUP___V90*/ meltfptr[89]); MELT_LOCATION ("warmelt-debug.melt:66:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V86*/ meltfptr[85]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V91*/ meltfptr[90])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V91*/ meltfptr[90])))); ((meltobject_ptr_t) ( /*_.VALDATA___V91*/ meltfptr[90]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V92*/ meltfptr[91]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V91*/ meltfptr[90]); MELT_LOCATION ("warmelt-debug.melt:69:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V93*/ meltfptr[92])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V93*/ meltfptr[92])))); ((meltobject_ptr_t) ( /*_.VALDATA___V93*/ meltfptr[92]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V94*/ meltfptr[93]); MELT_LOCATION ("warmelt-debug.melt:69:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V95*/ meltfptr[94])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (0 >= 0 && 0 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V95*/ meltfptr[94])))); ((meltobject_ptr_t) ( /*_.VALDATA___V95*/ meltfptr[94]))->obj_vartab[0] = (melt_ptr_t) ( /*_.VALDATA___V78*/ meltfptr[77]); MELT_LOCATION ("warmelt-debug.melt:69:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V95*/ meltfptr[94])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V95*/ meltfptr[94])))); ((meltobject_ptr_t) ( /*_.VALDATA___V95*/ meltfptr[94]))->obj_vartab[1] = (melt_ptr_t) ( ((melt_ptr_t) (MELT_PREDEF (CTYPE_LONG)))); MELT_LOCATION ("warmelt-debug.melt:69:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V95*/ meltfptr[94]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V97*/ meltfptr[96])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V97*/ meltfptr[96])))); ((meltobject_ptr_t) ( /*_.VALDATA___V97*/ meltfptr[96]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V98*/ meltfptr[97]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V97*/ meltfptr[96]); MELT_LOCATION ("warmelt-debug.melt:69:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V96*/ meltfptr[95])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (0 >= 0 && 0 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V96*/ meltfptr[95])))); ((meltobject_ptr_t) ( /*_.VALDATA___V96*/ meltfptr[95]))->obj_vartab[0] = (melt_ptr_t) ( /*_.VALDATA___V97*/ meltfptr[96]); MELT_LOCATION ("warmelt-debug.melt:69:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V96*/ meltfptr[95])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V96*/ meltfptr[95])))); ((meltobject_ptr_t) ( /*_.VALDATA___V96*/ meltfptr[95]))->obj_vartab[1] = (melt_ptr_t) ( ((melt_ptr_t) (MELT_PREDEF (CTYPE_LONG)))); MELT_LOCATION ("warmelt-debug.melt:69:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V96*/ meltfptr[95]); /*putupl#17 */ melt_assertmsg ("putupl #17 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V99*/ meltfptr[98])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #17 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V99*/ meltfptr[98])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V99*/ meltfptr[98]))->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V95*/ meltfptr[94]); /*putupl#18 */ melt_assertmsg ("putupl #18 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V99*/ meltfptr[98])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #18 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V99*/ meltfptr[98])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V99*/ meltfptr[98]))->tabval[1] = (melt_ptr_t) ( /*_.VALDATA___V96*/ meltfptr[95]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V99*/ meltfptr[98]); MELT_LOCATION ("warmelt-debug.melt:69:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V93*/ meltfptr[92])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V93*/ meltfptr[92])))); ((meltobject_ptr_t) ( /*_.VALDATA___V93*/ meltfptr[92]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALTUP___V99*/ meltfptr[98]); MELT_LOCATION ("warmelt-debug.melt:69:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V93*/ meltfptr[92])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (3 >= 0 && 3 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V93*/ meltfptr[92])))); ((meltobject_ptr_t) ( /*_.VALDATA___V93*/ meltfptr[92]))->obj_vartab[3] = (melt_ptr_t) ( ((melt_ptr_t) (MELT_PREDEF (CTYPE_LONG)))); /*putupl#19 */ melt_assertmsg ("putupl #19 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V103*/ meltfptr[102])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #19 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V103*/ meltfptr[102])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V103*/ meltfptr[102]))->tabval[0] = (melt_ptr_t) ( /*_.VALSTR___V100*/ meltfptr[99]); /*putupl#20 */ melt_assertmsg ("putupl #20 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V103*/ meltfptr[102])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #20 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V103*/ meltfptr[102])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V103*/ meltfptr[102]))->tabval[1] = (melt_ptr_t) ( /*_.VALDATA___V78*/ meltfptr[77]); /*putupl#21 */ melt_assertmsg ("putupl #21 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V103*/ meltfptr[102])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #21 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V103*/ meltfptr[102])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V103*/ meltfptr[102]))->tabval[2] = (melt_ptr_t) ( /*_.VALSTR___V101*/ meltfptr[100]); /*putupl#22 */ melt_assertmsg ("putupl #22 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V103*/ meltfptr[102])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #22 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V103*/ meltfptr[102])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V103*/ meltfptr[102]))->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V97*/ meltfptr[96]); /*putupl#23 */ melt_assertmsg ("putupl #23 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V103*/ meltfptr[102])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #23 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V103*/ meltfptr[102])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V103*/ meltfptr[102]))->tabval[4] = (melt_ptr_t) ( /*_.VALSTR___V102*/ meltfptr[101]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V103*/ meltfptr[102]); MELT_LOCATION ("warmelt-debug.melt:69:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V93*/ meltfptr[92])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V93*/ meltfptr[92])))); ((meltobject_ptr_t) ( /*_.VALDATA___V93*/ meltfptr[92]))->obj_vartab[4] = (melt_ptr_t) ( /*_.VALTUP___V103*/ meltfptr[102]); MELT_LOCATION ("warmelt-debug.melt:69:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V93*/ meltfptr[92]); MELT_LOCATION ("warmelt-debug.melt:76:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V104*/ meltfptr[103])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_59__DEBUG_MSG_FUN#0", NULL != ( /*_.INITIAL_SYSTEM_DATA__V8*/ meltfptr[7])); ((meltroutine_ptr_t) /*_.VALROUT___V104*/ meltfptr[103])->tabval[0] = (melt_ptr_t) ( /*_.INITIAL_SYSTEM_DATA__V8*/ meltfptr[7]); MELT_LOCATION ("warmelt-debug.melt:76:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V104*/ meltfptr[103])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_59__DEBUG_MSG_FUN#1", NULL != ( /*_.CLASS_SYSTEM_DATA__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V104*/ meltfptr[103])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SYSTEM_DATA__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-debug.melt:76:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V104*/ meltfptr[103])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_59__DEBUG_MSG_FUN#2", NULL != ( /*_.DISCR_MAP_OBJECTS__V10*/ meltfptr[9])); ((meltroutine_ptr_t) /*_.VALROUT___V104*/ meltfptr[103])->tabval[2] = (melt_ptr_t) ( /*_.DISCR_MAP_OBJECTS__V10*/ meltfptr[9]); MELT_LOCATION ("warmelt-debug.melt:76:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V104*/ meltfptr[103])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_59__DEBUG_MSG_FUN#3", NULL != ( /*_.DISCR_INTEGER__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V104*/ meltfptr[103])->tabval[3] = (melt_ptr_t) ( /*_.DISCR_INTEGER__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-debug.melt:76:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V104*/ meltfptr[103])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_59__DEBUG_MSG_FUN#4", NULL != ( /*_.DISCR_STRBUF__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V104*/ meltfptr[103])->tabval[4] = (melt_ptr_t) ( /*_.DISCR_STRBUF__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-debug.melt:76:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V104*/ meltfptr[103])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V50*/ meltfptr[49]); ((meltroutine_ptr_t) /*_.VALROUT___V104*/ meltfptr[103])->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V50*/ meltfptr[49]); MELT_LOCATION ("warmelt-debug.melt:463:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V106*/ meltfptr[105])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V50*/ meltfptr[49]); ((meltroutine_ptr_t) /*_.VALROUT___V106*/ meltfptr[105])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V50*/ meltfptr[49]); MELT_LOCATION ("warmelt-debug.melt:443:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V108*/ meltfptr[107])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V50*/ meltfptr[49]); ((meltroutine_ptr_t) /*_.VALROUT___V108*/ meltfptr[107])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V50*/ meltfptr[49]); MELT_LOCATION ("warmelt-debug.melt:175:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V109*/ meltfptr[108])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V109*/ meltfptr[108])))); ((meltobject_ptr_t) ( /*_.VALDATA___V109*/ meltfptr[108]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V110*/ meltfptr[109]); MELT_LOCATION ("warmelt-debug.melt:175:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V109*/ meltfptr[108]); MELT_LOCATION ("warmelt-debug.melt:443:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V108*/ meltfptr[107])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V109*/ meltfptr[108]); ((meltroutine_ptr_t) /*_.VALROUT___V108*/ meltfptr[107])->tabval[1] = (melt_ptr_t) ( /*_.VALDATA___V109*/ meltfptr[108]); MELT_LOCATION ("warmelt-debug.melt:443:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V108*/ meltfptr[107])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_145__DBG_OUTOBJECT#2", NULL != ( /*_.DISCR_INTEGER__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V108*/ meltfptr[107])->tabval[2] = (melt_ptr_t) ( /*_.DISCR_INTEGER__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-debug.melt:166:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V111*/ meltfptr[110])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V111*/ meltfptr[110])))); ((meltobject_ptr_t) ( /*_.VALDATA___V111*/ meltfptr[110]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V112*/ meltfptr[111]); MELT_LOCATION ("warmelt-debug.melt:166:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V111*/ meltfptr[110]); MELT_LOCATION ("warmelt-debug.melt:443:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V108*/ meltfptr[107])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V111*/ meltfptr[110]); ((meltroutine_ptr_t) /*_.VALROUT___V108*/ meltfptr[107])->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V111*/ meltfptr[110]); MELT_LOCATION ("warmelt-debug.melt:443:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V108*/ meltfptr[107]); /*putclosurout#1 */ melt_assertmsg ("putclosrout#1 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V107*/ meltfptr[106])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#1 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V108*/ meltfptr[107])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V107*/ meltfptr[106])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V108*/ meltfptr[107]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V107*/ meltfptr[106]); MELT_LOCATION ("warmelt-debug.melt:463:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V106*/ meltfptr[105])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V107*/ meltfptr[106]); ((meltroutine_ptr_t) /*_.VALROUT___V106*/ meltfptr[105])->tabval[1] = (melt_ptr_t) ( /*_.VALCLO___V107*/ meltfptr[106]); MELT_LOCATION ("warmelt-debug.melt:463:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V106*/ meltfptr[105])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V111*/ meltfptr[110]); ((meltroutine_ptr_t) /*_.VALROUT___V106*/ meltfptr[105])->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V111*/ meltfptr[110]); MELT_LOCATION ("warmelt-debug.melt:463:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V106*/ meltfptr[105]); /*putclosurout#2 */ melt_assertmsg ("putclosrout#2 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V105*/ meltfptr[104])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#2 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V106*/ meltfptr[105])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V105*/ meltfptr[104])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V106*/ meltfptr[105]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V105*/ meltfptr[104]); MELT_LOCATION ("warmelt-debug.melt:76:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V104*/ meltfptr[103])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V105*/ meltfptr[104]); ((meltroutine_ptr_t) /*_.VALROUT___V104*/ meltfptr[103])->tabval[6] = (melt_ptr_t) ( /*_.VALCLO___V105*/ meltfptr[104]); MELT_LOCATION ("warmelt-debug.melt:76:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V104*/ meltfptr[103]); /*putclosurout#3 */ melt_assertmsg ("putclosrout#3 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V113*/ meltfptr[112])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#3 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V104*/ meltfptr[103])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V113*/ meltfptr[112])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V104*/ meltfptr[103]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V113*/ meltfptr[112]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V114*/ meltfptr[113])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V114*/ meltfptr[113])))); ((meltobject_ptr_t) ( /*_.VALDATA___V114*/ meltfptr[113]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V115*/ meltfptr[114]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V114*/ meltfptr[113]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V116*/ meltfptr[115])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V116*/ meltfptr[115])))); ((meltobject_ptr_t) ( /*_.VALDATA___V116*/ meltfptr[115]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V117*/ meltfptr[116]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V116*/ meltfptr[115]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V118*/ meltfptr[117])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V118*/ meltfptr[117])))); ((meltobject_ptr_t) ( /*_.VALDATA___V118*/ meltfptr[117]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V119*/ meltfptr[118]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V118*/ meltfptr[117]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V120*/ meltfptr[119])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V120*/ meltfptr[119])))); ((meltobject_ptr_t) ( /*_.VALDATA___V120*/ meltfptr[119]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V121*/ meltfptr[120]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V120*/ meltfptr[119]); #undef meltfram__ } /*end of meltmod__warmelt_debug__initialmeltchunk_0 */ void meltmod__warmelt_debug__initialmeltchunk_1 (struct frame_start_module_melt_st *meltmeltframptr__, char predefinited[]) { #define meltfram__ (*meltmeltframptr__) #undef meltcallcount #define meltcallcount 0L /*putslot*/ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V122*/ meltfptr[121])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V122*/ meltfptr[121])))); ((meltobject_ptr_t) ( /*_.VALDATA___V122*/ meltfptr[121]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V123*/ meltfptr[122]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V122*/ meltfptr[121]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V124*/ meltfptr[123])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V124*/ meltfptr[123])))); ((meltobject_ptr_t) ( /*_.VALDATA___V124*/ meltfptr[123]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V125*/ meltfptr[124]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V124*/ meltfptr[123]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V126*/ meltfptr[125])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V126*/ meltfptr[125])))); ((meltobject_ptr_t) ( /*_.VALDATA___V126*/ meltfptr[125]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V127*/ meltfptr[126]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V126*/ meltfptr[125]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V128*/ meltfptr[127])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V128*/ meltfptr[127])))); ((meltobject_ptr_t) ( /*_.VALDATA___V128*/ meltfptr[127]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V129*/ meltfptr[128]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V128*/ meltfptr[127]); MELT_LOCATION ("warmelt-debug.melt:166:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V130*/ meltfptr[129])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (0 >= 0 && 0 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V130*/ meltfptr[129])))); ((meltobject_ptr_t) ( /*_.VALDATA___V130*/ meltfptr[129]))->obj_vartab[0] = (melt_ptr_t) ( /*_.VALDATA___V128*/ meltfptr[127]); MELT_LOCATION ("warmelt-debug.melt:166:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V130*/ meltfptr[129])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V130*/ meltfptr[129])))); ((meltobject_ptr_t) ( /*_.VALDATA___V130*/ meltfptr[129]))->obj_vartab[1] = (melt_ptr_t) ( ((melt_ptr_t) (MELT_PREDEF (CTYPE_VALUE)))); MELT_LOCATION ("warmelt-debug.melt:166:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V130*/ meltfptr[129]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V131*/ meltfptr[130])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V131*/ meltfptr[130])))); ((meltobject_ptr_t) ( /*_.VALDATA___V131*/ meltfptr[130]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V132*/ meltfptr[131]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V131*/ meltfptr[130]); MELT_LOCATION ("warmelt-debug.melt:166:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V133*/ meltfptr[132])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (0 >= 0 && 0 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V133*/ meltfptr[132])))); ((meltobject_ptr_t) ( /*_.VALDATA___V133*/ meltfptr[132]))->obj_vartab[0] = (melt_ptr_t) ( /*_.VALDATA___V131*/ meltfptr[130]); MELT_LOCATION ("warmelt-debug.melt:166:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V133*/ meltfptr[132])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V133*/ meltfptr[132])))); ((meltobject_ptr_t) ( /*_.VALDATA___V133*/ meltfptr[132]))->obj_vartab[1] = (melt_ptr_t) ( ((melt_ptr_t) (MELT_PREDEF (CTYPE_VALUE)))); MELT_LOCATION ("warmelt-debug.melt:166:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V133*/ meltfptr[132]); MELT_LOCATION ("warmelt-debug.melt:166:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V134*/ meltfptr[133])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (0 >= 0 && 0 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V134*/ meltfptr[133])))); ((meltobject_ptr_t) ( /*_.VALDATA___V134*/ meltfptr[133]))->obj_vartab[0] = (melt_ptr_t) ( /*_.VALDATA___V78*/ meltfptr[77]); MELT_LOCATION ("warmelt-debug.melt:166:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V134*/ meltfptr[133])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V134*/ meltfptr[133])))); ((meltobject_ptr_t) ( /*_.VALDATA___V134*/ meltfptr[133]))->obj_vartab[1] = (melt_ptr_t) ( ((melt_ptr_t) (MELT_PREDEF (CTYPE_LONG)))); MELT_LOCATION ("warmelt-debug.melt:166:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V134*/ meltfptr[133]); /*putupl#24 */ melt_assertmsg ("putupl #24 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V135*/ meltfptr[134])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #24 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V135*/ meltfptr[134])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V135*/ meltfptr[134]))->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V130*/ meltfptr[129]); /*putupl#25 */ melt_assertmsg ("putupl #25 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V135*/ meltfptr[134])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #25 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V135*/ meltfptr[134])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V135*/ meltfptr[134]))->tabval[1] = (melt_ptr_t) ( /*_.VALDATA___V133*/ meltfptr[132]); /*putupl#26 */ melt_assertmsg ("putupl #26 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V135*/ meltfptr[134])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #26 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V135*/ meltfptr[134])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V135*/ meltfptr[134]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V134*/ meltfptr[133]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V135*/ meltfptr[134]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V136*/ meltfptr[135])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V136*/ meltfptr[135])))); ((meltobject_ptr_t) ( /*_.VALDATA___V136*/ meltfptr[135]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V137*/ meltfptr[136]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V136*/ meltfptr[135]); MELT_LOCATION ("warmelt-debug.melt:175:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V138*/ meltfptr[137])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (0 >= 0 && 0 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V138*/ meltfptr[137])))); ((meltobject_ptr_t) ( /*_.VALDATA___V138*/ meltfptr[137]))->obj_vartab[0] = (melt_ptr_t) ( /*_.VALDATA___V128*/ meltfptr[127]); MELT_LOCATION ("warmelt-debug.melt:175:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V138*/ meltfptr[137])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V138*/ meltfptr[137])))); ((meltobject_ptr_t) ( /*_.VALDATA___V138*/ meltfptr[137]))->obj_vartab[1] = (melt_ptr_t) ( ((melt_ptr_t) (MELT_PREDEF (CTYPE_VALUE)))); MELT_LOCATION ("warmelt-debug.melt:175:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V138*/ meltfptr[137]); MELT_LOCATION ("warmelt-debug.melt:175:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V139*/ meltfptr[138])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (0 >= 0 && 0 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V139*/ meltfptr[138])))); ((meltobject_ptr_t) ( /*_.VALDATA___V139*/ meltfptr[138]))->obj_vartab[0] = (melt_ptr_t) ( /*_.VALDATA___V131*/ meltfptr[130]); MELT_LOCATION ("warmelt-debug.melt:175:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V139*/ meltfptr[138])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V139*/ meltfptr[138])))); ((meltobject_ptr_t) ( /*_.VALDATA___V139*/ meltfptr[138]))->obj_vartab[1] = (melt_ptr_t) ( ((melt_ptr_t) (MELT_PREDEF (CTYPE_VALUE)))); MELT_LOCATION ("warmelt-debug.melt:175:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V139*/ meltfptr[138]); MELT_LOCATION ("warmelt-debug.melt:175:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V140*/ meltfptr[139])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (0 >= 0 && 0 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V140*/ meltfptr[139])))); ((meltobject_ptr_t) ( /*_.VALDATA___V140*/ meltfptr[139]))->obj_vartab[0] = (melt_ptr_t) ( /*_.VALDATA___V78*/ meltfptr[77]); MELT_LOCATION ("warmelt-debug.melt:175:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V140*/ meltfptr[139])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V140*/ meltfptr[139])))); ((meltobject_ptr_t) ( /*_.VALDATA___V140*/ meltfptr[139]))->obj_vartab[1] = (melt_ptr_t) ( ((melt_ptr_t) (MELT_PREDEF (CTYPE_LONG)))); MELT_LOCATION ("warmelt-debug.melt:175:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V140*/ meltfptr[139]); /*putupl#27 */ melt_assertmsg ("putupl #27 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V141*/ meltfptr[140])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #27 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V141*/ meltfptr[140])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V141*/ meltfptr[140]))->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V138*/ meltfptr[137]); /*putupl#28 */ melt_assertmsg ("putupl #28 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V141*/ meltfptr[140])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #28 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V141*/ meltfptr[140])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V141*/ meltfptr[140]))->tabval[1] = (melt_ptr_t) ( /*_.VALDATA___V139*/ meltfptr[138]); /*putupl#29 */ melt_assertmsg ("putupl #29 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V141*/ meltfptr[140])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #29 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V141*/ meltfptr[140])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V141*/ meltfptr[140]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V140*/ meltfptr[139]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V141*/ meltfptr[140]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V142*/ meltfptr[141])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V142*/ meltfptr[141])))); ((meltobject_ptr_t) ( /*_.VALDATA___V142*/ meltfptr[141]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V143*/ meltfptr[142]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V142*/ meltfptr[141]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V144*/ meltfptr[143])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V144*/ meltfptr[143])))); ((meltobject_ptr_t) ( /*_.VALDATA___V144*/ meltfptr[143]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V145*/ meltfptr[144]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V144*/ meltfptr[143]); MELT_LOCATION ("warmelt-debug.melt:186:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V146*/ meltfptr[145]); MELT_LOCATION ("warmelt-debug.melt:187:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V147*/ meltfptr[146])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V146*/ meltfptr[145]); ((meltroutine_ptr_t) /*_.VALROUT___V147*/ meltfptr[146])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V146*/ meltfptr[145]); MELT_LOCATION ("warmelt-debug.melt:187:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V147*/ meltfptr[146])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_98__REGISTER_TREE_DEBUG_FUN#1", NULL != ( /*_.CLASS_CONTAINER__V14*/ meltfptr[13])); ((meltroutine_ptr_t) /*_.VALROUT___V147*/ meltfptr[146])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_CONTAINER__V14*/ meltfptr[13]); MELT_LOCATION ("warmelt-debug.melt:187:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V147*/ meltfptr[146])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_98__REGISTER_TREE_DEBUG_FUN#2", NULL != ( /*_.SET_CONTENT__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V147*/ meltfptr[146])->tabval[2] = (melt_ptr_t) ( /*_.SET_CONTENT__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-debug.melt:187:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V147*/ meltfptr[146]); /*putclosurout#4 */ melt_assertmsg ("putclosrout#4 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V148*/ meltfptr[147])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#4 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V147*/ meltfptr[146])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V148*/ meltfptr[147])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V147*/ meltfptr[146]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V148*/ meltfptr[147]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V149*/ meltfptr[148])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V149*/ meltfptr[148])))); ((meltobject_ptr_t) ( /*_.VALDATA___V149*/ meltfptr[148]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V150*/ meltfptr[149]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V149*/ meltfptr[148]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V151*/ meltfptr[150])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V151*/ meltfptr[150])))); ((meltobject_ptr_t) ( /*_.VALDATA___V151*/ meltfptr[150]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V152*/ meltfptr[151]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V151*/ meltfptr[150]); MELT_LOCATION ("warmelt-debug.melt:199:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V153*/ meltfptr[152]); MELT_LOCATION ("warmelt-debug.melt:200:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V154*/ meltfptr[153])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V153*/ meltfptr[152]); ((meltroutine_ptr_t) /*_.VALROUT___V154*/ meltfptr[153])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V153*/ meltfptr[152]); MELT_LOCATION ("warmelt-debug.melt:200:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V154*/ meltfptr[153])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_105__REGISTER_GIMPLE_DEBUG_FUN#1", NULL != ( /*_.CLASS_CONTAINER__V14*/ meltfptr[13])); ((meltroutine_ptr_t) /*_.VALROUT___V154*/ meltfptr[153])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_CONTAINER__V14*/ meltfptr[13]); MELT_LOCATION ("warmelt-debug.melt:200:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V154*/ meltfptr[153])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_105__REGISTER_GIMPLE_DEBUG_FUN#2", NULL != ( /*_.SET_CONTENT__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V154*/ meltfptr[153])->tabval[2] = (melt_ptr_t) ( /*_.SET_CONTENT__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-debug.melt:200:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V154*/ meltfptr[153]); /*putclosurout#5 */ melt_assertmsg ("putclosrout#5 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V155*/ meltfptr[154])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#5 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V154*/ meltfptr[153])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V155*/ meltfptr[154])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V154*/ meltfptr[153]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V155*/ meltfptr[154]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V156*/ meltfptr[155])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V156*/ meltfptr[155])))); ((meltobject_ptr_t) ( /*_.VALDATA___V156*/ meltfptr[155]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V157*/ meltfptr[156]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V156*/ meltfptr[155]); MELT_LOCATION ("warmelt-debug.melt:212:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V158*/ meltfptr[157]); MELT_LOCATION ("warmelt-debug.melt:213:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V159*/ meltfptr[158])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V158*/ meltfptr[157]); ((meltroutine_ptr_t) /*_.VALROUT___V159*/ meltfptr[158])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V158*/ meltfptr[157]); MELT_LOCATION ("warmelt-debug.melt:213:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V159*/ meltfptr[158])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_110__REGISTER_GIMPLESEQ_DEBUG_FUN#1", NULL != ( /*_.CLASS_CONTAINER__V14*/ meltfptr[13])); ((meltroutine_ptr_t) /*_.VALROUT___V159*/ meltfptr[158])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_CONTAINER__V14*/ meltfptr[13]); MELT_LOCATION ("warmelt-debug.melt:213:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V159*/ meltfptr[158])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_110__REGISTER_GIMPLESEQ_DEBUG_FUN#2", NULL != ( /*_.SET_CONTENT__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V159*/ meltfptr[158])->tabval[2] = (melt_ptr_t) ( /*_.SET_CONTENT__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-debug.melt:213:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V159*/ meltfptr[158]); /*putclosurout#6 */ melt_assertmsg ("putclosrout#6 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V160*/ meltfptr[159])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#6 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V159*/ meltfptr[158])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V160*/ meltfptr[159])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V159*/ meltfptr[158]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V160*/ meltfptr[159]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V161*/ meltfptr[160])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V161*/ meltfptr[160])))); ((meltobject_ptr_t) ( /*_.VALDATA___V161*/ meltfptr[160]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V162*/ meltfptr[161]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V161*/ meltfptr[160]); MELT_LOCATION ("warmelt-debug.melt:225:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V163*/ meltfptr[162]); MELT_LOCATION ("warmelt-debug.melt:226:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V164*/ meltfptr[163])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V163*/ meltfptr[162]); ((meltroutine_ptr_t) /*_.VALROUT___V164*/ meltfptr[163])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V163*/ meltfptr[162]); MELT_LOCATION ("warmelt-debug.melt:226:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V164*/ meltfptr[163])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_115__REGISTER_EDGE_DEBUG_FUN#1", NULL != ( /*_.CLASS_CONTAINER__V14*/ meltfptr[13])); ((meltroutine_ptr_t) /*_.VALROUT___V164*/ meltfptr[163])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_CONTAINER__V14*/ meltfptr[13]); MELT_LOCATION ("warmelt-debug.melt:226:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V164*/ meltfptr[163])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_115__REGISTER_EDGE_DEBUG_FUN#2", NULL != ( /*_.SET_CONTENT__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V164*/ meltfptr[163])->tabval[2] = (melt_ptr_t) ( /*_.SET_CONTENT__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-debug.melt:226:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V164*/ meltfptr[163]); /*putclosurout#7 */ melt_assertmsg ("putclosrout#7 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V165*/ meltfptr[164])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#7 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V164*/ meltfptr[163])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V165*/ meltfptr[164])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V164*/ meltfptr[163]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V165*/ meltfptr[164]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V166*/ meltfptr[165])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V166*/ meltfptr[165])))); ((meltobject_ptr_t) ( /*_.VALDATA___V166*/ meltfptr[165]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V167*/ meltfptr[166]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V166*/ meltfptr[165]); MELT_LOCATION ("warmelt-debug.melt:238:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V168*/ meltfptr[167]); MELT_LOCATION ("warmelt-debug.melt:239:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V169*/ meltfptr[168])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V168*/ meltfptr[167]); ((meltroutine_ptr_t) /*_.VALROUT___V169*/ meltfptr[168])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V168*/ meltfptr[167]); MELT_LOCATION ("warmelt-debug.melt:239:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V169*/ meltfptr[168])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_120__REGISTER_BASICBLOCK_DEBUG_FUN#1", NULL != ( /*_.CLASS_CONTAINER__V14*/ meltfptr[13])); ((meltroutine_ptr_t) /*_.VALROUT___V169*/ meltfptr[168])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_CONTAINER__V14*/ meltfptr[13]); MELT_LOCATION ("warmelt-debug.melt:239:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V169*/ meltfptr[168])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_120__REGISTER_BASICBLOCK_DEBUG_FUN#2", NULL != ( /*_.SET_CONTENT__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V169*/ meltfptr[168])->tabval[2] = (melt_ptr_t) ( /*_.SET_CONTENT__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-debug.melt:239:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V169*/ meltfptr[168]); /*putclosurout#8 */ melt_assertmsg ("putclosrout#8 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V170*/ meltfptr[169])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#8 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V169*/ meltfptr[168])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V170*/ meltfptr[169])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V169*/ meltfptr[168]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V170*/ meltfptr[169]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V171*/ meltfptr[170])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V171*/ meltfptr[170])))); ((meltobject_ptr_t) ( /*_.VALDATA___V171*/ meltfptr[170]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V172*/ meltfptr[171]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V171*/ meltfptr[170]); MELT_LOCATION ("warmelt-debug.melt:251:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V173*/ meltfptr[172]); MELT_LOCATION ("warmelt-debug.melt:252:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V174*/ meltfptr[173])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V173*/ meltfptr[172]); ((meltroutine_ptr_t) /*_.VALROUT___V174*/ meltfptr[173])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V173*/ meltfptr[172]); MELT_LOCATION ("warmelt-debug.melt:252:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V174*/ meltfptr[173])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_125__REGISTER_LOOP_DEBUG_FUN#1", NULL != ( /*_.CLASS_CONTAINER__V14*/ meltfptr[13])); ((meltroutine_ptr_t) /*_.VALROUT___V174*/ meltfptr[173])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_CONTAINER__V14*/ meltfptr[13]); MELT_LOCATION ("warmelt-debug.melt:252:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V174*/ meltfptr[173])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_125__REGISTER_LOOP_DEBUG_FUN#2", NULL != ( /*_.SET_CONTENT__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V174*/ meltfptr[173])->tabval[2] = (melt_ptr_t) ( /*_.SET_CONTENT__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-debug.melt:252:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V174*/ meltfptr[173]); /*putclosurout#9 */ melt_assertmsg ("putclosrout#9 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V175*/ meltfptr[174])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#9 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V174*/ meltfptr[173])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V175*/ meltfptr[174])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V174*/ meltfptr[173]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V175*/ meltfptr[174]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V176*/ meltfptr[175])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V176*/ meltfptr[175])))); ((meltobject_ptr_t) ( /*_.VALDATA___V176*/ meltfptr[175]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V177*/ meltfptr[176]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V176*/ meltfptr[175]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V178*/ meltfptr[177])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V178*/ meltfptr[177])))); ((meltobject_ptr_t) ( /*_.VALDATA___V178*/ meltfptr[177]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V179*/ meltfptr[178]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V178*/ meltfptr[177]); MELT_LOCATION ("warmelt-debug.melt:264:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V180*/ meltfptr[179])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V180*/ meltfptr[179])))); ((meltobject_ptr_t) ( /*_.VALDATA___V180*/ meltfptr[179]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V181*/ meltfptr[180]); MELT_LOCATION ("warmelt-debug.melt:264:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V180*/ meltfptr[179])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V180*/ meltfptr[179])))); ((meltobject_ptr_t) ( /*_.VALDATA___V180*/ meltfptr[179]))->obj_vartab[4] = (melt_ptr_t) ( /*_.DISCR_CLOSURE__V17*/ meltfptr[16]); MELT_LOCATION ("warmelt-debug.melt:264:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V180*/ meltfptr[179]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V182*/ meltfptr[181])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V182*/ meltfptr[181])))); ((meltobject_ptr_t) ( /*_.VALDATA___V182*/ meltfptr[181]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V183*/ meltfptr[182]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V182*/ meltfptr[181]); MELT_LOCATION ("warmelt-debug.melt:273:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V184*/ meltfptr[183])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_135__MELT_DEBUG_FUN#0", NULL != ( /*_.INITIAL_SYSTEM_DATA__V8*/ meltfptr[7])); ((meltroutine_ptr_t) /*_.VALROUT___V184*/ meltfptr[183])->tabval[0] = (melt_ptr_t) ( /*_.INITIAL_SYSTEM_DATA__V8*/ meltfptr[7]); MELT_LOCATION ("warmelt-debug.melt:273:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V184*/ meltfptr[183])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_135__MELT_DEBUG_FUN#1", NULL != ( /*_.CLASS_SYSTEM_DATA__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V184*/ meltfptr[183])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SYSTEM_DATA__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-debug.melt:273:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V184*/ meltfptr[183])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_135__MELT_DEBUG_FUN#2", NULL != ( /*_.DISCR_MAP_OBJECTS__V10*/ meltfptr[9])); ((meltroutine_ptr_t) /*_.VALROUT___V184*/ meltfptr[183])->tabval[2] = (melt_ptr_t) ( /*_.DISCR_MAP_OBJECTS__V10*/ meltfptr[9]); MELT_LOCATION ("warmelt-debug.melt:273:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V184*/ meltfptr[183])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_135__MELT_DEBUG_FUN#3", NULL != ( /*_.DISCR_INTEGER__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V184*/ meltfptr[183])->tabval[3] = (melt_ptr_t) ( /*_.DISCR_INTEGER__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-debug.melt:273:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V184*/ meltfptr[183])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_135__MELT_DEBUG_FUN#4", NULL != ( /*_.DISCR_STRBUF__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V184*/ meltfptr[183])->tabval[4] = (melt_ptr_t) ( /*_.DISCR_STRBUF__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-debug.melt:273:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V184*/ meltfptr[183])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V50*/ meltfptr[49]); ((meltroutine_ptr_t) /*_.VALROUT___V184*/ meltfptr[183])->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V50*/ meltfptr[49]); MELT_LOCATION ("warmelt-debug.melt:273:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V184*/ meltfptr[183])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_135__MELT_DEBUG_FUN#6", NULL != ( /*_.ADD2OUT__V18*/ meltfptr[17])); ((meltroutine_ptr_t) /*_.VALROUT___V184*/ meltfptr[183])->tabval[6] = (melt_ptr_t) ( /*_.ADD2OUT__V18*/ meltfptr[17]); MELT_LOCATION ("warmelt-debug.melt:273:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V184*/ meltfptr[183])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_135__MELT_DEBUG_FUN#7", NULL != ( /*_.CSTRING_PREFIXED__V19*/ meltfptr[18])); ((meltroutine_ptr_t) /*_.VALROUT___V184*/ meltfptr[183])->tabval[7] = (melt_ptr_t) ( /*_.CSTRING_PREFIXED__V19*/ meltfptr[18]); MELT_LOCATION ("warmelt-debug.melt:273:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V184*/ meltfptr[183])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V180*/ meltfptr[179]); ((meltroutine_ptr_t) /*_.VALROUT___V184*/ meltfptr[183])->tabval[8] = (melt_ptr_t) ( /*_.VALDATA___V180*/ meltfptr[179]); MELT_LOCATION ("warmelt-debug.melt:273:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V184*/ meltfptr[183])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V105*/ meltfptr[104]); ((meltroutine_ptr_t) /*_.VALROUT___V184*/ meltfptr[183])->tabval[9] = (melt_ptr_t) ( /*_.VALCLO___V105*/ meltfptr[104]); MELT_LOCATION ("warmelt-debug.melt:273:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V184*/ meltfptr[183])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V146*/ meltfptr[145]); ((meltroutine_ptr_t) /*_.VALROUT___V184*/ meltfptr[183])->tabval[10] = (melt_ptr_t) ( /*_.VALDATA___V146*/ meltfptr[145]); MELT_LOCATION ("warmelt-debug.melt:273:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V184*/ meltfptr[183])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_135__MELT_DEBUG_FUN#11", NULL != ( /*_.CLASS_CONTAINER__V14*/ meltfptr[13])); ((meltroutine_ptr_t) /*_.VALROUT___V184*/ meltfptr[183])->tabval[11] = (melt_ptr_t) ( /*_.CLASS_CONTAINER__V14*/ meltfptr[13]); MELT_LOCATION ("warmelt-debug.melt:273:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V184*/ meltfptr[183])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V153*/ meltfptr[152]); ((meltroutine_ptr_t) /*_.VALROUT___V184*/ meltfptr[183])->tabval[12] = (melt_ptr_t) ( /*_.VALDATA___V153*/ meltfptr[152]); MELT_LOCATION ("warmelt-debug.melt:273:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V184*/ meltfptr[183])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V158*/ meltfptr[157]); ((meltroutine_ptr_t) /*_.VALROUT___V184*/ meltfptr[183])->tabval[13] = (melt_ptr_t) ( /*_.VALDATA___V158*/ meltfptr[157]); MELT_LOCATION ("warmelt-debug.melt:273:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V184*/ meltfptr[183])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V163*/ meltfptr[162]); ((meltroutine_ptr_t) /*_.VALROUT___V184*/ meltfptr[183])->tabval[14] = (melt_ptr_t) ( /*_.VALDATA___V163*/ meltfptr[162]); MELT_LOCATION ("warmelt-debug.melt:273:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V184*/ meltfptr[183])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V168*/ meltfptr[167]); ((meltroutine_ptr_t) /*_.VALROUT___V184*/ meltfptr[183])->tabval[15] = (melt_ptr_t) ( /*_.VALDATA___V168*/ meltfptr[167]); MELT_LOCATION ("warmelt-debug.melt:273:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V184*/ meltfptr[183])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V173*/ meltfptr[172]); ((meltroutine_ptr_t) /*_.VALROUT___V184*/ meltfptr[183])->tabval[16] = (melt_ptr_t) ( /*_.VALDATA___V173*/ meltfptr[172]); MELT_LOCATION ("warmelt-debug.melt:273:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V184*/ meltfptr[183])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_135__MELT_DEBUG_FUN#17", NULL != ( /*_.CLASS_NAMED__V20*/ meltfptr[19])); ((meltroutine_ptr_t) /*_.VALROUT___V184*/ meltfptr[183])->tabval[17] = (melt_ptr_t) ( /*_.CLASS_NAMED__V20*/ meltfptr[19]); MELT_LOCATION ("warmelt-debug.melt:273:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V184*/ meltfptr[183])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_135__MELT_DEBUG_FUN#18", NULL != ( /*_.CLASS_CTYPE__V21*/ meltfptr[20])); ((meltroutine_ptr_t) /*_.VALROUT___V184*/ meltfptr[183])->tabval[18] = (melt_ptr_t) ( /*_.CLASS_CTYPE__V21*/ meltfptr[20]); MELT_LOCATION ("warmelt-debug.melt:273:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V184*/ meltfptr[183]); /*putclosurout#10 */ melt_assertmsg ("putclosrout#10 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V185*/ meltfptr[184])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#10 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V184*/ meltfptr[183])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V185*/ meltfptr[184])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V184*/ meltfptr[183]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V185*/ meltfptr[184]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V186*/ meltfptr[185])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V186*/ meltfptr[185])))); ((meltobject_ptr_t) ( /*_.VALDATA___V186*/ meltfptr[185]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V187*/ meltfptr[186]); #undef meltfram__ } /*end of meltmod__warmelt_debug__initialmeltchunk_1 */ void meltmod__warmelt_debug__initialmeltchunk_2 (struct frame_start_module_melt_st *meltmeltframptr__, char predefinited[]) { #define meltfram__ (*meltmeltframptr__) #undef meltcallcount #define meltcallcount 0L /*touch:VALUEDATA_*/ meltgc_touch ( /*_.VALDATA___V186*/ meltfptr[185]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V188*/ meltfptr[187])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V188*/ meltfptr[187])))); ((meltobject_ptr_t) ( /*_.VALDATA___V188*/ meltfptr[187]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V189*/ meltfptr[188]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V188*/ meltfptr[187]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V190*/ meltfptr[189])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V190*/ meltfptr[189])))); ((meltobject_ptr_t) ( /*_.VALDATA___V190*/ meltfptr[189]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V191*/ meltfptr[190]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V190*/ meltfptr[189]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V192*/ meltfptr[191])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V192*/ meltfptr[191])))); ((meltobject_ptr_t) ( /*_.VALDATA___V192*/ meltfptr[191]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V193*/ meltfptr[192]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V192*/ meltfptr[191]); MELT_LOCATION ("warmelt-debug.melt:490:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V194*/ meltfptr[193])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V50*/ meltfptr[49]); ((meltroutine_ptr_t) /*_.VALROUT___V194*/ meltfptr[193])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V50*/ meltfptr[49]); MELT_LOCATION ("warmelt-debug.melt:490:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V194*/ meltfptr[193])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V105*/ meltfptr[104]); ((meltroutine_ptr_t) /*_.VALROUT___V194*/ meltfptr[193])->tabval[1] = (melt_ptr_t) ( /*_.VALCLO___V105*/ meltfptr[104]); MELT_LOCATION ("warmelt-debug.melt:490:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V194*/ meltfptr[193]); /*putclosurout#11 */ melt_assertmsg ("putclosrout#11 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V195*/ meltfptr[194])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#11 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V194*/ meltfptr[193])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V195*/ meltfptr[194])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V194*/ meltfptr[193]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V195*/ meltfptr[194]); MELT_LOCATION ("warmelt-debug.melt:542:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V196*/ meltfptr[195])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V50*/ meltfptr[49]); ((meltroutine_ptr_t) /*_.VALROUT___V196*/ meltfptr[195])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V50*/ meltfptr[49]); MELT_LOCATION ("warmelt-debug.melt:542:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V196*/ meltfptr[195])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V109*/ meltfptr[108]); ((meltroutine_ptr_t) /*_.VALROUT___V196*/ meltfptr[195])->tabval[1] = (melt_ptr_t) ( /*_.VALDATA___V109*/ meltfptr[108]); MELT_LOCATION ("warmelt-debug.melt:542:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V196*/ meltfptr[195]); /*putclosurout#12 */ melt_assertmsg ("putclosrout#12 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V197*/ meltfptr[196])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#12 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V196*/ meltfptr[195])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V197*/ meltfptr[196])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V196*/ meltfptr[195]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V197*/ meltfptr[196]); /*putclosurout#13 */ melt_assertmsg ("putclosrout#13 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V199*/ meltfptr[198])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#13 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V198*/ meltfptr[197])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V199*/ meltfptr[198])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V198*/ meltfptr[197]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V199*/ meltfptr[198]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V200*/ meltfptr[199])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V200*/ meltfptr[199])))); ((meltobject_ptr_t) ( /*_.VALDATA___V200*/ meltfptr[199]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V201*/ meltfptr[200]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V200*/ meltfptr[199]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V202*/ meltfptr[201])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V202*/ meltfptr[201])))); ((meltobject_ptr_t) ( /*_.VALDATA___V202*/ meltfptr[201]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V203*/ meltfptr[202]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V202*/ meltfptr[201]); MELT_LOCATION ("warmelt-debug.melt:591:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V204*/ meltfptr[203])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V50*/ meltfptr[49]); ((meltroutine_ptr_t) /*_.VALROUT___V204*/ meltfptr[203])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V50*/ meltfptr[49]); MELT_LOCATION ("warmelt-debug.melt:591:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V204*/ meltfptr[203])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_159__DBGOUT_STRING_METHOD#1", NULL != ( /*_.DISCR_STRING__V24*/ meltfptr[23])); ((meltroutine_ptr_t) /*_.VALROUT___V204*/ meltfptr[203])->tabval[1] = (melt_ptr_t) ( /*_.DISCR_STRING__V24*/ meltfptr[23]); MELT_LOCATION ("warmelt-debug.melt:591:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V204*/ meltfptr[203]); /*putclosurout#14 */ melt_assertmsg ("putclosrout#14 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V205*/ meltfptr[204])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#14 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V204*/ meltfptr[203])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V205*/ meltfptr[204])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V204*/ meltfptr[203]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V205*/ meltfptr[204]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V206*/ meltfptr[205])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V206*/ meltfptr[205])))); ((meltobject_ptr_t) ( /*_.VALDATA___V206*/ meltfptr[205]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V207*/ meltfptr[206]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V206*/ meltfptr[205]); MELT_LOCATION ("warmelt-debug.melt:613:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V208*/ meltfptr[207])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V50*/ meltfptr[49]); ((meltroutine_ptr_t) /*_.VALROUT___V208*/ meltfptr[207])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V50*/ meltfptr[49]); MELT_LOCATION ("warmelt-debug.melt:613:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V208*/ meltfptr[207])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_163__DBGOUT_STRBUF_METHOD#1", NULL != ( /*_.CLASS_NAMED__V20*/ meltfptr[19])); ((meltroutine_ptr_t) /*_.VALROUT___V208*/ meltfptr[207])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_NAMED__V20*/ meltfptr[19]); MELT_LOCATION ("warmelt-debug.melt:613:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V208*/ meltfptr[207])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_163__DBGOUT_STRBUF_METHOD#2", NULL != ( /*_.ADD2OUT__V18*/ meltfptr[17])); ((meltroutine_ptr_t) /*_.VALROUT___V208*/ meltfptr[207])->tabval[2] = (melt_ptr_t) ( /*_.ADD2OUT__V18*/ meltfptr[17]); MELT_LOCATION ("warmelt-debug.melt:613:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V208*/ meltfptr[207]); /*putclosurout#15 */ melt_assertmsg ("putclosrout#15 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V209*/ meltfptr[208])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#15 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V208*/ meltfptr[207])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V209*/ meltfptr[208])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V208*/ meltfptr[207]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V209*/ meltfptr[208]); MELT_LOCATION ("warmelt-debug.melt:698:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V210*/ meltfptr[209])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V50*/ meltfptr[49]); ((meltroutine_ptr_t) /*_.VALROUT___V210*/ meltfptr[209])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V50*/ meltfptr[49]); MELT_LOCATION ("warmelt-debug.melt:698:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V210*/ meltfptr[209])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_165__DBGOUT_INTEGER_METHOD#1", NULL != ( /*_.DISCR_INTEGER__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V210*/ meltfptr[209])->tabval[1] = (melt_ptr_t) ( /*_.DISCR_INTEGER__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-debug.melt:698:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V210*/ meltfptr[209]); /*putclosurout#16 */ melt_assertmsg ("putclosrout#16 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V211*/ meltfptr[210])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#16 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V210*/ meltfptr[209])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V211*/ meltfptr[210])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V210*/ meltfptr[209]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V211*/ meltfptr[210]); MELT_LOCATION ("warmelt-debug.melt:717:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V212*/ meltfptr[211])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V50*/ meltfptr[49]); ((meltroutine_ptr_t) /*_.VALROUT___V212*/ meltfptr[211])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V50*/ meltfptr[49]); MELT_LOCATION ("warmelt-debug.melt:717:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V212*/ meltfptr[211])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_167__DBGOUT_MIXINT_METHOD#1", NULL != ( /*_.DISCR_MIXED_INTEGER__V25*/ meltfptr[24])); ((meltroutine_ptr_t) /*_.VALROUT___V212*/ meltfptr[211])->tabval[1] = (melt_ptr_t) ( /*_.DISCR_MIXED_INTEGER__V25*/ meltfptr[24]); MELT_LOCATION ("warmelt-debug.melt:717:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V212*/ meltfptr[211])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V105*/ meltfptr[104]); ((meltroutine_ptr_t) /*_.VALROUT___V212*/ meltfptr[211])->tabval[2] = (melt_ptr_t) ( /*_.VALCLO___V105*/ meltfptr[104]); MELT_LOCATION ("warmelt-debug.melt:717:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V212*/ meltfptr[211]); /*putclosurout#17 */ melt_assertmsg ("putclosrout#17 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V213*/ meltfptr[212])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#17 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V212*/ meltfptr[211])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V213*/ meltfptr[212])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V212*/ meltfptr[211]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V213*/ meltfptr[212]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V214*/ meltfptr[213])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V214*/ meltfptr[213])))); ((meltobject_ptr_t) ( /*_.VALDATA___V214*/ meltfptr[213]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V215*/ meltfptr[214]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V214*/ meltfptr[213]); MELT_LOCATION ("warmelt-debug.melt:744:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V216*/ meltfptr[215])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V50*/ meltfptr[49]); ((meltroutine_ptr_t) /*_.VALROUT___V216*/ meltfptr[215])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V50*/ meltfptr[49]); MELT_LOCATION ("warmelt-debug.melt:744:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V216*/ meltfptr[215])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_171__DBGOUT_MIXLOC_METHOD#1", NULL != ( /*_.DISCR_MIXED_LOCATION__V26*/ meltfptr[25])); ((meltroutine_ptr_t) /*_.VALROUT___V216*/ meltfptr[215])->tabval[1] = (melt_ptr_t) ( /*_.DISCR_MIXED_LOCATION__V26*/ meltfptr[25]); MELT_LOCATION ("warmelt-debug.melt:744:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V216*/ meltfptr[215]); /*putclosurout#18 */ melt_assertmsg ("putclosrout#18 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V217*/ meltfptr[216])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#18 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V216*/ meltfptr[215])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V217*/ meltfptr[216])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V216*/ meltfptr[215]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V217*/ meltfptr[216]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V218*/ meltfptr[217])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V218*/ meltfptr[217])))); ((meltobject_ptr_t) ( /*_.VALDATA___V218*/ meltfptr[217]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V219*/ meltfptr[218]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V218*/ meltfptr[217]); MELT_LOCATION ("warmelt-debug.melt:773:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V220*/ meltfptr[219])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V50*/ meltfptr[49]); ((meltroutine_ptr_t) /*_.VALROUT___V220*/ meltfptr[219])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V50*/ meltfptr[49]); MELT_LOCATION ("warmelt-debug.melt:773:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V220*/ meltfptr[219])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V105*/ meltfptr[104]); ((meltroutine_ptr_t) /*_.VALROUT___V220*/ meltfptr[219])->tabval[1] = (melt_ptr_t) ( /*_.VALCLO___V105*/ meltfptr[104]); MELT_LOCATION ("warmelt-debug.melt:773:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V220*/ meltfptr[219]); /*putclosurout#19 */ melt_assertmsg ("putclosrout#19 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V221*/ meltfptr[220])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#19 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V220*/ meltfptr[219])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V221*/ meltfptr[220])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V220*/ meltfptr[219]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V221*/ meltfptr[220]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V222*/ meltfptr[221])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V222*/ meltfptr[221])))); ((meltobject_ptr_t) ( /*_.VALDATA___V222*/ meltfptr[221]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V223*/ meltfptr[222]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V222*/ meltfptr[221]); MELT_LOCATION ("warmelt-debug.melt:795:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V224*/ meltfptr[223])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V50*/ meltfptr[49]); ((meltroutine_ptr_t) /*_.VALROUT___V224*/ meltfptr[223])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V50*/ meltfptr[49]); MELT_LOCATION ("warmelt-debug.melt:795:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V224*/ meltfptr[223])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_179__DBGOUT_MULTIPLE_METHOD#1", NULL != ( /*_.DISCR_MULTIPLE__V28*/ meltfptr[27])); ((meltroutine_ptr_t) /*_.VALROUT___V224*/ meltfptr[223])->tabval[1] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V28*/ meltfptr[27]); MELT_LOCATION ("warmelt-debug.melt:795:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V224*/ meltfptr[223])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V105*/ meltfptr[104]); ((meltroutine_ptr_t) /*_.VALROUT___V224*/ meltfptr[223])->tabval[2] = (melt_ptr_t) ( /*_.VALCLO___V105*/ meltfptr[104]); MELT_LOCATION ("warmelt-debug.melt:795:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V224*/ meltfptr[223]); /*putclosurout#20 */ melt_assertmsg ("putclosrout#20 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V225*/ meltfptr[224])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#20 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V224*/ meltfptr[223])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V225*/ meltfptr[224])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V224*/ meltfptr[223]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V225*/ meltfptr[224]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V226*/ meltfptr[225])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V226*/ meltfptr[225])))); ((meltobject_ptr_t) ( /*_.VALDATA___V226*/ meltfptr[225]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V227*/ meltfptr[226]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V226*/ meltfptr[225]); MELT_LOCATION ("warmelt-debug.melt:828:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V228*/ meltfptr[227])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V50*/ meltfptr[49]); ((meltroutine_ptr_t) /*_.VALROUT___V228*/ meltfptr[227])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V50*/ meltfptr[49]); MELT_LOCATION ("warmelt-debug.melt:828:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V228*/ meltfptr[227])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_183__DBGOUT_ROUTINE_METHOD#1", NULL != ( /*_.DISCR_INTEGER__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V228*/ meltfptr[227])->tabval[1] = (melt_ptr_t) ( /*_.DISCR_INTEGER__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-debug.melt:828:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V228*/ meltfptr[227])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_183__DBGOUT_ROUTINE_METHOD#2", NULL != ( /*_.DISCR_ROUTINE__V29*/ meltfptr[28])); ((meltroutine_ptr_t) /*_.VALROUT___V228*/ meltfptr[227])->tabval[2] = (melt_ptr_t) ( /*_.DISCR_ROUTINE__V29*/ meltfptr[28]); MELT_LOCATION ("warmelt-debug.melt:828:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V228*/ meltfptr[227])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_183__DBGOUT_ROUTINE_METHOD#3", NULL != ( /*_.ROUTINE_EVERY__V30*/ meltfptr[29])); ((meltroutine_ptr_t) /*_.VALROUT___V228*/ meltfptr[227])->tabval[3] = (melt_ptr_t) ( /*_.ROUTINE_EVERY__V30*/ meltfptr[29]); MELT_LOCATION ("warmelt-debug.melt:828:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V228*/ meltfptr[227])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V105*/ meltfptr[104]); ((meltroutine_ptr_t) /*_.VALROUT___V228*/ meltfptr[227])->tabval[4] = (melt_ptr_t) ( /*_.VALCLO___V105*/ meltfptr[104]); MELT_LOCATION ("warmelt-debug.melt:843:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V229*/ meltfptr[228])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V105*/ meltfptr[104]); ((meltroutine_ptr_t) /*_.VALROUT___V229*/ meltfptr[228])->tabval[0] = (melt_ptr_t) ( /*_.VALCLO___V105*/ meltfptr[104]); MELT_LOCATION ("warmelt-debug.melt:843:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V229*/ meltfptr[228]); MELT_LOCATION ("warmelt-debug.melt:828:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V228*/ meltfptr[227])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_183__DBGOUT_ROUTINE_METHOD#5", NULL != ( /*_.VALROUT___V229*/ meltfptr[228])); ((meltroutine_ptr_t) /*_.VALROUT___V228*/ meltfptr[227])->tabval[5] = (melt_ptr_t) ( /*_.VALROUT___V229*/ meltfptr[228]); MELT_LOCATION ("warmelt-debug.melt:828:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V228*/ meltfptr[227]); /*putclosurout#21 */ melt_assertmsg ("putclosrout#21 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V230*/ meltfptr[229])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#21 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V228*/ meltfptr[227])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V230*/ meltfptr[229])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V228*/ meltfptr[227]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V230*/ meltfptr[229]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V231*/ meltfptr[230])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V231*/ meltfptr[230])))); ((meltobject_ptr_t) ( /*_.VALDATA___V231*/ meltfptr[230]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V232*/ meltfptr[231]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V231*/ meltfptr[230]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V233*/ meltfptr[232])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V233*/ meltfptr[232])))); ((meltobject_ptr_t) ( /*_.VALDATA___V233*/ meltfptr[232]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V234*/ meltfptr[233]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V233*/ meltfptr[232]); MELT_LOCATION ("warmelt-debug.melt:855:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V235*/ meltfptr[234])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V50*/ meltfptr[49]); ((meltroutine_ptr_t) /*_.VALROUT___V235*/ meltfptr[234])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V50*/ meltfptr[49]); MELT_LOCATION ("warmelt-debug.melt:855:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V235*/ meltfptr[234])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_190__DBGOUT_CLOSURE_METHOD#1", NULL != ( /*_.DISCR_CLOSURE__V17*/ meltfptr[16])); ((meltroutine_ptr_t) /*_.VALROUT___V235*/ meltfptr[234])->tabval[1] = (melt_ptr_t) ( /*_.DISCR_CLOSURE__V17*/ meltfptr[16]); MELT_LOCATION ("warmelt-debug.melt:855:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V235*/ meltfptr[234])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V105*/ meltfptr[104]); ((meltroutine_ptr_t) /*_.VALROUT___V235*/ meltfptr[234])->tabval[2] = (melt_ptr_t) ( /*_.VALCLO___V105*/ meltfptr[104]); MELT_LOCATION ("warmelt-debug.melt:855:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V235*/ meltfptr[234]); /*putclosurout#22 */ melt_assertmsg ("putclosrout#22 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V236*/ meltfptr[235])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#22 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V235*/ meltfptr[234])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V236*/ meltfptr[235])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V235*/ meltfptr[234]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V236*/ meltfptr[235]); MELT_LOCATION ("warmelt-debug.melt:895:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V237*/ meltfptr[236])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V50*/ meltfptr[49]); ((meltroutine_ptr_t) /*_.VALROUT___V237*/ meltfptr[236])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V50*/ meltfptr[49]); MELT_LOCATION ("warmelt-debug.melt:895:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V237*/ meltfptr[236])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_192__DBGOUT_LIST_METHOD#1", NULL != ( /*_.DISCR_LIST__V31*/ meltfptr[30])); ((meltroutine_ptr_t) /*_.VALROUT___V237*/ meltfptr[236])->tabval[1] = (melt_ptr_t) ( /*_.DISCR_LIST__V31*/ meltfptr[30]); MELT_LOCATION ("warmelt-debug.melt:895:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V237*/ meltfptr[236])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V105*/ meltfptr[104]); ((meltroutine_ptr_t) /*_.VALROUT___V237*/ meltfptr[236])->tabval[2] = (melt_ptr_t) ( /*_.VALCLO___V105*/ meltfptr[104]); MELT_LOCATION ("warmelt-debug.melt:895:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V237*/ meltfptr[236]); /*putclosurout#23 */ melt_assertmsg ("putclosrout#23 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V238*/ meltfptr[237])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#23 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V237*/ meltfptr[236])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V238*/ meltfptr[237])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V237*/ meltfptr[236]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V238*/ meltfptr[237]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V239*/ meltfptr[238])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V239*/ meltfptr[238])))); ((meltobject_ptr_t) ( /*_.VALDATA___V239*/ meltfptr[238]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V240*/ meltfptr[239]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V239*/ meltfptr[238]); MELT_LOCATION ("warmelt-debug.melt:935:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V241*/ meltfptr[240])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V50*/ meltfptr[49]); ((meltroutine_ptr_t) /*_.VALROUT___V241*/ meltfptr[240])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V50*/ meltfptr[49]); MELT_LOCATION ("warmelt-debug.melt:935:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V241*/ meltfptr[240])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_196__DBGOUT_PAIR_METHOD#1", NULL != ( /*_.DISCR_PAIR__V32*/ meltfptr[31])); ((meltroutine_ptr_t) /*_.VALROUT___V241*/ meltfptr[240])->tabval[1] = (melt_ptr_t) ( /*_.DISCR_PAIR__V32*/ meltfptr[31]); MELT_LOCATION ("warmelt-debug.melt:935:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V241*/ meltfptr[240])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V105*/ meltfptr[104]); ((meltroutine_ptr_t) /*_.VALROUT___V241*/ meltfptr[240])->tabval[2] = (melt_ptr_t) ( /*_.VALCLO___V105*/ meltfptr[104]); MELT_LOCATION ("warmelt-debug.melt:935:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V241*/ meltfptr[240]); /*putclosurout#24 */ melt_assertmsg ("putclosrout#24 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V242*/ meltfptr[241])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#24 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V241*/ meltfptr[240])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V242*/ meltfptr[241])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V241*/ meltfptr[240]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V242*/ meltfptr[241]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V243*/ meltfptr[242])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V243*/ meltfptr[242])))); ((meltobject_ptr_t) ( /*_.VALDATA___V243*/ meltfptr[242]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V244*/ meltfptr[243]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V243*/ meltfptr[242]); MELT_LOCATION ("warmelt-debug.melt:957:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V245*/ meltfptr[244])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V50*/ meltfptr[49]); ((meltroutine_ptr_t) /*_.VALROUT___V245*/ meltfptr[244])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V50*/ meltfptr[49]); MELT_LOCATION ("warmelt-debug.melt:957:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V245*/ meltfptr[244])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_200__DBGOUT_MAPOBJECT_METHOD#1", NULL != ( /*_.DISCR_MAP_OBJECTS__V10*/ meltfptr[9])); ((meltroutine_ptr_t) /*_.VALROUT___V245*/ meltfptr[244])->tabval[1] = (melt_ptr_t) ( /*_.DISCR_MAP_OBJECTS__V10*/ meltfptr[9]); MELT_LOCATION ("warmelt-debug.melt:957:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V245*/ meltfptr[244])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_200__DBGOUT_MAPOBJECT_METHOD#2", NULL != ( /*_.DISCR_INTEGER__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V245*/ meltfptr[244])->tabval[2] = (melt_ptr_t) ( /*_.DISCR_INTEGER__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-debug.melt:957:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V245*/ meltfptr[244])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_200__DBGOUT_MAPOBJECT_METHOD#3", NULL != ( /*_.DISCR_MULTIPLE__V28*/ meltfptr[27])); ((meltroutine_ptr_t) /*_.VALROUT___V245*/ meltfptr[244])->tabval[3] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V28*/ meltfptr[27]); MELT_LOCATION ("warmelt-debug.melt:957:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V245*/ meltfptr[244])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_200__DBGOUT_MAPOBJECT_METHOD#4", NULL != ( /*_.ADD2OUT__V18*/ meltfptr[17])); ((meltroutine_ptr_t) /*_.VALROUT___V245*/ meltfptr[244])->tabval[4] = (melt_ptr_t) ( /*_.ADD2OUT__V18*/ meltfptr[17]); MELT_LOCATION ("warmelt-debug.melt:957:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V245*/ meltfptr[244])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V105*/ meltfptr[104]); ((meltroutine_ptr_t) /*_.VALROUT___V245*/ meltfptr[244])->tabval[5] = (melt_ptr_t) ( /*_.VALCLO___V105*/ meltfptr[104]); MELT_LOCATION ("warmelt-debug.melt:957:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V245*/ meltfptr[244])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_200__DBGOUT_MAPOBJECT_METHOD#6", NULL != ( /*_.MAPOBJECT_EVERY__V33*/ meltfptr[32])); ((meltroutine_ptr_t) /*_.VALROUT___V245*/ meltfptr[244])->tabval[6] = (melt_ptr_t) ( /*_.MAPOBJECT_EVERY__V33*/ meltfptr[32]); MELT_LOCATION ("warmelt-debug.melt:957:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V245*/ meltfptr[244])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_200__DBGOUT_MAPOBJECT_METHOD#7", NULL != ( /*_.DISCR_INTEGER__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V245*/ meltfptr[244])->tabval[7] = (melt_ptr_t) ( /*_.DISCR_INTEGER__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-debug.melt:990:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V246*/ meltfptr[245])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_204__LAMBDA_#0", NULL != ( /*_.DISCR_INTEGER__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V246*/ meltfptr[245])->tabval[0] = (melt_ptr_t) ( /*_.DISCR_INTEGER__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-debug.melt:990:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V246*/ meltfptr[245]); MELT_LOCATION ("warmelt-debug.melt:957:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V245*/ meltfptr[244])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_200__DBGOUT_MAPOBJECT_METHOD#8", NULL != ( /*_.VALROUT___V246*/ meltfptr[245])); ((meltroutine_ptr_t) /*_.VALROUT___V245*/ meltfptr[244])->tabval[8] = (melt_ptr_t) ( /*_.VALROUT___V246*/ meltfptr[245]); MELT_LOCATION ("warmelt-debug.melt:957:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V245*/ meltfptr[244])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_200__DBGOUT_MAPOBJECT_METHOD#9", NULL != ( /*_.COMPARE_OBJ_RANKED__V34*/ meltfptr[33])); ((meltroutine_ptr_t) /*_.VALROUT___V245*/ meltfptr[244])->tabval[9] = (melt_ptr_t) ( /*_.COMPARE_OBJ_RANKED__V34*/ meltfptr[33]); MELT_LOCATION ("warmelt-debug.melt:1003:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V247*/ meltfptr[246])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_205__LAMBDA_#0", NULL != ( /*_.COMPARE_OBJ_RANKED__V34*/ meltfptr[33])); ((meltroutine_ptr_t) /*_.VALROUT___V247*/ meltfptr[246])->tabval[0] = (melt_ptr_t) ( /*_.COMPARE_OBJ_RANKED__V34*/ meltfptr[33]); MELT_LOCATION ("warmelt-debug.melt:1003:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V247*/ meltfptr[246])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_205__LAMBDA_#1", NULL != ( /*_.VALBXINT___V248*/ meltfptr[247])); ((meltroutine_ptr_t) /*_.VALROUT___V247*/ meltfptr[246])->tabval[1] = (melt_ptr_t) ( /*_.VALBXINT___V248*/ meltfptr[247]); MELT_LOCATION ("warmelt-debug.melt:1003:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V247*/ meltfptr[246])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_205__LAMBDA_#2", NULL != ( /*_.VALBXINT___V249*/ meltfptr[248])); ((meltroutine_ptr_t) /*_.VALROUT___V247*/ meltfptr[246])->tabval[2] = (melt_ptr_t) ( /*_.VALBXINT___V249*/ meltfptr[248]); MELT_LOCATION ("warmelt-debug.melt:1003:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V247*/ meltfptr[246])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_205__LAMBDA_#3", NULL != ( /*_.VALBXINT___V250*/ meltfptr[249])); ((meltroutine_ptr_t) /*_.VALROUT___V247*/ meltfptr[246])->tabval[3] = (melt_ptr_t) ( /*_.VALBXINT___V250*/ meltfptr[249]); MELT_LOCATION ("warmelt-debug.melt:1003:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V247*/ meltfptr[246]); MELT_LOCATION ("warmelt-debug.melt:957:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V245*/ meltfptr[244])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_200__DBGOUT_MAPOBJECT_METHOD#10", NULL != ( /*_.VALROUT___V247*/ meltfptr[246])); ((meltroutine_ptr_t) /*_.VALROUT___V245*/ meltfptr[244])->tabval[10] = (melt_ptr_t) ( /*_.VALROUT___V247*/ meltfptr[246]); MELT_LOCATION ("warmelt-debug.melt:957:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V245*/ meltfptr[244])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_200__DBGOUT_MAPOBJECT_METHOD#11", NULL != ( /*_.MULTIPLE_EVERY__V35*/ meltfptr[34])); ((meltroutine_ptr_t) /*_.VALROUT___V245*/ meltfptr[244])->tabval[11] = (melt_ptr_t) ( /*_.MULTIPLE_EVERY__V35*/ meltfptr[34]); MELT_LOCATION ("warmelt-debug.melt:957:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V245*/ meltfptr[244])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V107*/ meltfptr[106]); ((meltroutine_ptr_t) /*_.VALROUT___V245*/ meltfptr[244])->tabval[12] = (melt_ptr_t) ( /*_.VALCLO___V107*/ meltfptr[106]); #undef meltfram__ } /*end of meltmod__warmelt_debug__initialmeltchunk_2 */ void meltmod__warmelt_debug__initialmeltchunk_3 (struct frame_start_module_melt_st *meltmeltframptr__, char predefinited[]) { #define meltfram__ (*meltmeltframptr__) #undef meltcallcount #define meltcallcount 0L MELT_LOCATION ("warmelt-debug.melt:957:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V245*/ meltfptr[244])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V105*/ meltfptr[104]); ((meltroutine_ptr_t) /*_.VALROUT___V245*/ meltfptr[244])->tabval[13] = (melt_ptr_t) ( /*_.VALCLO___V105*/ meltfptr[104]); MELT_LOCATION ("warmelt-debug.melt:1019:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V251*/ meltfptr[250])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V107*/ meltfptr[106]); ((meltroutine_ptr_t) /*_.VALROUT___V251*/ meltfptr[250])->tabval[0] = (melt_ptr_t) ( /*_.VALCLO___V107*/ meltfptr[106]); MELT_LOCATION ("warmelt-debug.melt:1019:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V251*/ meltfptr[250])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V105*/ meltfptr[104]); ((meltroutine_ptr_t) /*_.VALROUT___V251*/ meltfptr[250])->tabval[1] = (melt_ptr_t) ( /*_.VALCLO___V105*/ meltfptr[104]); MELT_LOCATION ("warmelt-debug.melt:1019:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V251*/ meltfptr[250]); MELT_LOCATION ("warmelt-debug.melt:957:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V245*/ meltfptr[244])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_200__DBGOUT_MAPOBJECT_METHOD#14", NULL != ( /*_.VALROUT___V251*/ meltfptr[250])); ((meltroutine_ptr_t) /*_.VALROUT___V245*/ meltfptr[244])->tabval[14] = (melt_ptr_t) ( /*_.VALROUT___V251*/ meltfptr[250]); MELT_LOCATION ("warmelt-debug.melt:957:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V245*/ meltfptr[244]); /*putclosurout#25 */ melt_assertmsg ("putclosrout#25 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V252*/ meltfptr[251])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#25 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V245*/ meltfptr[244])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V252*/ meltfptr[251])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V245*/ meltfptr[244]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V252*/ meltfptr[251]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V253*/ meltfptr[252])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V253*/ meltfptr[252])))); ((meltobject_ptr_t) ( /*_.VALDATA___V253*/ meltfptr[252]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V254*/ meltfptr[253]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V253*/ meltfptr[252]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V255*/ meltfptr[254])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V255*/ meltfptr[254])))); ((meltobject_ptr_t) ( /*_.VALDATA___V255*/ meltfptr[254]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V256*/ meltfptr[255]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V255*/ meltfptr[254]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V257*/ meltfptr[256])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V257*/ meltfptr[256])))); ((meltobject_ptr_t) ( /*_.VALDATA___V257*/ meltfptr[256]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V258*/ meltfptr[257]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V257*/ meltfptr[256]); MELT_LOCATION ("warmelt-debug.melt:1042:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V259*/ meltfptr[258])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V50*/ meltfptr[49]); ((meltroutine_ptr_t) /*_.VALROUT___V259*/ meltfptr[258])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V50*/ meltfptr[49]); MELT_LOCATION ("warmelt-debug.melt:1042:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V259*/ meltfptr[258])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_214__DBGOUT_MAPSTRING_METHOD#1", NULL != ( /*_.DISCR_INTEGER__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V259*/ meltfptr[258])->tabval[1] = (melt_ptr_t) ( /*_.DISCR_INTEGER__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-debug.melt:1042:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V259*/ meltfptr[258])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_214__DBGOUT_MAPSTRING_METHOD#2", NULL != ( /*_.DISCR_MULTIPLE__V28*/ meltfptr[27])); ((meltroutine_ptr_t) /*_.VALROUT___V259*/ meltfptr[258])->tabval[2] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V28*/ meltfptr[27]); MELT_LOCATION ("warmelt-debug.melt:1042:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V259*/ meltfptr[258])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_214__DBGOUT_MAPSTRING_METHOD#3", NULL != ( /*_.DISCR_MAP_STRINGS__V36*/ meltfptr[35])); ((meltroutine_ptr_t) /*_.VALROUT___V259*/ meltfptr[258])->tabval[3] = (melt_ptr_t) ( /*_.DISCR_MAP_STRINGS__V36*/ meltfptr[35]); MELT_LOCATION ("warmelt-debug.melt:1042:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V259*/ meltfptr[258])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_214__DBGOUT_MAPSTRING_METHOD#4", NULL != ( /*_.ADD2OUT__V18*/ meltfptr[17])); ((meltroutine_ptr_t) /*_.VALROUT___V259*/ meltfptr[258])->tabval[4] = (melt_ptr_t) ( /*_.ADD2OUT__V18*/ meltfptr[17]); MELT_LOCATION ("warmelt-debug.melt:1042:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V259*/ meltfptr[258])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V105*/ meltfptr[104]); ((meltroutine_ptr_t) /*_.VALROUT___V259*/ meltfptr[258])->tabval[5] = (melt_ptr_t) ( /*_.VALCLO___V105*/ meltfptr[104]); MELT_LOCATION ("warmelt-debug.melt:1042:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V259*/ meltfptr[258])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_214__DBGOUT_MAPSTRING_METHOD#6", NULL != ( /*_.MAPSTRING_EVERY__V37*/ meltfptr[36])); ((meltroutine_ptr_t) /*_.VALROUT___V259*/ meltfptr[258])->tabval[6] = (melt_ptr_t) ( /*_.MAPSTRING_EVERY__V37*/ meltfptr[36]); MELT_LOCATION ("warmelt-debug.melt:1042:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V259*/ meltfptr[258])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_214__DBGOUT_MAPSTRING_METHOD#7", NULL != ( /*_.DISCR_INTEGER__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V259*/ meltfptr[258])->tabval[7] = (melt_ptr_t) ( /*_.DISCR_INTEGER__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-debug.melt:1075:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V260*/ meltfptr[259])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_220__LAMBDA_#0", NULL != ( /*_.DISCR_INTEGER__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V260*/ meltfptr[259])->tabval[0] = (melt_ptr_t) ( /*_.DISCR_INTEGER__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-debug.melt:1075:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V260*/ meltfptr[259]); MELT_LOCATION ("warmelt-debug.melt:1042:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V259*/ meltfptr[258])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_214__DBGOUT_MAPSTRING_METHOD#8", NULL != ( /*_.VALROUT___V260*/ meltfptr[259])); ((meltroutine_ptr_t) /*_.VALROUT___V259*/ meltfptr[258])->tabval[8] = (melt_ptr_t) ( /*_.VALROUT___V260*/ meltfptr[259]); MELT_LOCATION ("warmelt-debug.melt:1042:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V259*/ meltfptr[258])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_214__DBGOUT_MAPSTRING_METHOD#9", NULL != ( /*_.COMPARE_OBJ_RANKED__V34*/ meltfptr[33])); ((meltroutine_ptr_t) /*_.VALROUT___V259*/ meltfptr[258])->tabval[9] = (melt_ptr_t) ( /*_.COMPARE_OBJ_RANKED__V34*/ meltfptr[33]); MELT_LOCATION ("warmelt-debug.melt:1087:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V261*/ meltfptr[260])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_221__LAMBDA_#0", NULL != ( /*_.COMPARE_OBJ_RANKED__V34*/ meltfptr[33])); ((meltroutine_ptr_t) /*_.VALROUT___V261*/ meltfptr[260])->tabval[0] = (melt_ptr_t) ( /*_.COMPARE_OBJ_RANKED__V34*/ meltfptr[33]); MELT_LOCATION ("warmelt-debug.melt:1087:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V261*/ meltfptr[260])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_221__LAMBDA_#1", NULL != ( /*_.VALBXINT___V262*/ meltfptr[261])); ((meltroutine_ptr_t) /*_.VALROUT___V261*/ meltfptr[260])->tabval[1] = (melt_ptr_t) ( /*_.VALBXINT___V262*/ meltfptr[261]); MELT_LOCATION ("warmelt-debug.melt:1087:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V261*/ meltfptr[260])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_221__LAMBDA_#2", NULL != ( /*_.VALBXINT___V263*/ meltfptr[262])); ((meltroutine_ptr_t) /*_.VALROUT___V261*/ meltfptr[260])->tabval[2] = (melt_ptr_t) ( /*_.VALBXINT___V263*/ meltfptr[262]); MELT_LOCATION ("warmelt-debug.melt:1087:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V261*/ meltfptr[260])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_221__LAMBDA_#3", NULL != ( /*_.VALBXINT___V264*/ meltfptr[263])); ((meltroutine_ptr_t) /*_.VALROUT___V261*/ meltfptr[260])->tabval[3] = (melt_ptr_t) ( /*_.VALBXINT___V264*/ meltfptr[263]); MELT_LOCATION ("warmelt-debug.melt:1087:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V261*/ meltfptr[260]); MELT_LOCATION ("warmelt-debug.melt:1042:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V259*/ meltfptr[258])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_214__DBGOUT_MAPSTRING_METHOD#10", NULL != ( /*_.VALROUT___V261*/ meltfptr[260])); ((meltroutine_ptr_t) /*_.VALROUT___V259*/ meltfptr[258])->tabval[10] = (melt_ptr_t) ( /*_.VALROUT___V261*/ meltfptr[260]); MELT_LOCATION ("warmelt-debug.melt:1042:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V259*/ meltfptr[258])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_214__DBGOUT_MAPSTRING_METHOD#11", NULL != ( /*_.MULTIPLE_EVERY__V35*/ meltfptr[34])); ((meltroutine_ptr_t) /*_.VALROUT___V259*/ meltfptr[258])->tabval[11] = (melt_ptr_t) ( /*_.MULTIPLE_EVERY__V35*/ meltfptr[34]); MELT_LOCATION ("warmelt-debug.melt:1042:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V259*/ meltfptr[258])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V105*/ meltfptr[104]); ((meltroutine_ptr_t) /*_.VALROUT___V259*/ meltfptr[258])->tabval[12] = (melt_ptr_t) ( /*_.VALCLO___V105*/ meltfptr[104]); MELT_LOCATION ("warmelt-debug.melt:1103:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V265*/ meltfptr[264])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V105*/ meltfptr[104]); ((meltroutine_ptr_t) /*_.VALROUT___V265*/ meltfptr[264])->tabval[0] = (melt_ptr_t) ( /*_.VALCLO___V105*/ meltfptr[104]); MELT_LOCATION ("warmelt-debug.melt:1103:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V265*/ meltfptr[264]); MELT_LOCATION ("warmelt-debug.melt:1042:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V259*/ meltfptr[258])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_214__DBGOUT_MAPSTRING_METHOD#13", NULL != ( /*_.VALROUT___V265*/ meltfptr[264])); ((meltroutine_ptr_t) /*_.VALROUT___V259*/ meltfptr[258])->tabval[13] = (melt_ptr_t) ( /*_.VALROUT___V265*/ meltfptr[264]); MELT_LOCATION ("warmelt-debug.melt:1042:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V259*/ meltfptr[258]); /*putclosurout#26 */ melt_assertmsg ("putclosrout#26 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V266*/ meltfptr[265])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#26 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V259*/ meltfptr[258])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V266*/ meltfptr[265])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V259*/ meltfptr[258]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V266*/ meltfptr[265]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V267*/ meltfptr[266])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V267*/ meltfptr[266])))); ((meltobject_ptr_t) ( /*_.VALDATA___V267*/ meltfptr[266]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V268*/ meltfptr[267]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V267*/ meltfptr[266]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V269*/ meltfptr[268])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V269*/ meltfptr[268])))); ((meltobject_ptr_t) ( /*_.VALDATA___V269*/ meltfptr[268]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V270*/ meltfptr[269]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V269*/ meltfptr[268]); MELT_LOCATION ("warmelt-debug.melt:1122:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V271*/ meltfptr[270])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V50*/ meltfptr[49]); ((meltroutine_ptr_t) /*_.VALROUT___V271*/ meltfptr[270])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V50*/ meltfptr[49]); MELT_LOCATION ("warmelt-debug.melt:1122:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V271*/ meltfptr[270])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V195*/ meltfptr[194]); ((meltroutine_ptr_t) /*_.VALROUT___V271*/ meltfptr[270])->tabval[1] = (melt_ptr_t) ( /*_.VALCLO___V195*/ meltfptr[194]); MELT_LOCATION ("warmelt-debug.melt:1122:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V271*/ meltfptr[270]); /*putclosurout#27 */ melt_assertmsg ("putclosrout#27 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V272*/ meltfptr[271])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#27 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V271*/ meltfptr[270])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V272*/ meltfptr[271])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V271*/ meltfptr[270]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V272*/ meltfptr[271]); MELT_LOCATION ("warmelt-debug.melt:1148:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V273*/ meltfptr[272])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V50*/ meltfptr[49]); ((meltroutine_ptr_t) /*_.VALROUT___V273*/ meltfptr[272])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V50*/ meltfptr[49]); MELT_LOCATION ("warmelt-debug.melt:1148:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V273*/ meltfptr[272])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_228__DBGOUT_ANYRECV_METHOD#1", NULL != ( /*_.CLASS_NAMED__V20*/ meltfptr[19])); ((meltroutine_ptr_t) /*_.VALROUT___V273*/ meltfptr[272])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_NAMED__V20*/ meltfptr[19]); MELT_LOCATION ("warmelt-debug.melt:1148:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V273*/ meltfptr[272]); /*putclosurout#28 */ melt_assertmsg ("putclosrout#28 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V274*/ meltfptr[273])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#28 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V273*/ meltfptr[272])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V274*/ meltfptr[273])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V273*/ meltfptr[272]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V274*/ meltfptr[273]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V275*/ meltfptr[274])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V275*/ meltfptr[274])))); ((meltobject_ptr_t) ( /*_.VALDATA___V275*/ meltfptr[274]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V276*/ meltfptr[275]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V275*/ meltfptr[274]); MELT_LOCATION ("warmelt-debug.melt:1159:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V277*/ meltfptr[276])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V50*/ meltfptr[49]); ((meltroutine_ptr_t) /*_.VALROUT___V277*/ meltfptr[276])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V50*/ meltfptr[49]); MELT_LOCATION ("warmelt-debug.melt:1159:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V277*/ meltfptr[276]); /*putclosurout#29 */ melt_assertmsg ("putclosrout#29 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V278*/ meltfptr[277])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#29 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V277*/ meltfptr[276])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V278*/ meltfptr[277])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V277*/ meltfptr[276]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V278*/ meltfptr[277]); MELT_LOCATION ("warmelt-debug.melt:1177:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V279*/ meltfptr[278])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V50*/ meltfptr[49]); ((meltroutine_ptr_t) /*_.VALROUT___V279*/ meltfptr[278])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V50*/ meltfptr[49]); MELT_LOCATION ("warmelt-debug.melt:1177:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V279*/ meltfptr[278])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V105*/ meltfptr[104]); ((meltroutine_ptr_t) /*_.VALROUT___V279*/ meltfptr[278])->tabval[1] = (melt_ptr_t) ( /*_.VALCLO___V105*/ meltfptr[104]); MELT_LOCATION ("warmelt-debug.melt:1177:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V279*/ meltfptr[278])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V195*/ meltfptr[194]); ((meltroutine_ptr_t) /*_.VALROUT___V279*/ meltfptr[278])->tabval[2] = (melt_ptr_t) ( /*_.VALCLO___V195*/ meltfptr[194]); MELT_LOCATION ("warmelt-debug.melt:1177:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V279*/ meltfptr[278]); /*putclosurout#30 */ melt_assertmsg ("putclosrout#30 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V280*/ meltfptr[279])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#30 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V279*/ meltfptr[278])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V280*/ meltfptr[279])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V279*/ meltfptr[278]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V280*/ meltfptr[279]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V281*/ meltfptr[280])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V281*/ meltfptr[280])))); ((meltobject_ptr_t) ( /*_.VALDATA___V281*/ meltfptr[280]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V282*/ meltfptr[281]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V281*/ meltfptr[280]); MELT_LOCATION ("warmelt-debug.melt:1211:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V283*/ meltfptr[282])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V50*/ meltfptr[49]); ((meltroutine_ptr_t) /*_.VALROUT___V283*/ meltfptr[282])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V50*/ meltfptr[49]); MELT_LOCATION ("warmelt-debug.melt:1211:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V283*/ meltfptr[282]); /*putclosurout#31 */ melt_assertmsg ("putclosrout#31 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V284*/ meltfptr[283])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#31 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V283*/ meltfptr[282])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V284*/ meltfptr[283])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V283*/ meltfptr[282]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V284*/ meltfptr[283]); MELT_LOCATION ("warmelt-debug.melt:1228:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V285*/ meltfptr[284])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V50*/ meltfptr[49]); ((meltroutine_ptr_t) /*_.VALROUT___V285*/ meltfptr[284])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V50*/ meltfptr[49]); MELT_LOCATION ("warmelt-debug.melt:1228:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V285*/ meltfptr[284])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_240__DBGOUTAGAIN_SYMBOL_METHOD#1", NULL != ( /*_.CLASS_SYMBOL__V39*/ meltfptr[38])); ((meltroutine_ptr_t) /*_.VALROUT___V285*/ meltfptr[284])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V39*/ meltfptr[38]); MELT_LOCATION ("warmelt-debug.melt:1228:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V285*/ meltfptr[284]); /*putclosurout#32 */ melt_assertmsg ("putclosrout#32 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V286*/ meltfptr[285])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#32 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V285*/ meltfptr[284])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V286*/ meltfptr[285])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V285*/ meltfptr[284]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V286*/ meltfptr[285]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V287*/ meltfptr[286])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V287*/ meltfptr[286])))); ((meltobject_ptr_t) ( /*_.VALDATA___V287*/ meltfptr[286]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V288*/ meltfptr[287]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V287*/ meltfptr[286]); MELT_LOCATION ("warmelt-debug.melt:1246:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V289*/ meltfptr[288])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V50*/ meltfptr[49]); ((meltroutine_ptr_t) /*_.VALROUT___V289*/ meltfptr[288])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V50*/ meltfptr[49]); MELT_LOCATION ("warmelt-debug.melt:1246:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V289*/ meltfptr[288])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_244__DBGOUT_SYMBOL_METHOD#1", NULL != ( /*_.CLASS_SYMBOL__V39*/ meltfptr[38])); ((meltroutine_ptr_t) /*_.VALROUT___V289*/ meltfptr[288])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V39*/ meltfptr[38]); MELT_LOCATION ("warmelt-debug.melt:1246:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V289*/ meltfptr[288])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V280*/ meltfptr[279]); ((meltroutine_ptr_t) /*_.VALROUT___V289*/ meltfptr[288])->tabval[2] = (melt_ptr_t) ( /*_.VALCLO___V280*/ meltfptr[279]); MELT_LOCATION ("warmelt-debug.melt:1246:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V289*/ meltfptr[288])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V286*/ meltfptr[285]); ((meltroutine_ptr_t) /*_.VALROUT___V289*/ meltfptr[288])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V286*/ meltfptr[285]); MELT_LOCATION ("warmelt-debug.melt:1246:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V289*/ meltfptr[288]); /*putclosurout#33 */ melt_assertmsg ("putclosrout#33 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V290*/ meltfptr[289])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#33 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V289*/ meltfptr[288])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V290*/ meltfptr[289])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V289*/ meltfptr[288]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V290*/ meltfptr[289]); MELT_LOCATION ("warmelt-debug.melt:1256:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V291*/ meltfptr[290])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V50*/ meltfptr[49]); ((meltroutine_ptr_t) /*_.VALROUT___V291*/ meltfptr[290])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V50*/ meltfptr[49]); MELT_LOCATION ("warmelt-debug.melt:1256:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V291*/ meltfptr[290])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_246__DBGOUT_CLASS_METHOD#1", NULL != ( /*_.CLASS_CLASS__V40*/ meltfptr[39])); ((meltroutine_ptr_t) /*_.VALROUT___V291*/ meltfptr[290])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_CLASS__V40*/ meltfptr[39]); MELT_LOCATION ("warmelt-debug.melt:1256:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V291*/ meltfptr[290])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V280*/ meltfptr[279]); ((meltroutine_ptr_t) /*_.VALROUT___V291*/ meltfptr[290])->tabval[2] = (melt_ptr_t) ( /*_.VALCLO___V280*/ meltfptr[279]); MELT_LOCATION ("warmelt-debug.melt:1256:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V291*/ meltfptr[290])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V284*/ meltfptr[283]); ((meltroutine_ptr_t) /*_.VALROUT___V291*/ meltfptr[290])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V284*/ meltfptr[283]); MELT_LOCATION ("warmelt-debug.melt:1256:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V291*/ meltfptr[290]); /*putclosurout#34 */ melt_assertmsg ("putclosrout#34 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V292*/ meltfptr[291])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#34 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V291*/ meltfptr[290])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V292*/ meltfptr[291])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V291*/ meltfptr[290]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V292*/ meltfptr[291]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V293*/ meltfptr[292])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V293*/ meltfptr[292])))); ((meltobject_ptr_t) ( /*_.VALDATA___V293*/ meltfptr[292]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V294*/ meltfptr[293]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V293*/ meltfptr[292]); MELT_LOCATION ("warmelt-debug.melt:1266:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V295*/ meltfptr[294])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V50*/ meltfptr[49]); ((meltroutine_ptr_t) /*_.VALROUT___V295*/ meltfptr[294])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V50*/ meltfptr[49]); MELT_LOCATION ("warmelt-debug.melt:1266:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V295*/ meltfptr[294])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_250__DBGOUTAGAIN_KEYWORD_METHOD#1", NULL != ( /*_.CLASS_KEYWORD__V41*/ meltfptr[40])); ((meltroutine_ptr_t) /*_.VALROUT___V295*/ meltfptr[294])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_KEYWORD__V41*/ meltfptr[40]); MELT_LOCATION ("warmelt-debug.melt:1266:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V295*/ meltfptr[294]); /*putclosurout#35 */ melt_assertmsg ("putclosrout#35 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V296*/ meltfptr[295])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#35 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V295*/ meltfptr[294])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V296*/ meltfptr[295])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V295*/ meltfptr[294]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V296*/ meltfptr[295]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V297*/ meltfptr[296])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V297*/ meltfptr[296])))); ((meltobject_ptr_t) ( /*_.VALDATA___V297*/ meltfptr[296]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V298*/ meltfptr[297]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V297*/ meltfptr[296]); MELT_LOCATION ("warmelt-debug.melt:1279:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V299*/ meltfptr[298])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V50*/ meltfptr[49]); ((meltroutine_ptr_t) /*_.VALROUT___V299*/ meltfptr[298])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V50*/ meltfptr[49]); MELT_LOCATION ("warmelt-debug.melt:1279:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V299*/ meltfptr[298])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_254__DBGOUT_KEYWORD_METHOD#1", NULL != ( /*_.CLASS_KEYWORD__V41*/ meltfptr[40])); ((meltroutine_ptr_t) /*_.VALROUT___V299*/ meltfptr[298])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_KEYWORD__V41*/ meltfptr[40]); MELT_LOCATION ("warmelt-debug.melt:1279:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V299*/ meltfptr[298])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V280*/ meltfptr[279]); ((meltroutine_ptr_t) /*_.VALROUT___V299*/ meltfptr[298])->tabval[2] = (melt_ptr_t) ( /*_.VALCLO___V280*/ meltfptr[279]); MELT_LOCATION ("warmelt-debug.melt:1279:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V299*/ meltfptr[298])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V296*/ meltfptr[295]); ((meltroutine_ptr_t) /*_.VALROUT___V299*/ meltfptr[298])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V296*/ meltfptr[295]); MELT_LOCATION ("warmelt-debug.melt:1279:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V299*/ meltfptr[298]); /*putclosurout#36 */ melt_assertmsg ("putclosrout#36 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V300*/ meltfptr[299])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#36 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V299*/ meltfptr[298])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V300*/ meltfptr[299])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V299*/ meltfptr[298]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V300*/ meltfptr[299]); /*putclosurout#37 */ melt_assertmsg ("putclosrout#37 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V302*/ meltfptr[301])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#37 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V301*/ meltfptr[300])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V302*/ meltfptr[301])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V301*/ meltfptr[300]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V302*/ meltfptr[301]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V303*/ meltfptr[302])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V303*/ meltfptr[302])))); ((meltobject_ptr_t) ( /*_.VALDATA___V303*/ meltfptr[302]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V304*/ meltfptr[303]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V303*/ meltfptr[302]); MELT_LOCATION ("warmelt-debug.melt:1304:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V305*/ meltfptr[304])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V50*/ meltfptr[49]); ((meltroutine_ptr_t) /*_.VALROUT___V305*/ meltfptr[304])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V50*/ meltfptr[49]); MELT_LOCATION ("warmelt-debug.melt:1304:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V305*/ meltfptr[304])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_260__DBGOUT_CLONED_SYMBOL_METHOD#1", NULL != ( /*_.CLASS_CLONED_SYMBOL__V42*/ meltfptr[41])); ((meltroutine_ptr_t) /*_.VALROUT___V305*/ meltfptr[304])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_CLONED_SYMBOL__V42*/ meltfptr[41]); MELT_LOCATION ("warmelt-debug.melt:1304:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V305*/ meltfptr[304])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V280*/ meltfptr[279]); ((meltroutine_ptr_t) /*_.VALROUT___V305*/ meltfptr[304])->tabval[2] = (melt_ptr_t) ( /*_.VALCLO___V280*/ meltfptr[279]); MELT_LOCATION ("warmelt-debug.melt:1304:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V305*/ meltfptr[304])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V302*/ meltfptr[301]); ((meltroutine_ptr_t) /*_.VALROUT___V305*/ meltfptr[304])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V302*/ meltfptr[301]); MELT_LOCATION ("warmelt-debug.melt:1304:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V305*/ meltfptr[304]); /*putclosurout#38 */ melt_assertmsg ("putclosrout#38 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V306*/ meltfptr[305])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#38 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V305*/ meltfptr[304])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V306*/ meltfptr[305])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V305*/ meltfptr[304]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V306*/ meltfptr[305]); MELT_LOCATION ("warmelt-debug.melt:1315:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V307*/ meltfptr[306])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V50*/ meltfptr[49]); ((meltroutine_ptr_t) /*_.VALROUT___V307*/ meltfptr[306])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V50*/ meltfptr[49]); MELT_LOCATION ("warmelt-debug.melt:1315:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V307*/ meltfptr[306])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_262__DBGOUT_ENVIRONMENT_METHOD#1", NULL != ( /*_.CLASS_ENVIRONMENT__V43*/ meltfptr[42])); ((meltroutine_ptr_t) /*_.VALROUT___V307*/ meltfptr[306])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V43*/ meltfptr[42]); MELT_LOCATION ("warmelt-debug.melt:1315:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V307*/ meltfptr[306])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_262__DBGOUT_ENVIRONMENT_METHOD#2", NULL != ( /*_.ENV_PREV__V44*/ meltfptr[43])); ((meltroutine_ptr_t) /*_.VALROUT___V307*/ meltfptr[306])->tabval[2] = (melt_ptr_t) ( /*_.ENV_PREV__V44*/ meltfptr[43]); MELT_LOCATION ("warmelt-debug.melt:1315:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V307*/ meltfptr[306])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V195*/ meltfptr[194]); ((meltroutine_ptr_t) /*_.VALROUT___V307*/ meltfptr[306])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V195*/ meltfptr[194]); MELT_LOCATION ("warmelt-debug.melt:1315:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V307*/ meltfptr[306])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V197*/ meltfptr[196]); ((meltroutine_ptr_t) /*_.VALROUT___V307*/ meltfptr[306])->tabval[4] = (melt_ptr_t) ( /*_.VALCLO___V197*/ meltfptr[196]); MELT_LOCATION ("warmelt-debug.melt:1315:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V307*/ meltfptr[306]); /*putclosurout#39 */ melt_assertmsg ("putclosrout#39 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V308*/ meltfptr[307])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#39 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V307*/ meltfptr[306])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V308*/ meltfptr[307])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V307*/ meltfptr[306]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V308*/ meltfptr[307]); #undef meltfram__ } /*end of meltmod__warmelt_debug__initialmeltchunk_3 */ void meltmod__warmelt_debug__initialmeltchunk_4 (struct frame_start_module_melt_st *meltmeltframptr__, char predefinited[]) { #define meltfram__ (*meltmeltframptr__) #undef meltcallcount #define meltcallcount 0L /*putslot*/ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V309*/ meltfptr[308])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V309*/ meltfptr[308])))); ((meltobject_ptr_t) ( /*_.VALDATA___V309*/ meltfptr[308]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V310*/ meltfptr[309]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V309*/ meltfptr[308]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V311*/ meltfptr[310])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V311*/ meltfptr[310])))); ((meltobject_ptr_t) ( /*_.VALDATA___V311*/ meltfptr[310]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V312*/ meltfptr[311]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V311*/ meltfptr[310]); /*putclosurout#40 */ melt_assertmsg ("putclosrout#40 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V314*/ meltfptr[313])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#40 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V313*/ meltfptr[312])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V314*/ meltfptr[313])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V313*/ meltfptr[312]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V314*/ meltfptr[313]); MELT_LOCATION ("warmelt-debug.melt:1368:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V315*/ meltfptr[314])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V50*/ meltfptr[49]); ((meltroutine_ptr_t) /*_.VALROUT___V315*/ meltfptr[314])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V50*/ meltfptr[49]); MELT_LOCATION ("warmelt-debug.melt:1368:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V315*/ meltfptr[314])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_270__DBGOUT_CTYPE_METHOD#1", NULL != ( /*_.CLASS_CTYPE__V21*/ meltfptr[20])); ((meltroutine_ptr_t) /*_.VALROUT___V315*/ meltfptr[314])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_CTYPE__V21*/ meltfptr[20]); MELT_LOCATION ("warmelt-debug.melt:1368:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V315*/ meltfptr[314])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V280*/ meltfptr[279]); ((meltroutine_ptr_t) /*_.VALROUT___V315*/ meltfptr[314])->tabval[2] = (melt_ptr_t) ( /*_.VALCLO___V280*/ meltfptr[279]); MELT_LOCATION ("warmelt-debug.melt:1368:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V315*/ meltfptr[314])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V314*/ meltfptr[313]); ((meltroutine_ptr_t) /*_.VALROUT___V315*/ meltfptr[314])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V314*/ meltfptr[313]); MELT_LOCATION ("warmelt-debug.melt:1368:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V315*/ meltfptr[314]); /*putclosurout#41 */ melt_assertmsg ("putclosrout#41 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V316*/ meltfptr[315])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#41 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V315*/ meltfptr[314])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V316*/ meltfptr[315])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V315*/ meltfptr[314]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V316*/ meltfptr[315]); MELT_LOCATION ("warmelt-debug.melt:1378:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V317*/ meltfptr[316])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V50*/ meltfptr[49]); ((meltroutine_ptr_t) /*_.VALROUT___V317*/ meltfptr[316])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V50*/ meltfptr[49]); MELT_LOCATION ("warmelt-debug.melt:1378:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V317*/ meltfptr[316])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_272__DBGOUT_ANYBINDING_METHOD#1", NULL != ( /*_.CLASS_ANY_BINDING__V45*/ meltfptr[44])); ((meltroutine_ptr_t) /*_.VALROUT___V317*/ meltfptr[316])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ANY_BINDING__V45*/ meltfptr[44]); MELT_LOCATION ("warmelt-debug.melt:1378:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V317*/ meltfptr[316])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V109*/ meltfptr[108]); ((meltroutine_ptr_t) /*_.VALROUT___V317*/ meltfptr[316])->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V109*/ meltfptr[108]); MELT_LOCATION ("warmelt-debug.melt:1378:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V317*/ meltfptr[316])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V195*/ meltfptr[194]); ((meltroutine_ptr_t) /*_.VALROUT___V317*/ meltfptr[316])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V195*/ meltfptr[194]); MELT_LOCATION ("warmelt-debug.melt:1378:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V317*/ meltfptr[316]); /*putclosurout#42 */ melt_assertmsg ("putclosrout#42 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V318*/ meltfptr[317])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#42 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V317*/ meltfptr[316])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V318*/ meltfptr[317])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V317*/ meltfptr[316]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V318*/ meltfptr[317]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V319*/ meltfptr[318])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V319*/ meltfptr[318])))); ((meltobject_ptr_t) ( /*_.VALDATA___V319*/ meltfptr[318]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V320*/ meltfptr[319]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V319*/ meltfptr[318]); MELT_LOCATION ("warmelt-debug.melt:1412:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V321*/ meltfptr[320])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_276__DISPLAY_DEBUG_MESSAGE#0", NULL != ( /*_.DISCR_STRBUF__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V321*/ meltfptr[320])->tabval[0] = (melt_ptr_t) ( /*_.DISCR_STRBUF__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-debug.melt:1412:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V321*/ meltfptr[320])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_276__DISPLAY_DEBUG_MESSAGE#1", NULL != ( /*_.DISCR_MAP_OBJECTS__V10*/ meltfptr[9])); ((meltroutine_ptr_t) /*_.VALROUT___V321*/ meltfptr[320])->tabval[1] = (melt_ptr_t) ( /*_.DISCR_MAP_OBJECTS__V10*/ meltfptr[9]); MELT_LOCATION ("warmelt-debug.melt:1412:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V321*/ meltfptr[320])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_276__DISPLAY_DEBUG_MESSAGE#2", NULL != ( /*_.DISCR_INTEGER__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V321*/ meltfptr[320])->tabval[2] = (melt_ptr_t) ( /*_.DISCR_INTEGER__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-debug.melt:1412:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V321*/ meltfptr[320])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V50*/ meltfptr[49]); ((meltroutine_ptr_t) /*_.VALROUT___V321*/ meltfptr[320])->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V50*/ meltfptr[49]); MELT_LOCATION ("warmelt-debug.melt:1412:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V321*/ meltfptr[320])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V111*/ meltfptr[110]); ((meltroutine_ptr_t) /*_.VALROUT___V321*/ meltfptr[320])->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V111*/ meltfptr[110]); MELT_LOCATION ("warmelt-debug.melt:1412:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V321*/ meltfptr[320]); /*putclosurout#43 */ melt_assertmsg ("putclosrout#43 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V322*/ meltfptr[321])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#43 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V321*/ meltfptr[320])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V322*/ meltfptr[321])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V321*/ meltfptr[320]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V322*/ meltfptr[321]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V323*/ meltfptr[322])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V323*/ meltfptr[322])))); ((meltobject_ptr_t) ( /*_.VALDATA___V323*/ meltfptr[322]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V324*/ meltfptr[323]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V323*/ meltfptr[322]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V325*/ meltfptr[324])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V325*/ meltfptr[324])))); ((meltobject_ptr_t) ( /*_.VALDATA___V325*/ meltfptr[324]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V326*/ meltfptr[325]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V325*/ meltfptr[324]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V327*/ meltfptr[326])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V327*/ meltfptr[326])))); ((meltobject_ptr_t) ( /*_.VALDATA___V327*/ meltfptr[326]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V328*/ meltfptr[327]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V327*/ meltfptr[326]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V329*/ meltfptr[328])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V329*/ meltfptr[328])))); ((meltobject_ptr_t) ( /*_.VALDATA___V329*/ meltfptr[328]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V330*/ meltfptr[329]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V329*/ meltfptr[328]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V331*/ meltfptr[330])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V331*/ meltfptr[330])))); ((meltobject_ptr_t) ( /*_.VALDATA___V331*/ meltfptr[330]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V332*/ meltfptr[331]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V331*/ meltfptr[330]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V333*/ meltfptr[332])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V333*/ meltfptr[332])))); ((meltobject_ptr_t) ( /*_.VALDATA___V333*/ meltfptr[332]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V334*/ meltfptr[333]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V333*/ meltfptr[332]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V335*/ meltfptr[334])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V335*/ meltfptr[334])))); ((meltobject_ptr_t) ( /*_.VALDATA___V335*/ meltfptr[334]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V336*/ meltfptr[335]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V335*/ meltfptr[334]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V337*/ meltfptr[336])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V337*/ meltfptr[336])))); ((meltobject_ptr_t) ( /*_.VALDATA___V337*/ meltfptr[336]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V338*/ meltfptr[337]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V337*/ meltfptr[336]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V339*/ meltfptr[338])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V339*/ meltfptr[338])))); ((meltobject_ptr_t) ( /*_.VALDATA___V339*/ meltfptr[338]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V340*/ meltfptr[339]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V339*/ meltfptr[338]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V341*/ meltfptr[340])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V341*/ meltfptr[340])))); ((meltobject_ptr_t) ( /*_.VALDATA___V341*/ meltfptr[340]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V342*/ meltfptr[341]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V341*/ meltfptr[340]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V343*/ meltfptr[342])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V343*/ meltfptr[342])))); ((meltobject_ptr_t) ( /*_.VALDATA___V343*/ meltfptr[342]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V344*/ meltfptr[343]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V343*/ meltfptr[342]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V345*/ meltfptr[344])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V345*/ meltfptr[344])))); ((meltobject_ptr_t) ( /*_.VALDATA___V345*/ meltfptr[344]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V346*/ meltfptr[345]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V345*/ meltfptr[344]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V347*/ meltfptr[346])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V347*/ meltfptr[346])))); ((meltobject_ptr_t) ( /*_.VALDATA___V347*/ meltfptr[346]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V348*/ meltfptr[347]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V347*/ meltfptr[346]); /**COMMENT: before toplevel body **/ ; MELT_LOCATION ("warmelt-debug.melt:4:/ initchunk"); /*^block */ /*anyblock */ { /*^cond */ /*cond */ if ( /*quasi.cur.mod.env.cont cur.mod.env.cont : at very start */ /*_.CONTENV___V2*/ meltfptr[1]) /*then */ { /*^cond.then */ /*_.OR___V349*/ meltfptr[348] = /*quasi.cur.mod.env.cont cur.mod.env.cont : at very start */ /*_.CONTENV___V2*/ meltfptr[1];; } else { MELT_LOCATION ("warmelt-debug.melt:4:/ cond.else"); /*^block */ /*anyblock */ { /*^getslot */ { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (INITIAL_SYSTEM_DATA)))), 3, "SYSDATA_CONT_FRESH_ENV"); /*_.SYSDATA_CONT_FRESH_ENV__V350*/ meltfptr[349] = slot; }; ; /*^checksignal */ MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_cstring = "warmelt-debug"; /*_.FUN___V351*/ meltfptr[350] = melt_apply ((meltclosure_ptr_t) ( /*_.SYSDATA_CONT_FRESH_ENV__V350*/ meltfptr[349]), (melt_ptr_t) ( /*_.PREVENV___V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } ; /*_.OR___V349*/ meltfptr[348] = /*_.FUN___V351*/ meltfptr[350];; /*epilog */ MELT_LOCATION ("warmelt-debug.melt:4:/ clear"); /*clear *//*_.SYSDATA_CONT_FRESH_ENV__V350*/ meltfptr[349] = 0; /*^clear */ /*clear *//*_.FUN___V351*/ meltfptr[350] = 0; } ; } ; /*^block */ /*com.block:upd.cur.mod.env.cont : at very start */ { } /*com.end block:upd.cur.mod.env.cont : at very start */ ; /*epilog */ /*^clear */ /*clear *//*_.OR___V349*/ meltfptr[348] = 0; } MELT_LOCATION ("warmelt-debug.melt:50:/ initchunk"); /*^block */ /*anyblock */ { /*^getslot */ { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (INITIAL_SYSTEM_DATA)))), 4, "SYSDATA_VALUE_EXPORTER"); /*_.VALUEXPORTER___V352*/ meltfptr[349] = slot; }; ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V50*/ meltfptr[49]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_DEBUG_INFORMATION */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V352*/ meltfptr[349]), (melt_ptr_t) ( /*_.VALDATA___V46*/ meltfptr[45]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V53*/ meltfptr[52]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*quasi.cur.mod.env.cont norm.exp.val : DBGI_OUT */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V352*/ meltfptr[349]), (melt_ptr_t) ( /*_.VALDATA___V60*/ meltfptr[59]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V55*/ meltfptr[54]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*quasi.cur.mod.env.cont norm.exp.val : DBGI_OCCMAP */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V352*/ meltfptr[349]), (melt_ptr_t) ( /*_.VALDATA___V62*/ meltfptr[61]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V57*/ meltfptr[56]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*quasi.cur.mod.env.cont norm.exp.val : DBGI_MAXDEPTH */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V352*/ meltfptr[349]), (melt_ptr_t) ( /*_.VALDATA___V64*/ meltfptr[63]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.VALUEXPORTER___V352*/ meltfptr[349] = 0; } MELT_LOCATION ("warmelt-debug.melt:587:/ initchunk"); /*^block */ /*anyblock */ { /*^checksignal */ MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V111*/ meltfptr[110]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V199*/ meltfptr[198]; /*_.INSTALL_METHOD__V353*/ meltfptr[350] = melt_apply ((meltclosure_ptr_t) ( /*_.INSTALL_METHOD__V22*/ meltfptr[21]), (melt_ptr_t) ( /*_.DISCR_NULL_RECEIVER__V23*/ meltfptr[22]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.INSTALL_METHOD__V353*/ meltfptr[350] = 0; } MELT_LOCATION ("warmelt-debug.melt:588:/ initchunk"); /*^block */ /*anyblock */ { /*^checksignal */ MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V109*/ meltfptr[108]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V199*/ meltfptr[198]; /*_.INSTALL_METHOD__V354*/ meltfptr[348] = melt_apply ((meltclosure_ptr_t) ( /*_.INSTALL_METHOD__V22*/ meltfptr[21]), (melt_ptr_t) ( /*_.DISCR_NULL_RECEIVER__V23*/ meltfptr[22]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.INSTALL_METHOD__V354*/ meltfptr[348] = 0; } MELT_LOCATION ("warmelt-debug.melt:610:/ initchunk"); /*^block */ /*anyblock */ { /*^checksignal */ MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V111*/ meltfptr[110]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V205*/ meltfptr[204]; /*_.INSTALL_METHOD__V355*/ meltfptr[349] = melt_apply ((meltclosure_ptr_t) ( /*_.INSTALL_METHOD__V22*/ meltfptr[21]), (melt_ptr_t) ( /*_.DISCR_STRING__V24*/ meltfptr[23]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.INSTALL_METHOD__V355*/ meltfptr[349] = 0; } MELT_LOCATION ("warmelt-debug.melt:692:/ initchunk"); /*^block */ /*anyblock */ { /*^checksignal */ MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V111*/ meltfptr[110]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V209*/ meltfptr[208]; /*_.INSTALL_METHOD__V356*/ meltfptr[350] = melt_apply ((meltclosure_ptr_t) ( /*_.INSTALL_METHOD__V22*/ meltfptr[21]), (melt_ptr_t) ( /*_.DISCR_STRBUF__V12*/ meltfptr[11]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.INSTALL_METHOD__V356*/ meltfptr[350] = 0; } MELT_LOCATION ("warmelt-debug.melt:714:/ initchunk"); /*^block */ /*anyblock */ { /*^checksignal */ MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V111*/ meltfptr[110]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V211*/ meltfptr[210]; /*_.INSTALL_METHOD__V357*/ meltfptr[348] = melt_apply ((meltclosure_ptr_t) ( /*_.INSTALL_METHOD__V22*/ meltfptr[21]), (melt_ptr_t) ( /*_.DISCR_INTEGER__V11*/ meltfptr[10]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.INSTALL_METHOD__V357*/ meltfptr[348] = 0; } MELT_LOCATION ("warmelt-debug.melt:741:/ initchunk"); /*^block */ /*anyblock */ { /*^checksignal */ MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V111*/ meltfptr[110]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V213*/ meltfptr[212]; /*_.INSTALL_METHOD__V358*/ meltfptr[349] = melt_apply ((meltclosure_ptr_t) ( /*_.INSTALL_METHOD__V22*/ meltfptr[21]), (melt_ptr_t) ( /*_.DISCR_MIXED_INTEGER__V25*/ meltfptr[24]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.INSTALL_METHOD__V358*/ meltfptr[349] = 0; } MELT_LOCATION ("warmelt-debug.melt:769:/ initchunk"); /*^block */ /*anyblock */ { /*^checksignal */ MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V111*/ meltfptr[110]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V217*/ meltfptr[216]; /*_.INSTALL_METHOD__V359*/ meltfptr[350] = melt_apply ((meltclosure_ptr_t) ( /*_.INSTALL_METHOD__V22*/ meltfptr[21]), (melt_ptr_t) ( /*_.DISCR_MIXED_LOCATION__V26*/ meltfptr[25]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.INSTALL_METHOD__V359*/ meltfptr[350] = 0; } MELT_LOCATION ("warmelt-debug.melt:792:/ initchunk"); /*^block */ /*anyblock */ { /*^checksignal */ MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V111*/ meltfptr[110]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V221*/ meltfptr[220]; /*_.INSTALL_METHOD__V360*/ meltfptr[348] = melt_apply ((meltclosure_ptr_t) ( /*_.INSTALL_METHOD__V22*/ meltfptr[21]), (melt_ptr_t) ( /*_.DISCR_MIXED_BIGINT__V27*/ meltfptr[26]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.INSTALL_METHOD__V360*/ meltfptr[348] = 0; } MELT_LOCATION ("warmelt-debug.melt:825:/ initchunk"); /*^block */ /*anyblock */ { /*^checksignal */ MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V111*/ meltfptr[110]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V225*/ meltfptr[224]; /*_.INSTALL_METHOD__V361*/ meltfptr[349] = melt_apply ((meltclosure_ptr_t) ( /*_.INSTALL_METHOD__V22*/ meltfptr[21]), (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V28*/ meltfptr[27]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.INSTALL_METHOD__V361*/ meltfptr[349] = 0; } MELT_LOCATION ("warmelt-debug.melt:852:/ initchunk"); /*^block */ /*anyblock */ { /*^checksignal */ MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V111*/ meltfptr[110]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V230*/ meltfptr[229]; /*_.INSTALL_METHOD__V362*/ meltfptr[350] = melt_apply ((meltclosure_ptr_t) ( /*_.INSTALL_METHOD__V22*/ meltfptr[21]), (melt_ptr_t) ( /*_.DISCR_ROUTINE__V29*/ meltfptr[28]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.INSTALL_METHOD__V362*/ meltfptr[350] = 0; } MELT_LOCATION ("warmelt-debug.melt:890:/ initchunk"); /*^block */ /*anyblock */ { /*^checksignal */ MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V111*/ meltfptr[110]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V236*/ meltfptr[235]; /*_.INSTALL_METHOD__V363*/ meltfptr[348] = melt_apply ((meltclosure_ptr_t) ( /*_.INSTALL_METHOD__V22*/ meltfptr[21]), (melt_ptr_t) ( /*_.DISCR_CLOSURE__V17*/ meltfptr[16]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.INSTALL_METHOD__V363*/ meltfptr[348] = 0; } MELT_LOCATION ("warmelt-debug.melt:932:/ initchunk"); /*^block */ /*anyblock */ { /*^checksignal */ MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V111*/ meltfptr[110]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V238*/ meltfptr[237]; /*_.INSTALL_METHOD__V364*/ meltfptr[349] = melt_apply ((meltclosure_ptr_t) ( /*_.INSTALL_METHOD__V22*/ meltfptr[21]), (melt_ptr_t) ( /*_.DISCR_LIST__V31*/ meltfptr[30]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.INSTALL_METHOD__V364*/ meltfptr[349] = 0; } MELT_LOCATION ("warmelt-debug.melt:952:/ initchunk"); /*^block */ /*anyblock */ { /*^checksignal */ MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V111*/ meltfptr[110]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V242*/ meltfptr[241]; /*_.INSTALL_METHOD__V365*/ meltfptr[350] = melt_apply ((meltclosure_ptr_t) ( /*_.INSTALL_METHOD__V22*/ meltfptr[21]), (melt_ptr_t) ( /*_.DISCR_PAIR__V32*/ meltfptr[31]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.INSTALL_METHOD__V365*/ meltfptr[350] = 0; } MELT_LOCATION ("warmelt-debug.melt:1038:/ initchunk"); /*^block */ /*anyblock */ { /*^checksignal */ MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V111*/ meltfptr[110]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V252*/ meltfptr[251]; /*_.INSTALL_METHOD__V366*/ meltfptr[348] = melt_apply ((meltclosure_ptr_t) ( /*_.INSTALL_METHOD__V22*/ meltfptr[21]), (melt_ptr_t) ( /*_.DISCR_MAP_OBJECTS__V10*/ meltfptr[9]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.INSTALL_METHOD__V366*/ meltfptr[348] = 0; } MELT_LOCATION ("warmelt-debug.melt:1118:/ initchunk"); /*^block */ /*anyblock */ { /*^checksignal */ MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V111*/ meltfptr[110]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V266*/ meltfptr[265]; /*_.INSTALL_METHOD__V367*/ meltfptr[349] = melt_apply ((meltclosure_ptr_t) ( /*_.INSTALL_METHOD__V22*/ meltfptr[21]), (melt_ptr_t) ( /*_.DISCR_MAP_STRINGS__V36*/ meltfptr[35]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.INSTALL_METHOD__V367*/ meltfptr[349] = 0; } MELT_LOCATION ("warmelt-debug.melt:1145:/ initchunk"); /*^block */ /*anyblock */ { /*^checksignal */ MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V111*/ meltfptr[110]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V272*/ meltfptr[271]; /*_.INSTALL_METHOD__V368*/ meltfptr[350] = melt_apply ((meltclosure_ptr_t) ( /*_.INSTALL_METHOD__V22*/ meltfptr[21]), (melt_ptr_t) ( /*_.CLASS_ROOT__V7*/ meltfptr[6]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.INSTALL_METHOD__V368*/ meltfptr[350] = 0; } MELT_LOCATION ("warmelt-debug.melt:1156:/ initchunk"); /*^block */ /*anyblock */ { /*^checksignal */ MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V111*/ meltfptr[110]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V274*/ meltfptr[273]; /*_.INSTALL_METHOD__V369*/ meltfptr[348] = melt_apply ((meltclosure_ptr_t) ( /*_.INSTALL_METHOD__V22*/ meltfptr[21]), (melt_ptr_t) ( /*_.DISCR_ANY_RECEIVER__V38*/ meltfptr[37]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.INSTALL_METHOD__V369*/ meltfptr[348] = 0; } MELT_LOCATION ("warmelt-debug.melt:1174:/ initchunk"); /*^block */ /*anyblock */ { /*^checksignal */ MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V109*/ meltfptr[108]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V278*/ meltfptr[277]; /*_.INSTALL_METHOD__V370*/ meltfptr[349] = melt_apply ((meltclosure_ptr_t) ( /*_.INSTALL_METHOD__V22*/ meltfptr[21]), (melt_ptr_t) ( /*_.CLASS_ROOT__V7*/ meltfptr[6]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.INSTALL_METHOD__V370*/ meltfptr[349] = 0; } MELT_LOCATION ("warmelt-debug.melt:1207:/ initchunk"); /*^block */ /*anyblock */ { /*^checksignal */ MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V111*/ meltfptr[110]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V280*/ meltfptr[279]; /*_.INSTALL_METHOD__V371*/ meltfptr[350] = melt_apply ((meltclosure_ptr_t) ( /*_.INSTALL_METHOD__V22*/ meltfptr[21]), (melt_ptr_t) ( /*_.CLASS_NAMED__V20*/ meltfptr[19]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.INSTALL_METHOD__V371*/ meltfptr[350] = 0; } MELT_LOCATION ("warmelt-debug.melt:1209:/ initchunk"); /*^block */ /*anyblock */ { /*^getslot */ { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (INITIAL_SYSTEM_DATA)))), 4, "SYSDATA_VALUE_EXPORTER"); /*_.VALUEXPORTER___V372*/ meltfptr[348] = slot; }; ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V280*/ meltfptr[279]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*quasi.cur.mod.env.cont norm.exp.val : DBGOUT_NAMEDOBJECT_METHOD */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V372*/ meltfptr[348]), (melt_ptr_t) ( /*_.VALDATA___V281*/ meltfptr[280]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.VALUEXPORTER___V372*/ meltfptr[348] = 0; } MELT_LOCATION ("warmelt-debug.melt:1224:/ initchunk"); /*^block */ /*anyblock */ { /*^checksignal */ MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V109*/ meltfptr[108]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V284*/ meltfptr[283]; /*_.INSTALL_METHOD__V373*/ meltfptr[349] = melt_apply ((meltclosure_ptr_t) ( /*_.INSTALL_METHOD__V22*/ meltfptr[21]), (melt_ptr_t) ( /*_.CLASS_NAMED__V20*/ meltfptr[19]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.INSTALL_METHOD__V373*/ meltfptr[349] = 0; } MELT_LOCATION ("warmelt-debug.melt:1244:/ initchunk"); /*^block */ /*anyblock */ { /*^checksignal */ MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V109*/ meltfptr[108]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V286*/ meltfptr[285]; /*_.INSTALL_METHOD__V374*/ meltfptr[350] = melt_apply ((meltclosure_ptr_t) ( /*_.INSTALL_METHOD__V22*/ meltfptr[21]), (melt_ptr_t) ( /*_.CLASS_SYMBOL__V39*/ meltfptr[38]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.INSTALL_METHOD__V374*/ meltfptr[350] = 0; } MELT_LOCATION ("warmelt-debug.melt:1252:/ initchunk"); /*^block */ /*anyblock */ { /*^checksignal */ MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V111*/ meltfptr[110]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V290*/ meltfptr[289]; /*_.INSTALL_METHOD__V375*/ meltfptr[348] = melt_apply ((meltclosure_ptr_t) ( /*_.INSTALL_METHOD__V22*/ meltfptr[21]), (melt_ptr_t) ( /*_.CLASS_SYMBOL__V39*/ meltfptr[38]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.INSTALL_METHOD__V375*/ meltfptr[348] = 0; } MELT_LOCATION ("warmelt-debug.melt:1262:/ initchunk"); /*^block */ /*anyblock */ { /*^checksignal */ MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V111*/ meltfptr[110]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V292*/ meltfptr[291]; /*_.INSTALL_METHOD__V376*/ meltfptr[349] = melt_apply ((meltclosure_ptr_t) ( /*_.INSTALL_METHOD__V22*/ meltfptr[21]), (melt_ptr_t) ( /*_.CLASS_CLASS__V40*/ meltfptr[39]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.INSTALL_METHOD__V376*/ meltfptr[349] = 0; } MELT_LOCATION ("warmelt-debug.melt:1277:/ initchunk"); /*^block */ /*anyblock */ { /*^checksignal */ MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V109*/ meltfptr[108]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V296*/ meltfptr[295]; /*_.INSTALL_METHOD__V377*/ meltfptr[350] = melt_apply ((meltclosure_ptr_t) ( /*_.INSTALL_METHOD__V22*/ meltfptr[21]), (melt_ptr_t) ( /*_.CLASS_KEYWORD__V41*/ meltfptr[40]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.INSTALL_METHOD__V377*/ meltfptr[350] = 0; } MELT_LOCATION ("warmelt-debug.melt:1285:/ initchunk"); /*^block */ /*anyblock */ { /*^checksignal */ MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V111*/ meltfptr[110]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V300*/ meltfptr[299]; /*_.INSTALL_METHOD__V378*/ meltfptr[348] = melt_apply ((meltclosure_ptr_t) ( /*_.INSTALL_METHOD__V22*/ meltfptr[21]), (melt_ptr_t) ( /*_.CLASS_KEYWORD__V41*/ meltfptr[40]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.INSTALL_METHOD__V378*/ meltfptr[348] = 0; } MELT_LOCATION ("warmelt-debug.melt:1302:/ initchunk"); /*^block */ /*anyblock */ { /*^checksignal */ MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V109*/ meltfptr[108]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V302*/ meltfptr[301]; /*_.INSTALL_METHOD__V379*/ meltfptr[349] = melt_apply ((meltclosure_ptr_t) ( /*_.INSTALL_METHOD__V22*/ meltfptr[21]), (melt_ptr_t) ( /*_.CLASS_CLONED_SYMBOL__V42*/ meltfptr[41]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.INSTALL_METHOD__V379*/ meltfptr[349] = 0; } MELT_LOCATION ("warmelt-debug.melt:1311:/ initchunk"); /*^block */ /*anyblock */ { /*^checksignal */ MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V111*/ meltfptr[110]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V306*/ meltfptr[305]; /*_.INSTALL_METHOD__V380*/ meltfptr[350] = melt_apply ((meltclosure_ptr_t) ( /*_.INSTALL_METHOD__V22*/ meltfptr[21]), (melt_ptr_t) ( /*_.CLASS_CLONED_SYMBOL__V42*/ meltfptr[41]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.INSTALL_METHOD__V380*/ meltfptr[350] = 0; } MELT_LOCATION ("warmelt-debug.melt:1352:/ initchunk"); /*^block */ /*anyblock */ { /*^checksignal */ MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V111*/ meltfptr[110]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V308*/ meltfptr[307]; /*_.INSTALL_METHOD__V381*/ meltfptr[348] = melt_apply ((meltclosure_ptr_t) ( /*_.INSTALL_METHOD__V22*/ meltfptr[21]), (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V43*/ meltfptr[42]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.INSTALL_METHOD__V381*/ meltfptr[348] = 0; } MELT_LOCATION ("warmelt-debug.melt:1365:/ initchunk"); /*^block */ /*anyblock */ { /*^checksignal */ MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V109*/ meltfptr[108]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V314*/ meltfptr[313]; /*_.INSTALL_METHOD__V382*/ meltfptr[349] = melt_apply ((meltclosure_ptr_t) ( /*_.INSTALL_METHOD__V22*/ meltfptr[21]), (melt_ptr_t) ( /*_.CLASS_CTYPE__V21*/ meltfptr[20]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.INSTALL_METHOD__V382*/ meltfptr[349] = 0; } MELT_LOCATION ("warmelt-debug.melt:1375:/ initchunk"); /*^block */ /*anyblock */ { /*^checksignal */ MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V111*/ meltfptr[110]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V316*/ meltfptr[315]; /*_.INSTALL_METHOD__V383*/ meltfptr[350] = melt_apply ((meltclosure_ptr_t) ( /*_.INSTALL_METHOD__V22*/ meltfptr[21]), (melt_ptr_t) ( /*_.CLASS_CTYPE__V21*/ meltfptr[20]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.INSTALL_METHOD__V383*/ meltfptr[350] = 0; } MELT_LOCATION ("warmelt-debug.melt:1404:/ initchunk"); /*^block */ /*anyblock */ { /*^checksignal */ MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V111*/ meltfptr[110]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V318*/ meltfptr[317]; /*_.INSTALL_METHOD__V384*/ meltfptr[348] = melt_apply ((meltclosure_ptr_t) ( /*_.INSTALL_METHOD__V22*/ meltfptr[21]), (melt_ptr_t) ( /*_.CLASS_ANY_BINDING__V45*/ meltfptr[44]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.INSTALL_METHOD__V384*/ meltfptr[348] = 0; } MELT_LOCATION ("warmelt-debug.melt:1405:/ initchunk"); /*^block */ /*anyblock */ { /*^checksignal */ MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V109*/ meltfptr[108]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V318*/ meltfptr[317]; /*_.INSTALL_METHOD__V385*/ meltfptr[349] = melt_apply ((meltclosure_ptr_t) ( /*_.INSTALL_METHOD__V22*/ meltfptr[21]), (melt_ptr_t) ( /*_.CLASS_ANY_BINDING__V45*/ meltfptr[44]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.INSTALL_METHOD__V385*/ meltfptr[349] = 0; } MELT_LOCATION ("warmelt-debug.melt:1435:/ initchunk"); /*^block */ /*anyblock */ { /*^getslot */ { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (INITIAL_SYSTEM_DATA)))), 4, "SYSDATA_VALUE_EXPORTER"); /*_.VALUEXPORTER___V386*/ meltfptr[350] = slot; }; ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V105*/ meltfptr[104]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*quasi.cur.mod.env.cont norm.exp.val : DBG_OUT */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V386*/ meltfptr[350]), (melt_ptr_t) ( /*_.VALDATA___V323*/ meltfptr[322]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V107*/ meltfptr[106]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*quasi.cur.mod.env.cont norm.exp.val : DBG_OUTOBJECT */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V386*/ meltfptr[350]), (melt_ptr_t) ( /*_.VALDATA___V325*/ meltfptr[324]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V111*/ meltfptr[110]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*quasi.cur.mod.env.cont norm.exp.val : DBG_OUTPUT */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V386*/ meltfptr[350]), (melt_ptr_t) ( /*_.VALDATA___V124*/ meltfptr[123]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V109*/ meltfptr[108]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*quasi.cur.mod.env.cont norm.exp.val : DBG_OUTPUTAGAIN */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V386*/ meltfptr[350]), (melt_ptr_t) ( /*_.VALDATA___V136*/ meltfptr[135]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V195*/ meltfptr[194]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*quasi.cur.mod.env.cont norm.exp.val : DBGOUT_FIELDS */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V386*/ meltfptr[350]), (melt_ptr_t) ( /*_.VALDATA___V327*/ meltfptr[326]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V197*/ meltfptr[196]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*quasi.cur.mod.env.cont norm.exp.val : DBGOUTAGAIN_FIELDS */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V386*/ meltfptr[350]), (melt_ptr_t) ( /*_.VALDATA___V329*/ meltfptr[328]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V68*/ meltfptr[67]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*quasi.cur.mod.env.cont norm.exp.val : DEBUG_DEPTH */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V386*/ meltfptr[350]), (melt_ptr_t) ( /*_.VALDATA___V66*/ meltfptr[65]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V113*/ meltfptr[112]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*quasi.cur.mod.env.cont norm.exp.val : DEBUG_MSG_FUN */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V386*/ meltfptr[350]), (melt_ptr_t) ( /*_.VALDATA___V331*/ meltfptr[330]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V180*/ meltfptr[179]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*quasi.cur.mod.env.cont norm.exp.val : DISCR_DEBUG_CLOSURE */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V386*/ meltfptr[350]), (melt_ptr_t) ( /*_.VALDATA___V176*/ meltfptr[175]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V322*/ meltfptr[321]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*quasi.cur.mod.env.cont norm.exp.val : DISPLAY_DEBUG_MESSAGE */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V386*/ meltfptr[350]), (melt_ptr_t) ( /*_.VALDATA___V333*/ meltfptr[332]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V185*/ meltfptr[184]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*quasi.cur.mod.env.cont norm.exp.val : MELT_DEBUG_FUN */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V386*/ meltfptr[350]), (melt_ptr_t) ( /*_.VALDATA___V335*/ meltfptr[334]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V86*/ meltfptr[85]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*quasi.cur.mod.env.cont norm.exp.val : MELT_HAS_FLAG_DEBUG_SET */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V386*/ meltfptr[350]), (melt_ptr_t) ( /*_.VALDATA___V84*/ meltfptr[83]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V93*/ meltfptr[92]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*quasi.cur.mod.env.cont norm.exp.val : MELT_REALLY_NEED_DBGLIM */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V386*/ meltfptr[350]), (melt_ptr_t) ( /*_.VALDATA___V91*/ meltfptr[90]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V75*/ meltfptr[74]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*quasi.cur.mod.env.cont norm.exp.val : MELT_REALLY_NEED_DEBUG */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V386*/ meltfptr[350]), (melt_ptr_t) ( /*_.VALDATA___V73*/ meltfptr[72]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V170*/ meltfptr[169]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*quasi.cur.mod.env.cont norm.exp.val : REGISTER_BASICBLOCK_DEBUG_FUN */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V386*/ meltfptr[350]), (melt_ptr_t) ( /*_.VALDATA___V337*/ meltfptr[336]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V165*/ meltfptr[164]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*quasi.cur.mod.env.cont norm.exp.val : REGISTER_EDGE_DEBUG_FUN */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V386*/ meltfptr[350]), (melt_ptr_t) ( /*_.VALDATA___V339*/ meltfptr[338]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V155*/ meltfptr[154]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*quasi.cur.mod.env.cont norm.exp.val : REGISTER_GIMPLE_DEBUG_FUN */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V386*/ meltfptr[350]), (melt_ptr_t) ( /*_.VALDATA___V341*/ meltfptr[340]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V160*/ meltfptr[159]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*quasi.cur.mod.env.cont norm.exp.val : REGISTER_GIMPLESEQ_DEBUG_FUN */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V386*/ meltfptr[350]), (melt_ptr_t) ( /*_.VALDATA___V343*/ meltfptr[342]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V175*/ meltfptr[174]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*quasi.cur.mod.env.cont norm.exp.val : REGISTER_LOOP_DEBUG_FUN */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V386*/ meltfptr[350]), (melt_ptr_t) ( /*_.VALDATA___V345*/ meltfptr[344]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V148*/ meltfptr[147]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*quasi.cur.mod.env.cont norm.exp.val : REGISTER_TREE_DEBUG_FUN */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V386*/ meltfptr[350]), (melt_ptr_t) ( /*_.VALDATA___V347*/ meltfptr[346]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.VALUEXPORTER___V386*/ meltfptr[350] = 0; } MELT_LOCATION ("warmelt-debug.melt:1459:/ initchunk"); /*^block */ /*anyblock */ { /*^checksignal */ MELT_CHECK_SIGNAL (); ; /*^cond */ /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) ( /*_.INITIAL_SYSTEM_DATA__V8*/ meltfptr[7]), (melt_ptr_t) ( /*_.CLASS_SYSTEM_DATA__V9*/ meltfptr[8])) ) /*then */ { /*^cond.then */ /*^block */ /*anyblock */ { /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj @SYSDATA_DEBUGMSG", melt_magic_discr ((melt_ptr_t) ( /*_.INITIAL_SYSTEM_DATA__V8*/ meltfptr[7])) == MELTOBMAG_OBJECT); melt_putfield_object (( /*_.INITIAL_SYSTEM_DATA__V8*/ meltfptr[7]), (17), ( /*_.VALCLO___V113*/ meltfptr[112]), "SYSDATA_DEBUGMSG"); ; /*^touch */ meltgc_touch ( /*_.INITIAL_SYSTEM_DATA__V8*/ meltfptr[7]); ; /*epilog */ } ; } /*noelse */ ; /*epilog */ } /**COMMENT: after toplevel body **/ ; /**COMMENT: compute boxloc again **/ ; /*cond */ if ( /*_.CONTENV___V2*/ meltfptr[1] || melt_object_length ((melt_ptr_t) MELT_PREDEF (INITIAL_SYSTEM_DATA)) < MELTFIELD_SYSDATA_CONT_FRESH_ENV) /*then */ { } else { /*^cond.else */ /*^block */ /*com.block:compute fresh module environment */ { /*^comment */ /**COMMENT: start computing boxloc **/ ; ; /*^getslot */ { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (INITIAL_SYSTEM_DATA)))), 3, "SYSDATA_CONT_FRESH_ENV"); /*_.FRESHENV___V3*/ meltfptr[2] = slot; }; ; /*^compute */ /*checkfreshenv */ if (( /*_.PREVENV___V4*/ meltfptr[3]) && melt_magic_discr ((melt_ptr_t) ( /*_.FRESHENV___V3*/ meltfptr[2])) != MELTOBMAG_CLOSURE) warning (0, "bad MELT FRESH_ENV @%p in system data <%s:%d>", ( /*_.FRESHENV___V3*/ meltfptr[2]), __FILE__, __LINE__);;; /*^apply */ /*apply */ { /*_.CONTENV___V2*/ meltfptr[1] = melt_apply ((meltclosure_ptr_t) ( /*_.FRESHENV___V3*/ meltfptr[2]), (melt_ptr_t) ( /*_.PREVENV___V4*/ meltfptr[3]), (""), (union meltparam_un *) 0, "", (union meltparam_un *) 0); } ; } /*com.end block:compute fresh module environment */ ; } /**COMMENT: intern symbols **/ ; /*internsym:CLASS_DEBUG_INFORMATION */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V46*/ meltfptr[45])); /*internsym:CLASS_ROOT */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V48*/ meltfptr[47])); /*internsym:DBGI_OUT */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V60*/ meltfptr[59])); /*internsym:DBGI_OCCMAP */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V62*/ meltfptr[61])); /*internsym:DBGI_MAXDEPTH */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V64*/ meltfptr[63])); /*internsym:DEBUG_DEPTH */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V66*/ meltfptr[65])); /*internsym:MELT_REALLY_NEED_DEBUG */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V73*/ meltfptr[72])); /*internsym:DEPTH */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V78*/ meltfptr[77])); /*internsym:MELT_HAS_FLAG_DEBUG_SET */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V84*/ meltfptr[83])); /*internsym:MELT_REALLY_NEED_DBGLIM */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V91*/ meltfptr[90])); /*internsym:LIMIT */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V97*/ meltfptr[96])); /*internsym:INITIAL_SYSTEM_DATA */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V114*/ meltfptr[113])); /*internsym:CLASS_SYSTEM_DATA */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V116*/ meltfptr[115])); /*internsym:DISCR_MAP_OBJECTS */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V118*/ meltfptr[117])); /*internsym:DISCR_INTEGER */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V120*/ meltfptr[119])); /*internsym:DISCR_STRBUF */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V122*/ meltfptr[121])); /*internsym:DBG_OUTPUT */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V124*/ meltfptr[123])); /*internsym:CLASS_SELECTOR */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V126*/ meltfptr[125])); /*internsym:RECV */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V128*/ meltfptr[127])); /*internsym:DBGINFO */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V131*/ meltfptr[130])); /*internsym:DBG_OUTPUTAGAIN */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V136*/ meltfptr[135])); /*internsym:TREE_DEBUG_FUNCONT */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V142*/ meltfptr[141])); /*internsym:CLASS_CONTAINER */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V144*/ meltfptr[143])); /*internsym:SET_CONTENT */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V149*/ meltfptr[148])); /*internsym:GIMPLE_DEBUG_FUNCONT */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V151*/ meltfptr[150])); /*internsym:GIMPLESEQ_DEBUG_FUNCONT */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V156*/ meltfptr[155])); /*internsym:EDGE_DEBUG_FUNCONT */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V161*/ meltfptr[160])); /*internsym:BASICBLOCK_DEBUG_FUNCONT */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V166*/ meltfptr[165])); /*internsym:LOOP_DEBUG_FUNCONT */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V171*/ meltfptr[170])); /*internsym:DISCR_DEBUG_CLOSURE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V176*/ meltfptr[175])); #undef meltfram__ } /*end of meltmod__warmelt_debug__initialmeltchunk_4 */ void meltmod__warmelt_debug__initialmeltchunk_5 (struct frame_start_module_melt_st *meltmeltframptr__, char predefinited[]) { #define meltfram__ (*meltmeltframptr__) #undef meltcallcount #define meltcallcount 0L /*internsym:CLASS_DISCRIMINANT*/ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V178*/ meltfptr[177])); /*internsym:DISCR_CLOSURE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V182*/ meltfptr[181])); /*internsym:ADD2OUT */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V186*/ meltfptr[185])); /*internsym:CSTRING_PREFIXED */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V188*/ meltfptr[187])); /*internsym:CLASS_NAMED */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V190*/ meltfptr[189])); /*internsym:CLASS_CTYPE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V192*/ meltfptr[191])); /*internsym:INSTALL_METHOD */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V200*/ meltfptr[199])); /*internsym:DISCR_NULL_RECEIVER */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V202*/ meltfptr[201])); /*internsym:DISCR_STRING */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V206*/ meltfptr[205])); /*internsym:DISCR_MIXED_INTEGER */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V214*/ meltfptr[213])); /*internsym:DISCR_MIXED_LOCATION */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V218*/ meltfptr[217])); /*internsym:DISCR_MIXED_BIGINT */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V222*/ meltfptr[221])); /*internsym:DISCR_MULTIPLE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V226*/ meltfptr[225])); /*internsym:DISCR_ROUTINE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V231*/ meltfptr[230])); /*internsym:ROUTINE_EVERY */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V233*/ meltfptr[232])); /*internsym:DISCR_LIST */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V239*/ meltfptr[238])); /*internsym:DISCR_PAIR */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V243*/ meltfptr[242])); /*internsym:MAPOBJECT_EVERY */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V253*/ meltfptr[252])); /*internsym:COMPARE_OBJ_RANKED */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V255*/ meltfptr[254])); /*internsym:MULTIPLE_EVERY */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V257*/ meltfptr[256])); /*internsym:DISCR_MAP_STRINGS */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V267*/ meltfptr[266])); /*internsym:MAPSTRING_EVERY */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V269*/ meltfptr[268])); /*internsym:DISCR_ANY_RECEIVER */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V275*/ meltfptr[274])); /*internsym:DBGOUT_NAMEDOBJECT_METHOD */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V281*/ meltfptr[280])); /*internsym:CLASS_SYMBOL */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V287*/ meltfptr[286])); /*internsym:CLASS_CLASS */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V293*/ meltfptr[292])); /*internsym:CLASS_KEYWORD */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V297*/ meltfptr[296])); /*internsym:CLASS_CLONED_SYMBOL */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V303*/ meltfptr[302])); /*internsym:CLASS_ENVIRONMENT */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V309*/ meltfptr[308])); /*internsym:ENV_PREV */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V311*/ meltfptr[310])); /*internsym:CLASS_ANY_BINDING */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V319*/ meltfptr[318])); /*internsym:DBG_OUT */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V323*/ meltfptr[322])); /*internsym:DBG_OUTOBJECT */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V325*/ meltfptr[324])); /*internsym:DBGOUT_FIELDS */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V327*/ meltfptr[326])); /*internsym:DBGOUTAGAIN_FIELDS */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V329*/ meltfptr[328])); /*internsym:DEBUG_MSG_FUN */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V331*/ meltfptr[330])); /*internsym:DISPLAY_DEBUG_MESSAGE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V333*/ meltfptr[332])); /*internsym:MELT_DEBUG_FUN */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V335*/ meltfptr[334])); /*internsym:REGISTER_BASICBLOCK_DEBUG_FUN */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V337*/ meltfptr[336])); /*internsym:REGISTER_EDGE_DEBUG_FUN */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V339*/ meltfptr[338])); /*internsym:REGISTER_GIMPLE_DEBUG_FUN */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V341*/ meltfptr[340])); /*internsym:REGISTER_GIMPLESEQ_DEBUG_FUN */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V343*/ meltfptr[342])); /*internsym:REGISTER_LOOP_DEBUG_FUN */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V345*/ meltfptr[344])); /*internsym:REGISTER_TREE_DEBUG_FUN */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V347*/ meltfptr[346])); /**COMMENT: set retinit from boxloc **/ ; /*_.RETINIT___V1*/ meltfptr[0] = /* finalfreshenvget */ melt_container_value ((melt_ptr_t) ( /*_.CONTENV___V2*/ meltfptr[1])); /**COMMENT: end the initproc **/ ; #undef meltfram__ } /*end of meltmod__warmelt_debug__initialmeltchunk_5 */ void meltmod__warmelt_debug__forward_or_mark_module_start_frame (struct melt_callframe_st *fp, int marking) { int ix = 0; initial_frame_st *meltframptr_ = (initial_frame_st *) fp; melt_assertmsg ("check module frame", meltframptr_->mcfr_nbvar == /*minihash */ -2708); if (!marking && melt_is_forwarding) { dbgprintf ("forward_or_mark_module_start_frame_warmelt_debug forwarding %d pointers in frame %p", 386, (void *) meltframptr_); for (ix = 0; ix < 386; ix++) MELT_FORWARDED (meltframptr_->mcfr_varptr[ix]); return; } /*end forwarding */ dbgprintf ("forward_or_mark_module_start_frame_warmelt_debug marking in frame %p", (void *) meltframptr_); for (ix = 0; ix < 386; ix++) if (meltframptr_->mcfr_varptr[ix]) gt_ggc_mx_melt_un (meltframptr_->mcfr_varptr[ix]); } /* end meltmod__warmelt_debug__forward_or_mark_module_start_frame */ #ifdef __cplusplus extern "C" { #endif /*__cplusplus*/ /* exported 3 field offsets */ const int meltfieldoff__DBGI_MAXDEPTH = 2; /* in CLASS_DEBUG_INFORMATION */ const int meltfieldoff__DBGI_OCCMAP = 1; /* in CLASS_DEBUG_INFORMATION */ const int meltfieldoff__DBGI_OUT = 0; /* in CLASS_DEBUG_INFORMATION */ /* exported 1 class lengths */ const int meltclasslen__CLASS_DEBUG_INFORMATION = 3; #ifdef __cplusplus }; /* end extern "C" */ #endif /*__cplusplus*/ /**** end of warmelt-debug ****/