/* GCC MELT GENERATED C++ FILE warmelt-macro.cc - DO NOT EDIT - see http://gcc-melt.org/ */ /***+ warmelt-macro without options +***/ #include "melt-run.h" /* used hash from melt-run.h when compiling this file: */ MELT_EXTERN const char meltrun_used_md5_melt[] = MELT_RUN_HASHMD5 /* from melt-run.h */; /**** warmelt-macro declarations ****/ /**** MELT GENERATED DECLARATIONS for warmelt-macro ** DO NOT EDIT ; see gcc-melt.org ****/ /****++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ *** Copyright 2008 - 2014 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 . *** ----------------------------------------------------------------****/ /** ordinary MELT module meltbuild-sources/warmelt-macro**/ #define MELT_HAS_INITIAL_ENVIRONMENT 1 /*usualmodule*/ class Melt_InitialClassyFrame_WARMELTmiMACRO_h222289303; // forward declaration fromline 6712 typedef Melt_InitialClassyFrame_WARMELTmiMACRO_h222289303 Melt_InitialFrame; /*** 6 MELT module variables declarations ****/ MELT_EXTERN void melt_forwarding_module_data (void); MELT_EXTERN void melt_discrforwarding_module_data (void); MELT_EXTERN void melt_marking_module_data (void); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY melt_WARMELTmiMACRO_module_var_ptr_tab[16]; MELT_EXTERN bool MELT_MODULE_VISIBILITY melt_WARMELTmiMACRO_module_var_flags[1]; static inline melt_ptr_t melt_module_var_fetch (int ix) { return (ix > 0 && ix <= 6)?melt_WARMELTmiMACRO_module_var_ptr_tab[ix]:NULL; } static inline void melt_module_var_put (int ix, melt_ptr_t val) { if (ix > 0 && ix <= 6) { melt_WARMELTmiMACRO_module_var_ptr_tab[ix]= val; melt_WARMELTmiMACRO_module_var_flags[ix/16] = true; } } /* MELT module variables indexes */ enum { meltmodatix_none, meltmodvarix_DIAGV_GIMPLE_symb = 1, meltmodvarix_DIAGV_GIMPLE_SEQ_symb = 2, meltmodvarix_DIAGV_TREE_symb = 3, meltmodvarix_DIAGV_BASIC_BLOCK_symb = 4, meltmodvarix_DIAGV_EDGE_symb = 5, meltmodvarix_MELT_TRANSRUNMACRO_CLOS_symb = 6, meltmodatix_last }; /* end MELT module variables indexes */ /*** 6 MELT called hook declarations ***/ /*declare MELT called hook #0 HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER **/ MELT_EXTERN melt_ptr_t melthook_HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER (melt_ptr_t melthookdatap, melt_ptr_t meltinp0_PREVENV, const char* meltinp1_MODULNAME); /*declare MELT called hook #1 HOOK_MACRO_EXPORTER **/ MELT_EXTERN void melthook_HOOK_MACRO_EXPORTER (melt_ptr_t melthookdatap, melt_ptr_t meltinp0_SYM, melt_ptr_t meltinp1_VAL, melt_ptr_t meltinp2_CONTENV); /*declare MELT called hook #2 HOOK_MELT_MAKE_LOCATION **/ MELT_EXTERN melt_ptr_t melthook_HOOK_MELT_MAKE_LOCATION (melt_ptr_t melthookdatap, const char* meltinp0_FILENAME, long meltinp1_LINENO); /*declare MELT called hook #3 HOOK_PATMACRO_EXPORTER **/ MELT_EXTERN void melthook_HOOK_PATMACRO_EXPORTER (melt_ptr_t melthookdatap, melt_ptr_t meltinp0_SYM, melt_ptr_t meltinp1_MACVAL, melt_ptr_t meltinp2_PATVAL, melt_ptr_t meltinp3_CONTENV); /*declare MELT called hook #4 HOOK_SYMBOL_IMPORTER **/ MELT_EXTERN melt_ptr_t melthook_HOOK_SYMBOL_IMPORTER (melt_ptr_t melthookdatap, const char* meltinp0_SYMNAMESTR, const char* meltinp1_MODULENAMESTR, melt_ptr_t meltinp2_PARENV); /*declare MELT called hook #5 HOOK_VALUE_EXPORTER **/ MELT_EXTERN void melthook_HOOK_VALUE_EXPORTER (melt_ptr_t melthookdatap, melt_ptr_t meltinp0_SYM, melt_ptr_t meltinp1_VAL, melt_ptr_t meltinp2_CONTENV); /*** end of 6 MELT called hook declarations ***/ /*** no extra MELT c-headers ***/ MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_1_WARMELTmiMACRO_REGISTER_DIAG_GIMPLE(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_2_WARMELTmiMACRO_REGISTER_DIAG_GIMPLE_SEQ(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_3_WARMELTmiMACRO_REGISTER_DIAG_TREE(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_4_WARMELTmiMACRO_REGISTER_DIAG_BASIC_BLOCK(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_5_WARMELTmiMACRO_REGISTER_DIAG_EDGE(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_6_WARMELTmiMACRO_DIAGNOSTIC_ARGS_MACRO(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_7_WARMELTmiMACRO_DIAGNOSTIC_EXPAND_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_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_8_WARMELTmiMACRO_ERROR_AT(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_9_WARMELTmiMACRO_FATAL_ERROR_AT(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_10_WARMELTmiMACRO_WARNING_AT(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_11_WARMELTmiMACRO_INFORM_AT(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_12_WARMELTmiMACRO_S_EXPR_WEIGHT(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_13_WARMELTmiMACRO_LAMBDA_cl1(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_14_WARMELTmiMACRO_INSTALL_GLOBAL_DEFINITION_BINDING(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_15_WARMELTmiMACRO_EXPAND_RESTLIST_AS_LIST(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_16_WARMELTmiMACRO_EXPAND_RESTLIST_AS_TUPLE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_17_WARMELTmiMACRO_EXPAND_PAIRLIST_AS_LIST(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_18_WARMELTmiMACRO_EXPAND_PAIRLIST_AS_TUPLE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_19_WARMELTmiMACRO_EXPAND_TUPLE_SLICE_AS_TUPLE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_20_WARMELTmiMACRO_REGISTER_GENERATOR_DEVICE(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_21_WARMELTmiMACRO_EXPAND_APPLY(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_22_WARMELTmiMACRO_EXPAND_MSEND(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_23_WARMELTmiMACRO_EXPAND_FIELDEXPR(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_24_WARMELTmiMACRO_EXPAND_CITERATION(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_25_WARMELTmiMACRO_EXPAND_CMATCHEXPR(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_26_WARMELTmiMACRO_EXPAND_FUNMATCHEXPR(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_27_WARMELTmiMACRO_EXPAND_KEYWORDFUN(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_28_WARMELTmiMACRO_MACROEXPAND_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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_29_WARMELTmiMACRO_LAMBDA_cl2(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_30_WARMELTmiMACRO_EXPAND_PRIMITIVE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_31_WARMELTmiMACRO_EXPAND_HOOK(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_32_WARMELTmiMACRO_PATTERNEXPAND_PAIRLIST_AS_TUPLE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_33_WARMELTmiMACRO_LAMBDA_cl3(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_34_WARMELTmiMACRO_PATMACEXPAND_FOR_MATCHER(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_35_WARMELTmiMACRO_LAMBDA_cl4(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_36_WARMELTmiMACRO_LAMBDA_cl5(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_37_WARMELTmiMACRO_PATTERN_WEIGHT_TUPLE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_38_WARMELTmiMACRO_LAMBDA_cl6(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_39_WARMELTmiMACRO_PATTERNEXPAND_EXPR(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_40_WARMELTmiMACRO_PATTERNEXPAND_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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_41_WARMELTmiMACRO_MACROEXPAND_TOPLEVEL_LIST(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_42_WARMELTmiMACRO_LAMBDA_ARG_BINDINGS(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_43_WARMELTmiMACRO_INSTALL_INITIAL_MACRO(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_44_WARMELTmiMACRO_INSTALL_INITIAL_PATMACRO(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_45_WARMELTmiMACRO_WARN_IF_REDEFINED(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_46_WARMELTmiMACRO_FLATTEN_FOR_C_CODE_EXPANSION(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_47_WARMELTmiMACRO_PARSE_PAIRLIST_C_CODE_EXPANSION(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_48_WARMELTmiMACRO_CHECK_C_EXPANSION(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_49_WARMELTmiMACRO_MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_50_WARMELTmiMACRO_MELT_INVOKE_TRANSLATOR_RUNNER_MACROEXPANSIONS(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_51_WARMELTmiMACRO_MEXPAND_DEFPRIMITIVE(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_52_WARMELTmiMACRO_MEXPAND_DEFCITERATOR(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_53_WARMELTmiMACRO_MEXPAND_DEFCMATCHER(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_54_WARMELTmiMACRO_MEXPAND_DEFUNMATCHER(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_55_WARMELTmiMACRO_MEXPAND_DEFUN(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_56_WARMELTmiMACRO_MELT_DELAYED_MACRO_EXPANDER(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_57_WARMELTmiMACRO_MEXPAND_DEFMACRO(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_58_WARMELTmiMACRO_LAMBDA_cl7(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); /** start of declaration for hook melthook_HOOK_MACRO_INSTALLER**/ /** declaration of hook melthook_HOOK_MACRO_INSTALLER */ MELT_EXTERN void melthook_HOOK_MACRO_INSTALLER(melt_ptr_t melthookdatap, melt_ptr_t meltinp0_MBIND, melt_ptr_t meltinp1_MEXPCLOS) ; /** end of declaration for hook melthook_HOOK_MACRO_INSTALLER**/ MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_60_WARMELTmiMACRO_MEXPAND_AT_MACRO_EXPANSION(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_61_WARMELTmiMACRO_MEXPAND_DEFVAR(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_62_WARMELTmiMACRO_MEXPAND_DEFHOOK(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_63_WARMELTmiMACRO_MEXPAND_DEFINE(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_64_WARMELTmiMACRO_SCAN_DEFCLASS(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_65_WARMELTmiMACRO_MEXPAND_DEFCLASS(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_66_WARMELTmiMACRO_PARSE_FIELD_ASSIGNMENT(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_67_WARMELTmiMACRO_LAMBDA_cl8(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_68_WARMELTmiMACRO_MEXPAND_DEFINSTANCE(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_69_WARMELTmiMACRO_MEXPAND_DEFSELECTOR(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_70_WARMELTmiMACRO_MEXPAND_INSTANCE(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_71_WARMELTmiMACRO_MEXPAND_LOAD(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_72_WARMELTmiMACRO_MEXPAND_SKIP_NIL(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_73_WARMELTmiMACRO_PARSE_FIELD_PATTERN(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_74_WARMELTmiMACRO_LAMBDA_cl9(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_75_WARMELTmiMACRO_PATEXPAND_INSTANCE(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_76_WARMELTmiMACRO_LAMBDA_cl10(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_77_WARMELTmiMACRO_PATEXPAND_OBJECT(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_78_WARMELTmiMACRO_LAMBDA_cl11(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_79_WARMELTmiMACRO_MEXPAND_OBJECT(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_80_WARMELTmiMACRO_EXPAND_MACROSTRING_PAIRS(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_81_WARMELTmiMACRO_LAMBDA_cl12(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_82_WARMELTmiMACRO_MEXPAND_CODE_CHUNK(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_83_WARMELTmiMACRO_MEXPAND_EXPR_CHUNK(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_84_WARMELTmiMACRO_MEXPAND_UNSAFE_PUT_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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_85_WARMELTmiMACRO_MEXPAND_PUT_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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_86_WARMELTmiMACRO_MEXPAND_UNSAFE_GET_FIELD(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_87_WARMELTmiMACRO_MEXPAND_GET_FIELD(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_88_WARMELTmiMACRO_PAIRLIST_TO_PROGN(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_89_WARMELTmiMACRO_MEXPAND_SETQ(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_90_WARMELTmiMACRO_MEXPAND_IF(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_91_WARMELTmiMACRO_MEXPAND_WHEN(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_92_WARMELTmiMACRO_MEXPAND_UNLESS(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_93_WARMELTmiMACRO_MEXPAND_WITH_CLONED_SYMB(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_94_WARMELTmiMACRO_LAMBDA_cl13(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_95_WARMELTmiMACRO_MEXPAND_CPPIF(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_96_WARMELTmiMACRO_MEXPAND_COND(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_97_WARMELTmiMACRO_LAMBDA_cl14(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_98_WARMELTmiMACRO_MEXPAND_AND(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_99_WARMELTmiMACRO_PATEXPAND_AS(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_100_WARMELTmiMACRO_MEXPAND_AS(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_101_WARMELTmiMACRO_PATEXPAND_WHEN(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_102_WARMELTmiMACRO_PATEXPAND_AND(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_103_WARMELTmiMACRO_MEXPAND_OR(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_104_WARMELTmiMACRO_PATEXPAND_OR(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_105_WARMELTmiMACRO_MEXPAND_REFERENCE(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_106_WARMELTmiMACRO_PATEXPAND_REFERENCE(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_107_WARMELTmiMACRO_MEXPAND_DEREF(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_108_WARMELTmiMACRO_MEXPANDOBSOLETE_CONTENT(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_109_WARMELTmiMACRO_MEXPAND_SET_REF(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_110_WARMELTmiMACRO_MEXPAND_PLUS(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_111_WARMELTmiMACRO_MEXPAND_MINUS(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_112_WARMELTmiMACRO_MEXPAND_TIMES(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_113_WARMELTmiMACRO_MEXPAND_DIV(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_114_WARMELTmiMACRO_MEXPAND_TUPLE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_115_WARMELTmiMACRO_PATEXPAND_TUPLE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_116_WARMELTmiMACRO_MEXPAND_LIST(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_117_WARMELTmiMACRO_PATEXPAND_LIST(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_118_WARMELTmiMACRO_MEXPAND_MATCH(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_119_WARMELTmiMACRO_LAMBDA_cl15(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_120_WARMELTmiMACRO_MEXPAND_MATCHALT(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_121_WARMELTmiMACRO_LAMBDA_cl16(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_122_WARMELTmiMACRO_MEXPAND_LETBINDING(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_123_WARMELTmiMACRO_MEXPAND_LET(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_124_WARMELTmiMACRO_LAMBDA_cl17(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_125_WARMELTmiMACRO_YES_RECURSIVELY_CONSTRUCTIBLE(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_126_WARMELTmiMACRO_MEXPAND_LETREC(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_127_WARMELTmiMACRO_LAMBDA_cl18(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_128_WARMELTmiMACRO_MEXPAND_LAMBDA(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_129_WARMELTmiMACRO_MEXPAND_VARIADIC(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_130_WARMELTmiMACRO_LAMBDA_cl19(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_131_WARMELTmiMACRO_LAMBDA_cl20(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_132_WARMELTmiMACRO_MEXPAND_MULTICALL(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_133_WARMELTmiMACRO_LAMBDA_cl21(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_134_WARMELTmiMACRO_MEXPAND_BOX(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_135_WARMELTmiMACRO_MEXPAND_CONSTANT_BOX(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_136_WARMELTmiMACRO_MEXPAND_UNBOX(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_137_WARMELTmiMACRO_MEXPAND_COMMENT(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_138_WARMELTmiMACRO_MEXPAND_CHEADER(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_139_WARMELTmiMACRO_MEXPAND_CIMPLEMENT(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_140_WARMELTmiMACRO_MEXPAND_MODULE_IS_GPL_COMPATIBLE(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_141_WARMELTmiMACRO_MEXPAND_USE_PACKAGE_FROM_PKG_CONFIG(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_142_WARMELTmiMACRO_PAIRLIST_TO_RETURN(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_143_WARMELTmiMACRO_MEXPAND_PROGN(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_144_WARMELTmiMACRO_MEXPAND_RETURN(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_145_WARMELTmiMACRO_MEXPAND_FOREVER(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_146_WARMELTmiMACRO_MEXPAND_EXIT(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_147_WARMELTmiMACRO_MEXPAND_AGAIN(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_148_WARMELTmiMACRO_MEXPAND_COMPILE_WARNING(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_149_WARMELTmiMACRO_MEXPAND_COMPILE_ERROR(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_150_WARMELTmiMACRO_MEXPAND_ASSERT_MSG(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_151_WARMELTmiMACRO_MEXPAND_THIS_LINE(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_152_WARMELTmiMACRO_MEXPAND_THIS_FILE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_153_WARMELTmiMACRO_MEXPAND_DEBUG(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_154_WARMELTmiMACRO_MEXPAND_EXPORT_VALUES(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_155_WARMELTmiMACRO_MEXPAND_EXPORT_MACRO(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_156_WARMELTmiMACRO_MEXPAND_EXPORT_PATMACRO(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_157_WARMELTmiMACRO_MEXPAND_EXPORT_CLASS(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_158_WARMELTmiMACRO_MEXPAND_EXPORT_SYNONYM(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_159_WARMELTmiMACRO_MEXPAND_CURRENT_MODULE_ENVIRONMENT_REFERENCE(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_160_WARMELTmiMACRO_MEXPAND_PARENT_MODULE_ENVIRONMENT(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_161_WARMELTmiMACRO_MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_162_WARMELTmiMACRO_MEXPAND_FETCH_PREDEFINED(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_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_163_WARMELTmiMACRO_MEXPAND_STORE_PREDEFINED(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_EXTERN MELT_LOW_OPTIMIZATION void* melt_start_this_module (void*); /*mandatory start of module*/ MELT_EXTERN const char melt_module_is_gpl_compatible[]; /*declare opaque initial frame: */ typedef Melt_InitialClassyFrame_WARMELTmiMACRO_h222289303 /*opaqueinitialclassy*/ meltinitial_frame_t; /* define different names when debugging or not */ #if MELT_HAVE_DEBUG > 0 MELT_EXTERN const char meltmodule_WARMELTmiMACRO__melt_have_debug_enabled[]; #define melt_have_debug_string meltmodule_WARMELTmiMACRO__melt_have_debug_enabled #else /*!MELT_HAVE_DEBUG*/ MELT_EXTERN const char meltmodule_WARMELTmiMACRO__melt_have_debug_disabled[]; #define melt_have_debug_string meltmodule_WARMELTmiMACRO__melt_have_debug_disabled #endif /*!MELT_HAVE_DEBUG*/ void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMACRO__initialmeltchunk_0 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMACRO__initialmeltchunk_1 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMACRO__initialmeltchunk_2 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMACRO__initialmeltchunk_3 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMACRO__initialmeltchunk_4 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMACRO__initialmeltchunk_5 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMACRO__initialmeltchunk_6 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMACRO__initialmeltchunk_7 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMACRO__initialmeltchunk_8 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMACRO__initialmeltchunk_9 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMACRO__initialmeltchunk_10 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMACRO__initialmeltchunk_11 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMACRO__initialmeltchunk_12 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMACRO__initialmeltchunk_13 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMACRO__initialmeltchunk_14 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMACRO__initialmeltchunk_15 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMACRO__initialmeltchunk_16 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMACRO__initialmeltchunk_17 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMACRO__initialmeltchunk_18 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMACRO__initialmeltchunk_19 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMACRO__initialmeltchunk_20 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMACRO__initialmeltchunk_21 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMACRO__initialmeltchunk_22 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMACRO__initialmeltchunk_23 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMACRO__initialmeltchunk_24 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMACRO__initialmeltchunk_25 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMACRO__initialmeltchunk_26 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMACRO__initialmeltchunk_27 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMACRO__initialmeltchunk_28 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMACRO__initialmeltchunk_29 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMACRO__initialmeltchunk_30 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMACRO__initialmeltchunk_31 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMACRO__initialmeltchunk_32 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMACRO__initialmeltchunk_33 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMACRO__initialmeltchunk_34 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMACRO__initialmeltchunk_35 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMACRO__initialmeltchunk_36 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMACRO__initialmeltchunk_37 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMACRO__initialmeltchunk_38 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMACRO__initialmeltchunk_39 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMACRO__initialmeltchunk_40 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMACRO__initialmeltchunk_41 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMACRO__initialmeltchunk_42 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMACRO__initialmeltchunk_43 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMACRO__initialmeltchunk_44 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMACRO__initialmeltchunk_45 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMACRO__initialmeltchunk_46 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMACRO__initialmeltchunk_47 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMACRO__initialmeltchunk_48 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMACRO__initialmeltchunk_49 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMACRO__initialmeltchunk_50 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMACRO__initialmeltchunk_51 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMACRO__initialmeltchunk_52 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMACRO__initialmeltchunk_53 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMACRO__initialmeltchunk_54 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMACRO__initialmeltchunk_55 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMACRO__initialmeltchunk_56 (meltinitial_frame_t*, char*); //declare /**** warmelt-macro implementations ****/ /**** MELT GENERATED IMPLEMENTATIONS for warmelt-macro ** DO NOT EDIT ; see gcc-melt.org ****/ /*** 6 MELT module variables implementations ****/ melt_ptr_t melt_WARMELTmiMACRO_module_var_ptr_tab[16]; bool melt_WARMELTmiMACRO_module_var_flags[1]; /**** forwarding MELT module variables ****/ // for Melt_Module::set_forwarding_routine void melt_forwarding_module_data (void) { int i, j; melt_WARMELTmiMACRO_module_var_ptr_tab[0] = NULL; /* unused modvar elem */ for (i=0; i<=0; i++) { if (melt_WARMELTmiMACRO_module_var_flags[i]) { melt_WARMELTmiMACRO_module_var_flags[i] = false; for (j=0; j<16; j++) MELT_FORWARDED (melt_WARMELTmiMACRO_module_var_ptr_tab[i*16+j]); }; } } /* end melt_fowarding_module_data */ // for Melt_Module::set_discriminant_forwarding_routine void melt_discrforwarding_module_data (void) { int i, j; melt_WARMELTmiMACRO_module_var_ptr_tab[0] = NULL; /* unused modvar elem */ for (i=0; i<=0; i++) { if (melt_WARMELTmiMACRO_module_var_flags[i]) { melt_WARMELTmiMACRO_module_var_flags[i] = false; for (j=0; j<16; j++) melt_forward_discriminant (melt_WARMELTmiMACRO_module_var_ptr_tab[i*16+j]); }; } } /* end melt_discrforwarding_module_data */ /**** marking MELT module variables ****/ void melt_marking_module_data (void) { int i; melt_WARMELTmiMACRO_module_var_ptr_tab[0] = NULL; /* unused modvar elem */ for (i=1; i <= 6; i++) gt_ggc_mx_melt_un(melt_WARMELTmiMACRO_module_var_ptr_tab[i]); } /* end melt_marking_module_data */ /*** no extra MELT implementations ***/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_1_WARMELTmiMACRO_REGISTER_DIAG_GIMPLE(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_WARMELTmiMACRO_REGISTER_DIAG_GIMPLE_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG > 0 static long melt_call_counter__; long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__; #undef meltcallcount #define meltcallcount melt_thiscallcounter__ #else #undef meltcallcount #define meltcallcount 0L #endif //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538 /* start of frame for routine meltrout_1_WARMELTmiMACRO_REGISTER_DIAG_GIMPLE fromline 1752 */ /** start of frame for meltrout_1_WARMELTmiMACRO_REGISTER_DIAG_GIMPLE of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_1_WARMELTmiMACRO_REGISTER_DIAG_GIMPLE// fromline 1568 : public Melt_CallFrameWithValues<2> { public: /* fromline 1572*/ long mcfr_varnum[1]; /*classy others*/ long _meltsparel; void melt_mark_stuff (void) { } /*end melt_mark_stuff*/ virtual void melt_mark_ggc_data (void) { melt_mark_values (); melt_mark_stuff (); }; /*end melt_mark_ggc_data*/ MeltFrame_meltrout_1_WARMELTmiMACRO_REGISTER_DIAG_GIMPLE(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<2> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_1_WARMELTmiMACRO_REGISTER_DIAG_GIMPLE), clos) {}; MeltFrame_meltrout_1_WARMELTmiMACRO_REGISTER_DIAG_GIMPLE() //the constructor fromline 1642 : Melt_CallFrameWithValues<2> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_1_WARMELTmiMACRO_REGISTER_DIAG_GIMPLE)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_1_WARMELTmiMACRO_REGISTER_DIAG_GIMPLE(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<2> (fil,lin, sizeof(MeltFrame_meltrout_1_WARMELTmiMACRO_REGISTER_DIAG_GIMPLE)) {}; MeltFrame_meltrout_1_WARMELTmiMACRO_REGISTER_DIAG_GIMPLE(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<2> (fil,lin, sizeof(MeltFrame_meltrout_1_WARMELTmiMACRO_REGISTER_DIAG_GIMPLE), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_1_WARMELTmiMACRO_REGISTER_DIAG_GIMPLE /** end of frame for meltrout_1_WARMELTmiMACRO_REGISTER_DIAG_GIMPLE fromline 1697**/ /* end of frame for routine meltrout_1_WARMELTmiMACRO_REGISTER_DIAG_GIMPLE fromline 1756 */ /* classy proc frame meltrout_1_WARMELTmiMACRO_REGISTER_DIAG_GIMPLE */ MeltFrame_meltrout_1_WARMELTmiMACRO_REGISTER_DIAG_GIMPLE meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_1_WARMELTmiMACRO_REGISTER_DIAG_GIMPLE fromline 1787*/ #if MELT_HAVE_DEBUG > 0 (__FILE__, __LINE__, meltclosp_) /* fromline 1791*/ #else /*MELT_HAVE_DEBUG */ (meltclosp_) /* fromline 1795*/ #endif /*MELT_HAVE_DEBUG */ ; #define meltframe meltfram__ melt_trace_start("REGISTER_DIAG_GIMPLE", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-macro.melt:52:/ getarg"); /*_.C__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_CLOSURE__L1*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.C__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);; MELT_LOCATION("warmelt-macro.melt:54:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-macro.melt:55:/ putmodvar"); melt_module_var_put (meltmodvarix_DIAGV_GIMPLE_symb, (melt_ptr_t)(/*_.C__V2*/ meltfptr[1])); ; /*epilog*/ } ; } /*noelse*/ ; /*epilog*/ MELT_LOCATION("warmelt-macro.melt:52:/ clear"); /*clear*/ /*_#IS_CLOSURE__L1*/ meltfnum[0] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("REGISTER_DIAG_GIMPLE", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_1_WARMELTmiMACRO_REGISTER_DIAG_GIMPLE_melt; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_1_WARMELTmiMACRO_REGISTER_DIAG_GIMPLE*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_2_WARMELTmiMACRO_REGISTER_DIAG_GIMPLE_SEQ(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_WARMELTmiMACRO_REGISTER_DIAG_GIMPLE_SEQ_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG > 0 static long melt_call_counter__; long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__; #undef meltcallcount #define meltcallcount melt_thiscallcounter__ #else #undef meltcallcount #define meltcallcount 0L #endif //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538 /* start of frame for routine meltrout_2_WARMELTmiMACRO_REGISTER_DIAG_GIMPLE_SEQ fromline 1752 */ /** start of frame for meltrout_2_WARMELTmiMACRO_REGISTER_DIAG_GIMPLE_SEQ of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_2_WARMELTmiMACRO_REGISTER_DIAG_GIMPLE_SEQ// fromline 1568 : public Melt_CallFrameWithValues<2> { public: /* fromline 1572*/ long mcfr_varnum[1]; /*classy others*/ long _meltsparel; void melt_mark_stuff (void) { } /*end melt_mark_stuff*/ virtual void melt_mark_ggc_data (void) { melt_mark_values (); melt_mark_stuff (); }; /*end melt_mark_ggc_data*/ MeltFrame_meltrout_2_WARMELTmiMACRO_REGISTER_DIAG_GIMPLE_SEQ(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<2> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_2_WARMELTmiMACRO_REGISTER_DIAG_GIMPLE_SEQ), clos) {}; MeltFrame_meltrout_2_WARMELTmiMACRO_REGISTER_DIAG_GIMPLE_SEQ() //the constructor fromline 1642 : Melt_CallFrameWithValues<2> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_2_WARMELTmiMACRO_REGISTER_DIAG_GIMPLE_SEQ)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_2_WARMELTmiMACRO_REGISTER_DIAG_GIMPLE_SEQ(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<2> (fil,lin, sizeof(MeltFrame_meltrout_2_WARMELTmiMACRO_REGISTER_DIAG_GIMPLE_SEQ)) {}; MeltFrame_meltrout_2_WARMELTmiMACRO_REGISTER_DIAG_GIMPLE_SEQ(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<2> (fil,lin, sizeof(MeltFrame_meltrout_2_WARMELTmiMACRO_REGISTER_DIAG_GIMPLE_SEQ), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_2_WARMELTmiMACRO_REGISTER_DIAG_GIMPLE_SEQ /** end of frame for meltrout_2_WARMELTmiMACRO_REGISTER_DIAG_GIMPLE_SEQ fromline 1697**/ /* end of frame for routine meltrout_2_WARMELTmiMACRO_REGISTER_DIAG_GIMPLE_SEQ fromline 1756 */ /* classy proc frame meltrout_2_WARMELTmiMACRO_REGISTER_DIAG_GIMPLE_SEQ */ MeltFrame_meltrout_2_WARMELTmiMACRO_REGISTER_DIAG_GIMPLE_SEQ meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_2_WARMELTmiMACRO_REGISTER_DIAG_GIMPLE_SEQ fromline 1787*/ #if MELT_HAVE_DEBUG > 0 (__FILE__, __LINE__, meltclosp_) /* fromline 1791*/ #else /*MELT_HAVE_DEBUG */ (meltclosp_) /* fromline 1795*/ #endif /*MELT_HAVE_DEBUG */ ; #define meltframe meltfram__ melt_trace_start("REGISTER_DIAG_GIMPLE_SEQ", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-macro.melt:57:/ getarg"); /*_.C__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_CLOSURE__L1*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.C__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);; MELT_LOCATION("warmelt-macro.melt:59:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-macro.melt:60:/ putmodvar"); melt_module_var_put (meltmodvarix_DIAGV_GIMPLE_SEQ_symb, (melt_ptr_t)(/*_.C__V2*/ meltfptr[1])); ; /*epilog*/ } ; } /*noelse*/ ; /*epilog*/ MELT_LOCATION("warmelt-macro.melt:57:/ clear"); /*clear*/ /*_#IS_CLOSURE__L1*/ meltfnum[0] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("REGISTER_DIAG_GIMPLE_SEQ", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_2_WARMELTmiMACRO_REGISTER_DIAG_GIMPLE_SEQ_melt; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_2_WARMELTmiMACRO_REGISTER_DIAG_GIMPLE_SEQ*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_3_WARMELTmiMACRO_REGISTER_DIAG_TREE(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_WARMELTmiMACRO_REGISTER_DIAG_TREE_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG > 0 static long melt_call_counter__; long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__; #undef meltcallcount #define meltcallcount melt_thiscallcounter__ #else #undef meltcallcount #define meltcallcount 0L #endif //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538 /* start of frame for routine meltrout_3_WARMELTmiMACRO_REGISTER_DIAG_TREE fromline 1752 */ /** start of frame for meltrout_3_WARMELTmiMACRO_REGISTER_DIAG_TREE of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_3_WARMELTmiMACRO_REGISTER_DIAG_TREE// fromline 1568 : public Melt_CallFrameWithValues<2> { public: /* fromline 1572*/ long mcfr_varnum[1]; /*classy others*/ long _meltsparel; void melt_mark_stuff (void) { } /*end melt_mark_stuff*/ virtual void melt_mark_ggc_data (void) { melt_mark_values (); melt_mark_stuff (); }; /*end melt_mark_ggc_data*/ MeltFrame_meltrout_3_WARMELTmiMACRO_REGISTER_DIAG_TREE(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<2> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_3_WARMELTmiMACRO_REGISTER_DIAG_TREE), clos) {}; MeltFrame_meltrout_3_WARMELTmiMACRO_REGISTER_DIAG_TREE() //the constructor fromline 1642 : Melt_CallFrameWithValues<2> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_3_WARMELTmiMACRO_REGISTER_DIAG_TREE)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_3_WARMELTmiMACRO_REGISTER_DIAG_TREE(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<2> (fil,lin, sizeof(MeltFrame_meltrout_3_WARMELTmiMACRO_REGISTER_DIAG_TREE)) {}; MeltFrame_meltrout_3_WARMELTmiMACRO_REGISTER_DIAG_TREE(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<2> (fil,lin, sizeof(MeltFrame_meltrout_3_WARMELTmiMACRO_REGISTER_DIAG_TREE), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_3_WARMELTmiMACRO_REGISTER_DIAG_TREE /** end of frame for meltrout_3_WARMELTmiMACRO_REGISTER_DIAG_TREE fromline 1697**/ /* end of frame for routine meltrout_3_WARMELTmiMACRO_REGISTER_DIAG_TREE fromline 1756 */ /* classy proc frame meltrout_3_WARMELTmiMACRO_REGISTER_DIAG_TREE */ MeltFrame_meltrout_3_WARMELTmiMACRO_REGISTER_DIAG_TREE meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_3_WARMELTmiMACRO_REGISTER_DIAG_TREE fromline 1787*/ #if MELT_HAVE_DEBUG > 0 (__FILE__, __LINE__, meltclosp_) /* fromline 1791*/ #else /*MELT_HAVE_DEBUG */ (meltclosp_) /* fromline 1795*/ #endif /*MELT_HAVE_DEBUG */ ; #define meltframe meltfram__ melt_trace_start("REGISTER_DIAG_TREE", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-macro.melt:62:/ getarg"); /*_.C__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_CLOSURE__L1*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.C__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);; MELT_LOCATION("warmelt-macro.melt:64:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-macro.melt:65:/ putmodvar"); melt_module_var_put (meltmodvarix_DIAGV_TREE_symb, (melt_ptr_t)(/*_.C__V2*/ meltfptr[1])); ; /*epilog*/ } ; } /*noelse*/ ; /*epilog*/ MELT_LOCATION("warmelt-macro.melt:62:/ clear"); /*clear*/ /*_#IS_CLOSURE__L1*/ meltfnum[0] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("REGISTER_DIAG_TREE", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_3_WARMELTmiMACRO_REGISTER_DIAG_TREE_melt; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_3_WARMELTmiMACRO_REGISTER_DIAG_TREE*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_4_WARMELTmiMACRO_REGISTER_DIAG_BASIC_BLOCK(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_WARMELTmiMACRO_REGISTER_DIAG_BASIC_BLOCK_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG > 0 static long melt_call_counter__; long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__; #undef meltcallcount #define meltcallcount melt_thiscallcounter__ #else #undef meltcallcount #define meltcallcount 0L #endif //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538 /* start of frame for routine meltrout_4_WARMELTmiMACRO_REGISTER_DIAG_BASIC_BLOCK fromline 1752 */ /** start of frame for meltrout_4_WARMELTmiMACRO_REGISTER_DIAG_BASIC_BLOCK of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_4_WARMELTmiMACRO_REGISTER_DIAG_BASIC_BLOCK// fromline 1568 : public Melt_CallFrameWithValues<2> { public: /* fromline 1572*/ long mcfr_varnum[1]; /*classy others*/ long _meltsparel; void melt_mark_stuff (void) { } /*end melt_mark_stuff*/ virtual void melt_mark_ggc_data (void) { melt_mark_values (); melt_mark_stuff (); }; /*end melt_mark_ggc_data*/ MeltFrame_meltrout_4_WARMELTmiMACRO_REGISTER_DIAG_BASIC_BLOCK(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<2> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_4_WARMELTmiMACRO_REGISTER_DIAG_BASIC_BLOCK), clos) {}; MeltFrame_meltrout_4_WARMELTmiMACRO_REGISTER_DIAG_BASIC_BLOCK() //the constructor fromline 1642 : Melt_CallFrameWithValues<2> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_4_WARMELTmiMACRO_REGISTER_DIAG_BASIC_BLOCK)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_4_WARMELTmiMACRO_REGISTER_DIAG_BASIC_BLOCK(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<2> (fil,lin, sizeof(MeltFrame_meltrout_4_WARMELTmiMACRO_REGISTER_DIAG_BASIC_BLOCK)) {}; MeltFrame_meltrout_4_WARMELTmiMACRO_REGISTER_DIAG_BASIC_BLOCK(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<2> (fil,lin, sizeof(MeltFrame_meltrout_4_WARMELTmiMACRO_REGISTER_DIAG_BASIC_BLOCK), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_4_WARMELTmiMACRO_REGISTER_DIAG_BASIC_BLOCK /** end of frame for meltrout_4_WARMELTmiMACRO_REGISTER_DIAG_BASIC_BLOCK fromline 1697**/ /* end of frame for routine meltrout_4_WARMELTmiMACRO_REGISTER_DIAG_BASIC_BLOCK fromline 1756 */ /* classy proc frame meltrout_4_WARMELTmiMACRO_REGISTER_DIAG_BASIC_BLOCK */ MeltFrame_meltrout_4_WARMELTmiMACRO_REGISTER_DIAG_BASIC_BLOCK meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_4_WARMELTmiMACRO_REGISTER_DIAG_BASIC_BLOCK fromline 1787*/ #if MELT_HAVE_DEBUG > 0 (__FILE__, __LINE__, meltclosp_) /* fromline 1791*/ #else /*MELT_HAVE_DEBUG */ (meltclosp_) /* fromline 1795*/ #endif /*MELT_HAVE_DEBUG */ ; #define meltframe meltfram__ melt_trace_start("REGISTER_DIAG_BASIC_BLOCK", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-macro.melt:67:/ getarg"); /*_.C__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_CLOSURE__L1*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.C__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);; MELT_LOCATION("warmelt-macro.melt:69:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-macro.melt:70:/ putmodvar"); melt_module_var_put (meltmodvarix_DIAGV_BASIC_BLOCK_symb, (melt_ptr_t)(/*_.C__V2*/ meltfptr[1])); ; /*epilog*/ } ; } /*noelse*/ ; /*epilog*/ MELT_LOCATION("warmelt-macro.melt:67:/ clear"); /*clear*/ /*_#IS_CLOSURE__L1*/ meltfnum[0] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("REGISTER_DIAG_BASIC_BLOCK", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_4_WARMELTmiMACRO_REGISTER_DIAG_BASIC_BLOCK_melt; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_4_WARMELTmiMACRO_REGISTER_DIAG_BASIC_BLOCK*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_5_WARMELTmiMACRO_REGISTER_DIAG_EDGE(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_5_WARMELTmiMACRO_REGISTER_DIAG_EDGE_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG > 0 static long melt_call_counter__; long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__; #undef meltcallcount #define meltcallcount melt_thiscallcounter__ #else #undef meltcallcount #define meltcallcount 0L #endif //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538 /* start of frame for routine meltrout_5_WARMELTmiMACRO_REGISTER_DIAG_EDGE fromline 1752 */ /** start of frame for meltrout_5_WARMELTmiMACRO_REGISTER_DIAG_EDGE of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_5_WARMELTmiMACRO_REGISTER_DIAG_EDGE// fromline 1568 : public Melt_CallFrameWithValues<2> { public: /* fromline 1572*/ long mcfr_varnum[1]; /*classy others*/ long _meltsparel; void melt_mark_stuff (void) { } /*end melt_mark_stuff*/ virtual void melt_mark_ggc_data (void) { melt_mark_values (); melt_mark_stuff (); }; /*end melt_mark_ggc_data*/ MeltFrame_meltrout_5_WARMELTmiMACRO_REGISTER_DIAG_EDGE(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<2> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_5_WARMELTmiMACRO_REGISTER_DIAG_EDGE), clos) {}; MeltFrame_meltrout_5_WARMELTmiMACRO_REGISTER_DIAG_EDGE() //the constructor fromline 1642 : Melt_CallFrameWithValues<2> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_5_WARMELTmiMACRO_REGISTER_DIAG_EDGE)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_5_WARMELTmiMACRO_REGISTER_DIAG_EDGE(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<2> (fil,lin, sizeof(MeltFrame_meltrout_5_WARMELTmiMACRO_REGISTER_DIAG_EDGE)) {}; MeltFrame_meltrout_5_WARMELTmiMACRO_REGISTER_DIAG_EDGE(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<2> (fil,lin, sizeof(MeltFrame_meltrout_5_WARMELTmiMACRO_REGISTER_DIAG_EDGE), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_5_WARMELTmiMACRO_REGISTER_DIAG_EDGE /** end of frame for meltrout_5_WARMELTmiMACRO_REGISTER_DIAG_EDGE fromline 1697**/ /* end of frame for routine meltrout_5_WARMELTmiMACRO_REGISTER_DIAG_EDGE fromline 1756 */ /* classy proc frame meltrout_5_WARMELTmiMACRO_REGISTER_DIAG_EDGE */ MeltFrame_meltrout_5_WARMELTmiMACRO_REGISTER_DIAG_EDGE meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_5_WARMELTmiMACRO_REGISTER_DIAG_EDGE fromline 1787*/ #if MELT_HAVE_DEBUG > 0 (__FILE__, __LINE__, meltclosp_) /* fromline 1791*/ #else /*MELT_HAVE_DEBUG */ (meltclosp_) /* fromline 1795*/ #endif /*MELT_HAVE_DEBUG */ ; #define meltframe meltfram__ melt_trace_start("REGISTER_DIAG_EDGE", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-macro.melt:72:/ getarg"); /*_.C__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_CLOSURE__L1*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.C__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);; MELT_LOCATION("warmelt-macro.melt:74:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-macro.melt:75:/ putmodvar"); melt_module_var_put (meltmodvarix_DIAGV_EDGE_symb, (melt_ptr_t)(/*_.C__V2*/ meltfptr[1])); ; /*epilog*/ } ; } /*noelse*/ ; /*epilog*/ MELT_LOCATION("warmelt-macro.melt:72:/ clear"); /*clear*/ /*_#IS_CLOSURE__L1*/ meltfnum[0] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("REGISTER_DIAG_EDGE", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_5_WARMELTmiMACRO_REGISTER_DIAG_EDGE_melt; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_5_WARMELTmiMACRO_REGISTER_DIAG_EDGE*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_6_WARMELTmiMACRO_DIAGNOSTIC_ARGS_MACRO(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_6_WARMELTmiMACRO_DIAGNOSTIC_ARGS_MACRO_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG > 0 static long melt_call_counter__; long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__; #undef meltcallcount #define meltcallcount melt_thiscallcounter__ #else #undef meltcallcount #define meltcallcount 0L #endif //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538 /* start of frame for routine meltrout_6_WARMELTmiMACRO_DIAGNOSTIC_ARGS_MACRO fromline 1752 */ /** start of frame for meltrout_6_WARMELTmiMACRO_DIAGNOSTIC_ARGS_MACRO of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_6_WARMELTmiMACRO_DIAGNOSTIC_ARGS_MACRO// fromline 1568 : public Melt_CallFrameWithValues<340> { public: /* fromline 1572*/ long mcfr_varnum[14]; /*classy others*/ long _meltsparel; void melt_mark_stuff (void) { } /*end melt_mark_stuff*/ virtual void melt_mark_ggc_data (void) { melt_mark_values (); melt_mark_stuff (); }; /*end melt_mark_ggc_data*/ MeltFrame_meltrout_6_WARMELTmiMACRO_DIAGNOSTIC_ARGS_MACRO(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<340> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_6_WARMELTmiMACRO_DIAGNOSTIC_ARGS_MACRO), clos) {}; MeltFrame_meltrout_6_WARMELTmiMACRO_DIAGNOSTIC_ARGS_MACRO() //the constructor fromline 1642 : Melt_CallFrameWithValues<340> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_6_WARMELTmiMACRO_DIAGNOSTIC_ARGS_MACRO)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_6_WARMELTmiMACRO_DIAGNOSTIC_ARGS_MACRO(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<340> (fil,lin, sizeof(MeltFrame_meltrout_6_WARMELTmiMACRO_DIAGNOSTIC_ARGS_MACRO)) {}; MeltFrame_meltrout_6_WARMELTmiMACRO_DIAGNOSTIC_ARGS_MACRO(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<340> (fil,lin, sizeof(MeltFrame_meltrout_6_WARMELTmiMACRO_DIAGNOSTIC_ARGS_MACRO), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_6_WARMELTmiMACRO_DIAGNOSTIC_ARGS_MACRO /** end of frame for meltrout_6_WARMELTmiMACRO_DIAGNOSTIC_ARGS_MACRO fromline 1697**/ /* end of frame for routine meltrout_6_WARMELTmiMACRO_DIAGNOSTIC_ARGS_MACRO fromline 1756 */ /* classy proc frame meltrout_6_WARMELTmiMACRO_DIAGNOSTIC_ARGS_MACRO */ MeltFrame_meltrout_6_WARMELTmiMACRO_DIAGNOSTIC_ARGS_MACRO meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_6_WARMELTmiMACRO_DIAGNOSTIC_ARGS_MACRO fromline 1787*/ #if MELT_HAVE_DEBUG > 0 (__FILE__, __LINE__, meltclosp_) /* fromline 1791*/ #else /*MELT_HAVE_DEBUG */ (meltclosp_) /* fromline 1795*/ #endif /*MELT_HAVE_DEBUG */ ; #define meltframe meltfram__ melt_trace_start("DIAGNOSTIC_ARGS_MACRO", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-macro.melt:98:/ getarg"); /*_.SEXP__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.ENV__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.MEXPANDER__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.MODCTX__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.MODCTX__V5*/ meltfptr[4])) != NULL); ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-macro.melt:101:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-macro.melt:101:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:101:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L2*/ meltfnum[1]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 101; /*^apply.arg*/ argtab[3].meltbp_cstring = "diagnostic_args_macro sexp="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SEXP__V2*/ meltfptr[1]; /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V6*/ meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-macro.melt:101:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V6*/ meltfptr[5] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-macro.melt:101:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V6*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; { MELT_LOCATION("warmelt-macro.melt:102:/ locexp"); #if MELT_HAVE_DEBUG > 0 if (melt_need_debug (0)) melt_dbgshortbacktrace(( "diagnostic_args_macro"), (12)); #endif ; } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-macro.melt:103:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L3*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.SEXP__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-macro.melt:103:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V9*/ meltfptr[5] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-macro.melt:103:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check sexp"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 103; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SEXP__V2*/ meltfptr[1]; /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V9*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; /*epilog*/ MELT_LOCATION("warmelt-macro.melt:103:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = 0 ; } ; } ; /*_.IFCPP___V8*/ meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-macro.melt:103:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V9*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V8*/ meltfptr[6] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-macro.melt:104:/ quasiblock"); MELT_LOCATION("warmelt-macro.melt:105:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SEXP__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_LOCATED*/ meltfrout->tabval[3]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SEXP__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); /*_.SLOC__V12*/ meltfptr[5] = slot; }; ; } else /*^cond.else*/ { /*_.SLOC__V12*/ meltfptr[5] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-macro.melt:106:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SEXP__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[1]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SEXP__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SEXP_CONTENTS"); /*_.SEXCONT__V13*/ meltfptr[12] = slot; }; ; } else /*^cond.else*/ { /*_.SEXCONT__V13*/ meltfptr[12] = /*reallynil*/ NULL ;; } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-macro.melt:108:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_LIST__L4*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.SEXCONT__V13*/ meltfptr[12])) == MELTOBMAG_LIST);; MELT_LOCATION("warmelt-macro.melt:108:/ cond"); /*cond*/ if (/*_#IS_LIST__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V15*/ meltfptr[14] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-macro.melt:108:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check sexcont"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 108; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SEXCONT__V13*/ meltfptr[12]; /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V15*/ meltfptr[14] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-macro.melt:108:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = 0 ; } ; } ; /*_.IFCPP___V14*/ meltfptr[13] = /*_._IFELSE___V15*/ meltfptr[14];; /*epilog*/ MELT_LOCATION("warmelt-macro.melt:108:/ clear"); /*clear*/ /*_#IS_LIST__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V15*/ meltfptr[14] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V14*/ meltfptr[13] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-macro.melt:109:/ quasiblock"); MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:110:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ meltfrout->tabval[5]); /*_.TCONT__V18*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.SEXCONT__V13*/ meltfptr[12]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_#TCONTLEN__L5*/ meltfnum[1] = (melt_multiple_length((melt_ptr_t)(/*_.TCONT__V18*/ meltfptr[14])));; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-macro.melt:113:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_MULTIPLE__L6*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.TCONT__V18*/ meltfptr[14])) == MELTOBMAG_MULTIPLE);; MELT_LOCATION("warmelt-macro.melt:113:/ cond"); /*cond*/ if (/*_#IS_MULTIPLE__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V20*/ meltfptr[19] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-macro.melt:113:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check tcont"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 113; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.TCONT__V18*/ meltfptr[14]; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SEXCONT__V13*/ meltfptr[12]; /*_.MELT_ASSERT_FAILURE_FUN__V21*/ meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V20*/ meltfptr[19] = /*_.MELT_ASSERT_FAILURE_FUN__V21*/ meltfptr[20];; /*epilog*/ MELT_LOCATION("warmelt-macro.melt:113:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V21*/ meltfptr[20] = 0 ; } ; } ; /*_.IFCPP___V19*/ meltfptr[18] = /*_._IFELSE___V20*/ meltfptr[19];; /*epilog*/ MELT_LOCATION("warmelt-macro.melt:113:/ clear"); /*clear*/ /*_#IS_MULTIPLE__L6*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V20*/ meltfptr[19] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V19*/ meltfptr[18] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-macro.melt:114:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#gtI__L7*/ meltfnum[0] = ((/*_#TCONTLEN__L5*/ meltfnum[1]) > (0));; MELT_LOCATION("warmelt-macro.melt:114:/ cond"); /*cond*/ if (/*_#gtI__L7*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V23*/ meltfptr[19] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-macro.melt:114:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check tcontlen"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 114; /*^apply.arg*/ argtab[3].meltbp_long = /*_#TCONTLEN__L5*/ meltfnum[1]; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.TCONT__V18*/ meltfptr[14]; /*_.MELT_ASSERT_FAILURE_FUN__V24*/ meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V23*/ meltfptr[19] = /*_.MELT_ASSERT_FAILURE_FUN__V24*/ meltfptr[23];; /*epilog*/ MELT_LOCATION("warmelt-macro.melt:114:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V24*/ meltfptr[23] = 0 ; } ; } ; /*_.IFCPP___V22*/ meltfptr[20] = /*_._IFELSE___V23*/ meltfptr[19];; /*epilog*/ MELT_LOCATION("warmelt-macro.melt:114:/ clear"); /*clear*/ /*_#gtI__L7*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V23*/ meltfptr[19] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V22*/ meltfptr[20] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; /*^compute*/ /*_#exeqI__L8*/ meltfnum[0] = ((/*_#TCONTLEN__L5*/ meltfnum[1]) != (3));; MELT_LOCATION("warmelt-macro.melt:115:/ cond"); /*cond*/ if (/*_#exeqI__L8*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-macro.melt:116:/ locexp"); /* error_plain */ melt_error_str((melt_ptr_t)(/*_.SLOC__V12*/ meltfptr[5]), ( "DIAGNOSTIC_ARGS_MACRO needs two args: "), (melt_ptr_t)0); } ; { MELT_LOCATION("warmelt-macro.melt:117:/ locexp"); /* diagnostic_args_macro DIAGARGBAD_CHK__2 */ melt_low_stderr_value ("diagnostic_args_macro sexp", /*_.SEXP__V2*/ meltfptr[1]) ; melt_low_stderr_value ("diagnostic_args_macro sexcont", /*_.SEXCONT__V13*/ meltfptr[12]) ; melt_low_stderr_value ("diagnostic_args_macro tcont", /*_.TCONT__V18*/ meltfptr[14]) ; melt_low_stderr_value ("diagnostic_args_macro sloc", /*_.SLOC__V12*/ meltfptr[5]) ; ; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:124:/ apply"); /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#TCONTLEN__L5*/ meltfnum[1]; /*^apply.arg*/ argtab[1].meltbp_cstring = " args == "; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.TCONT__V18*/ meltfptr[14]; /*_.STRING4OUT__V26*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!STRING4OUT*/ meltfrout->tabval[6])), (melt_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[7])), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; { MELT_LOCATION("warmelt-macro.melt:123:/ locexp"); melt_inform_str((melt_ptr_t)(/*_.SLOC__V12*/ meltfptr[5]), ( "DIAGNOSTIC_ARGS_MACRO called with "), (melt_ptr_t)(/*_.STRING4OUT__V26*/ meltfptr[19])); } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-macro.melt:125:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#MELT_IS_BOOTSTRAPPING__L9*/ meltfnum[8] = (melt_flag_bootstrapping);; /*^compute*/ /*_#NOT__L10*/ meltfnum[9] = (!(/*_#MELT_IS_BOOTSTRAPPING__L9*/ meltfnum[8]));; MELT_LOCATION("warmelt-macro.melt:125:/ cond"); /*cond*/ if (/*_#NOT__L10*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V28*/ meltfptr[27] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-macro.melt:125:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[6]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "diagnostic_args_macro wrongly called when bootstrapping"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 125; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SEXP__V2*/ meltfptr[1]; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SEXCONT__V13*/ meltfptr[12]; /*^apply.arg*/ argtab[5].meltbp_aptr = (melt_ptr_t*) &/*_.TCONT__V18*/ meltfptr[14]; /*_.MELT_ASSERT_FAILURE_FUN__V29*/ meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V28*/ meltfptr[27] = /*_.MELT_ASSERT_FAILURE_FUN__V29*/ meltfptr[28];; /*epilog*/ MELT_LOCATION("warmelt-macro.melt:125:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V29*/ meltfptr[28] = 0 ; } ; } ; /*_.IFCPP___V27*/ meltfptr[26] = /*_._IFELSE___V28*/ meltfptr[27];; /*epilog*/ MELT_LOCATION("warmelt-macro.melt:125:/ clear"); /*clear*/ /*_#MELT_IS_BOOTSTRAPPING__L9*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_#NOT__L10*/ meltfnum[9] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V28*/ meltfptr[27] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V27*/ meltfptr[26] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-macro.melt:127:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-macro.melt:127:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG > 0 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) melt_warn_for_no_expected_secondary_results(); /* we warned when secondary results are expected but not returned. */ #endif /*MELT_HAVE_DEBUG*/ ; } ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; MELT_LOCATION("warmelt-macro.melt:115:/ quasiblock"); /*_.PROGN___V31*/ meltfptr[27] = /*_.RETURN___V30*/ meltfptr[28];; /*^compute*/ /*_._IF___V25*/ meltfptr[23] = /*_.PROGN___V31*/ meltfptr[27];; /*epilog*/ MELT_LOCATION("warmelt-macro.melt:115:/ clear"); /*clear*/ /*_.STRING4OUT__V26*/ meltfptr[19] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V27*/ meltfptr[26] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V30*/ meltfptr[28] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V31*/ meltfptr[27] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V25*/ meltfptr[23] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-macro.melt:129:/ quasiblock"); /*_.SEXPNBARG__V33*/ meltfptr[26] = (melt_multiple_nth((melt_ptr_t)(/*_.TCONT__V18*/ meltfptr[14]), (1)));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:131:/ apply"); /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MODCTX__V5*/ meltfptr[4]; /*_.MACROVARNBARG__V34*/ meltfptr[28] = melt_apply ((meltclosure_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3]), (melt_ptr_t)(/*_.SEXPNBARG__V33*/ meltfptr[26]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.SEXPVARVECT__V35*/ meltfptr[27] = (melt_multiple_nth((melt_ptr_t)(/*_.TCONT__V18*/ meltfptr[14]), (2)));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:133:/ apply"); /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MODCTX__V5*/ meltfptr[4]; /*_.MACROVARVECT__V36*/ meltfptr[35] = melt_apply ((meltclosure_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3]), (melt_ptr_t)(/*_.SEXPVARVECT__V35*/ meltfptr[27]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; /*_#IS_NOT_A__L11*/ meltfnum[8] = !melt_is_instance_of((melt_ptr_t)(/*_.MACROVARNBARG__V34*/ meltfptr[28]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[8])));; MELT_LOCATION("warmelt-macro.melt:135:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L11*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-macro.melt:136:/ locexp"); /* error_plain */ melt_error_str((melt_ptr_t)(/*_.SLOC__V12*/ meltfptr[5]), ( "(DIAGNOSTIC_ARGS_MACRO ) not variable "), (melt_ptr_t)0); } ; MELT_LOCATION("warmelt-macro.melt:138:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-macro.melt:138:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG > 0 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) melt_warn_for_no_expected_secondary_results(); /* we warned when secondary results are expected but not returned. */ #endif /*MELT_HAVE_DEBUG*/ ; } ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; MELT_LOCATION("warmelt-macro.melt:135:/ quasiblock"); /*_.PROGN___V39*/ meltfptr[38] = /*_.RETURN___V38*/ meltfptr[37];; /*^compute*/ /*_._IF___V37*/ meltfptr[36] = /*_.PROGN___V39*/ meltfptr[38];; /*epilog*/ MELT_LOCATION("warmelt-macro.melt:135:/ clear"); /*clear*/ /*_.RETURN___V38*/ meltfptr[37] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V39*/ meltfptr[38] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V37*/ meltfptr[36] = /*reallynil*/ NULL ;; } ; MELT_CHECK_SIGNAL(); ; /*^compute*/ /*_#IS_NOT_A__L12*/ meltfnum[9] = !melt_is_instance_of((melt_ptr_t)(/*_.MACROVARVECT__V36*/ meltfptr[35]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[8])));; MELT_LOCATION("warmelt-macro.melt:139:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L12*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-macro.melt:140:/ locexp"); /* error_plain */ melt_error_str((melt_ptr_t)(/*_.SLOC__V12*/ meltfptr[5]), ( "(DIAGNOSTIC_ARGS_MACRO ) not variable "), (melt_ptr_t)0); } ; MELT_LOCATION("warmelt-macro.melt:142:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-macro.melt:142:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG > 0 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) melt_warn_for_no_expected_secondary_results(); /* we warned when secondary results are expected but not returned. */ #endif /*MELT_HAVE_DEBUG*/ ; } ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; MELT_LOCATION("warmelt-macro.melt:139:/ quasiblock"); /*_.PROGN___V42*/ meltfptr[41] = /*_.RETURN___V41*/ meltfptr[38];; /*^compute*/ /*_._IF___V40*/ meltfptr[37] = /*_.PROGN___V42*/ meltfptr[41];; /*epilog*/ MELT_LOCATION("warmelt-macro.melt:139:/ clear"); /*clear*/ /*_.RETURN___V41*/ meltfptr[38] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V42*/ meltfptr[41] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V40*/ meltfptr[37] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-macro.melt:143:/ quasiblock"); /*_.HOOK_MELT_MAKE_LOCATION__V44*/ meltfptr[41] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 144) ;; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V45*/ meltfptr[44] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 144) ;; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V46*/ meltfptr[45] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 145) ;; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V47*/ meltfptr[46] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 145) ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:145:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_13_BOX*/ meltfrout->tabval[13]); /*^apply.arg*/ argtab[1].meltbp_long = 0; /*_.MELT_MAKE_SEXPR__V48*/ meltfptr[47] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V47*/ meltfptr[46]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_12_DIAGPOSBOX*/ meltfrout->tabval[12]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V48*/ meltfptr[47]; /*_.MELT_MAKE_SEXPR__V49*/ meltfptr[48] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V46*/ meltfptr[45]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.HOOK_MELT_MAKE_LOCATION__V50*/ meltfptr[49] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 146) ;; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V51*/ meltfptr[50] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 146) ;; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V52*/ meltfptr[51] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 150) ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:150:/ apply"); /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_22_MAKE_MAPOBJECT*/ meltfrout->tabval[22]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_23_DISCR_MAP_OBJECTS*/ meltfrout->tabval[23]); /*^apply.arg*/ argtab[2].meltbp_long = 19; /*_.MELT_MAKE_SEXPR__V53*/ meltfptr[52] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V52*/ meltfptr[51]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:146:/ apply"); /*apply*/ { union meltparam_un argtab[10]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_15_INSTANCE*/ meltfrout->tabval[15]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_16_CLASS_DIAGNOSTIC_STATE*/ meltfrout->tabval[16]); /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &(/*!konst_17_LOCA_LOCATION*/ meltfrout->tabval[17]); /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SLOC__V12*/ meltfptr[5]; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &(/*!konst_18_DIAG_VECT*/ meltfrout->tabval[18]); /*^apply.arg*/ argtab[5].meltbp_aptr = (melt_ptr_t*) &/*_.MACROVARVECT__V36*/ meltfptr[35]; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &(/*!konst_19_DIAG_POSITION*/ meltfrout->tabval[19]); /*^apply.arg*/ argtab[7].meltbp_aptr = (melt_ptr_t*) &(/*!konst_12_DIAGPOSBOX*/ meltfrout->tabval[12]); /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &(/*!konst_21_DIAG_STATE*/ meltfrout->tabval[21]); /*^apply.arg*/ argtab[9].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V53*/ meltfptr[52]; /*_.MELT_MAKE_SEXPR__V54*/ meltfptr[53] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V51*/ meltfptr[50]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_14_DIAGSTATE*/ meltfrout->tabval[14]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V54*/ meltfptr[53]; /*_.MELT_MAKE_SEXPR__V55*/ meltfptr[54] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V50*/ meltfptr[49]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:144:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V49*/ meltfptr[48]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V55*/ meltfptr[54]; /*_.MELT_MAKE_SEXPR__V56*/ meltfptr[55] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V45*/ meltfptr[44]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.HOOK_MELT_MAKE_LOCATION__V57*/ meltfptr[56] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 152) ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:152:/ apply"); /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_24_SETQ*/ meltfrout->tabval[24]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MACROVARNBARG__V34*/ meltfptr[28]; /*^apply.arg*/ argtab[2].meltbp_long = 0; /*_.MELT_MAKE_SEXPR__V58*/ meltfptr[57] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V57*/ meltfptr[56]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.HOOK_MELT_MAKE_LOCATION__V59*/ meltfptr[58] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 153) ;; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V60*/ meltfptr[59] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 155) ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:155:/ apply"); /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_27_PUT_INT*/ meltfrout->tabval[27]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_12_DIAGPOSBOX*/ meltfrout->tabval[12]); /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MACROVARNBARG__V34*/ meltfptr[28]; /*_.MELT_MAKE_SEXPR__V61*/ meltfptr[60] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V60*/ meltfptr[59]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.HOOK_MELT_MAKE_LOCATION__V62*/ meltfptr[61] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 156) ;; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V63*/ meltfptr[62] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 157) ;; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V64*/ meltfptr[63] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 158) ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:158:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_30_EXIT*/ meltfrout->tabval[30]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_26_ARGLOOP*/ meltfrout->tabval[26]); /*_.MELT_MAKE_SEXPR__V65*/ meltfptr[64] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V64*/ meltfptr[63]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:157:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = /*nil*/(melt_ptr_t*)NULL; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V65*/ meltfptr[64]; /*_.MELT_MAKE_SEXPR__V66*/ meltfptr[65] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V63*/ meltfptr[62]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.HOOK_MELT_MAKE_LOCATION__V67*/ meltfptr[66] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 159) ;; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V68*/ meltfptr[67] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 159) ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:159:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_32_CSTRING*/ meltfrout->tabval[32]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_33_STR*/ meltfrout->tabval[33]); /*_.MELT_MAKE_SEXPR__V69*/ meltfptr[68] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V68*/ meltfptr[67]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.HOOK_MELT_MAKE_LOCATION__V70*/ meltfptr[69] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 160) ;; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V71*/ meltfptr[70] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 160) ;; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V72*/ meltfptr[71] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 160) ;; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V73*/ meltfptr[72] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 160) ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:160:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_36_CONSTANT_BOX*/ meltfrout->tabval[36]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_33_STR*/ meltfrout->tabval[33]); /*_.MELT_MAKE_SEXPR__V74*/ meltfptr[73] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V73*/ meltfptr[72]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_35_BS*/ meltfrout->tabval[35]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V74*/ meltfptr[73]; /*_.MELT_MAKE_SEXPR__V75*/ meltfptr[74] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V72*/ meltfptr[71]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V75*/ meltfptr[74]; /*_.MELT_MAKE_SEXPR__V76*/ meltfptr[75] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V71*/ meltfptr[70]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.HOOK_MELT_MAKE_LOCATION__V77*/ meltfptr[76] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 162) ;; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V78*/ meltfptr[77] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 162) ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:162:/ apply"); /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_39_pl*/ meltfrout->tabval[39]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MACROVARNBARG__V34*/ meltfptr[28]; /*^apply.arg*/ argtab[2].meltbp_long = 1; /*_.MELT_MAKE_SEXPR__V79*/ meltfptr[78] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V78*/ meltfptr[77]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_24_SETQ*/ meltfrout->tabval[24]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MACROVARNBARG__V34*/ meltfptr[28]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V79*/ meltfptr[78]; /*_.MELT_MAKE_SEXPR__V80*/ meltfptr[79] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V77*/ meltfptr[76]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.HOOK_MELT_MAKE_LOCATION__V81*/ meltfptr[80] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 163) ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:163:/ apply"); /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_40_MULTIPLE_PUT_NTH*/ meltfrout->tabval[40]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MACROVARVECT__V36*/ meltfptr[35]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MACROVARNBARG__V34*/ meltfptr[28]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &(/*!konst_35_BS*/ meltfrout->tabval[35]); /*_.MELT_MAKE_SEXPR__V82*/ meltfptr[81] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V81*/ meltfptr[80]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:160:/ apply"); /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_11_LET*/ meltfrout->tabval[11]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V76*/ meltfptr[75]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V80*/ meltfptr[79]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V82*/ meltfptr[81]; /*_.MELT_MAKE_SEXPR__V83*/ meltfptr[82] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V70*/ meltfptr[69]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.HOOK_MELT_MAKE_LOCATION__V84*/ meltfptr[83] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 165) ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:165:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_42_VOID*/ meltfrout->tabval[42]); /*_.MELT_MAKE_SEXPR__V85*/ meltfptr[84] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V84*/ meltfptr[83]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:159:/ apply"); /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V69*/ meltfptr[68]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V83*/ meltfptr[82]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V85*/ meltfptr[84]; /*_.MELT_MAKE_SEXPR__V86*/ meltfptr[85] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V67*/ meltfptr[66]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.HOOK_MELT_MAKE_LOCATION__V87*/ meltfptr[86] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 167) ;; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V88*/ meltfptr[87] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 167) ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:167:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_43_LONG*/ meltfrout->tabval[43]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_44_L*/ meltfrout->tabval[44]); /*_.MELT_MAKE_SEXPR__V89*/ meltfptr[88] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V88*/ meltfptr[87]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.HOOK_MELT_MAKE_LOCATION__V90*/ meltfptr[89] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 168) ;; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V91*/ meltfptr[90] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 168) ;; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V92*/ meltfptr[91] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 168) ;; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V93*/ meltfptr[92] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 168) ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:168:/ apply"); /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_47_STRING4OUT*/ meltfrout->tabval[47]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_48_DISCR_STRING*/ meltfrout->tabval[48]); /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &(/*!konst_44_L*/ meltfrout->tabval[44]); /*_.MELT_MAKE_SEXPR__V94*/ meltfptr[93] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V93*/ meltfptr[92]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_46_SN*/ meltfrout->tabval[46]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V94*/ meltfptr[93]; /*_.MELT_MAKE_SEXPR__V95*/ meltfptr[94] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V92*/ meltfptr[91]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V95*/ meltfptr[94]; /*_.MELT_MAKE_SEXPR__V96*/ meltfptr[95] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V91*/ meltfptr[90]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.HOOK_MELT_MAKE_LOCATION__V97*/ meltfptr[96] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 170) ;; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V98*/ meltfptr[97] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 170) ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:170:/ apply"); /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_39_pl*/ meltfrout->tabval[39]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MACROVARNBARG__V34*/ meltfptr[28]; /*^apply.arg*/ argtab[2].meltbp_long = 1; /*_.MELT_MAKE_SEXPR__V99*/ meltfptr[98] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V98*/ meltfptr[97]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_24_SETQ*/ meltfrout->tabval[24]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MACROVARNBARG__V34*/ meltfptr[28]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V99*/ meltfptr[98]; /*_.MELT_MAKE_SEXPR__V100*/ meltfptr[99] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V97*/ meltfptr[96]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.HOOK_MELT_MAKE_LOCATION__V101*/ meltfptr[100] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 171) ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:171:/ apply"); /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_40_MULTIPLE_PUT_NTH*/ meltfrout->tabval[40]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MACROVARVECT__V36*/ meltfptr[35]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MACROVARNBARG__V34*/ meltfptr[28]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &(/*!konst_46_SN*/ meltfrout->tabval[46]); /*_.MELT_MAKE_SEXPR__V102*/ meltfptr[101] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V101*/ meltfptr[100]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:168:/ apply"); /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_11_LET*/ meltfrout->tabval[11]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V96*/ meltfptr[95]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V100*/ meltfptr[99]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V102*/ meltfptr[101]; /*_.MELT_MAKE_SEXPR__V103*/ meltfptr[102] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V90*/ meltfptr[89]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.HOOK_MELT_MAKE_LOCATION__V104*/ meltfptr[103] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 173) ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:173:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_42_VOID*/ meltfrout->tabval[42]); /*_.MELT_MAKE_SEXPR__V105*/ meltfptr[104] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V104*/ meltfptr[103]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:167:/ apply"); /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V89*/ meltfptr[88]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V103*/ meltfptr[102]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V105*/ meltfptr[104]; /*_.MELT_MAKE_SEXPR__V106*/ meltfptr[105] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V87*/ meltfptr[86]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.HOOK_MELT_MAKE_LOCATION__V107*/ meltfptr[106] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 175) ;; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V108*/ meltfptr[107] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 175) ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:175:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_55_TREE*/ meltfrout->tabval[55]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_56_TR*/ meltfrout->tabval[56]); /*_.MELT_MAKE_SEXPR__V109*/ meltfptr[108] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V108*/ meltfptr[107]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.HOOK_MELT_MAKE_LOCATION__V110*/ meltfptr[109] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 176) ;; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V111*/ meltfptr[110] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 176) ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:176:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_58_IS_CLOSURE*/ meltfrout->tabval[58]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_59_DIAGV_TREE*/ meltfrout->tabval[59]); /*_.MELT_MAKE_SEXPR__V112*/ meltfptr[111] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V111*/ meltfptr[110]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_57_ASSERT_MSG*/ meltfrout->tabval[57]); /*^apply.arg*/ argtab[1].meltbp_cstring = "check diagv_tree"; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V112*/ meltfptr[111]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &(/*!konst_59_DIAGV_TREE*/ meltfrout->tabval[59]); /*_.MELT_MAKE_SEXPR__V113*/ meltfptr[112] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V110*/ meltfptr[109]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.HOOK_MELT_MAKE_LOCATION__V114*/ meltfptr[113] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 177) ;; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V115*/ meltfptr[114] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 177) ;; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V116*/ meltfptr[115] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 177) ;; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V117*/ meltfptr[116] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 177) ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:177:/ apply"); /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_59_DIAGV_TREE*/ meltfrout->tabval[59]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_14_DIAGSTATE*/ meltfrout->tabval[14]); /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &(/*!konst_56_TR*/ meltfrout->tabval[56]); /*_.MELT_MAKE_SEXPR__V118*/ meltfptr[117] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V117*/ meltfptr[116]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_62_S*/ meltfrout->tabval[62]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V118*/ meltfptr[117]; /*_.MELT_MAKE_SEXPR__V119*/ meltfptr[118] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V116*/ meltfptr[115]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V119*/ meltfptr[118]; /*_.MELT_MAKE_SEXPR__V120*/ meltfptr[119] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V115*/ meltfptr[114]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.HOOK_MELT_MAKE_LOCATION__V121*/ meltfptr[120] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 179) ;; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V122*/ meltfptr[121] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 179) ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:179:/ apply"); /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_39_pl*/ meltfrout->tabval[39]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MACROVARNBARG__V34*/ meltfptr[28]; /*^apply.arg*/ argtab[2].meltbp_long = 1; /*_.MELT_MAKE_SEXPR__V123*/ meltfptr[122] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V122*/ meltfptr[121]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_24_SETQ*/ meltfrout->tabval[24]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MACROVARNBARG__V34*/ meltfptr[28]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V123*/ meltfptr[122]; /*_.MELT_MAKE_SEXPR__V124*/ meltfptr[123] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V121*/ meltfptr[120]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.HOOK_MELT_MAKE_LOCATION__V125*/ meltfptr[124] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 180) ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:180:/ apply"); /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_40_MULTIPLE_PUT_NTH*/ meltfrout->tabval[40]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MACROVARVECT__V36*/ meltfptr[35]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MACROVARNBARG__V34*/ meltfptr[28]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &(/*!konst_62_S*/ meltfrout->tabval[62]); /*_.MELT_MAKE_SEXPR__V126*/ meltfptr[125] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V125*/ meltfptr[124]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:177:/ apply"); /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_11_LET*/ meltfrout->tabval[11]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V120*/ meltfptr[119]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V124*/ meltfptr[123]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V126*/ meltfptr[125]; /*_.MELT_MAKE_SEXPR__V127*/ meltfptr[126] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V114*/ meltfptr[113]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.HOOK_MELT_MAKE_LOCATION__V128*/ meltfptr[127] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 182) ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:182:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_42_VOID*/ meltfrout->tabval[42]); /*_.MELT_MAKE_SEXPR__V129*/ meltfptr[128] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V128*/ meltfptr[127]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:175:/ apply"); /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V109*/ meltfptr[108]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V113*/ meltfptr[112]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V127*/ meltfptr[126]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V129*/ meltfptr[128]; /*_.MELT_MAKE_SEXPR__V130*/ meltfptr[129] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V107*/ meltfptr[106]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.HOOK_MELT_MAKE_LOCATION__V131*/ meltfptr[130] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 184) ;; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V132*/ meltfptr[131] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 184) ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:184:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_71_GIMPLE*/ meltfrout->tabval[71]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_72_GI*/ meltfrout->tabval[72]); /*_.MELT_MAKE_SEXPR__V133*/ meltfptr[132] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V132*/ meltfptr[131]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.HOOK_MELT_MAKE_LOCATION__V134*/ meltfptr[133] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 185) ;; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V135*/ meltfptr[134] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 185) ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:185:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_58_IS_CLOSURE*/ meltfrout->tabval[58]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_75_DIAGV_GIMPLE*/ meltfrout->tabval[75]); /*_.MELT_MAKE_SEXPR__V136*/ meltfptr[135] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V135*/ meltfptr[134]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_57_ASSERT_MSG*/ meltfrout->tabval[57]); /*^apply.arg*/ argtab[1].meltbp_cstring = "check diagv_gimple"; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V136*/ meltfptr[135]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &(/*!konst_75_DIAGV_GIMPLE*/ meltfrout->tabval[75]); /*_.MELT_MAKE_SEXPR__V137*/ meltfptr[136] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V134*/ meltfptr[133]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.HOOK_MELT_MAKE_LOCATION__V138*/ meltfptr[137] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 186) ;; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V139*/ meltfptr[138] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 186) ;; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V140*/ meltfptr[139] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 186) ;; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V141*/ meltfptr[140] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 186) ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:186:/ apply"); /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_75_DIAGV_GIMPLE*/ meltfrout->tabval[75]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_14_DIAGSTATE*/ meltfrout->tabval[14]); /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &(/*!konst_72_GI*/ meltfrout->tabval[72]); /*_.MELT_MAKE_SEXPR__V142*/ meltfptr[141] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V141*/ meltfptr[140]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_62_S*/ meltfrout->tabval[62]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V142*/ meltfptr[141]; /*_.MELT_MAKE_SEXPR__V143*/ meltfptr[142] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V140*/ meltfptr[139]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V143*/ meltfptr[142]; /*_.MELT_MAKE_SEXPR__V144*/ meltfptr[143] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V139*/ meltfptr[138]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.HOOK_MELT_MAKE_LOCATION__V145*/ meltfptr[144] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 188) ;; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V146*/ meltfptr[145] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 188) ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:188:/ apply"); /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_39_pl*/ meltfrout->tabval[39]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MACROVARNBARG__V34*/ meltfptr[28]; /*^apply.arg*/ argtab[2].meltbp_long = 1; /*_.MELT_MAKE_SEXPR__V147*/ meltfptr[146] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V146*/ meltfptr[145]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_24_SETQ*/ meltfrout->tabval[24]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MACROVARNBARG__V34*/ meltfptr[28]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V147*/ meltfptr[146]; /*_.MELT_MAKE_SEXPR__V148*/ meltfptr[147] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V145*/ meltfptr[144]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.HOOK_MELT_MAKE_LOCATION__V149*/ meltfptr[148] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 189) ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:189:/ apply"); /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_40_MULTIPLE_PUT_NTH*/ meltfrout->tabval[40]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MACROVARVECT__V36*/ meltfptr[35]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MACROVARNBARG__V34*/ meltfptr[28]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &(/*!konst_62_S*/ meltfrout->tabval[62]); /*_.MELT_MAKE_SEXPR__V150*/ meltfptr[149] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V149*/ meltfptr[148]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:186:/ apply"); /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_11_LET*/ meltfrout->tabval[11]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V144*/ meltfptr[143]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V148*/ meltfptr[147]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V150*/ meltfptr[149]; /*_.MELT_MAKE_SEXPR__V151*/ meltfptr[150] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V138*/ meltfptr[137]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.HOOK_MELT_MAKE_LOCATION__V152*/ meltfptr[151] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 191) ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:191:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_42_VOID*/ meltfrout->tabval[42]); /*_.MELT_MAKE_SEXPR__V153*/ meltfptr[152] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V152*/ meltfptr[151]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:184:/ apply"); /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V133*/ meltfptr[132]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V137*/ meltfptr[136]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V151*/ meltfptr[150]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V153*/ meltfptr[152]; /*_.MELT_MAKE_SEXPR__V154*/ meltfptr[153] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V131*/ meltfptr[130]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.HOOK_MELT_MAKE_LOCATION__V155*/ meltfptr[154] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 193) ;; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V156*/ meltfptr[155] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 193) ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:193:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_87_GIMPLE_SEQ*/ meltfrout->tabval[87]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_88_GS*/ meltfrout->tabval[88]); /*_.MELT_MAKE_SEXPR__V157*/ meltfptr[156] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V156*/ meltfptr[155]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.HOOK_MELT_MAKE_LOCATION__V158*/ meltfptr[157] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 194) ;; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V159*/ meltfptr[158] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 194) ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:194:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_58_IS_CLOSURE*/ meltfrout->tabval[58]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_91_DIAGV_GIMPLE_SEQ*/ meltfrout->tabval[91]); /*_.MELT_MAKE_SEXPR__V160*/ meltfptr[159] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V159*/ meltfptr[158]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_57_ASSERT_MSG*/ meltfrout->tabval[57]); /*^apply.arg*/ argtab[1].meltbp_cstring = "check diagv_gimple_seq"; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V160*/ meltfptr[159]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &(/*!konst_91_DIAGV_GIMPLE_SEQ*/ meltfrout->tabval[91]); /*_.MELT_MAKE_SEXPR__V161*/ meltfptr[160] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V158*/ meltfptr[157]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.HOOK_MELT_MAKE_LOCATION__V162*/ meltfptr[161] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 195) ;; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V163*/ meltfptr[162] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 195) ;; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V164*/ meltfptr[163] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 195) ;; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V165*/ meltfptr[164] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 195) ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:195:/ apply"); /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_91_DIAGV_GIMPLE_SEQ*/ meltfrout->tabval[91]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_14_DIAGSTATE*/ meltfrout->tabval[14]); /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &(/*!konst_88_GS*/ meltfrout->tabval[88]); /*_.MELT_MAKE_SEXPR__V166*/ meltfptr[165] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V165*/ meltfptr[164]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_62_S*/ meltfrout->tabval[62]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V166*/ meltfptr[165]; /*_.MELT_MAKE_SEXPR__V167*/ meltfptr[166] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V164*/ meltfptr[163]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V167*/ meltfptr[166]; /*_.MELT_MAKE_SEXPR__V168*/ meltfptr[167] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V163*/ meltfptr[162]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.HOOK_MELT_MAKE_LOCATION__V169*/ meltfptr[168] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 197) ;; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V170*/ meltfptr[169] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 197) ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:197:/ apply"); /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_39_pl*/ meltfrout->tabval[39]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MACROVARNBARG__V34*/ meltfptr[28]; /*^apply.arg*/ argtab[2].meltbp_long = 1; /*_.MELT_MAKE_SEXPR__V171*/ meltfptr[170] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V170*/ meltfptr[169]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_24_SETQ*/ meltfrout->tabval[24]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MACROVARNBARG__V34*/ meltfptr[28]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V171*/ meltfptr[170]; /*_.MELT_MAKE_SEXPR__V172*/ meltfptr[171] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V169*/ meltfptr[168]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.HOOK_MELT_MAKE_LOCATION__V173*/ meltfptr[172] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 198) ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:198:/ apply"); /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_40_MULTIPLE_PUT_NTH*/ meltfrout->tabval[40]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MACROVARVECT__V36*/ meltfptr[35]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MACROVARNBARG__V34*/ meltfptr[28]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &(/*!konst_62_S*/ meltfrout->tabval[62]); /*_.MELT_MAKE_SEXPR__V174*/ meltfptr[173] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V173*/ meltfptr[172]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:195:/ apply"); /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_11_LET*/ meltfrout->tabval[11]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V168*/ meltfptr[167]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V172*/ meltfptr[171]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V174*/ meltfptr[173]; /*_.MELT_MAKE_SEXPR__V175*/ meltfptr[174] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V162*/ meltfptr[161]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.HOOK_MELT_MAKE_LOCATION__V176*/ meltfptr[175] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 200) ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:200:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_42_VOID*/ meltfrout->tabval[42]); /*_.MELT_MAKE_SEXPR__V177*/ meltfptr[176] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V176*/ meltfptr[175]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:193:/ apply"); /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V157*/ meltfptr[156]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V161*/ meltfptr[160]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V175*/ meltfptr[174]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V177*/ meltfptr[176]; /*_.MELT_MAKE_SEXPR__V178*/ meltfptr[177] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V155*/ meltfptr[154]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.HOOK_MELT_MAKE_LOCATION__V179*/ meltfptr[178] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 202) ;; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V180*/ meltfptr[179] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 202) ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:202:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_103_BASIC_BLOCK*/ meltfrout->tabval[103]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_104_BB*/ meltfrout->tabval[104]); /*_.MELT_MAKE_SEXPR__V181*/ meltfptr[180] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V180*/ meltfptr[179]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.HOOK_MELT_MAKE_LOCATION__V182*/ meltfptr[181] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 203) ;; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V183*/ meltfptr[182] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 203) ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:203:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_58_IS_CLOSURE*/ meltfrout->tabval[58]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_107_DIAGV_BASIC_BLOCK*/ meltfrout->tabval[107]); /*_.MELT_MAKE_SEXPR__V184*/ meltfptr[183] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V183*/ meltfptr[182]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_57_ASSERT_MSG*/ meltfrout->tabval[57]); /*^apply.arg*/ argtab[1].meltbp_cstring = "check diagv_basic_block"; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V184*/ meltfptr[183]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &(/*!konst_107_DIAGV_BASIC_BLOCK*/ meltfrout->tabval[107]); /*_.MELT_MAKE_SEXPR__V185*/ meltfptr[184] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V182*/ meltfptr[181]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.HOOK_MELT_MAKE_LOCATION__V186*/ meltfptr[185] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 204) ;; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V187*/ meltfptr[186] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 204) ;; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V188*/ meltfptr[187] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 204) ;; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V189*/ meltfptr[188] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 204) ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:204:/ apply"); /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_107_DIAGV_BASIC_BLOCK*/ meltfrout->tabval[107]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_14_DIAGSTATE*/ meltfrout->tabval[14]); /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &(/*!konst_104_BB*/ meltfrout->tabval[104]); /*_.MELT_MAKE_SEXPR__V190*/ meltfptr[189] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V189*/ meltfptr[188]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_62_S*/ meltfrout->tabval[62]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V190*/ meltfptr[189]; /*_.MELT_MAKE_SEXPR__V191*/ meltfptr[190] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V188*/ meltfptr[187]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V191*/ meltfptr[190]; /*_.MELT_MAKE_SEXPR__V192*/ meltfptr[191] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V187*/ meltfptr[186]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.HOOK_MELT_MAKE_LOCATION__V193*/ meltfptr[192] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 206) ;; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V194*/ meltfptr[193] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 206) ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:206:/ apply"); /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_39_pl*/ meltfrout->tabval[39]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MACROVARNBARG__V34*/ meltfptr[28]; /*^apply.arg*/ argtab[2].meltbp_long = 1; /*_.MELT_MAKE_SEXPR__V195*/ meltfptr[194] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V194*/ meltfptr[193]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_24_SETQ*/ meltfrout->tabval[24]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MACROVARNBARG__V34*/ meltfptr[28]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V195*/ meltfptr[194]; /*_.MELT_MAKE_SEXPR__V196*/ meltfptr[195] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V193*/ meltfptr[192]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.HOOK_MELT_MAKE_LOCATION__V197*/ meltfptr[196] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 207) ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:207:/ apply"); /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_40_MULTIPLE_PUT_NTH*/ meltfrout->tabval[40]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MACROVARVECT__V36*/ meltfptr[35]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MACROVARNBARG__V34*/ meltfptr[28]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &(/*!konst_62_S*/ meltfrout->tabval[62]); /*_.MELT_MAKE_SEXPR__V198*/ meltfptr[197] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V197*/ meltfptr[196]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:204:/ apply"); /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_11_LET*/ meltfrout->tabval[11]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V192*/ meltfptr[191]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V196*/ meltfptr[195]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V198*/ meltfptr[197]; /*_.MELT_MAKE_SEXPR__V199*/ meltfptr[198] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V186*/ meltfptr[185]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.HOOK_MELT_MAKE_LOCATION__V200*/ meltfptr[199] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 209) ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:209:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_42_VOID*/ meltfrout->tabval[42]); /*_.MELT_MAKE_SEXPR__V201*/ meltfptr[200] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V200*/ meltfptr[199]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:202:/ apply"); /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V181*/ meltfptr[180]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V185*/ meltfptr[184]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V199*/ meltfptr[198]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V201*/ meltfptr[200]; /*_.MELT_MAKE_SEXPR__V202*/ meltfptr[201] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V179*/ meltfptr[178]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.HOOK_MELT_MAKE_LOCATION__V203*/ meltfptr[202] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 211) ;; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V204*/ meltfptr[203] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 211) ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:211:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_119_EDGE*/ meltfrout->tabval[119]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_120_ED*/ meltfrout->tabval[120]); /*_.MELT_MAKE_SEXPR__V205*/ meltfptr[204] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V204*/ meltfptr[203]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.HOOK_MELT_MAKE_LOCATION__V206*/ meltfptr[205] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 212) ;; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V207*/ meltfptr[206] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 212) ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:212:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_58_IS_CLOSURE*/ meltfrout->tabval[58]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_123_DIAGV_EDGE*/ meltfrout->tabval[123]); /*_.MELT_MAKE_SEXPR__V208*/ meltfptr[207] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V207*/ meltfptr[206]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_57_ASSERT_MSG*/ meltfrout->tabval[57]); /*^apply.arg*/ argtab[1].meltbp_cstring = "check diagv_edge"; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V208*/ meltfptr[207]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &(/*!konst_123_DIAGV_EDGE*/ meltfrout->tabval[123]); /*_.MELT_MAKE_SEXPR__V209*/ meltfptr[208] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V206*/ meltfptr[205]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.HOOK_MELT_MAKE_LOCATION__V210*/ meltfptr[209] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 213) ;; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V211*/ meltfptr[210] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 213) ;; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V212*/ meltfptr[211] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 213) ;; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V213*/ meltfptr[212] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 213) ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:213:/ apply"); /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_123_DIAGV_EDGE*/ meltfrout->tabval[123]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_14_DIAGSTATE*/ meltfrout->tabval[14]); /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &(/*!konst_120_ED*/ meltfrout->tabval[120]); /*_.MELT_MAKE_SEXPR__V214*/ meltfptr[213] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V213*/ meltfptr[212]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_62_S*/ meltfrout->tabval[62]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V214*/ meltfptr[213]; /*_.MELT_MAKE_SEXPR__V215*/ meltfptr[214] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V212*/ meltfptr[211]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V215*/ meltfptr[214]; /*_.MELT_MAKE_SEXPR__V216*/ meltfptr[215] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V211*/ meltfptr[210]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.HOOK_MELT_MAKE_LOCATION__V217*/ meltfptr[216] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 215) ;; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V218*/ meltfptr[217] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 215) ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:215:/ apply"); /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_39_pl*/ meltfrout->tabval[39]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MACROVARNBARG__V34*/ meltfptr[28]; /*^apply.arg*/ argtab[2].meltbp_long = 1; /*_.MELT_MAKE_SEXPR__V219*/ meltfptr[218] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V218*/ meltfptr[217]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_24_SETQ*/ meltfrout->tabval[24]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MACROVARNBARG__V34*/ meltfptr[28]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V219*/ meltfptr[218]; /*_.MELT_MAKE_SEXPR__V220*/ meltfptr[219] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V217*/ meltfptr[216]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.HOOK_MELT_MAKE_LOCATION__V221*/ meltfptr[220] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 216) ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:216:/ apply"); /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_40_MULTIPLE_PUT_NTH*/ meltfrout->tabval[40]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MACROVARVECT__V36*/ meltfptr[35]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MACROVARNBARG__V34*/ meltfptr[28]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &(/*!konst_62_S*/ meltfrout->tabval[62]); /*_.MELT_MAKE_SEXPR__V222*/ meltfptr[221] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V221*/ meltfptr[220]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:213:/ apply"); /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_11_LET*/ meltfrout->tabval[11]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V216*/ meltfptr[215]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V220*/ meltfptr[219]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V222*/ meltfptr[221]; /*_.MELT_MAKE_SEXPR__V223*/ meltfptr[222] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V210*/ meltfptr[209]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.HOOK_MELT_MAKE_LOCATION__V224*/ meltfptr[223] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 218) ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:218:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_42_VOID*/ meltfrout->tabval[42]); /*_.MELT_MAKE_SEXPR__V225*/ meltfptr[224] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V224*/ meltfptr[223]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:211:/ apply"); /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V205*/ meltfptr[204]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V209*/ meltfptr[208]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V223*/ meltfptr[222]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V225*/ meltfptr[224]; /*_.MELT_MAKE_SEXPR__V226*/ meltfptr[225] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V203*/ meltfptr[202]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.HOOK_MELT_MAKE_LOCATION__V227*/ meltfptr[226] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 220) ;; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V228*/ meltfptr[227] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 220) ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:220:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_135_VALUE*/ meltfrout->tabval[135]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_136_V*/ meltfrout->tabval[136]); /*_.MELT_MAKE_SEXPR__V229*/ meltfptr[228] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V228*/ meltfptr[227]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.HOOK_MELT_MAKE_LOCATION__V230*/ meltfptr[229] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 221) ;; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V231*/ meltfptr[230] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 222) ;; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V232*/ meltfptr[231] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 222) ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:222:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_138_IS_INTEGERBOX*/ meltfrout->tabval[138]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_136_V*/ meltfrout->tabval[136]); /*_.MELT_MAKE_SEXPR__V233*/ meltfptr[232] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V232*/ meltfptr[231]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.HOOK_MELT_MAKE_LOCATION__V234*/ meltfptr[233] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 223) ;; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V235*/ meltfptr[234] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 223) ;; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V236*/ meltfptr[235] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 223) ;; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V237*/ meltfptr[236] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 223) ;; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V238*/ meltfptr[237] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 223) ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:223:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_144_GET_INT*/ meltfrout->tabval[144]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_136_V*/ meltfrout->tabval[136]); /*_.MELT_MAKE_SEXPR__V239*/ meltfptr[238] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V238*/ meltfptr[237]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_47_STRING4OUT*/ meltfrout->tabval[47]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_48_DISCR_STRING*/ meltfrout->tabval[48]); /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V239*/ meltfptr[238]; /*_.MELT_MAKE_SEXPR__V240*/ meltfptr[239] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V237*/ meltfptr[236]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_46_SN*/ meltfrout->tabval[46]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V240*/ meltfptr[239]; /*_.MELT_MAKE_SEXPR__V241*/ meltfptr[240] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V236*/ meltfptr[235]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V241*/ meltfptr[240]; /*_.MELT_MAKE_SEXPR__V242*/ meltfptr[241] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V235*/ meltfptr[234]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.HOOK_MELT_MAKE_LOCATION__V243*/ meltfptr[242] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 225) ;; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V244*/ meltfptr[243] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 225) ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:225:/ apply"); /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_39_pl*/ meltfrout->tabval[39]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MACROVARNBARG__V34*/ meltfptr[28]; /*^apply.arg*/ argtab[2].meltbp_long = 1; /*_.MELT_MAKE_SEXPR__V245*/ meltfptr[244] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V244*/ meltfptr[243]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_24_SETQ*/ meltfrout->tabval[24]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MACROVARNBARG__V34*/ meltfptr[28]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V245*/ meltfptr[244]; /*_.MELT_MAKE_SEXPR__V246*/ meltfptr[245] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V243*/ meltfptr[242]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.HOOK_MELT_MAKE_LOCATION__V247*/ meltfptr[246] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 226) ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:226:/ apply"); /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_40_MULTIPLE_PUT_NTH*/ meltfrout->tabval[40]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MACROVARVECT__V36*/ meltfptr[35]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MACROVARNBARG__V34*/ meltfptr[28]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &(/*!konst_46_SN*/ meltfrout->tabval[46]); /*_.MELT_MAKE_SEXPR__V248*/ meltfptr[247] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V247*/ meltfptr[246]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:223:/ apply"); /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_11_LET*/ meltfrout->tabval[11]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V242*/ meltfptr[241]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V246*/ meltfptr[245]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V248*/ meltfptr[247]; /*_.MELT_MAKE_SEXPR__V249*/ meltfptr[248] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V234*/ meltfptr[233]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.HOOK_MELT_MAKE_LOCATION__V250*/ meltfptr[249] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 228) ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:228:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_42_VOID*/ meltfrout->tabval[42]); /*_.MELT_MAKE_SEXPR__V251*/ meltfptr[250] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V250*/ meltfptr[249]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:222:/ apply"); /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V233*/ meltfptr[232]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V249*/ meltfptr[248]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V251*/ meltfptr[250]; /*_.MELT_MAKE_SEXPR__V252*/ meltfptr[251] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V231*/ meltfptr[230]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.HOOK_MELT_MAKE_LOCATION__V253*/ meltfptr[252] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 230) ;; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V254*/ meltfptr[253] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 230) ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:230:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_151_IS_STRING*/ meltfrout->tabval[151]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_136_V*/ meltfrout->tabval[136]); /*_.MELT_MAKE_SEXPR__V255*/ meltfptr[254] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V254*/ meltfptr[253]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.HOOK_MELT_MAKE_LOCATION__V256*/ meltfptr[255] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 231) ;; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V257*/ meltfptr[256] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 231) ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:231:/ apply"); /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_39_pl*/ meltfrout->tabval[39]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MACROVARNBARG__V34*/ meltfptr[28]; /*^apply.arg*/ argtab[2].meltbp_long = 1; /*_.MELT_MAKE_SEXPR__V258*/ meltfptr[257] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V257*/ meltfptr[256]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_24_SETQ*/ meltfrout->tabval[24]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MACROVARNBARG__V34*/ meltfptr[28]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V258*/ meltfptr[257]; /*_.MELT_MAKE_SEXPR__V259*/ meltfptr[258] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V256*/ meltfptr[255]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.HOOK_MELT_MAKE_LOCATION__V260*/ meltfptr[259] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 232) ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:232:/ apply"); /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_40_MULTIPLE_PUT_NTH*/ meltfrout->tabval[40]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MACROVARVECT__V36*/ meltfptr[35]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MACROVARNBARG__V34*/ meltfptr[28]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &(/*!konst_136_V*/ meltfrout->tabval[136]); /*_.MELT_MAKE_SEXPR__V261*/ meltfptr[260] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V260*/ meltfptr[259]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.HOOK_MELT_MAKE_LOCATION__V262*/ meltfptr[261] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 233) ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:233:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_42_VOID*/ meltfrout->tabval[42]); /*_.MELT_MAKE_SEXPR__V263*/ meltfptr[262] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V262*/ meltfptr[261]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:230:/ apply"); /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V255*/ meltfptr[254]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V259*/ meltfptr[258]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V261*/ meltfptr[260]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V263*/ meltfptr[262]; /*_.MELT_MAKE_SEXPR__V264*/ meltfptr[263] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V253*/ meltfptr[252]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.HOOK_MELT_MAKE_LOCATION__V265*/ meltfptr[264] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 235) ;; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V266*/ meltfptr[265] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 235) ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:235:/ apply"); /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_158_IS_A*/ meltfrout->tabval[158]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_136_V*/ meltfrout->tabval[136]); /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &(/*!konst_160_DISCR_DIAGNOSTIC_CLOSURE*/ meltfrout->tabval[160]); /*_.MELT_MAKE_SEXPR__V267*/ meltfptr[266] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V266*/ meltfptr[265]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.HOOK_MELT_MAKE_LOCATION__V268*/ meltfptr[267] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 236) ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:236:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_136_V*/ meltfrout->tabval[136]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_14_DIAGSTATE*/ meltfrout->tabval[14]); /*_.MELT_MAKE_SEXPR__V269*/ meltfptr[268] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V268*/ meltfptr[267]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.HOOK_MELT_MAKE_LOCATION__V270*/ meltfptr[269] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 237) ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:237:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_42_VOID*/ meltfrout->tabval[42]); /*_.MELT_MAKE_SEXPR__V271*/ meltfptr[270] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V270*/ meltfptr[269]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:235:/ apply"); /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V267*/ meltfptr[266]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V269*/ meltfptr[268]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V271*/ meltfptr[270]; /*_.MELT_MAKE_SEXPR__V272*/ meltfptr[271] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V265*/ meltfptr[264]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.HOOK_MELT_MAKE_LOCATION__V273*/ meltfptr[272] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 239) ;; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V274*/ meltfptr[273] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 239) ;; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V275*/ meltfptr[274] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 239) ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:239:/ apply"); /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_158_IS_A*/ meltfrout->tabval[158]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_136_V*/ meltfrout->tabval[136]); /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &(/*!konst_167_CLASS_KEYWORD*/ meltfrout->tabval[167]); /*_.MELT_MAKE_SEXPR__V276*/ meltfptr[275] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V275*/ meltfptr[274]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.HOOK_MELT_MAKE_LOCATION__V277*/ meltfptr[276] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 240) ;; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V278*/ meltfptr[277] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 240) ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:240:/ apply"); /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_169_GET_FIELD*/ meltfrout->tabval[169]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_170_SYMB_DATA*/ meltfrout->tabval[170]); /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &(/*!konst_136_V*/ meltfrout->tabval[136]); /*_.MELT_MAKE_SEXPR__V279*/ meltfptr[278] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V278*/ meltfptr[277]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_158_IS_A*/ meltfrout->tabval[158]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V279*/ meltfptr[278]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &(/*!konst_160_DISCR_DIAGNOSTIC_CLOSURE*/ meltfrout->tabval[160]); /*_.MELT_MAKE_SEXPR__V280*/ meltfptr[279] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V277*/ meltfptr[276]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:239:/ apply"); /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_164_AND*/ meltfrout->tabval[164]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V276*/ meltfptr[275]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V280*/ meltfptr[279]; /*_.MELT_MAKE_SEXPR__V281*/ meltfptr[280] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V274*/ meltfptr[273]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.HOOK_MELT_MAKE_LOCATION__V282*/ meltfptr[281] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 242) ;; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V283*/ meltfptr[282] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 242) ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:242:/ apply"); /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_169_GET_FIELD*/ meltfrout->tabval[169]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_170_SYMB_DATA*/ meltfrout->tabval[170]); /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &(/*!konst_136_V*/ meltfrout->tabval[136]); /*_.MELT_MAKE_SEXPR__V284*/ meltfptr[283] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V283*/ meltfptr[282]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V284*/ meltfptr[283]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_14_DIAGSTATE*/ meltfrout->tabval[14]); /*_.MELT_MAKE_SEXPR__V285*/ meltfptr[284] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V282*/ meltfptr[281]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.HOOK_MELT_MAKE_LOCATION__V286*/ meltfptr[285] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 243) ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:243:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_42_VOID*/ meltfrout->tabval[42]); /*_.MELT_MAKE_SEXPR__V287*/ meltfptr[286] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V286*/ meltfptr[285]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:239:/ apply"); /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V281*/ meltfptr[280]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V285*/ meltfptr[284]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V287*/ meltfptr[286]; /*_.MELT_MAKE_SEXPR__V288*/ meltfptr[287] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V273*/ meltfptr[272]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.HOOK_MELT_MAKE_LOCATION__V289*/ meltfptr[288] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 245) ;; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V290*/ meltfptr[289] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 245) ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:245:/ apply"); /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_158_IS_A*/ meltfrout->tabval[158]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_136_V*/ meltfrout->tabval[136]); /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &(/*!konst_179_CLASS_NAMED*/ meltfrout->tabval[179]); /*_.MELT_MAKE_SEXPR__V291*/ meltfptr[290] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V290*/ meltfptr[289]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.HOOK_MELT_MAKE_LOCATION__V292*/ meltfptr[291] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 246) ;; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V293*/ meltfptr[292] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 246) ;; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V294*/ meltfptr[293] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 246) ;; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V295*/ meltfptr[294] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 246) ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:246:/ apply"); /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_182_UNSAFE_GET_FIELD*/ meltfrout->tabval[182]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_183_NAMED_NAME*/ meltfrout->tabval[183]); /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &(/*!konst_136_V*/ meltfrout->tabval[136]); /*_.MELT_MAKE_SEXPR__V296*/ meltfptr[295] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V295*/ meltfptr[294]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_181_NAM*/ meltfrout->tabval[181]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V296*/ meltfptr[295]; /*_.MELT_MAKE_SEXPR__V297*/ meltfptr[296] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V294*/ meltfptr[293]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V297*/ meltfptr[296]; /*_.MELT_MAKE_SEXPR__V298*/ meltfptr[297] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V293*/ meltfptr[292]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.HOOK_MELT_MAKE_LOCATION__V299*/ meltfptr[298] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 248) ;; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V300*/ meltfptr[299] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 248) ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:248:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_151_IS_STRING*/ meltfrout->tabval[151]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_181_NAM*/ meltfrout->tabval[181]); /*_.MELT_MAKE_SEXPR__V301*/ meltfptr[300] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V300*/ meltfptr[299]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_57_ASSERT_MSG*/ meltfrout->tabval[57]); /*^apply.arg*/ argtab[1].meltbp_cstring = "check nam"; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V301*/ meltfptr[300]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &(/*!konst_181_NAM*/ meltfrout->tabval[181]); /*_.MELT_MAKE_SEXPR__V302*/ meltfptr[301] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V299*/ meltfptr[298]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.HOOK_MELT_MAKE_LOCATION__V303*/ meltfptr[302] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 249) ;; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V304*/ meltfptr[303] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 249) ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:249:/ apply"); /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_39_pl*/ meltfrout->tabval[39]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MACROVARNBARG__V34*/ meltfptr[28]; /*^apply.arg*/ argtab[2].meltbp_long = 1; /*_.MELT_MAKE_SEXPR__V305*/ meltfptr[304] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V304*/ meltfptr[303]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_24_SETQ*/ meltfrout->tabval[24]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MACROVARNBARG__V34*/ meltfptr[28]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V305*/ meltfptr[304]; /*_.MELT_MAKE_SEXPR__V306*/ meltfptr[305] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V303*/ meltfptr[302]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.HOOK_MELT_MAKE_LOCATION__V307*/ meltfptr[306] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 250) ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:250:/ apply"); /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_40_MULTIPLE_PUT_NTH*/ meltfrout->tabval[40]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MACROVARVECT__V36*/ meltfptr[35]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MACROVARNBARG__V34*/ meltfptr[28]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &(/*!konst_181_NAM*/ meltfrout->tabval[181]); /*_.MELT_MAKE_SEXPR__V308*/ meltfptr[307] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V307*/ meltfptr[306]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:246:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_11_LET*/ meltfrout->tabval[11]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V298*/ meltfptr[297]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V302*/ meltfptr[301]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V306*/ meltfptr[305]; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V308*/ meltfptr[307]; /*_.MELT_MAKE_SEXPR__V309*/ meltfptr[308] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V292*/ meltfptr[291]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.HOOK_MELT_MAKE_LOCATION__V310*/ meltfptr[309] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 252) ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:252:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_42_VOID*/ meltfrout->tabval[42]); /*_.MELT_MAKE_SEXPR__V311*/ meltfptr[310] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V310*/ meltfptr[309]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:245:/ apply"); /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V291*/ meltfptr[290]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V309*/ meltfptr[308]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V311*/ meltfptr[310]; /*_.MELT_MAKE_SEXPR__V312*/ meltfptr[311] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V289*/ meltfptr[288]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:221:/ apply"); /*apply*/ { union meltparam_un argtab[6]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_137_COND*/ meltfrout->tabval[137]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V252*/ meltfptr[251]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V264*/ meltfptr[263]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V272*/ meltfptr[271]; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V288*/ meltfptr[287]; /*^apply.arg*/ argtab[5].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V312*/ meltfptr[311]; /*_.MELT_MAKE_SEXPR__V313*/ meltfptr[312] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V230*/ meltfptr[229]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:220:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V229*/ meltfptr[228]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V313*/ meltfptr[312]; /*_.MELT_MAKE_SEXPR__V314*/ meltfptr[313] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V227*/ meltfptr[226]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.HOOK_MELT_MAKE_LOCATION__V315*/ meltfptr[314] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 256) ;; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V316*/ meltfptr[315] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 257) ;; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V317*/ meltfptr[316] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 257) ;; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V318*/ meltfptr[317] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 257) ;; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V319*/ meltfptr[318] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 257) ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:257:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_197_VARIADIC_CTYPE*/ meltfrout->tabval[197]); /*^apply.arg*/ argtab[1].meltbp_long = 0; /*_.MELT_MAKE_SEXPR__V320*/ meltfptr[319] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V319*/ meltfptr[318]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_196_VCTY*/ meltfrout->tabval[196]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V320*/ meltfptr[319]; /*_.MELT_MAKE_SEXPR__V321*/ meltfptr[320] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V318*/ meltfptr[317]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V321*/ meltfptr[320]; /*_.MELT_MAKE_SEXPR__V322*/ meltfptr[321] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V317*/ meltfptr[316]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.HOOK_MELT_MAKE_LOCATION__V323*/ meltfptr[322] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 259) ;; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V324*/ meltfptr[323] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 260) ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:260:/ apply"); /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_169_GET_FIELD*/ meltfrout->tabval[169]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_183_NAMED_NAME*/ meltfrout->tabval[183]); /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &(/*!konst_196_VCTY*/ meltfrout->tabval[196]); /*_.MELT_MAKE_SEXPR__V325*/ meltfptr[324] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V324*/ meltfptr[323]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:259:/ apply"); /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_198_ERRORMSG_STRV*/ meltfrout->tabval[198]); /*^apply.arg*/ argtab[1].meltbp_cstring = "DIAGNOSTIC_ARGS_MACRO for unsupported ctype"; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V325*/ meltfptr[324]; /*_.MELT_MAKE_SEXPR__V326*/ meltfptr[325] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V323*/ meltfptr[322]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.HOOK_MELT_MAKE_LOCATION__V327*/ meltfptr[326] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 261) ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:261:/ apply"); /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_57_ASSERT_MSG*/ meltfrout->tabval[57]); /*^apply.arg*/ argtab[1].meltbp_cstring = "invalid variadic argument to DIAGNOSTIC_ARGS_MACRO"; /*^apply.arg*/ argtab[2].meltbp_aptr = /*nil*/(melt_ptr_t*)NULL; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &(/*!konst_196_VCTY*/ meltfrout->tabval[196]); /*_.MELT_MAKE_SEXPR__V328*/ meltfptr[327] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V327*/ meltfptr[326]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:257:/ apply"); /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_11_LET*/ meltfrout->tabval[11]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V322*/ meltfptr[321]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V326*/ meltfptr[325]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V328*/ meltfptr[327]; /*_.MELT_MAKE_SEXPR__V329*/ meltfptr[328] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V316*/ meltfptr[315]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.HOOK_MELT_MAKE_LOCATION__V330*/ meltfptr[329] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[10]), "warmelt-macro.melt", 262) ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:262:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_42_VOID*/ meltfrout->tabval[42]); /*_.MELT_MAKE_SEXPR__V331*/ meltfptr[330] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V330*/ meltfptr[329]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:256:/ apply"); /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_194_ELSE*/ meltfrout->tabval[194]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V329*/ meltfptr[328]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V331*/ meltfptr[330]; /*_.MELT_MAKE_SEXPR__V332*/ meltfptr[331] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V315*/ meltfptr[314]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:156:/ apply"); /*apply*/ { union meltparam_un argtab[11]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_29_VARIADIC*/ meltfrout->tabval[29]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V66*/ meltfptr[65]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V86*/ meltfptr[85]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V106*/ meltfptr[105]; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V130*/ meltfptr[129]; /*^apply.arg*/ argtab[5].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V154*/ meltfptr[153]; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V178*/ meltfptr[177]; /*^apply.arg*/ argtab[7].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V202*/ meltfptr[201]; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V226*/ meltfptr[225]; /*^apply.arg*/ argtab[9].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V314*/ meltfptr[313]; /*^apply.arg*/ argtab[10].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V332*/ meltfptr[331]; /*_.MELT_MAKE_SEXPR__V333*/ meltfptr[332] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V62*/ meltfptr[61]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:153:/ apply"); /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_25_FOREVER*/ meltfrout->tabval[25]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_26_ARGLOOP*/ meltfrout->tabval[26]); /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V61*/ meltfptr[60]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V333*/ meltfptr[332]; /*_.MELT_MAKE_SEXPR__V334*/ meltfptr[333] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V59*/ meltfptr[58]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:144:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_11_LET*/ meltfrout->tabval[11]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V56*/ meltfptr[55]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V58*/ meltfptr[57]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V334*/ meltfptr[333]; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &(/*!konst_14_DIAGSTATE*/ meltfrout->tabval[14]); /*_.RESEXP__V335*/ meltfptr[334] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V44*/ meltfptr[41]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-macro.melt:269:/ quasiblock"); MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MODCTX__V5*/ meltfptr[4]; /*_.MEXP__V337*/ meltfptr[336] = melt_apply ((meltclosure_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3]), (melt_ptr_t)(/*_.RESEXP__V335*/ meltfptr[334]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:271:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MEXP__V337*/ meltfptr[336]), (melt_ptr_t)((/*!CLASS_LOCATED*/ meltfrout->tabval[3]))) ) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.MEXP__V337*/ meltfptr[336])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.MEXP__V337*/ meltfptr[336]), (1), (/*_.SLOC__V12*/ meltfptr[5]), "LOCA_LOCATION"); ; /*^touch*/ meltgc_touch(/*_.MEXP__V337*/ meltfptr[336]); ; /*^touchobj*/ melt_dbgtrace_written_object (/*_.MEXP__V337*/ meltfptr[336], "put-fields"); ; /*epilog*/ } ; } /*noelse*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-macro.melt:272:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L13*/ meltfnum[12] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-macro.melt:272:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L13*/ meltfnum[12]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L14*/ meltfnum[13] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:272:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L14*/ meltfnum[13]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 272; /*^apply.arg*/ argtab[3].meltbp_cstring = "diagnostic_args_macro final mexp="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.MEXP__V337*/ meltfptr[336]; /*_.MELT_DEBUG_FUN__V339*/ meltfptr[338] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V338*/ meltfptr[337] = /*_.MELT_DEBUG_FUN__V339*/ meltfptr[338];; /*epilog*/ MELT_LOCATION("warmelt-macro.melt:272:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L14*/ meltfnum[13] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V339*/ meltfptr[338] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V338*/ meltfptr[337] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-macro.melt:272:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L13*/ meltfnum[12] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V338*/ meltfptr[337] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:273:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.MEXP__V337*/ meltfptr[336];; { MELT_LOCATION("warmelt-macro.melt:273:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG > 0 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) melt_warn_for_no_expected_secondary_results(); /* we warned when secondary results are expected but not returned. */ #endif /*MELT_HAVE_DEBUG*/ ; } ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; /*_.LET___V336*/ meltfptr[335] = /*_.RETURN___V340*/ meltfptr[338];; MELT_LOCATION("warmelt-macro.melt:269:/ clear"); /*clear*/ /*_.MEXP__V337*/ meltfptr[336] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V340*/ meltfptr[338] = 0 ; /*_.LET___V43*/ meltfptr[38] = /*_.LET___V336*/ meltfptr[335];; MELT_LOCATION("warmelt-macro.melt:143:/ clear"); /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V44*/ meltfptr[41] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V45*/ meltfptr[44] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V46*/ meltfptr[45] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V47*/ meltfptr[46] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V48*/ meltfptr[47] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V49*/ meltfptr[48] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V50*/ meltfptr[49] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V51*/ meltfptr[50] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V52*/ meltfptr[51] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V53*/ meltfptr[52] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V54*/ meltfptr[53] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V55*/ meltfptr[54] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V56*/ meltfptr[55] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V57*/ meltfptr[56] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V58*/ meltfptr[57] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V59*/ meltfptr[58] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V60*/ meltfptr[59] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V61*/ meltfptr[60] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V62*/ meltfptr[61] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V63*/ meltfptr[62] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V64*/ meltfptr[63] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V65*/ meltfptr[64] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V66*/ meltfptr[65] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V67*/ meltfptr[66] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V68*/ meltfptr[67] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V69*/ meltfptr[68] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V70*/ meltfptr[69] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V71*/ meltfptr[70] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V72*/ meltfptr[71] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V73*/ meltfptr[72] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V74*/ meltfptr[73] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V75*/ meltfptr[74] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V76*/ meltfptr[75] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V77*/ meltfptr[76] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V78*/ meltfptr[77] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V79*/ meltfptr[78] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V80*/ meltfptr[79] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V81*/ meltfptr[80] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V82*/ meltfptr[81] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V83*/ meltfptr[82] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V84*/ meltfptr[83] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V85*/ meltfptr[84] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V86*/ meltfptr[85] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V87*/ meltfptr[86] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V88*/ meltfptr[87] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V89*/ meltfptr[88] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V90*/ meltfptr[89] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V91*/ meltfptr[90] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V92*/ meltfptr[91] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V93*/ meltfptr[92] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V94*/ meltfptr[93] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V95*/ meltfptr[94] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V96*/ meltfptr[95] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V97*/ meltfptr[96] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V98*/ meltfptr[97] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V99*/ meltfptr[98] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V100*/ meltfptr[99] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V101*/ meltfptr[100] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V102*/ meltfptr[101] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V103*/ meltfptr[102] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V104*/ meltfptr[103] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V105*/ meltfptr[104] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V106*/ meltfptr[105] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V107*/ meltfptr[106] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V108*/ meltfptr[107] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V109*/ meltfptr[108] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V110*/ meltfptr[109] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V111*/ meltfptr[110] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V112*/ meltfptr[111] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V113*/ meltfptr[112] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V114*/ meltfptr[113] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V115*/ meltfptr[114] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V116*/ meltfptr[115] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V117*/ meltfptr[116] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V118*/ meltfptr[117] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V119*/ meltfptr[118] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V120*/ meltfptr[119] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V121*/ meltfptr[120] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V122*/ meltfptr[121] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V123*/ meltfptr[122] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V124*/ meltfptr[123] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V125*/ meltfptr[124] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V126*/ meltfptr[125] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V127*/ meltfptr[126] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V128*/ meltfptr[127] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V129*/ meltfptr[128] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V130*/ meltfptr[129] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V131*/ meltfptr[130] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V132*/ meltfptr[131] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V133*/ meltfptr[132] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V134*/ meltfptr[133] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V135*/ meltfptr[134] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V136*/ meltfptr[135] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V137*/ meltfptr[136] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V138*/ meltfptr[137] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V139*/ meltfptr[138] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V140*/ meltfptr[139] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V141*/ meltfptr[140] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V142*/ meltfptr[141] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V143*/ meltfptr[142] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V144*/ meltfptr[143] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V145*/ meltfptr[144] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V146*/ meltfptr[145] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V147*/ meltfptr[146] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V148*/ meltfptr[147] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V149*/ meltfptr[148] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V150*/ meltfptr[149] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V151*/ meltfptr[150] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V152*/ meltfptr[151] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V153*/ meltfptr[152] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V154*/ meltfptr[153] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V155*/ meltfptr[154] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V156*/ meltfptr[155] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V157*/ meltfptr[156] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V158*/ meltfptr[157] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V159*/ meltfptr[158] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V160*/ meltfptr[159] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V161*/ meltfptr[160] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V162*/ meltfptr[161] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V163*/ meltfptr[162] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V164*/ meltfptr[163] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V165*/ meltfptr[164] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V166*/ meltfptr[165] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V167*/ meltfptr[166] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V168*/ meltfptr[167] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V169*/ meltfptr[168] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V170*/ meltfptr[169] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V171*/ meltfptr[170] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V172*/ meltfptr[171] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V173*/ meltfptr[172] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V174*/ meltfptr[173] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V175*/ meltfptr[174] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V176*/ meltfptr[175] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V177*/ meltfptr[176] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V178*/ meltfptr[177] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V179*/ meltfptr[178] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V180*/ meltfptr[179] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V181*/ meltfptr[180] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V182*/ meltfptr[181] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V183*/ meltfptr[182] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V184*/ meltfptr[183] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V185*/ meltfptr[184] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V186*/ meltfptr[185] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V187*/ meltfptr[186] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V188*/ meltfptr[187] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V189*/ meltfptr[188] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V190*/ meltfptr[189] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V191*/ meltfptr[190] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V192*/ meltfptr[191] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V193*/ meltfptr[192] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V194*/ meltfptr[193] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V195*/ meltfptr[194] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V196*/ meltfptr[195] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V197*/ meltfptr[196] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V198*/ meltfptr[197] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V199*/ meltfptr[198] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V200*/ meltfptr[199] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V201*/ meltfptr[200] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V202*/ meltfptr[201] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V203*/ meltfptr[202] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V204*/ meltfptr[203] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V205*/ meltfptr[204] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V206*/ meltfptr[205] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V207*/ meltfptr[206] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V208*/ meltfptr[207] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V209*/ meltfptr[208] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V210*/ meltfptr[209] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V211*/ meltfptr[210] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V212*/ meltfptr[211] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V213*/ meltfptr[212] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V214*/ meltfptr[213] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V215*/ meltfptr[214] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V216*/ meltfptr[215] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V217*/ meltfptr[216] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V218*/ meltfptr[217] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V219*/ meltfptr[218] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V220*/ meltfptr[219] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V221*/ meltfptr[220] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V222*/ meltfptr[221] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V223*/ meltfptr[222] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V224*/ meltfptr[223] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V225*/ meltfptr[224] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V226*/ meltfptr[225] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V227*/ meltfptr[226] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V228*/ meltfptr[227] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V229*/ meltfptr[228] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V230*/ meltfptr[229] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V231*/ meltfptr[230] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V232*/ meltfptr[231] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V233*/ meltfptr[232] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V234*/ meltfptr[233] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V235*/ meltfptr[234] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V236*/ meltfptr[235] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V237*/ meltfptr[236] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V238*/ meltfptr[237] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V239*/ meltfptr[238] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V240*/ meltfptr[239] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V241*/ meltfptr[240] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V242*/ meltfptr[241] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V243*/ meltfptr[242] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V244*/ meltfptr[243] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V245*/ meltfptr[244] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V246*/ meltfptr[245] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V247*/ meltfptr[246] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V248*/ meltfptr[247] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V249*/ meltfptr[248] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V250*/ meltfptr[249] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V251*/ meltfptr[250] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V252*/ meltfptr[251] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V253*/ meltfptr[252] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V254*/ meltfptr[253] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V255*/ meltfptr[254] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V256*/ meltfptr[255] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V257*/ meltfptr[256] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V258*/ meltfptr[257] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V259*/ meltfptr[258] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V260*/ meltfptr[259] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V261*/ meltfptr[260] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V262*/ meltfptr[261] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V263*/ meltfptr[262] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V264*/ meltfptr[263] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V265*/ meltfptr[264] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V266*/ meltfptr[265] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V267*/ meltfptr[266] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V268*/ meltfptr[267] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V269*/ meltfptr[268] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V270*/ meltfptr[269] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V271*/ meltfptr[270] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V272*/ meltfptr[271] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V273*/ meltfptr[272] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V274*/ meltfptr[273] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V275*/ meltfptr[274] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V276*/ meltfptr[275] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V277*/ meltfptr[276] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V278*/ meltfptr[277] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V279*/ meltfptr[278] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V280*/ meltfptr[279] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V281*/ meltfptr[280] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V282*/ meltfptr[281] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V283*/ meltfptr[282] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V284*/ meltfptr[283] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V285*/ meltfptr[284] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V286*/ meltfptr[285] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V287*/ meltfptr[286] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V288*/ meltfptr[287] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V289*/ meltfptr[288] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V290*/ meltfptr[289] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V291*/ meltfptr[290] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V292*/ meltfptr[291] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V293*/ meltfptr[292] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V294*/ meltfptr[293] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V295*/ meltfptr[294] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V296*/ meltfptr[295] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V297*/ meltfptr[296] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V298*/ meltfptr[297] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V299*/ meltfptr[298] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V300*/ meltfptr[299] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V301*/ meltfptr[300] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V302*/ meltfptr[301] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V303*/ meltfptr[302] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V304*/ meltfptr[303] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V305*/ meltfptr[304] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V306*/ meltfptr[305] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V307*/ meltfptr[306] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V308*/ meltfptr[307] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V309*/ meltfptr[308] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V310*/ meltfptr[309] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V311*/ meltfptr[310] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V312*/ meltfptr[311] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V313*/ meltfptr[312] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V314*/ meltfptr[313] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V315*/ meltfptr[314] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V316*/ meltfptr[315] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V317*/ meltfptr[316] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V318*/ meltfptr[317] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V319*/ meltfptr[318] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V320*/ meltfptr[319] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V321*/ meltfptr[320] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V322*/ meltfptr[321] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V323*/ meltfptr[322] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V324*/ meltfptr[323] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V325*/ meltfptr[324] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V326*/ meltfptr[325] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V327*/ meltfptr[326] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V328*/ meltfptr[327] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V329*/ meltfptr[328] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V330*/ meltfptr[329] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V331*/ meltfptr[330] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V332*/ meltfptr[331] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V333*/ meltfptr[332] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V334*/ meltfptr[333] = 0 ; /*^clear*/ /*clear*/ /*_.RESEXP__V335*/ meltfptr[334] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V336*/ meltfptr[335] = 0 ; /*_.LET___V32*/ meltfptr[19] = /*_.LET___V43*/ meltfptr[38];; MELT_LOCATION("warmelt-macro.melt:129:/ clear"); /*clear*/ /*_.SEXPNBARG__V33*/ meltfptr[26] = 0 ; /*^clear*/ /*clear*/ /*_.MACROVARNBARG__V34*/ meltfptr[28] = 0 ; /*^clear*/ /*clear*/ /*_.SEXPVARVECT__V35*/ meltfptr[27] = 0 ; /*^clear*/ /*clear*/ /*_.MACROVARVECT__V36*/ meltfptr[35] = 0 ; /*^clear*/ /*clear*/ /*_#IS_NOT_A__L11*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V37*/ meltfptr[36] = 0 ; /*^clear*/ /*clear*/ /*_#IS_NOT_A__L12*/ meltfnum[9] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V40*/ meltfptr[37] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V43*/ meltfptr[38] = 0 ; /*_.LET___V17*/ meltfptr[15] = /*_.LET___V32*/ meltfptr[19];; MELT_LOCATION("warmelt-macro.melt:109:/ clear"); /*clear*/ /*_.TCONT__V18*/ meltfptr[14] = 0 ; /*^clear*/ /*clear*/ /*_#TCONTLEN__L5*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V19*/ meltfptr[18] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V22*/ meltfptr[20] = 0 ; /*^clear*/ /*clear*/ /*_#exeqI__L8*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V25*/ meltfptr[23] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V32*/ meltfptr[19] = 0 ; /*_.LET___V11*/ meltfptr[9] = /*_.LET___V17*/ meltfptr[15];; MELT_LOCATION("warmelt-macro.melt:104:/ clear"); /*clear*/ /*_.SLOC__V12*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_.SEXCONT__V13*/ meltfptr[12] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V14*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V17*/ meltfptr[15] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:98:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V11*/ meltfptr[9];; { MELT_LOCATION("warmelt-macro.melt:98:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG > 0 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) melt_warn_for_no_expected_secondary_results(); /* we warned when secondary results are expected but not returned. */ #endif /*MELT_HAVE_DEBUG*/ ; } ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; /*epilog*/ /*^clear*/ /*clear*/ /*_.IFCPP___V8*/ meltfptr[6] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V11*/ meltfptr[9] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("DIAGNOSTIC_ARGS_MACRO", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_6_WARMELTmiMACRO_DIAGNOSTIC_ARGS_MACRO_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_6_WARMELTmiMACRO_DIAGNOSTIC_ARGS_MACRO*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_7_WARMELTmiMACRO_DIAGNOSTIC_EXPAND_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_) { long current_blocklevel_signals_meltrout_7_WARMELTmiMACRO_DIAGNOSTIC_EXPAND_MESSAGE_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG > 0 static long melt_call_counter__; long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__; #undef meltcallcount #define meltcallcount melt_thiscallcounter__ #else #undef meltcallcount #define meltcallcount 0L #endif //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538 /* start of frame for routine meltrout_7_WARMELTmiMACRO_DIAGNOSTIC_EXPAND_MESSAGE fromline 1752 */ /** start of frame for meltrout_7_WARMELTmiMACRO_DIAGNOSTIC_EXPAND_MESSAGE of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_7_WARMELTmiMACRO_DIAGNOSTIC_EXPAND_MESSAGE// fromline 1568 : public Melt_CallFrameWithValues<27> { public: /* fromline 1572*/ long mcfr_varnum[15]; /*classy others*/ const char* loc_CSTRING__o0; long _meltsparel; void melt_mark_stuff (void) { } /*end melt_mark_stuff*/ virtual void melt_mark_ggc_data (void) { melt_mark_values (); melt_mark_stuff (); }; /*end melt_mark_ggc_data*/ MeltFrame_meltrout_7_WARMELTmiMACRO_DIAGNOSTIC_EXPAND_MESSAGE(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<27> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_7_WARMELTmiMACRO_DIAGNOSTIC_EXPAND_MESSAGE), clos) {}; MeltFrame_meltrout_7_WARMELTmiMACRO_DIAGNOSTIC_EXPAND_MESSAGE() //the constructor fromline 1642 : Melt_CallFrameWithValues<27> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_7_WARMELTmiMACRO_DIAGNOSTIC_EXPAND_MESSAGE)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_7_WARMELTmiMACRO_DIAGNOSTIC_EXPAND_MESSAGE(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<27> (fil,lin, sizeof(MeltFrame_meltrout_7_WARMELTmiMACRO_DIAGNOSTIC_EXPAND_MESSAGE)) {}; MeltFrame_meltrout_7_WARMELTmiMACRO_DIAGNOSTIC_EXPAND_MESSAGE(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<27> (fil,lin, sizeof(MeltFrame_meltrout_7_WARMELTmiMACRO_DIAGNOSTIC_EXPAND_MESSAGE), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_7_WARMELTmiMACRO_DIAGNOSTIC_EXPAND_MESSAGE /** end of frame for meltrout_7_WARMELTmiMACRO_DIAGNOSTIC_EXPAND_MESSAGE fromline 1697**/ /* end of frame for routine meltrout_7_WARMELTmiMACRO_DIAGNOSTIC_EXPAND_MESSAGE fromline 1756 */ /* classy proc frame meltrout_7_WARMELTmiMACRO_DIAGNOSTIC_EXPAND_MESSAGE */ MeltFrame_meltrout_7_WARMELTmiMACRO_DIAGNOSTIC_EXPAND_MESSAGE meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_7_WARMELTmiMACRO_DIAGNOSTIC_EXPAND_MESSAGE fromline 1787*/ #if MELT_HAVE_DEBUG > 0 (__FILE__, __LINE__, meltclosp_) /* fromline 1791*/ #else /*MELT_HAVE_DEBUG */ (meltclosp_) /* fromline 1795*/ #endif /*MELT_HAVE_DEBUG */ ; #define meltframe meltfram__ melt_trace_start("DIAGNOSTIC_EXPAND_MESSAGE", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-macro.melt:282:/ getarg"); /*_.DIAGSTATE__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_CSTRING) goto meltlab_endgetargs; /*_?*/ meltfram__.loc_CSTRING__o0 = meltxargtab_[0].meltbp_cstring; ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-macro.melt:284:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.DIAGSTATE__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_DIAGNOSTIC_STATE*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-macro.melt:284:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V4*/ meltfptr[3] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-macro.melt:284:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check diagstate"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 284; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.DIAGSTATE__V2*/ meltfptr[1]; /*_.MELT_ASSERT_FAILURE_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V4*/ meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-macro.melt:284:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V5*/ meltfptr[4] = 0 ; } ; } ; /*_.IFCPP___V3*/ meltfptr[2] = /*_._IFELSE___V4*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-macro.melt:284:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V4*/ meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V3*/ meltfptr[2] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-macro.melt:285:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^cond*/ /*cond*/ if (/*_?*/ meltfram__.loc_CSTRING__o0) /*then*/ { /*^cond.then*/ /*_._IFELSE___V7*/ meltfptr[3] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-macro.melt:285:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check sfmt"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 285; /*^apply.arg*/ argtab[3].meltbp_cstring = /*_?*/ meltfram__.loc_CSTRING__o0; /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V7*/ meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-macro.melt:285:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7] = 0 ; } ; } ; /*_.IFCPP___V6*/ meltfptr[4] = /*_._IFELSE___V7*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-macro.melt:285:/ clear"); /*clear*/ /*_._IFELSE___V7*/ meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V6*/ meltfptr[4] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-macro.melt:286:/ quasiblock"); /*^cond*/ /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DIAGSTATE__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_DIAGNOSTIC_STATE*/ meltfrout->tabval[0]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.DIAGSTATE__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "DIAG_VECT"); /*_.DIAGVEC__V10*/ meltfptr[3] = slot; }; ; } else /*^cond.else*/ { /*_.DIAGVEC__V10*/ meltfptr[3] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-macro.melt:287:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DIAGSTATE__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_DIAGNOSTIC_STATE*/ meltfrout->tabval[0]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.DIAGSTATE__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 3, "DIAG_POSITION"); /*_.DIAG_POSITION__V11*/ meltfptr[10] = slot; }; ; } else /*^cond.else*/ { /*_.DIAG_POSITION__V11*/ meltfptr[10] = /*reallynil*/ NULL ;; } ; /*^compute*/ /*_#DPOS__L2*/ meltfnum[0] = (melt_get_int((melt_ptr_t)(/*_.DIAG_POSITION__V11*/ meltfptr[10])));; /*^compute*/ /*_#SPOS__L3*/ meltfnum[2] = 0;; /*^compute*/ /*_#DOLLARPOS__L4*/ meltfnum[3] = 0;; /*^compute*/ /*_#IXDOLL__L5*/ meltfnum[4] = -1;; /*^compute*/ /*_#FMTLEN__L6*/ meltfnum[5] = 0;; /*^compute*/ /*_.SBUF__V12*/ meltfptr[11] = (melt_ptr_t) meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ meltfrout->tabval[2])), (const char*)0);; { MELT_LOCATION("warmelt-macro.melt:294:/ locexp"); /* diagnostic_expand_message SLEN_CHK__1*/ /*_#FMTLEN__L6*/ meltfnum[5] = ((/*_?*/ meltfram__.loc_CSTRING__o0)?strlen(/*_?*/ meltfram__.loc_CSTRING__o0):0); ; } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-macro.melt:297:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_MULTIPLE__L7*/ meltfnum[6] = (melt_magic_discr((melt_ptr_t)(/*_.DIAGVEC__V10*/ meltfptr[3])) == MELTOBMAG_MULTIPLE);; MELT_LOCATION("warmelt-macro.melt:297:/ cond"); /*cond*/ if (/*_#IS_MULTIPLE__L7*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V14*/ meltfptr[13] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-macro.melt:297:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check diagvec"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 297; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.DIAGVEC__V10*/ meltfptr[3]; /*_.MELT_ASSERT_FAILURE_FUN__V15*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V14*/ meltfptr[13] = /*_.MELT_ASSERT_FAILURE_FUN__V15*/ meltfptr[14];; /*epilog*/ MELT_LOCATION("warmelt-macro.melt:297:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V15*/ meltfptr[14] = 0 ; } ; } ; /*_.IFCPP___V13*/ meltfptr[12] = /*_._IFELSE___V14*/ meltfptr[13];; /*epilog*/ MELT_LOCATION("warmelt-macro.melt:297:/ clear"); /*clear*/ /*_#IS_MULTIPLE__L7*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V14*/ meltfptr[13] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V13*/ meltfptr[12] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-macro.melt:299:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_MULTIPLE__L8*/ meltfnum[6] = (melt_magic_discr((melt_ptr_t)(/*_.DIAGVEC__V10*/ meltfptr[3])) == MELTOBMAG_MULTIPLE);; MELT_LOCATION("warmelt-macro.melt:299:/ cond"); /*cond*/ if (/*_#IS_MULTIPLE__L8*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V17*/ meltfptr[13] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-macro.melt:299:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check diagvec"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 299; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.DIAGVEC__V10*/ meltfptr[3]; /*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V17*/ meltfptr[13] = /*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17];; /*epilog*/ MELT_LOCATION("warmelt-macro.melt:299:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17] = 0 ; } ; } ; /*_.IFCPP___V16*/ meltfptr[14] = /*_._IFELSE___V17*/ meltfptr[13];; /*epilog*/ MELT_LOCATION("warmelt-macro.melt:299:/ clear"); /*clear*/ /*_#IS_MULTIPLE__L8*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V17*/ meltfptr[13] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V16*/ meltfptr[14] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-macro.melt:300:/ loop"); /*loop*/ { meltlabloop_DIAGLOOP_1:;/*^loopbody*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_CHECK_SIGNAL(); ; /*_#gteqI__L9*/ meltfnum[6] = ((/*_#SPOS__L3*/ meltfnum[2]) >= (/*_#FMTLEN__L6*/ meltfnum[5]));; MELT_LOCATION("warmelt-macro.melt:302:/ cond"); /*cond*/ if (/*_#gteqI__L9*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-macro.melt:303:/ quasiblock"); /*^compute*/ /*_.DIAGLOOP__V20*/ meltfptr[13] = /*reallynil*/ NULL ;; /*^exit*/ /*exit*/ { goto meltlabexit_DIAGLOOP_1; } ; /*epilog*/ } ; } /*noelse*/ ; MELT_LOCATION("warmelt-macro.melt:304:/ compute"); /*_#IXDOLL__L5*/ meltfnum[4] = /*_#SETQ___L10*/ meltfnum[9] = -1;; { MELT_LOCATION("warmelt-macro.melt:305:/ locexp"); /* diagnostic_expand_message DOLPOS_CHK__1 start */ const char *dp = strchr (/*_?*/ meltfram__.loc_CSTRING__o0 + /*_#SPOS__L3*/ meltfnum[2], '$'); if (dp) { /*_#DOLLARPOS__L4*/ meltfnum[3] = dp - /*_?*/ meltfram__.loc_CSTRING__o0; if (/*_#DOLLARPOS__L4*/ meltfnum[3] > /*_#SPOS__L3*/ meltfnum[2]) meltgc_add_out_cstr_len (/*_.SBUF__V12*/ meltfptr[11], /*_?*/ meltfram__.loc_CSTRING__o0 + /*_#SPOS__L3*/ meltfnum[2], /*_#DOLLARPOS__L4*/ meltfnum[3] - /*_#SPOS__L3*/ meltfnum[2]); if (ISDIGIT(dp[1])) /*_#IXDOLL__L5*/ meltfnum[4] = dp[1] - '0'; else meltgc_add_out_cstr_len (/*_.SBUF__V12*/ meltfptr[11], dp+1, 1); } else { meltgc_add_out_cstr (/*_.SBUF__V12*/ meltfptr[11], /*_?*/ meltfram__.loc_CSTRING__o0 + /*_#SPOS__L3*/ meltfnum[2]); /*_#DOLLARPOS__L4*/ meltfnum[3] = -1; } /* end diagnostic_expand_message DOLPOS_CHK__1 */ ; } ; MELT_CHECK_SIGNAL(); ; /*_#ltI__L11*/ meltfnum[10] = ((/*_#DOLLARPOS__L4*/ meltfnum[3]) < (0));; MELT_LOCATION("warmelt-macro.melt:323:/ cond"); /*cond*/ if (/*_#ltI__L11*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-macro.melt:324:/ quasiblock"); /*^compute*/ /*_.DIAGLOOP__V20*/ meltfptr[13] = /*reallynil*/ NULL ;; /*^exit*/ /*exit*/ { goto meltlabexit_DIAGLOOP_1; } ; MELT_LOCATION("warmelt-macro.melt:323:/ quasiblock"); /*epilog*/ } ; } /*noelse*/ ; MELT_CHECK_SIGNAL(); ; /*_#ltI__L12*/ meltfnum[11] = ((/*_#IXDOLL__L5*/ meltfnum[4]) < (0));; MELT_LOCATION("warmelt-macro.melt:325:/ cond"); /*cond*/ if (/*_#ltI__L12*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-macro.melt:326:/ again"); /*again*/ { goto meltlabloop_DIAGLOOP_1; } ; /*epilog*/ } ; } /*noelse*/ ; MELT_CHECK_SIGNAL(); ; /*_#lteqI__L13*/ meltfnum[12] = ((/*_#IXDOLL__L5*/ meltfnum[4]) <= (/*_#DPOS__L2*/ meltfnum[0]));; MELT_LOCATION("warmelt-macro.melt:327:/ cond"); /*cond*/ if (/*_#lteqI__L13*/ meltfnum[12]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-macro.melt:328:/ quasiblock"); /*_.DIAGCOMP__V23*/ meltfptr[22] = (melt_multiple_nth((melt_ptr_t)(/*_.DIAGVEC__V10*/ meltfptr[3]), (/*_#IXDOLL__L5*/ meltfnum[4])));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:331:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DIAGCOMP__V23*/ meltfptr[22]; /*_.ADD2OUT__V24*/ meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.LET___V22*/ meltfptr[21] = /*_.ADD2OUT__V24*/ meltfptr[23];; MELT_LOCATION("warmelt-macro.melt:328:/ clear"); /*clear*/ /*_.DIAGCOMP__V23*/ meltfptr[22] = 0 ; /*^clear*/ /*clear*/ /*_.ADD2OUT__V24*/ meltfptr[23] = 0 ; /*_._IF___V21*/ meltfptr[20] = /*_.LET___V22*/ meltfptr[21];; /*epilog*/ MELT_LOCATION("warmelt-macro.melt:327:/ clear"); /*clear*/ /*_.LET___V22*/ meltfptr[21] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V21*/ meltfptr[20] = /*reallynil*/ NULL ;; } ; /*^compute*/ /*_#plI__L14*/ meltfnum[13] = ((/*_#DOLLARPOS__L4*/ meltfnum[3]) + (2));; MELT_LOCATION("warmelt-macro.melt:332:/ compute"); /*_#SPOS__L3*/ meltfnum[2] = /*_#SETQ___L15*/ meltfnum[14] = /*_#plI__L14*/ meltfnum[13];; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-macro.melt:300:/ clear"); /*clear*/ /*_#gteqI__L9*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_#SETQ___L10*/ meltfnum[9] = 0 ; /*^clear*/ /*clear*/ /*_#ltI__L11*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_#ltI__L12*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_#lteqI__L13*/ meltfnum[12] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V21*/ meltfptr[20] = 0 ; /*^clear*/ /*clear*/ /*_#plI__L14*/ meltfnum[13] = 0 ; /*^clear*/ /*clear*/ /*_#SETQ___L15*/ meltfnum[14] = 0 ; } ; ; goto meltlabloop_DIAGLOOP_1; meltlabexit_DIAGLOOP_1:;/*^loopepilog*/ /*loopepilog*/ /*_.FOREVER___V19*/ meltfptr[17] = /*_.DIAGLOOP__V20*/ meltfptr[13];; } ; MELT_LOCATION("warmelt-macro.melt:334:/ quasiblock"); /*_.DIAGMSG__V26*/ meltfptr[23] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[4])), melt_strbuf_str((melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]))));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:337:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.DIAGMSG__V26*/ meltfptr[23];; { MELT_LOCATION("warmelt-macro.melt:337:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG > 0 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) melt_warn_for_no_expected_secondary_results(); /* we warned when secondary results are expected but not returned. */ #endif /*MELT_HAVE_DEBUG*/ ; } ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; /*_.LET___V25*/ meltfptr[22] = /*_.RETURN___V27*/ meltfptr[21];; MELT_LOCATION("warmelt-macro.melt:334:/ clear"); /*clear*/ /*_.DIAGMSG__V26*/ meltfptr[23] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V27*/ meltfptr[21] = 0 ; /*_.LET___V9*/ meltfptr[7] = /*_.LET___V25*/ meltfptr[22];; MELT_LOCATION("warmelt-macro.melt:286:/ clear"); /*clear*/ /*_.DIAGVEC__V10*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.DIAG_POSITION__V11*/ meltfptr[10] = 0 ; /*^clear*/ /*clear*/ /*_#DPOS__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_#SPOS__L3*/ meltfnum[2] = 0 ; /*^clear*/ /*clear*/ /*_#DOLLARPOS__L4*/ meltfnum[3] = 0 ; /*^clear*/ /*clear*/ /*_#IXDOLL__L5*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_#FMTLEN__L6*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_.SBUF__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V13*/ meltfptr[12] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V16*/ meltfptr[14] = 0 ; /*^clear*/ /*clear*/ /*_.FOREVER___V19*/ meltfptr[17] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V25*/ meltfptr[22] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:282:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V9*/ meltfptr[7];; { MELT_LOCATION("warmelt-macro.melt:282:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG > 0 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) melt_warn_for_no_expected_secondary_results(); /* we warned when secondary results are expected but not returned. */ #endif /*MELT_HAVE_DEBUG*/ ; } ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; /*epilog*/ /*^clear*/ /*clear*/ /*_.IFCPP___V3*/ meltfptr[2] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V6*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V9*/ meltfptr[7] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("DIAGNOSTIC_EXPAND_MESSAGE", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_7_WARMELTmiMACRO_DIAGNOSTIC_EXPAND_MESSAGE_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_7_WARMELTmiMACRO_DIAGNOSTIC_EXPAND_MESSAGE*/ /** start of implementation for hook melthook_HOOK_MACRO_INSTALLER**/ /* frame for melthook_HOOK_MACRO_INSTALLER hook: */ /** start of frame for melthook_HOOK_MACRO_INSTALLER of CLASS_HOOKROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_melthook_HOOK_MACRO_INSTALLER// fromline 1568 : public Melt_CallFrameWithValues<13> { public: /* fromline 1572*/ long mcfr_varnum[6]; /*classy others*/ long _meltsparel; void melt_mark_stuff (void) { } /*end melt_mark_stuff*/ virtual void melt_mark_ggc_data (void) { melt_mark_values (); melt_mark_stuff (); }; /*end melt_mark_ggc_data*/ MeltFrame_melthook_HOOK_MACRO_INSTALLER(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<13> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_melthook_HOOK_MACRO_INSTALLER), clos) {}; MeltFrame_melthook_HOOK_MACRO_INSTALLER() //the constructor fromline 1642 : Melt_CallFrameWithValues<13> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_melthook_HOOK_MACRO_INSTALLER)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_melthook_HOOK_MACRO_INSTALLER(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<13> (fil,lin, sizeof(MeltFrame_melthook_HOOK_MACRO_INSTALLER)) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ MeltFrame_melthook_HOOK_MACRO_INSTALLER(melthook_ptr_t hook) //the hook constructor fromline 1670 : Melt_CallFrameWithValues<13> ( #if MELT_HAVE_DEBUG>0 /*fromline 1674*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1678*/ sizeof(MeltFrame_melthook_HOOK_MACRO_INSTALLER), hook) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1682*/ MeltFrame_melthook_HOOK_MACRO_INSTALLER(const char*fil, int lin, melthook_ptr_t hook) //the hook constructor fromline 1684 : Melt_CallFrameWithValues<13> (fil,lin, sizeof(MeltFrame_melthook_HOOK_MACRO_INSTALLER), hook) {}; #endif /* MELT_HAVE_DEBUG fromline 1688*/ }; // end class MeltFrame_melthook_HOOK_MACRO_INSTALLER /** end of frame for melthook_HOOK_MACRO_INSTALLER fromline 1697**/ /* endframe for melthook_HOOK_MACRO_INSTALLER hook */ /** implementation of hook melthook_HOOK_MACRO_INSTALLER */ void melthook_HOOK_MACRO_INSTALLER(melt_ptr_t melthookdatap, melt_ptr_t meltinp0_MBIND, melt_ptr_t meltinp1_MEXPCLOS) { /* body of hook melthook_HOOK_MACRO_INSTALLER from outpucod_hookroutine */ /* declare and initialize frame for melthook_HOOK_MACRO_INSTALLER hook */ #undef meltcallcount #if MELT_HAVE_DEBUG > 0 static long melthook_call_counter_HOOK_MACRO_INSTALLER ; long melt_thishookcall_counter_HOOK_MACRO_INSTALLER ATTRIBUTE_UNUSED = melthook_call_counter_HOOK_MACRO_INSTALLER++ ; #define meltcallcount melt_thishookcall_counter_HOOK_MACRO_INSTALLER #else #define meltcallcount 0L #endif MeltFrame_melthook_HOOK_MACRO_INSTALLER meltfram__(meltcast_melthook_st(melthookdatap)) /*hook classy frame*/; #define meltfhook /*hook data of HOOK_MACRO_INSTALLER*/ ((melthook_ptr_t) (/*_._HOOKDATA___V1*/ meltfptr[0])) /* body of melthook_HOOK_MACRO_INSTALLER hook */ MELT_LOCATION("warmelt-macro.melt:3971:/ compute"); /*_._HOOKDATA___V1*/ meltfptr[0] = /*hookgetdata*/ melthookdatap;; /*^compute*/ /*_.MBIND__V2*/ meltfptr[1] = /*gethookinput*/ meltinp0_MBIND;; /*^compute*/ /*_.MEXPCLOS__V3*/ meltfptr[2] = /*gethookinput*/ meltinp1_MEXPCLOS;; /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-macro.melt:3976:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-macro.melt:3976:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:3976:/ apply"); /*apply*/ { union meltparam_un argtab[8]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L2*/ meltfnum[1]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 3976; /*^apply.arg*/ argtab[3].meltbp_cstring = "hook_macro_installer"; /*^apply.arg*/ argtab[4].meltbp_cstring = " mbind="; /*^apply.arg*/ argtab[5].meltbp_aptr = (melt_ptr_t*) &/*_.MBIND__V2*/ meltfptr[1]; /*^apply.arg*/ argtab[6].meltbp_cstring = " mexpclos="; /*^apply.arg*/ argtab[7].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPCLOS__V3*/ meltfptr[2]; /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*~MELT_DEBUG_FUN*/ meltfhook->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V4*/ meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-macro.melt:3976:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V4*/ meltfptr[3] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-macro.melt:3976:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V4*/ meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; { MELT_LOCATION("warmelt-macro.melt:3977:/ locexp"); #if MELT_HAVE_DEBUG > 0 if (melt_need_debug (0)) melt_dbgshortbacktrace(( "hook_macro_installer"), (16)); #endif ; } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-macro.melt:3978:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L3*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.MBIND__V2*/ meltfptr[1]), (melt_ptr_t)((/*~CLASS_DEFINED_MACRO_BINDING*/ meltfhook->tabval[1])));; MELT_LOCATION("warmelt-macro.melt:3978:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V7*/ meltfptr[3] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-macro.melt:3978:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check mbind"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 3978; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MBIND__V2*/ meltfptr[1]; /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*~MELT_ASSERT_FAILURE_FUN*/ meltfhook->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V7*/ meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-macro.melt:3978:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7] = 0 ; } ; } ; /*_.IFCPP___V6*/ meltfptr[4] = /*_._IFELSE___V7*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-macro.melt:3978:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V7*/ meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V6*/ meltfptr[4] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-macro.melt:3979:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_CLOSURE__L4*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.MEXPCLOS__V3*/ meltfptr[2])) == MELTOBMAG_CLOSURE);; MELT_LOCATION("warmelt-macro.melt:3979:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V10*/ meltfptr[3] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-macro.melt:3979:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check mexpclos"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 3979; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPCLOS__V3*/ meltfptr[2]; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.MBIND__V2*/ meltfptr[1]; /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*~MELT_ASSERT_FAILURE_FUN*/ meltfhook->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V10*/ meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10];; /*epilog*/ MELT_LOCATION("warmelt-macro.melt:3979:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10] = 0 ; } ; } ; /*_.IFCPP___V9*/ meltfptr[7] = /*_._IFELSE___V10*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-macro.melt:3979:/ clear"); /*clear*/ /*_#IS_CLOSURE__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V10*/ meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:3980:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MBIND__V2*/ meltfptr[1]), (melt_ptr_t)((/*~CLASS_MACRO_BINDING*/ meltfhook->tabval[3]))) ) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @MBIND_EXPANSER", melt_magic_discr((melt_ptr_t)(/*_.MBIND__V2*/ meltfptr[1])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.MBIND__V2*/ meltfptr[1]), (1), (/*_.MEXPCLOS__V3*/ meltfptr[2]), "MBIND_EXPANSER"); ; /*^touch*/ meltgc_touch(/*_.MBIND__V2*/ meltfptr[1]); ; /*^touchobj*/ melt_dbgtrace_written_object (/*_.MBIND__V2*/ meltfptr[1], "put-fields"); ; /*epilog*/ } ; } /*noelse*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-macro.melt:3981:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L5*/ meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-macro.melt:3981:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L6*/ meltfnum[0] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-macro.melt:3981:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L6*/ meltfnum[0]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 3981; /*^apply.arg*/ argtab[3].meltbp_cstring = "hook_macro_installer updated mbind="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.MBIND__V2*/ meltfptr[1]; /*_.MELT_DEBUG_FUN__V13*/ meltfptr[3] = melt_apply ((meltclosure_ptr_t)((/*~MELT_DEBUG_FUN*/ meltfhook->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V12*/ meltfptr[10] = /*_.MELT_DEBUG_FUN__V13*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-macro.melt:3981:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L6*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V13*/ meltfptr[3] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V12*/ meltfptr[10] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-macro.melt:3981:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L5*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V12*/ meltfptr[10] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-macro.melt:3971:/ clear"); /*clear*/ /*_.IFCPP___V6*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V9*/ meltfptr[7] = 0 ; } ; /* epilogue of melthook_HOOK_MACRO_INSTALLER hook */ goto meltlabend_rout ; meltlabend_rout: ; /* final of melthook_HOOK_MACRO_INSTALLER hook */ return ; } /* end of melthook_HOOK_MACRO_INSTALLER hook */ #undef meltframe #undef meltfram__ #undef meltfhook #undef meltcallcount /** end of implementation for hook melthook_HOOK_MACRO_INSTALLER**/ /****** emitted syntax checking for C generating devices *****/ #if MELT_HAVE_DEBUG > 0 /* generated syntax checking routine for 1 C generating devices */ MELT_EXTERN void MELT_MODULE_VISIBILITY melt_syntax_tester_WARMELTmiMACRO (void); void melt_syntax_tester_WARMELTmiMACRO (void) { if (1) return; #define meltcallcount -1L /* in melt_syntax_tester_WARMELTmiMACRO */ /* generating device #1 */ /*primitive-syntax WARN_SHADOW*/ { long primres_0 = warn_shadow; if (primres_0) return; } /*end primitive-syntax WARN_SHADOW*/ } /* end generated melt_syntax_tester_WARMELTmiMACRO */ #endif /*MELT_HAVE_DEBUG syntaxcheck*/ const char melt_module_is_gpl_compatible[]= "warmelt-macro: GPLv3+"; /* the frame for initial routine */ /** start of frame for melt_start_this_module of CLASS_INITIAL_MODULE_ROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class Melt_InitialClassyFrame_WARMELTmiMACRO_h222289303// fromline 1568 : public Melt_CallFrameWithValues<2352> { public: /* fromline 1572*/ // no classy longs /*classy others*/ long _meltsparel; void melt_mark_stuff (void) { } /*end melt_mark_stuff*/ virtual void melt_mark_ggc_data (void) { melt_mark_values (); melt_mark_stuff (); }; /*end melt_mark_ggc_data*/ Melt_InitialClassyFrame_WARMELTmiMACRO_h222289303(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<2352> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(Melt_InitialClassyFrame_WARMELTmiMACRO_h222289303), clos) {}; Melt_InitialClassyFrame_WARMELTmiMACRO_h222289303() //the constructor fromline 1642 : Melt_CallFrameWithValues<2352> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(Melt_InitialClassyFrame_WARMELTmiMACRO_h222289303)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ Melt_InitialClassyFrame_WARMELTmiMACRO_h222289303(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<2352> (fil,lin, sizeof(Melt_InitialClassyFrame_WARMELTmiMACRO_h222289303)) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class Melt_InitialClassyFrame_WARMELTmiMACRO_h222289303 /** end of frame for melt_start_this_module fromline 1697**/ static void melt_initialize_module_meltdata_WARMELTmiMACRO (meltinitial_frame_t *iniframp__, char meltpredefinited[]) { #define meltfram__ (*iniframp__) /* curframe_cdat_struct */ struct meltcdata_st { void* meltcdata_inigap[2]; /* could help debugging */ struct MELT_OBJECT_STRUCT(3) dsym_1__HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER; struct MELT_STRING_STRUCT(38) dstr_2__HOOK_FRESH_ENVIRONMENT_R; struct MELT_ROUTINE_STRUCT(0) drout_3__REGISTER_DIAG_GIMPLE; struct MELT_CLOSURE_STRUCT(0) dclo_4__REGISTER_DIAG_GIMPLE; struct MELT_ROUTINE_STRUCT(0) drout_5__REGISTER_DIAG_GIMPLE_SEQ; struct MELT_CLOSURE_STRUCT(0) dclo_6__REGISTER_DIAG_GIMPLE_SEQ; struct MELT_ROUTINE_STRUCT(0) drout_7__REGISTER_DIAG_TREE; struct MELT_CLOSURE_STRUCT(0) dclo_8__REGISTER_DIAG_TREE; struct MELT_ROUTINE_STRUCT(0) drout_9__REGISTER_DIAG_BASIC_BLOCK; struct MELT_CLOSURE_STRUCT(0) dclo_10__REGISTER_DIAG_BASIC_BLOCK; struct MELT_ROUTINE_STRUCT(0) drout_11__REGISTER_DIAG_EDGE; struct MELT_CLOSURE_STRUCT(0) dclo_12__REGISTER_DIAG_EDGE; struct MELT_OBJECT_STRUCT(3) dsym_13__CLASS_DIAGNOSTIC_STATE; struct MELT_STRING_STRUCT(22) dstr_14__CLASS_DIAGNOSTIC_STATE; struct MELT_OBJECT_STRUCT(3) dsym_15__CLASS_LOCATED; struct MELT_STRING_STRUCT(13) dstr_16__CLASS_LOCATED; struct MELT_OBJECT_STRUCT(8) dobj_17__CLASS_DIAGNOSTIC_STATE; struct MELT_STRING_STRUCT(22) dstr_18__CLASS_DIAGNOSTIC_STATE; struct MELT_MULTIPLE_STRUCT(3) dtup_19_syCLASS_DIAGNOSTIC_STATE; struct MELT_MULTIPLE_STRUCT(5) dtup_20_syCLASS_DIAGNOSTIC_STATE; struct MELT_OBJECT_STRUCT(3) dsym_21__DIAG_VECT; struct MELT_STRING_STRUCT(9) dstr_22__DIAG_VECT; struct MELT_OBJECT_STRUCT(4) dobj_23__DIAG_VECT; struct MELT_STRING_STRUCT(9) dstr_24__DIAG_VECT; struct MELT_OBJECT_STRUCT(3) dsym_25__DIAG_POSITION; struct MELT_STRING_STRUCT(13) dstr_26__DIAG_POSITION; struct MELT_OBJECT_STRUCT(4) dobj_27__DIAG_POSITION; struct MELT_STRING_STRUCT(13) dstr_28__DIAG_POSITION; struct MELT_OBJECT_STRUCT(3) dsym_29__DIAG_STATE; struct MELT_STRING_STRUCT(10) dstr_30__DIAG_STATE; struct MELT_OBJECT_STRUCT(4) dobj_31__DIAG_STATE; struct MELT_STRING_STRUCT(10) dstr_32__DIAG_STATE; struct MELT_OBJECT_STRUCT(3) dsym_33__DISCR_DIAGNOSTIC_CLOSURE; struct MELT_STRING_STRUCT(24) dstr_34__DISCR_DIAGNOSTIC_CLOSURE; struct MELT_OBJECT_STRUCT(3) dsym_35__CLASS_DISCRIMINANT; struct MELT_STRING_STRUCT(18) dstr_36__CLASS_DISCRIMINANT; struct MELT_OBJECT_STRUCT(5) dobj_37__DISCR_DIAGNOSTIC_CLOSURE; struct MELT_OBJECT_STRUCT(3) dsym_38__DISCR_CLOSURE; struct MELT_STRING_STRUCT(13) dstr_39__DISCR_CLOSURE; struct MELT_STRING_STRUCT(24) dstr_40__DISCR_DIAGNOSTIC_CLOSURE; struct MELT_ROUTINE_STRUCT(205) drout_41__DIAGNOSTIC_ARGS_MACRO; struct MELT_CLOSURE_STRUCT(0) dclo_42__DIAGNOSTIC_ARGS_MACRO; struct MELT_OBJECT_STRUCT(3) dsym_43__MELT_DEBUG_FUN; struct MELT_STRING_STRUCT(14) dstr_44__MELT_DEBUG_FUN; struct MELT_OBJECT_STRUCT(3) dsym_45__CLASS_SEXPR; struct MELT_STRING_STRUCT(11) dstr_46__CLASS_SEXPR; struct MELT_OBJECT_STRUCT(3) dsym_47__MELT_ASSERT_FAILURE_FUN; struct MELT_STRING_STRUCT(23) dstr_48__MELT_ASSERT_FAILURE_FUN; struct MELT_OBJECT_STRUCT(3) dsym_49__LIST_TO_MULTIPLE; struct MELT_STRING_STRUCT(16) dstr_50__LIST_TO_MULTIPLE; struct MELT_OBJECT_STRUCT(3) dsym_51__DISCR_MULTIPLE; struct MELT_STRING_STRUCT(14) dstr_52__DISCR_MULTIPLE; struct MELT_OBJECT_STRUCT(3) dsym_53__STRING4OUT; struct MELT_STRING_STRUCT(10) dstr_54__STRING4OUT; struct MELT_OBJECT_STRUCT(3) dsym_55__DISCR_STRING; struct MELT_STRING_STRUCT(12) dstr_56__DISCR_STRING; struct MELT_OBJECT_STRUCT(3) dsym_57__CLASS_SYMBOL; struct MELT_STRING_STRUCT(12) dstr_58__CLASS_SYMBOL; struct MELT_OBJECT_STRUCT(3) dsym_59__MELT_MAKE_SEXPR; struct MELT_STRING_STRUCT(15) dstr_60__MELT_MAKE_SEXPR; struct MELT_OBJECT_STRUCT(3) dsym_61__HOOK_MELT_MAKE_LOCATION; struct MELT_STRING_STRUCT(23) dstr_62__HOOK_MELT_MAKE_LOCATION; struct MELT_OBJECT_STRUCT(3) dsym_63__LET; struct MELT_STRING_STRUCT(3) dstr_64__LET; struct MELT_OBJECT_STRUCT(3) dsym_65__DIAGPOSBOX; struct MELT_STRING_STRUCT(10) dstr_66__DIAGPOSBOX; struct MELT_OBJECT_STRUCT(3) dsym_67__BOX; struct MELT_STRING_STRUCT(3) dstr_68__BOX; struct MELT_OBJECT_STRUCT(3) dsym_69__DIAGSTATE; struct MELT_STRING_STRUCT(9) dstr_70__DIAGSTATE; struct MELT_OBJECT_STRUCT(3) dsym_71__INSTANCE; struct MELT_STRING_STRUCT(8) dstr_72__INSTANCE; struct MELT_OBJECT_STRUCT(3) dsym_73__LOCA_LOCATION; struct MELT_STRING_STRUCT(13) dstr_74__LOCA_LOCATION; struct MELT_OBJECT_STRUCT(3) dsym_75__DIAG_VECT; struct MELT_STRING_STRUCT(9) dstr_76__DIAG_VECT; struct MELT_OBJECT_STRUCT(3) dsym_77__DIAG_POSITION; struct MELT_STRING_STRUCT(13) dstr_78__DIAG_POSITION; struct MELT_OBJECT_STRUCT(3) dsym_79__DIAG_STATE; struct MELT_STRING_STRUCT(10) dstr_80__DIAG_STATE; struct MELT_OBJECT_STRUCT(3) dsym_81__MAKE_MAPOBJECT; struct MELT_STRING_STRUCT(14) dstr_82__MAKE_MAPOBJECT; struct MELT_OBJECT_STRUCT(3) dsym_83__DISCR_MAP_OBJECTS; struct MELT_STRING_STRUCT(17) dstr_84__DISCR_MAP_OBJECTS; struct MELT_OBJECT_STRUCT(3) dsym_85__SETQ; struct MELT_STRING_STRUCT(4) dstr_86__SETQ; struct MELT_OBJECT_STRUCT(3) dsym_87__FOREVER; struct MELT_STRING_STRUCT(7) dstr_88__FOREVER; struct MELT_OBJECT_STRUCT(3) dsym_89__ARGLOOP; struct MELT_STRING_STRUCT(7) dstr_90__ARGLOOP; struct MELT_OBJECT_STRUCT(3) dsym_91__PUT_INT; struct MELT_STRING_STRUCT(7) dstr_92__PUT_INT; struct MELT_OBJECT_STRUCT(3) dsym_93__VARIADIC; struct MELT_STRING_STRUCT(8) dstr_94__VARIADIC; struct MELT_OBJECT_STRUCT(3) dsym_95__EXIT; struct MELT_STRING_STRUCT(4) dstr_96__EXIT; struct MELT_OBJECT_STRUCT(3) dsym_97__CSTRING; struct MELT_STRING_STRUCT(7) dstr_98__CSTRING; struct MELT_OBJECT_STRUCT(3) dsym_99__STR; struct MELT_STRING_STRUCT(3) dstr_100__STR; struct MELT_OBJECT_STRUCT(3) dsym_101__BS; struct MELT_STRING_STRUCT(2) dstr_102__BS; struct MELT_OBJECT_STRUCT(3) dsym_103__CONSTANT_BOX; struct MELT_STRING_STRUCT(12) dstr_104__CONSTANT_BOX; struct MELT_OBJECT_STRUCT(3) dsym_105__pl; struct MELT_STRING_STRUCT(1) dstr_106__; struct MELT_OBJECT_STRUCT(3) dsym_107__MULTIPLE_PUT_NTH; struct MELT_STRING_STRUCT(16) dstr_108__MULTIPLE_PUT_NTH; struct MELT_OBJECT_STRUCT(3) dsym_109__VOID; struct MELT_STRING_STRUCT(4) dstr_110__VOID; struct MELT_OBJECT_STRUCT(3) dsym_111__LONG; struct MELT_STRING_STRUCT(4) dstr_112__LONG; struct MELT_OBJECT_STRUCT(3) dsym_113__L; struct MELT_STRING_STRUCT(1) dstr_114__L; struct MELT_OBJECT_STRUCT(3) dsym_115__SN; struct MELT_STRING_STRUCT(2) dstr_116__SN; struct MELT_OBJECT_STRUCT(3) dsym_117__TREE; struct MELT_STRING_STRUCT(4) dstr_118__TREE; struct MELT_OBJECT_STRUCT(3) dsym_119__TR; struct MELT_STRING_STRUCT(2) dstr_120__TR; struct MELT_OBJECT_STRUCT(3) dsym_121__ASSERT_MSG; struct MELT_STRING_STRUCT(10) dstr_122__ASSERT_MSG; struct MELT_OBJECT_STRUCT(3) dsym_123__IS_CLOSURE; struct MELT_STRING_STRUCT(10) dstr_124__IS_CLOSURE; struct MELT_OBJECT_STRUCT(3) dsym_125__DIAGV_TREE; struct MELT_STRING_STRUCT(10) dstr_126__DIAGV_TREE; struct MELT_OBJECT_STRUCT(3) dsym_127__S; struct MELT_STRING_STRUCT(1) dstr_128__S; struct MELT_OBJECT_STRUCT(3) dsym_129__GIMPLE; struct MELT_STRING_STRUCT(6) dstr_130__GIMPLE; struct MELT_OBJECT_STRUCT(3) dsym_131__GI; struct MELT_STRING_STRUCT(2) dstr_132__GI; struct MELT_OBJECT_STRUCT(3) dsym_133__DIAGV_GIMPLE; struct MELT_STRING_STRUCT(12) dstr_134__DIAGV_GIMPLE; struct MELT_OBJECT_STRUCT(3) dsym_135__GIMPLE_SEQ; struct MELT_STRING_STRUCT(10) dstr_136__GIMPLE_SEQ; struct MELT_OBJECT_STRUCT(3) dsym_137__GS; struct MELT_STRING_STRUCT(2) dstr_138__GS; struct MELT_OBJECT_STRUCT(3) dsym_139__DIAGV_GIMPLE_SEQ; struct MELT_STRING_STRUCT(16) dstr_140__DIAGV_GIMPLE_SEQ; struct MELT_OBJECT_STRUCT(3) dsym_141__BASIC_BLOCK; struct MELT_STRING_STRUCT(11) dstr_142__BASIC_BLOCK; struct MELT_OBJECT_STRUCT(3) dsym_143__BB; struct MELT_STRING_STRUCT(2) dstr_144__BB; struct MELT_OBJECT_STRUCT(3) dsym_145__DIAGV_BASIC_BLOCK; struct MELT_STRING_STRUCT(17) dstr_146__DIAGV_BASIC_BLOCK; struct MELT_OBJECT_STRUCT(3) dsym_147__EDGE; struct MELT_STRING_STRUCT(4) dstr_148__EDGE; struct MELT_OBJECT_STRUCT(3) dsym_149__ED; struct MELT_STRING_STRUCT(2) dstr_150__ED; struct MELT_OBJECT_STRUCT(3) dsym_151__DIAGV_EDGE; struct MELT_STRING_STRUCT(10) dstr_152__DIAGV_EDGE; struct MELT_OBJECT_STRUCT(3) dsym_153__VALUE; struct MELT_STRING_STRUCT(5) dstr_154__VALUE; struct MELT_OBJECT_STRUCT(3) dsym_155__V; struct MELT_STRING_STRUCT(1) dstr_156__V; struct MELT_OBJECT_STRUCT(3) dsym_157__COND; struct MELT_STRING_STRUCT(4) dstr_158__COND; struct MELT_OBJECT_STRUCT(3) dsym_159__IS_INTEGERBOX; struct MELT_STRING_STRUCT(13) dstr_160__IS_INTEGERBOX; struct MELT_OBJECT_STRUCT(3) dsym_161__GET_INT; struct MELT_STRING_STRUCT(7) dstr_162__GET_INT; struct MELT_OBJECT_STRUCT(3) dsym_163__IS_STRING; struct MELT_STRING_STRUCT(9) dstr_164__IS_STRING; struct MELT_OBJECT_STRUCT(3) dsym_165__IS_A; struct MELT_STRING_STRUCT(4) dstr_166__IS_A; struct MELT_OBJECT_STRUCT(3) dsym_167__AND; struct MELT_STRING_STRUCT(3) dstr_168__AND; struct MELT_OBJECT_STRUCT(3) dsym_169__CLASS_KEYWORD; struct MELT_STRING_STRUCT(13) dstr_170__CLASS_KEYWORD; struct MELT_OBJECT_STRUCT(3) dsym_171__GET_FIELD; struct MELT_STRING_STRUCT(9) dstr_172__GET_FIELD; struct MELT_OBJECT_STRUCT(3) dsym_173__SYMB_DATA; struct MELT_STRING_STRUCT(9) dstr_174__SYMB_DATA; struct MELT_OBJECT_STRUCT(3) dsym_175__CLASS_NAMED; struct MELT_STRING_STRUCT(11) dstr_176__CLASS_NAMED; struct MELT_OBJECT_STRUCT(3) dsym_177__NAM; struct MELT_STRING_STRUCT(3) dstr_178__NAM; struct MELT_OBJECT_STRUCT(3) dsym_179__UNSAFE_GET_FIELD; struct MELT_STRING_STRUCT(16) dstr_180__UNSAFE_GET_FIELD; struct MELT_OBJECT_STRUCT(3) dsym_181__NAMED_NAME; struct MELT_STRING_STRUCT(10) dstr_182__NAMED_NAME; struct MELT_OBJECT_STRUCT(3) dsym_183__ELSE; struct MELT_STRING_STRUCT(4) dstr_184__ELSE; struct MELT_OBJECT_STRUCT(3) dsym_185__VCTY; struct MELT_STRING_STRUCT(4) dstr_186__VCTY; struct MELT_OBJECT_STRUCT(3) dsym_187__VARIADIC_CTYPE; struct MELT_STRING_STRUCT(14) dstr_188__VARIADIC_CTYPE; struct MELT_OBJECT_STRUCT(3) dsym_189__ERRORMSG_STRV; struct MELT_STRING_STRUCT(13) dstr_190__ERRORMSG_STRV; struct MELT_OBJECT_STRUCT(3) dsym_191__DIAGNOSTIC_ARGS_MACRO; struct MELT_STRING_STRUCT(21) dstr_192__DIAGNOSTIC_ARGS_MACRO; struct MELT_ROUTINE_STRUCT(5) drout_193__DIAGNOSTIC_EXPAND_MESSAGE; struct MELT_CLOSURE_STRUCT(0) dclo_194__DIAGNOSTIC_EXPAND_MESSAGE; struct MELT_OBJECT_STRUCT(3) dsym_195__DISCR_STRBUF; struct MELT_STRING_STRUCT(12) dstr_196__DISCR_STRBUF; struct MELT_OBJECT_STRUCT(3) dsym_197__ADD2OUT; struct MELT_STRING_STRUCT(7) dstr_198__ADD2OUT; struct MELT_OBJECT_STRUCT(3) dsym_199__DIAGNOSTIC_EXPAND_MESSAGE; struct MELT_STRING_STRUCT(25) dstr_200__DIAGNOSTIC_EXPAND_MESSAG; struct MELT_OBJECT_STRUCT(3) dsym_201__REGISTER_DIAG_BASIC_BLOCK; struct MELT_STRING_STRUCT(25) dstr_202__REGISTER_DIAG_BASIC_BLOC; struct MELT_OBJECT_STRUCT(3) dsym_203__REGISTER_DIAG_EDGE; struct MELT_STRING_STRUCT(18) dstr_204__REGISTER_DIAG_EDGE; struct MELT_OBJECT_STRUCT(3) dsym_205__REGISTER_DIAG_GIMPLE; struct MELT_STRING_STRUCT(20) dstr_206__REGISTER_DIAG_GIMPLE; struct MELT_OBJECT_STRUCT(3) dsym_207__REGISTER_DIAG_GIMPLE_SEQ; struct MELT_STRING_STRUCT(24) dstr_208__REGISTER_DIAG_GIMPLE_SEQ; struct MELT_OBJECT_STRUCT(3) dsym_209__REGISTER_DIAG_TREE; struct MELT_STRING_STRUCT(18) dstr_210__REGISTER_DIAG_TREE; struct MELT_ROUTINE_STRUCT(12) drout_211__ERROR_AT; struct MELT_CLOSURE_STRUCT(0) dclo_212__ERROR_AT; struct MELT_ROUTINE_STRUCT(12) drout_213__FATAL_ERROR_AT; struct MELT_CLOSURE_STRUCT(0) dclo_214__FATAL_ERROR_AT; struct MELT_ROUTINE_STRUCT(12) drout_215__WARNING_AT; struct MELT_CLOSURE_STRUCT(0) dclo_216__WARNING_AT; struct MELT_ROUTINE_STRUCT(13) drout_217__INFORM_AT; struct MELT_CLOSURE_STRUCT(0) dclo_218__INFORM_AT; struct MELT_OBJECT_STRUCT(3) dsym_219__ERROR_AT; struct MELT_STRING_STRUCT(8) dstr_220__ERROR_AT; struct MELT_OBJECT_STRUCT(3) dsym_221__FATAL_ERROR_AT; struct MELT_STRING_STRUCT(14) dstr_222__FATAL_ERROR_AT; struct MELT_OBJECT_STRUCT(3) dsym_223__WARNING_AT; struct MELT_STRING_STRUCT(10) dstr_224__WARNING_AT; struct MELT_OBJECT_STRUCT(3) dsym_225__INFORM_AT; struct MELT_STRING_STRUCT(9) dstr_226__INFORM_AT; struct MELT_OBJECT_STRUCT(3) dsym_227__IS_RECURSIVELY_CONSTRUCTIBLE; struct MELT_STRING_STRUCT(28) dstr_228__IS_RECURSIVELY_CONSTRUCT; struct MELT_OBJECT_STRUCT(3) dsym_229__CLASS_SELECTOR; struct MELT_STRING_STRUCT(14) dstr_230__CLASS_SELECTOR; struct MELT_OBJECT_STRUCT(3) dsym_231__RECV; struct MELT_STRING_STRUCT(4) dstr_232__RECV; struct MELT_OBJECT_STRUCT(2) dobj_233; struct MELT_MULTIPLE_STRUCT(1) dtup_234_syIS_RECURSIVELY_CONSTRUCTIBLE; struct MELT_OBJECT_STRUCT(4) dobj_235__IS_RECURSIVELY_CONSTRUCTIBLE; struct MELT_STRING_STRUCT(28) dstr_236__IS_RECURSIVELY_CONSTRUCT; struct MELT_OBJECT_STRUCT(3) dsym_237__CLASS_SOURCE_GENERATOR_DEVICE; struct MELT_STRING_STRUCT(29) dstr_238__CLASS_SOURCE_GENERATOR_D; struct MELT_OBJECT_STRUCT(3) dsym_239__CLASS_SOURCE; struct MELT_STRING_STRUCT(12) dstr_240__CLASS_SOURCE; struct MELT_OBJECT_STRUCT(8) dobj_241__CLASS_SOURCE_GENERATOR_DEVICE; struct MELT_STRING_STRUCT(29) dstr_242__CLASS_SOURCE_GENERATOR_D; struct MELT_MULTIPLE_STRUCT(4) dtup_243_syCLASS_SOURCE_GENERATOR_DEVICE; struct MELT_MULTIPLE_STRUCT(4) dtup_244_syCLASS_SOURCE_GENERATOR_DEVICE; struct MELT_OBJECT_STRUCT(3) dsym_245__SRCGEN_DEFIN; struct MELT_STRING_STRUCT(12) dstr_246__SRCGEN_DEFIN; struct MELT_OBJECT_STRUCT(4) dobj_247__SRCGEN_DEFIN; struct MELT_STRING_STRUCT(12) dstr_248__SRCGEN_DEFIN; struct MELT_OBJECT_STRUCT(3) dsym_249__SRCGEN_REPR; struct MELT_STRING_STRUCT(11) dstr_250__SRCGEN_REPR; struct MELT_OBJECT_STRUCT(4) dobj_251__SRCGEN_REPR; struct MELT_STRING_STRUCT(11) dstr_252__SRCGEN_REPR; struct MELT_OBJECT_STRUCT(3) dsym_253__CLASS_SOURCE_LAZY_MACRO_EXPANSION; struct MELT_STRING_STRUCT(33) dstr_254__CLASS_SOURCE_LAZY_MACRO_; struct MELT_OBJECT_STRUCT(8) dobj_255__CLASS_SOURCE_LAZY_MACRO_EXPANSION; struct MELT_STRING_STRUCT(33) dstr_256__CLASS_SOURCE_LAZY_MACRO_; struct MELT_MULTIPLE_STRUCT(4) dtup_257_syCLASS_SOURCE_LAZY_MACRO_EXPANSION; struct MELT_MULTIPLE_STRUCT(4) dtup_258_syCLASS_SOURCE_LAZY_MACRO_EXPANSION; struct MELT_OBJECT_STRUCT(3) dsym_259__SLAZYMACRO_FUN; struct MELT_STRING_STRUCT(14) dstr_260__SLAZYMACRO_FUN; struct MELT_OBJECT_STRUCT(4) dobj_261__SLAZYMACRO_FUN; struct MELT_STRING_STRUCT(14) dstr_262__SLAZYMACRO_FUN; struct MELT_OBJECT_STRUCT(3) dsym_263__SLAZYMACRO_OPER; struct MELT_STRING_STRUCT(15) dstr_264__SLAZYMACRO_OPER; struct MELT_OBJECT_STRUCT(4) dobj_265__SLAZYMACRO_OPER; struct MELT_STRING_STRUCT(15) dstr_266__SLAZYMACRO_OPER; struct MELT_OBJECT_STRUCT(3) dsym_267__CLASS_SOURCE_ARGUMENTED_OPERATOR; struct MELT_STRING_STRUCT(32) dstr_268__CLASS_SOURCE_ARGUMENTED_; struct MELT_OBJECT_STRUCT(8) dobj_269__CLASS_SOURCE_ARGUMENTED_OPERATOR; struct MELT_STRING_STRUCT(32) dstr_270__CLASS_SOURCE_ARGUMENTED_; struct MELT_MULTIPLE_STRUCT(4) dtup_271_syCLASS_SOURCE_ARGUMENTED_OPERATOR; struct MELT_MULTIPLE_STRUCT(3) dtup_272_syCLASS_SOURCE_ARGUMENTED_OPERATOR; struct MELT_OBJECT_STRUCT(3) dsym_273__SARGOP_ARGS; struct MELT_STRING_STRUCT(11) dstr_274__SARGOP_ARGS; struct MELT_OBJECT_STRUCT(4) dobj_275__SARGOP_ARGS; struct MELT_STRING_STRUCT(11) dstr_276__SARGOP_ARGS; struct MELT_OBJECT_STRUCT(3) dsym_277__CLASS_SOURCE_APPLY; struct MELT_STRING_STRUCT(18) dstr_278__CLASS_SOURCE_APPLY; struct MELT_OBJECT_STRUCT(8) dobj_279__CLASS_SOURCE_APPLY; struct MELT_STRING_STRUCT(18) dstr_280__CLASS_SOURCE_APPLY; struct MELT_MULTIPLE_STRUCT(5) dtup_281_syCLASS_SOURCE_APPLY; struct MELT_MULTIPLE_STRUCT(4) dtup_282_syCLASS_SOURCE_APPLY; struct MELT_OBJECT_STRUCT(3) dsym_283__SAPP_FUN; struct MELT_STRING_STRUCT(8) dstr_284__SAPP_FUN; struct MELT_OBJECT_STRUCT(4) dobj_285__SAPP_FUN; struct MELT_STRING_STRUCT(8) dstr_286__SAPP_FUN; struct MELT_OBJECT_STRUCT(3) dsym_287__CLASS_SOURCE_MSEND; struct MELT_STRING_STRUCT(18) dstr_288__CLASS_SOURCE_MSEND; struct MELT_OBJECT_STRUCT(8) dobj_289__CLASS_SOURCE_MSEND; struct MELT_STRING_STRUCT(18) dstr_290__CLASS_SOURCE_MSEND; struct MELT_MULTIPLE_STRUCT(5) dtup_291_syCLASS_SOURCE_MSEND; struct MELT_MULTIPLE_STRUCT(5) dtup_292_syCLASS_SOURCE_MSEND; struct MELT_OBJECT_STRUCT(3) dsym_293__MSEND_SELSYMB; struct MELT_STRING_STRUCT(13) dstr_294__MSEND_SELSYMB; struct MELT_OBJECT_STRUCT(4) dobj_295__MSEND_SELSYMB; struct MELT_STRING_STRUCT(13) dstr_296__MSEND_SELSYMB; struct MELT_OBJECT_STRUCT(3) dsym_297__MSEND_RECV; struct MELT_STRING_STRUCT(10) dstr_298__MSEND_RECV; struct MELT_OBJECT_STRUCT(4) dobj_299__MSEND_RECV; struct MELT_STRING_STRUCT(10) dstr_300__MSEND_RECV; struct MELT_OBJECT_STRUCT(3) dsym_301__CLASS_SOURCE_PRIMITIVE; struct MELT_STRING_STRUCT(22) dstr_302__CLASS_SOURCE_PRIMITIVE; struct MELT_OBJECT_STRUCT(8) dobj_303__CLASS_SOURCE_PRIMITIVE; struct MELT_STRING_STRUCT(22) dstr_304__CLASS_SOURCE_PRIMITIVE; struct MELT_MULTIPLE_STRUCT(5) dtup_305_syCLASS_SOURCE_PRIMITIVE; struct MELT_MULTIPLE_STRUCT(4) dtup_306_syCLASS_SOURCE_PRIMITIVE; struct MELT_OBJECT_STRUCT(3) dsym_307__SPRIM_OPER; struct MELT_STRING_STRUCT(10) dstr_308__SPRIM_OPER; struct MELT_OBJECT_STRUCT(4) dobj_309__SPRIM_OPER; struct MELT_STRING_STRUCT(10) dstr_310__SPRIM_OPER; struct MELT_OBJECT_STRUCT(3) dsym_311__CLASS_SOURCE_HOOK_CALL; struct MELT_STRING_STRUCT(22) dstr_312__CLASS_SOURCE_HOOK_CALL; struct MELT_OBJECT_STRUCT(8) dobj_313__CLASS_SOURCE_HOOK_CALL; struct MELT_STRING_STRUCT(22) dstr_314__CLASS_SOURCE_HOOK_CALL; struct MELT_MULTIPLE_STRUCT(5) dtup_315_syCLASS_SOURCE_HOOK_CALL; struct MELT_MULTIPLE_STRUCT(4) dtup_316_syCLASS_SOURCE_HOOK_CALL; struct MELT_OBJECT_STRUCT(3) dsym_317__SHOOK_CALLED; struct MELT_STRING_STRUCT(12) dstr_318__SHOOK_CALLED; struct MELT_OBJECT_STRUCT(4) dobj_319__SHOOK_CALLED; struct MELT_STRING_STRUCT(12) dstr_320__SHOOK_CALLED; struct MELT_OBJECT_STRUCT(3) dsym_321__CLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION; struct MELT_STRING_STRUCT(42) dstr_322__CLASS_SOURCE_ARITHMETIC_; struct MELT_OBJECT_STRUCT(8) dobj_323__CLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION; struct MELT_STRING_STRUCT(42) dstr_324__CLASS_SOURCE_ARITHMETIC_; struct MELT_MULTIPLE_STRUCT(5) dtup_325_syCLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION; struct MELT_MULTIPLE_STRUCT(5) dtup_326_syCLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION; struct MELT_OBJECT_STRUCT(3) dsym_327__SARITHVAR_NEUTRAL; struct MELT_STRING_STRUCT(17) dstr_328__SARITHVAR_NEUTRAL; struct MELT_OBJECT_STRUCT(4) dobj_329__SARITHVAR_NEUTRAL; struct MELT_STRING_STRUCT(17) dstr_330__SARITHVAR_NEUTRAL; struct MELT_OBJECT_STRUCT(3) dsym_331__SARITHVAR_PRIMITIVE; struct MELT_STRING_STRUCT(19) dstr_332__SARITHVAR_PRIMITIVE; struct MELT_OBJECT_STRUCT(4) dobj_333__SARITHVAR_PRIMITIVE; struct MELT_STRING_STRUCT(19) dstr_334__SARITHVAR_PRIMITIVE; struct MELT_OBJECT_STRUCT(3) dsym_335__CLASS_SOURCE_CITERATION; struct MELT_STRING_STRUCT(23) dstr_336__CLASS_SOURCE_CITERATION; struct MELT_OBJECT_STRUCT(8) dobj_337__CLASS_SOURCE_CITERATION; struct MELT_STRING_STRUCT(23) dstr_338__CLASS_SOURCE_CITERATION; struct MELT_MULTIPLE_STRUCT(5) dtup_339_syCLASS_SOURCE_CITERATION; struct MELT_MULTIPLE_STRUCT(6) dtup_340_syCLASS_SOURCE_CITERATION; struct MELT_OBJECT_STRUCT(3) dsym_341__SCITER_OPER; struct MELT_STRING_STRUCT(11) dstr_342__SCITER_OPER; struct MELT_OBJECT_STRUCT(4) dobj_343__SCITER_OPER; struct MELT_STRING_STRUCT(11) dstr_344__SCITER_OPER; struct MELT_OBJECT_STRUCT(3) dsym_345__SCITER_VARBIND; struct MELT_STRING_STRUCT(14) dstr_346__SCITER_VARBIND; struct MELT_OBJECT_STRUCT(4) dobj_347__SCITER_VARBIND; struct MELT_STRING_STRUCT(14) dstr_348__SCITER_VARBIND; struct MELT_OBJECT_STRUCT(3) dsym_349__SCITER_BODY; struct MELT_STRING_STRUCT(11) dstr_350__SCITER_BODY; struct MELT_OBJECT_STRUCT(4) dobj_351__SCITER_BODY; struct MELT_STRING_STRUCT(11) dstr_352__SCITER_BODY; struct MELT_OBJECT_STRUCT(3) dsym_353__CLASS_SOURCE_CMATCHEXPR; struct MELT_STRING_STRUCT(23) dstr_354__CLASS_SOURCE_CMATCHEXPR; struct MELT_OBJECT_STRUCT(8) dobj_355__CLASS_SOURCE_CMATCHEXPR; struct MELT_STRING_STRUCT(23) dstr_356__CLASS_SOURCE_CMATCHEXPR; struct MELT_MULTIPLE_STRUCT(5) dtup_357_syCLASS_SOURCE_CMATCHEXPR; struct MELT_MULTIPLE_STRUCT(4) dtup_358_syCLASS_SOURCE_CMATCHEXPR; struct MELT_OBJECT_STRUCT(3) dsym_359__SCMATX_CMATCHER; struct MELT_STRING_STRUCT(15) dstr_360__SCMATX_CMATCHER; struct MELT_OBJECT_STRUCT(4) dobj_361__SCMATX_CMATCHER; struct MELT_STRING_STRUCT(15) dstr_362__SCMATX_CMATCHER; struct MELT_OBJECT_STRUCT(3) dsym_363__CLASS_SOURCE_FUNMATCHEXPR; struct MELT_STRING_STRUCT(25) dstr_364__CLASS_SOURCE_FUNMATCHEXP; struct MELT_OBJECT_STRUCT(8) dobj_365__CLASS_SOURCE_FUNMATCHEXPR; struct MELT_STRING_STRUCT(25) dstr_366__CLASS_SOURCE_FUNMATCHEXP; struct MELT_MULTIPLE_STRUCT(5) dtup_367_syCLASS_SOURCE_FUNMATCHEXPR; struct MELT_MULTIPLE_STRUCT(5) dtup_368_syCLASS_SOURCE_FUNMATCHEXPR; struct MELT_OBJECT_STRUCT(3) dsym_369__SFMATX_FMATCHER; struct MELT_STRING_STRUCT(15) dstr_370__SFMATX_FMATCHER; struct MELT_OBJECT_STRUCT(4) dobj_371__SFMATX_FMATCHER; struct MELT_STRING_STRUCT(15) dstr_372__SFMATX_FMATCHER; struct MELT_OBJECT_STRUCT(3) dsym_373__SFMATX_FMATBIND; struct MELT_STRING_STRUCT(15) dstr_374__SFMATX_FMATBIND; struct MELT_OBJECT_STRUCT(4) dobj_375__SFMATX_FMATBIND; struct MELT_STRING_STRUCT(15) dstr_376__SFMATX_FMATBIND; struct MELT_OBJECT_STRUCT(3) dsym_377__CLASS_SOURCE_TUPLE; struct MELT_STRING_STRUCT(18) dstr_378__CLASS_SOURCE_TUPLE; struct MELT_OBJECT_STRUCT(8) dobj_379__CLASS_SOURCE_TUPLE; struct MELT_STRING_STRUCT(18) dstr_380__CLASS_SOURCE_TUPLE; struct MELT_MULTIPLE_STRUCT(5) dtup_381_syCLASS_SOURCE_TUPLE; struct MELT_MULTIPLE_STRUCT(3) dtup_382_syCLASS_SOURCE_TUPLE; struct MELT_OBJECT_STRUCT(3) dsym_383__CLASS_SOURCE_LIST; struct MELT_STRING_STRUCT(17) dstr_384__CLASS_SOURCE_LIST; struct MELT_OBJECT_STRUCT(8) dobj_385__CLASS_SOURCE_LIST; struct MELT_STRING_STRUCT(17) dstr_386__CLASS_SOURCE_LIST; struct MELT_MULTIPLE_STRUCT(5) dtup_387_syCLASS_SOURCE_LIST; struct MELT_MULTIPLE_STRUCT(3) dtup_388_syCLASS_SOURCE_LIST; struct MELT_OBJECT_STRUCT(3) dsym_389__CLASS_SOURCE_PROGN; struct MELT_STRING_STRUCT(18) dstr_390__CLASS_SOURCE_PROGN; struct MELT_OBJECT_STRUCT(8) dobj_391__CLASS_SOURCE_PROGN; struct MELT_STRING_STRUCT(18) dstr_392__CLASS_SOURCE_PROGN; struct MELT_MULTIPLE_STRUCT(4) dtup_393_syCLASS_SOURCE_PROGN; struct MELT_MULTIPLE_STRUCT(3) dtup_394_syCLASS_SOURCE_PROGN; struct MELT_OBJECT_STRUCT(3) dsym_395__SPROGN_BODY; struct MELT_STRING_STRUCT(11) dstr_396__SPROGN_BODY; struct MELT_OBJECT_STRUCT(4) dobj_397__SPROGN_BODY; struct MELT_STRING_STRUCT(11) dstr_398__SPROGN_BODY; struct MELT_OBJECT_STRUCT(3) dsym_399__CLASS_SOURCE_RETURN; struct MELT_STRING_STRUCT(19) dstr_400__CLASS_SOURCE_RETURN; struct MELT_OBJECT_STRUCT(8) dobj_401__CLASS_SOURCE_RETURN; struct MELT_STRING_STRUCT(19) dstr_402__CLASS_SOURCE_RETURN; struct MELT_MULTIPLE_STRUCT(5) dtup_403_syCLASS_SOURCE_RETURN; struct MELT_MULTIPLE_STRUCT(3) dtup_404_syCLASS_SOURCE_RETURN; struct MELT_OBJECT_STRUCT(3) dsym_405__CLASS_SOURCE_SETQ; struct MELT_STRING_STRUCT(17) dstr_406__CLASS_SOURCE_SETQ; struct MELT_OBJECT_STRUCT(8) dobj_407__CLASS_SOURCE_SETQ; struct MELT_STRING_STRUCT(17) dstr_408__CLASS_SOURCE_SETQ; struct MELT_MULTIPLE_STRUCT(4) dtup_409_syCLASS_SOURCE_SETQ; struct MELT_MULTIPLE_STRUCT(4) dtup_410_syCLASS_SOURCE_SETQ; struct MELT_OBJECT_STRUCT(3) dsym_411__SSTQ_VAR; struct MELT_STRING_STRUCT(8) dstr_412__SSTQ_VAR; struct MELT_OBJECT_STRUCT(4) dobj_413__SSTQ_VAR; struct MELT_STRING_STRUCT(8) dstr_414__SSTQ_VAR; struct MELT_OBJECT_STRUCT(3) dsym_415__SSTQ_EXPR; struct MELT_STRING_STRUCT(9) dstr_416__SSTQ_EXPR; struct MELT_OBJECT_STRUCT(4) dobj_417__SSTQ_EXPR; struct MELT_STRING_STRUCT(9) dstr_418__SSTQ_EXPR; struct MELT_OBJECT_STRUCT(3) dsym_419__CLASS_SOURCE_COMMENT; struct MELT_STRING_STRUCT(20) dstr_420__CLASS_SOURCE_COMMENT; struct MELT_OBJECT_STRUCT(8) dobj_421__CLASS_SOURCE_COMMENT; struct MELT_STRING_STRUCT(20) dstr_422__CLASS_SOURCE_COMMENT; struct MELT_MULTIPLE_STRUCT(4) dtup_423_syCLASS_SOURCE_COMMENT; struct MELT_MULTIPLE_STRUCT(3) dtup_424_syCLASS_SOURCE_COMMENT; struct MELT_OBJECT_STRUCT(3) dsym_425__SCOMM_STR; struct MELT_STRING_STRUCT(9) dstr_426__SCOMM_STR; struct MELT_OBJECT_STRUCT(4) dobj_427__SCOMM_STR; struct MELT_STRING_STRUCT(9) dstr_428__SCOMM_STR; struct MELT_OBJECT_STRUCT(3) dsym_429__CLASS_SOURCE_CODE_STRING; struct MELT_STRING_STRUCT(24) dstr_430__CLASS_SOURCE_CODE_STRING; struct MELT_OBJECT_STRUCT(8) dobj_431__CLASS_SOURCE_CODE_STRING; struct MELT_STRING_STRUCT(24) dstr_432__CLASS_SOURCE_CODE_STRING; struct MELT_MULTIPLE_STRUCT(4) dtup_433_syCLASS_SOURCE_CODE_STRING; struct MELT_MULTIPLE_STRUCT(3) dtup_434_syCLASS_SOURCE_CODE_STRING; struct MELT_OBJECT_STRUCT(3) dsym_435__SC_CODESTRING; struct MELT_STRING_STRUCT(13) dstr_436__SC_CODESTRING; struct MELT_OBJECT_STRUCT(4) dobj_437__SC_CODESTRING; struct MELT_STRING_STRUCT(13) dstr_438__SC_CODESTRING; struct MELT_OBJECT_STRUCT(3) dsym_439__CLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE; struct MELT_STRING_STRUCT(37) dstr_440__CLASS_SOURCE_MODULE_IS_G; struct MELT_OBJECT_STRUCT(8) dobj_441__CLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE; struct MELT_STRING_STRUCT(37) dstr_442__CLASS_SOURCE_MODULE_IS_G; struct MELT_MULTIPLE_STRUCT(5) dtup_443_syCLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE; struct MELT_MULTIPLE_STRUCT(3) dtup_444_syCLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE; struct MELT_OBJECT_STRUCT(3) dsym_445__CLASS_SOURCE_CHEADER; struct MELT_STRING_STRUCT(20) dstr_446__CLASS_SOURCE_CHEADER; struct MELT_OBJECT_STRUCT(8) dobj_447__CLASS_SOURCE_CHEADER; struct MELT_STRING_STRUCT(20) dstr_448__CLASS_SOURCE_CHEADER; struct MELT_MULTIPLE_STRUCT(5) dtup_449_syCLASS_SOURCE_CHEADER; struct MELT_MULTIPLE_STRUCT(3) dtup_450_syCLASS_SOURCE_CHEADER; struct MELT_OBJECT_STRUCT(3) dsym_451__CLASS_SOURCE_CIMPLEMENT; struct MELT_STRING_STRUCT(23) dstr_452__CLASS_SOURCE_CIMPLEMENT; struct MELT_OBJECT_STRUCT(8) dobj_453__CLASS_SOURCE_CIMPLEMENT; struct MELT_STRING_STRUCT(23) dstr_454__CLASS_SOURCE_CIMPLEMENT; struct MELT_MULTIPLE_STRUCT(5) dtup_455_syCLASS_SOURCE_CIMPLEMENT; struct MELT_MULTIPLE_STRUCT(3) dtup_456_syCLASS_SOURCE_CIMPLEMENT; struct MELT_OBJECT_STRUCT(3) dsym_457__CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG; struct MELT_STRING_STRUCT(40) dstr_458__CLASS_SOURCE_USE_PACKAGE; struct MELT_OBJECT_STRUCT(8) dobj_459__CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG; struct MELT_STRING_STRUCT(40) dstr_460__CLASS_SOURCE_USE_PACKAGE; struct MELT_MULTIPLE_STRUCT(4) dtup_461_syCLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG; struct MELT_MULTIPLE_STRUCT(3) dtup_462_syCLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG; struct MELT_OBJECT_STRUCT(3) dsym_463__SUSEPACKAGE_PKGTUPLE; struct MELT_STRING_STRUCT(20) dstr_464__SUSEPACKAGE_PKGTUPLE; struct MELT_OBJECT_STRUCT(4) dobj_465__SUSEPACKAGE_PKGTUPLE; struct MELT_STRING_STRUCT(20) dstr_466__SUSEPACKAGE_PKGTUPLE; struct MELT_OBJECT_STRUCT(3) dsym_467__CLASS_SOURCE_QUOTE; struct MELT_STRING_STRUCT(18) dstr_468__CLASS_SOURCE_QUOTE; struct MELT_OBJECT_STRUCT(8) dobj_469__CLASS_SOURCE_QUOTE; struct MELT_STRING_STRUCT(18) dstr_470__CLASS_SOURCE_QUOTE; struct MELT_MULTIPLE_STRUCT(4) dtup_471_syCLASS_SOURCE_QUOTE; struct MELT_MULTIPLE_STRUCT(3) dtup_472_syCLASS_SOURCE_QUOTE; struct MELT_OBJECT_STRUCT(3) dsym_473__SQUOTED; struct MELT_STRING_STRUCT(7) dstr_474__SQUOTED; struct MELT_OBJECT_STRUCT(4) dobj_475__SQUOTED; struct MELT_STRING_STRUCT(7) dstr_476__SQUOTED; struct MELT_OBJECT_STRUCT(3) dsym_477__CLASS_SOURCE_QUASI_BOX; struct MELT_STRING_STRUCT(22) dstr_478__CLASS_SOURCE_QUASI_BOX; struct MELT_OBJECT_STRUCT(8) dobj_479__CLASS_SOURCE_QUASI_BOX; struct MELT_STRING_STRUCT(22) dstr_480__CLASS_SOURCE_QUASI_BOX; struct MELT_MULTIPLE_STRUCT(4) dtup_481_syCLASS_SOURCE_QUASI_BOX; struct MELT_MULTIPLE_STRUCT(3) dtup_482_syCLASS_SOURCE_QUASI_BOX; struct MELT_OBJECT_STRUCT(3) dsym_483__SBOXED; struct MELT_STRING_STRUCT(6) dstr_484__SBOXED; struct MELT_OBJECT_STRUCT(4) dobj_485__SBOXED; struct MELT_STRING_STRUCT(6) dstr_486__SBOXED; struct MELT_OBJECT_STRUCT(3) dsym_487__CLASS_SOURCE_BOX; struct MELT_STRING_STRUCT(16) dstr_488__CLASS_SOURCE_BOX; struct MELT_OBJECT_STRUCT(8) dobj_489__CLASS_SOURCE_BOX; struct MELT_STRING_STRUCT(16) dstr_490__CLASS_SOURCE_BOX; struct MELT_MULTIPLE_STRUCT(5) dtup_491_syCLASS_SOURCE_BOX; struct MELT_MULTIPLE_STRUCT(3) dtup_492_syCLASS_SOURCE_BOX; struct MELT_OBJECT_STRUCT(3) dsym_493__CLASS_SOURCE_CONSTANT_BOX; struct MELT_STRING_STRUCT(25) dstr_494__CLASS_SOURCE_CONSTANT_BO; struct MELT_OBJECT_STRUCT(8) dobj_495__CLASS_SOURCE_CONSTANT_BOX; struct MELT_STRING_STRUCT(25) dstr_496__CLASS_SOURCE_CONSTANT_BO; struct MELT_MULTIPLE_STRUCT(5) dtup_497_syCLASS_SOURCE_CONSTANT_BOX; struct MELT_MULTIPLE_STRUCT(3) dtup_498_syCLASS_SOURCE_CONSTANT_BOX; struct MELT_OBJECT_STRUCT(3) dsym_499__CLASS_SOURCE_UNBOX; struct MELT_STRING_STRUCT(18) dstr_500__CLASS_SOURCE_UNBOX; struct MELT_OBJECT_STRUCT(8) dobj_501__CLASS_SOURCE_UNBOX; struct MELT_STRING_STRUCT(18) dstr_502__CLASS_SOURCE_UNBOX; struct MELT_MULTIPLE_STRUCT(4) dtup_503_syCLASS_SOURCE_UNBOX; struct MELT_MULTIPLE_STRUCT(4) dtup_504_syCLASS_SOURCE_UNBOX; struct MELT_OBJECT_STRUCT(3) dsym_505__SUNBOX_CTYPE; struct MELT_STRING_STRUCT(12) dstr_506__SUNBOX_CTYPE; struct MELT_OBJECT_STRUCT(4) dobj_507__SUNBOX_CTYPE; struct MELT_STRING_STRUCT(12) dstr_508__SUNBOX_CTYPE; struct MELT_OBJECT_STRUCT(3) dsym_509__SUNBOX_EXPR; struct MELT_STRING_STRUCT(11) dstr_510__SUNBOX_EXPR; struct MELT_OBJECT_STRUCT(4) dobj_511__SUNBOX_EXPR; struct MELT_STRING_STRUCT(11) dstr_512__SUNBOX_EXPR; struct MELT_OBJECT_STRUCT(3) dsym_513__CLASS_SOURCE_EXPORTCOMMON; struct MELT_STRING_STRUCT(25) dstr_514__CLASS_SOURCE_EXPORTCOMMO; struct MELT_OBJECT_STRUCT(8) dobj_515__CLASS_SOURCE_EXPORTCOMMON; struct MELT_STRING_STRUCT(25) dstr_516__CLASS_SOURCE_EXPORTCOMMO; struct MELT_MULTIPLE_STRUCT(4) dtup_517_syCLASS_SOURCE_EXPORTCOMMON; struct MELT_MULTIPLE_STRUCT(3) dtup_518_syCLASS_SOURCE_EXPORTCOMMON; struct MELT_OBJECT_STRUCT(3) dsym_519__SEXPORT_NAMES; struct MELT_STRING_STRUCT(13) dstr_520__SEXPORT_NAMES; struct MELT_OBJECT_STRUCT(4) dobj_521__SEXPORT_NAMES; struct MELT_STRING_STRUCT(13) dstr_522__SEXPORT_NAMES; struct MELT_OBJECT_STRUCT(3) dsym_523__CLASS_SOURCE_EXPORT_VALUES; struct MELT_STRING_STRUCT(26) dstr_524__CLASS_SOURCE_EXPORT_VALU; struct MELT_OBJECT_STRUCT(8) dobj_525__CLASS_SOURCE_EXPORT_VALUES; struct MELT_STRING_STRUCT(26) dstr_526__CLASS_SOURCE_EXPORT_VALU; struct MELT_MULTIPLE_STRUCT(5) dtup_527_syCLASS_SOURCE_EXPORT_VALUES; struct MELT_MULTIPLE_STRUCT(3) dtup_528_syCLASS_SOURCE_EXPORT_VALUES; struct MELT_OBJECT_STRUCT(3) dsym_529__CLASS_SOURCE_EXPORT_CLASS; struct MELT_STRING_STRUCT(25) dstr_530__CLASS_SOURCE_EXPORT_CLAS; struct MELT_OBJECT_STRUCT(8) dobj_531__CLASS_SOURCE_EXPORT_CLASS; struct MELT_STRING_STRUCT(25) dstr_532__CLASS_SOURCE_EXPORT_CLAS; struct MELT_MULTIPLE_STRUCT(5) dtup_533_syCLASS_SOURCE_EXPORT_CLASS; struct MELT_MULTIPLE_STRUCT(3) dtup_534_syCLASS_SOURCE_EXPORT_CLASS; struct MELT_OBJECT_STRUCT(3) dsym_535__CLASS_SOURCE_EXPORT_ANY_MACRO; struct MELT_STRING_STRUCT(29) dstr_536__CLASS_SOURCE_EXPORT_ANY_; struct MELT_OBJECT_STRUCT(8) dobj_537__CLASS_SOURCE_EXPORT_ANY_MACRO; struct MELT_STRING_STRUCT(29) dstr_538__CLASS_SOURCE_EXPORT_ANY_; struct MELT_MULTIPLE_STRUCT(4) dtup_539_syCLASS_SOURCE_EXPORT_ANY_MACRO; struct MELT_MULTIPLE_STRUCT(4) dtup_540_syCLASS_SOURCE_EXPORT_ANY_MACRO; struct MELT_OBJECT_STRUCT(3) dsym_541__SEXPMAC_MNAME; struct MELT_STRING_STRUCT(13) dstr_542__SEXPMAC_MNAME; struct MELT_OBJECT_STRUCT(4) dobj_543__SEXPMAC_MNAME; struct MELT_STRING_STRUCT(13) dstr_544__SEXPMAC_MNAME; struct MELT_OBJECT_STRUCT(3) dsym_545__SEXPMAC_DOC; struct MELT_STRING_STRUCT(11) dstr_546__SEXPMAC_DOC; struct MELT_OBJECT_STRUCT(4) dobj_547__SEXPMAC_DOC; struct MELT_STRING_STRUCT(11) dstr_548__SEXPMAC_DOC; struct MELT_OBJECT_STRUCT(3) dsym_549__CLASS_SOURCE_EXPORT_MACRO; struct MELT_STRING_STRUCT(25) dstr_550__CLASS_SOURCE_EXPORT_MACR; struct MELT_OBJECT_STRUCT(8) dobj_551__CLASS_SOURCE_EXPORT_MACRO; struct MELT_STRING_STRUCT(25) dstr_552__CLASS_SOURCE_EXPORT_MACR; struct MELT_MULTIPLE_STRUCT(5) dtup_553_syCLASS_SOURCE_EXPORT_MACRO; struct MELT_MULTIPLE_STRUCT(5) dtup_554_syCLASS_SOURCE_EXPORT_MACRO; struct MELT_OBJECT_STRUCT(3) dsym_555__SEXPMAC_MVAL; struct MELT_STRING_STRUCT(12) dstr_556__SEXPMAC_MVAL; struct MELT_OBJECT_STRUCT(4) dobj_557__SEXPMAC_MVAL; struct MELT_STRING_STRUCT(12) dstr_558__SEXPMAC_MVAL; struct MELT_OBJECT_STRUCT(3) dsym_559__CLASS_SOURCE_EXPORT_DEFMACRO; struct MELT_STRING_STRUCT(28) dstr_560__CLASS_SOURCE_EXPORT_DEFM; struct MELT_OBJECT_STRUCT(8) dobj_561__CLASS_SOURCE_EXPORT_DEFMACRO; struct MELT_STRING_STRUCT(28) dstr_562__CLASS_SOURCE_EXPORT_DEFM; struct MELT_MULTIPLE_STRUCT(5) dtup_563_syCLASS_SOURCE_EXPORT_DEFMACRO; struct MELT_MULTIPLE_STRUCT(4) dtup_564_syCLASS_SOURCE_EXPORT_DEFMACRO; struct MELT_OBJECT_STRUCT(3) dsym_565__CLASS_SOURCE_EXPORT_PATMACRO; struct MELT_STRING_STRUCT(28) dstr_566__CLASS_SOURCE_EXPORT_PATM; struct MELT_OBJECT_STRUCT(8) dobj_567__CLASS_SOURCE_EXPORT_PATMACRO; struct MELT_STRING_STRUCT(28) dstr_568__CLASS_SOURCE_EXPORT_PATM; struct MELT_MULTIPLE_STRUCT(6) dtup_569_syCLASS_SOURCE_EXPORT_PATMACRO; struct MELT_MULTIPLE_STRUCT(6) dtup_570_syCLASS_SOURCE_EXPORT_PATMACRO; struct MELT_OBJECT_STRUCT(3) dsym_571__SEXPPAT_PVAL; struct MELT_STRING_STRUCT(12) dstr_572__SEXPPAT_PVAL; struct MELT_OBJECT_STRUCT(4) dobj_573__SEXPPAT_PVAL; struct MELT_STRING_STRUCT(12) dstr_574__SEXPPAT_PVAL; struct MELT_OBJECT_STRUCT(3) dsym_575__CLASS_SOURCE_EXPORT_SYNONYM; struct MELT_STRING_STRUCT(27) dstr_576__CLASS_SOURCE_EXPORT_SYNO; struct MELT_OBJECT_STRUCT(8) dobj_577__CLASS_SOURCE_EXPORT_SYNONYM; struct MELT_STRING_STRUCT(27) dstr_578__CLASS_SOURCE_EXPORT_SYNO; struct MELT_MULTIPLE_STRUCT(4) dtup_579_syCLASS_SOURCE_EXPORT_SYNONYM; struct MELT_MULTIPLE_STRUCT(5) dtup_580_syCLASS_SOURCE_EXPORT_SYNONYM; struct MELT_OBJECT_STRUCT(3) dsym_581__SEXPSYN_NEWNAME; struct MELT_STRING_STRUCT(15) dstr_582__SEXPSYN_NEWNAME; struct MELT_OBJECT_STRUCT(4) dobj_583__SEXPSYN_NEWNAME; struct MELT_STRING_STRUCT(15) dstr_584__SEXPSYN_NEWNAME; struct MELT_OBJECT_STRUCT(3) dsym_585__SEXPSYN_OLDNAME; struct MELT_STRING_STRUCT(15) dstr_586__SEXPSYN_OLDNAME; struct MELT_OBJECT_STRUCT(4) dobj_587__SEXPSYN_OLDNAME; struct MELT_STRING_STRUCT(15) dstr_588__SEXPSYN_OLDNAME; struct MELT_OBJECT_STRUCT(3) dsym_589__SEXPSYN_DOC; struct MELT_STRING_STRUCT(11) dstr_590__SEXPSYN_DOC; struct MELT_OBJECT_STRUCT(4) dobj_591__SEXPSYN_DOC; struct MELT_STRING_STRUCT(11) dstr_592__SEXPSYN_DOC; struct MELT_OBJECT_STRUCT(3) dsym_593__CLASS_SOURCE_DEFINITION; struct MELT_STRING_STRUCT(23) dstr_594__CLASS_SOURCE_DEFINITION; struct MELT_OBJECT_STRUCT(8) dobj_595__CLASS_SOURCE_DEFINITION; struct MELT_STRING_STRUCT(23) dstr_596__CLASS_SOURCE_DEFINITION; struct MELT_MULTIPLE_STRUCT(4) dtup_597_syCLASS_SOURCE_DEFINITION; struct MELT_MULTIPLE_STRUCT(4) dtup_598_syCLASS_SOURCE_DEFINITION; struct MELT_OBJECT_STRUCT(3) dsym_599__SDEF_NAME; struct MELT_STRING_STRUCT(9) dstr_600__SDEF_NAME; struct MELT_OBJECT_STRUCT(4) dobj_601__SDEF_NAME; struct MELT_STRING_STRUCT(9) dstr_602__SDEF_NAME; struct MELT_OBJECT_STRUCT(3) dsym_603__SDEF_DOC; struct MELT_STRING_STRUCT(8) dstr_604__SDEF_DOC; struct MELT_OBJECT_STRUCT(4) dobj_605__SDEF_DOC; struct MELT_STRING_STRUCT(8) dstr_606__SDEF_DOC; struct MELT_OBJECT_STRUCT(3) dsym_607__CLASS_SOURCE_DEFVAR; struct MELT_STRING_STRUCT(19) dstr_608__CLASS_SOURCE_DEFVAR; struct MELT_OBJECT_STRUCT(8) dobj_609__CLASS_SOURCE_DEFVAR; struct MELT_STRING_STRUCT(19) dstr_610__CLASS_SOURCE_DEFVAR; struct MELT_MULTIPLE_STRUCT(5) dtup_611_syCLASS_SOURCE_DEFVAR; struct MELT_MULTIPLE_STRUCT(4) dtup_612_syCLASS_SOURCE_DEFVAR; struct MELT_OBJECT_STRUCT(3) dsym_613__CLASS_SOURCE_DEFINE; struct MELT_STRING_STRUCT(19) dstr_614__CLASS_SOURCE_DEFINE; struct MELT_OBJECT_STRUCT(8) dobj_615__CLASS_SOURCE_DEFINE; struct MELT_STRING_STRUCT(19) dstr_616__CLASS_SOURCE_DEFINE; struct MELT_MULTIPLE_STRUCT(5) dtup_617_syCLASS_SOURCE_DEFINE; struct MELT_MULTIPLE_STRUCT(5) dtup_618_syCLASS_SOURCE_DEFINE; struct MELT_OBJECT_STRUCT(3) dsym_619__SDEFINE_BODY; struct MELT_STRING_STRUCT(12) dstr_620__SDEFINE_BODY; struct MELT_OBJECT_STRUCT(4) dobj_621__SDEFINE_BODY; struct MELT_STRING_STRUCT(12) dstr_622__SDEFINE_BODY; struct MELT_OBJECT_STRUCT(3) dsym_623__CLASS_SOURCE_DEFINITION_FORMAL; struct MELT_STRING_STRUCT(30) dstr_624__CLASS_SOURCE_DEFINITION_; struct MELT_OBJECT_STRUCT(8) dobj_625__CLASS_SOURCE_DEFINITION_FORMAL; struct MELT_STRING_STRUCT(30) dstr_626__CLASS_SOURCE_DEFINITION_; struct MELT_MULTIPLE_STRUCT(5) dtup_627_syCLASS_SOURCE_DEFINITION_FORMAL; struct MELT_MULTIPLE_STRUCT(5) dtup_628_syCLASS_SOURCE_DEFINITION_FORMAL; struct MELT_OBJECT_STRUCT(3) dsym_629__SFORMAL_ARGS; struct MELT_STRING_STRUCT(12) dstr_630__SFORMAL_ARGS; struct MELT_OBJECT_STRUCT(4) dobj_631__SFORMAL_ARGS; struct MELT_STRING_STRUCT(12) dstr_632__SFORMAL_ARGS; struct MELT_OBJECT_STRUCT(3) dsym_633__CLASS_SOURCE_DEFUN; struct MELT_STRING_STRUCT(18) dstr_634__CLASS_SOURCE_DEFUN; struct MELT_OBJECT_STRUCT(8) dobj_635__CLASS_SOURCE_DEFUN; struct MELT_STRING_STRUCT(18) dstr_636__CLASS_SOURCE_DEFUN; struct MELT_MULTIPLE_STRUCT(6) dtup_637_syCLASS_SOURCE_DEFUN; struct MELT_MULTIPLE_STRUCT(6) dtup_638_syCLASS_SOURCE_DEFUN; struct MELT_OBJECT_STRUCT(3) dsym_639__SFUN_BODY; struct MELT_STRING_STRUCT(9) dstr_640__SFUN_BODY; struct MELT_OBJECT_STRUCT(4) dobj_641__SFUN_BODY; struct MELT_STRING_STRUCT(9) dstr_642__SFUN_BODY; struct MELT_OBJECT_STRUCT(3) dsym_643__CLASS_SOURCE_DEFMACRO; struct MELT_STRING_STRUCT(21) dstr_644__CLASS_SOURCE_DEFMACRO; struct MELT_OBJECT_STRUCT(8) dobj_645__CLASS_SOURCE_DEFMACRO; struct MELT_STRING_STRUCT(21) dstr_646__CLASS_SOURCE_DEFMACRO; struct MELT_MULTIPLE_STRUCT(7) dtup_647_syCLASS_SOURCE_DEFMACRO; struct MELT_MULTIPLE_STRUCT(7) dtup_648_syCLASS_SOURCE_DEFMACRO; struct MELT_OBJECT_STRUCT(3) dsym_649__SMACRO_BINDING; struct MELT_STRING_STRUCT(14) dstr_650__SMACRO_BINDING; struct MELT_OBJECT_STRUCT(4) dobj_651__SMACRO_BINDING; struct MELT_STRING_STRUCT(14) dstr_652__SMACRO_BINDING; struct MELT_OBJECT_STRUCT(3) dsym_653__CLASS_SOURCE_DEFMACRO_IN_LET; struct MELT_STRING_STRUCT(28) dstr_654__CLASS_SOURCE_DEFMACRO_IN; struct MELT_OBJECT_STRUCT(8) dobj_655__CLASS_SOURCE_DEFMACRO_IN_LET; struct MELT_STRING_STRUCT(28) dstr_656__CLASS_SOURCE_DEFMACRO_IN; struct MELT_MULTIPLE_STRUCT(8) dtup_657_syCLASS_SOURCE_DEFMACRO_IN_LET; struct MELT_MULTIPLE_STRUCT(8) dtup_658_syCLASS_SOURCE_DEFMACRO_IN_LET; struct MELT_OBJECT_STRUCT(3) dsym_659__SMACRO_SOURCELETBINDING; struct MELT_STRING_STRUCT(23) dstr_660__SMACRO_SOURCELETBINDING; struct MELT_OBJECT_STRUCT(4) dobj_661__SMACRO_SOURCELETBINDING; struct MELT_STRING_STRUCT(23) dstr_662__SMACRO_SOURCELETBINDING; struct MELT_OBJECT_STRUCT(3) dsym_663__CLASS_DEFINED_MACRO_BINDING; struct MELT_STRING_STRUCT(27) dstr_664__CLASS_DEFINED_MACRO_BIND; struct MELT_OBJECT_STRUCT(3) dsym_665__CLASS_MACRO_BINDING; struct MELT_STRING_STRUCT(19) dstr_666__CLASS_MACRO_BINDING; struct MELT_OBJECT_STRUCT(8) dobj_667__CLASS_DEFINED_MACRO_BINDING; struct MELT_STRING_STRUCT(27) dstr_668__CLASS_DEFINED_MACRO_BIND; struct MELT_MULTIPLE_STRUCT(4) dtup_669_syCLASS_DEFINED_MACRO_BINDING; struct MELT_MULTIPLE_STRUCT(4) dtup_670_syCLASS_DEFINED_MACRO_BINDING; struct MELT_OBJECT_STRUCT(3) dsym_671__MBIND_DEFMACRO; struct MELT_STRING_STRUCT(14) dstr_672__MBIND_DEFMACRO; struct MELT_OBJECT_STRUCT(4) dobj_673__MBIND_DEFMACRO; struct MELT_STRING_STRUCT(14) dstr_674__MBIND_DEFMACRO; struct MELT_OBJECT_STRUCT(3) dsym_675__MBIND_DATA; struct MELT_STRING_STRUCT(10) dstr_676__MBIND_DATA; struct MELT_OBJECT_STRUCT(4) dobj_677__MBIND_DATA; struct MELT_STRING_STRUCT(10) dstr_678__MBIND_DATA; struct MELT_OBJECT_STRUCT(3) dsym_679__CLASS_SOURCE_MACRO_INSTALLATION; struct MELT_STRING_STRUCT(31) dstr_680__CLASS_SOURCE_MACRO_INSTA; struct MELT_OBJECT_STRUCT(8) dobj_681__CLASS_SOURCE_MACRO_INSTALLATION; struct MELT_STRING_STRUCT(31) dstr_682__CLASS_SOURCE_MACRO_INSTA; struct MELT_MULTIPLE_STRUCT(4) dtup_683_syCLASS_SOURCE_MACRO_INSTALLATION; struct MELT_MULTIPLE_STRUCT(4) dtup_684_syCLASS_SOURCE_MACRO_INSTALLATION; struct MELT_OBJECT_STRUCT(3) dsym_685__SMACINST_DEFMACRO; struct MELT_STRING_STRUCT(17) dstr_686__SMACINST_DEFMACRO; struct MELT_OBJECT_STRUCT(4) dobj_687__SMACINST_DEFMACRO; struct MELT_STRING_STRUCT(17) dstr_688__SMACINST_DEFMACRO; struct MELT_OBJECT_STRUCT(3) dsym_689__SMACINST_ENV; struct MELT_STRING_STRUCT(12) dstr_690__SMACINST_ENV; struct MELT_OBJECT_STRUCT(4) dobj_691__SMACINST_ENV; struct MELT_STRING_STRUCT(12) dstr_692__SMACINST_ENV; struct MELT_OBJECT_STRUCT(3) dsym_693__CLASS_SOURCE_DEFPRIMITIVE; struct MELT_STRING_STRUCT(25) dstr_694__CLASS_SOURCE_DEFPRIMITIV; struct MELT_OBJECT_STRUCT(8) dobj_695__CLASS_SOURCE_DEFPRIMITIVE; struct MELT_STRING_STRUCT(25) dstr_696__CLASS_SOURCE_DEFPRIMITIV; struct MELT_MULTIPLE_STRUCT(6) dtup_697_syCLASS_SOURCE_DEFPRIMITIVE; struct MELT_MULTIPLE_STRUCT(8) dtup_698_syCLASS_SOURCE_DEFPRIMITIVE; struct MELT_OBJECT_STRUCT(3) dsym_699__SPRIM_TYPE; struct MELT_STRING_STRUCT(10) dstr_700__SPRIM_TYPE; struct MELT_OBJECT_STRUCT(4) dobj_701__SPRIM_TYPE; struct MELT_STRING_STRUCT(10) dstr_702__SPRIM_TYPE; struct MELT_OBJECT_STRUCT(3) dsym_703__SPRIM_EXPANSION; struct MELT_STRING_STRUCT(15) dstr_704__SPRIM_EXPANSION; struct MELT_OBJECT_STRUCT(4) dobj_705__SPRIM_EXPANSION; struct MELT_STRING_STRUCT(15) dstr_706__SPRIM_EXPANSION; struct MELT_OBJECT_STRUCT(3) dsym_707__SPRIM_EXPLOC; struct MELT_STRING_STRUCT(12) dstr_708__SPRIM_EXPLOC; struct MELT_OBJECT_STRUCT(4) dobj_709__SPRIM_EXPLOC; struct MELT_STRING_STRUCT(12) dstr_710__SPRIM_EXPLOC; struct MELT_OBJECT_STRUCT(3) dsym_711__CLASS_SOURCE_DEFHOOK; struct MELT_STRING_STRUCT(20) dstr_712__CLASS_SOURCE_DEFHOOK; struct MELT_OBJECT_STRUCT(8) dobj_713__CLASS_SOURCE_DEFHOOK; struct MELT_STRING_STRUCT(20) dstr_714__CLASS_SOURCE_DEFHOOK; struct MELT_MULTIPLE_STRUCT(6) dtup_715_syCLASS_SOURCE_DEFHOOK; struct MELT_MULTIPLE_STRUCT(10) dtup_716_syCLASS_SOURCE_DEFHOOK; struct MELT_OBJECT_STRUCT(3) dsym_717__SHOOK_OUT_FORMALS; struct MELT_STRING_STRUCT(17) dstr_718__SHOOK_OUT_FORMALS; struct MELT_OBJECT_STRUCT(4) dobj_719__SHOOK_OUT_FORMALS; struct MELT_STRING_STRUCT(17) dstr_720__SHOOK_OUT_FORMALS; struct MELT_OBJECT_STRUCT(3) dsym_721__SHOOK_CTYPE; struct MELT_STRING_STRUCT(11) dstr_722__SHOOK_CTYPE; struct MELT_OBJECT_STRUCT(4) dobj_723__SHOOK_CTYPE; struct MELT_STRING_STRUCT(11) dstr_724__SHOOK_CTYPE; struct MELT_OBJECT_STRUCT(3) dsym_725__SHOOK_PREDEF; struct MELT_STRING_STRUCT(12) dstr_726__SHOOK_PREDEF; struct MELT_OBJECT_STRUCT(4) dobj_727__SHOOK_PREDEF; struct MELT_STRING_STRUCT(12) dstr_728__SHOOK_PREDEF; struct MELT_OBJECT_STRUCT(3) dsym_729__SHOOK_VARIABLE; struct MELT_STRING_STRUCT(14) dstr_730__SHOOK_VARIABLE; struct MELT_OBJECT_STRUCT(4) dobj_731__SHOOK_VARIABLE; struct MELT_STRING_STRUCT(14) dstr_732__SHOOK_VARIABLE; struct MELT_OBJECT_STRUCT(3) dsym_733__SHOOK_BODY; struct MELT_STRING_STRUCT(10) dstr_734__SHOOK_BODY; struct MELT_OBJECT_STRUCT(4) dobj_735__SHOOK_BODY; struct MELT_STRING_STRUCT(10) dstr_736__SHOOK_BODY; struct MELT_OBJECT_STRUCT(3) dsym_737__CLASS_SOURCE_DEFCITERATOR; struct MELT_STRING_STRUCT(25) dstr_738__CLASS_SOURCE_DEFCITERATO; struct MELT_OBJECT_STRUCT(8) dobj_739__CLASS_SOURCE_DEFCITERATOR; struct MELT_STRING_STRUCT(25) dstr_740__CLASS_SOURCE_DEFCITERATO; struct MELT_MULTIPLE_STRUCT(6) dtup_741_syCLASS_SOURCE_DEFCITERATOR; struct MELT_MULTIPLE_STRUCT(8) dtup_742_syCLASS_SOURCE_DEFCITERATOR; struct MELT_OBJECT_STRUCT(3) dsym_743__SCITERDEF_CITERATOR; struct MELT_STRING_STRUCT(19) dstr_744__SCITERDEF_CITERATOR; struct MELT_OBJECT_STRUCT(4) dobj_745__SCITERDEF_CITERATOR; struct MELT_STRING_STRUCT(19) dstr_746__SCITERDEF_CITERATOR; struct MELT_OBJECT_STRUCT(3) dsym_747__SCITERDEF_BEFORELOC; struct MELT_STRING_STRUCT(19) dstr_748__SCITERDEF_BEFORELOC; struct MELT_OBJECT_STRUCT(4) dobj_749__SCITERDEF_BEFORELOC; struct MELT_STRING_STRUCT(19) dstr_750__SCITERDEF_BEFORELOC; struct MELT_OBJECT_STRUCT(3) dsym_751__SCITERDEF_AFTERLOC; struct MELT_STRING_STRUCT(18) dstr_752__SCITERDEF_AFTERLOC; struct MELT_OBJECT_STRUCT(4) dobj_753__SCITERDEF_AFTERLOC; struct MELT_STRING_STRUCT(18) dstr_754__SCITERDEF_AFTERLOC; struct MELT_OBJECT_STRUCT(3) dsym_755__CLASS_SOURCE_DEFCMATCHER; struct MELT_STRING_STRUCT(24) dstr_756__CLASS_SOURCE_DEFCMATCHER; struct MELT_OBJECT_STRUCT(8) dobj_757__CLASS_SOURCE_DEFCMATCHER; struct MELT_STRING_STRUCT(24) dstr_758__CLASS_SOURCE_DEFCMATCHER; struct MELT_MULTIPLE_STRUCT(6) dtup_759_syCLASS_SOURCE_DEFCMATCHER; struct MELT_MULTIPLE_STRUCT(9) dtup_760_syCLASS_SOURCE_DEFCMATCHER; struct MELT_OBJECT_STRUCT(3) dsym_761__SCMATDEF_CMATCHER; struct MELT_STRING_STRUCT(17) dstr_762__SCMATDEF_CMATCHER; struct MELT_OBJECT_STRUCT(4) dobj_763__SCMATDEF_CMATCHER; struct MELT_STRING_STRUCT(17) dstr_764__SCMATDEF_CMATCHER; struct MELT_OBJECT_STRUCT(3) dsym_765__SCMATDEF_TESTLOC; struct MELT_STRING_STRUCT(16) dstr_766__SCMATDEF_TESTLOC; struct MELT_OBJECT_STRUCT(4) dobj_767__SCMATDEF_TESTLOC; struct MELT_STRING_STRUCT(16) dstr_768__SCMATDEF_TESTLOC; struct MELT_OBJECT_STRUCT(3) dsym_769__SCMATDEF_FILLLOC; struct MELT_STRING_STRUCT(16) dstr_770__SCMATDEF_FILLLOC; struct MELT_OBJECT_STRUCT(4) dobj_771__SCMATDEF_FILLLOC; struct MELT_STRING_STRUCT(16) dstr_772__SCMATDEF_FILLLOC; struct MELT_OBJECT_STRUCT(3) dsym_773__SCMATDEF_OPERLOC; struct MELT_STRING_STRUCT(16) dstr_774__SCMATDEF_OPERLOC; struct MELT_OBJECT_STRUCT(4) dobj_775__SCMATDEF_OPERLOC; struct MELT_STRING_STRUCT(16) dstr_776__SCMATDEF_OPERLOC; struct MELT_OBJECT_STRUCT(3) dsym_777__CLASS_SOURCE_DEFUNMATCHER; struct MELT_STRING_STRUCT(25) dstr_778__CLASS_SOURCE_DEFUNMATCHE; struct MELT_OBJECT_STRUCT(8) dobj_779__CLASS_SOURCE_DEFUNMATCHER; struct MELT_STRING_STRUCT(25) dstr_780__CLASS_SOURCE_DEFUNMATCHE; struct MELT_MULTIPLE_STRUCT(6) dtup_781_syCLASS_SOURCE_DEFUNMATCHER; struct MELT_MULTIPLE_STRUCT(10) dtup_782_syCLASS_SOURCE_DEFUNMATCHER; struct MELT_OBJECT_STRUCT(3) dsym_783__SFUMATDEF_INS; struct MELT_STRING_STRUCT(13) dstr_784__SFUMATDEF_INS; struct MELT_OBJECT_STRUCT(4) dobj_785__SFUMATDEF_INS; struct MELT_STRING_STRUCT(13) dstr_786__SFUMATDEF_INS; struct MELT_OBJECT_STRUCT(3) dsym_787__SFUMATDEF_OUTS; struct MELT_STRING_STRUCT(14) dstr_788__SFUMATDEF_OUTS; struct MELT_OBJECT_STRUCT(4) dobj_789__SFUMATDEF_OUTS; struct MELT_STRING_STRUCT(14) dstr_790__SFUMATDEF_OUTS; struct MELT_OBJECT_STRUCT(3) dsym_791__SFUMATDEF_MATCHF; struct MELT_STRING_STRUCT(16) dstr_792__SFUMATDEF_MATCHF; struct MELT_OBJECT_STRUCT(4) dobj_793__SFUMATDEF_MATCHF; struct MELT_STRING_STRUCT(16) dstr_794__SFUMATDEF_MATCHF; struct MELT_OBJECT_STRUCT(3) dsym_795__SFUMATDEF_APPLYF; struct MELT_STRING_STRUCT(16) dstr_796__SFUMATDEF_APPLYF; struct MELT_OBJECT_STRUCT(4) dobj_797__SFUMATDEF_APPLYF; struct MELT_STRING_STRUCT(16) dstr_798__SFUMATDEF_APPLYF; struct MELT_OBJECT_STRUCT(3) dsym_799__SFUMATDEF_DATA; struct MELT_STRING_STRUCT(14) dstr_800__SFUMATDEF_DATA; struct MELT_OBJECT_STRUCT(4) dobj_801__SFUMATDEF_DATA; struct MELT_STRING_STRUCT(14) dstr_802__SFUMATDEF_DATA; struct MELT_OBJECT_STRUCT(3) dsym_803__CLASS_SOURCE_DEFOBJCOMMON; struct MELT_STRING_STRUCT(25) dstr_804__CLASS_SOURCE_DEFOBJCOMMO; struct MELT_OBJECT_STRUCT(8) dobj_805__CLASS_SOURCE_DEFOBJCOMMON; struct MELT_STRING_STRUCT(25) dstr_806__CLASS_SOURCE_DEFOBJCOMMO; struct MELT_MULTIPLE_STRUCT(5) dtup_807_syCLASS_SOURCE_DEFOBJCOMMON; struct MELT_MULTIPLE_STRUCT(5) dtup_808_syCLASS_SOURCE_DEFOBJCOMMON; struct MELT_OBJECT_STRUCT(3) dsym_809__SOBJ_PREDEF; struct MELT_STRING_STRUCT(11) dstr_810__SOBJ_PREDEF; struct MELT_OBJECT_STRUCT(4) dobj_811__SOBJ_PREDEF; struct MELT_STRING_STRUCT(11) dstr_812__SOBJ_PREDEF; struct MELT_OBJECT_STRUCT(3) dsym_813__CLASS_SOURCE_DEFCLASS; struct MELT_STRING_STRUCT(21) dstr_814__CLASS_SOURCE_DEFCLASS; struct MELT_OBJECT_STRUCT(8) dobj_815__CLASS_SOURCE_DEFCLASS; struct MELT_STRING_STRUCT(21) dstr_816__CLASS_SOURCE_DEFCLASS; struct MELT_MULTIPLE_STRUCT(6) dtup_817_syCLASS_SOURCE_DEFCLASS; struct MELT_MULTIPLE_STRUCT(8) dtup_818_syCLASS_SOURCE_DEFCLASS; struct MELT_OBJECT_STRUCT(3) dsym_819__SCLASS_CLABIND; struct MELT_STRING_STRUCT(14) dstr_820__SCLASS_CLABIND; struct MELT_OBJECT_STRUCT(4) dobj_821__SCLASS_CLABIND; struct MELT_STRING_STRUCT(14) dstr_822__SCLASS_CLABIND; struct MELT_OBJECT_STRUCT(3) dsym_823__SCLASS_SUPERBIND; struct MELT_STRING_STRUCT(16) dstr_824__SCLASS_SUPERBIND; struct MELT_OBJECT_STRUCT(4) dobj_825__SCLASS_SUPERBIND; struct MELT_STRING_STRUCT(16) dstr_826__SCLASS_SUPERBIND; struct MELT_OBJECT_STRUCT(3) dsym_827__SCLASS_FLDBINDS; struct MELT_STRING_STRUCT(15) dstr_828__SCLASS_FLDBINDS; struct MELT_OBJECT_STRUCT(4) dobj_829__SCLASS_FLDBINDS; struct MELT_STRING_STRUCT(15) dstr_830__SCLASS_FLDBINDS; struct MELT_OBJECT_STRUCT(3) dsym_831__CLASS_SOURCE_DEFINSTANCE; struct MELT_STRING_STRUCT(24) dstr_832__CLASS_SOURCE_DEFINSTANCE; struct MELT_OBJECT_STRUCT(8) dobj_833__CLASS_SOURCE_DEFINSTANCE; struct MELT_STRING_STRUCT(24) dstr_834__CLASS_SOURCE_DEFINSTANCE; struct MELT_MULTIPLE_STRUCT(6) dtup_835_syCLASS_SOURCE_DEFINSTANCE; struct MELT_MULTIPLE_STRUCT(9) dtup_836_syCLASS_SOURCE_DEFINSTANCE; struct MELT_OBJECT_STRUCT(3) dsym_837__SINST_CLASS; struct MELT_STRING_STRUCT(11) dstr_838__SINST_CLASS; struct MELT_OBJECT_STRUCT(4) dobj_839__SINST_CLASS; struct MELT_STRING_STRUCT(11) dstr_840__SINST_CLASS; struct MELT_OBJECT_STRUCT(3) dsym_841__SINST_CLABIND; struct MELT_STRING_STRUCT(13) dstr_842__SINST_CLABIND; struct MELT_OBJECT_STRUCT(4) dobj_843__SINST_CLABIND; struct MELT_STRING_STRUCT(13) dstr_844__SINST_CLABIND; struct MELT_OBJECT_STRUCT(3) dsym_845__SINST_OBJNUM; struct MELT_STRING_STRUCT(12) dstr_846__SINST_OBJNUM; struct MELT_OBJECT_STRUCT(4) dobj_847__SINST_OBJNUM; struct MELT_STRING_STRUCT(12) dstr_848__SINST_OBJNUM; struct MELT_OBJECT_STRUCT(3) dsym_849__SINST_FIELDS; struct MELT_STRING_STRUCT(12) dstr_850__SINST_FIELDS; struct MELT_OBJECT_STRUCT(4) dobj_851__SINST_FIELDS; struct MELT_STRING_STRUCT(12) dstr_852__SINST_FIELDS; struct MELT_OBJECT_STRUCT(3) dsym_853__CLASS_SOURCE_DEFSELECTOR; struct MELT_STRING_STRUCT(24) dstr_854__CLASS_SOURCE_DEFSELECTOR; struct MELT_OBJECT_STRUCT(8) dobj_855__CLASS_SOURCE_DEFSELECTOR; struct MELT_STRING_STRUCT(24) dstr_856__CLASS_SOURCE_DEFSELECTOR; struct MELT_MULTIPLE_STRUCT(7) dtup_857_syCLASS_SOURCE_DEFSELECTOR; struct MELT_MULTIPLE_STRUCT(10) dtup_858_syCLASS_SOURCE_DEFSELECTOR; struct MELT_OBJECT_STRUCT(3) dsym_859__SDEFSEL_FORMALS; struct MELT_STRING_STRUCT(15) dstr_860__SDEFSEL_FORMALS; struct MELT_OBJECT_STRUCT(4) dobj_861__SDEFSEL_FORMALS; struct MELT_STRING_STRUCT(15) dstr_862__SDEFSEL_FORMALS; struct MELT_OBJECT_STRUCT(3) dsym_863__CLASS_SOURCE_FIELDASSIGN; struct MELT_STRING_STRUCT(24) dstr_864__CLASS_SOURCE_FIELDASSIGN; struct MELT_OBJECT_STRUCT(8) dobj_865__CLASS_SOURCE_FIELDASSIGN; struct MELT_STRING_STRUCT(24) dstr_866__CLASS_SOURCE_FIELDASSIGN; struct MELT_MULTIPLE_STRUCT(4) dtup_867_syCLASS_SOURCE_FIELDASSIGN; struct MELT_MULTIPLE_STRUCT(4) dtup_868_syCLASS_SOURCE_FIELDASSIGN; struct MELT_OBJECT_STRUCT(3) dsym_869__SFLA_FIELD; struct MELT_STRING_STRUCT(10) dstr_870__SFLA_FIELD; struct MELT_OBJECT_STRUCT(4) dobj_871__SFLA_FIELD; struct MELT_STRING_STRUCT(10) dstr_872__SFLA_FIELD; struct MELT_OBJECT_STRUCT(3) dsym_873__SFLA_EXPR; struct MELT_STRING_STRUCT(9) dstr_874__SFLA_EXPR; struct MELT_OBJECT_STRUCT(4) dobj_875__SFLA_EXPR; struct MELT_STRING_STRUCT(9) dstr_876__SFLA_EXPR; struct MELT_OBJECT_STRUCT(3) dsym_877__CLASS_SOURCE_INSTANCE; struct MELT_STRING_STRUCT(21) dstr_878__CLASS_SOURCE_INSTANCE; struct MELT_OBJECT_STRUCT(8) dobj_879__CLASS_SOURCE_INSTANCE; struct MELT_STRING_STRUCT(21) dstr_880__CLASS_SOURCE_INSTANCE; struct MELT_MULTIPLE_STRUCT(4) dtup_881_syCLASS_SOURCE_INSTANCE; struct MELT_MULTIPLE_STRUCT(5) dtup_882_syCLASS_SOURCE_INSTANCE; struct MELT_OBJECT_STRUCT(3) dsym_883__SMINS_CLASS; struct MELT_STRING_STRUCT(11) dstr_884__SMINS_CLASS; struct MELT_OBJECT_STRUCT(4) dobj_885__SMINS_CLASS; struct MELT_STRING_STRUCT(11) dstr_886__SMINS_CLASS; struct MELT_OBJECT_STRUCT(3) dsym_887__SMINS_CLABIND; struct MELT_STRING_STRUCT(13) dstr_888__SMINS_CLABIND; struct MELT_OBJECT_STRUCT(4) dobj_889__SMINS_CLABIND; struct MELT_STRING_STRUCT(13) dstr_890__SMINS_CLABIND; struct MELT_OBJECT_STRUCT(3) dsym_891__SMINS_FIELDS; struct MELT_STRING_STRUCT(12) dstr_892__SMINS_FIELDS; struct MELT_OBJECT_STRUCT(4) dobj_893__SMINS_FIELDS; struct MELT_STRING_STRUCT(12) dstr_894__SMINS_FIELDS; struct MELT_OBJECT_STRUCT(3) dsym_895__CLASS_SOURCE_GET_FIELD; struct MELT_STRING_STRUCT(22) dstr_896__CLASS_SOURCE_GET_FIELD; struct MELT_OBJECT_STRUCT(8) dobj_897__CLASS_SOURCE_GET_FIELD; struct MELT_STRING_STRUCT(22) dstr_898__CLASS_SOURCE_GET_FIELD; struct MELT_MULTIPLE_STRUCT(4) dtup_899_syCLASS_SOURCE_GET_FIELD; struct MELT_MULTIPLE_STRUCT(4) dtup_900_syCLASS_SOURCE_GET_FIELD; struct MELT_OBJECT_STRUCT(3) dsym_901__SUGET_OBJ; struct MELT_STRING_STRUCT(9) dstr_902__SUGET_OBJ; struct MELT_OBJECT_STRUCT(4) dobj_903__SUGET_OBJ; struct MELT_STRING_STRUCT(9) dstr_904__SUGET_OBJ; struct MELT_OBJECT_STRUCT(3) dsym_905__SUGET_FIELD; struct MELT_STRING_STRUCT(11) dstr_906__SUGET_FIELD; struct MELT_OBJECT_STRUCT(4) dobj_907__SUGET_FIELD; struct MELT_STRING_STRUCT(11) dstr_908__SUGET_FIELD; struct MELT_OBJECT_STRUCT(3) dsym_909__CLASS_SOURCE_UNSAFE_GET_FIELD; struct MELT_STRING_STRUCT(29) dstr_910__CLASS_SOURCE_UNSAFE_GET_; struct MELT_OBJECT_STRUCT(8) dobj_911__CLASS_SOURCE_UNSAFE_GET_FIELD; struct MELT_STRING_STRUCT(29) dstr_912__CLASS_SOURCE_UNSAFE_GET_; struct MELT_MULTIPLE_STRUCT(5) dtup_913_syCLASS_SOURCE_UNSAFE_GET_FIELD; struct MELT_MULTIPLE_STRUCT(4) dtup_914_syCLASS_SOURCE_UNSAFE_GET_FIELD; struct MELT_OBJECT_STRUCT(3) dsym_915__CLASS_SOURCE_PUT_FIELDS; struct MELT_STRING_STRUCT(23) dstr_916__CLASS_SOURCE_PUT_FIELDS; struct MELT_OBJECT_STRUCT(8) dobj_917__CLASS_SOURCE_PUT_FIELDS; struct MELT_STRING_STRUCT(23) dstr_918__CLASS_SOURCE_PUT_FIELDS; struct MELT_MULTIPLE_STRUCT(4) dtup_919_syCLASS_SOURCE_PUT_FIELDS; struct MELT_MULTIPLE_STRUCT(4) dtup_920_syCLASS_SOURCE_PUT_FIELDS; struct MELT_OBJECT_STRUCT(3) dsym_921__SUPUT_OBJ; struct MELT_STRING_STRUCT(9) dstr_922__SUPUT_OBJ; struct MELT_OBJECT_STRUCT(4) dobj_923__SUPUT_OBJ; struct MELT_STRING_STRUCT(9) dstr_924__SUPUT_OBJ; struct MELT_OBJECT_STRUCT(3) dsym_925__SUPUT_FIELDS; struct MELT_STRING_STRUCT(12) dstr_926__SUPUT_FIELDS; struct MELT_OBJECT_STRUCT(4) dobj_927__SUPUT_FIELDS; struct MELT_STRING_STRUCT(12) dstr_928__SUPUT_FIELDS; struct MELT_OBJECT_STRUCT(3) dsym_929__CLASS_SOURCE_UNSAFE_PUT_FIELDS; struct MELT_STRING_STRUCT(30) dstr_930__CLASS_SOURCE_UNSAFE_PUT_; struct MELT_OBJECT_STRUCT(8) dobj_931__CLASS_SOURCE_UNSAFE_PUT_FIELDS; struct MELT_STRING_STRUCT(30) dstr_932__CLASS_SOURCE_UNSAFE_PUT_; struct MELT_MULTIPLE_STRUCT(5) dtup_933_syCLASS_SOURCE_UNSAFE_PUT_FIELDS; struct MELT_MULTIPLE_STRUCT(4) dtup_934_syCLASS_SOURCE_UNSAFE_PUT_FIELDS; struct MELT_OBJECT_STRUCT(3) dsym_935__CLASS_SOURCE_IF; struct MELT_STRING_STRUCT(15) dstr_936__CLASS_SOURCE_IF; struct MELT_OBJECT_STRUCT(8) dobj_937__CLASS_SOURCE_IF; struct MELT_STRING_STRUCT(15) dstr_938__CLASS_SOURCE_IF; struct MELT_MULTIPLE_STRUCT(4) dtup_939_syCLASS_SOURCE_IF; struct MELT_MULTIPLE_STRUCT(4) dtup_940_syCLASS_SOURCE_IF; struct MELT_OBJECT_STRUCT(3) dsym_941__SIF_TEST; struct MELT_STRING_STRUCT(8) dstr_942__SIF_TEST; struct MELT_OBJECT_STRUCT(4) dobj_943__SIF_TEST; struct MELT_STRING_STRUCT(8) dstr_944__SIF_TEST; struct MELT_OBJECT_STRUCT(3) dsym_945__SIF_THEN; struct MELT_STRING_STRUCT(8) dstr_946__SIF_THEN; struct MELT_OBJECT_STRUCT(4) dobj_947__SIF_THEN; struct MELT_STRING_STRUCT(8) dstr_948__SIF_THEN; struct MELT_OBJECT_STRUCT(3) dsym_949__CLASS_SOURCE_IFELSE; struct MELT_STRING_STRUCT(19) dstr_950__CLASS_SOURCE_IFELSE; struct MELT_OBJECT_STRUCT(8) dobj_951__CLASS_SOURCE_IFELSE; struct MELT_STRING_STRUCT(19) dstr_952__CLASS_SOURCE_IFELSE; struct MELT_MULTIPLE_STRUCT(5) dtup_953_syCLASS_SOURCE_IFELSE; struct MELT_MULTIPLE_STRUCT(5) dtup_954_syCLASS_SOURCE_IFELSE; struct MELT_OBJECT_STRUCT(3) dsym_955__SIF_ELSE; struct MELT_STRING_STRUCT(8) dstr_956__SIF_ELSE; struct MELT_OBJECT_STRUCT(4) dobj_957__SIF_ELSE; struct MELT_STRING_STRUCT(8) dstr_958__SIF_ELSE; struct MELT_OBJECT_STRUCT(3) dsym_959__CLASS_SOURCE_OR; struct MELT_STRING_STRUCT(15) dstr_960__CLASS_SOURCE_OR; struct MELT_OBJECT_STRUCT(8) dobj_961__CLASS_SOURCE_OR; struct MELT_STRING_STRUCT(15) dstr_962__CLASS_SOURCE_OR; struct MELT_MULTIPLE_STRUCT(4) dtup_963_syCLASS_SOURCE_OR; struct MELT_MULTIPLE_STRUCT(3) dtup_964_syCLASS_SOURCE_OR; struct MELT_OBJECT_STRUCT(3) dsym_965__SOR_DISJ; struct MELT_STRING_STRUCT(8) dstr_966__SOR_DISJ; struct MELT_OBJECT_STRUCT(4) dobj_967__SOR_DISJ; struct MELT_STRING_STRUCT(8) dstr_968__SOR_DISJ; struct MELT_OBJECT_STRUCT(3) dsym_969__CLASS_SOURCE_CPPIF; struct MELT_STRING_STRUCT(18) dstr_970__CLASS_SOURCE_CPPIF; struct MELT_OBJECT_STRUCT(8) dobj_971__CLASS_SOURCE_CPPIF; struct MELT_STRING_STRUCT(18) dstr_972__CLASS_SOURCE_CPPIF; struct MELT_MULTIPLE_STRUCT(4) dtup_973_syCLASS_SOURCE_CPPIF; struct MELT_MULTIPLE_STRUCT(5) dtup_974_syCLASS_SOURCE_CPPIF; struct MELT_OBJECT_STRUCT(3) dsym_975__SIFP_COND; struct MELT_STRING_STRUCT(9) dstr_976__SIFP_COND; struct MELT_OBJECT_STRUCT(4) dobj_977__SIFP_COND; struct MELT_STRING_STRUCT(9) dstr_978__SIFP_COND; struct MELT_OBJECT_STRUCT(3) dsym_979__SIFP_THEN; struct MELT_STRING_STRUCT(9) dstr_980__SIFP_THEN; struct MELT_OBJECT_STRUCT(4) dobj_981__SIFP_THEN; struct MELT_STRING_STRUCT(9) dstr_982__SIFP_THEN; struct MELT_OBJECT_STRUCT(3) dsym_983__SIFP_ELSE; struct MELT_STRING_STRUCT(9) dstr_984__SIFP_ELSE; struct MELT_OBJECT_STRUCT(4) dobj_985__SIFP_ELSE; struct MELT_STRING_STRUCT(9) dstr_986__SIFP_ELSE; struct MELT_OBJECT_STRUCT(3) dsym_987__CLASS_SOURCE_MATCH; struct MELT_STRING_STRUCT(18) dstr_988__CLASS_SOURCE_MATCH; struct MELT_OBJECT_STRUCT(8) dobj_989__CLASS_SOURCE_MATCH; struct MELT_STRING_STRUCT(18) dstr_990__CLASS_SOURCE_MATCH; struct MELT_MULTIPLE_STRUCT(4) dtup_991_syCLASS_SOURCE_MATCH; struct MELT_MULTIPLE_STRUCT(4) dtup_992_syCLASS_SOURCE_MATCH; struct MELT_OBJECT_STRUCT(3) dsym_993__SMAT_MATCHEDX; struct MELT_STRING_STRUCT(13) dstr_994__SMAT_MATCHEDX; struct MELT_OBJECT_STRUCT(4) dobj_995__SMAT_MATCHEDX; struct MELT_STRING_STRUCT(13) dstr_996__SMAT_MATCHEDX; struct MELT_OBJECT_STRUCT(3) dsym_997__SMAT_CASES; struct MELT_STRING_STRUCT(10) dstr_998__SMAT_CASES; struct MELT_OBJECT_STRUCT(4) dobj_999__SMAT_CASES; struct MELT_STRING_STRUCT(10) dstr_1000__SMAT_CASES; struct MELT_OBJECT_STRUCT(3) dsym_1001__CLASS_SOURCE_MATCHALT; struct MELT_STRING_STRUCT(21) dstr_1002__CLASS_SOURCE_MATCHALT; struct MELT_OBJECT_STRUCT(8) dobj_1003__CLASS_SOURCE_MATCHALT; struct MELT_STRING_STRUCT(21) dstr_1004__CLASS_SOURCE_MATCHALT; struct MELT_MULTIPLE_STRUCT(5) dtup_1005_syCLASS_SOURCE_MATCHALT; struct MELT_MULTIPLE_STRUCT(4) dtup_1006_syCLASS_SOURCE_MATCHALT; struct MELT_OBJECT_STRUCT(3) dsym_1007__CLASS_SOURCE_MATCH_CASE; struct MELT_STRING_STRUCT(23) dstr_1008__CLASS_SOURCE_MATCH_CASE; struct MELT_OBJECT_STRUCT(8) dobj_1009__CLASS_SOURCE_MATCH_CASE; struct MELT_STRING_STRUCT(23) dstr_1010__CLASS_SOURCE_MATCH_CASE; struct MELT_MULTIPLE_STRUCT(4) dtup_1011_syCLASS_SOURCE_MATCH_CASE; struct MELT_MULTIPLE_STRUCT(4) dtup_1012_syCLASS_SOURCE_MATCH_CASE; struct MELT_OBJECT_STRUCT(3) dsym_1013__SCAM_PATT; struct MELT_STRING_STRUCT(9) dstr_1014__SCAM_PATT; struct MELT_OBJECT_STRUCT(4) dobj_1015__SCAM_PATT; struct MELT_STRING_STRUCT(9) dstr_1016__SCAM_PATT; struct MELT_OBJECT_STRUCT(3) dsym_1017__SCAM_BODY; struct MELT_STRING_STRUCT(9) dstr_1018__SCAM_BODY; struct MELT_OBJECT_STRUCT(4) dobj_1019__SCAM_BODY; struct MELT_STRING_STRUCT(9) dstr_1020__SCAM_BODY; struct MELT_OBJECT_STRUCT(3) dsym_1021__CLASS_SOURCE_ANY_LET_BINDING; struct MELT_STRING_STRUCT(28) dstr_1022__CLASS_SOURCE_ANY_LET_BIN; struct MELT_OBJECT_STRUCT(8) dobj_1023__CLASS_SOURCE_ANY_LET_BINDING; struct MELT_STRING_STRUCT(28) dstr_1024__CLASS_SOURCE_ANY_LET_BIN; struct MELT_MULTIPLE_STRUCT(4) dtup_1025_syCLASS_SOURCE_ANY_LET_BINDING; struct MELT_MULTIPLE_STRUCT(3) dtup_1026_syCLASS_SOURCE_ANY_LET_BINDING; struct MELT_OBJECT_STRUCT(3) dsym_1027__SLETB_BINDER; struct MELT_STRING_STRUCT(12) dstr_1028__SLETB_BINDER; struct MELT_OBJECT_STRUCT(4) dobj_1029__SLETB_BINDER; struct MELT_STRING_STRUCT(12) dstr_1030__SLETB_BINDER; struct MELT_OBJECT_STRUCT(3) dsym_1031__CLASS_SOURCE_MACRO_LET_BINDING; struct MELT_STRING_STRUCT(30) dstr_1032__CLASS_SOURCE_MACRO_LET_B; struct MELT_OBJECT_STRUCT(8) dobj_1033__CLASS_SOURCE_MACRO_LET_BINDING; struct MELT_STRING_STRUCT(30) dstr_1034__CLASS_SOURCE_MACRO_LET_B; struct MELT_MULTIPLE_STRUCT(5) dtup_1035_syCLASS_SOURCE_MACRO_LET_BINDING; struct MELT_MULTIPLE_STRUCT(5) dtup_1036_syCLASS_SOURCE_MACRO_LET_BINDING; struct MELT_OBJECT_STRUCT(3) dsym_1037__SLETM_MACRO_FORMALS; struct MELT_STRING_STRUCT(19) dstr_1038__SLETM_MACRO_FORMALS; struct MELT_OBJECT_STRUCT(4) dobj_1039__SLETM_MACRO_FORMALS; struct MELT_STRING_STRUCT(19) dstr_1040__SLETM_MACRO_FORMALS; struct MELT_OBJECT_STRUCT(3) dsym_1041__SLETM_MACRO_BODY; struct MELT_STRING_STRUCT(16) dstr_1042__SLETM_MACRO_BODY; struct MELT_OBJECT_STRUCT(4) dobj_1043__SLETM_MACRO_BODY; struct MELT_STRING_STRUCT(16) dstr_1044__SLETM_MACRO_BODY; struct MELT_OBJECT_STRUCT(3) dsym_1045__CLASS_SOURCE_LET_BINDING; struct MELT_STRING_STRUCT(24) dstr_1046__CLASS_SOURCE_LET_BINDING; struct MELT_OBJECT_STRUCT(8) dobj_1047__CLASS_SOURCE_LET_BINDING; struct MELT_STRING_STRUCT(24) dstr_1048__CLASS_SOURCE_LET_BINDING; struct MELT_MULTIPLE_STRUCT(5) dtup_1049_syCLASS_SOURCE_LET_BINDING; struct MELT_MULTIPLE_STRUCT(5) dtup_1050_syCLASS_SOURCE_LET_BINDING; struct MELT_OBJECT_STRUCT(3) dsym_1051__SLETB_TYPE; struct MELT_STRING_STRUCT(10) dstr_1052__SLETB_TYPE; struct MELT_OBJECT_STRUCT(4) dobj_1053__SLETB_TYPE; struct MELT_STRING_STRUCT(10) dstr_1054__SLETB_TYPE; struct MELT_OBJECT_STRUCT(3) dsym_1055__SLETB_EXPR; struct MELT_STRING_STRUCT(10) dstr_1056__SLETB_EXPR; struct MELT_OBJECT_STRUCT(4) dobj_1057__SLETB_EXPR; struct MELT_STRING_STRUCT(10) dstr_1058__SLETB_EXPR; struct MELT_OBJECT_STRUCT(3) dsym_1059__CLASS_SOURCE_LET_BINDING_FOR_MACRO; struct MELT_STRING_STRUCT(34) dstr_1060__CLASS_SOURCE_LET_BINDING; struct MELT_OBJECT_STRUCT(8) dobj_1061__CLASS_SOURCE_LET_BINDING_FOR_MACRO; struct MELT_STRING_STRUCT(34) dstr_1062__CLASS_SOURCE_LET_BINDING; struct MELT_MULTIPLE_STRUCT(6) dtup_1063_syCLASS_SOURCE_LET_BINDING_FOR_MACRO; struct MELT_MULTIPLE_STRUCT(6) dtup_1064_syCLASS_SOURCE_LET_BINDING_FOR_MACRO; struct MELT_OBJECT_STRUCT(3) dsym_1065__SLETFM_MACROLETBIND; struct MELT_STRING_STRUCT(19) dstr_1066__SLETFM_MACROLETBIND; struct MELT_OBJECT_STRUCT(4) dobj_1067__SLETFM_MACROLETBIND; struct MELT_STRING_STRUCT(19) dstr_1068__SLETFM_MACROLETBIND; struct MELT_OBJECT_STRUCT(3) dsym_1069__CLASS_SOURCE_LETREC_BINDING; struct MELT_STRING_STRUCT(27) dstr_1070__CLASS_SOURCE_LETREC_BIND; struct MELT_OBJECT_STRUCT(8) dobj_1071__CLASS_SOURCE_LETREC_BINDING; struct MELT_STRING_STRUCT(27) dstr_1072__CLASS_SOURCE_LETREC_BIND; struct MELT_MULTIPLE_STRUCT(6) dtup_1073_syCLASS_SOURCE_LETREC_BINDING; struct MELT_MULTIPLE_STRUCT(5) dtup_1074_syCLASS_SOURCE_LETREC_BINDING; struct MELT_OBJECT_STRUCT(3) dsym_1075__CLASS_SOURCE_LET; struct MELT_STRING_STRUCT(16) dstr_1076__CLASS_SOURCE_LET; struct MELT_OBJECT_STRUCT(8) dobj_1077__CLASS_SOURCE_LET; struct MELT_STRING_STRUCT(16) dstr_1078__CLASS_SOURCE_LET; struct MELT_MULTIPLE_STRUCT(4) dtup_1079_syCLASS_SOURCE_LET; struct MELT_MULTIPLE_STRUCT(4) dtup_1080_syCLASS_SOURCE_LET; struct MELT_OBJECT_STRUCT(3) dsym_1081__SLET_BINDINGS; struct MELT_STRING_STRUCT(13) dstr_1082__SLET_BINDINGS; struct MELT_OBJECT_STRUCT(4) dobj_1083__SLET_BINDINGS; struct MELT_STRING_STRUCT(13) dstr_1084__SLET_BINDINGS; struct MELT_OBJECT_STRUCT(3) dsym_1085__SLET_BODY; struct MELT_STRING_STRUCT(9) dstr_1086__SLET_BODY; struct MELT_OBJECT_STRUCT(4) dobj_1087__SLET_BODY; struct MELT_STRING_STRUCT(9) dstr_1088__SLET_BODY; struct MELT_OBJECT_STRUCT(3) dsym_1089__CLASS_SOURCE_LETREC; struct MELT_STRING_STRUCT(19) dstr_1090__CLASS_SOURCE_LETREC; struct MELT_OBJECT_STRUCT(8) dobj_1091__CLASS_SOURCE_LETREC; struct MELT_STRING_STRUCT(19) dstr_1092__CLASS_SOURCE_LETREC; struct MELT_MULTIPLE_STRUCT(5) dtup_1093_syCLASS_SOURCE_LETREC; struct MELT_MULTIPLE_STRUCT(4) dtup_1094_syCLASS_SOURCE_LETREC; struct MELT_OBJECT_STRUCT(3) dsym_1095__CLASS_SOURCE_LAMBDA; struct MELT_STRING_STRUCT(19) dstr_1096__CLASS_SOURCE_LAMBDA; struct MELT_OBJECT_STRUCT(8) dobj_1097__CLASS_SOURCE_LAMBDA; struct MELT_STRING_STRUCT(19) dstr_1098__CLASS_SOURCE_LAMBDA; struct MELT_MULTIPLE_STRUCT(4) dtup_1099_syCLASS_SOURCE_LAMBDA; struct MELT_MULTIPLE_STRUCT(4) dtup_1100_syCLASS_SOURCE_LAMBDA; struct MELT_OBJECT_STRUCT(3) dsym_1101__SLAM_ARGBIND; struct MELT_STRING_STRUCT(12) dstr_1102__SLAM_ARGBIND; struct MELT_OBJECT_STRUCT(4) dobj_1103__SLAM_ARGBIND; struct MELT_STRING_STRUCT(12) dstr_1104__SLAM_ARGBIND; struct MELT_OBJECT_STRUCT(3) dsym_1105__SLAM_BODY; struct MELT_STRING_STRUCT(9) dstr_1106__SLAM_BODY; struct MELT_OBJECT_STRUCT(4) dobj_1107__SLAM_BODY; struct MELT_STRING_STRUCT(9) dstr_1108__SLAM_BODY; struct MELT_OBJECT_STRUCT(3) dsym_1109__CLASS_SOURCE_LAMBDA_FOR_MACRO; struct MELT_STRING_STRUCT(29) dstr_1110__CLASS_SOURCE_LAMBDA_FOR_; struct MELT_OBJECT_STRUCT(8) dobj_1111__CLASS_SOURCE_LAMBDA_FOR_MACRO; struct MELT_STRING_STRUCT(29) dstr_1112__CLASS_SOURCE_LAMBDA_FOR_; struct MELT_MULTIPLE_STRUCT(5) dtup_1113_syCLASS_SOURCE_LAMBDA_FOR_MACRO; struct MELT_MULTIPLE_STRUCT(5) dtup_1114_syCLASS_SOURCE_LAMBDA_FOR_MACRO; struct MELT_OBJECT_STRUCT(3) dsym_1115__SLAM_ORIGMACRO; struct MELT_STRING_STRUCT(14) dstr_1116__SLAM_ORIGMACRO; struct MELT_OBJECT_STRUCT(4) dobj_1117__SLAM_ORIGMACRO; struct MELT_STRING_STRUCT(14) dstr_1118__SLAM_ORIGMACRO; struct MELT_OBJECT_STRUCT(3) dsym_1119__CLASS_SOURCE_IFVARIADIC; struct MELT_STRING_STRUCT(23) dstr_1120__CLASS_SOURCE_IFVARIADIC; struct MELT_OBJECT_STRUCT(8) dobj_1121__CLASS_SOURCE_IFVARIADIC; struct MELT_STRING_STRUCT(23) dstr_1122__CLASS_SOURCE_IFVARIADIC; struct MELT_MULTIPLE_STRUCT(4) dtup_1123_syCLASS_SOURCE_IFVARIADIC; struct MELT_MULTIPLE_STRUCT(5) dtup_1124_syCLASS_SOURCE_IFVARIADIC; struct MELT_OBJECT_STRUCT(3) dsym_1125__SIFVARIADIC_ARGBIND; struct MELT_STRING_STRUCT(19) dstr_1126__SIFVARIADIC_ARGBIND; struct MELT_OBJECT_STRUCT(4) dobj_1127__SIFVARIADIC_ARGBIND; struct MELT_STRING_STRUCT(19) dstr_1128__SIFVARIADIC_ARGBIND; struct MELT_OBJECT_STRUCT(3) dsym_1129__SIFVARIADIC_THEN; struct MELT_STRING_STRUCT(16) dstr_1130__SIFVARIADIC_THEN; struct MELT_OBJECT_STRUCT(4) dobj_1131__SIFVARIADIC_THEN; struct MELT_STRING_STRUCT(16) dstr_1132__SIFVARIADIC_THEN; struct MELT_OBJECT_STRUCT(3) dsym_1133__SIFVARIADIC_ELSE; struct MELT_STRING_STRUCT(16) dstr_1134__SIFVARIADIC_ELSE; struct MELT_OBJECT_STRUCT(4) dobj_1135__SIFVARIADIC_ELSE; struct MELT_STRING_STRUCT(16) dstr_1136__SIFVARIADIC_ELSE; struct MELT_OBJECT_STRUCT(3) dsym_1137__CLASS_SOURCE_MULTICALL; struct MELT_STRING_STRUCT(22) dstr_1138__CLASS_SOURCE_MULTICALL; struct MELT_OBJECT_STRUCT(8) dobj_1139__CLASS_SOURCE_MULTICALL; struct MELT_STRING_STRUCT(22) dstr_1140__CLASS_SOURCE_MULTICALL; struct MELT_MULTIPLE_STRUCT(4) dtup_1141_syCLASS_SOURCE_MULTICALL; struct MELT_MULTIPLE_STRUCT(5) dtup_1142_syCLASS_SOURCE_MULTICALL; struct MELT_OBJECT_STRUCT(3) dsym_1143__SMULC_RESBIND; struct MELT_STRING_STRUCT(13) dstr_1144__SMULC_RESBIND; struct MELT_OBJECT_STRUCT(4) dobj_1145__SMULC_RESBIND; struct MELT_STRING_STRUCT(13) dstr_1146__SMULC_RESBIND; struct MELT_OBJECT_STRUCT(3) dsym_1147__SMULC_CALL; struct MELT_STRING_STRUCT(10) dstr_1148__SMULC_CALL; struct MELT_OBJECT_STRUCT(4) dobj_1149__SMULC_CALL; struct MELT_STRING_STRUCT(10) dstr_1150__SMULC_CALL; struct MELT_OBJECT_STRUCT(3) dsym_1151__SMULC_BODY; struct MELT_STRING_STRUCT(10) dstr_1152__SMULC_BODY; struct MELT_OBJECT_STRUCT(4) dobj_1153__SMULC_BODY; struct MELT_STRING_STRUCT(10) dstr_1154__SMULC_BODY; struct MELT_OBJECT_STRUCT(3) dsym_1155__CLASS_SOURCE_LABELLED; struct MELT_STRING_STRUCT(21) dstr_1156__CLASS_SOURCE_LABELLED; struct MELT_OBJECT_STRUCT(8) dobj_1157__CLASS_SOURCE_LABELLED; struct MELT_STRING_STRUCT(21) dstr_1158__CLASS_SOURCE_LABELLED; struct MELT_MULTIPLE_STRUCT(4) dtup_1159_syCLASS_SOURCE_LABELLED; struct MELT_MULTIPLE_STRUCT(3) dtup_1160_syCLASS_SOURCE_LABELLED; struct MELT_OBJECT_STRUCT(3) dsym_1161__SLABEL_BIND; struct MELT_STRING_STRUCT(11) dstr_1162__SLABEL_BIND; struct MELT_OBJECT_STRUCT(4) dobj_1163__SLABEL_BIND; struct MELT_STRING_STRUCT(11) dstr_1164__SLABEL_BIND; struct MELT_OBJECT_STRUCT(3) dsym_1165__CLASS_SOURCE_FOREVER; struct MELT_STRING_STRUCT(20) dstr_1166__CLASS_SOURCE_FOREVER; struct MELT_OBJECT_STRUCT(8) dobj_1167__CLASS_SOURCE_FOREVER; struct MELT_STRING_STRUCT(20) dstr_1168__CLASS_SOURCE_FOREVER; struct MELT_MULTIPLE_STRUCT(5) dtup_1169_syCLASS_SOURCE_FOREVER; struct MELT_MULTIPLE_STRUCT(4) dtup_1170_syCLASS_SOURCE_FOREVER; struct MELT_OBJECT_STRUCT(3) dsym_1171__SFRV_BODY; struct MELT_STRING_STRUCT(9) dstr_1172__SFRV_BODY; struct MELT_OBJECT_STRUCT(4) dobj_1173__SFRV_BODY; struct MELT_STRING_STRUCT(9) dstr_1174__SFRV_BODY; struct MELT_OBJECT_STRUCT(3) dsym_1175__CLASS_SOURCE_AGAIN; struct MELT_STRING_STRUCT(18) dstr_1176__CLASS_SOURCE_AGAIN; struct MELT_OBJECT_STRUCT(8) dobj_1177__CLASS_SOURCE_AGAIN; struct MELT_STRING_STRUCT(18) dstr_1178__CLASS_SOURCE_AGAIN; struct MELT_MULTIPLE_STRUCT(5) dtup_1179_syCLASS_SOURCE_AGAIN; struct MELT_MULTIPLE_STRUCT(3) dtup_1180_syCLASS_SOURCE_AGAIN; struct MELT_OBJECT_STRUCT(3) dsym_1181__CLASS_SOURCE_EXIT; struct MELT_STRING_STRUCT(17) dstr_1182__CLASS_SOURCE_EXIT; struct MELT_OBJECT_STRUCT(8) dobj_1183__CLASS_SOURCE_EXIT; struct MELT_STRING_STRUCT(17) dstr_1184__CLASS_SOURCE_EXIT; struct MELT_MULTIPLE_STRUCT(5) dtup_1185_syCLASS_SOURCE_EXIT; struct MELT_MULTIPLE_STRUCT(4) dtup_1186_syCLASS_SOURCE_EXIT; struct MELT_OBJECT_STRUCT(3) dsym_1187__SEXI_BODY; struct MELT_STRING_STRUCT(9) dstr_1188__SEXI_BODY; struct MELT_OBJECT_STRUCT(4) dobj_1189__SEXI_BODY; struct MELT_STRING_STRUCT(9) dstr_1190__SEXI_BODY; struct MELT_OBJECT_STRUCT(3) dsym_1191__CLASS_SOURCE_COMPILE_DIAGNOSTIC; struct MELT_STRING_STRUCT(31) dstr_1192__CLASS_SOURCE_COMPILE_DIA; struct MELT_OBJECT_STRUCT(8) dobj_1193__CLASS_SOURCE_COMPILE_DIAGNOSTIC; struct MELT_STRING_STRUCT(31) dstr_1194__CLASS_SOURCE_COMPILE_DIA; struct MELT_MULTIPLE_STRUCT(4) dtup_1195_syCLASS_SOURCE_COMPILE_DIAGNOSTIC; struct MELT_MULTIPLE_STRUCT(4) dtup_1196_syCLASS_SOURCE_COMPILE_DIAGNOSTIC; struct MELT_OBJECT_STRUCT(3) dsym_1197__SCDIAG_MSG; struct MELT_STRING_STRUCT(10) dstr_1198__SCDIAG_MSG; struct MELT_OBJECT_STRUCT(4) dobj_1199__SCDIAG_MSG; struct MELT_STRING_STRUCT(10) dstr_1200__SCDIAG_MSG; struct MELT_OBJECT_STRUCT(3) dsym_1201__SCDIAG_EXPR; struct MELT_STRING_STRUCT(11) dstr_1202__SCDIAG_EXPR; struct MELT_OBJECT_STRUCT(4) dobj_1203__SCDIAG_EXPR; struct MELT_STRING_STRUCT(11) dstr_1204__SCDIAG_EXPR; struct MELT_OBJECT_STRUCT(3) dsym_1205__CLASS_SOURCE_COMPILE_WARNING; struct MELT_STRING_STRUCT(28) dstr_1206__CLASS_SOURCE_COMPILE_WAR; struct MELT_OBJECT_STRUCT(8) dobj_1207__CLASS_SOURCE_COMPILE_WARNING; struct MELT_STRING_STRUCT(28) dstr_1208__CLASS_SOURCE_COMPILE_WAR; struct MELT_MULTIPLE_STRUCT(5) dtup_1209_syCLASS_SOURCE_COMPILE_WARNING; struct MELT_MULTIPLE_STRUCT(4) dtup_1210_syCLASS_SOURCE_COMPILE_WARNING; struct MELT_OBJECT_STRUCT(3) dsym_1211__CLASS_SOURCE_COMPILEWARNING; struct MELT_STRING_STRUCT(27) dstr_1212__CLASS_SOURCE_COMPILEWARN; struct MELT_OBJECT_STRUCT(3) dsym_1213__CLASS_SOURCE_COMPILE_ERROR; struct MELT_STRING_STRUCT(26) dstr_1214__CLASS_SOURCE_COMPILE_ERR; struct MELT_OBJECT_STRUCT(8) dobj_1215__CLASS_SOURCE_COMPILE_ERROR; struct MELT_STRING_STRUCT(26) dstr_1216__CLASS_SOURCE_COMPILE_ERR; struct MELT_MULTIPLE_STRUCT(5) dtup_1217_syCLASS_SOURCE_COMPILE_ERROR; struct MELT_MULTIPLE_STRUCT(4) dtup_1218_syCLASS_SOURCE_COMPILE_ERROR; struct MELT_OBJECT_STRUCT(3) dsym_1219__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE; struct MELT_STRING_STRUCT(49) dstr_1220__CLASS_SOURCE_CURRENT_MOD; struct MELT_OBJECT_STRUCT(8) dobj_1221__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE; struct MELT_STRING_STRUCT(49) dstr_1222__CLASS_SOURCE_CURRENT_MOD; struct MELT_MULTIPLE_STRUCT(4) dtup_1223_syCLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE; struct MELT_MULTIPLE_STRUCT(3) dtup_1224_syCLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE; struct MELT_OBJECT_STRUCT(3) dsym_1225__CMEC_COMMENT; struct MELT_STRING_STRUCT(12) dstr_1226__CMEC_COMMENT; struct MELT_OBJECT_STRUCT(4) dobj_1227__CMEC_COMMENT; struct MELT_STRING_STRUCT(12) dstr_1228__CMEC_COMMENT; struct MELT_OBJECT_STRUCT(3) dsym_1229__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT; struct MELT_STRING_STRUCT(38) dstr_1230__CLASS_SOURCE_PARENT_MODU; struct MELT_OBJECT_STRUCT(8) dobj_1231__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT; struct MELT_STRING_STRUCT(38) dstr_1232__CLASS_SOURCE_PARENT_MODU; struct MELT_MULTIPLE_STRUCT(4) dtup_1233_syCLASS_SOURCE_PARENT_MODULE_ENVIRONMENT; struct MELT_MULTIPLE_STRUCT(2) dtup_1234_syCLASS_SOURCE_PARENT_MODULE_ENVIRONMENT; struct MELT_OBJECT_STRUCT(3) dsym_1235__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE; struct MELT_STRING_STRUCT(56) dstr_1236__CLASS_SOURCE_UPDATE_CURR; struct MELT_OBJECT_STRUCT(8) dobj_1237__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE; struct MELT_STRING_STRUCT(56) dstr_1238__CLASS_SOURCE_UPDATE_CURR; struct MELT_MULTIPLE_STRUCT(4) dtup_1239_syCLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE; struct MELT_MULTIPLE_STRUCT(3) dtup_1240_syCLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE; struct MELT_OBJECT_STRUCT(3) dsym_1241__SUCME_COMMENT; struct MELT_STRING_STRUCT(13) dstr_1242__SUCME_COMMENT; struct MELT_OBJECT_STRUCT(4) dobj_1243__SUCME_COMMENT; struct MELT_STRING_STRUCT(13) dstr_1244__SUCME_COMMENT; struct MELT_OBJECT_STRUCT(3) dsym_1245__CLASS_SOURCE_FETCH_PREDEFINED; struct MELT_STRING_STRUCT(29) dstr_1246__CLASS_SOURCE_FETCH_PREDE; struct MELT_OBJECT_STRUCT(8) dobj_1247__CLASS_SOURCE_FETCH_PREDEFINED; struct MELT_STRING_STRUCT(29) dstr_1248__CLASS_SOURCE_FETCH_PREDE; struct MELT_MULTIPLE_STRUCT(4) dtup_1249_syCLASS_SOURCE_FETCH_PREDEFINED; struct MELT_MULTIPLE_STRUCT(3) dtup_1250_syCLASS_SOURCE_FETCH_PREDEFINED; struct MELT_OBJECT_STRUCT(3) dsym_1251__SFEPD_PREDEF; struct MELT_STRING_STRUCT(12) dstr_1252__SFEPD_PREDEF; struct MELT_OBJECT_STRUCT(4) dobj_1253__SFEPD_PREDEF; struct MELT_STRING_STRUCT(12) dstr_1254__SFEPD_PREDEF; struct MELT_OBJECT_STRUCT(3) dsym_1255__CLASS_SOURCE_STORE_PREDEFINED; struct MELT_STRING_STRUCT(29) dstr_1256__CLASS_SOURCE_STORE_PREDE; struct MELT_OBJECT_STRUCT(8) dobj_1257__CLASS_SOURCE_STORE_PREDEFINED; struct MELT_STRING_STRUCT(29) dstr_1258__CLASS_SOURCE_STORE_PREDE; struct MELT_MULTIPLE_STRUCT(4) dtup_1259_syCLASS_SOURCE_STORE_PREDEFINED; struct MELT_MULTIPLE_STRUCT(4) dtup_1260_syCLASS_SOURCE_STORE_PREDEFINED; struct MELT_OBJECT_STRUCT(3) dsym_1261__SSTPD_PREDEF; struct MELT_STRING_STRUCT(12) dstr_1262__SSTPD_PREDEF; struct MELT_OBJECT_STRUCT(4) dobj_1263__SSTPD_PREDEF; struct MELT_STRING_STRUCT(12) dstr_1264__SSTPD_PREDEF; struct MELT_OBJECT_STRUCT(3) dsym_1265__SSTPD_VALUE; struct MELT_STRING_STRUCT(11) dstr_1266__SSTPD_VALUE; struct MELT_OBJECT_STRUCT(4) dobj_1267__SSTPD_VALUE; struct MELT_STRING_STRUCT(11) dstr_1268__SSTPD_VALUE; struct MELT_OBJECT_STRUCT(3) dsym_1269__CLASS_SOURCE_PROTOCHUNK; struct MELT_STRING_STRUCT(23) dstr_1270__CLASS_SOURCE_PROTOCHUNK; struct MELT_OBJECT_STRUCT(8) dobj_1271__CLASS_SOURCE_PROTOCHUNK; struct MELT_STRING_STRUCT(23) dstr_1272__CLASS_SOURCE_PROTOCHUNK; struct MELT_MULTIPLE_STRUCT(4) dtup_1273_syCLASS_SOURCE_PROTOCHUNK; struct MELT_MULTIPLE_STRUCT(4) dtup_1274_syCLASS_SOURCE_PROTOCHUNK; struct MELT_OBJECT_STRUCT(3) dsym_1275__SCH_GENSYM; struct MELT_STRING_STRUCT(10) dstr_1276__SCH_GENSYM; struct MELT_OBJECT_STRUCT(4) dobj_1277__SCH_GENSYM; struct MELT_STRING_STRUCT(10) dstr_1278__SCH_GENSYM; struct MELT_OBJECT_STRUCT(3) dsym_1279__SCH_CHUNKS; struct MELT_STRING_STRUCT(10) dstr_1280__SCH_CHUNKS; struct MELT_OBJECT_STRUCT(4) dobj_1281__SCH_CHUNKS; struct MELT_STRING_STRUCT(10) dstr_1282__SCH_CHUNKS; struct MELT_OBJECT_STRUCT(3) dsym_1283__CLASS_SOURCE_CODECHUNK; struct MELT_STRING_STRUCT(22) dstr_1284__CLASS_SOURCE_CODECHUNK; struct MELT_OBJECT_STRUCT(8) dobj_1285__CLASS_SOURCE_CODECHUNK; struct MELT_STRING_STRUCT(22) dstr_1286__CLASS_SOURCE_CODECHUNK; struct MELT_MULTIPLE_STRUCT(5) dtup_1287_syCLASS_SOURCE_CODECHUNK; struct MELT_MULTIPLE_STRUCT(4) dtup_1288_syCLASS_SOURCE_CODECHUNK; struct MELT_OBJECT_STRUCT(3) dsym_1289__CLASS_SOURCE_EXPRCHUNK; struct MELT_STRING_STRUCT(22) dstr_1290__CLASS_SOURCE_EXPRCHUNK; struct MELT_OBJECT_STRUCT(8) dobj_1291__CLASS_SOURCE_EXPRCHUNK; struct MELT_STRING_STRUCT(22) dstr_1292__CLASS_SOURCE_EXPRCHUNK; struct MELT_MULTIPLE_STRUCT(5) dtup_1293_syCLASS_SOURCE_EXPRCHUNK; struct MELT_MULTIPLE_STRUCT(5) dtup_1294_syCLASS_SOURCE_EXPRCHUNK; struct MELT_OBJECT_STRUCT(3) dsym_1295__SXCH_CTYPE; struct MELT_STRING_STRUCT(10) dstr_1296__SXCH_CTYPE; struct MELT_OBJECT_STRUCT(4) dobj_1297__SXCH_CTYPE; struct MELT_STRING_STRUCT(10) dstr_1298__SXCH_CTYPE; struct MELT_OBJECT_STRUCT(3) dsym_1299__CLASS_SOURCE_PATTERN; struct MELT_STRING_STRUCT(20) dstr_1300__CLASS_SOURCE_PATTERN; struct MELT_OBJECT_STRUCT(8) dobj_1301__CLASS_SOURCE_PATTERN; struct MELT_STRING_STRUCT(20) dstr_1302__CLASS_SOURCE_PATTERN; struct MELT_MULTIPLE_STRUCT(4) dtup_1303_syCLASS_SOURCE_PATTERN; struct MELT_MULTIPLE_STRUCT(3) dtup_1304_syCLASS_SOURCE_PATTERN; struct MELT_OBJECT_STRUCT(3) dsym_1305__PAT_WEIGHT; struct MELT_STRING_STRUCT(10) dstr_1306__PAT_WEIGHT; struct MELT_OBJECT_STRUCT(4) dobj_1307__PAT_WEIGHT; struct MELT_STRING_STRUCT(10) dstr_1308__PAT_WEIGHT; struct MELT_OBJECT_STRUCT(3) dsym_1309__CLASS_SOURCE_PATTERN_OR; struct MELT_STRING_STRUCT(23) dstr_1310__CLASS_SOURCE_PATTERN_OR; struct MELT_OBJECT_STRUCT(8) dobj_1311__CLASS_SOURCE_PATTERN_OR; struct MELT_STRING_STRUCT(23) dstr_1312__CLASS_SOURCE_PATTERN_OR; struct MELT_MULTIPLE_STRUCT(5) dtup_1313_syCLASS_SOURCE_PATTERN_OR; struct MELT_MULTIPLE_STRUCT(4) dtup_1314_syCLASS_SOURCE_PATTERN_OR; struct MELT_OBJECT_STRUCT(3) dsym_1315__ORPAT_DISJ; struct MELT_STRING_STRUCT(10) dstr_1316__ORPAT_DISJ; struct MELT_OBJECT_STRUCT(4) dobj_1317__ORPAT_DISJ; struct MELT_STRING_STRUCT(10) dstr_1318__ORPAT_DISJ; struct MELT_OBJECT_STRUCT(3) dsym_1319__CLASS_SOURCE_PATTERN_AND; struct MELT_STRING_STRUCT(24) dstr_1320__CLASS_SOURCE_PATTERN_AND; struct MELT_OBJECT_STRUCT(8) dobj_1321__CLASS_SOURCE_PATTERN_AND; struct MELT_STRING_STRUCT(24) dstr_1322__CLASS_SOURCE_PATTERN_AND; struct MELT_MULTIPLE_STRUCT(5) dtup_1323_syCLASS_SOURCE_PATTERN_AND; struct MELT_MULTIPLE_STRUCT(4) dtup_1324_syCLASS_SOURCE_PATTERN_AND; struct MELT_OBJECT_STRUCT(3) dsym_1325__ANDPAT_CONJ; struct MELT_STRING_STRUCT(11) dstr_1326__ANDPAT_CONJ; struct MELT_OBJECT_STRUCT(4) dobj_1327__ANDPAT_CONJ; struct MELT_STRING_STRUCT(11) dstr_1328__ANDPAT_CONJ; struct MELT_OBJECT_STRUCT(3) dsym_1329__CLASS_SOURCE_PATTERN_WHEN; struct MELT_STRING_STRUCT(25) dstr_1330__CLASS_SOURCE_PATTERN_WHE; struct MELT_OBJECT_STRUCT(8) dobj_1331__CLASS_SOURCE_PATTERN_WHEN; struct MELT_STRING_STRUCT(25) dstr_1332__CLASS_SOURCE_PATTERN_WHE; struct MELT_MULTIPLE_STRUCT(5) dtup_1333_syCLASS_SOURCE_PATTERN_WHEN; struct MELT_MULTIPLE_STRUCT(5) dtup_1334_syCLASS_SOURCE_PATTERN_WHEN; struct MELT_OBJECT_STRUCT(3) dsym_1335__WHENPAT_SUBPAT; struct MELT_STRING_STRUCT(14) dstr_1336__WHENPAT_SUBPAT; struct MELT_OBJECT_STRUCT(4) dobj_1337__WHENPAT_SUBPAT; struct MELT_STRING_STRUCT(14) dstr_1338__WHENPAT_SUBPAT; struct MELT_OBJECT_STRUCT(3) dsym_1339__WHENPAT_COND; struct MELT_STRING_STRUCT(12) dstr_1340__WHENPAT_COND; struct MELT_OBJECT_STRUCT(4) dobj_1341__WHENPAT_COND; struct MELT_STRING_STRUCT(12) dstr_1342__WHENPAT_COND; struct MELT_OBJECT_STRUCT(3) dsym_1343__CLASS_SOURCE_PATTERN_VARIABLE; struct MELT_STRING_STRUCT(29) dstr_1344__CLASS_SOURCE_PATTERN_VAR; struct MELT_OBJECT_STRUCT(8) dobj_1345__CLASS_SOURCE_PATTERN_VARIABLE; struct MELT_STRING_STRUCT(29) dstr_1346__CLASS_SOURCE_PATTERN_VAR; struct MELT_MULTIPLE_STRUCT(5) dtup_1347_syCLASS_SOURCE_PATTERN_VARIABLE; struct MELT_MULTIPLE_STRUCT(5) dtup_1348_syCLASS_SOURCE_PATTERN_VARIABLE; struct MELT_OBJECT_STRUCT(3) dsym_1349__SPATVAR_SYMB; struct MELT_STRING_STRUCT(12) dstr_1350__SPATVAR_SYMB; struct MELT_OBJECT_STRUCT(4) dobj_1351__SPATVAR_SYMB; struct MELT_STRING_STRUCT(12) dstr_1352__SPATVAR_SYMB; struct MELT_OBJECT_STRUCT(3) dsym_1353__SPATVAR_NBOCC; struct MELT_STRING_STRUCT(13) dstr_1354__SPATVAR_NBOCC; struct MELT_OBJECT_STRUCT(4) dobj_1355__SPATVAR_NBOCC; struct MELT_STRING_STRUCT(13) dstr_1356__SPATVAR_NBOCC; struct MELT_OBJECT_STRUCT(3) dsym_1357__SPAT_VAR; struct MELT_STRING_STRUCT(8) dstr_1358__SPAT_VAR; struct MELT_OBJECT_STRUCT(3) dsym_1359__CLASS_SOURCE_PATTERN_JOKER_VARIABLE; struct MELT_STRING_STRUCT(35) dstr_1360__CLASS_SOURCE_PATTERN_JOK; struct MELT_OBJECT_STRUCT(8) dobj_1361__CLASS_SOURCE_PATTERN_JOKER_VARIABLE; struct MELT_STRING_STRUCT(35) dstr_1362__CLASS_SOURCE_PATTERN_JOK; struct MELT_MULTIPLE_STRUCT(6) dtup_1363_syCLASS_SOURCE_PATTERN_JOKER_VARIABLE; struct MELT_MULTIPLE_STRUCT(5) dtup_1364_syCLASS_SOURCE_PATTERN_JOKER_VARIABLE; struct MELT_OBJECT_STRUCT(3) dsym_1365__CLASS_SOURCE_PATTERN_CONSTANT; struct MELT_STRING_STRUCT(29) dstr_1366__CLASS_SOURCE_PATTERN_CON; struct MELT_OBJECT_STRUCT(8) dobj_1367__CLASS_SOURCE_PATTERN_CONSTANT; struct MELT_STRING_STRUCT(29) dstr_1368__CLASS_SOURCE_PATTERN_CON; struct MELT_MULTIPLE_STRUCT(5) dtup_1369_syCLASS_SOURCE_PATTERN_CONSTANT; struct MELT_MULTIPLE_STRUCT(4) dtup_1370_syCLASS_SOURCE_PATTERN_CONSTANT; struct MELT_OBJECT_STRUCT(3) dsym_1371__SPAT_CONSTX; struct MELT_STRING_STRUCT(11) dstr_1372__SPAT_CONSTX; struct MELT_OBJECT_STRUCT(4) dobj_1373__SPAT_CONSTX; struct MELT_STRING_STRUCT(11) dstr_1374__SPAT_CONSTX; struct MELT_OBJECT_STRUCT(3) dsym_1375__CLASS_SOURCE_PATTERN_CONSTRUCT; struct MELT_STRING_STRUCT(30) dstr_1376__CLASS_SOURCE_PATTERN_CON; struct MELT_OBJECT_STRUCT(8) dobj_1377__CLASS_SOURCE_PATTERN_CONSTRUCT; struct MELT_STRING_STRUCT(30) dstr_1378__CLASS_SOURCE_PATTERN_CON; struct MELT_MULTIPLE_STRUCT(5) dtup_1379_syCLASS_SOURCE_PATTERN_CONSTRUCT; struct MELT_MULTIPLE_STRUCT(4) dtup_1380_syCLASS_SOURCE_PATTERN_CONSTRUCT; struct MELT_OBJECT_STRUCT(3) dsym_1381__CTPAT_SUBPA; struct MELT_STRING_STRUCT(11) dstr_1382__CTPAT_SUBPA; struct MELT_OBJECT_STRUCT(4) dobj_1383__CTPAT_SUBPA; struct MELT_STRING_STRUCT(11) dstr_1384__CTPAT_SUBPA; struct MELT_OBJECT_STRUCT(3) dsym_1385__CLASS_SOURCE_PATTERN_TUPLE; struct MELT_STRING_STRUCT(26) dstr_1386__CLASS_SOURCE_PATTERN_TUP; struct MELT_OBJECT_STRUCT(8) dobj_1387__CLASS_SOURCE_PATTERN_TUPLE; struct MELT_STRING_STRUCT(26) dstr_1388__CLASS_SOURCE_PATTERN_TUP; struct MELT_MULTIPLE_STRUCT(6) dtup_1389_syCLASS_SOURCE_PATTERN_TUPLE; struct MELT_MULTIPLE_STRUCT(4) dtup_1390_syCLASS_SOURCE_PATTERN_TUPLE; struct MELT_OBJECT_STRUCT(3) dsym_1391__CLASS_SOURCE_PATTERN_LIST; struct MELT_STRING_STRUCT(25) dstr_1392__CLASS_SOURCE_PATTERN_LIS; struct MELT_OBJECT_STRUCT(8) dobj_1393__CLASS_SOURCE_PATTERN_LIST; struct MELT_STRING_STRUCT(25) dstr_1394__CLASS_SOURCE_PATTERN_LIS; struct MELT_MULTIPLE_STRUCT(6) dtup_1395_syCLASS_SOURCE_PATTERN_LIST; struct MELT_MULTIPLE_STRUCT(4) dtup_1396_syCLASS_SOURCE_PATTERN_LIST; struct MELT_OBJECT_STRUCT(3) dsym_1397__CLASS_SOURCE_PATTERN_OBJECT; struct MELT_STRING_STRUCT(27) dstr_1398__CLASS_SOURCE_PATTERN_OBJ; struct MELT_OBJECT_STRUCT(8) dobj_1399__CLASS_SOURCE_PATTERN_OBJECT; struct MELT_STRING_STRUCT(27) dstr_1400__CLASS_SOURCE_PATTERN_OBJ; struct MELT_MULTIPLE_STRUCT(5) dtup_1401_syCLASS_SOURCE_PATTERN_OBJECT; struct MELT_MULTIPLE_STRUCT(5) dtup_1402_syCLASS_SOURCE_PATTERN_OBJECT; struct MELT_OBJECT_STRUCT(3) dsym_1403__SPAT_CLASS; struct MELT_STRING_STRUCT(10) dstr_1404__SPAT_CLASS; struct MELT_OBJECT_STRUCT(4) dobj_1405__SPAT_CLASS; struct MELT_STRING_STRUCT(10) dstr_1406__SPAT_CLASS; struct MELT_OBJECT_STRUCT(3) dsym_1407__SPAT_FIELDS; struct MELT_STRING_STRUCT(11) dstr_1408__SPAT_FIELDS; struct MELT_OBJECT_STRUCT(4) dobj_1409__SPAT_FIELDS; struct MELT_STRING_STRUCT(11) dstr_1410__SPAT_FIELDS; struct MELT_OBJECT_STRUCT(3) dsym_1411__CLASS_SOURCE_PATTERN_INSTANCE; struct MELT_STRING_STRUCT(29) dstr_1412__CLASS_SOURCE_PATTERN_INS; struct MELT_OBJECT_STRUCT(8) dobj_1413__CLASS_SOURCE_PATTERN_INSTANCE; struct MELT_STRING_STRUCT(29) dstr_1414__CLASS_SOURCE_PATTERN_INS; struct MELT_MULTIPLE_STRUCT(6) dtup_1415_syCLASS_SOURCE_PATTERN_INSTANCE; struct MELT_MULTIPLE_STRUCT(5) dtup_1416_syCLASS_SOURCE_PATTERN_INSTANCE; struct MELT_OBJECT_STRUCT(3) dsym_1417__CLASS_SOURCE_FIELD_PATTERN; struct MELT_STRING_STRUCT(26) dstr_1418__CLASS_SOURCE_FIELD_PATTE; struct MELT_OBJECT_STRUCT(8) dobj_1419__CLASS_SOURCE_FIELD_PATTERN; struct MELT_STRING_STRUCT(26) dstr_1420__CLASS_SOURCE_FIELD_PATTE; struct MELT_MULTIPLE_STRUCT(4) dtup_1421_syCLASS_SOURCE_FIELD_PATTERN; struct MELT_MULTIPLE_STRUCT(4) dtup_1422_syCLASS_SOURCE_FIELD_PATTERN; struct MELT_OBJECT_STRUCT(3) dsym_1423__SPAF_FIELD; struct MELT_STRING_STRUCT(10) dstr_1424__SPAF_FIELD; struct MELT_OBJECT_STRUCT(4) dobj_1425__SPAF_FIELD; struct MELT_STRING_STRUCT(10) dstr_1426__SPAF_FIELD; struct MELT_OBJECT_STRUCT(3) dsym_1427__SPAF_PATTERN; struct MELT_STRING_STRUCT(12) dstr_1428__SPAF_PATTERN; struct MELT_OBJECT_STRUCT(4) dobj_1429__SPAF_PATTERN; struct MELT_STRING_STRUCT(12) dstr_1430__SPAF_PATTERN; struct MELT_OBJECT_STRUCT(3) dsym_1431__CLASS_SOURCE_PATTERN_COMPOSITE; struct MELT_STRING_STRUCT(30) dstr_1432__CLASS_SOURCE_PATTERN_COM; struct MELT_OBJECT_STRUCT(8) dobj_1433__CLASS_SOURCE_PATTERN_COMPOSITE; struct MELT_STRING_STRUCT(30) dstr_1434__CLASS_SOURCE_PATTERN_COM; struct MELT_MULTIPLE_STRUCT(6) dtup_1435_syCLASS_SOURCE_PATTERN_COMPOSITE; struct MELT_MULTIPLE_STRUCT(9) dtup_1436_syCLASS_SOURCE_PATTERN_COMPOSITE; struct MELT_OBJECT_STRUCT(3) dsym_1437__SPAC_OPERATOR; struct MELT_STRING_STRUCT(13) dstr_1438__SPAC_OPERATOR; struct MELT_OBJECT_STRUCT(4) dobj_1439__SPAC_OPERATOR; struct MELT_STRING_STRUCT(13) dstr_1440__SPAC_OPERATOR; struct MELT_OBJECT_STRUCT(3) dsym_1441__SPAC_OPERBIND; struct MELT_STRING_STRUCT(13) dstr_1442__SPAC_OPERBIND; struct MELT_OBJECT_STRUCT(4) dobj_1443__SPAC_OPERBIND; struct MELT_STRING_STRUCT(13) dstr_1444__SPAC_OPERBIND; struct MELT_OBJECT_STRUCT(3) dsym_1445__SPAC_INARGS; struct MELT_STRING_STRUCT(11) dstr_1446__SPAC_INARGS; struct MELT_OBJECT_STRUCT(4) dobj_1447__SPAC_INARGS; struct MELT_STRING_STRUCT(11) dstr_1448__SPAC_INARGS; struct MELT_OBJECT_STRUCT(3) dsym_1449__SPAC_OUTARGS; struct MELT_STRING_STRUCT(12) dstr_1450__SPAC_OUTARGS; struct MELT_OBJECT_STRUCT(4) dobj_1451__SPAC_OUTARGS; struct MELT_STRING_STRUCT(12) dstr_1452__SPAC_OUTARGS; struct MELT_OBJECT_STRUCT(3) dsym_1453__CLASS_SOURCE_PATTERN_MATCHER; struct MELT_STRING_STRUCT(28) dstr_1454__CLASS_SOURCE_PATTERN_MAT; struct MELT_OBJECT_STRUCT(8) dobj_1455__CLASS_SOURCE_PATTERN_MATCHER; struct MELT_STRING_STRUCT(28) dstr_1456__CLASS_SOURCE_PATTERN_MAT; struct MELT_MULTIPLE_STRUCT(7) dtup_1457_syCLASS_SOURCE_PATTERN_MATCHER; struct MELT_MULTIPLE_STRUCT(9) dtup_1458_syCLASS_SOURCE_PATTERN_MATCHER; struct MELT_OBJECT_STRUCT(3) dsym_1459__CLASS_SOURCE_PATTERN_C_MATCH; struct MELT_STRING_STRUCT(28) dstr_1460__CLASS_SOURCE_PATTERN_C_M; struct MELT_OBJECT_STRUCT(8) dobj_1461__CLASS_SOURCE_PATTERN_C_MATCH; struct MELT_STRING_STRUCT(28) dstr_1462__CLASS_SOURCE_PATTERN_C_M; struct MELT_MULTIPLE_STRUCT(8) dtup_1463_syCLASS_SOURCE_PATTERN_C_MATCH; struct MELT_MULTIPLE_STRUCT(9) dtup_1464_syCLASS_SOURCE_PATTERN_C_MATCH; struct MELT_OBJECT_STRUCT(3) dsym_1465__CLASS_SOURCE_PATTERN_FUN_MATCH; struct MELT_STRING_STRUCT(30) dstr_1466__CLASS_SOURCE_PATTERN_FUN; struct MELT_OBJECT_STRUCT(8) dobj_1467__CLASS_SOURCE_PATTERN_FUN_MATCH; struct MELT_STRING_STRUCT(30) dstr_1468__CLASS_SOURCE_PATTERN_FUN; struct MELT_MULTIPLE_STRUCT(8) dtup_1469_syCLASS_SOURCE_PATTERN_FUN_MATCH; struct MELT_MULTIPLE_STRUCT(9) dtup_1470_syCLASS_SOURCE_PATTERN_FUN_MATCH; struct MELT_ROUTINE_STRUCT(3) drout_1471__S_EXPR_WEIGHT; struct MELT_CLOSURE_STRUCT(0) dclo_1472__S_EXPR_WEIGHT; struct MELT_ROUTINE_STRUCT(2) drout_1473__LAMBDA_; struct MELT_OBJECT_STRUCT(3) dsym_1474__TRUE; struct MELT_STRING_STRUCT(4) dstr_1475__TRUE; struct MELT_OBJECT_STRUCT(3) dsym_1476__DISCR_CONSTANT_INTEGER; struct MELT_STRING_STRUCT(22) dstr_1477__DISCR_CONSTANT_INTEGER; struct MELT_ROUTINE_STRUCT(8) drout_1478__INSTALL_GLOBAL_DEFINITION_BINDING; struct MELT_CLOSURE_STRUCT(0) dclo_1479__INSTALL_GLOBAL_DEFINITION_BINDING; struct MELT_OBJECT_STRUCT(3) dsym_1480__CLASS_ANY_BINDING; struct MELT_STRING_STRUCT(17) dstr_1481__CLASS_ANY_BINDING; struct MELT_OBJECT_STRUCT(3) dsym_1482__CLASS_ENVIRONMENT; struct MELT_STRING_STRUCT(17) dstr_1483__CLASS_ENVIRONMENT; struct MELT_OBJECT_STRUCT(3) dsym_1484__CLASS_ANY_MODULE_CONTEXT; struct MELT_STRING_STRUCT(24) dstr_1485__CLASS_ANY_MODULE_CONTEXT; struct MELT_OBJECT_STRUCT(3) dsym_1486__FIND_ENV; struct MELT_STRING_STRUCT(8) dstr_1487__FIND_ENV; struct MELT_OBJECT_STRUCT(3) dsym_1488__PUT_ENV; struct MELT_STRING_STRUCT(7) dstr_1489__PUT_ENV; struct MELT_ROUTINE_STRUCT(3) drout_1490__EXPAND_RESTLIST_AS_LIST; struct MELT_CLOSURE_STRUCT(0) dclo_1491__EXPAND_RESTLIST_AS_LIST; struct MELT_OBJECT_STRUCT(3) dsym_1492__LIST_APPEND2LIST; struct MELT_STRING_STRUCT(16) dstr_1493__LIST_APPEND2LIST; struct MELT_ROUTINE_STRUCT(5) drout_1494__EXPAND_RESTLIST_AS_TUPLE; struct MELT_CLOSURE_STRUCT(0) dclo_1495__EXPAND_RESTLIST_AS_TUPLE; struct MELT_ROUTINE_STRUCT(2) drout_1496__EXPAND_PAIRLIST_AS_LIST; struct MELT_CLOSURE_STRUCT(0) dclo_1497__EXPAND_PAIRLIST_AS_LIST; struct MELT_ROUTINE_STRUCT(5) drout_1498__EXPAND_PAIRLIST_AS_TUPLE; struct MELT_CLOSURE_STRUCT(0) dclo_1499__EXPAND_PAIRLIST_AS_TUPLE; struct MELT_ROUTINE_STRUCT(6) drout_1500__EXPAND_TUPLE_SLICE_AS_TUPLE; struct MELT_CLOSURE_STRUCT(0) dclo_1501__EXPAND_TUPLE_SLICE_AS_TUPLE; struct MELT_OBJECT_STRUCT(3) dsym_1502__DISCR_LIST; struct MELT_STRING_STRUCT(10) dstr_1503__DISCR_LIST; struct MELT_ROUTINE_STRUCT(6) drout_1504__REGISTER_GENERATOR_DEVICE; struct MELT_CLOSURE_STRUCT(0) dclo_1505__REGISTER_GENERATOR_DEVICE; struct MELT_ROUTINE_STRUCT(7) drout_1506__EXPAND_APPLY; struct MELT_CLOSURE_STRUCT(0) dclo_1507__EXPAND_APPLY; struct MELT_OBJECT_STRUCT(3) dsym_1508__DEBUG_LESS; struct MELT_STRING_STRUCT(10) dstr_1509__DEBUG_LESS; struct MELT_ROUTINE_STRUCT(9) drout_1510__EXPAND_MSEND; struct MELT_CLOSURE_STRUCT(0) dclo_1511__EXPAND_MSEND; struct MELT_ROUTINE_STRUCT(11) drout_1512__EXPAND_FIELDEXPR; struct MELT_CLOSURE_STRUCT(0) dclo_1513__EXPAND_FIELDEXPR; struct MELT_OBJECT_STRUCT(3) dsym_1514__CLASS_FIELD; struct MELT_STRING_STRUCT(11) dstr_1515__CLASS_FIELD; struct MELT_ROUTINE_STRUCT(11) drout_1516__EXPAND_CITERATION; struct MELT_CLOSURE_STRUCT(0) dclo_1517__EXPAND_CITERATION; struct MELT_OBJECT_STRUCT(3) dsym_1518__CLASS_CITERATOR; struct MELT_STRING_STRUCT(15) dstr_1519__CLASS_CITERATOR; struct MELT_OBJECT_STRUCT(3) dsym_1520__FRESH_ENV; struct MELT_STRING_STRUCT(9) dstr_1521__FRESH_ENV; struct MELT_ROUTINE_STRUCT(10) drout_1522__EXPAND_CMATCHEXPR; struct MELT_CLOSURE_STRUCT(0) dclo_1523__EXPAND_CMATCHEXPR; struct MELT_OBJECT_STRUCT(3) dsym_1524__CLASS_CMATCHER; struct MELT_STRING_STRUCT(14) dstr_1525__CLASS_CMATCHER; struct MELT_OBJECT_STRUCT(3) dsym_1526__CLASS_ANY_MATCHER; struct MELT_STRING_STRUCT(17) dstr_1527__CLASS_ANY_MATCHER; struct MELT_ROUTINE_STRUCT(7) drout_1528__EXPAND_FUNMATCHEXPR; struct MELT_CLOSURE_STRUCT(0) dclo_1529__EXPAND_FUNMATCHEXPR; struct MELT_OBJECT_STRUCT(3) dsym_1530__CLASS_FUNMATCHER; struct MELT_STRING_STRUCT(16) dstr_1531__CLASS_FUNMATCHER; struct MELT_ROUTINE_STRUCT(7) drout_1532__EXPAND_KEYWORDFUN; struct MELT_CLOSURE_STRUCT(0) dclo_1533__EXPAND_KEYWORDFUN; struct MELT_ROUTINE_STRUCT(40) drout_1534__MACROEXPAND_1; struct MELT_CLOSURE_STRUCT(0) dclo_1535__MACROEXPAND_1; struct MELT_OBJECT_STRUCT(3) dsym_1536__CLASS_SELECTOR_BINDING; struct MELT_STRING_STRUCT(22) dstr_1537__CLASS_SELECTOR_BINDING; struct MELT_OBJECT_STRUCT(3) dsym_1538__CLASS_PRIMITIVE_BINDING; struct MELT_STRING_STRUCT(23) dstr_1539__CLASS_PRIMITIVE_BINDING; struct MELT_OBJECT_STRUCT(3) dsym_1540__CLASS_CITERATOR_BINDING; struct MELT_STRING_STRUCT(23) dstr_1541__CLASS_CITERATOR_BINDING; struct MELT_OBJECT_STRUCT(3) dsym_1542__CLASS_HOOK_BINDING; struct MELT_STRING_STRUCT(18) dstr_1543__CLASS_HOOK_BINDING; struct MELT_OBJECT_STRUCT(3) dsym_1544__CLASS_CMATCHER_BINDING; struct MELT_STRING_STRUCT(22) dstr_1545__CLASS_CMATCHER_BINDING; struct MELT_OBJECT_STRUCT(3) dsym_1546__CLASS_FUNMATCHER_BINDING; struct MELT_STRING_STRUCT(24) dstr_1547__CLASS_FUNMATCHER_BINDING; struct MELT_OBJECT_STRUCT(3) dsym_1548__CLASS_FIELD_BINDING; struct MELT_STRING_STRUCT(19) dstr_1549__CLASS_FIELD_BINDING; struct MELT_OBJECT_STRUCT(3) dsym_1550__CLASS_FORMAL_BINDING; struct MELT_STRING_STRUCT(20) dstr_1551__CLASS_FORMAL_BINDING; struct MELT_OBJECT_STRUCT(3) dsym_1552__CLASS_LET_BINDING; struct MELT_STRING_STRUCT(17) dstr_1553__CLASS_LET_BINDING; struct MELT_OBJECT_STRUCT(3) dsym_1554__CLASS_VALUE_BINDING; struct MELT_STRING_STRUCT(19) dstr_1555__CLASS_VALUE_BINDING; struct MELT_OBJECT_STRUCT(3) dsym_1556__CLASS_PRIMITIVE; struct MELT_STRING_STRUCT(15) dstr_1557__CLASS_PRIMITIVE; struct MELT_OBJECT_STRUCT(3) dsym_1558__DEBUG_MORE; struct MELT_STRING_STRUCT(10) dstr_1559__DEBUG_MORE; struct MELT_ROUTINE_STRUCT(1) drout_1560__LAMBDA_; struct MELT_ROUTINE_STRUCT(6) drout_1561__EXPAND_PRIMITIVE; struct MELT_CLOSURE_STRUCT(0) dclo_1562__EXPAND_PRIMITIVE; struct MELT_ROUTINE_STRUCT(7) drout_1563__EXPAND_HOOK; struct MELT_CLOSURE_STRUCT(0) dclo_1564__EXPAND_HOOK; struct MELT_OBJECT_STRUCT(3) dsym_1565__CLASS_PATTERN_EXPANSION_CONTEXT; struct MELT_STRING_STRUCT(31) dstr_1566__CLASS_PATTERN_EXPANSION_; struct MELT_OBJECT_STRUCT(3) dsym_1567__CLASS_ROOT; struct MELT_STRING_STRUCT(10) dstr_1568__CLASS_ROOT; struct MELT_OBJECT_STRUCT(8) dobj_1569__CLASS_PATTERN_EXPANSION_CONTEXT; struct MELT_STRING_STRUCT(31) dstr_1570__CLASS_PATTERN_EXPANSION_; struct MELT_MULTIPLE_STRUCT(1) dtup_1571_syCLASS_PATTERN_EXPANSION_CONTEXT; struct MELT_MULTIPLE_STRUCT(4) dtup_1572_syCLASS_PATTERN_EXPANSION_CONTEXT; struct MELT_OBJECT_STRUCT(3) dsym_1573__PCTX_MEXPANDER; struct MELT_STRING_STRUCT(14) dstr_1574__PCTX_MEXPANDER; struct MELT_OBJECT_STRUCT(4) dobj_1575__PCTX_MEXPANDER; struct MELT_STRING_STRUCT(14) dstr_1576__PCTX_MEXPANDER; struct MELT_OBJECT_STRUCT(3) dsym_1577__PCTX_PEXPANDER; struct MELT_STRING_STRUCT(14) dstr_1578__PCTX_PEXPANDER; struct MELT_OBJECT_STRUCT(4) dobj_1579__PCTX_PEXPANDER; struct MELT_STRING_STRUCT(14) dstr_1580__PCTX_PEXPANDER; struct MELT_OBJECT_STRUCT(3) dsym_1581__PCTX_VARMAP; struct MELT_STRING_STRUCT(11) dstr_1582__PCTX_VARMAP; struct MELT_OBJECT_STRUCT(4) dobj_1583__PCTX_VARMAP; struct MELT_STRING_STRUCT(11) dstr_1584__PCTX_VARMAP; struct MELT_OBJECT_STRUCT(3) dsym_1585__PCTX_MODCTX; struct MELT_STRING_STRUCT(11) dstr_1586__PCTX_MODCTX; struct MELT_OBJECT_STRUCT(4) dobj_1587__PCTX_MODCTX; struct MELT_STRING_STRUCT(11) dstr_1588__PCTX_MODCTX; struct MELT_ROUTINE_STRUCT(5) drout_1589__PATTERNEXPAND_PAIRLIST_AS_TUPLE; struct MELT_CLOSURE_STRUCT(0) dclo_1590__PATTERNEXPAND_PAIRLIST_AS_TUPLE; struct MELT_OBJECT_STRUCT(3) dsym_1591__PAIRLIST_TO_MULTIPLE; struct MELT_STRING_STRUCT(20) dstr_1592__PAIRLIST_TO_MULTIPLE; struct MELT_ROUTINE_STRUCT(1) drout_1593__LAMBDA_; struct MELT_ROUTINE_STRUCT(18) drout_1594__PATMACEXPAND_FOR_MATCHER; struct MELT_CLOSURE_STRUCT(0) dclo_1595__PATMACEXPAND_FOR_MATCHER; struct MELT_OBJECT_STRUCT(3) dsym_1596__CLASS_REFERENCE; struct MELT_STRING_STRUCT(15) dstr_1597__CLASS_REFERENCE; struct MELT_OBJECT_STRUCT(3) dsym_1598__MULTIPLE_MAP; struct MELT_STRING_STRUCT(12) dstr_1599__MULTIPLE_MAP; struct MELT_ROUTINE_STRUCT(4) drout_1600__LAMBDA_; struct MELT_ROUTINE_STRUCT(3) drout_1601__LAMBDA_; struct MELT_ROUTINE_STRUCT(7) drout_1602__PATTERN_WEIGHT_TUPLE; struct MELT_CLOSURE_STRUCT(0) dclo_1603__PATTERN_WEIGHT_TUPLE; struct MELT_OBJECT_STRUCT(3) dsym_1604__DISCR_INTEGER; struct MELT_STRING_STRUCT(13) dstr_1605__DISCR_INTEGER; struct MELT_ROUTINE_STRUCT(2) drout_1606__LAMBDA_; struct MELT_ROUTINE_STRUCT(22) drout_1607__PATTERNEXPAND_EXPR; struct MELT_CLOSURE_STRUCT(0) dclo_1608__PATTERNEXPAND_EXPR; struct MELT_OBJECT_STRUCT(3) dsym_1609__CLASS_PATMACRO_BINDING; struct MELT_STRING_STRUCT(22) dstr_1610__CLASS_PATMACRO_BINDING; struct MELT_ROUTINE_STRUCT(18) drout_1611__PATTERNEXPAND_1; struct MELT_CLOSURE_STRUCT(0) dclo_1612__PATTERNEXPAND_1; struct MELT_OBJECT_STRUCT(3) dsym_1613__QUESTION; struct MELT_STRING_STRUCT(8) dstr_1614__QUESTION; struct meltint_st dint_1615__; struct MELT_OBJECT_STRUCT(3) dsym_1616___; struct MELT_STRING_STRUCT(1) dstr_1617__; struct meltint_st dint_1618__; struct meltint_st dint_1619__; struct meltint_st dint_1620__; struct MELT_ROUTINE_STRUCT(8) drout_1621__MACROEXPAND_TOPLEVEL_LIST; struct MELT_CLOSURE_STRUCT(0) dclo_1622__MACROEXPAND_TOPLEVEL_LIST; struct MELT_ROUTINE_STRUCT(21) drout_1623__LAMBDA_ARG_BINDINGS; struct MELT_CLOSURE_STRUCT(0) dclo_1624__LAMBDA_ARG_BINDINGS; struct MELT_OBJECT_STRUCT(3) dsym_1625__DISCR_FORMAL_SEQUENCE; struct MELT_STRING_STRUCT(21) dstr_1626__DISCR_FORMAL_SEQUENCE; struct MELT_OBJECT_STRUCT(3) dsym_1627__CTYPE_VALUE; struct MELT_STRING_STRUCT(11) dstr_1628__CTYPE_VALUE; struct MELT_OBJECT_STRUCT(3) dsym_1629__REST; struct MELT_STRING_STRUCT(4) dstr_1630__REST; struct MELT_OBJECT_STRUCT(3) dsym_1631__DISCR_VARIADIC_FORMAL_SEQUENCE; struct MELT_STRING_STRUCT(30) dstr_1632__DISCR_VARIADIC_FORMAL_SE; struct MELT_OBJECT_STRUCT(3) dsym_1633__AUTO; struct MELT_STRING_STRUCT(4) dstr_1634__AUTO; struct MELT_OBJECT_STRUCT(3) dsym_1635__CLASS_CTYPE; struct MELT_STRING_STRUCT(11) dstr_1636__CLASS_CTYPE; struct MELT_OBJECT_STRUCT(3) dsym_1637__CLASS_QUASI_CTYPE; struct MELT_STRING_STRUCT(17) dstr_1638__CLASS_QUASI_CTYPE; struct MELT_OBJECT_STRUCT(3) dsym_1639__CHECKARGS; struct MELT_STRING_STRUCT(9) dstr_1640__CHECKARGS; struct MELT_ROUTINE_STRUCT(5) drout_1641__INSTALL_INITIAL_MACRO; struct MELT_CLOSURE_STRUCT(0) dclo_1642__INSTALL_INITIAL_MACRO; struct MELT_OBJECT_STRUCT(3) dsym_1643__INITIAL_ENVIRONMENT; struct MELT_STRING_STRUCT(19) dstr_1644__INITIAL_ENVIRONMENT; struct MELT_ROUTINE_STRUCT(5) drout_1645__INSTALL_INITIAL_PATMACRO; struct MELT_CLOSURE_STRUCT(0) dclo_1646__INSTALL_INITIAL_PATMACRO; struct MELT_OBJECT_STRUCT(3) dsym_1647__WARN_SHADOW; struct MELT_STRING_STRUCT(11) dstr_1648__WARN_SHADOW; struct MELT_OBJECT_STRUCT(5) dobj_1649__WARN_SHADOW; struct MELT_MULTIPLE_STRUCT(1) dtup_1650_syWARN_SHADOW; struct MELT_MULTIPLE_STRUCT(0) dtup_1651_syWARN_SHADOW; struct MELT_STRING_STRUCT(11) dstr_1652__warn_shadow; struct MELT_STRING_STRUCT(11) dstr_1653__WARN_SHADOW; struct MELT_ROUTINE_STRUCT(4) drout_1654__WARN_IF_REDEFINED; struct MELT_CLOSURE_STRUCT(0) dclo_1655__WARN_IF_REDEFINED; struct MELT_ROUTINE_STRUCT(9) drout_1656__FLATTEN_FOR_C_CODE_EXPANSION; struct MELT_CLOSURE_STRUCT(0) dclo_1657__FLATTEN_FOR_C_CODE_EXPANSION; struct MELT_OBJECT_STRUCT(3) dsym_1658__DISCR_VERBATIM_STRING; struct MELT_STRING_STRUCT(21) dstr_1659__DISCR_VERBATIM_STRING; struct MELT_ROUTINE_STRUCT(6) drout_1660__PARSE_PAIRLIST_C_CODE_EXPANSION; struct MELT_CLOSURE_STRUCT(0) dclo_1661__PARSE_PAIRLIST_C_CODE_EXPANSION; struct MELT_ROUTINE_STRUCT(5) drout_1662__CHECK_C_EXPANSION; struct MELT_CLOSURE_STRUCT(0) dclo_1663__CHECK_C_EXPANSION; struct MELT_ROUTINE_STRUCT(2) drout_1664__MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS; struct MELT_CLOSURE_STRUCT(0) dclo_1665__MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS; struct MELT_ROUTINE_STRUCT(5) drout_1666__MELT_INVOKE_TRANSLATOR_RUNNER_MACROEXPANSIONS; struct MELT_CLOSURE_STRUCT(0) dclo_1667__MELT_INVOKE_TRANSLATOR_RUNNER_MACROEXPANSIONS; struct MELT_ROUTINE_STRUCT(25) drout_1668__MEXPAND_DEFPRIMITIVE; struct MELT_CLOSURE_STRUCT(0) dclo_1669__MEXPAND_DEFPRIMITIVE; struct MELT_OBJECT_STRUCT(3) dsym_1670__DOC; struct MELT_STRING_STRUCT(3) dstr_1671__DOC; struct MELT_OBJECT_STRUCT(3) dsym_1672__DEFPRIMITIVE; struct MELT_STRING_STRUCT(12) dstr_1673__DEFPRIMITIVE; struct MELT_ROUTINE_STRUCT(21) drout_1674__MEXPAND_DEFCITERATOR; struct MELT_CLOSURE_STRUCT(0) dclo_1675__MEXPAND_DEFCITERATOR; struct MELT_OBJECT_STRUCT(3) dsym_1676__DEFCITERATOR; struct MELT_STRING_STRUCT(12) dstr_1677__DEFCITERATOR; struct MELT_ROUTINE_STRUCT(24) drout_1678__MEXPAND_DEFCMATCHER; struct MELT_CLOSURE_STRUCT(0) dclo_1679__MEXPAND_DEFCMATCHER; struct MELT_OBJECT_STRUCT(3) dsym_1680__DEFCMATCHER; struct MELT_STRING_STRUCT(11) dstr_1681__DEFCMATCHER; struct MELT_ROUTINE_STRUCT(15) drout_1682__MEXPAND_DEFUNMATCHER; struct MELT_CLOSURE_STRUCT(0) dclo_1683__MEXPAND_DEFUNMATCHER; struct MELT_OBJECT_STRUCT(3) dsym_1684__DEFUNMATCHER; struct MELT_STRING_STRUCT(12) dstr_1685__DEFUNMATCHER; struct MELT_ROUTINE_STRUCT(18) drout_1686__MEXPAND_DEFUN; struct MELT_CLOSURE_STRUCT(0) dclo_1687__MEXPAND_DEFUN; struct MELT_OBJECT_STRUCT(3) dsym_1688__CLASS_FUNCTION_BINDING; struct MELT_STRING_STRUCT(22) dstr_1689__CLASS_FUNCTION_BINDING; struct MELT_OBJECT_STRUCT(3) dsym_1690__CHECKARG; struct MELT_STRING_STRUCT(8) dstr_1691__CHECKARG; struct MELT_OBJECT_STRUCT(3) dsym_1692__DEFUN; struct MELT_STRING_STRUCT(5) dstr_1693__DEFUN; struct MELT_ROUTINE_STRUCT(8) drout_1694__MELT_DELAYED_MACRO_EXPANDER; struct MELT_CLOSURE_STRUCT(0) dclo_1695__MELT_DELAYED_MACRO_EXPANDER; struct MELT_ROUTINE_STRUCT(33) drout_1696__MEXPAND_DEFMACRO; struct MELT_CLOSURE_STRUCT(0) dclo_1697__MEXPAND_DEFMACRO; struct MELT_ROUTINE_STRUCT(9) drout_1698__LAMBDA_; struct MELT_OBJECT_STRUCT(3) dsym_1699__DEFMACRO; struct MELT_STRING_STRUCT(8) dstr_1700__DEFMACRO; struct MELT_HOOK_STRUCT(4) dhook__1701__HOOK_MACRO_INSTALLER; struct MELT_OBJECT_STRUCT(6) dobj_1702__; struct MELT_STRING_STRUCT(20) dstr_1703__HOOK_MACRO_INSTALLER; struct MELT_OBJECT_STRUCT(3) dsym_1704__MBIND; struct MELT_STRING_STRUCT(5) dstr_1705__MBIND; struct MELT_OBJECT_STRUCT(2) dobj_1706; struct MELT_OBJECT_STRUCT(3) dsym_1707__MEXPCLOS; struct MELT_STRING_STRUCT(8) dstr_1708__MEXPCLOS; struct MELT_OBJECT_STRUCT(2) dobj_1709; struct MELT_MULTIPLE_STRUCT(2) dtup_1710___HOOK_MACRO_INSTALLER; struct MELT_MULTIPLE_STRUCT(0) dtup_1711___HOOK_MACRO_INSTALLER; struct MELT_ROUTINE_STRUCT(8) drout_1712__MEXPAND_AT_MACRO_EXPANSION; struct MELT_CLOSURE_STRUCT(0) dclo_1713__MEXPAND_AT_MACRO_EXPANSION; struct MELT_OBJECT_STRUCT(3) dsym_1714__AT_MACRO_EXPANSION; struct MELT_STRING_STRUCT(18) dstr_1715__AT_MACRO_EXPANSION; struct MELT_ROUTINE_STRUCT(13) drout_1716__MEXPAND_DEFVAR; struct MELT_CLOSURE_STRUCT(0) dclo_1717__MEXPAND_DEFVAR; struct MELT_OBJECT_STRUCT(3) dsym_1718__CLASS_VARIABLE_BINDING; struct MELT_STRING_STRUCT(22) dstr_1719__CLASS_VARIABLE_BINDING; struct MELT_OBJECT_STRUCT(3) dsym_1720__DEFVAR; struct MELT_STRING_STRUCT(6) dstr_1721__DEFVAR; struct MELT_ROUTINE_STRUCT(25) drout_1722__MEXPAND_DEFHOOK; struct MELT_CLOSURE_STRUCT(0) dclo_1723__MEXPAND_DEFHOOK; struct MELT_OBJECT_STRUCT(3) dsym_1724__SYMBOL_CNAME; struct MELT_STRING_STRUCT(12) dstr_1725__SYMBOL_CNAME; struct MELT_OBJECT_STRUCT(3) dsym_1726__PREDEF; struct MELT_STRING_STRUCT(6) dstr_1727__PREDEF; struct MELT_OBJECT_STRUCT(3) dsym_1728__VAR; struct MELT_STRING_STRUCT(3) dstr_1729__VAR; struct MELT_OBJECT_STRUCT(3) dsym_1730__DEFHOOK; struct MELT_STRING_STRUCT(7) dstr_1731__DEFHOOK; struct MELT_ROUTINE_STRUCT(21) drout_1732__MEXPAND_DEFINE; struct MELT_CLOSURE_STRUCT(0) dclo_1733__MEXPAND_DEFINE; struct MELT_OBJECT_STRUCT(3) dsym_1734__CLASS_DEFINED_VALUE_BINDING; struct MELT_STRING_STRUCT(27) dstr_1735__CLASS_DEFINED_VALUE_BIND; struct MELT_OBJECT_STRUCT(3) dsym_1736__DEFINE; struct MELT_STRING_STRUCT(6) dstr_1737__DEFINE; struct MELT_ROUTINE_STRUCT(16) drout_1738__SCAN_DEFCLASS; struct MELT_CLOSURE_STRUCT(0) dclo_1739__SCAN_DEFCLASS; struct MELT_OBJECT_STRUCT(3) dsym_1740__SUPER; struct MELT_STRING_STRUCT(5) dstr_1741__SUPER; struct MELT_OBJECT_STRUCT(3) dsym_1742__CLASS_CLASS_BINDING; struct MELT_STRING_STRUCT(19) dstr_1743__CLASS_CLASS_BINDING; struct MELT_OBJECT_STRUCT(3) dsym_1744__CLASS_CLASS; struct MELT_STRING_STRUCT(11) dstr_1745__CLASS_CLASS; struct MELT_OBJECT_STRUCT(3) dsym_1746__FIELDS; struct MELT_STRING_STRUCT(6) dstr_1747__FIELDS; struct MELT_ROUTINE_STRUCT(24) drout_1748__MEXPAND_DEFCLASS; struct MELT_CLOSURE_STRUCT(0) dclo_1749__MEXPAND_DEFCLASS; struct MELT_OBJECT_STRUCT(3) dsym_1750__DISCR_CLASS_SEQUENCE; struct MELT_STRING_STRUCT(20) dstr_1751__DISCR_CLASS_SEQUENCE; struct MELT_OBJECT_STRUCT(3) dsym_1752__DISCR_MAP_STRINGS; struct MELT_STRING_STRUCT(17) dstr_1753__DISCR_MAP_STRINGS; struct MELT_OBJECT_STRUCT(3) dsym_1754__DISCR_FIELD_SEQUENCE; struct MELT_STRING_STRUCT(20) dstr_1755__DISCR_FIELD_SEQUENCE; struct MELT_OBJECT_STRUCT(3) dsym_1756__DEFCLASS; struct MELT_STRING_STRUCT(8) dstr_1757__DEFCLASS; struct MELT_ROUTINE_STRUCT(19) drout_1758__PARSE_FIELD_ASSIGNMENT; struct MELT_CLOSURE_STRUCT(0) dclo_1759__PARSE_FIELD_ASSIGNMENT; struct MELT_OBJECT_STRUCT(3) dsym_1760__MULTIPLE_ITERATE_TEST; struct MELT_STRING_STRUCT(21) dstr_1761__MULTIPLE_ITERATE_TEST; struct MELT_ROUTINE_STRUCT(4) drout_1762__LAMBDA_; struct MELT_ROUTINE_STRUCT(23) drout_1763__MEXPAND_DEFINSTANCE; struct MELT_CLOSURE_STRUCT(0) dclo_1764__MEXPAND_DEFINSTANCE; struct MELT_OBJECT_STRUCT(3) dsym_1765__CLASS_INSTANCE_BINDING; struct MELT_STRING_STRUCT(22) dstr_1766__CLASS_INSTANCE_BINDING; struct MELT_OBJECT_STRUCT(3) dsym_1767__OBJ_NUM; struct MELT_STRING_STRUCT(7) dstr_1768__OBJ_NUM; struct MELT_OBJECT_STRUCT(3) dsym_1769__DEFINSTANCE; struct MELT_STRING_STRUCT(11) dstr_1770__DEFINSTANCE; struct MELT_ROUTINE_STRUCT(31) drout_1771__MEXPAND_DEFSELECTOR; struct MELT_CLOSURE_STRUCT(0) dclo_1772__MEXPAND_DEFSELECTOR; struct MELT_OBJECT_STRUCT(3) dsym_1773__FORMALS; struct MELT_STRING_STRUCT(7) dstr_1774__FORMALS; struct MELT_OBJECT_STRUCT(3) dsym_1775__DEFSELECTOR; struct MELT_STRING_STRUCT(11) dstr_1776__DEFSELECTOR; struct MELT_ROUTINE_STRUCT(17) drout_1777__MEXPAND_INSTANCE; struct MELT_CLOSURE_STRUCT(0) dclo_1778__MEXPAND_INSTANCE; struct MELT_ROUTINE_STRUCT(8) drout_1779__MEXPAND_LOAD; struct MELT_CLOSURE_STRUCT(0) dclo_1780__MEXPAND_LOAD; struct MELT_OBJECT_STRUCT(3) dsym_1781__LOAD; struct MELT_STRING_STRUCT(4) dstr_1782__LOAD; struct MELT_ROUTINE_STRUCT(8) drout_1783__MEXPAND_SKIP_NIL; struct MELT_CLOSURE_STRUCT(0) dclo_1784__MEXPAND_SKIP_NIL; struct MELT_OBJECT_STRUCT(3) dsym_1785__SKIP_NIL; struct MELT_STRING_STRUCT(8) dstr_1786__SKIP_NIL; struct MELT_ROUTINE_STRUCT(16) drout_1787__PARSE_FIELD_PATTERN; struct MELT_CLOSURE_STRUCT(0) dclo_1788__PARSE_FIELD_PATTERN; struct MELT_ROUTINE_STRUCT(3) drout_1789__LAMBDA_; struct MELT_ROUTINE_STRUCT(23) drout_1790__PATEXPAND_INSTANCE; struct MELT_CLOSURE_STRUCT(0) dclo_1791__PATEXPAND_INSTANCE; struct MELT_ROUTINE_STRUCT(1) drout_1792__LAMBDA_; struct MELT_ROUTINE_STRUCT(23) drout_1793__PATEXPAND_OBJECT; struct MELT_CLOSURE_STRUCT(0) dclo_1794__PATEXPAND_OBJECT; struct MELT_ROUTINE_STRUCT(1) drout_1795__LAMBDA_; struct MELT_ROUTINE_STRUCT(4) drout_1796__MEXPAND_OBJECT; struct MELT_CLOSURE_STRUCT(0) dclo_1797__MEXPAND_OBJECT; struct MELT_OBJECT_STRUCT(3) dsym_1798__OBJECT; struct MELT_STRING_STRUCT(6) dstr_1799__OBJECT; struct MELT_ROUTINE_STRUCT(12) drout_1800__EXPAND_MACROSTRING_PAIRS; struct MELT_CLOSURE_STRUCT(0) dclo_1801__EXPAND_MACROSTRING_PAIRS; struct MELT_ROUTINE_STRUCT(5) drout_1802__LAMBDA_; struct MELT_OBJECT_STRUCT(3) dsym_1803__CLASS_SEXPR_MACROSTRING; struct MELT_STRING_STRUCT(23) dstr_1804__CLASS_SEXPR_MACROSTRING; struct MELT_ROUTINE_STRUCT(7) drout_1805__MEXPAND_CODE_CHUNK; struct MELT_CLOSURE_STRUCT(0) dclo_1806__MEXPAND_CODE_CHUNK; struct MELT_OBJECT_STRUCT(3) dsym_1807__CODE_CHUNK; struct MELT_STRING_STRUCT(10) dstr_1808__CODE_CHUNK; struct MELT_ROUTINE_STRUCT(13) drout_1809__MEXPAND_EXPR_CHUNK; struct MELT_CLOSURE_STRUCT(0) dclo_1810__MEXPAND_EXPR_CHUNK; struct MELT_OBJECT_STRUCT(3) dsym_1811__EXPR_CHUNK; struct MELT_STRING_STRUCT(10) dstr_1812__EXPR_CHUNK; struct MELT_ROUTINE_STRUCT(10) drout_1813__MEXPAND_UNSAFE_PUT_FIELDS; struct MELT_CLOSURE_STRUCT(0) dclo_1814__MEXPAND_UNSAFE_PUT_FIELDS; struct MELT_OBJECT_STRUCT(3) dsym_1815__UNSAFE_PUT_FIELDS; struct MELT_STRING_STRUCT(17) dstr_1816__UNSAFE_PUT_FIELDS; struct MELT_ROUTINE_STRUCT(10) drout_1817__MEXPAND_PUT_FIELDS; struct MELT_CLOSURE_STRUCT(0) dclo_1818__MEXPAND_PUT_FIELDS; struct MELT_OBJECT_STRUCT(3) dsym_1819__PUT_FIELDS; struct MELT_STRING_STRUCT(10) dstr_1820__PUT_FIELDS; struct MELT_ROUTINE_STRUCT(7) drout_1821__MEXPAND_UNSAFE_GET_FIELD; struct MELT_CLOSURE_STRUCT(0) dclo_1822__MEXPAND_UNSAFE_GET_FIELD; struct MELT_ROUTINE_STRUCT(7) drout_1823__MEXPAND_GET_FIELD; struct MELT_CLOSURE_STRUCT(0) dclo_1824__MEXPAND_GET_FIELD; struct MELT_ROUTINE_STRUCT(5) drout_1825__PAIRLIST_TO_PROGN; struct MELT_CLOSURE_STRUCT(0) dclo_1826__PAIRLIST_TO_PROGN; struct MELT_ROUTINE_STRUCT(6) drout_1827__MEXPAND_SETQ; struct MELT_CLOSURE_STRUCT(0) dclo_1828__MEXPAND_SETQ; struct MELT_ROUTINE_STRUCT(7) drout_1829__MEXPAND_IF; struct MELT_CLOSURE_STRUCT(0) dclo_1830__MEXPAND_IF; struct MELT_OBJECT_STRUCT(3) dsym_1831__IF; struct MELT_STRING_STRUCT(2) dstr_1832__IF; struct MELT_ROUTINE_STRUCT(7) drout_1833__MEXPAND_WHEN; struct MELT_CLOSURE_STRUCT(0) dclo_1834__MEXPAND_WHEN; struct MELT_OBJECT_STRUCT(3) dsym_1835__WHEN; struct MELT_STRING_STRUCT(4) dstr_1836__WHEN; struct MELT_ROUTINE_STRUCT(7) drout_1837__MEXPAND_UNLESS; struct MELT_CLOSURE_STRUCT(0) dclo_1838__MEXPAND_UNLESS; struct MELT_OBJECT_STRUCT(3) dsym_1839__UNLESS; struct MELT_STRING_STRUCT(6) dstr_1840__UNLESS; struct MELT_ROUTINE_STRUCT(25) drout_1841__MEXPAND_WITH_CLONED_SYMB; struct MELT_CLOSURE_STRUCT(0) dclo_1842__MEXPAND_WITH_CLONED_SYMB; struct MELT_ROUTINE_STRUCT(13) drout_1843__LAMBDA_; struct MELT_OBJECT_STRUCT(3) dsym_1844__CLONE_SYMBOL; struct MELT_STRING_STRUCT(12) dstr_1845__CLONE_SYMBOL; struct MELT_OBJECT_STRUCT(3) dsym_1846__MULTIPLE_TO_LIST; struct MELT_STRING_STRUCT(16) dstr_1847__MULTIPLE_TO_LIST; struct MELT_OBJECT_STRUCT(3) dsym_1848__WITH_CLONED_SYMB; struct MELT_STRING_STRUCT(16) dstr_1849__WITH_CLONED_SYMB; struct MELT_ROUTINE_STRUCT(7) drout_1850__MEXPAND_CPPIF; struct MELT_CLOSURE_STRUCT(0) dclo_1851__MEXPAND_CPPIF; struct MELT_OBJECT_STRUCT(3) dsym_1852__CPPIF; struct MELT_STRING_STRUCT(5) dstr_1853__CPPIF; struct MELT_ROUTINE_STRUCT(12) drout_1854__MEXPAND_COND; struct MELT_CLOSURE_STRUCT(0) dclo_1855__MEXPAND_COND; struct MELT_ROUTINE_STRUCT(1) drout_1856__LAMBDA_; struct MELT_ROUTINE_STRUCT(7) drout_1857__MEXPAND_AND; struct MELT_CLOSURE_STRUCT(0) dclo_1858__MEXPAND_AND; struct MELT_ROUTINE_STRUCT(11) drout_1859__PATEXPAND_AS; struct MELT_CLOSURE_STRUCT(0) dclo_1860__PATEXPAND_AS; struct MELT_ROUTINE_STRUCT(4) drout_1861__MEXPAND_AS; struct MELT_CLOSURE_STRUCT(0) dclo_1862__MEXPAND_AS; struct MELT_OBJECT_STRUCT(3) dsym_1863__AS; struct MELT_STRING_STRUCT(2) dstr_1864__AS; struct MELT_ROUTINE_STRUCT(5) drout_1865__PATEXPAND_WHEN; struct MELT_CLOSURE_STRUCT(0) dclo_1866__PATEXPAND_WHEN; struct MELT_ROUTINE_STRUCT(9) drout_1867__PATEXPAND_AND; struct MELT_CLOSURE_STRUCT(0) dclo_1868__PATEXPAND_AND; struct MELT_ROUTINE_STRUCT(7) drout_1869__MEXPAND_OR; struct MELT_CLOSURE_STRUCT(0) dclo_1870__MEXPAND_OR; struct MELT_ROUTINE_STRUCT(9) drout_1871__PATEXPAND_OR; struct MELT_CLOSURE_STRUCT(0) dclo_1872__PATEXPAND_OR; struct MELT_OBJECT_STRUCT(3) dsym_1873__OR; struct MELT_STRING_STRUCT(2) dstr_1874__OR; struct MELT_ROUTINE_STRUCT(16) drout_1875__MEXPAND_REFERENCE; struct MELT_CLOSURE_STRUCT(0) dclo_1876__MEXPAND_REFERENCE; struct MELT_OBJECT_STRUCT(3) dsym_1877__CLASS_FIELDS; struct MELT_STRING_STRUCT(12) dstr_1878__CLASS_FIELDS; struct MELT_OBJECT_STRUCT(3) dsym_1879__REFERENCED_VALUE; struct MELT_STRING_STRUCT(16) dstr_1880__REFERENCED_VALUE; struct MELT_ROUTINE_STRUCT(11) drout_1881__PATEXPAND_REFERENCE; struct MELT_CLOSURE_STRUCT(0) dclo_1882__PATEXPAND_REFERENCE; struct meltint_st dint_1883__; struct MELT_OBJECT_STRUCT(3) dsym_1884__REFERENCE; struct MELT_STRING_STRUCT(9) dstr_1885__REFERENCE; struct MELT_ROUTINE_STRUCT(14) drout_1886__MEXPAND_DEREF; struct MELT_CLOSURE_STRUCT(0) dclo_1887__MEXPAND_DEREF; struct MELT_OBJECT_STRUCT(3) dsym_1888__REFERENCED_VALUE; struct MELT_STRING_STRUCT(16) dstr_1889__REFERENCED_VALUE; struct MELT_OBJECT_STRUCT(3) dsym_1890__DEREF; struct MELT_STRING_STRUCT(5) dstr_1891__DEREF; struct MELT_ROUTINE_STRUCT(5) drout_1892__MEXPANDOBSOLETE_CONTENT; struct MELT_CLOSURE_STRUCT(0) dclo_1893__MEXPANDOBSOLETE_CONTENT; struct MELT_OBJECT_STRUCT(3) dsym_1894__CONTENT; struct MELT_STRING_STRUCT(7) dstr_1895__CONTENT; struct MELT_OBJECT_STRUCT(3) dsym_1896__EXCLAIM; struct MELT_STRING_STRUCT(7) dstr_1897__EXCLAIM; struct MELT_ROUTINE_STRUCT(15) drout_1898__MEXPAND_SET_REF; struct MELT_CLOSURE_STRUCT(0) dclo_1899__MEXPAND_SET_REF; struct MELT_OBJECT_STRUCT(3) dsym_1900__SET_REF; struct MELT_STRING_STRUCT(7) dstr_1901__SET_REF; struct MELT_ROUTINE_STRUCT(8) drout_1902__MEXPAND_PLUS; struct MELT_CLOSURE_STRUCT(0) dclo_1903__MEXPAND_PLUS; struct meltint_st dint_1904__; struct MELT_OBJECT_STRUCT(3) dsym_1905__plI; struct MELT_STRING_STRUCT(2) dstr_1906__I; struct MELT_ROUTINE_STRUCT(8) drout_1907__MEXPAND_MINUS; struct MELT_CLOSURE_STRUCT(0) dclo_1908__MEXPAND_MINUS; struct meltint_st dint_1909__; struct MELT_OBJECT_STRUCT(3) dsym_1910__miI; struct MELT_STRING_STRUCT(2) dstr_1911__I; struct MELT_OBJECT_STRUCT(3) dsym_1912__mi; struct MELT_STRING_STRUCT(1) dstr_1913__; struct MELT_ROUTINE_STRUCT(8) drout_1914__MEXPAND_TIMES; struct MELT_CLOSURE_STRUCT(0) dclo_1915__MEXPAND_TIMES; struct meltint_st dint_1916__; struct MELT_OBJECT_STRUCT(3) dsym_1917__stI; struct MELT_STRING_STRUCT(2) dstr_1918__I; struct MELT_OBJECT_STRUCT(3) dsym_1919__st; struct MELT_STRING_STRUCT(1) dstr_1920__; struct MELT_ROUTINE_STRUCT(8) drout_1921__MEXPAND_DIV; struct MELT_CLOSURE_STRUCT(0) dclo_1922__MEXPAND_DIV; struct meltint_st dint_1923__; struct MELT_OBJECT_STRUCT(3) dsym_1924__diI; struct MELT_STRING_STRUCT(2) dstr_1925__I; struct MELT_OBJECT_STRUCT(3) dsym_1926__di; struct MELT_STRING_STRUCT(1) dstr_1927__; struct MELT_ROUTINE_STRUCT(6) drout_1928__MEXPAND_TUPLE; struct MELT_CLOSURE_STRUCT(0) dclo_1929__MEXPAND_TUPLE; struct MELT_ROUTINE_STRUCT(7) drout_1930__PATEXPAND_TUPLE; struct MELT_CLOSURE_STRUCT(0) dclo_1931__PATEXPAND_TUPLE; struct MELT_OBJECT_STRUCT(3) dsym_1932__TUPLE; struct MELT_STRING_STRUCT(5) dstr_1933__TUPLE; struct MELT_ROUTINE_STRUCT(6) drout_1934__MEXPAND_LIST; struct MELT_CLOSURE_STRUCT(0) dclo_1935__MEXPAND_LIST; struct MELT_ROUTINE_STRUCT(7) drout_1936__PATEXPAND_LIST; struct MELT_CLOSURE_STRUCT(0) dclo_1937__PATEXPAND_LIST; struct MELT_OBJECT_STRUCT(3) dsym_1938__LIST; struct MELT_STRING_STRUCT(4) dstr_1939__LIST; struct MELT_ROUTINE_STRUCT(18) drout_1940__MEXPAND_MATCH; struct MELT_CLOSURE_STRUCT(0) dclo_1941__MEXPAND_MATCH; struct MELT_ROUTINE_STRUCT(1) drout_1942__LAMBDA_; struct MELT_OBJECT_STRUCT(3) dsym_1943__MATCH; struct MELT_STRING_STRUCT(5) dstr_1944__MATCH; struct MELT_ROUTINE_STRUCT(18) drout_1945__MEXPAND_MATCHALT; struct MELT_CLOSURE_STRUCT(0) dclo_1946__MEXPAND_MATCHALT; struct MELT_ROUTINE_STRUCT(1) drout_1947__LAMBDA_; struct MELT_OBJECT_STRUCT(3) dsym_1948__MATCHALT; struct MELT_STRING_STRUCT(8) dstr_1949__MATCHALT; struct MELT_ROUTINE_STRUCT(28) drout_1950__MEXPAND_LETBINDING; struct MELT_CLOSURE_STRUCT(0) dclo_1951__MEXPAND_LETBINDING; struct MELT_OBJECT_STRUCT(3) dsym_1952__QUASI_CTYPE_AUTO; struct MELT_STRING_STRUCT(16) dstr_1953__QUASI_CTYPE_AUTO; struct MELT_OBJECT_STRUCT(3) dsym_1954__QUASI_CTYPE_MACRO; struct MELT_STRING_STRUCT(17) dstr_1955__QUASI_CTYPE_MACRO; struct MELT_OBJECT_STRUCT(3) dsym_1956__CLASS_FIXED_BINDING; struct MELT_STRING_STRUCT(19) dstr_1957__CLASS_FIXED_BINDING; struct MELT_ROUTINE_STRUCT(37) drout_1958__MEXPAND_LET; struct MELT_CLOSURE_STRUCT(0) dclo_1959__MEXPAND_LET; struct MELT_OBJECT_STRUCT(3) dsym_1960__EXPAND; struct MELT_STRING_STRUCT(6) dstr_1961__EXPAND; struct MELT_ROUTINE_STRUCT(8) drout_1962__LAMBDA_; struct MELT_ROUTINE_STRUCT(1) drout_1963__YES_RECURSIVELY_CONSTRUCTIBLE; struct MELT_CLOSURE_STRUCT(0) dclo_1964__YES_RECURSIVELY_CONSTRUCTIBLE; struct MELT_OBJECT_STRUCT(3) dsym_1965__INSTALL_METHOD; struct MELT_STRING_STRUCT(14) dstr_1966__INSTALL_METHOD; struct MELT_ROUTINE_STRUCT(24) drout_1967__MEXPAND_LETREC; struct MELT_CLOSURE_STRUCT(0) dclo_1968__MEXPAND_LETREC; struct MELT_OBJECT_STRUCT(3) dsym_1969__CLASS_LETREC_BINDING; struct MELT_STRING_STRUCT(20) dstr_1970__CLASS_LETREC_BINDING; struct MELT_ROUTINE_STRUCT(1) drout_1971__LAMBDA_; struct MELT_OBJECT_STRUCT(3) dsym_1972__LETREC; struct MELT_STRING_STRUCT(6) dstr_1973__LETREC; struct MELT_ROUTINE_STRUCT(11) drout_1974__MEXPAND_LAMBDA; struct MELT_CLOSURE_STRUCT(0) dclo_1975__MEXPAND_LAMBDA; struct MELT_OBJECT_STRUCT(3) dsym_1976__LAMBDA; struct MELT_STRING_STRUCT(6) dstr_1977__LAMBDA; struct MELT_ROUTINE_STRUCT(24) drout_1978__MEXPAND_VARIADIC; struct MELT_CLOSURE_STRUCT(0) dclo_1979__MEXPAND_VARIADIC; struct MELT_ROUTINE_STRUCT(2) drout_1980__LAMBDA_; struct MELT_ROUTINE_STRUCT(2) drout_1981__LAMBDA_; struct MELT_ROUTINE_STRUCT(15) drout_1982__MEXPAND_MULTICALL; struct MELT_CLOSURE_STRUCT(0) dclo_1983__MEXPAND_MULTICALL; struct MELT_OBJECT_STRUCT(3) dsym_1984__MULTIPLE_EVERY; struct MELT_STRING_STRUCT(14) dstr_1985__MULTIPLE_EVERY; struct MELT_ROUTINE_STRUCT(1) drout_1986__LAMBDA_; struct MELT_OBJECT_STRUCT(3) dsym_1987__MULTICALL; struct MELT_STRING_STRUCT(9) dstr_1988__MULTICALL; struct MELT_ROUTINE_STRUCT(5) drout_1989__MEXPAND_BOX; struct MELT_CLOSURE_STRUCT(0) dclo_1990__MEXPAND_BOX; struct MELT_ROUTINE_STRUCT(5) drout_1991__MEXPAND_CONSTANT_BOX; struct MELT_CLOSURE_STRUCT(0) dclo_1992__MEXPAND_CONSTANT_BOX; struct MELT_ROUTINE_STRUCT(8) drout_1993__MEXPAND_UNBOX; struct MELT_CLOSURE_STRUCT(0) dclo_1994__MEXPAND_UNBOX; struct MELT_OBJECT_STRUCT(3) dsym_1995__UNBOX; struct MELT_STRING_STRUCT(5) dstr_1996__UNBOX; struct MELT_ROUTINE_STRUCT(4) drout_1997__MEXPAND_COMMENT; struct MELT_CLOSURE_STRUCT(0) dclo_1998__MEXPAND_COMMENT; struct MELT_OBJECT_STRUCT(3) dsym_1999__COMMENT; struct MELT_STRING_STRUCT(7) dstr_2000__COMMENT; struct MELT_ROUTINE_STRUCT(11) drout_2001__MEXPAND_CHEADER; struct MELT_CLOSURE_STRUCT(0) dclo_2002__MEXPAND_CHEADER; struct MELT_OBJECT_STRUCT(3) dsym_2003__CHEADER; struct MELT_STRING_STRUCT(7) dstr_2004__CHEADER; struct MELT_ROUTINE_STRUCT(10) drout_2005__MEXPAND_CIMPLEMENT; struct MELT_CLOSURE_STRUCT(0) dclo_2006__MEXPAND_CIMPLEMENT; struct MELT_OBJECT_STRUCT(3) dsym_2007__CIMPLEMENT; struct MELT_STRING_STRUCT(10) dstr_2008__CIMPLEMENT; struct MELT_ROUTINE_STRUCT(12) drout_2009__MEXPAND_MODULE_IS_GPL_COMPATIBLE; struct MELT_CLOSURE_STRUCT(0) dclo_2010__MEXPAND_MODULE_IS_GPL_COMPATIBLE; struct MELT_OBJECT_STRUCT(3) dsym_2011__MODULE_IS_GPL_COMPATIBLE; struct MELT_STRING_STRUCT(24) dstr_2012__MODULE_IS_GPL_COMPATIBLE; struct MELT_ROUTINE_STRUCT(10) drout_2013__MEXPAND_USE_PACKAGE_FROM_PKG_CONFIG; struct MELT_CLOSURE_STRUCT(0) dclo_2014__MEXPAND_USE_PACKAGE_FROM_PKG_CONFIG; struct MELT_OBJECT_STRUCT(3) dsym_2015__USE_PACKAGE_FROM_PKG_CONFIG; struct MELT_STRING_STRUCT(27) dstr_2016__USE_PACKAGE_FROM_PKG_CON; struct MELT_OBJECT_STRUCT(3) dsym_2017__USEmiPACKAGEmiFROMmiPKGmiCONFIG; struct MELT_STRING_STRUCT(27) dstr_2018__USE_PACKAGE_FROM_PKG_CON; struct MELT_ROUTINE_STRUCT(4) drout_2019__PAIRLIST_TO_RETURN; struct MELT_CLOSURE_STRUCT(0) dclo_2020__PAIRLIST_TO_RETURN; struct MELT_ROUTINE_STRUCT(4) drout_2021__MEXPAND_PROGN; struct MELT_CLOSURE_STRUCT(0) dclo_2022__MEXPAND_PROGN; struct MELT_OBJECT_STRUCT(3) dsym_2023__PROGN; struct MELT_STRING_STRUCT(5) dstr_2024__PROGN; struct MELT_ROUTINE_STRUCT(4) drout_2025__MEXPAND_RETURN; struct MELT_CLOSURE_STRUCT(0) dclo_2026__MEXPAND_RETURN; struct MELT_OBJECT_STRUCT(3) dsym_2027__RETURN; struct MELT_STRING_STRUCT(6) dstr_2028__RETURN; struct MELT_ROUTINE_STRUCT(9) drout_2029__MEXPAND_FOREVER; struct MELT_CLOSURE_STRUCT(0) dclo_2030__MEXPAND_FOREVER; struct MELT_OBJECT_STRUCT(3) dsym_2031__CLASS_LABEL_BINDING; struct MELT_STRING_STRUCT(19) dstr_2032__CLASS_LABEL_BINDING; struct MELT_ROUTINE_STRUCT(10) drout_2033__MEXPAND_EXIT; struct MELT_CLOSURE_STRUCT(0) dclo_2034__MEXPAND_EXIT; struct MELT_ROUTINE_STRUCT(8) drout_2035__MEXPAND_AGAIN; struct MELT_CLOSURE_STRUCT(0) dclo_2036__MEXPAND_AGAIN; struct MELT_OBJECT_STRUCT(3) dsym_2037__AGAIN; struct MELT_STRING_STRUCT(5) dstr_2038__AGAIN; struct MELT_ROUTINE_STRUCT(6) drout_2039__MEXPAND_COMPILE_WARNING; struct MELT_CLOSURE_STRUCT(0) dclo_2040__MEXPAND_COMPILE_WARNING; struct MELT_OBJECT_STRUCT(3) dsym_2041__COMPILE_WARNING; struct MELT_STRING_STRUCT(15) dstr_2042__COMPILE_WARNING; struct MELT_ROUTINE_STRUCT(6) drout_2043__MEXPAND_COMPILE_ERROR; struct MELT_CLOSURE_STRUCT(0) dclo_2044__MEXPAND_COMPILE_ERROR; struct MELT_OBJECT_STRUCT(3) dsym_2045__COMPILE_ERROR; struct MELT_STRING_STRUCT(13) dstr_2046__COMPILE_ERROR; struct MELT_ROUTINE_STRUCT(21) drout_2047__MEXPAND_ASSERT_MSG; struct MELT_CLOSURE_STRUCT(0) dclo_2048__MEXPAND_ASSERT_MSG; struct MELT_OBJECT_STRUCT(3) dsym_2049__FIND_ENV_DEBUG; struct MELT_STRING_STRUCT(14) dstr_2050__FIND_ENV_DEBUG; struct MELT_STRING_STRUCT(17) dstr_2051__MELT_HAVE_DEBUG_0; struct MELT_ROUTINE_STRUCT(4) drout_2052__MEXPAND_THIS_LINE; struct MELT_CLOSURE_STRUCT(0) dclo_2053__MEXPAND_THIS_LINE; struct MELT_OBJECT_STRUCT(3) dsym_2054__THIS_LINE; struct MELT_STRING_STRUCT(9) dstr_2055__THIS_LINE; struct MELT_ROUTINE_STRUCT(4) drout_2056__MEXPAND_THIS_FILE; struct MELT_CLOSURE_STRUCT(0) dclo_2057__MEXPAND_THIS_FILE; struct MELT_OBJECT_STRUCT(3) dsym_2058__THIS_FILE; struct MELT_STRING_STRUCT(9) dstr_2059__THIS_FILE; struct MELT_ROUTINE_STRUCT(29) drout_2060__MEXPAND_DEBUG; struct MELT_CLOSURE_STRUCT(0) dclo_2061__MEXPAND_DEBUG; struct MELT_OBJECT_STRUCT(3) dsym_2062__MELT_CALLCOUNT; struct MELT_STRING_STRUCT(14) dstr_2063__MELT_CALLCOUNT; struct MELT_OBJECT_STRUCT(3) dsym_2064__MELT_NEED_DBG; struct MELT_STRING_STRUCT(13) dstr_2065__MELT_NEED_DBG; struct MELT_OBJECT_STRUCT(3) dsym_2066__MELT_INCREMENT_DBGCOUNTER; struct MELT_STRING_STRUCT(25) dstr_2067__MELT_INCREMENT_DBGCOUNTE; struct meltint_st dint_2068__; struct MELT_STRING_STRUCT(17) dstr_2069__MELT_HAVE_DEBUG_0; struct MELT_OBJECT_STRUCT(3) dsym_2070__DEBUG; struct MELT_STRING_STRUCT(5) dstr_2071__DEBUG; struct MELT_ROUTINE_STRUCT(8) drout_2072__MEXPAND_EXPORT_VALUES; struct MELT_CLOSURE_STRUCT(0) dclo_2073__MEXPAND_EXPORT_VALUES; struct MELT_OBJECT_STRUCT(3) dsym_2074__EXPORT_VALUES; struct MELT_STRING_STRUCT(13) dstr_2075__EXPORT_VALUES; struct MELT_ROUTINE_STRUCT(12) drout_2076__MEXPAND_EXPORT_MACRO; struct MELT_CLOSURE_STRUCT(0) dclo_2077__MEXPAND_EXPORT_MACRO; struct MELT_OBJECT_STRUCT(3) dsym_2078__EXPORT_MACRO; struct MELT_STRING_STRUCT(12) dstr_2079__EXPORT_MACRO; struct MELT_ROUTINE_STRUCT(7) drout_2080__MEXPAND_EXPORT_PATMACRO; struct MELT_CLOSURE_STRUCT(0) dclo_2081__MEXPAND_EXPORT_PATMACRO; struct MELT_OBJECT_STRUCT(3) dsym_2082__EXPORT_PATMACRO; struct MELT_STRING_STRUCT(15) dstr_2083__EXPORT_PATMACRO; struct MELT_ROUTINE_STRUCT(9) drout_2084__MEXPAND_EXPORT_CLASS; struct MELT_CLOSURE_STRUCT(0) dclo_2085__MEXPAND_EXPORT_CLASS; struct MELT_OBJECT_STRUCT(3) dsym_2086__EXPORT_CLASS; struct MELT_STRING_STRUCT(12) dstr_2087__EXPORT_CLASS; struct MELT_ROUTINE_STRUCT(8) drout_2088__MEXPAND_EXPORT_SYNONYM; struct MELT_CLOSURE_STRUCT(0) dclo_2089__MEXPAND_EXPORT_SYNONYM; struct MELT_OBJECT_STRUCT(3) dsym_2090__EXPORT_SYNONYM; struct MELT_STRING_STRUCT(14) dstr_2091__EXPORT_SYNONYM; struct MELT_ROUTINE_STRUCT(5) drout_2092__MEXPAND_CURRENT_MODULE_ENVIRONMENT_REFERENCE; struct MELT_CLOSURE_STRUCT(0) dclo_2093__MEXPAND_CURRENT_MODULE_ENVIRONMENT_REFERENCE; struct MELT_OBJECT_STRUCT(3) dsym_2094__CURRENT_MODULE_ENVIRONMENT_REFERENCE; struct MELT_STRING_STRUCT(36) dstr_2095__CURRENT_MODULE_ENVIRONME; struct MELT_OBJECT_STRUCT(3) dsym_2096__CURRENT_MODULE_ENVIRONMENT_CONTAINER; struct MELT_STRING_STRUCT(36) dstr_2097__CURRENT_MODULE_ENVIRONME; struct MELT_ROUTINE_STRUCT(6) drout_2098__MEXPAND_PARENT_MODULE_ENVIRONMENT; struct MELT_CLOSURE_STRUCT(0) dclo_2099__MEXPAND_PARENT_MODULE_ENVIRONMENT; struct MELT_OBJECT_STRUCT(3) dsym_2100__PARENT_MODULE_ENVIRONMENT; struct MELT_STRING_STRUCT(25) dstr_2101__PARENT_MODULE_ENVIRONMEN; struct MELT_ROUTINE_STRUCT(5) drout_2102__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE; struct MELT_CLOSURE_STRUCT(0) dclo_2103__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE; struct MELT_OBJECT_STRUCT(3) dsym_2104__UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE; struct MELT_STRING_STRUCT(43) dstr_2105__UPDATE_CURRENT_MODULE_EN; struct MELT_OBJECT_STRUCT(3) dsym_2106__UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; struct MELT_STRING_STRUCT(43) dstr_2107__UPDATE_CURRENT_MODULE_EN; struct MELT_ROUTINE_STRUCT(7) drout_2108__MEXPAND_FETCH_PREDEFINED; struct MELT_CLOSURE_STRUCT(0) dclo_2109__MEXPAND_FETCH_PREDEFINED; struct MELT_OBJECT_STRUCT(3) dsym_2110__FETCH_PREDEFINED; struct MELT_STRING_STRUCT(16) dstr_2111__FETCH_PREDEFINED; struct MELT_ROUTINE_STRUCT(7) drout_2112__MEXPAND_STORE_PREDEFINED; struct MELT_CLOSURE_STRUCT(0) dclo_2113__MEXPAND_STORE_PREDEFINED; struct MELT_OBJECT_STRUCT(3) dsym_2114__STORE_PREDEFINED; struct MELT_STRING_STRUCT(16) dstr_2115__STORE_PREDEFINED; struct MELT_OBJECT_STRUCT(3) dsym_2116__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; struct MELT_STRING_STRUCT(56) dstr_2117__CLASS_SOURCE_UPDATE_CURR; struct MELT_OBJECT_STRUCT(3) dsym_2118__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; struct MELT_STRING_STRUCT(49) dstr_2119__CLASS_SOURCE_CURRENT_MOD; struct MELT_OBJECT_STRUCT(3) dsym_2120__EXPAND_APPLY; struct MELT_STRING_STRUCT(12) dstr_2121__EXPAND_APPLY; struct MELT_OBJECT_STRUCT(3) dsym_2122__EXPAND_MSEND; struct MELT_STRING_STRUCT(12) dstr_2123__EXPAND_MSEND; struct MELT_OBJECT_STRUCT(3) dsym_2124__EXPAND_PAIRLIST_AS_TUPLE; struct MELT_STRING_STRUCT(24) dstr_2125__EXPAND_PAIRLIST_AS_TUPLE; struct MELT_OBJECT_STRUCT(3) dsym_2126__EXPAND_PAIRLIST_AS_LIST; struct MELT_STRING_STRUCT(23) dstr_2127__EXPAND_PAIRLIST_AS_LIST; struct MELT_OBJECT_STRUCT(3) dsym_2128__EXPAND_RESTLIST_AS_LIST; struct MELT_STRING_STRUCT(23) dstr_2129__EXPAND_RESTLIST_AS_LIST; struct MELT_OBJECT_STRUCT(3) dsym_2130__EXPAND_RESTLIST_AS_TUPLE; struct MELT_STRING_STRUCT(24) dstr_2131__EXPAND_RESTLIST_AS_TUPLE; struct MELT_OBJECT_STRUCT(3) dsym_2132__EXPAND_TUPLE_SLICE_AS_TUPLE; struct MELT_STRING_STRUCT(27) dstr_2133__EXPAND_TUPLE_SLICE_AS_TU; struct MELT_OBJECT_STRUCT(3) dsym_2134__EXPAND_PRIMITIVE; struct MELT_STRING_STRUCT(16) dstr_2135__EXPAND_PRIMITIVE; struct MELT_OBJECT_STRUCT(3) dsym_2136__HOOK_MACRO_INSTALLER; struct MELT_STRING_STRUCT(20) dstr_2137__HOOK_MACRO_INSTALLER; struct MELT_OBJECT_STRUCT(3) dsym_2138__INSTALL_INITIAL_MACRO; struct MELT_STRING_STRUCT(21) dstr_2139__INSTALL_INITIAL_MACRO; struct MELT_OBJECT_STRUCT(3) dsym_2140__INSTALL_INITIAL_PATMACRO; struct MELT_STRING_STRUCT(24) dstr_2141__INSTALL_INITIAL_PATMACRO; struct MELT_OBJECT_STRUCT(3) dsym_2142__INSTALL_GLOBAL_DEFINITION_BINDING; struct MELT_STRING_STRUCT(33) dstr_2143__INSTALL_GLOBAL_DEFINITIO; struct MELT_OBJECT_STRUCT(3) dsym_2144__LAMBDA_ARG_BINDINGS; struct MELT_STRING_STRUCT(19) dstr_2145__LAMBDA_ARG_BINDINGS; struct MELT_OBJECT_STRUCT(3) dsym_2146__MACROEXPAND_1; struct MELT_STRING_STRUCT(13) dstr_2147__MACROEXPAND_1; struct MELT_OBJECT_STRUCT(3) dsym_2148__MACROEXPAND_TOPLEVEL_LIST; struct MELT_STRING_STRUCT(25) dstr_2149__MACROEXPAND_TOPLEVEL_LIS; struct MELT_OBJECT_STRUCT(3) dsym_2150__MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS; struct MELT_STRING_STRUCT(47) dstr_2151__MELT_REGISTER_TRANSLATOR; struct MELT_OBJECT_STRUCT(3) dsym_2152__PATMACEXPAND_FOR_MATCHER; struct MELT_STRING_STRUCT(24) dstr_2153__PATMACEXPAND_FOR_MATCHER; struct MELT_OBJECT_STRUCT(3) dsym_2154__PATTERNEXPAND_1; struct MELT_STRING_STRUCT(15) dstr_2155__PATTERNEXPAND_1; struct MELT_OBJECT_STRUCT(3) dsym_2156__PATTERNEXPAND_EXPR; struct MELT_STRING_STRUCT(18) dstr_2157__PATTERNEXPAND_EXPR; struct MELT_OBJECT_STRUCT(3) dsym_2158__PATTERNEXPAND_PAIRLIST_AS_TUPLE; struct MELT_STRING_STRUCT(31) dstr_2159__PATTERNEXPAND_PAIRLIST_A; struct MELT_OBJECT_STRUCT(3) dsym_2160__PATTERN_WEIGHT_TUPLE; struct MELT_STRING_STRUCT(20) dstr_2161__PATTERN_WEIGHT_TUPLE; struct MELT_OBJECT_STRUCT(3) dsym_2162__REGISTER_GENERATOR_DEVICE; struct MELT_STRING_STRUCT(25) dstr_2163__REGISTER_GENERATOR_DEVIC; struct MELT_OBJECT_STRUCT(3) dsym_2164__S_EXPR_WEIGHT; struct MELT_STRING_STRUCT(13) dstr_2165__S_EXPR_WEIGHT; struct MELT_OBJECT_STRUCT(3) dsym_2166__MEXPAND_REFERENCE; struct MELT_STRING_STRUCT(17) dstr_2167__MEXPAND_REFERENCE; struct MELT_OBJECT_STRUCT(3) dsym_2168__PATEXPAND_REFERENCE; struct MELT_STRING_STRUCT(19) dstr_2169__PATEXPAND_REFERENCE; long spare_; } *meltcdat = NULL; melt_dumprintf ("start melt_initialize_module_meltdata_WARMELTmiMACRO iniframp__=%p", (void*) iniframp__); melt_debugeprintf("starting melt_initialize_module_meltdata_WARMELTmiMACRO iniframp__=%p", (void*) iniframp__); melt_debuggc_eprintf ("beginning melt_initialize_module_meltdata_WARMELTmiMACRO iniframp__=%p", (void*) iniframp__); (void) meltpredefinited; /* avoid warning if non-used. */ /*curframe_cdat_fill */ meltcdat = (struct meltcdata_st*) meltgc_allocate(sizeof(*meltcdat),0); melt_prohibit_garbcoll = TRUE; /*initial routine predef*/ /*inipredefhook dhook__1701__HOOK_MACRO_INSTALLER */ if (!MELT_PREDEF(HOOK_MACRO_INSTALLER)) MELT_STORE_PREDEF(HOOK_MACRO_INSTALLER, (melt_ptr_t)& meltcdat->dhook__1701__HOOK_MACRO_INSTALLER) ; else { MELTPREDEFIX(meltpredefinited,HOOK_MACRO_INSTALLER) = 1 ; fnotice(stderr, "MELT: predefined hook %s already defined <%s:%d>\n", "HOOK_MACRO_INSTALLER", __FILE__, __LINE__) ; } ; /*initial routine fill*/ /*iniobj dsym_1__HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER*/ /*uniqueobj*/ if (!/*_._VALDATA___V95*/ meltfptr[94]) /*_._VALDATA___V95*/ meltfptr[94] = (melt_ptr_t )&meltcdat->dsym_1__HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1__HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1__HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1__HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1__HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER.obj_hash = 824058733; meltcdat->dsym_1__HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER.obj_len = 3; /*inistring dstr_2__HOOK_FRESH_ENVIRONMENT_R*/ /*_._VALSTR___V96*/ meltfptr[95] = (melt_ptr_t) &meltcdat->dstr_2__HOOK_FRESH_ENVIRONMENT_R; meltcdat->dstr_2__HOOK_FRESH_ENVIRONMENT_R.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_2__HOOK_FRESH_ENVIRONMENT_R.val, "HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER", sizeof (meltcdat->dstr_2__HOOK_FRESH_ENVIRONMENT_R.val)-1); meltcdat->dstr_2__HOOK_FRESH_ENVIRONMENT_R.val[38] = (char)0 ; meltcdat->dstr_2__HOOK_FRESH_ENVIRONMENT_R.slen = 38 ; /*inirout drout_3__REGISTER_DIAG_GIMPLE*/ /*iniroutlocvar*/ /*_._VALROUT___V97*/ meltfptr[96] = (melt_ptr_t) &meltcdat->drout_3__REGISTER_DIAG_GIMPLE; meltcdat->drout_3__REGISTER_DIAG_GIMPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_3__REGISTER_DIAG_GIMPLE.routdescr, "REGISTER_DIAG_GIMPLE @warmelt-macro.melt:52", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_3__REGISTER_DIAG_GIMPLE.nbval = 0; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_3__REGISTER_DIAG_GIMPLE, meltrout_1_WARMELTmiMACRO_REGISTER_DIAG_GIMPLE); /*iniclos dclo_4__REGISTER_DIAG_GIMPLE*/ /*_._VALCLO___V98*/ meltfptr[97] = (melt_ptr_t) &meltcdat->dclo_4__REGISTER_DIAG_GIMPLE; meltcdat->dclo_4__REGISTER_DIAG_GIMPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_4__REGISTER_DIAG_GIMPLE.nbval = 0; /*inirout drout_5__REGISTER_DIAG_GIMPLE_SEQ*/ /*iniroutlocvar*/ /*_._VALROUT___V99*/ meltfptr[98] = (melt_ptr_t) &meltcdat->drout_5__REGISTER_DIAG_GIMPLE_SEQ; meltcdat->drout_5__REGISTER_DIAG_GIMPLE_SEQ.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_5__REGISTER_DIAG_GIMPLE_SEQ.routdescr, "REGISTER_DIAG_GIMPLE_SEQ @warmelt-macro.melt:57", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_5__REGISTER_DIAG_GIMPLE_SEQ.nbval = 0; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_5__REGISTER_DIAG_GIMPLE_SEQ, meltrout_2_WARMELTmiMACRO_REGISTER_DIAG_GIMPLE_SEQ); /*iniclos dclo_6__REGISTER_DIAG_GIMPLE_SEQ*/ /*_._VALCLO___V100*/ meltfptr[99] = (melt_ptr_t) &meltcdat->dclo_6__REGISTER_DIAG_GIMPLE_SEQ; meltcdat->dclo_6__REGISTER_DIAG_GIMPLE_SEQ.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_6__REGISTER_DIAG_GIMPLE_SEQ.nbval = 0; /*inirout drout_7__REGISTER_DIAG_TREE*/ /*iniroutlocvar*/ /*_._VALROUT___V101*/ meltfptr[100] = (melt_ptr_t) &meltcdat->drout_7__REGISTER_DIAG_TREE; meltcdat->drout_7__REGISTER_DIAG_TREE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_7__REGISTER_DIAG_TREE.routdescr, "REGISTER_DIAG_TREE @warmelt-macro.melt:62", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_7__REGISTER_DIAG_TREE.nbval = 0; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_7__REGISTER_DIAG_TREE, meltrout_3_WARMELTmiMACRO_REGISTER_DIAG_TREE); /*iniclos dclo_8__REGISTER_DIAG_TREE*/ /*_._VALCLO___V102*/ meltfptr[101] = (melt_ptr_t) &meltcdat->dclo_8__REGISTER_DIAG_TREE; meltcdat->dclo_8__REGISTER_DIAG_TREE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_8__REGISTER_DIAG_TREE.nbval = 0; /*inirout drout_9__REGISTER_DIAG_BASIC_BLOCK*/ /*iniroutlocvar*/ /*_._VALROUT___V103*/ meltfptr[102] = (melt_ptr_t) &meltcdat->drout_9__REGISTER_DIAG_BASIC_BLOCK; meltcdat->drout_9__REGISTER_DIAG_BASIC_BLOCK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_9__REGISTER_DIAG_BASIC_BLOCK.routdescr, "REGISTER_DIAG_BASIC_BLOCK @warmelt-macro.melt:67", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_9__REGISTER_DIAG_BASIC_BLOCK.nbval = 0; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_9__REGISTER_DIAG_BASIC_BLOCK, meltrout_4_WARMELTmiMACRO_REGISTER_DIAG_BASIC_BLOCK); /*iniclos dclo_10__REGISTER_DIAG_BASIC_BLOCK*/ /*_._VALCLO___V104*/ meltfptr[103] = (melt_ptr_t) &meltcdat->dclo_10__REGISTER_DIAG_BASIC_BLOCK; meltcdat->dclo_10__REGISTER_DIAG_BASIC_BLOCK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_10__REGISTER_DIAG_BASIC_BLOCK.nbval = 0; /*inirout drout_11__REGISTER_DIAG_EDGE*/ /*iniroutlocvar*/ /*_._VALROUT___V105*/ meltfptr[104] = (melt_ptr_t) &meltcdat->drout_11__REGISTER_DIAG_EDGE; meltcdat->drout_11__REGISTER_DIAG_EDGE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_11__REGISTER_DIAG_EDGE.routdescr, "REGISTER_DIAG_EDGE @warmelt-macro.melt:72", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_11__REGISTER_DIAG_EDGE.nbval = 0; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_11__REGISTER_DIAG_EDGE, meltrout_5_WARMELTmiMACRO_REGISTER_DIAG_EDGE); /*iniclos dclo_12__REGISTER_DIAG_EDGE*/ /*_._VALCLO___V106*/ meltfptr[105] = (melt_ptr_t) &meltcdat->dclo_12__REGISTER_DIAG_EDGE; meltcdat->dclo_12__REGISTER_DIAG_EDGE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_12__REGISTER_DIAG_EDGE.nbval = 0; /*iniobj dsym_13__CLASS_DIAGNOSTIC_STATE*/ /*uniqueobj*/ if (!/*_._VALDATA___V107*/ meltfptr[106]) /*_._VALDATA___V107*/ meltfptr[106] = (melt_ptr_t )&meltcdat->dsym_13__CLASS_DIAGNOSTIC_STATE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_13__CLASS_DIAGNOSTIC_STATE", 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__CLASS_DIAGNOSTIC_STATE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_13__CLASS_DIAGNOSTIC_STATE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_13__CLASS_DIAGNOSTIC_STATE.obj_hash = 480199667; meltcdat->dsym_13__CLASS_DIAGNOSTIC_STATE.obj_len = 3; /*inistring dstr_14__CLASS_DIAGNOSTIC_STATE*/ /*_._VALSTR___V108*/ meltfptr[107] = (melt_ptr_t) &meltcdat->dstr_14__CLASS_DIAGNOSTIC_STATE; meltcdat->dstr_14__CLASS_DIAGNOSTIC_STATE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_14__CLASS_DIAGNOSTIC_STATE.val, "CLASS_DIAGNOSTIC_STATE", sizeof (meltcdat->dstr_14__CLASS_DIAGNOSTIC_STATE.val)-1); meltcdat->dstr_14__CLASS_DIAGNOSTIC_STATE.val[22] = (char)0 ; meltcdat->dstr_14__CLASS_DIAGNOSTIC_STATE.slen = 22 ; /*iniobj dsym_15__CLASS_LOCATED*/ /*uniqueobj*/ if (!/*_._VALDATA___V109*/ meltfptr[108]) /*_._VALDATA___V109*/ meltfptr[108] = (melt_ptr_t )&meltcdat->dsym_15__CLASS_LOCATED; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_15__CLASS_LOCATED", 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_15__CLASS_LOCATED", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_15__CLASS_LOCATED.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_15__CLASS_LOCATED.obj_hash = 979003; meltcdat->dsym_15__CLASS_LOCATED.obj_len = 3; /*inistring dstr_16__CLASS_LOCATED*/ /*_._VALSTR___V110*/ meltfptr[109] = (melt_ptr_t) &meltcdat->dstr_16__CLASS_LOCATED; meltcdat->dstr_16__CLASS_LOCATED.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_16__CLASS_LOCATED.val, "CLASS_LOCATED", sizeof (meltcdat->dstr_16__CLASS_LOCATED.val)-1); meltcdat->dstr_16__CLASS_LOCATED.val[13] = (char)0 ; meltcdat->dstr_16__CLASS_LOCATED.slen = 13 ; MELT_LOCATION("warmelt-macro.melt:78:/ iniobj"); /*iniobj dobj_17__CLASS_DIAGNOSTIC_STATE*/ /*_._VALDATA___V111*/ meltfptr[110] = (melt_ptr_t )&meltcdat->dobj_17__CLASS_DIAGNOSTIC_STATE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_17__CLASS_DIAGNOSTIC_STATE", 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_17__CLASS_DIAGNOSTIC_STATE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_17__CLASS_DIAGNOSTIC_STATE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_17__CLASS_DIAGNOSTIC_STATE.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_17__CLASS_DIAGNOSTIC_STATE.obj_hash = 804408681; meltcdat->dobj_17__CLASS_DIAGNOSTIC_STATE.obj_len = 8; /*inistring dstr_18__CLASS_DIAGNOSTIC_STATE*/ /*_._VALSTR___V112*/ meltfptr[111] = (melt_ptr_t) &meltcdat->dstr_18__CLASS_DIAGNOSTIC_STATE; meltcdat->dstr_18__CLASS_DIAGNOSTIC_STATE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_18__CLASS_DIAGNOSTIC_STATE.val, "CLASS_DIAGNOSTIC_STATE", sizeof (meltcdat->dstr_18__CLASS_DIAGNOSTIC_STATE.val)-1); meltcdat->dstr_18__CLASS_DIAGNOSTIC_STATE.val[22] = (char)0 ; meltcdat->dstr_18__CLASS_DIAGNOSTIC_STATE.slen = 22 ; /*inimult dtup_19_syCLASS_DIAGNOSTIC_STATE*/ /*_._VALTUP___V113*/ meltfptr[112] = (melt_ptr_t) &meltcdat->dtup_19_syCLASS_DIAGNOSTIC_STATE; meltcdat->dtup_19_syCLASS_DIAGNOSTIC_STATE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_19_syCLASS_DIAGNOSTIC_STATE.nbval = 3; /*inimult dtup_20_syCLASS_DIAGNOSTIC_STATE*/ /*_._VALTUP___V120*/ meltfptr[119] = (melt_ptr_t) &meltcdat->dtup_20_syCLASS_DIAGNOSTIC_STATE; meltcdat->dtup_20_syCLASS_DIAGNOSTIC_STATE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_20_syCLASS_DIAGNOSTIC_STATE.nbval = 5; /*iniobj dsym_21__DIAG_VECT*/ /*uniqueobj*/ if (!/*_._VALDATA___V121*/ meltfptr[120]) /*_._VALDATA___V121*/ meltfptr[120] = (melt_ptr_t )&meltcdat->dsym_21__DIAG_VECT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_21__DIAG_VECT", 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__DIAG_VECT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_21__DIAG_VECT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_21__DIAG_VECT.obj_hash = 84268193; meltcdat->dsym_21__DIAG_VECT.obj_len = 3; /*inistring dstr_22__DIAG_VECT*/ /*_._VALSTR___V122*/ meltfptr[121] = (melt_ptr_t) &meltcdat->dstr_22__DIAG_VECT; meltcdat->dstr_22__DIAG_VECT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_22__DIAG_VECT.val, "DIAG_VECT", sizeof (meltcdat->dstr_22__DIAG_VECT.val)-1); meltcdat->dstr_22__DIAG_VECT.val[9] = (char)0 ; meltcdat->dstr_22__DIAG_VECT.slen = 9 ; /*^iniobj*/ /*iniobj dobj_23__DIAG_VECT*/ /*_._VALDATA___V114*/ meltfptr[113] = (melt_ptr_t )&meltcdat->dobj_23__DIAG_VECT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_23__DIAG_VECT", 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_23__DIAG_VECT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_23__DIAG_VECT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_23__DIAG_VECT.obj_num = 2; meltcdat->dobj_23__DIAG_VECT.obj_hash = 649802991; meltcdat->dobj_23__DIAG_VECT.obj_len = 4; /*inistring dstr_24__DIAG_VECT*/ /*_._VALSTR___V115*/ meltfptr[114] = (melt_ptr_t) &meltcdat->dstr_24__DIAG_VECT; meltcdat->dstr_24__DIAG_VECT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_24__DIAG_VECT.val, "DIAG_VECT", sizeof (meltcdat->dstr_24__DIAG_VECT.val)-1); meltcdat->dstr_24__DIAG_VECT.val[9] = (char)0 ; meltcdat->dstr_24__DIAG_VECT.slen = 9 ; /*iniobj dsym_25__DIAG_POSITION*/ /*uniqueobj*/ if (!/*_._VALDATA___V123*/ meltfptr[122]) /*_._VALDATA___V123*/ meltfptr[122] = (melt_ptr_t )&meltcdat->dsym_25__DIAG_POSITION; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_25__DIAG_POSITION", 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_25__DIAG_POSITION", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_25__DIAG_POSITION.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_25__DIAG_POSITION.obj_hash = 996270123; meltcdat->dsym_25__DIAG_POSITION.obj_len = 3; /*inistring dstr_26__DIAG_POSITION*/ /*_._VALSTR___V124*/ meltfptr[123] = (melt_ptr_t) &meltcdat->dstr_26__DIAG_POSITION; meltcdat->dstr_26__DIAG_POSITION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_26__DIAG_POSITION.val, "DIAG_POSITION", sizeof (meltcdat->dstr_26__DIAG_POSITION.val)-1); meltcdat->dstr_26__DIAG_POSITION.val[13] = (char)0 ; meltcdat->dstr_26__DIAG_POSITION.slen = 13 ; /*^iniobj*/ /*iniobj dobj_27__DIAG_POSITION*/ /*_._VALDATA___V116*/ meltfptr[115] = (melt_ptr_t )&meltcdat->dobj_27__DIAG_POSITION; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_27__DIAG_POSITION", 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_27__DIAG_POSITION", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_27__DIAG_POSITION.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_27__DIAG_POSITION.obj_num = 3; meltcdat->dobj_27__DIAG_POSITION.obj_hash = 736528025; meltcdat->dobj_27__DIAG_POSITION.obj_len = 4; /*inistring dstr_28__DIAG_POSITION*/ /*_._VALSTR___V117*/ meltfptr[116] = (melt_ptr_t) &meltcdat->dstr_28__DIAG_POSITION; meltcdat->dstr_28__DIAG_POSITION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_28__DIAG_POSITION.val, "DIAG_POSITION", sizeof (meltcdat->dstr_28__DIAG_POSITION.val)-1); meltcdat->dstr_28__DIAG_POSITION.val[13] = (char)0 ; meltcdat->dstr_28__DIAG_POSITION.slen = 13 ; /*iniobj dsym_29__DIAG_STATE*/ /*uniqueobj*/ if (!/*_._VALDATA___V125*/ meltfptr[124]) /*_._VALDATA___V125*/ meltfptr[124] = (melt_ptr_t )&meltcdat->dsym_29__DIAG_STATE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_29__DIAG_STATE", 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_29__DIAG_STATE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_29__DIAG_STATE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_29__DIAG_STATE.obj_hash = 506758916; meltcdat->dsym_29__DIAG_STATE.obj_len = 3; /*inistring dstr_30__DIAG_STATE*/ /*_._VALSTR___V126*/ meltfptr[125] = (melt_ptr_t) &meltcdat->dstr_30__DIAG_STATE; meltcdat->dstr_30__DIAG_STATE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_30__DIAG_STATE.val, "DIAG_STATE", sizeof (meltcdat->dstr_30__DIAG_STATE.val)-1); meltcdat->dstr_30__DIAG_STATE.val[10] = (char)0 ; meltcdat->dstr_30__DIAG_STATE.slen = 10 ; /*^iniobj*/ /*iniobj dobj_31__DIAG_STATE*/ /*_._VALDATA___V118*/ meltfptr[117] = (melt_ptr_t )&meltcdat->dobj_31__DIAG_STATE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_31__DIAG_STATE", 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_31__DIAG_STATE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_31__DIAG_STATE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_31__DIAG_STATE.obj_num = 4; meltcdat->dobj_31__DIAG_STATE.obj_hash = 298794776; meltcdat->dobj_31__DIAG_STATE.obj_len = 4; /*inistring dstr_32__DIAG_STATE*/ /*_._VALSTR___V119*/ meltfptr[118] = (melt_ptr_t) &meltcdat->dstr_32__DIAG_STATE; meltcdat->dstr_32__DIAG_STATE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_32__DIAG_STATE.val, "DIAG_STATE", sizeof (meltcdat->dstr_32__DIAG_STATE.val)-1); meltcdat->dstr_32__DIAG_STATE.val[10] = (char)0 ; meltcdat->dstr_32__DIAG_STATE.slen = 10 ; /*iniobj dsym_33__DISCR_DIAGNOSTIC_CLOSURE*/ /*uniqueobj*/ if (!/*_._VALDATA___V127*/ meltfptr[126]) /*_._VALDATA___V127*/ meltfptr[126] = (melt_ptr_t )&meltcdat->dsym_33__DISCR_DIAGNOSTIC_CLOSURE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_33__DISCR_DIAGNOSTIC_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_33__DISCR_DIAGNOSTIC_CLOSURE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_33__DISCR_DIAGNOSTIC_CLOSURE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_33__DISCR_DIAGNOSTIC_CLOSURE.obj_hash = 445972630; meltcdat->dsym_33__DISCR_DIAGNOSTIC_CLOSURE.obj_len = 3; /*inistring dstr_34__DISCR_DIAGNOSTIC_CLOSURE*/ /*_._VALSTR___V128*/ meltfptr[127] = (melt_ptr_t) &meltcdat->dstr_34__DISCR_DIAGNOSTIC_CLOSURE; meltcdat->dstr_34__DISCR_DIAGNOSTIC_CLOSURE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_34__DISCR_DIAGNOSTIC_CLOSURE.val, "DISCR_DIAGNOSTIC_CLOSURE", sizeof (meltcdat->dstr_34__DISCR_DIAGNOSTIC_CLOSURE.val)-1); meltcdat->dstr_34__DISCR_DIAGNOSTIC_CLOSURE.val[24] = (char)0 ; meltcdat->dstr_34__DISCR_DIAGNOSTIC_CLOSURE.slen = 24 ; /*iniobj dsym_35__CLASS_DISCRIMINANT*/ /*uniqueobj*/ if (!/*_._VALDATA___V129*/ meltfptr[128]) /*_._VALDATA___V129*/ meltfptr[128] = (melt_ptr_t )&meltcdat->dsym_35__CLASS_DISCRIMINANT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_35__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_35__CLASS_DISCRIMINANT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_35__CLASS_DISCRIMINANT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_35__CLASS_DISCRIMINANT.obj_hash = 535191995; meltcdat->dsym_35__CLASS_DISCRIMINANT.obj_len = 3; /*inistring dstr_36__CLASS_DISCRIMINANT*/ /*_._VALSTR___V130*/ meltfptr[129] = (melt_ptr_t) &meltcdat->dstr_36__CLASS_DISCRIMINANT; meltcdat->dstr_36__CLASS_DISCRIMINANT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_36__CLASS_DISCRIMINANT.val, "CLASS_DISCRIMINANT", sizeof (meltcdat->dstr_36__CLASS_DISCRIMINANT.val)-1); meltcdat->dstr_36__CLASS_DISCRIMINANT.val[18] = (char)0 ; meltcdat->dstr_36__CLASS_DISCRIMINANT.slen = 18 ; MELT_LOCATION("warmelt-macro.melt:87:/ iniobj"); /*iniobj dobj_37__DISCR_DIAGNOSTIC_CLOSURE*/ /*_._VALDATA___V131*/ meltfptr[130] = (melt_ptr_t )&meltcdat->dobj_37__DISCR_DIAGNOSTIC_CLOSURE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_37__DISCR_DIAGNOSTIC_CLOSURE", melt_magic_discr ((melt_ptr_t) (/*_.CLASS_DISCRIMINANT__V7*/ meltfptr[6])) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_37__DISCR_DIAGNOSTIC_CLOSURE", ((meltobject_ptr_t) (/*_.CLASS_DISCRIMINANT__V7*/ meltfptr[6]))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_37__DISCR_DIAGNOSTIC_CLOSURE.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_DISCRIMINANT__V7*/ meltfptr[6]); meltcdat->dobj_37__DISCR_DIAGNOSTIC_CLOSURE.obj_hash = 274775717; meltcdat->dobj_37__DISCR_DIAGNOSTIC_CLOSURE.obj_len = 5; /*iniobj dsym_38__DISCR_CLOSURE*/ /*uniqueobj*/ if (!/*_._VALDATA___V133*/ meltfptr[132]) /*_._VALDATA___V133*/ meltfptr[132] = (melt_ptr_t )&meltcdat->dsym_38__DISCR_CLOSURE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_38__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_38__DISCR_CLOSURE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_38__DISCR_CLOSURE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_38__DISCR_CLOSURE.obj_hash = 99248147; meltcdat->dsym_38__DISCR_CLOSURE.obj_len = 3; /*inistring dstr_39__DISCR_CLOSURE*/ /*_._VALSTR___V134*/ meltfptr[133] = (melt_ptr_t) &meltcdat->dstr_39__DISCR_CLOSURE; meltcdat->dstr_39__DISCR_CLOSURE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_39__DISCR_CLOSURE.val, "DISCR_CLOSURE", sizeof (meltcdat->dstr_39__DISCR_CLOSURE.val)-1); meltcdat->dstr_39__DISCR_CLOSURE.val[13] = (char)0 ; meltcdat->dstr_39__DISCR_CLOSURE.slen = 13 ; /*inistring dstr_40__DISCR_DIAGNOSTIC_CLOSURE*/ /*_._VALSTR___V132*/ meltfptr[131] = (melt_ptr_t) &meltcdat->dstr_40__DISCR_DIAGNOSTIC_CLOSURE; meltcdat->dstr_40__DISCR_DIAGNOSTIC_CLOSURE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_40__DISCR_DIAGNOSTIC_CLOSURE.val, "DISCR_DIAGNOSTIC_CLOSURE", sizeof (meltcdat->dstr_40__DISCR_DIAGNOSTIC_CLOSURE.val)-1); meltcdat->dstr_40__DISCR_DIAGNOSTIC_CLOSURE.val[24] = (char)0 ; meltcdat->dstr_40__DISCR_DIAGNOSTIC_CLOSURE.slen = 24 ; /*inirout drout_41__DIAGNOSTIC_ARGS_MACRO*/ /*iniroutlocvar*/ /*_._VALROUT___V135*/ meltfptr[134] = (melt_ptr_t) &meltcdat->drout_41__DIAGNOSTIC_ARGS_MACRO; meltcdat->drout_41__DIAGNOSTIC_ARGS_MACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_41__DIAGNOSTIC_ARGS_MACRO.routdescr, "DIAGNOSTIC_ARGS_MACRO @warmelt-macro.melt:98", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_41__DIAGNOSTIC_ARGS_MACRO.nbval = 205; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_41__DIAGNOSTIC_ARGS_MACRO, meltrout_6_WARMELTmiMACRO_DIAGNOSTIC_ARGS_MACRO); /*iniclos dclo_42__DIAGNOSTIC_ARGS_MACRO*/ /*_._VALCLO___V268*/ meltfptr[267] = (melt_ptr_t) &meltcdat->dclo_42__DIAGNOSTIC_ARGS_MACRO; meltcdat->dclo_42__DIAGNOSTIC_ARGS_MACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_MACRO_CLOSURE)))); meltcdat->dclo_42__DIAGNOSTIC_ARGS_MACRO.nbval = 0; /*iniobj dsym_43__MELT_DEBUG_FUN*/ /*uniqueobj*/ if (!/*_._VALDATA___V269*/ meltfptr[268]) /*_._VALDATA___V269*/ meltfptr[268] = (melt_ptr_t )&meltcdat->dsym_43__MELT_DEBUG_FUN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_43__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_43__MELT_DEBUG_FUN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_43__MELT_DEBUG_FUN.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_43__MELT_DEBUG_FUN.obj_hash = 972123377; meltcdat->dsym_43__MELT_DEBUG_FUN.obj_len = 3; /*inistring dstr_44__MELT_DEBUG_FUN*/ /*_._VALSTR___V270*/ meltfptr[269] = (melt_ptr_t) &meltcdat->dstr_44__MELT_DEBUG_FUN; meltcdat->dstr_44__MELT_DEBUG_FUN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_44__MELT_DEBUG_FUN.val, "MELT_DEBUG_FUN", sizeof (meltcdat->dstr_44__MELT_DEBUG_FUN.val)-1); meltcdat->dstr_44__MELT_DEBUG_FUN.val[14] = (char)0 ; meltcdat->dstr_44__MELT_DEBUG_FUN.slen = 14 ; /*iniobj dsym_45__CLASS_SEXPR*/ /*uniqueobj*/ if (!/*_._VALDATA___V271*/ meltfptr[270]) /*_._VALDATA___V271*/ meltfptr[270] = (melt_ptr_t )&meltcdat->dsym_45__CLASS_SEXPR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_45__CLASS_SEXPR", 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_45__CLASS_SEXPR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_45__CLASS_SEXPR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_45__CLASS_SEXPR.obj_hash = 53411612; meltcdat->dsym_45__CLASS_SEXPR.obj_len = 3; /*inistring dstr_46__CLASS_SEXPR*/ /*_._VALSTR___V272*/ meltfptr[271] = (melt_ptr_t) &meltcdat->dstr_46__CLASS_SEXPR; meltcdat->dstr_46__CLASS_SEXPR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_46__CLASS_SEXPR.val, "CLASS_SEXPR", sizeof (meltcdat->dstr_46__CLASS_SEXPR.val)-1); meltcdat->dstr_46__CLASS_SEXPR.val[11] = (char)0 ; meltcdat->dstr_46__CLASS_SEXPR.slen = 11 ; /*iniobj dsym_47__MELT_ASSERT_FAILURE_FUN*/ /*uniqueobj*/ if (!/*_._VALDATA___V273*/ meltfptr[272]) /*_._VALDATA___V273*/ meltfptr[272] = (melt_ptr_t )&meltcdat->dsym_47__MELT_ASSERT_FAILURE_FUN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_47__MELT_ASSERT_FAILURE_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_47__MELT_ASSERT_FAILURE_FUN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_47__MELT_ASSERT_FAILURE_FUN.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_47__MELT_ASSERT_FAILURE_FUN.obj_hash = 215547874; meltcdat->dsym_47__MELT_ASSERT_FAILURE_FUN.obj_len = 3; /*inistring dstr_48__MELT_ASSERT_FAILURE_FUN*/ /*_._VALSTR___V274*/ meltfptr[273] = (melt_ptr_t) &meltcdat->dstr_48__MELT_ASSERT_FAILURE_FUN; meltcdat->dstr_48__MELT_ASSERT_FAILURE_FUN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_48__MELT_ASSERT_FAILURE_FUN.val, "MELT_ASSERT_FAILURE_FUN", sizeof (meltcdat->dstr_48__MELT_ASSERT_FAILURE_FUN.val)-1); meltcdat->dstr_48__MELT_ASSERT_FAILURE_FUN.val[23] = (char)0 ; meltcdat->dstr_48__MELT_ASSERT_FAILURE_FUN.slen = 23 ; /*iniobj dsym_49__LIST_TO_MULTIPLE*/ /*uniqueobj*/ if (!/*_._VALDATA___V275*/ meltfptr[274]) /*_._VALDATA___V275*/ meltfptr[274] = (melt_ptr_t )&meltcdat->dsym_49__LIST_TO_MULTIPLE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_49__LIST_TO_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_49__LIST_TO_MULTIPLE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_49__LIST_TO_MULTIPLE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_49__LIST_TO_MULTIPLE.obj_hash = 987171205; meltcdat->dsym_49__LIST_TO_MULTIPLE.obj_len = 3; /*inistring dstr_50__LIST_TO_MULTIPLE*/ /*_._VALSTR___V276*/ meltfptr[275] = (melt_ptr_t) &meltcdat->dstr_50__LIST_TO_MULTIPLE; meltcdat->dstr_50__LIST_TO_MULTIPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_50__LIST_TO_MULTIPLE.val, "LIST_TO_MULTIPLE", sizeof (meltcdat->dstr_50__LIST_TO_MULTIPLE.val)-1); meltcdat->dstr_50__LIST_TO_MULTIPLE.val[16] = (char)0 ; meltcdat->dstr_50__LIST_TO_MULTIPLE.slen = 16 ; /*iniobj dsym_51__DISCR_MULTIPLE*/ /*uniqueobj*/ if (!/*_._VALDATA___V277*/ meltfptr[276]) /*_._VALDATA___V277*/ meltfptr[276] = (melt_ptr_t )&meltcdat->dsym_51__DISCR_MULTIPLE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_51__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_51__DISCR_MULTIPLE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_51__DISCR_MULTIPLE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_51__DISCR_MULTIPLE.obj_hash = 91864583; meltcdat->dsym_51__DISCR_MULTIPLE.obj_len = 3; /*inistring dstr_52__DISCR_MULTIPLE*/ /*_._VALSTR___V278*/ meltfptr[277] = (melt_ptr_t) &meltcdat->dstr_52__DISCR_MULTIPLE; meltcdat->dstr_52__DISCR_MULTIPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_52__DISCR_MULTIPLE.val, "DISCR_MULTIPLE", sizeof (meltcdat->dstr_52__DISCR_MULTIPLE.val)-1); meltcdat->dstr_52__DISCR_MULTIPLE.val[14] = (char)0 ; meltcdat->dstr_52__DISCR_MULTIPLE.slen = 14 ; /*iniobj dsym_53__STRING4OUT*/ /*uniqueobj*/ if (!/*_._VALDATA___V190*/ meltfptr[189]) /*_._VALDATA___V190*/ meltfptr[189] = (melt_ptr_t )&meltcdat->dsym_53__STRING4OUT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_53__STRING4OUT", 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_53__STRING4OUT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_53__STRING4OUT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_53__STRING4OUT.obj_hash = 209944893; meltcdat->dsym_53__STRING4OUT.obj_len = 3; /*inistring dstr_54__STRING4OUT*/ /*_._VALSTR___V191*/ meltfptr[190] = (melt_ptr_t) &meltcdat->dstr_54__STRING4OUT; meltcdat->dstr_54__STRING4OUT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_54__STRING4OUT.val, "STRING4OUT", sizeof (meltcdat->dstr_54__STRING4OUT.val)-1); meltcdat->dstr_54__STRING4OUT.val[10] = (char)0 ; meltcdat->dstr_54__STRING4OUT.slen = 10 ; /*iniobj dsym_55__DISCR_STRING*/ /*uniqueobj*/ if (!/*_._VALDATA___V192*/ meltfptr[191]) /*_._VALDATA___V192*/ meltfptr[191] = (melt_ptr_t )&meltcdat->dsym_55__DISCR_STRING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_55__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_55__DISCR_STRING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_55__DISCR_STRING.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_55__DISCR_STRING.obj_hash = 100436219; meltcdat->dsym_55__DISCR_STRING.obj_len = 3; /*inistring dstr_56__DISCR_STRING*/ /*_._VALSTR___V193*/ meltfptr[192] = (melt_ptr_t) &meltcdat->dstr_56__DISCR_STRING; meltcdat->dstr_56__DISCR_STRING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_56__DISCR_STRING.val, "DISCR_STRING", sizeof (meltcdat->dstr_56__DISCR_STRING.val)-1); meltcdat->dstr_56__DISCR_STRING.val[12] = (char)0 ; meltcdat->dstr_56__DISCR_STRING.slen = 12 ; /*iniobj dsym_57__CLASS_SYMBOL*/ /*uniqueobj*/ if (!/*_._VALDATA___V279*/ meltfptr[278]) /*_._VALDATA___V279*/ meltfptr[278] = (melt_ptr_t )&meltcdat->dsym_57__CLASS_SYMBOL; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_57__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_57__CLASS_SYMBOL", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_57__CLASS_SYMBOL.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_57__CLASS_SYMBOL.obj_hash = 53524182; meltcdat->dsym_57__CLASS_SYMBOL.obj_len = 3; /*inistring dstr_58__CLASS_SYMBOL*/ /*_._VALSTR___V280*/ meltfptr[279] = (melt_ptr_t) &meltcdat->dstr_58__CLASS_SYMBOL; meltcdat->dstr_58__CLASS_SYMBOL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_58__CLASS_SYMBOL.val, "CLASS_SYMBOL", sizeof (meltcdat->dstr_58__CLASS_SYMBOL.val)-1); meltcdat->dstr_58__CLASS_SYMBOL.val[12] = (char)0 ; meltcdat->dstr_58__CLASS_SYMBOL.slen = 12 ; /*iniobj dsym_59__MELT_MAKE_SEXPR*/ /*uniqueobj*/ if (!/*_._VALDATA___V281*/ meltfptr[280]) /*_._VALDATA___V281*/ meltfptr[280] = (melt_ptr_t )&meltcdat->dsym_59__MELT_MAKE_SEXPR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_59__MELT_MAKE_SEXPR", 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_59__MELT_MAKE_SEXPR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_59__MELT_MAKE_SEXPR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_59__MELT_MAKE_SEXPR.obj_hash = 383667794; meltcdat->dsym_59__MELT_MAKE_SEXPR.obj_len = 3; /*inistring dstr_60__MELT_MAKE_SEXPR*/ /*_._VALSTR___V282*/ meltfptr[281] = (melt_ptr_t) &meltcdat->dstr_60__MELT_MAKE_SEXPR; meltcdat->dstr_60__MELT_MAKE_SEXPR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_60__MELT_MAKE_SEXPR.val, "MELT_MAKE_SEXPR", sizeof (meltcdat->dstr_60__MELT_MAKE_SEXPR.val)-1); meltcdat->dstr_60__MELT_MAKE_SEXPR.val[15] = (char)0 ; meltcdat->dstr_60__MELT_MAKE_SEXPR.slen = 15 ; /*iniobj dsym_61__HOOK_MELT_MAKE_LOCATION*/ /*uniqueobj*/ if (!/*_._VALDATA___V283*/ meltfptr[282]) /*_._VALDATA___V283*/ meltfptr[282] = (melt_ptr_t )&meltcdat->dsym_61__HOOK_MELT_MAKE_LOCATION; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_61__HOOK_MELT_MAKE_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_61__HOOK_MELT_MAKE_LOCATION", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_61__HOOK_MELT_MAKE_LOCATION.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_61__HOOK_MELT_MAKE_LOCATION.obj_hash = 753739361; meltcdat->dsym_61__HOOK_MELT_MAKE_LOCATION.obj_len = 3; /*inistring dstr_62__HOOK_MELT_MAKE_LOCATION*/ /*_._VALSTR___V284*/ meltfptr[283] = (melt_ptr_t) &meltcdat->dstr_62__HOOK_MELT_MAKE_LOCATION; meltcdat->dstr_62__HOOK_MELT_MAKE_LOCATION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_62__HOOK_MELT_MAKE_LOCATION.val, "HOOK_MELT_MAKE_LOCATION", sizeof (meltcdat->dstr_62__HOOK_MELT_MAKE_LOCATION.val)-1); meltcdat->dstr_62__HOOK_MELT_MAKE_LOCATION.val[23] = (char)0 ; meltcdat->dstr_62__HOOK_MELT_MAKE_LOCATION.slen = 23 ; /*iniobj dsym_63__LET*/ /*uniqueobj*/ if (!/*_._VALDATA___V136*/ meltfptr[135]) /*_._VALDATA___V136*/ meltfptr[135] = (melt_ptr_t )&meltcdat->dsym_63__LET; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_63__LET", 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__LET", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_63__LET.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_63__LET.obj_hash = 70931144; meltcdat->dsym_63__LET.obj_len = 3; /*inistring dstr_64__LET*/ /*_._VALSTR___V137*/ meltfptr[136] = (melt_ptr_t) &meltcdat->dstr_64__LET; meltcdat->dstr_64__LET.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_64__LET.val, "LET", sizeof (meltcdat->dstr_64__LET.val)-1); meltcdat->dstr_64__LET.val[3] = (char)0 ; meltcdat->dstr_64__LET.slen = 3 ; /*iniobj dsym_65__DIAGPOSBOX*/ /*uniqueobj*/ if (!/*_._VALDATA___V138*/ meltfptr[137]) /*_._VALDATA___V138*/ meltfptr[137] = (melt_ptr_t )&meltcdat->dsym_65__DIAGPOSBOX; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_65__DIAGPOSBOX", 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__DIAGPOSBOX", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_65__DIAGPOSBOX.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_65__DIAGPOSBOX.obj_hash = 787239887; meltcdat->dsym_65__DIAGPOSBOX.obj_len = 3; /*inistring dstr_66__DIAGPOSBOX*/ /*_._VALSTR___V139*/ meltfptr[138] = (melt_ptr_t) &meltcdat->dstr_66__DIAGPOSBOX; meltcdat->dstr_66__DIAGPOSBOX.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_66__DIAGPOSBOX.val, "DIAGPOSBOX", sizeof (meltcdat->dstr_66__DIAGPOSBOX.val)-1); meltcdat->dstr_66__DIAGPOSBOX.val[10] = (char)0 ; meltcdat->dstr_66__DIAGPOSBOX.slen = 10 ; /*iniobj dsym_67__BOX*/ /*uniqueobj*/ if (!/*_._VALDATA___V140*/ meltfptr[139]) /*_._VALDATA___V140*/ meltfptr[139] = (melt_ptr_t )&meltcdat->dsym_67__BOX; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_67__BOX", 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__BOX", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_67__BOX.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_67__BOX.obj_hash = 94880076; meltcdat->dsym_67__BOX.obj_len = 3; /*inistring dstr_68__BOX*/ /*_._VALSTR___V141*/ meltfptr[140] = (melt_ptr_t) &meltcdat->dstr_68__BOX; meltcdat->dstr_68__BOX.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_68__BOX.val, "BOX", sizeof (meltcdat->dstr_68__BOX.val)-1); meltcdat->dstr_68__BOX.val[3] = (char)0 ; meltcdat->dstr_68__BOX.slen = 3 ; /*iniobj dsym_69__DIAGSTATE*/ /*uniqueobj*/ if (!/*_._VALDATA___V142*/ meltfptr[141]) /*_._VALDATA___V142*/ meltfptr[141] = (melt_ptr_t )&meltcdat->dsym_69__DIAGSTATE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_69__DIAGSTATE", 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__DIAGSTATE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_69__DIAGSTATE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_69__DIAGSTATE.obj_hash = 301673451; meltcdat->dsym_69__DIAGSTATE.obj_len = 3; /*inistring dstr_70__DIAGSTATE*/ /*_._VALSTR___V143*/ meltfptr[142] = (melt_ptr_t) &meltcdat->dstr_70__DIAGSTATE; meltcdat->dstr_70__DIAGSTATE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_70__DIAGSTATE.val, "DIAGSTATE", sizeof (meltcdat->dstr_70__DIAGSTATE.val)-1); meltcdat->dstr_70__DIAGSTATE.val[9] = (char)0 ; meltcdat->dstr_70__DIAGSTATE.slen = 9 ; /*iniobj dsym_71__INSTANCE*/ /*uniqueobj*/ if (!/*_._VALDATA___V144*/ meltfptr[143]) /*_._VALDATA___V144*/ meltfptr[143] = (melt_ptr_t )&meltcdat->dsym_71__INSTANCE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_71__INSTANCE", 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__INSTANCE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_71__INSTANCE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_71__INSTANCE.obj_hash = 837795892; meltcdat->dsym_71__INSTANCE.obj_len = 3; /*inistring dstr_72__INSTANCE*/ /*_._VALSTR___V145*/ meltfptr[144] = (melt_ptr_t) &meltcdat->dstr_72__INSTANCE; meltcdat->dstr_72__INSTANCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_72__INSTANCE.val, "INSTANCE", sizeof (meltcdat->dstr_72__INSTANCE.val)-1); meltcdat->dstr_72__INSTANCE.val[8] = (char)0 ; meltcdat->dstr_72__INSTANCE.slen = 8 ; /*iniobj dsym_73__LOCA_LOCATION*/ /*uniqueobj*/ if (!/*_._VALDATA___V146*/ meltfptr[145]) /*_._VALDATA___V146*/ meltfptr[145] = (melt_ptr_t )&meltcdat->dsym_73__LOCA_LOCATION; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_73__LOCA_LOCATION", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_73__LOCA_LOCATION", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_73__LOCA_LOCATION.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))); meltcdat->dsym_73__LOCA_LOCATION.obj_hash = 737918202; meltcdat->dsym_73__LOCA_LOCATION.obj_len = 3; /*inistring dstr_74__LOCA_LOCATION*/ /*_._VALSTR___V147*/ meltfptr[146] = (melt_ptr_t) &meltcdat->dstr_74__LOCA_LOCATION; meltcdat->dstr_74__LOCA_LOCATION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_74__LOCA_LOCATION.val, "LOCA_LOCATION", sizeof (meltcdat->dstr_74__LOCA_LOCATION.val)-1); meltcdat->dstr_74__LOCA_LOCATION.val[13] = (char)0 ; meltcdat->dstr_74__LOCA_LOCATION.slen = 13 ; /*iniobj dsym_75__DIAG_VECT*/ /*uniqueobj*/ if (!/*_._VALDATA___V148*/ meltfptr[147]) /*_._VALDATA___V148*/ meltfptr[147] = (melt_ptr_t )&meltcdat->dsym_75__DIAG_VECT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_75__DIAG_VECT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_75__DIAG_VECT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_75__DIAG_VECT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))); meltcdat->dsym_75__DIAG_VECT.obj_hash = 1022860536; meltcdat->dsym_75__DIAG_VECT.obj_len = 3; /*inistring dstr_76__DIAG_VECT*/ /*_._VALSTR___V149*/ meltfptr[148] = (melt_ptr_t) &meltcdat->dstr_76__DIAG_VECT; meltcdat->dstr_76__DIAG_VECT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_76__DIAG_VECT.val, "DIAG_VECT", sizeof (meltcdat->dstr_76__DIAG_VECT.val)-1); meltcdat->dstr_76__DIAG_VECT.val[9] = (char)0 ; meltcdat->dstr_76__DIAG_VECT.slen = 9 ; /*iniobj dsym_77__DIAG_POSITION*/ /*uniqueobj*/ if (!/*_._VALDATA___V150*/ meltfptr[149]) /*_._VALDATA___V150*/ meltfptr[149] = (melt_ptr_t )&meltcdat->dsym_77__DIAG_POSITION; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_77__DIAG_POSITION", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_77__DIAG_POSITION", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_77__DIAG_POSITION.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))); meltcdat->dsym_77__DIAG_POSITION.obj_hash = 158045192; meltcdat->dsym_77__DIAG_POSITION.obj_len = 3; /*inistring dstr_78__DIAG_POSITION*/ /*_._VALSTR___V151*/ meltfptr[150] = (melt_ptr_t) &meltcdat->dstr_78__DIAG_POSITION; meltcdat->dstr_78__DIAG_POSITION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_78__DIAG_POSITION.val, "DIAG_POSITION", sizeof (meltcdat->dstr_78__DIAG_POSITION.val)-1); meltcdat->dstr_78__DIAG_POSITION.val[13] = (char)0 ; meltcdat->dstr_78__DIAG_POSITION.slen = 13 ; /*iniobj dsym_79__DIAG_STATE*/ /*uniqueobj*/ if (!/*_._VALDATA___V152*/ meltfptr[151]) /*_._VALDATA___V152*/ meltfptr[151] = (melt_ptr_t )&meltcdat->dsym_79__DIAG_STATE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_79__DIAG_STATE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_79__DIAG_STATE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_79__DIAG_STATE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))); meltcdat->dsym_79__DIAG_STATE.obj_hash = 1018945215; meltcdat->dsym_79__DIAG_STATE.obj_len = 3; /*inistring dstr_80__DIAG_STATE*/ /*_._VALSTR___V153*/ meltfptr[152] = (melt_ptr_t) &meltcdat->dstr_80__DIAG_STATE; meltcdat->dstr_80__DIAG_STATE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_80__DIAG_STATE.val, "DIAG_STATE", sizeof (meltcdat->dstr_80__DIAG_STATE.val)-1); meltcdat->dstr_80__DIAG_STATE.val[10] = (char)0 ; meltcdat->dstr_80__DIAG_STATE.slen = 10 ; /*iniobj dsym_81__MAKE_MAPOBJECT*/ /*uniqueobj*/ if (!/*_._VALDATA___V154*/ meltfptr[153]) /*_._VALDATA___V154*/ meltfptr[153] = (melt_ptr_t )&meltcdat->dsym_81__MAKE_MAPOBJECT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_81__MAKE_MAPOBJECT", 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_81__MAKE_MAPOBJECT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_81__MAKE_MAPOBJECT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_81__MAKE_MAPOBJECT.obj_hash = 43630370; meltcdat->dsym_81__MAKE_MAPOBJECT.obj_len = 3; /*inistring dstr_82__MAKE_MAPOBJECT*/ /*_._VALSTR___V155*/ meltfptr[154] = (melt_ptr_t) &meltcdat->dstr_82__MAKE_MAPOBJECT; meltcdat->dstr_82__MAKE_MAPOBJECT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_82__MAKE_MAPOBJECT.val, "MAKE_MAPOBJECT", sizeof (meltcdat->dstr_82__MAKE_MAPOBJECT.val)-1); meltcdat->dstr_82__MAKE_MAPOBJECT.val[14] = (char)0 ; meltcdat->dstr_82__MAKE_MAPOBJECT.slen = 14 ; /*iniobj dsym_83__DISCR_MAP_OBJECTS*/ /*uniqueobj*/ if (!/*_._VALDATA___V156*/ meltfptr[155]) /*_._VALDATA___V156*/ meltfptr[155] = (melt_ptr_t )&meltcdat->dsym_83__DISCR_MAP_OBJECTS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_83__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_83__DISCR_MAP_OBJECTS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_83__DISCR_MAP_OBJECTS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_83__DISCR_MAP_OBJECTS.obj_hash = 217147088; meltcdat->dsym_83__DISCR_MAP_OBJECTS.obj_len = 3; /*inistring dstr_84__DISCR_MAP_OBJECTS*/ /*_._VALSTR___V157*/ meltfptr[156] = (melt_ptr_t) &meltcdat->dstr_84__DISCR_MAP_OBJECTS; meltcdat->dstr_84__DISCR_MAP_OBJECTS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_84__DISCR_MAP_OBJECTS.val, "DISCR_MAP_OBJECTS", sizeof (meltcdat->dstr_84__DISCR_MAP_OBJECTS.val)-1); meltcdat->dstr_84__DISCR_MAP_OBJECTS.val[17] = (char)0 ; meltcdat->dstr_84__DISCR_MAP_OBJECTS.slen = 17 ; /*iniobj dsym_85__SETQ*/ /*uniqueobj*/ if (!/*_._VALDATA___V158*/ meltfptr[157]) /*_._VALDATA___V158*/ meltfptr[157] = (melt_ptr_t )&meltcdat->dsym_85__SETQ; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_85__SETQ", 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__SETQ", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_85__SETQ.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_85__SETQ.obj_hash = 46296512; meltcdat->dsym_85__SETQ.obj_len = 3; /*inistring dstr_86__SETQ*/ /*_._VALSTR___V159*/ meltfptr[158] = (melt_ptr_t) &meltcdat->dstr_86__SETQ; meltcdat->dstr_86__SETQ.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_86__SETQ.val, "SETQ", sizeof (meltcdat->dstr_86__SETQ.val)-1); meltcdat->dstr_86__SETQ.val[4] = (char)0 ; meltcdat->dstr_86__SETQ.slen = 4 ; /*iniobj dsym_87__FOREVER*/ /*uniqueobj*/ if (!/*_._VALDATA___V160*/ meltfptr[159]) /*_._VALDATA___V160*/ meltfptr[159] = (melt_ptr_t )&meltcdat->dsym_87__FOREVER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_87__FOREVER", 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_87__FOREVER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_87__FOREVER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_87__FOREVER.obj_hash = 118376766; meltcdat->dsym_87__FOREVER.obj_len = 3; /*inistring dstr_88__FOREVER*/ /*_._VALSTR___V161*/ meltfptr[160] = (melt_ptr_t) &meltcdat->dstr_88__FOREVER; meltcdat->dstr_88__FOREVER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_88__FOREVER.val, "FOREVER", sizeof (meltcdat->dstr_88__FOREVER.val)-1); meltcdat->dstr_88__FOREVER.val[7] = (char)0 ; meltcdat->dstr_88__FOREVER.slen = 7 ; /*iniobj dsym_89__ARGLOOP*/ /*uniqueobj*/ if (!/*_._VALDATA___V162*/ meltfptr[161]) /*_._VALDATA___V162*/ meltfptr[161] = (melt_ptr_t )&meltcdat->dsym_89__ARGLOOP; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_89__ARGLOOP", 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_89__ARGLOOP", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_89__ARGLOOP.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_89__ARGLOOP.obj_hash = 99551936; meltcdat->dsym_89__ARGLOOP.obj_len = 3; /*inistring dstr_90__ARGLOOP*/ /*_._VALSTR___V163*/ meltfptr[162] = (melt_ptr_t) &meltcdat->dstr_90__ARGLOOP; meltcdat->dstr_90__ARGLOOP.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_90__ARGLOOP.val, "ARGLOOP", sizeof (meltcdat->dstr_90__ARGLOOP.val)-1); meltcdat->dstr_90__ARGLOOP.val[7] = (char)0 ; meltcdat->dstr_90__ARGLOOP.slen = 7 ; /*iniobj dsym_91__PUT_INT*/ /*uniqueobj*/ if (!/*_._VALDATA___V164*/ meltfptr[163]) /*_._VALDATA___V164*/ meltfptr[163] = (melt_ptr_t )&meltcdat->dsym_91__PUT_INT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_91__PUT_INT", 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_91__PUT_INT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_91__PUT_INT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_91__PUT_INT.obj_hash = 266064506; meltcdat->dsym_91__PUT_INT.obj_len = 3; /*inistring dstr_92__PUT_INT*/ /*_._VALSTR___V165*/ meltfptr[164] = (melt_ptr_t) &meltcdat->dstr_92__PUT_INT; meltcdat->dstr_92__PUT_INT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_92__PUT_INT.val, "PUT_INT", sizeof (meltcdat->dstr_92__PUT_INT.val)-1); meltcdat->dstr_92__PUT_INT.val[7] = (char)0 ; meltcdat->dstr_92__PUT_INT.slen = 7 ; /*iniobj dsym_93__VARIADIC*/ /*uniqueobj*/ if (!/*_._VALDATA___V166*/ meltfptr[165]) /*_._VALDATA___V166*/ meltfptr[165] = (melt_ptr_t )&meltcdat->dsym_93__VARIADIC; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_93__VARIADIC", 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__VARIADIC", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_93__VARIADIC.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_93__VARIADIC.obj_hash = 51178959; meltcdat->dsym_93__VARIADIC.obj_len = 3; /*inistring dstr_94__VARIADIC*/ /*_._VALSTR___V167*/ meltfptr[166] = (melt_ptr_t) &meltcdat->dstr_94__VARIADIC; meltcdat->dstr_94__VARIADIC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_94__VARIADIC.val, "VARIADIC", sizeof (meltcdat->dstr_94__VARIADIC.val)-1); meltcdat->dstr_94__VARIADIC.val[8] = (char)0 ; meltcdat->dstr_94__VARIADIC.slen = 8 ; /*iniobj dsym_95__EXIT*/ /*uniqueobj*/ if (!/*_._VALDATA___V168*/ meltfptr[167]) /*_._VALDATA___V168*/ meltfptr[167] = (melt_ptr_t )&meltcdat->dsym_95__EXIT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_95__EXIT", 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__EXIT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_95__EXIT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_95__EXIT.obj_hash = 90311298; meltcdat->dsym_95__EXIT.obj_len = 3; /*inistring dstr_96__EXIT*/ /*_._VALSTR___V169*/ meltfptr[168] = (melt_ptr_t) &meltcdat->dstr_96__EXIT; meltcdat->dstr_96__EXIT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_96__EXIT.val, "EXIT", sizeof (meltcdat->dstr_96__EXIT.val)-1); meltcdat->dstr_96__EXIT.val[4] = (char)0 ; meltcdat->dstr_96__EXIT.slen = 4 ; /*iniobj dsym_97__CSTRING*/ /*uniqueobj*/ if (!/*_._VALDATA___V170*/ meltfptr[169]) /*_._VALDATA___V170*/ meltfptr[169] = (melt_ptr_t )&meltcdat->dsym_97__CSTRING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_97__CSTRING", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_97__CSTRING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_97__CSTRING.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))); meltcdat->dsym_97__CSTRING.obj_hash = 33530498; meltcdat->dsym_97__CSTRING.obj_len = 3; /*inistring dstr_98__CSTRING*/ /*_._VALSTR___V171*/ meltfptr[170] = (melt_ptr_t) &meltcdat->dstr_98__CSTRING; meltcdat->dstr_98__CSTRING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_98__CSTRING.val, "CSTRING", sizeof (meltcdat->dstr_98__CSTRING.val)-1); meltcdat->dstr_98__CSTRING.val[7] = (char)0 ; meltcdat->dstr_98__CSTRING.slen = 7 ; /*iniobj dsym_99__STR*/ /*uniqueobj*/ if (!/*_._VALDATA___V172*/ meltfptr[171]) /*_._VALDATA___V172*/ meltfptr[171] = (melt_ptr_t )&meltcdat->dsym_99__STR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_99__STR", 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_99__STR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_99__STR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_99__STR.obj_hash = 97600829; meltcdat->dsym_99__STR.obj_len = 3; /*inistring dstr_100__STR*/ /*_._VALSTR___V173*/ meltfptr[172] = (melt_ptr_t) &meltcdat->dstr_100__STR; meltcdat->dstr_100__STR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_100__STR.val, "STR", sizeof (meltcdat->dstr_100__STR.val)-1); meltcdat->dstr_100__STR.val[3] = (char)0 ; meltcdat->dstr_100__STR.slen = 3 ; /*iniobj dsym_101__BS*/ /*uniqueobj*/ if (!/*_._VALDATA___V174*/ meltfptr[173]) /*_._VALDATA___V174*/ meltfptr[173] = (melt_ptr_t )&meltcdat->dsym_101__BS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_101__BS", 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_101__BS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_101__BS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_101__BS.obj_hash = 80157055; meltcdat->dsym_101__BS.obj_len = 3; /*inistring dstr_102__BS*/ /*_._VALSTR___V175*/ meltfptr[174] = (melt_ptr_t) &meltcdat->dstr_102__BS; meltcdat->dstr_102__BS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_102__BS.val, "BS", sizeof (meltcdat->dstr_102__BS.val)-1); meltcdat->dstr_102__BS.val[2] = (char)0 ; meltcdat->dstr_102__BS.slen = 2 ; /*iniobj dsym_103__CONSTANT_BOX*/ /*uniqueobj*/ if (!/*_._VALDATA___V176*/ meltfptr[175]) /*_._VALDATA___V176*/ meltfptr[175] = (melt_ptr_t )&meltcdat->dsym_103__CONSTANT_BOX; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_103__CONSTANT_BOX", 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_103__CONSTANT_BOX", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_103__CONSTANT_BOX.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_103__CONSTANT_BOX.obj_hash = 1011177658; meltcdat->dsym_103__CONSTANT_BOX.obj_len = 3; /*inistring dstr_104__CONSTANT_BOX*/ /*_._VALSTR___V177*/ meltfptr[176] = (melt_ptr_t) &meltcdat->dstr_104__CONSTANT_BOX; meltcdat->dstr_104__CONSTANT_BOX.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_104__CONSTANT_BOX.val, "CONSTANT_BOX", sizeof (meltcdat->dstr_104__CONSTANT_BOX.val)-1); meltcdat->dstr_104__CONSTANT_BOX.val[12] = (char)0 ; meltcdat->dstr_104__CONSTANT_BOX.slen = 12 ; /*iniobj dsym_105__pl*/ /*uniqueobj*/ if (!/*_._VALDATA___V178*/ meltfptr[177]) /*_._VALDATA___V178*/ meltfptr[177] = (melt_ptr_t )&meltcdat->dsym_105__pl; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_105__pl", 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_105__pl", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_105__pl.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_105__pl.obj_hash = 1020332241; meltcdat->dsym_105__pl.obj_len = 3; /*inistring dstr_106__*/ /*_._VALSTR___V179*/ meltfptr[178] = (melt_ptr_t) &meltcdat->dstr_106__; meltcdat->dstr_106__.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_106__.val, "+", sizeof (meltcdat->dstr_106__.val)-1); meltcdat->dstr_106__.val[1] = (char)0 ; meltcdat->dstr_106__.slen = 1 ; /*iniobj dsym_107__MULTIPLE_PUT_NTH*/ /*uniqueobj*/ if (!/*_._VALDATA___V180*/ meltfptr[179]) /*_._VALDATA___V180*/ meltfptr[179] = (melt_ptr_t )&meltcdat->dsym_107__MULTIPLE_PUT_NTH; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_107__MULTIPLE_PUT_NTH", 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__MULTIPLE_PUT_NTH", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_107__MULTIPLE_PUT_NTH.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_107__MULTIPLE_PUT_NTH.obj_hash = 1041836531; meltcdat->dsym_107__MULTIPLE_PUT_NTH.obj_len = 3; /*inistring dstr_108__MULTIPLE_PUT_NTH*/ /*_._VALSTR___V181*/ meltfptr[180] = (melt_ptr_t) &meltcdat->dstr_108__MULTIPLE_PUT_NTH; meltcdat->dstr_108__MULTIPLE_PUT_NTH.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_108__MULTIPLE_PUT_NTH.val, "MULTIPLE_PUT_NTH", sizeof (meltcdat->dstr_108__MULTIPLE_PUT_NTH.val)-1); meltcdat->dstr_108__MULTIPLE_PUT_NTH.val[16] = (char)0 ; meltcdat->dstr_108__MULTIPLE_PUT_NTH.slen = 16 ; /*iniobj dsym_109__VOID*/ /*uniqueobj*/ if (!/*_._VALDATA___V182*/ meltfptr[181]) /*_._VALDATA___V182*/ meltfptr[181] = (melt_ptr_t )&meltcdat->dsym_109__VOID; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_109__VOID", 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_109__VOID", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_109__VOID.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_109__VOID.obj_hash = 667258433; meltcdat->dsym_109__VOID.obj_len = 3; /*inistring dstr_110__VOID*/ /*_._VALSTR___V183*/ meltfptr[182] = (melt_ptr_t) &meltcdat->dstr_110__VOID; meltcdat->dstr_110__VOID.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_110__VOID.val, "VOID", sizeof (meltcdat->dstr_110__VOID.val)-1); meltcdat->dstr_110__VOID.val[4] = (char)0 ; meltcdat->dstr_110__VOID.slen = 4 ; /*iniobj dsym_111__LONG*/ /*uniqueobj*/ if (!/*_._VALDATA___V184*/ meltfptr[183]) /*_._VALDATA___V184*/ meltfptr[183] = (melt_ptr_t )&meltcdat->dsym_111__LONG; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_111__LONG", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_111__LONG", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_111__LONG.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))); meltcdat->dsym_111__LONG.obj_hash = 22911159; meltcdat->dsym_111__LONG.obj_len = 3; /*inistring dstr_112__LONG*/ /*_._VALSTR___V185*/ meltfptr[184] = (melt_ptr_t) &meltcdat->dstr_112__LONG; meltcdat->dstr_112__LONG.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_112__LONG.val, "LONG", sizeof (meltcdat->dstr_112__LONG.val)-1); meltcdat->dstr_112__LONG.val[4] = (char)0 ; meltcdat->dstr_112__LONG.slen = 4 ; /*iniobj dsym_113__L*/ /*uniqueobj*/ if (!/*_._VALDATA___V186*/ meltfptr[185]) /*_._VALDATA___V186*/ meltfptr[185] = (melt_ptr_t )&meltcdat->dsym_113__L; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_113__L", 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_113__L", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_113__L.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_113__L.obj_hash = 89697773; meltcdat->dsym_113__L.obj_len = 3; /*inistring dstr_114__L*/ /*_._VALSTR___V187*/ meltfptr[186] = (melt_ptr_t) &meltcdat->dstr_114__L; meltcdat->dstr_114__L.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_114__L.val, "L", sizeof (meltcdat->dstr_114__L.val)-1); meltcdat->dstr_114__L.val[1] = (char)0 ; meltcdat->dstr_114__L.slen = 1 ; /*iniobj dsym_115__SN*/ /*uniqueobj*/ if (!/*_._VALDATA___V188*/ meltfptr[187]) /*_._VALDATA___V188*/ meltfptr[187] = (melt_ptr_t )&meltcdat->dsym_115__SN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_115__SN", 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_115__SN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_115__SN.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_115__SN.obj_hash = 89560280; meltcdat->dsym_115__SN.obj_len = 3; /*inistring dstr_116__SN*/ /*_._VALSTR___V189*/ meltfptr[188] = (melt_ptr_t) &meltcdat->dstr_116__SN; meltcdat->dstr_116__SN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_116__SN.val, "SN", sizeof (meltcdat->dstr_116__SN.val)-1); meltcdat->dstr_116__SN.val[2] = (char)0 ; meltcdat->dstr_116__SN.slen = 2 ; /*iniobj dsym_117__TREE*/ /*uniqueobj*/ if (!/*_._VALDATA___V194*/ meltfptr[193]) /*_._VALDATA___V194*/ meltfptr[193] = (melt_ptr_t )&meltcdat->dsym_117__TREE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_117__TREE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_117__TREE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_117__TREE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))); meltcdat->dsym_117__TREE.obj_hash = 114172609; meltcdat->dsym_117__TREE.obj_len = 3; /*inistring dstr_118__TREE*/ /*_._VALSTR___V195*/ meltfptr[194] = (melt_ptr_t) &meltcdat->dstr_118__TREE; meltcdat->dstr_118__TREE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_118__TREE.val, "TREE", sizeof (meltcdat->dstr_118__TREE.val)-1); meltcdat->dstr_118__TREE.val[4] = (char)0 ; meltcdat->dstr_118__TREE.slen = 4 ; /*iniobj dsym_119__TR*/ /*uniqueobj*/ if (!/*_._VALDATA___V196*/ meltfptr[195]) /*_._VALDATA___V196*/ meltfptr[195] = (melt_ptr_t )&meltcdat->dsym_119__TR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_119__TR", 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_119__TR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_119__TR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_119__TR.obj_hash = 456223898; meltcdat->dsym_119__TR.obj_len = 3; /*inistring dstr_120__TR*/ /*_._VALSTR___V197*/ meltfptr[196] = (melt_ptr_t) &meltcdat->dstr_120__TR; meltcdat->dstr_120__TR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_120__TR.val, "TR", sizeof (meltcdat->dstr_120__TR.val)-1); meltcdat->dstr_120__TR.val[2] = (char)0 ; meltcdat->dstr_120__TR.slen = 2 ; /*iniobj dsym_121__ASSERT_MSG*/ /*uniqueobj*/ if (!/*_._VALDATA___V198*/ meltfptr[197]) /*_._VALDATA___V198*/ meltfptr[197] = (melt_ptr_t )&meltcdat->dsym_121__ASSERT_MSG; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_121__ASSERT_MSG", 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_121__ASSERT_MSG", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_121__ASSERT_MSG.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_121__ASSERT_MSG.obj_hash = 877781164; meltcdat->dsym_121__ASSERT_MSG.obj_len = 3; /*inistring dstr_122__ASSERT_MSG*/ /*_._VALSTR___V199*/ meltfptr[198] = (melt_ptr_t) &meltcdat->dstr_122__ASSERT_MSG; meltcdat->dstr_122__ASSERT_MSG.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_122__ASSERT_MSG.val, "ASSERT_MSG", sizeof (meltcdat->dstr_122__ASSERT_MSG.val)-1); meltcdat->dstr_122__ASSERT_MSG.val[10] = (char)0 ; meltcdat->dstr_122__ASSERT_MSG.slen = 10 ; /*iniobj dsym_123__IS_CLOSURE*/ /*uniqueobj*/ if (!/*_._VALDATA___V200*/ meltfptr[199]) /*_._VALDATA___V200*/ meltfptr[199] = (melt_ptr_t )&meltcdat->dsym_123__IS_CLOSURE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_123__IS_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_123__IS_CLOSURE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_123__IS_CLOSURE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_123__IS_CLOSURE.obj_hash = 140016680; meltcdat->dsym_123__IS_CLOSURE.obj_len = 3; /*inistring dstr_124__IS_CLOSURE*/ /*_._VALSTR___V201*/ meltfptr[200] = (melt_ptr_t) &meltcdat->dstr_124__IS_CLOSURE; meltcdat->dstr_124__IS_CLOSURE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_124__IS_CLOSURE.val, "IS_CLOSURE", sizeof (meltcdat->dstr_124__IS_CLOSURE.val)-1); meltcdat->dstr_124__IS_CLOSURE.val[10] = (char)0 ; meltcdat->dstr_124__IS_CLOSURE.slen = 10 ; /*iniobj dsym_125__DIAGV_TREE*/ /*uniqueobj*/ if (!/*_._VALDATA___V202*/ meltfptr[201]) /*_._VALDATA___V202*/ meltfptr[201] = (melt_ptr_t )&meltcdat->dsym_125__DIAGV_TREE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_125__DIAGV_TREE", 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_125__DIAGV_TREE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_125__DIAGV_TREE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_125__DIAGV_TREE.obj_hash = 79593499; meltcdat->dsym_125__DIAGV_TREE.obj_len = 3; /*inistring dstr_126__DIAGV_TREE*/ /*_._VALSTR___V203*/ meltfptr[202] = (melt_ptr_t) &meltcdat->dstr_126__DIAGV_TREE; meltcdat->dstr_126__DIAGV_TREE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_126__DIAGV_TREE.val, "DIAGV_TREE", sizeof (meltcdat->dstr_126__DIAGV_TREE.val)-1); meltcdat->dstr_126__DIAGV_TREE.val[10] = (char)0 ; meltcdat->dstr_126__DIAGV_TREE.slen = 10 ; /*iniobj dsym_127__S*/ /*uniqueobj*/ if (!/*_._VALDATA___V204*/ meltfptr[203]) /*_._VALDATA___V204*/ meltfptr[203] = (melt_ptr_t )&meltcdat->dsym_127__S; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_127__S", 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__S", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_127__S.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_127__S.obj_hash = 71583210; meltcdat->dsym_127__S.obj_len = 3; /*inistring dstr_128__S*/ /*_._VALSTR___V205*/ meltfptr[204] = (melt_ptr_t) &meltcdat->dstr_128__S; meltcdat->dstr_128__S.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_128__S.val, "S", sizeof (meltcdat->dstr_128__S.val)-1); meltcdat->dstr_128__S.val[1] = (char)0 ; meltcdat->dstr_128__S.slen = 1 ; /*iniobj dsym_129__GIMPLE*/ /*uniqueobj*/ if (!/*_._VALDATA___V206*/ meltfptr[205]) /*_._VALDATA___V206*/ meltfptr[205] = (melt_ptr_t )&meltcdat->dsym_129__GIMPLE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_129__GIMPLE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_129__GIMPLE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_129__GIMPLE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))); meltcdat->dsym_129__GIMPLE.obj_hash = 236556636; meltcdat->dsym_129__GIMPLE.obj_len = 3; /*inistring dstr_130__GIMPLE*/ /*_._VALSTR___V207*/ meltfptr[206] = (melt_ptr_t) &meltcdat->dstr_130__GIMPLE; meltcdat->dstr_130__GIMPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_130__GIMPLE.val, "GIMPLE", sizeof (meltcdat->dstr_130__GIMPLE.val)-1); meltcdat->dstr_130__GIMPLE.val[6] = (char)0 ; meltcdat->dstr_130__GIMPLE.slen = 6 ; /*iniobj dsym_131__GI*/ /*uniqueobj*/ if (!/*_._VALDATA___V208*/ meltfptr[207]) /*_._VALDATA___V208*/ meltfptr[207] = (melt_ptr_t )&meltcdat->dsym_131__GI; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_131__GI", 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_131__GI", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_131__GI.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_131__GI.obj_hash = 174549862; meltcdat->dsym_131__GI.obj_len = 3; /*inistring dstr_132__GI*/ /*_._VALSTR___V209*/ meltfptr[208] = (melt_ptr_t) &meltcdat->dstr_132__GI; meltcdat->dstr_132__GI.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_132__GI.val, "GI", sizeof (meltcdat->dstr_132__GI.val)-1); meltcdat->dstr_132__GI.val[2] = (char)0 ; meltcdat->dstr_132__GI.slen = 2 ; /*iniobj dsym_133__DIAGV_GIMPLE*/ /*uniqueobj*/ if (!/*_._VALDATA___V210*/ meltfptr[209]) /*_._VALDATA___V210*/ meltfptr[209] = (melt_ptr_t )&meltcdat->dsym_133__DIAGV_GIMPLE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_133__DIAGV_GIMPLE", 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_133__DIAGV_GIMPLE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_133__DIAGV_GIMPLE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_133__DIAGV_GIMPLE.obj_hash = 533859598; meltcdat->dsym_133__DIAGV_GIMPLE.obj_len = 3; /*inistring dstr_134__DIAGV_GIMPLE*/ /*_._VALSTR___V211*/ meltfptr[210] = (melt_ptr_t) &meltcdat->dstr_134__DIAGV_GIMPLE; meltcdat->dstr_134__DIAGV_GIMPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_134__DIAGV_GIMPLE.val, "DIAGV_GIMPLE", sizeof (meltcdat->dstr_134__DIAGV_GIMPLE.val)-1); meltcdat->dstr_134__DIAGV_GIMPLE.val[12] = (char)0 ; meltcdat->dstr_134__DIAGV_GIMPLE.slen = 12 ; /*iniobj dsym_135__GIMPLE_SEQ*/ /*uniqueobj*/ if (!/*_._VALDATA___V212*/ meltfptr[211]) /*_._VALDATA___V212*/ meltfptr[211] = (melt_ptr_t )&meltcdat->dsym_135__GIMPLE_SEQ; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_135__GIMPLE_SEQ", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_135__GIMPLE_SEQ", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_135__GIMPLE_SEQ.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))); meltcdat->dsym_135__GIMPLE_SEQ.obj_hash = 547996591; meltcdat->dsym_135__GIMPLE_SEQ.obj_len = 3; /*inistring dstr_136__GIMPLE_SEQ*/ /*_._VALSTR___V213*/ meltfptr[212] = (melt_ptr_t) &meltcdat->dstr_136__GIMPLE_SEQ; meltcdat->dstr_136__GIMPLE_SEQ.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_136__GIMPLE_SEQ.val, "GIMPLE_SEQ", sizeof (meltcdat->dstr_136__GIMPLE_SEQ.val)-1); meltcdat->dstr_136__GIMPLE_SEQ.val[10] = (char)0 ; meltcdat->dstr_136__GIMPLE_SEQ.slen = 10 ; /*iniobj dsym_137__GS*/ /*uniqueobj*/ if (!/*_._VALDATA___V214*/ meltfptr[213]) /*_._VALDATA___V214*/ meltfptr[213] = (melt_ptr_t )&meltcdat->dsym_137__GS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_137__GS", 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__GS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_137__GS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_137__GS.obj_hash = 606795497; meltcdat->dsym_137__GS.obj_len = 3; /*inistring dstr_138__GS*/ /*_._VALSTR___V215*/ meltfptr[214] = (melt_ptr_t) &meltcdat->dstr_138__GS; meltcdat->dstr_138__GS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_138__GS.val, "GS", sizeof (meltcdat->dstr_138__GS.val)-1); meltcdat->dstr_138__GS.val[2] = (char)0 ; meltcdat->dstr_138__GS.slen = 2 ; /*iniobj dsym_139__DIAGV_GIMPLE_SEQ*/ /*uniqueobj*/ if (!/*_._VALDATA___V216*/ meltfptr[215]) /*_._VALDATA___V216*/ meltfptr[215] = (melt_ptr_t )&meltcdat->dsym_139__DIAGV_GIMPLE_SEQ; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_139__DIAGV_GIMPLE_SEQ", 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__DIAGV_GIMPLE_SEQ", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_139__DIAGV_GIMPLE_SEQ.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_139__DIAGV_GIMPLE_SEQ.obj_hash = 387249375; meltcdat->dsym_139__DIAGV_GIMPLE_SEQ.obj_len = 3; /*inistring dstr_140__DIAGV_GIMPLE_SEQ*/ /*_._VALSTR___V217*/ meltfptr[216] = (melt_ptr_t) &meltcdat->dstr_140__DIAGV_GIMPLE_SEQ; meltcdat->dstr_140__DIAGV_GIMPLE_SEQ.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_140__DIAGV_GIMPLE_SEQ.val, "DIAGV_GIMPLE_SEQ", sizeof (meltcdat->dstr_140__DIAGV_GIMPLE_SEQ.val)-1); meltcdat->dstr_140__DIAGV_GIMPLE_SEQ.val[16] = (char)0 ; meltcdat->dstr_140__DIAGV_GIMPLE_SEQ.slen = 16 ; /*iniobj dsym_141__BASIC_BLOCK*/ /*uniqueobj*/ if (!/*_._VALDATA___V218*/ meltfptr[217]) /*_._VALDATA___V218*/ meltfptr[217] = (melt_ptr_t )&meltcdat->dsym_141__BASIC_BLOCK; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_141__BASIC_BLOCK", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_141__BASIC_BLOCK", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_141__BASIC_BLOCK.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))); meltcdat->dsym_141__BASIC_BLOCK.obj_hash = 760231711; meltcdat->dsym_141__BASIC_BLOCK.obj_len = 3; /*inistring dstr_142__BASIC_BLOCK*/ /*_._VALSTR___V219*/ meltfptr[218] = (melt_ptr_t) &meltcdat->dstr_142__BASIC_BLOCK; meltcdat->dstr_142__BASIC_BLOCK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_142__BASIC_BLOCK.val, "BASIC_BLOCK", sizeof (meltcdat->dstr_142__BASIC_BLOCK.val)-1); meltcdat->dstr_142__BASIC_BLOCK.val[11] = (char)0 ; meltcdat->dstr_142__BASIC_BLOCK.slen = 11 ; /*iniobj dsym_143__BB*/ /*uniqueobj*/ if (!/*_._VALDATA___V220*/ meltfptr[219]) /*_._VALDATA___V220*/ meltfptr[219] = (melt_ptr_t )&meltcdat->dsym_143__BB; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_143__BB", 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__BB", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_143__BB.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_143__BB.obj_hash = 375612323; meltcdat->dsym_143__BB.obj_len = 3; /*inistring dstr_144__BB*/ /*_._VALSTR___V221*/ meltfptr[220] = (melt_ptr_t) &meltcdat->dstr_144__BB; meltcdat->dstr_144__BB.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_144__BB.val, "BB", sizeof (meltcdat->dstr_144__BB.val)-1); meltcdat->dstr_144__BB.val[2] = (char)0 ; meltcdat->dstr_144__BB.slen = 2 ; /*iniobj dsym_145__DIAGV_BASIC_BLOCK*/ /*uniqueobj*/ if (!/*_._VALDATA___V222*/ meltfptr[221]) /*_._VALDATA___V222*/ meltfptr[221] = (melt_ptr_t )&meltcdat->dsym_145__DIAGV_BASIC_BLOCK; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_145__DIAGV_BASIC_BLOCK", 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_145__DIAGV_BASIC_BLOCK", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_145__DIAGV_BASIC_BLOCK.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_145__DIAGV_BASIC_BLOCK.obj_hash = 822319461; meltcdat->dsym_145__DIAGV_BASIC_BLOCK.obj_len = 3; /*inistring dstr_146__DIAGV_BASIC_BLOCK*/ /*_._VALSTR___V223*/ meltfptr[222] = (melt_ptr_t) &meltcdat->dstr_146__DIAGV_BASIC_BLOCK; meltcdat->dstr_146__DIAGV_BASIC_BLOCK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_146__DIAGV_BASIC_BLOCK.val, "DIAGV_BASIC_BLOCK", sizeof (meltcdat->dstr_146__DIAGV_BASIC_BLOCK.val)-1); meltcdat->dstr_146__DIAGV_BASIC_BLOCK.val[17] = (char)0 ; meltcdat->dstr_146__DIAGV_BASIC_BLOCK.slen = 17 ; /*iniobj dsym_147__EDGE*/ /*uniqueobj*/ if (!/*_._VALDATA___V224*/ meltfptr[223]) /*_._VALDATA___V224*/ meltfptr[223] = (melt_ptr_t )&meltcdat->dsym_147__EDGE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_147__EDGE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_147__EDGE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_147__EDGE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))); meltcdat->dsym_147__EDGE.obj_hash = 132743413; meltcdat->dsym_147__EDGE.obj_len = 3; /*inistring dstr_148__EDGE*/ /*_._VALSTR___V225*/ meltfptr[224] = (melt_ptr_t) &meltcdat->dstr_148__EDGE; meltcdat->dstr_148__EDGE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_148__EDGE.val, "EDGE", sizeof (meltcdat->dstr_148__EDGE.val)-1); meltcdat->dstr_148__EDGE.val[4] = (char)0 ; meltcdat->dstr_148__EDGE.slen = 4 ; /*iniobj dsym_149__ED*/ /*uniqueobj*/ if (!/*_._VALDATA___V226*/ meltfptr[225]) /*_._VALDATA___V226*/ meltfptr[225] = (melt_ptr_t )&meltcdat->dsym_149__ED; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_149__ED", 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_149__ED", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_149__ED.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_149__ED.obj_hash = 316001137; meltcdat->dsym_149__ED.obj_len = 3; /*inistring dstr_150__ED*/ /*_._VALSTR___V227*/ meltfptr[226] = (melt_ptr_t) &meltcdat->dstr_150__ED; meltcdat->dstr_150__ED.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_150__ED.val, "ED", sizeof (meltcdat->dstr_150__ED.val)-1); meltcdat->dstr_150__ED.val[2] = (char)0 ; meltcdat->dstr_150__ED.slen = 2 ; /*iniobj dsym_151__DIAGV_EDGE*/ /*uniqueobj*/ if (!/*_._VALDATA___V228*/ meltfptr[227]) /*_._VALDATA___V228*/ meltfptr[227] = (melt_ptr_t )&meltcdat->dsym_151__DIAGV_EDGE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_151__DIAGV_EDGE", 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_151__DIAGV_EDGE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_151__DIAGV_EDGE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_151__DIAGV_EDGE.obj_hash = 463438191; meltcdat->dsym_151__DIAGV_EDGE.obj_len = 3; /*inistring dstr_152__DIAGV_EDGE*/ /*_._VALSTR___V229*/ meltfptr[228] = (melt_ptr_t) &meltcdat->dstr_152__DIAGV_EDGE; meltcdat->dstr_152__DIAGV_EDGE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_152__DIAGV_EDGE.val, "DIAGV_EDGE", sizeof (meltcdat->dstr_152__DIAGV_EDGE.val)-1); meltcdat->dstr_152__DIAGV_EDGE.val[10] = (char)0 ; meltcdat->dstr_152__DIAGV_EDGE.slen = 10 ; /*iniobj dsym_153__VALUE*/ /*uniqueobj*/ if (!/*_._VALDATA___V230*/ meltfptr[229]) /*_._VALDATA___V230*/ meltfptr[229] = (melt_ptr_t )&meltcdat->dsym_153__VALUE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_153__VALUE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_153__VALUE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_153__VALUE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))); meltcdat->dsym_153__VALUE.obj_hash = 68391938; meltcdat->dsym_153__VALUE.obj_len = 3; /*inistring dstr_154__VALUE*/ /*_._VALSTR___V231*/ meltfptr[230] = (melt_ptr_t) &meltcdat->dstr_154__VALUE; meltcdat->dstr_154__VALUE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_154__VALUE.val, "VALUE", sizeof (meltcdat->dstr_154__VALUE.val)-1); meltcdat->dstr_154__VALUE.val[5] = (char)0 ; meltcdat->dstr_154__VALUE.slen = 5 ; /*iniobj dsym_155__V*/ /*uniqueobj*/ if (!/*_._VALDATA___V232*/ meltfptr[231]) /*_._VALDATA___V232*/ meltfptr[231] = (melt_ptr_t )&meltcdat->dsym_155__V; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_155__V", 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__V", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_155__V.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_155__V.obj_hash = 16163707; meltcdat->dsym_155__V.obj_len = 3; /*inistring dstr_156__V*/ /*_._VALSTR___V233*/ meltfptr[232] = (melt_ptr_t) &meltcdat->dstr_156__V; meltcdat->dstr_156__V.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_156__V.val, "V", sizeof (meltcdat->dstr_156__V.val)-1); meltcdat->dstr_156__V.val[1] = (char)0 ; meltcdat->dstr_156__V.slen = 1 ; /*iniobj dsym_157__COND*/ /*uniqueobj*/ if (!/*_._VALDATA___V234*/ meltfptr[233]) /*_._VALDATA___V234*/ meltfptr[233] = (melt_ptr_t )&meltcdat->dsym_157__COND; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_157__COND", 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__COND", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_157__COND.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_157__COND.obj_hash = 51211759; meltcdat->dsym_157__COND.obj_len = 3; /*inistring dstr_158__COND*/ /*_._VALSTR___V235*/ meltfptr[234] = (melt_ptr_t) &meltcdat->dstr_158__COND; meltcdat->dstr_158__COND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_158__COND.val, "COND", sizeof (meltcdat->dstr_158__COND.val)-1); meltcdat->dstr_158__COND.val[4] = (char)0 ; meltcdat->dstr_158__COND.slen = 4 ; /*iniobj dsym_159__IS_INTEGERBOX*/ /*uniqueobj*/ if (!/*_._VALDATA___V236*/ meltfptr[235]) /*_._VALDATA___V236*/ meltfptr[235] = (melt_ptr_t )&meltcdat->dsym_159__IS_INTEGERBOX; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_159__IS_INTEGERBOX", 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_159__IS_INTEGERBOX", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_159__IS_INTEGERBOX.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_159__IS_INTEGERBOX.obj_hash = 847263095; meltcdat->dsym_159__IS_INTEGERBOX.obj_len = 3; /*inistring dstr_160__IS_INTEGERBOX*/ /*_._VALSTR___V237*/ meltfptr[236] = (melt_ptr_t) &meltcdat->dstr_160__IS_INTEGERBOX; meltcdat->dstr_160__IS_INTEGERBOX.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_160__IS_INTEGERBOX.val, "IS_INTEGERBOX", sizeof (meltcdat->dstr_160__IS_INTEGERBOX.val)-1); meltcdat->dstr_160__IS_INTEGERBOX.val[13] = (char)0 ; meltcdat->dstr_160__IS_INTEGERBOX.slen = 13 ; /*iniobj dsym_161__GET_INT*/ /*uniqueobj*/ if (!/*_._VALDATA___V238*/ meltfptr[237]) /*_._VALDATA___V238*/ meltfptr[237] = (melt_ptr_t )&meltcdat->dsym_161__GET_INT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_161__GET_INT", 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__GET_INT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_161__GET_INT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_161__GET_INT.obj_hash = 330332949; meltcdat->dsym_161__GET_INT.obj_len = 3; /*inistring dstr_162__GET_INT*/ /*_._VALSTR___V239*/ meltfptr[238] = (melt_ptr_t) &meltcdat->dstr_162__GET_INT; meltcdat->dstr_162__GET_INT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_162__GET_INT.val, "GET_INT", sizeof (meltcdat->dstr_162__GET_INT.val)-1); meltcdat->dstr_162__GET_INT.val[7] = (char)0 ; meltcdat->dstr_162__GET_INT.slen = 7 ; /*iniobj dsym_163__IS_STRING*/ /*uniqueobj*/ if (!/*_._VALDATA___V240*/ meltfptr[239]) /*_._VALDATA___V240*/ meltfptr[239] = (melt_ptr_t )&meltcdat->dsym_163__IS_STRING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_163__IS_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_163__IS_STRING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_163__IS_STRING.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_163__IS_STRING.obj_hash = 16308396; meltcdat->dsym_163__IS_STRING.obj_len = 3; /*inistring dstr_164__IS_STRING*/ /*_._VALSTR___V241*/ meltfptr[240] = (melt_ptr_t) &meltcdat->dstr_164__IS_STRING; meltcdat->dstr_164__IS_STRING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_164__IS_STRING.val, "IS_STRING", sizeof (meltcdat->dstr_164__IS_STRING.val)-1); meltcdat->dstr_164__IS_STRING.val[9] = (char)0 ; meltcdat->dstr_164__IS_STRING.slen = 9 ; /*iniobj dsym_165__IS_A*/ /*uniqueobj*/ if (!/*_._VALDATA___V242*/ meltfptr[241]) /*_._VALDATA___V242*/ meltfptr[241] = (melt_ptr_t )&meltcdat->dsym_165__IS_A; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_165__IS_A", 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_165__IS_A", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_165__IS_A.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_165__IS_A.obj_hash = 732555866; meltcdat->dsym_165__IS_A.obj_len = 3; /*inistring dstr_166__IS_A*/ /*_._VALSTR___V243*/ meltfptr[242] = (melt_ptr_t) &meltcdat->dstr_166__IS_A; meltcdat->dstr_166__IS_A.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_166__IS_A.val, "IS_A", sizeof (meltcdat->dstr_166__IS_A.val)-1); meltcdat->dstr_166__IS_A.val[4] = (char)0 ; meltcdat->dstr_166__IS_A.slen = 4 ; /*iniobj dsym_167__AND*/ /*uniqueobj*/ if (!/*_._VALDATA___V244*/ meltfptr[243]) /*_._VALDATA___V244*/ meltfptr[243] = (melt_ptr_t )&meltcdat->dsym_167__AND; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_167__AND", 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_167__AND", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_167__AND.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_167__AND.obj_hash = 123533605; meltcdat->dsym_167__AND.obj_len = 3; /*inistring dstr_168__AND*/ /*_._VALSTR___V245*/ meltfptr[244] = (melt_ptr_t) &meltcdat->dstr_168__AND; meltcdat->dstr_168__AND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_168__AND.val, "AND", sizeof (meltcdat->dstr_168__AND.val)-1); meltcdat->dstr_168__AND.val[3] = (char)0 ; meltcdat->dstr_168__AND.slen = 3 ; /*iniobj dsym_169__CLASS_KEYWORD*/ /*uniqueobj*/ if (!/*_._VALDATA___V246*/ meltfptr[245]) /*_._VALDATA___V246*/ meltfptr[245] = (melt_ptr_t )&meltcdat->dsym_169__CLASS_KEYWORD; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_169__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_169__CLASS_KEYWORD", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_169__CLASS_KEYWORD.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_169__CLASS_KEYWORD.obj_hash = 14992133; meltcdat->dsym_169__CLASS_KEYWORD.obj_len = 3; /*inistring dstr_170__CLASS_KEYWORD*/ /*_._VALSTR___V247*/ meltfptr[246] = (melt_ptr_t) &meltcdat->dstr_170__CLASS_KEYWORD; meltcdat->dstr_170__CLASS_KEYWORD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_170__CLASS_KEYWORD.val, "CLASS_KEYWORD", sizeof (meltcdat->dstr_170__CLASS_KEYWORD.val)-1); meltcdat->dstr_170__CLASS_KEYWORD.val[13] = (char)0 ; meltcdat->dstr_170__CLASS_KEYWORD.slen = 13 ; /*iniobj dsym_171__GET_FIELD*/ /*uniqueobj*/ if (!/*_._VALDATA___V248*/ meltfptr[247]) /*_._VALDATA___V248*/ meltfptr[247] = (melt_ptr_t )&meltcdat->dsym_171__GET_FIELD; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_171__GET_FIELD", 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_171__GET_FIELD", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_171__GET_FIELD.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_171__GET_FIELD.obj_hash = 203020234; meltcdat->dsym_171__GET_FIELD.obj_len = 3; /*inistring dstr_172__GET_FIELD*/ /*_._VALSTR___V249*/ meltfptr[248] = (melt_ptr_t) &meltcdat->dstr_172__GET_FIELD; meltcdat->dstr_172__GET_FIELD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_172__GET_FIELD.val, "GET_FIELD", sizeof (meltcdat->dstr_172__GET_FIELD.val)-1); meltcdat->dstr_172__GET_FIELD.val[9] = (char)0 ; meltcdat->dstr_172__GET_FIELD.slen = 9 ; /*iniobj dsym_173__SYMB_DATA*/ /*uniqueobj*/ if (!/*_._VALDATA___V250*/ meltfptr[249]) /*_._VALDATA___V250*/ meltfptr[249] = (melt_ptr_t )&meltcdat->dsym_173__SYMB_DATA; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_173__SYMB_DATA", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_173__SYMB_DATA", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_173__SYMB_DATA.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))); meltcdat->dsym_173__SYMB_DATA.obj_hash = 1023052283; meltcdat->dsym_173__SYMB_DATA.obj_len = 3; /*inistring dstr_174__SYMB_DATA*/ /*_._VALSTR___V251*/ meltfptr[250] = (melt_ptr_t) &meltcdat->dstr_174__SYMB_DATA; meltcdat->dstr_174__SYMB_DATA.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_174__SYMB_DATA.val, "SYMB_DATA", sizeof (meltcdat->dstr_174__SYMB_DATA.val)-1); meltcdat->dstr_174__SYMB_DATA.val[9] = (char)0 ; meltcdat->dstr_174__SYMB_DATA.slen = 9 ; /*iniobj dsym_175__CLASS_NAMED*/ /*uniqueobj*/ if (!/*_._VALDATA___V252*/ meltfptr[251]) /*_._VALDATA___V252*/ meltfptr[251] = (melt_ptr_t )&meltcdat->dsym_175__CLASS_NAMED; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_175__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_175__CLASS_NAMED", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_175__CLASS_NAMED.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_175__CLASS_NAMED.obj_hash = 60407004; meltcdat->dsym_175__CLASS_NAMED.obj_len = 3; /*inistring dstr_176__CLASS_NAMED*/ /*_._VALSTR___V253*/ meltfptr[252] = (melt_ptr_t) &meltcdat->dstr_176__CLASS_NAMED; meltcdat->dstr_176__CLASS_NAMED.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_176__CLASS_NAMED.val, "CLASS_NAMED", sizeof (meltcdat->dstr_176__CLASS_NAMED.val)-1); meltcdat->dstr_176__CLASS_NAMED.val[11] = (char)0 ; meltcdat->dstr_176__CLASS_NAMED.slen = 11 ; /*iniobj dsym_177__NAM*/ /*uniqueobj*/ if (!/*_._VALDATA___V254*/ meltfptr[253]) /*_._VALDATA___V254*/ meltfptr[253] = (melt_ptr_t )&meltcdat->dsym_177__NAM; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_177__NAM", 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__NAM", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_177__NAM.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_177__NAM.obj_hash = 707406315; meltcdat->dsym_177__NAM.obj_len = 3; /*inistring dstr_178__NAM*/ /*_._VALSTR___V255*/ meltfptr[254] = (melt_ptr_t) &meltcdat->dstr_178__NAM; meltcdat->dstr_178__NAM.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_178__NAM.val, "NAM", sizeof (meltcdat->dstr_178__NAM.val)-1); meltcdat->dstr_178__NAM.val[3] = (char)0 ; meltcdat->dstr_178__NAM.slen = 3 ; /*iniobj dsym_179__UNSAFE_GET_FIELD*/ /*uniqueobj*/ if (!/*_._VALDATA___V256*/ meltfptr[255]) /*_._VALDATA___V256*/ meltfptr[255] = (melt_ptr_t )&meltcdat->dsym_179__UNSAFE_GET_FIELD; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_179__UNSAFE_GET_FIELD", 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_179__UNSAFE_GET_FIELD", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_179__UNSAFE_GET_FIELD.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_179__UNSAFE_GET_FIELD.obj_hash = 38069390; meltcdat->dsym_179__UNSAFE_GET_FIELD.obj_len = 3; /*inistring dstr_180__UNSAFE_GET_FIELD*/ /*_._VALSTR___V257*/ meltfptr[256] = (melt_ptr_t) &meltcdat->dstr_180__UNSAFE_GET_FIELD; meltcdat->dstr_180__UNSAFE_GET_FIELD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_180__UNSAFE_GET_FIELD.val, "UNSAFE_GET_FIELD", sizeof (meltcdat->dstr_180__UNSAFE_GET_FIELD.val)-1); meltcdat->dstr_180__UNSAFE_GET_FIELD.val[16] = (char)0 ; meltcdat->dstr_180__UNSAFE_GET_FIELD.slen = 16 ; /*iniobj dsym_181__NAMED_NAME*/ /*uniqueobj*/ if (!/*_._VALDATA___V258*/ meltfptr[257]) /*_._VALDATA___V258*/ meltfptr[257] = (melt_ptr_t )&meltcdat->dsym_181__NAMED_NAME; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_181__NAMED_NAME", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_181__NAMED_NAME", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_181__NAMED_NAME.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))); meltcdat->dsym_181__NAMED_NAME.obj_hash = 762762015; meltcdat->dsym_181__NAMED_NAME.obj_len = 3; /*inistring dstr_182__NAMED_NAME*/ /*_._VALSTR___V259*/ meltfptr[258] = (melt_ptr_t) &meltcdat->dstr_182__NAMED_NAME; meltcdat->dstr_182__NAMED_NAME.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_182__NAMED_NAME.val, "NAMED_NAME", sizeof (meltcdat->dstr_182__NAMED_NAME.val)-1); meltcdat->dstr_182__NAMED_NAME.val[10] = (char)0 ; meltcdat->dstr_182__NAMED_NAME.slen = 10 ; /*iniobj dsym_183__ELSE*/ /*uniqueobj*/ if (!/*_._VALDATA___V260*/ meltfptr[259]) /*_._VALDATA___V260*/ meltfptr[259] = (melt_ptr_t )&meltcdat->dsym_183__ELSE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_183__ELSE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_183__ELSE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_183__ELSE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))); meltcdat->dsym_183__ELSE.obj_hash = 34374860; meltcdat->dsym_183__ELSE.obj_len = 3; /*inistring dstr_184__ELSE*/ /*_._VALSTR___V261*/ meltfptr[260] = (melt_ptr_t) &meltcdat->dstr_184__ELSE; meltcdat->dstr_184__ELSE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_184__ELSE.val, "ELSE", sizeof (meltcdat->dstr_184__ELSE.val)-1); meltcdat->dstr_184__ELSE.val[4] = (char)0 ; meltcdat->dstr_184__ELSE.slen = 4 ; /*iniobj dsym_185__VCTY*/ /*uniqueobj*/ if (!/*_._VALDATA___V262*/ meltfptr[261]) /*_._VALDATA___V262*/ meltfptr[261] = (melt_ptr_t )&meltcdat->dsym_185__VCTY; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_185__VCTY", 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__VCTY", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_185__VCTY.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_185__VCTY.obj_hash = 76538482; meltcdat->dsym_185__VCTY.obj_len = 3; /*inistring dstr_186__VCTY*/ /*_._VALSTR___V263*/ meltfptr[262] = (melt_ptr_t) &meltcdat->dstr_186__VCTY; meltcdat->dstr_186__VCTY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_186__VCTY.val, "VCTY", sizeof (meltcdat->dstr_186__VCTY.val)-1); meltcdat->dstr_186__VCTY.val[4] = (char)0 ; meltcdat->dstr_186__VCTY.slen = 4 ; /*iniobj dsym_187__VARIADIC_CTYPE*/ /*uniqueobj*/ if (!/*_._VALDATA___V264*/ meltfptr[263]) /*_._VALDATA___V264*/ meltfptr[263] = (melt_ptr_t )&meltcdat->dsym_187__VARIADIC_CTYPE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_187__VARIADIC_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_187__VARIADIC_CTYPE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_187__VARIADIC_CTYPE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_187__VARIADIC_CTYPE.obj_hash = 119698505; meltcdat->dsym_187__VARIADIC_CTYPE.obj_len = 3; /*inistring dstr_188__VARIADIC_CTYPE*/ /*_._VALSTR___V265*/ meltfptr[264] = (melt_ptr_t) &meltcdat->dstr_188__VARIADIC_CTYPE; meltcdat->dstr_188__VARIADIC_CTYPE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_188__VARIADIC_CTYPE.val, "VARIADIC_CTYPE", sizeof (meltcdat->dstr_188__VARIADIC_CTYPE.val)-1); meltcdat->dstr_188__VARIADIC_CTYPE.val[14] = (char)0 ; meltcdat->dstr_188__VARIADIC_CTYPE.slen = 14 ; /*iniobj dsym_189__ERRORMSG_STRV*/ /*uniqueobj*/ if (!/*_._VALDATA___V266*/ meltfptr[265]) /*_._VALDATA___V266*/ meltfptr[265] = (melt_ptr_t )&meltcdat->dsym_189__ERRORMSG_STRV; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_189__ERRORMSG_STRV", 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_189__ERRORMSG_STRV", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_189__ERRORMSG_STRV.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_189__ERRORMSG_STRV.obj_hash = 218301686; meltcdat->dsym_189__ERRORMSG_STRV.obj_len = 3; /*inistring dstr_190__ERRORMSG_STRV*/ /*_._VALSTR___V267*/ meltfptr[266] = (melt_ptr_t) &meltcdat->dstr_190__ERRORMSG_STRV; meltcdat->dstr_190__ERRORMSG_STRV.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_190__ERRORMSG_STRV.val, "ERRORMSG_STRV", sizeof (meltcdat->dstr_190__ERRORMSG_STRV.val)-1); meltcdat->dstr_190__ERRORMSG_STRV.val[13] = (char)0 ; meltcdat->dstr_190__ERRORMSG_STRV.slen = 13 ; /*iniobj dsym_191__DIAGNOSTIC_ARGS_MACRO*/ /*uniqueobj*/ if (!/*_._VALDATA___V285*/ meltfptr[284]) /*_._VALDATA___V285*/ meltfptr[284] = (melt_ptr_t )&meltcdat->dsym_191__DIAGNOSTIC_ARGS_MACRO; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_191__DIAGNOSTIC_ARGS_MACRO", 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_191__DIAGNOSTIC_ARGS_MACRO", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_191__DIAGNOSTIC_ARGS_MACRO.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_191__DIAGNOSTIC_ARGS_MACRO.obj_hash = 254036073; meltcdat->dsym_191__DIAGNOSTIC_ARGS_MACRO.obj_len = 3; /*inistring dstr_192__DIAGNOSTIC_ARGS_MACRO*/ /*_._VALSTR___V286*/ meltfptr[285] = (melt_ptr_t) &meltcdat->dstr_192__DIAGNOSTIC_ARGS_MACRO; meltcdat->dstr_192__DIAGNOSTIC_ARGS_MACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_192__DIAGNOSTIC_ARGS_MACRO.val, "DIAGNOSTIC_ARGS_MACRO", sizeof (meltcdat->dstr_192__DIAGNOSTIC_ARGS_MACRO.val)-1); meltcdat->dstr_192__DIAGNOSTIC_ARGS_MACRO.val[21] = (char)0 ; meltcdat->dstr_192__DIAGNOSTIC_ARGS_MACRO.slen = 21 ; /*inirout drout_193__DIAGNOSTIC_EXPAND_MESSAGE*/ /*iniroutlocvar*/ /*_._VALROUT___V287*/ meltfptr[286] = (melt_ptr_t) &meltcdat->drout_193__DIAGNOSTIC_EXPAND_MESSAGE; meltcdat->drout_193__DIAGNOSTIC_EXPAND_MESSAGE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_193__DIAGNOSTIC_EXPAND_MESSAGE.routdescr, "DIAGNOSTIC_EXPAND_MESSAGE @warmelt-macro.melt:282", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_193__DIAGNOSTIC_EXPAND_MESSAGE.nbval = 5; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_193__DIAGNOSTIC_EXPAND_MESSAGE, meltrout_7_WARMELTmiMACRO_DIAGNOSTIC_EXPAND_MESSAGE); /*iniclos dclo_194__DIAGNOSTIC_EXPAND_MESSAGE*/ /*_._VALCLO___V288*/ meltfptr[287] = (melt_ptr_t) &meltcdat->dclo_194__DIAGNOSTIC_EXPAND_MESSAGE; meltcdat->dclo_194__DIAGNOSTIC_EXPAND_MESSAGE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_194__DIAGNOSTIC_EXPAND_MESSAGE.nbval = 0; /*iniobj dsym_195__DISCR_STRBUF*/ /*uniqueobj*/ if (!/*_._VALDATA___V289*/ meltfptr[288]) /*_._VALDATA___V289*/ meltfptr[288] = (melt_ptr_t )&meltcdat->dsym_195__DISCR_STRBUF; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_195__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_195__DISCR_STRBUF", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_195__DISCR_STRBUF.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_195__DISCR_STRBUF.obj_hash = 492035674; meltcdat->dsym_195__DISCR_STRBUF.obj_len = 3; /*inistring dstr_196__DISCR_STRBUF*/ /*_._VALSTR___V290*/ meltfptr[289] = (melt_ptr_t) &meltcdat->dstr_196__DISCR_STRBUF; meltcdat->dstr_196__DISCR_STRBUF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_196__DISCR_STRBUF.val, "DISCR_STRBUF", sizeof (meltcdat->dstr_196__DISCR_STRBUF.val)-1); meltcdat->dstr_196__DISCR_STRBUF.val[12] = (char)0 ; meltcdat->dstr_196__DISCR_STRBUF.slen = 12 ; /*iniobj dsym_197__ADD2OUT*/ /*uniqueobj*/ if (!/*_._VALDATA___V291*/ meltfptr[290]) /*_._VALDATA___V291*/ meltfptr[290] = (melt_ptr_t )&meltcdat->dsym_197__ADD2OUT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_197__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_197__ADD2OUT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_197__ADD2OUT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_197__ADD2OUT.obj_hash = 901325062; meltcdat->dsym_197__ADD2OUT.obj_len = 3; /*inistring dstr_198__ADD2OUT*/ /*_._VALSTR___V292*/ meltfptr[291] = (melt_ptr_t) &meltcdat->dstr_198__ADD2OUT; meltcdat->dstr_198__ADD2OUT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_198__ADD2OUT.val, "ADD2OUT", sizeof (meltcdat->dstr_198__ADD2OUT.val)-1); meltcdat->dstr_198__ADD2OUT.val[7] = (char)0 ; meltcdat->dstr_198__ADD2OUT.slen = 7 ; /*iniobj dsym_199__DIAGNOSTIC_EXPAND_MESSAGE*/ /*uniqueobj*/ if (!/*_._VALDATA___V293*/ meltfptr[292]) /*_._VALDATA___V293*/ meltfptr[292] = (melt_ptr_t )&meltcdat->dsym_199__DIAGNOSTIC_EXPAND_MESSAGE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_199__DIAGNOSTIC_EXPAND_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_199__DIAGNOSTIC_EXPAND_MESSAGE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_199__DIAGNOSTIC_EXPAND_MESSAGE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_199__DIAGNOSTIC_EXPAND_MESSAGE.obj_hash = 692743791; meltcdat->dsym_199__DIAGNOSTIC_EXPAND_MESSAGE.obj_len = 3; /*inistring dstr_200__DIAGNOSTIC_EXPAND_MESSAG*/ /*_._VALSTR___V294*/ meltfptr[293] = (melt_ptr_t) &meltcdat->dstr_200__DIAGNOSTIC_EXPAND_MESSAG; meltcdat->dstr_200__DIAGNOSTIC_EXPAND_MESSAG.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_200__DIAGNOSTIC_EXPAND_MESSAG.val, "DIAGNOSTIC_EXPAND_MESSAGE", sizeof (meltcdat->dstr_200__DIAGNOSTIC_EXPAND_MESSAG.val)-1); meltcdat->dstr_200__DIAGNOSTIC_EXPAND_MESSAG.val[25] = (char)0 ; meltcdat->dstr_200__DIAGNOSTIC_EXPAND_MESSAG.slen = 25 ; /*iniobj dsym_201__REGISTER_DIAG_BASIC_BLOCK*/ /*uniqueobj*/ if (!/*_._VALDATA___V295*/ meltfptr[294]) /*_._VALDATA___V295*/ meltfptr[294] = (melt_ptr_t )&meltcdat->dsym_201__REGISTER_DIAG_BASIC_BLOCK; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_201__REGISTER_DIAG_BASIC_BLOCK", 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_201__REGISTER_DIAG_BASIC_BLOCK", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_201__REGISTER_DIAG_BASIC_BLOCK.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_201__REGISTER_DIAG_BASIC_BLOCK.obj_hash = 823489460; meltcdat->dsym_201__REGISTER_DIAG_BASIC_BLOCK.obj_len = 3; /*inistring dstr_202__REGISTER_DIAG_BASIC_BLOC*/ /*_._VALSTR___V296*/ meltfptr[295] = (melt_ptr_t) &meltcdat->dstr_202__REGISTER_DIAG_BASIC_BLOC; meltcdat->dstr_202__REGISTER_DIAG_BASIC_BLOC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_202__REGISTER_DIAG_BASIC_BLOC.val, "REGISTER_DIAG_BASIC_BLOCK", sizeof (meltcdat->dstr_202__REGISTER_DIAG_BASIC_BLOC.val)-1); meltcdat->dstr_202__REGISTER_DIAG_BASIC_BLOC.val[25] = (char)0 ; meltcdat->dstr_202__REGISTER_DIAG_BASIC_BLOC.slen = 25 ; /*iniobj dsym_203__REGISTER_DIAG_EDGE*/ /*uniqueobj*/ if (!/*_._VALDATA___V297*/ meltfptr[296]) /*_._VALDATA___V297*/ meltfptr[296] = (melt_ptr_t )&meltcdat->dsym_203__REGISTER_DIAG_EDGE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_203__REGISTER_DIAG_EDGE", 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_203__REGISTER_DIAG_EDGE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_203__REGISTER_DIAG_EDGE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_203__REGISTER_DIAG_EDGE.obj_hash = 791818552; meltcdat->dsym_203__REGISTER_DIAG_EDGE.obj_len = 3; /*inistring dstr_204__REGISTER_DIAG_EDGE*/ /*_._VALSTR___V298*/ meltfptr[297] = (melt_ptr_t) &meltcdat->dstr_204__REGISTER_DIAG_EDGE; meltcdat->dstr_204__REGISTER_DIAG_EDGE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_204__REGISTER_DIAG_EDGE.val, "REGISTER_DIAG_EDGE", sizeof (meltcdat->dstr_204__REGISTER_DIAG_EDGE.val)-1); meltcdat->dstr_204__REGISTER_DIAG_EDGE.val[18] = (char)0 ; meltcdat->dstr_204__REGISTER_DIAG_EDGE.slen = 18 ; /*iniobj dsym_205__REGISTER_DIAG_GIMPLE*/ /*uniqueobj*/ if (!/*_._VALDATA___V299*/ meltfptr[298]) /*_._VALDATA___V299*/ meltfptr[298] = (melt_ptr_t )&meltcdat->dsym_205__REGISTER_DIAG_GIMPLE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_205__REGISTER_DIAG_GIMPLE", 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_205__REGISTER_DIAG_GIMPLE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_205__REGISTER_DIAG_GIMPLE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_205__REGISTER_DIAG_GIMPLE.obj_hash = 22086502; meltcdat->dsym_205__REGISTER_DIAG_GIMPLE.obj_len = 3; /*inistring dstr_206__REGISTER_DIAG_GIMPLE*/ /*_._VALSTR___V300*/ meltfptr[299] = (melt_ptr_t) &meltcdat->dstr_206__REGISTER_DIAG_GIMPLE; meltcdat->dstr_206__REGISTER_DIAG_GIMPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_206__REGISTER_DIAG_GIMPLE.val, "REGISTER_DIAG_GIMPLE", sizeof (meltcdat->dstr_206__REGISTER_DIAG_GIMPLE.val)-1); meltcdat->dstr_206__REGISTER_DIAG_GIMPLE.val[20] = (char)0 ; meltcdat->dstr_206__REGISTER_DIAG_GIMPLE.slen = 20 ; /*iniobj dsym_207__REGISTER_DIAG_GIMPLE_SEQ*/ /*uniqueobj*/ if (!/*_._VALDATA___V301*/ meltfptr[300]) /*_._VALDATA___V301*/ meltfptr[300] = (melt_ptr_t )&meltcdat->dsym_207__REGISTER_DIAG_GIMPLE_SEQ; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_207__REGISTER_DIAG_GIMPLE_SEQ", 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_207__REGISTER_DIAG_GIMPLE_SEQ", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_207__REGISTER_DIAG_GIMPLE_SEQ.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_207__REGISTER_DIAG_GIMPLE_SEQ.obj_hash = 748793658; meltcdat->dsym_207__REGISTER_DIAG_GIMPLE_SEQ.obj_len = 3; /*inistring dstr_208__REGISTER_DIAG_GIMPLE_SEQ*/ /*_._VALSTR___V302*/ meltfptr[301] = (melt_ptr_t) &meltcdat->dstr_208__REGISTER_DIAG_GIMPLE_SEQ; meltcdat->dstr_208__REGISTER_DIAG_GIMPLE_SEQ.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_208__REGISTER_DIAG_GIMPLE_SEQ.val, "REGISTER_DIAG_GIMPLE_SEQ", sizeof (meltcdat->dstr_208__REGISTER_DIAG_GIMPLE_SEQ.val)-1); meltcdat->dstr_208__REGISTER_DIAG_GIMPLE_SEQ.val[24] = (char)0 ; meltcdat->dstr_208__REGISTER_DIAG_GIMPLE_SEQ.slen = 24 ; /*iniobj dsym_209__REGISTER_DIAG_TREE*/ /*uniqueobj*/ if (!/*_._VALDATA___V303*/ meltfptr[302]) /*_._VALDATA___V303*/ meltfptr[302] = (melt_ptr_t )&meltcdat->dsym_209__REGISTER_DIAG_TREE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_209__REGISTER_DIAG_TREE", 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_209__REGISTER_DIAG_TREE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_209__REGISTER_DIAG_TREE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_209__REGISTER_DIAG_TREE.obj_hash = 434837194; meltcdat->dsym_209__REGISTER_DIAG_TREE.obj_len = 3; /*inistring dstr_210__REGISTER_DIAG_TREE*/ /*_._VALSTR___V304*/ meltfptr[303] = (melt_ptr_t) &meltcdat->dstr_210__REGISTER_DIAG_TREE; meltcdat->dstr_210__REGISTER_DIAG_TREE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_210__REGISTER_DIAG_TREE.val, "REGISTER_DIAG_TREE", sizeof (meltcdat->dstr_210__REGISTER_DIAG_TREE.val)-1); meltcdat->dstr_210__REGISTER_DIAG_TREE.val[18] = (char)0 ; meltcdat->dstr_210__REGISTER_DIAG_TREE.slen = 18 ; /*inirout drout_211__ERROR_AT*/ /*iniroutlocvar*/ /*_._VALROUT___V305*/ meltfptr[304] = (melt_ptr_t) &meltcdat->drout_211__ERROR_AT; meltcdat->drout_211__ERROR_AT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_211__ERROR_AT.routdescr, "ERROR_AT @warmelt-macro.melt:354", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_211__ERROR_AT.nbval = 12; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_211__ERROR_AT, meltrout_8_WARMELTmiMACRO_ERROR_AT); /*iniclos dclo_212__ERROR_AT*/ /*_._VALCLO___V306*/ meltfptr[305] = (melt_ptr_t) &meltcdat->dclo_212__ERROR_AT; meltcdat->dclo_212__ERROR_AT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_212__ERROR_AT.nbval = 0; /*inirout drout_213__FATAL_ERROR_AT*/ /*iniroutlocvar*/ /*_._VALROUT___V307*/ meltfptr[306] = (melt_ptr_t) &meltcdat->drout_213__FATAL_ERROR_AT; meltcdat->drout_213__FATAL_ERROR_AT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_213__FATAL_ERROR_AT.routdescr, "FATAL_ERROR_AT @warmelt-macro.melt:376", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_213__FATAL_ERROR_AT.nbval = 12; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_213__FATAL_ERROR_AT, meltrout_9_WARMELTmiMACRO_FATAL_ERROR_AT); /*iniclos dclo_214__FATAL_ERROR_AT*/ /*_._VALCLO___V308*/ meltfptr[307] = (melt_ptr_t) &meltcdat->dclo_214__FATAL_ERROR_AT; meltcdat->dclo_214__FATAL_ERROR_AT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_214__FATAL_ERROR_AT.nbval = 0; /*inirout drout_215__WARNING_AT*/ /*iniroutlocvar*/ /*_._VALROUT___V309*/ meltfptr[308] = (melt_ptr_t) &meltcdat->drout_215__WARNING_AT; meltcdat->drout_215__WARNING_AT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_215__WARNING_AT.routdescr, "WARNING_AT @warmelt-macro.melt:401", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_215__WARNING_AT.nbval = 12; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_215__WARNING_AT, meltrout_10_WARMELTmiMACRO_WARNING_AT); /*iniclos dclo_216__WARNING_AT*/ /*_._VALCLO___V310*/ meltfptr[309] = (melt_ptr_t) &meltcdat->dclo_216__WARNING_AT; meltcdat->dclo_216__WARNING_AT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_216__WARNING_AT.nbval = 0; /*inirout drout_217__INFORM_AT*/ /*iniroutlocvar*/ /*_._VALROUT___V311*/ meltfptr[310] = (melt_ptr_t) &meltcdat->drout_217__INFORM_AT; meltcdat->drout_217__INFORM_AT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_217__INFORM_AT.routdescr, "INFORM_AT @warmelt-macro.melt:423", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_217__INFORM_AT.nbval = 13; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_217__INFORM_AT, meltrout_11_WARMELTmiMACRO_INFORM_AT); /*iniclos dclo_218__INFORM_AT*/ /*_._VALCLO___V312*/ meltfptr[311] = (melt_ptr_t) &meltcdat->dclo_218__INFORM_AT; meltcdat->dclo_218__INFORM_AT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_218__INFORM_AT.nbval = 0; /*iniobj dsym_219__ERROR_AT*/ /*uniqueobj*/ if (!/*_._VALDATA___V313*/ meltfptr[312]) /*_._VALDATA___V313*/ meltfptr[312] = (melt_ptr_t )&meltcdat->dsym_219__ERROR_AT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_219__ERROR_AT", 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_219__ERROR_AT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_219__ERROR_AT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_219__ERROR_AT.obj_hash = 1019046282; meltcdat->dsym_219__ERROR_AT.obj_len = 3; /*inistring dstr_220__ERROR_AT*/ /*_._VALSTR___V314*/ meltfptr[313] = (melt_ptr_t) &meltcdat->dstr_220__ERROR_AT; meltcdat->dstr_220__ERROR_AT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_220__ERROR_AT.val, "ERROR_AT", sizeof (meltcdat->dstr_220__ERROR_AT.val)-1); meltcdat->dstr_220__ERROR_AT.val[8] = (char)0 ; meltcdat->dstr_220__ERROR_AT.slen = 8 ; /*iniobj dsym_221__FATAL_ERROR_AT*/ /*uniqueobj*/ if (!/*_._VALDATA___V315*/ meltfptr[314]) /*_._VALDATA___V315*/ meltfptr[314] = (melt_ptr_t )&meltcdat->dsym_221__FATAL_ERROR_AT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_221__FATAL_ERROR_AT", 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_221__FATAL_ERROR_AT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_221__FATAL_ERROR_AT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_221__FATAL_ERROR_AT.obj_hash = 834907925; meltcdat->dsym_221__FATAL_ERROR_AT.obj_len = 3; /*inistring dstr_222__FATAL_ERROR_AT*/ /*_._VALSTR___V316*/ meltfptr[315] = (melt_ptr_t) &meltcdat->dstr_222__FATAL_ERROR_AT; meltcdat->dstr_222__FATAL_ERROR_AT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_222__FATAL_ERROR_AT.val, "FATAL_ERROR_AT", sizeof (meltcdat->dstr_222__FATAL_ERROR_AT.val)-1); meltcdat->dstr_222__FATAL_ERROR_AT.val[14] = (char)0 ; meltcdat->dstr_222__FATAL_ERROR_AT.slen = 14 ; /*iniobj dsym_223__WARNING_AT*/ /*uniqueobj*/ if (!/*_._VALDATA___V317*/ meltfptr[316]) /*_._VALDATA___V317*/ meltfptr[316] = (melt_ptr_t )&meltcdat->dsym_223__WARNING_AT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_223__WARNING_AT", 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_223__WARNING_AT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_223__WARNING_AT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_223__WARNING_AT.obj_hash = 1036427272; meltcdat->dsym_223__WARNING_AT.obj_len = 3; /*inistring dstr_224__WARNING_AT*/ /*_._VALSTR___V318*/ meltfptr[317] = (melt_ptr_t) &meltcdat->dstr_224__WARNING_AT; meltcdat->dstr_224__WARNING_AT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_224__WARNING_AT.val, "WARNING_AT", sizeof (meltcdat->dstr_224__WARNING_AT.val)-1); meltcdat->dstr_224__WARNING_AT.val[10] = (char)0 ; meltcdat->dstr_224__WARNING_AT.slen = 10 ; /*iniobj dsym_225__INFORM_AT*/ /*uniqueobj*/ if (!/*_._VALDATA___V319*/ meltfptr[318]) /*_._VALDATA___V319*/ meltfptr[318] = (melt_ptr_t )&meltcdat->dsym_225__INFORM_AT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_225__INFORM_AT", 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_225__INFORM_AT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_225__INFORM_AT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_225__INFORM_AT.obj_hash = 595292461; meltcdat->dsym_225__INFORM_AT.obj_len = 3; /*inistring dstr_226__INFORM_AT*/ /*_._VALSTR___V320*/ meltfptr[319] = (melt_ptr_t) &meltcdat->dstr_226__INFORM_AT; meltcdat->dstr_226__INFORM_AT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_226__INFORM_AT.val, "INFORM_AT", sizeof (meltcdat->dstr_226__INFORM_AT.val)-1); meltcdat->dstr_226__INFORM_AT.val[9] = (char)0 ; meltcdat->dstr_226__INFORM_AT.slen = 9 ; /*iniobj dsym_227__IS_RECURSIVELY_CONSTRUCTIBLE*/ /*uniqueobj*/ if (!/*_._VALDATA___V321*/ meltfptr[320]) /*_._VALDATA___V321*/ meltfptr[320] = (melt_ptr_t )&meltcdat->dsym_227__IS_RECURSIVELY_CONSTRUCTIBLE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_227__IS_RECURSIVELY_CONSTRUCTIBLE", 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_227__IS_RECURSIVELY_CONSTRUCTIBLE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_227__IS_RECURSIVELY_CONSTRUCTIBLE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_227__IS_RECURSIVELY_CONSTRUCTIBLE.obj_hash = 922662082; meltcdat->dsym_227__IS_RECURSIVELY_CONSTRUCTIBLE.obj_len = 3; /*inistring dstr_228__IS_RECURSIVELY_CONSTRUCT*/ /*_._VALSTR___V322*/ meltfptr[321] = (melt_ptr_t) &meltcdat->dstr_228__IS_RECURSIVELY_CONSTRUCT; meltcdat->dstr_228__IS_RECURSIVELY_CONSTRUCT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_228__IS_RECURSIVELY_CONSTRUCT.val, "IS_RECURSIVELY_CONSTRUCTIBLE", sizeof (meltcdat->dstr_228__IS_RECURSIVELY_CONSTRUCT.val)-1); meltcdat->dstr_228__IS_RECURSIVELY_CONSTRUCT.val[28] = (char)0 ; meltcdat->dstr_228__IS_RECURSIVELY_CONSTRUCT.slen = 28 ; /*iniobj dsym_229__CLASS_SELECTOR*/ /*uniqueobj*/ if (!/*_._VALDATA___V323*/ meltfptr[322]) /*_._VALDATA___V323*/ meltfptr[322] = (melt_ptr_t )&meltcdat->dsym_229__CLASS_SELECTOR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_229__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_229__CLASS_SELECTOR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_229__CLASS_SELECTOR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_229__CLASS_SELECTOR.obj_hash = 100646971; meltcdat->dsym_229__CLASS_SELECTOR.obj_len = 3; /*inistring dstr_230__CLASS_SELECTOR*/ /*_._VALSTR___V324*/ meltfptr[323] = (melt_ptr_t) &meltcdat->dstr_230__CLASS_SELECTOR; meltcdat->dstr_230__CLASS_SELECTOR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_230__CLASS_SELECTOR.val, "CLASS_SELECTOR", sizeof (meltcdat->dstr_230__CLASS_SELECTOR.val)-1); meltcdat->dstr_230__CLASS_SELECTOR.val[14] = (char)0 ; meltcdat->dstr_230__CLASS_SELECTOR.slen = 14 ; /*iniobj dsym_231__RECV*/ /*uniqueobj*/ if (!/*_._VALDATA___V325*/ meltfptr[324]) /*_._VALDATA___V325*/ meltfptr[324] = (melt_ptr_t )&meltcdat->dsym_231__RECV; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_231__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_231__RECV", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_231__RECV.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_231__RECV.obj_hash = 10842790; meltcdat->dsym_231__RECV.obj_len = 3; /*inistring dstr_232__RECV*/ /*_._VALSTR___V326*/ meltfptr[325] = (melt_ptr_t) &meltcdat->dstr_232__RECV; meltcdat->dstr_232__RECV.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_232__RECV.val, "RECV", sizeof (meltcdat->dstr_232__RECV.val)-1); meltcdat->dstr_232__RECV.val[4] = (char)0 ; meltcdat->dstr_232__RECV.slen = 4 ; MELT_LOCATION("warmelt-macro.melt:449:/ iniobj"); /*iniobj dobj_233*/ /*_._VALDATA___V327*/ meltfptr[326] = (melt_ptr_t )&meltcdat->dobj_233; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_233", 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_233", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_233.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); meltcdat->dobj_233.obj_num = 0; meltcdat->dobj_233.obj_hash = 1017788899; meltcdat->dobj_233.obj_len = 2; /*inimult dtup_234_syIS_RECURSIVELY_CONSTRUCTIBLE*/ /*_._VALTUP___V328*/ meltfptr[327] = (melt_ptr_t) &meltcdat->dtup_234_syIS_RECURSIVELY_CONSTRUCTIBLE; meltcdat->dtup_234_syIS_RECURSIVELY_CONSTRUCTIBLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_MULTIPLE)))); meltcdat->dtup_234_syIS_RECURSIVELY_CONSTRUCTIBLE.nbval = 1; /*^iniobj*/ /*iniobj dobj_235__IS_RECURSIVELY_CONSTRUCTIBLE*/ /*_._VALDATA___V329*/ meltfptr[328] = (melt_ptr_t )&meltcdat->dobj_235__IS_RECURSIVELY_CONSTRUCTIBLE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_235__IS_RECURSIVELY_CONSTRUCTIBLE", melt_magic_discr ((melt_ptr_t) (/*_.CLASS_SELECTOR__V24*/ meltfptr[23])) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_235__IS_RECURSIVELY_CONSTRUCTIBLE", ((meltobject_ptr_t) (/*_.CLASS_SELECTOR__V24*/ meltfptr[23]))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_235__IS_RECURSIVELY_CONSTRUCTIBLE.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V24*/ meltfptr[23]); meltcdat->dobj_235__IS_RECURSIVELY_CONSTRUCTIBLE.obj_hash = 34258857; meltcdat->dobj_235__IS_RECURSIVELY_CONSTRUCTIBLE.obj_len = 4; /*inistring dstr_236__IS_RECURSIVELY_CONSTRUCT*/ /*_._VALSTR___V330*/ meltfptr[329] = (melt_ptr_t) &meltcdat->dstr_236__IS_RECURSIVELY_CONSTRUCT; meltcdat->dstr_236__IS_RECURSIVELY_CONSTRUCT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_236__IS_RECURSIVELY_CONSTRUCT.val, "IS_RECURSIVELY_CONSTRUCTIBLE", sizeof (meltcdat->dstr_236__IS_RECURSIVELY_CONSTRUCT.val)-1); meltcdat->dstr_236__IS_RECURSIVELY_CONSTRUCT.val[28] = (char)0 ; meltcdat->dstr_236__IS_RECURSIVELY_CONSTRUCT.slen = 28 ; /*iniobj dsym_237__CLASS_SOURCE_GENERATOR_DEVICE*/ /*uniqueobj*/ if (!/*_._VALDATA___V331*/ meltfptr[330]) /*_._VALDATA___V331*/ meltfptr[330] = (melt_ptr_t )&meltcdat->dsym_237__CLASS_SOURCE_GENERATOR_DEVICE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_237__CLASS_SOURCE_GENERATOR_DEVICE", 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_237__CLASS_SOURCE_GENERATOR_DEVICE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_237__CLASS_SOURCE_GENERATOR_DEVICE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_237__CLASS_SOURCE_GENERATOR_DEVICE.obj_hash = 331634544; meltcdat->dsym_237__CLASS_SOURCE_GENERATOR_DEVICE.obj_len = 3; /*inistring dstr_238__CLASS_SOURCE_GENERATOR_D*/ /*_._VALSTR___V332*/ meltfptr[331] = (melt_ptr_t) &meltcdat->dstr_238__CLASS_SOURCE_GENERATOR_D; meltcdat->dstr_238__CLASS_SOURCE_GENERATOR_D.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_238__CLASS_SOURCE_GENERATOR_D.val, "CLASS_SOURCE_GENERATOR_DEVICE", sizeof (meltcdat->dstr_238__CLASS_SOURCE_GENERATOR_D.val)-1); meltcdat->dstr_238__CLASS_SOURCE_GENERATOR_D.val[29] = (char)0 ; meltcdat->dstr_238__CLASS_SOURCE_GENERATOR_D.slen = 29 ; /*iniobj dsym_239__CLASS_SOURCE*/ /*uniqueobj*/ if (!/*_._VALDATA___V333*/ meltfptr[332]) /*_._VALDATA___V333*/ meltfptr[332] = (melt_ptr_t )&meltcdat->dsym_239__CLASS_SOURCE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_239__CLASS_SOURCE", 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_239__CLASS_SOURCE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_239__CLASS_SOURCE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_239__CLASS_SOURCE.obj_hash = 656628255; meltcdat->dsym_239__CLASS_SOURCE.obj_len = 3; /*inistring dstr_240__CLASS_SOURCE*/ /*_._VALSTR___V334*/ meltfptr[333] = (melt_ptr_t) &meltcdat->dstr_240__CLASS_SOURCE; meltcdat->dstr_240__CLASS_SOURCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_240__CLASS_SOURCE.val, "CLASS_SOURCE", sizeof (meltcdat->dstr_240__CLASS_SOURCE.val)-1); meltcdat->dstr_240__CLASS_SOURCE.val[12] = (char)0 ; meltcdat->dstr_240__CLASS_SOURCE.slen = 12 ; MELT_LOCATION("warmelt-macro.melt:455:/ iniobj"); /*iniobj dobj_241__CLASS_SOURCE_GENERATOR_DEVICE*/ /*_._VALDATA___V335*/ meltfptr[334] = (melt_ptr_t )&meltcdat->dobj_241__CLASS_SOURCE_GENERATOR_DEVICE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_241__CLASS_SOURCE_GENERATOR_DEVICE", 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_241__CLASS_SOURCE_GENERATOR_DEVICE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_241__CLASS_SOURCE_GENERATOR_DEVICE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_241__CLASS_SOURCE_GENERATOR_DEVICE.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_241__CLASS_SOURCE_GENERATOR_DEVICE.obj_hash = 958623056; meltcdat->dobj_241__CLASS_SOURCE_GENERATOR_DEVICE.obj_len = 8; /*inistring dstr_242__CLASS_SOURCE_GENERATOR_D*/ /*_._VALSTR___V336*/ meltfptr[335] = (melt_ptr_t) &meltcdat->dstr_242__CLASS_SOURCE_GENERATOR_D; meltcdat->dstr_242__CLASS_SOURCE_GENERATOR_D.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_242__CLASS_SOURCE_GENERATOR_D.val, "CLASS_SOURCE_GENERATOR_DEVICE", sizeof (meltcdat->dstr_242__CLASS_SOURCE_GENERATOR_D.val)-1); meltcdat->dstr_242__CLASS_SOURCE_GENERATOR_D.val[29] = (char)0 ; meltcdat->dstr_242__CLASS_SOURCE_GENERATOR_D.slen = 29 ; /*inimult dtup_243_syCLASS_SOURCE_GENERATOR_DEVICE*/ /*_._VALTUP___V337*/ meltfptr[336] = (melt_ptr_t) &meltcdat->dtup_243_syCLASS_SOURCE_GENERATOR_DEVICE; meltcdat->dtup_243_syCLASS_SOURCE_GENERATOR_DEVICE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_243_syCLASS_SOURCE_GENERATOR_DEVICE.nbval = 4; /*inimult dtup_244_syCLASS_SOURCE_GENERATOR_DEVICE*/ /*_._VALTUP___V342*/ meltfptr[341] = (melt_ptr_t) &meltcdat->dtup_244_syCLASS_SOURCE_GENERATOR_DEVICE; meltcdat->dtup_244_syCLASS_SOURCE_GENERATOR_DEVICE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_244_syCLASS_SOURCE_GENERATOR_DEVICE.nbval = 4; /*iniobj dsym_245__SRCGEN_DEFIN*/ /*uniqueobj*/ if (!/*_._VALDATA___V343*/ meltfptr[342]) /*_._VALDATA___V343*/ meltfptr[342] = (melt_ptr_t )&meltcdat->dsym_245__SRCGEN_DEFIN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_245__SRCGEN_DEFIN", 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_245__SRCGEN_DEFIN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_245__SRCGEN_DEFIN.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_245__SRCGEN_DEFIN.obj_hash = 416281938; meltcdat->dsym_245__SRCGEN_DEFIN.obj_len = 3; /*inistring dstr_246__SRCGEN_DEFIN*/ /*_._VALSTR___V344*/ meltfptr[343] = (melt_ptr_t) &meltcdat->dstr_246__SRCGEN_DEFIN; meltcdat->dstr_246__SRCGEN_DEFIN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_246__SRCGEN_DEFIN.val, "SRCGEN_DEFIN", sizeof (meltcdat->dstr_246__SRCGEN_DEFIN.val)-1); meltcdat->dstr_246__SRCGEN_DEFIN.val[12] = (char)0 ; meltcdat->dstr_246__SRCGEN_DEFIN.slen = 12 ; /*^iniobj*/ /*iniobj dobj_247__SRCGEN_DEFIN*/ /*_._VALDATA___V338*/ meltfptr[337] = (melt_ptr_t )&meltcdat->dobj_247__SRCGEN_DEFIN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_247__SRCGEN_DEFIN", 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_247__SRCGEN_DEFIN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_247__SRCGEN_DEFIN.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_247__SRCGEN_DEFIN.obj_num = 2; meltcdat->dobj_247__SRCGEN_DEFIN.obj_hash = 958843473; meltcdat->dobj_247__SRCGEN_DEFIN.obj_len = 4; /*inistring dstr_248__SRCGEN_DEFIN*/ /*_._VALSTR___V339*/ meltfptr[338] = (melt_ptr_t) &meltcdat->dstr_248__SRCGEN_DEFIN; meltcdat->dstr_248__SRCGEN_DEFIN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_248__SRCGEN_DEFIN.val, "SRCGEN_DEFIN", sizeof (meltcdat->dstr_248__SRCGEN_DEFIN.val)-1); meltcdat->dstr_248__SRCGEN_DEFIN.val[12] = (char)0 ; meltcdat->dstr_248__SRCGEN_DEFIN.slen = 12 ; /*iniobj dsym_249__SRCGEN_REPR*/ /*uniqueobj*/ if (!/*_._VALDATA___V345*/ meltfptr[344]) /*_._VALDATA___V345*/ meltfptr[344] = (melt_ptr_t )&meltcdat->dsym_249__SRCGEN_REPR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_249__SRCGEN_REPR", 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_249__SRCGEN_REPR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_249__SRCGEN_REPR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_249__SRCGEN_REPR.obj_hash = 87012860; meltcdat->dsym_249__SRCGEN_REPR.obj_len = 3; /*inistring dstr_250__SRCGEN_REPR*/ /*_._VALSTR___V346*/ meltfptr[345] = (melt_ptr_t) &meltcdat->dstr_250__SRCGEN_REPR; meltcdat->dstr_250__SRCGEN_REPR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_250__SRCGEN_REPR.val, "SRCGEN_REPR", sizeof (meltcdat->dstr_250__SRCGEN_REPR.val)-1); meltcdat->dstr_250__SRCGEN_REPR.val[11] = (char)0 ; meltcdat->dstr_250__SRCGEN_REPR.slen = 11 ; /*^iniobj*/ /*iniobj dobj_251__SRCGEN_REPR*/ /*_._VALDATA___V340*/ meltfptr[339] = (melt_ptr_t )&meltcdat->dobj_251__SRCGEN_REPR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_251__SRCGEN_REPR", 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_251__SRCGEN_REPR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_251__SRCGEN_REPR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_251__SRCGEN_REPR.obj_num = 3; meltcdat->dobj_251__SRCGEN_REPR.obj_hash = 757987841; meltcdat->dobj_251__SRCGEN_REPR.obj_len = 4; /*inistring dstr_252__SRCGEN_REPR*/ /*_._VALSTR___V341*/ meltfptr[340] = (melt_ptr_t) &meltcdat->dstr_252__SRCGEN_REPR; meltcdat->dstr_252__SRCGEN_REPR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_252__SRCGEN_REPR.val, "SRCGEN_REPR", sizeof (meltcdat->dstr_252__SRCGEN_REPR.val)-1); meltcdat->dstr_252__SRCGEN_REPR.val[11] = (char)0 ; meltcdat->dstr_252__SRCGEN_REPR.slen = 11 ; /*iniobj dsym_253__CLASS_SOURCE_LAZY_MACRO_EXPANSION*/ /*uniqueobj*/ if (!/*_._VALDATA___V347*/ meltfptr[346]) /*_._VALDATA___V347*/ meltfptr[346] = (melt_ptr_t )&meltcdat->dsym_253__CLASS_SOURCE_LAZY_MACRO_EXPANSION; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_253__CLASS_SOURCE_LAZY_MACRO_EXPANSION", 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_253__CLASS_SOURCE_LAZY_MACRO_EXPANSION", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_253__CLASS_SOURCE_LAZY_MACRO_EXPANSION.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_253__CLASS_SOURCE_LAZY_MACRO_EXPANSION.obj_hash = 697763169; meltcdat->dsym_253__CLASS_SOURCE_LAZY_MACRO_EXPANSION.obj_len = 3; /*inistring dstr_254__CLASS_SOURCE_LAZY_MACRO_*/ /*_._VALSTR___V348*/ meltfptr[347] = (melt_ptr_t) &meltcdat->dstr_254__CLASS_SOURCE_LAZY_MACRO_; meltcdat->dstr_254__CLASS_SOURCE_LAZY_MACRO_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_254__CLASS_SOURCE_LAZY_MACRO_.val, "CLASS_SOURCE_LAZY_MACRO_EXPANSION", sizeof (meltcdat->dstr_254__CLASS_SOURCE_LAZY_MACRO_.val)-1); meltcdat->dstr_254__CLASS_SOURCE_LAZY_MACRO_.val[33] = (char)0 ; meltcdat->dstr_254__CLASS_SOURCE_LAZY_MACRO_.slen = 33 ; MELT_LOCATION("warmelt-macro.melt:464:/ iniobj"); /*iniobj dobj_255__CLASS_SOURCE_LAZY_MACRO_EXPANSION*/ /*_._VALDATA___V349*/ meltfptr[348] = (melt_ptr_t )&meltcdat->dobj_255__CLASS_SOURCE_LAZY_MACRO_EXPANSION; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_255__CLASS_SOURCE_LAZY_MACRO_EXPANSION", 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_255__CLASS_SOURCE_LAZY_MACRO_EXPANSION", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_255__CLASS_SOURCE_LAZY_MACRO_EXPANSION.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_255__CLASS_SOURCE_LAZY_MACRO_EXPANSION.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_255__CLASS_SOURCE_LAZY_MACRO_EXPANSION.obj_hash = 1002684480; meltcdat->dobj_255__CLASS_SOURCE_LAZY_MACRO_EXPANSION.obj_len = 8; /*inistring dstr_256__CLASS_SOURCE_LAZY_MACRO_*/ /*_._VALSTR___V350*/ meltfptr[349] = (melt_ptr_t) &meltcdat->dstr_256__CLASS_SOURCE_LAZY_MACRO_; meltcdat->dstr_256__CLASS_SOURCE_LAZY_MACRO_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_256__CLASS_SOURCE_LAZY_MACRO_.val, "CLASS_SOURCE_LAZY_MACRO_EXPANSION", sizeof (meltcdat->dstr_256__CLASS_SOURCE_LAZY_MACRO_.val)-1); meltcdat->dstr_256__CLASS_SOURCE_LAZY_MACRO_.val[33] = (char)0 ; meltcdat->dstr_256__CLASS_SOURCE_LAZY_MACRO_.slen = 33 ; /*inimult dtup_257_syCLASS_SOURCE_LAZY_MACRO_EXPANSION*/ /*_._VALTUP___V351*/ meltfptr[350] = (melt_ptr_t) &meltcdat->dtup_257_syCLASS_SOURCE_LAZY_MACRO_EXPANSION; meltcdat->dtup_257_syCLASS_SOURCE_LAZY_MACRO_EXPANSION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_257_syCLASS_SOURCE_LAZY_MACRO_EXPANSION.nbval = 4; /*inimult dtup_258_syCLASS_SOURCE_LAZY_MACRO_EXPANSION*/ /*_._VALTUP___V356*/ meltfptr[355] = (melt_ptr_t) &meltcdat->dtup_258_syCLASS_SOURCE_LAZY_MACRO_EXPANSION; meltcdat->dtup_258_syCLASS_SOURCE_LAZY_MACRO_EXPANSION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_258_syCLASS_SOURCE_LAZY_MACRO_EXPANSION.nbval = 4; /*iniobj dsym_259__SLAZYMACRO_FUN*/ /*uniqueobj*/ if (!/*_._VALDATA___V357*/ meltfptr[356]) /*_._VALDATA___V357*/ meltfptr[356] = (melt_ptr_t )&meltcdat->dsym_259__SLAZYMACRO_FUN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_259__SLAZYMACRO_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_259__SLAZYMACRO_FUN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_259__SLAZYMACRO_FUN.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_259__SLAZYMACRO_FUN.obj_hash = 351872737; meltcdat->dsym_259__SLAZYMACRO_FUN.obj_len = 3; /*inistring dstr_260__SLAZYMACRO_FUN*/ /*_._VALSTR___V358*/ meltfptr[357] = (melt_ptr_t) &meltcdat->dstr_260__SLAZYMACRO_FUN; meltcdat->dstr_260__SLAZYMACRO_FUN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_260__SLAZYMACRO_FUN.val, "SLAZYMACRO_FUN", sizeof (meltcdat->dstr_260__SLAZYMACRO_FUN.val)-1); meltcdat->dstr_260__SLAZYMACRO_FUN.val[14] = (char)0 ; meltcdat->dstr_260__SLAZYMACRO_FUN.slen = 14 ; /*^iniobj*/ /*iniobj dobj_261__SLAZYMACRO_FUN*/ /*_._VALDATA___V352*/ meltfptr[351] = (melt_ptr_t )&meltcdat->dobj_261__SLAZYMACRO_FUN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_261__SLAZYMACRO_FUN", 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_261__SLAZYMACRO_FUN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_261__SLAZYMACRO_FUN.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_261__SLAZYMACRO_FUN.obj_num = 2; meltcdat->dobj_261__SLAZYMACRO_FUN.obj_hash = 791936506; meltcdat->dobj_261__SLAZYMACRO_FUN.obj_len = 4; /*inistring dstr_262__SLAZYMACRO_FUN*/ /*_._VALSTR___V353*/ meltfptr[352] = (melt_ptr_t) &meltcdat->dstr_262__SLAZYMACRO_FUN; meltcdat->dstr_262__SLAZYMACRO_FUN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_262__SLAZYMACRO_FUN.val, "SLAZYMACRO_FUN", sizeof (meltcdat->dstr_262__SLAZYMACRO_FUN.val)-1); meltcdat->dstr_262__SLAZYMACRO_FUN.val[14] = (char)0 ; meltcdat->dstr_262__SLAZYMACRO_FUN.slen = 14 ; /*iniobj dsym_263__SLAZYMACRO_OPER*/ /*uniqueobj*/ if (!/*_._VALDATA___V359*/ meltfptr[358]) /*_._VALDATA___V359*/ meltfptr[358] = (melt_ptr_t )&meltcdat->dsym_263__SLAZYMACRO_OPER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_263__SLAZYMACRO_OPER", 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_263__SLAZYMACRO_OPER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_263__SLAZYMACRO_OPER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_263__SLAZYMACRO_OPER.obj_hash = 624086838; meltcdat->dsym_263__SLAZYMACRO_OPER.obj_len = 3; /*inistring dstr_264__SLAZYMACRO_OPER*/ /*_._VALSTR___V360*/ meltfptr[359] = (melt_ptr_t) &meltcdat->dstr_264__SLAZYMACRO_OPER; meltcdat->dstr_264__SLAZYMACRO_OPER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_264__SLAZYMACRO_OPER.val, "SLAZYMACRO_OPER", sizeof (meltcdat->dstr_264__SLAZYMACRO_OPER.val)-1); meltcdat->dstr_264__SLAZYMACRO_OPER.val[15] = (char)0 ; meltcdat->dstr_264__SLAZYMACRO_OPER.slen = 15 ; /*^iniobj*/ /*iniobj dobj_265__SLAZYMACRO_OPER*/ /*_._VALDATA___V354*/ meltfptr[353] = (melt_ptr_t )&meltcdat->dobj_265__SLAZYMACRO_OPER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_265__SLAZYMACRO_OPER", 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_265__SLAZYMACRO_OPER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_265__SLAZYMACRO_OPER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_265__SLAZYMACRO_OPER.obj_num = 3; meltcdat->dobj_265__SLAZYMACRO_OPER.obj_hash = 863417303; meltcdat->dobj_265__SLAZYMACRO_OPER.obj_len = 4; /*inistring dstr_266__SLAZYMACRO_OPER*/ /*_._VALSTR___V355*/ meltfptr[354] = (melt_ptr_t) &meltcdat->dstr_266__SLAZYMACRO_OPER; meltcdat->dstr_266__SLAZYMACRO_OPER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_266__SLAZYMACRO_OPER.val, "SLAZYMACRO_OPER", sizeof (meltcdat->dstr_266__SLAZYMACRO_OPER.val)-1); meltcdat->dstr_266__SLAZYMACRO_OPER.val[15] = (char)0 ; meltcdat->dstr_266__SLAZYMACRO_OPER.slen = 15 ; /*iniobj dsym_267__CLASS_SOURCE_ARGUMENTED_OPERATOR*/ /*uniqueobj*/ if (!/*_._VALDATA___V361*/ meltfptr[360]) /*_._VALDATA___V361*/ meltfptr[360] = (melt_ptr_t )&meltcdat->dsym_267__CLASS_SOURCE_ARGUMENTED_OPERATOR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_267__CLASS_SOURCE_ARGUMENTED_OPERATOR", 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_267__CLASS_SOURCE_ARGUMENTED_OPERATOR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_267__CLASS_SOURCE_ARGUMENTED_OPERATOR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_267__CLASS_SOURCE_ARGUMENTED_OPERATOR.obj_hash = 872813783; meltcdat->dsym_267__CLASS_SOURCE_ARGUMENTED_OPERATOR.obj_len = 3; /*inistring dstr_268__CLASS_SOURCE_ARGUMENTED_*/ /*_._VALSTR___V362*/ meltfptr[361] = (melt_ptr_t) &meltcdat->dstr_268__CLASS_SOURCE_ARGUMENTED_; meltcdat->dstr_268__CLASS_SOURCE_ARGUMENTED_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_268__CLASS_SOURCE_ARGUMENTED_.val, "CLASS_SOURCE_ARGUMENTED_OPERATOR", sizeof (meltcdat->dstr_268__CLASS_SOURCE_ARGUMENTED_.val)-1); meltcdat->dstr_268__CLASS_SOURCE_ARGUMENTED_.val[32] = (char)0 ; meltcdat->dstr_268__CLASS_SOURCE_ARGUMENTED_.slen = 32 ; MELT_LOCATION("warmelt-macro.melt:477:/ iniobj"); /*iniobj dobj_269__CLASS_SOURCE_ARGUMENTED_OPERATOR*/ /*_._VALDATA___V363*/ meltfptr[362] = (melt_ptr_t )&meltcdat->dobj_269__CLASS_SOURCE_ARGUMENTED_OPERATOR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_269__CLASS_SOURCE_ARGUMENTED_OPERATOR", 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_269__CLASS_SOURCE_ARGUMENTED_OPERATOR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_269__CLASS_SOURCE_ARGUMENTED_OPERATOR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_269__CLASS_SOURCE_ARGUMENTED_OPERATOR.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_269__CLASS_SOURCE_ARGUMENTED_OPERATOR.obj_hash = 619954935; meltcdat->dobj_269__CLASS_SOURCE_ARGUMENTED_OPERATOR.obj_len = 8; /*inistring dstr_270__CLASS_SOURCE_ARGUMENTED_*/ /*_._VALSTR___V364*/ meltfptr[363] = (melt_ptr_t) &meltcdat->dstr_270__CLASS_SOURCE_ARGUMENTED_; meltcdat->dstr_270__CLASS_SOURCE_ARGUMENTED_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_270__CLASS_SOURCE_ARGUMENTED_.val, "CLASS_SOURCE_ARGUMENTED_OPERATOR", sizeof (meltcdat->dstr_270__CLASS_SOURCE_ARGUMENTED_.val)-1); meltcdat->dstr_270__CLASS_SOURCE_ARGUMENTED_.val[32] = (char)0 ; meltcdat->dstr_270__CLASS_SOURCE_ARGUMENTED_.slen = 32 ; /*inimult dtup_271_syCLASS_SOURCE_ARGUMENTED_OPERATOR*/ /*_._VALTUP___V365*/ meltfptr[364] = (melt_ptr_t) &meltcdat->dtup_271_syCLASS_SOURCE_ARGUMENTED_OPERATOR; meltcdat->dtup_271_syCLASS_SOURCE_ARGUMENTED_OPERATOR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_271_syCLASS_SOURCE_ARGUMENTED_OPERATOR.nbval = 4; /*inimult dtup_272_syCLASS_SOURCE_ARGUMENTED_OPERATOR*/ /*_._VALTUP___V368*/ meltfptr[367] = (melt_ptr_t) &meltcdat->dtup_272_syCLASS_SOURCE_ARGUMENTED_OPERATOR; meltcdat->dtup_272_syCLASS_SOURCE_ARGUMENTED_OPERATOR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_272_syCLASS_SOURCE_ARGUMENTED_OPERATOR.nbval = 3; /*iniobj dsym_273__SARGOP_ARGS*/ /*uniqueobj*/ if (!/*_._VALDATA___V369*/ meltfptr[368]) /*_._VALDATA___V369*/ meltfptr[368] = (melt_ptr_t )&meltcdat->dsym_273__SARGOP_ARGS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_273__SARGOP_ARGS", 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_273__SARGOP_ARGS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_273__SARGOP_ARGS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_273__SARGOP_ARGS.obj_hash = 720295827; meltcdat->dsym_273__SARGOP_ARGS.obj_len = 3; /*inistring dstr_274__SARGOP_ARGS*/ /*_._VALSTR___V370*/ meltfptr[369] = (melt_ptr_t) &meltcdat->dstr_274__SARGOP_ARGS; meltcdat->dstr_274__SARGOP_ARGS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_274__SARGOP_ARGS.val, "SARGOP_ARGS", sizeof (meltcdat->dstr_274__SARGOP_ARGS.val)-1); meltcdat->dstr_274__SARGOP_ARGS.val[11] = (char)0 ; meltcdat->dstr_274__SARGOP_ARGS.slen = 11 ; /*^iniobj*/ /*iniobj dobj_275__SARGOP_ARGS*/ /*_._VALDATA___V366*/ meltfptr[365] = (melt_ptr_t )&meltcdat->dobj_275__SARGOP_ARGS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_275__SARGOP_ARGS", 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_275__SARGOP_ARGS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_275__SARGOP_ARGS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_275__SARGOP_ARGS.obj_num = 2; meltcdat->dobj_275__SARGOP_ARGS.obj_hash = 291947858; meltcdat->dobj_275__SARGOP_ARGS.obj_len = 4; /*inistring dstr_276__SARGOP_ARGS*/ /*_._VALSTR___V367*/ meltfptr[366] = (melt_ptr_t) &meltcdat->dstr_276__SARGOP_ARGS; meltcdat->dstr_276__SARGOP_ARGS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_276__SARGOP_ARGS.val, "SARGOP_ARGS", sizeof (meltcdat->dstr_276__SARGOP_ARGS.val)-1); meltcdat->dstr_276__SARGOP_ARGS.val[11] = (char)0 ; meltcdat->dstr_276__SARGOP_ARGS.slen = 11 ; /*iniobj dsym_277__CLASS_SOURCE_APPLY*/ /*uniqueobj*/ if (!/*_._VALDATA___V371*/ meltfptr[370]) /*_._VALDATA___V371*/ meltfptr[370] = (melt_ptr_t )&meltcdat->dsym_277__CLASS_SOURCE_APPLY; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_277__CLASS_SOURCE_APPLY", 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_277__CLASS_SOURCE_APPLY", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_277__CLASS_SOURCE_APPLY.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_277__CLASS_SOURCE_APPLY.obj_hash = 908584793; meltcdat->dsym_277__CLASS_SOURCE_APPLY.obj_len = 3; /*inistring dstr_278__CLASS_SOURCE_APPLY*/ /*_._VALSTR___V372*/ meltfptr[371] = (melt_ptr_t) &meltcdat->dstr_278__CLASS_SOURCE_APPLY; meltcdat->dstr_278__CLASS_SOURCE_APPLY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_278__CLASS_SOURCE_APPLY.val, "CLASS_SOURCE_APPLY", sizeof (meltcdat->dstr_278__CLASS_SOURCE_APPLY.val)-1); meltcdat->dstr_278__CLASS_SOURCE_APPLY.val[18] = (char)0 ; meltcdat->dstr_278__CLASS_SOURCE_APPLY.slen = 18 ; MELT_LOCATION("warmelt-macro.melt:485:/ iniobj"); /*iniobj dobj_279__CLASS_SOURCE_APPLY*/ /*_._VALDATA___V373*/ meltfptr[372] = (melt_ptr_t )&meltcdat->dobj_279__CLASS_SOURCE_APPLY; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_279__CLASS_SOURCE_APPLY", 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_279__CLASS_SOURCE_APPLY", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_279__CLASS_SOURCE_APPLY.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_279__CLASS_SOURCE_APPLY.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_279__CLASS_SOURCE_APPLY.obj_hash = 649016913; meltcdat->dobj_279__CLASS_SOURCE_APPLY.obj_len = 8; /*inistring dstr_280__CLASS_SOURCE_APPLY*/ /*_._VALSTR___V374*/ meltfptr[373] = (melt_ptr_t) &meltcdat->dstr_280__CLASS_SOURCE_APPLY; meltcdat->dstr_280__CLASS_SOURCE_APPLY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_280__CLASS_SOURCE_APPLY.val, "CLASS_SOURCE_APPLY", sizeof (meltcdat->dstr_280__CLASS_SOURCE_APPLY.val)-1); meltcdat->dstr_280__CLASS_SOURCE_APPLY.val[18] = (char)0 ; meltcdat->dstr_280__CLASS_SOURCE_APPLY.slen = 18 ; /*inimult dtup_281_syCLASS_SOURCE_APPLY*/ /*_._VALTUP___V375*/ meltfptr[374] = (melt_ptr_t) &meltcdat->dtup_281_syCLASS_SOURCE_APPLY; meltcdat->dtup_281_syCLASS_SOURCE_APPLY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_281_syCLASS_SOURCE_APPLY.nbval = 5; /*inimult dtup_282_syCLASS_SOURCE_APPLY*/ /*_._VALTUP___V378*/ meltfptr[377] = (melt_ptr_t) &meltcdat->dtup_282_syCLASS_SOURCE_APPLY; meltcdat->dtup_282_syCLASS_SOURCE_APPLY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_282_syCLASS_SOURCE_APPLY.nbval = 4; /*iniobj dsym_283__SAPP_FUN*/ /*uniqueobj*/ if (!/*_._VALDATA___V379*/ meltfptr[378]) /*_._VALDATA___V379*/ meltfptr[378] = (melt_ptr_t )&meltcdat->dsym_283__SAPP_FUN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_283__SAPP_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_283__SAPP_FUN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_283__SAPP_FUN.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_283__SAPP_FUN.obj_hash = 218083126; meltcdat->dsym_283__SAPP_FUN.obj_len = 3; /*inistring dstr_284__SAPP_FUN*/ /*_._VALSTR___V380*/ meltfptr[379] = (melt_ptr_t) &meltcdat->dstr_284__SAPP_FUN; meltcdat->dstr_284__SAPP_FUN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_284__SAPP_FUN.val, "SAPP_FUN", sizeof (meltcdat->dstr_284__SAPP_FUN.val)-1); meltcdat->dstr_284__SAPP_FUN.val[8] = (char)0 ; meltcdat->dstr_284__SAPP_FUN.slen = 8 ; /*^iniobj*/ /*iniobj dobj_285__SAPP_FUN*/ /*_._VALDATA___V376*/ meltfptr[375] = (melt_ptr_t )&meltcdat->dobj_285__SAPP_FUN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_285__SAPP_FUN", 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_285__SAPP_FUN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_285__SAPP_FUN.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_285__SAPP_FUN.obj_num = 3; meltcdat->dobj_285__SAPP_FUN.obj_hash = 385798969; meltcdat->dobj_285__SAPP_FUN.obj_len = 4; /*inistring dstr_286__SAPP_FUN*/ /*_._VALSTR___V377*/ meltfptr[376] = (melt_ptr_t) &meltcdat->dstr_286__SAPP_FUN; meltcdat->dstr_286__SAPP_FUN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_286__SAPP_FUN.val, "SAPP_FUN", sizeof (meltcdat->dstr_286__SAPP_FUN.val)-1); meltcdat->dstr_286__SAPP_FUN.val[8] = (char)0 ; meltcdat->dstr_286__SAPP_FUN.slen = 8 ; /*iniobj dsym_287__CLASS_SOURCE_MSEND*/ /*uniqueobj*/ if (!/*_._VALDATA___V381*/ meltfptr[380]) /*_._VALDATA___V381*/ meltfptr[380] = (melt_ptr_t )&meltcdat->dsym_287__CLASS_SOURCE_MSEND; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_287__CLASS_SOURCE_MSEND", 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_287__CLASS_SOURCE_MSEND", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_287__CLASS_SOURCE_MSEND.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_287__CLASS_SOURCE_MSEND.obj_hash = 115197475; meltcdat->dsym_287__CLASS_SOURCE_MSEND.obj_len = 3; /*inistring dstr_288__CLASS_SOURCE_MSEND*/ /*_._VALSTR___V382*/ meltfptr[381] = (melt_ptr_t) &meltcdat->dstr_288__CLASS_SOURCE_MSEND; meltcdat->dstr_288__CLASS_SOURCE_MSEND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_288__CLASS_SOURCE_MSEND.val, "CLASS_SOURCE_MSEND", sizeof (meltcdat->dstr_288__CLASS_SOURCE_MSEND.val)-1); meltcdat->dstr_288__CLASS_SOURCE_MSEND.val[18] = (char)0 ; meltcdat->dstr_288__CLASS_SOURCE_MSEND.slen = 18 ; MELT_LOCATION("warmelt-macro.melt:494:/ iniobj"); /*iniobj dobj_289__CLASS_SOURCE_MSEND*/ /*_._VALDATA___V383*/ meltfptr[382] = (melt_ptr_t )&meltcdat->dobj_289__CLASS_SOURCE_MSEND; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_289__CLASS_SOURCE_MSEND", 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_289__CLASS_SOURCE_MSEND", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_289__CLASS_SOURCE_MSEND.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_289__CLASS_SOURCE_MSEND.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_289__CLASS_SOURCE_MSEND.obj_hash = 236409023; meltcdat->dobj_289__CLASS_SOURCE_MSEND.obj_len = 8; /*inistring dstr_290__CLASS_SOURCE_MSEND*/ /*_._VALSTR___V384*/ meltfptr[383] = (melt_ptr_t) &meltcdat->dstr_290__CLASS_SOURCE_MSEND; meltcdat->dstr_290__CLASS_SOURCE_MSEND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_290__CLASS_SOURCE_MSEND.val, "CLASS_SOURCE_MSEND", sizeof (meltcdat->dstr_290__CLASS_SOURCE_MSEND.val)-1); meltcdat->dstr_290__CLASS_SOURCE_MSEND.val[18] = (char)0 ; meltcdat->dstr_290__CLASS_SOURCE_MSEND.slen = 18 ; /*inimult dtup_291_syCLASS_SOURCE_MSEND*/ /*_._VALTUP___V385*/ meltfptr[384] = (melt_ptr_t) &meltcdat->dtup_291_syCLASS_SOURCE_MSEND; meltcdat->dtup_291_syCLASS_SOURCE_MSEND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_291_syCLASS_SOURCE_MSEND.nbval = 5; /*inimult dtup_292_syCLASS_SOURCE_MSEND*/ /*_._VALTUP___V390*/ meltfptr[389] = (melt_ptr_t) &meltcdat->dtup_292_syCLASS_SOURCE_MSEND; meltcdat->dtup_292_syCLASS_SOURCE_MSEND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_292_syCLASS_SOURCE_MSEND.nbval = 5; /*iniobj dsym_293__MSEND_SELSYMB*/ /*uniqueobj*/ if (!/*_._VALDATA___V391*/ meltfptr[390]) /*_._VALDATA___V391*/ meltfptr[390] = (melt_ptr_t )&meltcdat->dsym_293__MSEND_SELSYMB; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_293__MSEND_SELSYMB", 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_293__MSEND_SELSYMB", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_293__MSEND_SELSYMB.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_293__MSEND_SELSYMB.obj_hash = 864994865; meltcdat->dsym_293__MSEND_SELSYMB.obj_len = 3; /*inistring dstr_294__MSEND_SELSYMB*/ /*_._VALSTR___V392*/ meltfptr[391] = (melt_ptr_t) &meltcdat->dstr_294__MSEND_SELSYMB; meltcdat->dstr_294__MSEND_SELSYMB.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_294__MSEND_SELSYMB.val, "MSEND_SELSYMB", sizeof (meltcdat->dstr_294__MSEND_SELSYMB.val)-1); meltcdat->dstr_294__MSEND_SELSYMB.val[13] = (char)0 ; meltcdat->dstr_294__MSEND_SELSYMB.slen = 13 ; /*^iniobj*/ /*iniobj dobj_295__MSEND_SELSYMB*/ /*_._VALDATA___V386*/ meltfptr[385] = (melt_ptr_t )&meltcdat->dobj_295__MSEND_SELSYMB; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_295__MSEND_SELSYMB", 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_295__MSEND_SELSYMB", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_295__MSEND_SELSYMB.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_295__MSEND_SELSYMB.obj_num = 3; meltcdat->dobj_295__MSEND_SELSYMB.obj_hash = 806710227; meltcdat->dobj_295__MSEND_SELSYMB.obj_len = 4; /*inistring dstr_296__MSEND_SELSYMB*/ /*_._VALSTR___V387*/ meltfptr[386] = (melt_ptr_t) &meltcdat->dstr_296__MSEND_SELSYMB; meltcdat->dstr_296__MSEND_SELSYMB.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_296__MSEND_SELSYMB.val, "MSEND_SELSYMB", sizeof (meltcdat->dstr_296__MSEND_SELSYMB.val)-1); meltcdat->dstr_296__MSEND_SELSYMB.val[13] = (char)0 ; meltcdat->dstr_296__MSEND_SELSYMB.slen = 13 ; /*iniobj dsym_297__MSEND_RECV*/ /*uniqueobj*/ if (!/*_._VALDATA___V393*/ meltfptr[392]) /*_._VALDATA___V393*/ meltfptr[392] = (melt_ptr_t )&meltcdat->dsym_297__MSEND_RECV; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_297__MSEND_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_297__MSEND_RECV", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_297__MSEND_RECV.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_297__MSEND_RECV.obj_hash = 1050966842; meltcdat->dsym_297__MSEND_RECV.obj_len = 3; /*inistring dstr_298__MSEND_RECV*/ /*_._VALSTR___V394*/ meltfptr[393] = (melt_ptr_t) &meltcdat->dstr_298__MSEND_RECV; meltcdat->dstr_298__MSEND_RECV.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_298__MSEND_RECV.val, "MSEND_RECV", sizeof (meltcdat->dstr_298__MSEND_RECV.val)-1); meltcdat->dstr_298__MSEND_RECV.val[10] = (char)0 ; meltcdat->dstr_298__MSEND_RECV.slen = 10 ; /*^iniobj*/ /*iniobj dobj_299__MSEND_RECV*/ /*_._VALDATA___V388*/ meltfptr[387] = (melt_ptr_t )&meltcdat->dobj_299__MSEND_RECV; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_299__MSEND_RECV", 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_299__MSEND_RECV", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_299__MSEND_RECV.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_299__MSEND_RECV.obj_num = 4; meltcdat->dobj_299__MSEND_RECV.obj_hash = 16350746; meltcdat->dobj_299__MSEND_RECV.obj_len = 4; /*inistring dstr_300__MSEND_RECV*/ /*_._VALSTR___V389*/ meltfptr[388] = (melt_ptr_t) &meltcdat->dstr_300__MSEND_RECV; meltcdat->dstr_300__MSEND_RECV.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_300__MSEND_RECV.val, "MSEND_RECV", sizeof (meltcdat->dstr_300__MSEND_RECV.val)-1); meltcdat->dstr_300__MSEND_RECV.val[10] = (char)0 ; meltcdat->dstr_300__MSEND_RECV.slen = 10 ; /*iniobj dsym_301__CLASS_SOURCE_PRIMITIVE*/ /*uniqueobj*/ if (!/*_._VALDATA___V395*/ meltfptr[394]) /*_._VALDATA___V395*/ meltfptr[394] = (melt_ptr_t )&meltcdat->dsym_301__CLASS_SOURCE_PRIMITIVE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_301__CLASS_SOURCE_PRIMITIVE", 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_301__CLASS_SOURCE_PRIMITIVE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_301__CLASS_SOURCE_PRIMITIVE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_301__CLASS_SOURCE_PRIMITIVE.obj_hash = 683295797; meltcdat->dsym_301__CLASS_SOURCE_PRIMITIVE.obj_len = 3; /*inistring dstr_302__CLASS_SOURCE_PRIMITIVE*/ /*_._VALSTR___V396*/ meltfptr[395] = (melt_ptr_t) &meltcdat->dstr_302__CLASS_SOURCE_PRIMITIVE; meltcdat->dstr_302__CLASS_SOURCE_PRIMITIVE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_302__CLASS_SOURCE_PRIMITIVE.val, "CLASS_SOURCE_PRIMITIVE", sizeof (meltcdat->dstr_302__CLASS_SOURCE_PRIMITIVE.val)-1); meltcdat->dstr_302__CLASS_SOURCE_PRIMITIVE.val[22] = (char)0 ; meltcdat->dstr_302__CLASS_SOURCE_PRIMITIVE.slen = 22 ; MELT_LOCATION("warmelt-macro.melt:505:/ iniobj"); /*iniobj dobj_303__CLASS_SOURCE_PRIMITIVE*/ /*_._VALDATA___V397*/ meltfptr[396] = (melt_ptr_t )&meltcdat->dobj_303__CLASS_SOURCE_PRIMITIVE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_303__CLASS_SOURCE_PRIMITIVE", 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_303__CLASS_SOURCE_PRIMITIVE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_303__CLASS_SOURCE_PRIMITIVE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_303__CLASS_SOURCE_PRIMITIVE.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_303__CLASS_SOURCE_PRIMITIVE.obj_hash = 368672779; meltcdat->dobj_303__CLASS_SOURCE_PRIMITIVE.obj_len = 8; /*inistring dstr_304__CLASS_SOURCE_PRIMITIVE*/ /*_._VALSTR___V398*/ meltfptr[397] = (melt_ptr_t) &meltcdat->dstr_304__CLASS_SOURCE_PRIMITIVE; meltcdat->dstr_304__CLASS_SOURCE_PRIMITIVE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_304__CLASS_SOURCE_PRIMITIVE.val, "CLASS_SOURCE_PRIMITIVE", sizeof (meltcdat->dstr_304__CLASS_SOURCE_PRIMITIVE.val)-1); meltcdat->dstr_304__CLASS_SOURCE_PRIMITIVE.val[22] = (char)0 ; meltcdat->dstr_304__CLASS_SOURCE_PRIMITIVE.slen = 22 ; /*inimult dtup_305_syCLASS_SOURCE_PRIMITIVE*/ /*_._VALTUP___V399*/ meltfptr[398] = (melt_ptr_t) &meltcdat->dtup_305_syCLASS_SOURCE_PRIMITIVE; meltcdat->dtup_305_syCLASS_SOURCE_PRIMITIVE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_305_syCLASS_SOURCE_PRIMITIVE.nbval = 5; /*inimult dtup_306_syCLASS_SOURCE_PRIMITIVE*/ /*_._VALTUP___V402*/ meltfptr[401] = (melt_ptr_t) &meltcdat->dtup_306_syCLASS_SOURCE_PRIMITIVE; meltcdat->dtup_306_syCLASS_SOURCE_PRIMITIVE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_306_syCLASS_SOURCE_PRIMITIVE.nbval = 4; /*iniobj dsym_307__SPRIM_OPER*/ /*uniqueobj*/ if (!/*_._VALDATA___V403*/ meltfptr[402]) /*_._VALDATA___V403*/ meltfptr[402] = (melt_ptr_t )&meltcdat->dsym_307__SPRIM_OPER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_307__SPRIM_OPER", 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_307__SPRIM_OPER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_307__SPRIM_OPER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_307__SPRIM_OPER.obj_hash = 400545277; meltcdat->dsym_307__SPRIM_OPER.obj_len = 3; /*inistring dstr_308__SPRIM_OPER*/ /*_._VALSTR___V404*/ meltfptr[403] = (melt_ptr_t) &meltcdat->dstr_308__SPRIM_OPER; meltcdat->dstr_308__SPRIM_OPER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_308__SPRIM_OPER.val, "SPRIM_OPER", sizeof (meltcdat->dstr_308__SPRIM_OPER.val)-1); meltcdat->dstr_308__SPRIM_OPER.val[10] = (char)0 ; meltcdat->dstr_308__SPRIM_OPER.slen = 10 ; /*^iniobj*/ /*iniobj dobj_309__SPRIM_OPER*/ /*_._VALDATA___V400*/ meltfptr[399] = (melt_ptr_t )&meltcdat->dobj_309__SPRIM_OPER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_309__SPRIM_OPER", 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_309__SPRIM_OPER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_309__SPRIM_OPER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_309__SPRIM_OPER.obj_num = 3; meltcdat->dobj_309__SPRIM_OPER.obj_hash = 17450539; meltcdat->dobj_309__SPRIM_OPER.obj_len = 4; /*inistring dstr_310__SPRIM_OPER*/ /*_._VALSTR___V401*/ meltfptr[400] = (melt_ptr_t) &meltcdat->dstr_310__SPRIM_OPER; meltcdat->dstr_310__SPRIM_OPER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_310__SPRIM_OPER.val, "SPRIM_OPER", sizeof (meltcdat->dstr_310__SPRIM_OPER.val)-1); meltcdat->dstr_310__SPRIM_OPER.val[10] = (char)0 ; meltcdat->dstr_310__SPRIM_OPER.slen = 10 ; /*iniobj dsym_311__CLASS_SOURCE_HOOK_CALL*/ /*uniqueobj*/ if (!/*_._VALDATA___V405*/ meltfptr[404]) /*_._VALDATA___V405*/ meltfptr[404] = (melt_ptr_t )&meltcdat->dsym_311__CLASS_SOURCE_HOOK_CALL; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_311__CLASS_SOURCE_HOOK_CALL", 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_311__CLASS_SOURCE_HOOK_CALL", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_311__CLASS_SOURCE_HOOK_CALL.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_311__CLASS_SOURCE_HOOK_CALL.obj_hash = 317559930; meltcdat->dsym_311__CLASS_SOURCE_HOOK_CALL.obj_len = 3; /*inistring dstr_312__CLASS_SOURCE_HOOK_CALL*/ /*_._VALSTR___V406*/ meltfptr[405] = (melt_ptr_t) &meltcdat->dstr_312__CLASS_SOURCE_HOOK_CALL; meltcdat->dstr_312__CLASS_SOURCE_HOOK_CALL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_312__CLASS_SOURCE_HOOK_CALL.val, "CLASS_SOURCE_HOOK_CALL", sizeof (meltcdat->dstr_312__CLASS_SOURCE_HOOK_CALL.val)-1); meltcdat->dstr_312__CLASS_SOURCE_HOOK_CALL.val[22] = (char)0 ; meltcdat->dstr_312__CLASS_SOURCE_HOOK_CALL.slen = 22 ; MELT_LOCATION("warmelt-macro.melt:513:/ iniobj"); /*iniobj dobj_313__CLASS_SOURCE_HOOK_CALL*/ /*_._VALDATA___V407*/ meltfptr[406] = (melt_ptr_t )&meltcdat->dobj_313__CLASS_SOURCE_HOOK_CALL; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_313__CLASS_SOURCE_HOOK_CALL", 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_313__CLASS_SOURCE_HOOK_CALL", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_313__CLASS_SOURCE_HOOK_CALL.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_313__CLASS_SOURCE_HOOK_CALL.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_313__CLASS_SOURCE_HOOK_CALL.obj_hash = 227907375; meltcdat->dobj_313__CLASS_SOURCE_HOOK_CALL.obj_len = 8; /*inistring dstr_314__CLASS_SOURCE_HOOK_CALL*/ /*_._VALSTR___V408*/ meltfptr[407] = (melt_ptr_t) &meltcdat->dstr_314__CLASS_SOURCE_HOOK_CALL; meltcdat->dstr_314__CLASS_SOURCE_HOOK_CALL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_314__CLASS_SOURCE_HOOK_CALL.val, "CLASS_SOURCE_HOOK_CALL", sizeof (meltcdat->dstr_314__CLASS_SOURCE_HOOK_CALL.val)-1); meltcdat->dstr_314__CLASS_SOURCE_HOOK_CALL.val[22] = (char)0 ; meltcdat->dstr_314__CLASS_SOURCE_HOOK_CALL.slen = 22 ; /*inimult dtup_315_syCLASS_SOURCE_HOOK_CALL*/ /*_._VALTUP___V409*/ meltfptr[408] = (melt_ptr_t) &meltcdat->dtup_315_syCLASS_SOURCE_HOOK_CALL; meltcdat->dtup_315_syCLASS_SOURCE_HOOK_CALL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_315_syCLASS_SOURCE_HOOK_CALL.nbval = 5; /*inimult dtup_316_syCLASS_SOURCE_HOOK_CALL*/ /*_._VALTUP___V412*/ meltfptr[411] = (melt_ptr_t) &meltcdat->dtup_316_syCLASS_SOURCE_HOOK_CALL; meltcdat->dtup_316_syCLASS_SOURCE_HOOK_CALL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_316_syCLASS_SOURCE_HOOK_CALL.nbval = 4; /*iniobj dsym_317__SHOOK_CALLED*/ /*uniqueobj*/ if (!/*_._VALDATA___V413*/ meltfptr[412]) /*_._VALDATA___V413*/ meltfptr[412] = (melt_ptr_t )&meltcdat->dsym_317__SHOOK_CALLED; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_317__SHOOK_CALLED", 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_317__SHOOK_CALLED", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_317__SHOOK_CALLED.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_317__SHOOK_CALLED.obj_hash = 999315103; meltcdat->dsym_317__SHOOK_CALLED.obj_len = 3; /*inistring dstr_318__SHOOK_CALLED*/ /*_._VALSTR___V414*/ meltfptr[413] = (melt_ptr_t) &meltcdat->dstr_318__SHOOK_CALLED; meltcdat->dstr_318__SHOOK_CALLED.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_318__SHOOK_CALLED.val, "SHOOK_CALLED", sizeof (meltcdat->dstr_318__SHOOK_CALLED.val)-1); meltcdat->dstr_318__SHOOK_CALLED.val[12] = (char)0 ; meltcdat->dstr_318__SHOOK_CALLED.slen = 12 ; /*^iniobj*/ /*iniobj dobj_319__SHOOK_CALLED*/ /*_._VALDATA___V410*/ meltfptr[409] = (melt_ptr_t )&meltcdat->dobj_319__SHOOK_CALLED; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_319__SHOOK_CALLED", 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_319__SHOOK_CALLED", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_319__SHOOK_CALLED.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_319__SHOOK_CALLED.obj_num = 3; meltcdat->dobj_319__SHOOK_CALLED.obj_hash = 461386509; meltcdat->dobj_319__SHOOK_CALLED.obj_len = 4; /*inistring dstr_320__SHOOK_CALLED*/ /*_._VALSTR___V411*/ meltfptr[410] = (melt_ptr_t) &meltcdat->dstr_320__SHOOK_CALLED; meltcdat->dstr_320__SHOOK_CALLED.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_320__SHOOK_CALLED.val, "SHOOK_CALLED", sizeof (meltcdat->dstr_320__SHOOK_CALLED.val)-1); meltcdat->dstr_320__SHOOK_CALLED.val[12] = (char)0 ; meltcdat->dstr_320__SHOOK_CALLED.slen = 12 ; /*iniobj dsym_321__CLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION*/ /*uniqueobj*/ if (!/*_._VALDATA___V415*/ meltfptr[414]) /*_._VALDATA___V415*/ meltfptr[414] = (melt_ptr_t )&meltcdat->dsym_321__CLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_321__CLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION", 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_321__CLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_321__CLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_321__CLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION.obj_hash = 1035332559; meltcdat->dsym_321__CLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION.obj_len = 3; /*inistring dstr_322__CLASS_SOURCE_ARITHMETIC_*/ /*_._VALSTR___V416*/ meltfptr[415] = (melt_ptr_t) &meltcdat->dstr_322__CLASS_SOURCE_ARITHMETIC_; meltcdat->dstr_322__CLASS_SOURCE_ARITHMETIC_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_322__CLASS_SOURCE_ARITHMETIC_.val, "CLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION", sizeof (meltcdat->dstr_322__CLASS_SOURCE_ARITHMETIC_.val)-1); meltcdat->dstr_322__CLASS_SOURCE_ARITHMETIC_.val[42] = (char)0 ; meltcdat->dstr_322__CLASS_SOURCE_ARITHMETIC_.slen = 42 ; MELT_LOCATION("warmelt-macro.melt:523:/ iniobj"); /*iniobj dobj_323__CLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION*/ /*_._VALDATA___V417*/ meltfptr[416] = (melt_ptr_t )&meltcdat->dobj_323__CLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_323__CLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION", 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_323__CLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_323__CLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_323__CLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_323__CLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION.obj_hash = 945790506; meltcdat->dobj_323__CLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION.obj_len = 8; /*inistring dstr_324__CLASS_SOURCE_ARITHMETIC_*/ /*_._VALSTR___V418*/ meltfptr[417] = (melt_ptr_t) &meltcdat->dstr_324__CLASS_SOURCE_ARITHMETIC_; meltcdat->dstr_324__CLASS_SOURCE_ARITHMETIC_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_324__CLASS_SOURCE_ARITHMETIC_.val, "CLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION", sizeof (meltcdat->dstr_324__CLASS_SOURCE_ARITHMETIC_.val)-1); meltcdat->dstr_324__CLASS_SOURCE_ARITHMETIC_.val[42] = (char)0 ; meltcdat->dstr_324__CLASS_SOURCE_ARITHMETIC_.slen = 42 ; /*inimult dtup_325_syCLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION*/ /*_._VALTUP___V419*/ meltfptr[418] = (melt_ptr_t) &meltcdat->dtup_325_syCLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION; meltcdat->dtup_325_syCLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_325_syCLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION.nbval = 5; /*inimult dtup_326_syCLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION*/ /*_._VALTUP___V424*/ meltfptr[423] = (melt_ptr_t) &meltcdat->dtup_326_syCLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION; meltcdat->dtup_326_syCLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_326_syCLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION.nbval = 5; /*iniobj dsym_327__SARITHVAR_NEUTRAL*/ /*uniqueobj*/ if (!/*_._VALDATA___V425*/ meltfptr[424]) /*_._VALDATA___V425*/ meltfptr[424] = (melt_ptr_t )&meltcdat->dsym_327__SARITHVAR_NEUTRAL; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_327__SARITHVAR_NEUTRAL", 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_327__SARITHVAR_NEUTRAL", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_327__SARITHVAR_NEUTRAL.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_327__SARITHVAR_NEUTRAL.obj_hash = 300388963; meltcdat->dsym_327__SARITHVAR_NEUTRAL.obj_len = 3; /*inistring dstr_328__SARITHVAR_NEUTRAL*/ /*_._VALSTR___V426*/ meltfptr[425] = (melt_ptr_t) &meltcdat->dstr_328__SARITHVAR_NEUTRAL; meltcdat->dstr_328__SARITHVAR_NEUTRAL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_328__SARITHVAR_NEUTRAL.val, "SARITHVAR_NEUTRAL", sizeof (meltcdat->dstr_328__SARITHVAR_NEUTRAL.val)-1); meltcdat->dstr_328__SARITHVAR_NEUTRAL.val[17] = (char)0 ; meltcdat->dstr_328__SARITHVAR_NEUTRAL.slen = 17 ; /*^iniobj*/ /*iniobj dobj_329__SARITHVAR_NEUTRAL*/ /*_._VALDATA___V420*/ meltfptr[419] = (melt_ptr_t )&meltcdat->dobj_329__SARITHVAR_NEUTRAL; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_329__SARITHVAR_NEUTRAL", 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_329__SARITHVAR_NEUTRAL", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_329__SARITHVAR_NEUTRAL.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_329__SARITHVAR_NEUTRAL.obj_num = 3; meltcdat->dobj_329__SARITHVAR_NEUTRAL.obj_hash = 24941351; meltcdat->dobj_329__SARITHVAR_NEUTRAL.obj_len = 4; /*inistring dstr_330__SARITHVAR_NEUTRAL*/ /*_._VALSTR___V421*/ meltfptr[420] = (melt_ptr_t) &meltcdat->dstr_330__SARITHVAR_NEUTRAL; meltcdat->dstr_330__SARITHVAR_NEUTRAL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_330__SARITHVAR_NEUTRAL.val, "SARITHVAR_NEUTRAL", sizeof (meltcdat->dstr_330__SARITHVAR_NEUTRAL.val)-1); meltcdat->dstr_330__SARITHVAR_NEUTRAL.val[17] = (char)0 ; meltcdat->dstr_330__SARITHVAR_NEUTRAL.slen = 17 ; /*iniobj dsym_331__SARITHVAR_PRIMITIVE*/ /*uniqueobj*/ if (!/*_._VALDATA___V427*/ meltfptr[426]) /*_._VALDATA___V427*/ meltfptr[426] = (melt_ptr_t )&meltcdat->dsym_331__SARITHVAR_PRIMITIVE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_331__SARITHVAR_PRIMITIVE", 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_331__SARITHVAR_PRIMITIVE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_331__SARITHVAR_PRIMITIVE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_331__SARITHVAR_PRIMITIVE.obj_hash = 484131819; meltcdat->dsym_331__SARITHVAR_PRIMITIVE.obj_len = 3; /*inistring dstr_332__SARITHVAR_PRIMITIVE*/ /*_._VALSTR___V428*/ meltfptr[427] = (melt_ptr_t) &meltcdat->dstr_332__SARITHVAR_PRIMITIVE; meltcdat->dstr_332__SARITHVAR_PRIMITIVE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_332__SARITHVAR_PRIMITIVE.val, "SARITHVAR_PRIMITIVE", sizeof (meltcdat->dstr_332__SARITHVAR_PRIMITIVE.val)-1); meltcdat->dstr_332__SARITHVAR_PRIMITIVE.val[19] = (char)0 ; meltcdat->dstr_332__SARITHVAR_PRIMITIVE.slen = 19 ; /*^iniobj*/ /*iniobj dobj_333__SARITHVAR_PRIMITIVE*/ /*_._VALDATA___V422*/ meltfptr[421] = (melt_ptr_t )&meltcdat->dobj_333__SARITHVAR_PRIMITIVE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_333__SARITHVAR_PRIMITIVE", 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_333__SARITHVAR_PRIMITIVE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_333__SARITHVAR_PRIMITIVE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_333__SARITHVAR_PRIMITIVE.obj_num = 4; meltcdat->dobj_333__SARITHVAR_PRIMITIVE.obj_hash = 839654077; meltcdat->dobj_333__SARITHVAR_PRIMITIVE.obj_len = 4; /*inistring dstr_334__SARITHVAR_PRIMITIVE*/ /*_._VALSTR___V423*/ meltfptr[422] = (melt_ptr_t) &meltcdat->dstr_334__SARITHVAR_PRIMITIVE; meltcdat->dstr_334__SARITHVAR_PRIMITIVE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_334__SARITHVAR_PRIMITIVE.val, "SARITHVAR_PRIMITIVE", sizeof (meltcdat->dstr_334__SARITHVAR_PRIMITIVE.val)-1); meltcdat->dstr_334__SARITHVAR_PRIMITIVE.val[19] = (char)0 ; meltcdat->dstr_334__SARITHVAR_PRIMITIVE.slen = 19 ; /*iniobj dsym_335__CLASS_SOURCE_CITERATION*/ /*uniqueobj*/ if (!/*_._VALDATA___V429*/ meltfptr[428]) /*_._VALDATA___V429*/ meltfptr[428] = (melt_ptr_t )&meltcdat->dsym_335__CLASS_SOURCE_CITERATION; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_335__CLASS_SOURCE_CITERATION", 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_335__CLASS_SOURCE_CITERATION", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_335__CLASS_SOURCE_CITERATION.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_335__CLASS_SOURCE_CITERATION.obj_hash = 723843174; meltcdat->dsym_335__CLASS_SOURCE_CITERATION.obj_len = 3; /*inistring dstr_336__CLASS_SOURCE_CITERATION*/ /*_._VALSTR___V430*/ meltfptr[429] = (melt_ptr_t) &meltcdat->dstr_336__CLASS_SOURCE_CITERATION; meltcdat->dstr_336__CLASS_SOURCE_CITERATION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_336__CLASS_SOURCE_CITERATION.val, "CLASS_SOURCE_CITERATION", sizeof (meltcdat->dstr_336__CLASS_SOURCE_CITERATION.val)-1); meltcdat->dstr_336__CLASS_SOURCE_CITERATION.val[23] = (char)0 ; meltcdat->dstr_336__CLASS_SOURCE_CITERATION.slen = 23 ; MELT_LOCATION("warmelt-macro.melt:532:/ iniobj"); /*iniobj dobj_337__CLASS_SOURCE_CITERATION*/ /*_._VALDATA___V431*/ meltfptr[430] = (melt_ptr_t )&meltcdat->dobj_337__CLASS_SOURCE_CITERATION; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_337__CLASS_SOURCE_CITERATION", 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_337__CLASS_SOURCE_CITERATION", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_337__CLASS_SOURCE_CITERATION.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_337__CLASS_SOURCE_CITERATION.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_337__CLASS_SOURCE_CITERATION.obj_hash = 439065693; meltcdat->dobj_337__CLASS_SOURCE_CITERATION.obj_len = 8; /*inistring dstr_338__CLASS_SOURCE_CITERATION*/ /*_._VALSTR___V432*/ meltfptr[431] = (melt_ptr_t) &meltcdat->dstr_338__CLASS_SOURCE_CITERATION; meltcdat->dstr_338__CLASS_SOURCE_CITERATION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_338__CLASS_SOURCE_CITERATION.val, "CLASS_SOURCE_CITERATION", sizeof (meltcdat->dstr_338__CLASS_SOURCE_CITERATION.val)-1); meltcdat->dstr_338__CLASS_SOURCE_CITERATION.val[23] = (char)0 ; meltcdat->dstr_338__CLASS_SOURCE_CITERATION.slen = 23 ; /*inimult dtup_339_syCLASS_SOURCE_CITERATION*/ /*_._VALTUP___V433*/ meltfptr[432] = (melt_ptr_t) &meltcdat->dtup_339_syCLASS_SOURCE_CITERATION; meltcdat->dtup_339_syCLASS_SOURCE_CITERATION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_339_syCLASS_SOURCE_CITERATION.nbval = 5; /*inimult dtup_340_syCLASS_SOURCE_CITERATION*/ /*_._VALTUP___V440*/ meltfptr[439] = (melt_ptr_t) &meltcdat->dtup_340_syCLASS_SOURCE_CITERATION; meltcdat->dtup_340_syCLASS_SOURCE_CITERATION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_340_syCLASS_SOURCE_CITERATION.nbval = 6; /*iniobj dsym_341__SCITER_OPER*/ /*uniqueobj*/ if (!/*_._VALDATA___V441*/ meltfptr[440]) /*_._VALDATA___V441*/ meltfptr[440] = (melt_ptr_t )&meltcdat->dsym_341__SCITER_OPER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_341__SCITER_OPER", 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_341__SCITER_OPER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_341__SCITER_OPER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_341__SCITER_OPER.obj_hash = 662216556; meltcdat->dsym_341__SCITER_OPER.obj_len = 3; /*inistring dstr_342__SCITER_OPER*/ /*_._VALSTR___V442*/ meltfptr[441] = (melt_ptr_t) &meltcdat->dstr_342__SCITER_OPER; meltcdat->dstr_342__SCITER_OPER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_342__SCITER_OPER.val, "SCITER_OPER", sizeof (meltcdat->dstr_342__SCITER_OPER.val)-1); meltcdat->dstr_342__SCITER_OPER.val[11] = (char)0 ; meltcdat->dstr_342__SCITER_OPER.slen = 11 ; /*^iniobj*/ /*iniobj dobj_343__SCITER_OPER*/ /*_._VALDATA___V434*/ meltfptr[433] = (melt_ptr_t )&meltcdat->dobj_343__SCITER_OPER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_343__SCITER_OPER", 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_343__SCITER_OPER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_343__SCITER_OPER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_343__SCITER_OPER.obj_num = 3; meltcdat->dobj_343__SCITER_OPER.obj_hash = 271696330; meltcdat->dobj_343__SCITER_OPER.obj_len = 4; /*inistring dstr_344__SCITER_OPER*/ /*_._VALSTR___V435*/ meltfptr[434] = (melt_ptr_t) &meltcdat->dstr_344__SCITER_OPER; meltcdat->dstr_344__SCITER_OPER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_344__SCITER_OPER.val, "SCITER_OPER", sizeof (meltcdat->dstr_344__SCITER_OPER.val)-1); meltcdat->dstr_344__SCITER_OPER.val[11] = (char)0 ; meltcdat->dstr_344__SCITER_OPER.slen = 11 ; /*iniobj dsym_345__SCITER_VARBIND*/ /*uniqueobj*/ if (!/*_._VALDATA___V443*/ meltfptr[442]) /*_._VALDATA___V443*/ meltfptr[442] = (melt_ptr_t )&meltcdat->dsym_345__SCITER_VARBIND; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_345__SCITER_VARBIND", 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_345__SCITER_VARBIND", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_345__SCITER_VARBIND.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_345__SCITER_VARBIND.obj_hash = 394324639; meltcdat->dsym_345__SCITER_VARBIND.obj_len = 3; /*inistring dstr_346__SCITER_VARBIND*/ /*_._VALSTR___V444*/ meltfptr[443] = (melt_ptr_t) &meltcdat->dstr_346__SCITER_VARBIND; meltcdat->dstr_346__SCITER_VARBIND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_346__SCITER_VARBIND.val, "SCITER_VARBIND", sizeof (meltcdat->dstr_346__SCITER_VARBIND.val)-1); meltcdat->dstr_346__SCITER_VARBIND.val[14] = (char)0 ; meltcdat->dstr_346__SCITER_VARBIND.slen = 14 ; /*^iniobj*/ /*iniobj dobj_347__SCITER_VARBIND*/ /*_._VALDATA___V436*/ meltfptr[435] = (melt_ptr_t )&meltcdat->dobj_347__SCITER_VARBIND; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_347__SCITER_VARBIND", 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_347__SCITER_VARBIND", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_347__SCITER_VARBIND.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_347__SCITER_VARBIND.obj_num = 4; meltcdat->dobj_347__SCITER_VARBIND.obj_hash = 185837384; meltcdat->dobj_347__SCITER_VARBIND.obj_len = 4; /*inistring dstr_348__SCITER_VARBIND*/ /*_._VALSTR___V437*/ meltfptr[436] = (melt_ptr_t) &meltcdat->dstr_348__SCITER_VARBIND; meltcdat->dstr_348__SCITER_VARBIND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_348__SCITER_VARBIND.val, "SCITER_VARBIND", sizeof (meltcdat->dstr_348__SCITER_VARBIND.val)-1); meltcdat->dstr_348__SCITER_VARBIND.val[14] = (char)0 ; meltcdat->dstr_348__SCITER_VARBIND.slen = 14 ; /*iniobj dsym_349__SCITER_BODY*/ /*uniqueobj*/ if (!/*_._VALDATA___V445*/ meltfptr[444]) /*_._VALDATA___V445*/ meltfptr[444] = (melt_ptr_t )&meltcdat->dsym_349__SCITER_BODY; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_349__SCITER_BODY", 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_349__SCITER_BODY", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_349__SCITER_BODY.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_349__SCITER_BODY.obj_hash = 751320796; meltcdat->dsym_349__SCITER_BODY.obj_len = 3; /*inistring dstr_350__SCITER_BODY*/ /*_._VALSTR___V446*/ meltfptr[445] = (melt_ptr_t) &meltcdat->dstr_350__SCITER_BODY; meltcdat->dstr_350__SCITER_BODY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_350__SCITER_BODY.val, "SCITER_BODY", sizeof (meltcdat->dstr_350__SCITER_BODY.val)-1); meltcdat->dstr_350__SCITER_BODY.val[11] = (char)0 ; meltcdat->dstr_350__SCITER_BODY.slen = 11 ; /*^iniobj*/ /*iniobj dobj_351__SCITER_BODY*/ /*_._VALDATA___V438*/ meltfptr[437] = (melt_ptr_t )&meltcdat->dobj_351__SCITER_BODY; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_351__SCITER_BODY", 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_351__SCITER_BODY", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_351__SCITER_BODY.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_351__SCITER_BODY.obj_num = 5; meltcdat->dobj_351__SCITER_BODY.obj_hash = 164252185; meltcdat->dobj_351__SCITER_BODY.obj_len = 4; /*inistring dstr_352__SCITER_BODY*/ /*_._VALSTR___V439*/ meltfptr[438] = (melt_ptr_t) &meltcdat->dstr_352__SCITER_BODY; meltcdat->dstr_352__SCITER_BODY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_352__SCITER_BODY.val, "SCITER_BODY", sizeof (meltcdat->dstr_352__SCITER_BODY.val)-1); meltcdat->dstr_352__SCITER_BODY.val[11] = (char)0 ; meltcdat->dstr_352__SCITER_BODY.slen = 11 ; /*iniobj dsym_353__CLASS_SOURCE_CMATCHEXPR*/ /*uniqueobj*/ if (!/*_._VALDATA___V447*/ meltfptr[446]) /*_._VALDATA___V447*/ meltfptr[446] = (melt_ptr_t )&meltcdat->dsym_353__CLASS_SOURCE_CMATCHEXPR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_353__CLASS_SOURCE_CMATCHEXPR", 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_353__CLASS_SOURCE_CMATCHEXPR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_353__CLASS_SOURCE_CMATCHEXPR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_353__CLASS_SOURCE_CMATCHEXPR.obj_hash = 558397590; meltcdat->dsym_353__CLASS_SOURCE_CMATCHEXPR.obj_len = 3; /*inistring dstr_354__CLASS_SOURCE_CMATCHEXPR*/ /*_._VALSTR___V448*/ meltfptr[447] = (melt_ptr_t) &meltcdat->dstr_354__CLASS_SOURCE_CMATCHEXPR; meltcdat->dstr_354__CLASS_SOURCE_CMATCHEXPR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_354__CLASS_SOURCE_CMATCHEXPR.val, "CLASS_SOURCE_CMATCHEXPR", sizeof (meltcdat->dstr_354__CLASS_SOURCE_CMATCHEXPR.val)-1); meltcdat->dstr_354__CLASS_SOURCE_CMATCHEXPR.val[23] = (char)0 ; meltcdat->dstr_354__CLASS_SOURCE_CMATCHEXPR.slen = 23 ; MELT_LOCATION("warmelt-macro.melt:544:/ iniobj"); /*iniobj dobj_355__CLASS_SOURCE_CMATCHEXPR*/ /*_._VALDATA___V449*/ meltfptr[448] = (melt_ptr_t )&meltcdat->dobj_355__CLASS_SOURCE_CMATCHEXPR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_355__CLASS_SOURCE_CMATCHEXPR", 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_355__CLASS_SOURCE_CMATCHEXPR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_355__CLASS_SOURCE_CMATCHEXPR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_355__CLASS_SOURCE_CMATCHEXPR.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_355__CLASS_SOURCE_CMATCHEXPR.obj_hash = 1024822372; meltcdat->dobj_355__CLASS_SOURCE_CMATCHEXPR.obj_len = 8; /*inistring dstr_356__CLASS_SOURCE_CMATCHEXPR*/ /*_._VALSTR___V450*/ meltfptr[449] = (melt_ptr_t) &meltcdat->dstr_356__CLASS_SOURCE_CMATCHEXPR; meltcdat->dstr_356__CLASS_SOURCE_CMATCHEXPR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_356__CLASS_SOURCE_CMATCHEXPR.val, "CLASS_SOURCE_CMATCHEXPR", sizeof (meltcdat->dstr_356__CLASS_SOURCE_CMATCHEXPR.val)-1); meltcdat->dstr_356__CLASS_SOURCE_CMATCHEXPR.val[23] = (char)0 ; meltcdat->dstr_356__CLASS_SOURCE_CMATCHEXPR.slen = 23 ; /*inimult dtup_357_syCLASS_SOURCE_CMATCHEXPR*/ /*_._VALTUP___V451*/ meltfptr[450] = (melt_ptr_t) &meltcdat->dtup_357_syCLASS_SOURCE_CMATCHEXPR; meltcdat->dtup_357_syCLASS_SOURCE_CMATCHEXPR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_357_syCLASS_SOURCE_CMATCHEXPR.nbval = 5; /*inimult dtup_358_syCLASS_SOURCE_CMATCHEXPR*/ /*_._VALTUP___V454*/ meltfptr[453] = (melt_ptr_t) &meltcdat->dtup_358_syCLASS_SOURCE_CMATCHEXPR; meltcdat->dtup_358_syCLASS_SOURCE_CMATCHEXPR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_358_syCLASS_SOURCE_CMATCHEXPR.nbval = 4; /*iniobj dsym_359__SCMATX_CMATCHER*/ /*uniqueobj*/ if (!/*_._VALDATA___V455*/ meltfptr[454]) /*_._VALDATA___V455*/ meltfptr[454] = (melt_ptr_t )&meltcdat->dsym_359__SCMATX_CMATCHER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_359__SCMATX_CMATCHER", 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_359__SCMATX_CMATCHER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_359__SCMATX_CMATCHER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_359__SCMATX_CMATCHER.obj_hash = 479043970; meltcdat->dsym_359__SCMATX_CMATCHER.obj_len = 3; /*inistring dstr_360__SCMATX_CMATCHER*/ /*_._VALSTR___V456*/ meltfptr[455] = (melt_ptr_t) &meltcdat->dstr_360__SCMATX_CMATCHER; meltcdat->dstr_360__SCMATX_CMATCHER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_360__SCMATX_CMATCHER.val, "SCMATX_CMATCHER", sizeof (meltcdat->dstr_360__SCMATX_CMATCHER.val)-1); meltcdat->dstr_360__SCMATX_CMATCHER.val[15] = (char)0 ; meltcdat->dstr_360__SCMATX_CMATCHER.slen = 15 ; /*^iniobj*/ /*iniobj dobj_361__SCMATX_CMATCHER*/ /*_._VALDATA___V452*/ meltfptr[451] = (melt_ptr_t )&meltcdat->dobj_361__SCMATX_CMATCHER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_361__SCMATX_CMATCHER", 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_361__SCMATX_CMATCHER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_361__SCMATX_CMATCHER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_361__SCMATX_CMATCHER.obj_num = 3; meltcdat->dobj_361__SCMATX_CMATCHER.obj_hash = 718601293; meltcdat->dobj_361__SCMATX_CMATCHER.obj_len = 4; /*inistring dstr_362__SCMATX_CMATCHER*/ /*_._VALSTR___V453*/ meltfptr[452] = (melt_ptr_t) &meltcdat->dstr_362__SCMATX_CMATCHER; meltcdat->dstr_362__SCMATX_CMATCHER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_362__SCMATX_CMATCHER.val, "SCMATX_CMATCHER", sizeof (meltcdat->dstr_362__SCMATX_CMATCHER.val)-1); meltcdat->dstr_362__SCMATX_CMATCHER.val[15] = (char)0 ; meltcdat->dstr_362__SCMATX_CMATCHER.slen = 15 ; /*iniobj dsym_363__CLASS_SOURCE_FUNMATCHEXPR*/ /*uniqueobj*/ if (!/*_._VALDATA___V457*/ meltfptr[456]) /*_._VALDATA___V457*/ meltfptr[456] = (melt_ptr_t )&meltcdat->dsym_363__CLASS_SOURCE_FUNMATCHEXPR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_363__CLASS_SOURCE_FUNMATCHEXPR", 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_363__CLASS_SOURCE_FUNMATCHEXPR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_363__CLASS_SOURCE_FUNMATCHEXPR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_363__CLASS_SOURCE_FUNMATCHEXPR.obj_hash = 443076985; meltcdat->dsym_363__CLASS_SOURCE_FUNMATCHEXPR.obj_len = 3; /*inistring dstr_364__CLASS_SOURCE_FUNMATCHEXP*/ /*_._VALSTR___V458*/ meltfptr[457] = (melt_ptr_t) &meltcdat->dstr_364__CLASS_SOURCE_FUNMATCHEXP; meltcdat->dstr_364__CLASS_SOURCE_FUNMATCHEXP.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_364__CLASS_SOURCE_FUNMATCHEXP.val, "CLASS_SOURCE_FUNMATCHEXPR", sizeof (meltcdat->dstr_364__CLASS_SOURCE_FUNMATCHEXP.val)-1); meltcdat->dstr_364__CLASS_SOURCE_FUNMATCHEXP.val[25] = (char)0 ; meltcdat->dstr_364__CLASS_SOURCE_FUNMATCHEXP.slen = 25 ; MELT_LOCATION("warmelt-macro.melt:553:/ iniobj"); /*iniobj dobj_365__CLASS_SOURCE_FUNMATCHEXPR*/ /*_._VALDATA___V459*/ meltfptr[458] = (melt_ptr_t )&meltcdat->dobj_365__CLASS_SOURCE_FUNMATCHEXPR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_365__CLASS_SOURCE_FUNMATCHEXPR", 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_365__CLASS_SOURCE_FUNMATCHEXPR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_365__CLASS_SOURCE_FUNMATCHEXPR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_365__CLASS_SOURCE_FUNMATCHEXPR.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_365__CLASS_SOURCE_FUNMATCHEXPR.obj_hash = 468528553; meltcdat->dobj_365__CLASS_SOURCE_FUNMATCHEXPR.obj_len = 8; /*inistring dstr_366__CLASS_SOURCE_FUNMATCHEXP*/ /*_._VALSTR___V460*/ meltfptr[459] = (melt_ptr_t) &meltcdat->dstr_366__CLASS_SOURCE_FUNMATCHEXP; meltcdat->dstr_366__CLASS_SOURCE_FUNMATCHEXP.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_366__CLASS_SOURCE_FUNMATCHEXP.val, "CLASS_SOURCE_FUNMATCHEXPR", sizeof (meltcdat->dstr_366__CLASS_SOURCE_FUNMATCHEXP.val)-1); meltcdat->dstr_366__CLASS_SOURCE_FUNMATCHEXP.val[25] = (char)0 ; meltcdat->dstr_366__CLASS_SOURCE_FUNMATCHEXP.slen = 25 ; /*inimult dtup_367_syCLASS_SOURCE_FUNMATCHEXPR*/ /*_._VALTUP___V461*/ meltfptr[460] = (melt_ptr_t) &meltcdat->dtup_367_syCLASS_SOURCE_FUNMATCHEXPR; meltcdat->dtup_367_syCLASS_SOURCE_FUNMATCHEXPR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_367_syCLASS_SOURCE_FUNMATCHEXPR.nbval = 5; /*inimult dtup_368_syCLASS_SOURCE_FUNMATCHEXPR*/ /*_._VALTUP___V466*/ meltfptr[465] = (melt_ptr_t) &meltcdat->dtup_368_syCLASS_SOURCE_FUNMATCHEXPR; meltcdat->dtup_368_syCLASS_SOURCE_FUNMATCHEXPR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_368_syCLASS_SOURCE_FUNMATCHEXPR.nbval = 5; /*iniobj dsym_369__SFMATX_FMATCHER*/ /*uniqueobj*/ if (!/*_._VALDATA___V467*/ meltfptr[466]) /*_._VALDATA___V467*/ meltfptr[466] = (melt_ptr_t )&meltcdat->dsym_369__SFMATX_FMATCHER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_369__SFMATX_FMATCHER", 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_369__SFMATX_FMATCHER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_369__SFMATX_FMATCHER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_369__SFMATX_FMATCHER.obj_hash = 71065864; meltcdat->dsym_369__SFMATX_FMATCHER.obj_len = 3; /*inistring dstr_370__SFMATX_FMATCHER*/ /*_._VALSTR___V468*/ meltfptr[467] = (melt_ptr_t) &meltcdat->dstr_370__SFMATX_FMATCHER; meltcdat->dstr_370__SFMATX_FMATCHER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_370__SFMATX_FMATCHER.val, "SFMATX_FMATCHER", sizeof (meltcdat->dstr_370__SFMATX_FMATCHER.val)-1); meltcdat->dstr_370__SFMATX_FMATCHER.val[15] = (char)0 ; meltcdat->dstr_370__SFMATX_FMATCHER.slen = 15 ; /*^iniobj*/ /*iniobj dobj_371__SFMATX_FMATCHER*/ /*_._VALDATA___V462*/ meltfptr[461] = (melt_ptr_t )&meltcdat->dobj_371__SFMATX_FMATCHER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_371__SFMATX_FMATCHER", 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_371__SFMATX_FMATCHER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_371__SFMATX_FMATCHER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_371__SFMATX_FMATCHER.obj_num = 3; meltcdat->dobj_371__SFMATX_FMATCHER.obj_hash = 1062683681; meltcdat->dobj_371__SFMATX_FMATCHER.obj_len = 4; /*inistring dstr_372__SFMATX_FMATCHER*/ /*_._VALSTR___V463*/ meltfptr[462] = (melt_ptr_t) &meltcdat->dstr_372__SFMATX_FMATCHER; meltcdat->dstr_372__SFMATX_FMATCHER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_372__SFMATX_FMATCHER.val, "SFMATX_FMATCHER", sizeof (meltcdat->dstr_372__SFMATX_FMATCHER.val)-1); meltcdat->dstr_372__SFMATX_FMATCHER.val[15] = (char)0 ; meltcdat->dstr_372__SFMATX_FMATCHER.slen = 15 ; /*iniobj dsym_373__SFMATX_FMATBIND*/ /*uniqueobj*/ if (!/*_._VALDATA___V469*/ meltfptr[468]) /*_._VALDATA___V469*/ meltfptr[468] = (melt_ptr_t )&meltcdat->dsym_373__SFMATX_FMATBIND; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_373__SFMATX_FMATBIND", 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_373__SFMATX_FMATBIND", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_373__SFMATX_FMATBIND.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_373__SFMATX_FMATBIND.obj_hash = 413504396; meltcdat->dsym_373__SFMATX_FMATBIND.obj_len = 3; /*inistring dstr_374__SFMATX_FMATBIND*/ /*_._VALSTR___V470*/ meltfptr[469] = (melt_ptr_t) &meltcdat->dstr_374__SFMATX_FMATBIND; meltcdat->dstr_374__SFMATX_FMATBIND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_374__SFMATX_FMATBIND.val, "SFMATX_FMATBIND", sizeof (meltcdat->dstr_374__SFMATX_FMATBIND.val)-1); meltcdat->dstr_374__SFMATX_FMATBIND.val[15] = (char)0 ; meltcdat->dstr_374__SFMATX_FMATBIND.slen = 15 ; /*^iniobj*/ /*iniobj dobj_375__SFMATX_FMATBIND*/ /*_._VALDATA___V464*/ meltfptr[463] = (melt_ptr_t )&meltcdat->dobj_375__SFMATX_FMATBIND; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_375__SFMATX_FMATBIND", 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_375__SFMATX_FMATBIND", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_375__SFMATX_FMATBIND.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_375__SFMATX_FMATBIND.obj_num = 4; meltcdat->dobj_375__SFMATX_FMATBIND.obj_hash = 121253146; meltcdat->dobj_375__SFMATX_FMATBIND.obj_len = 4; /*inistring dstr_376__SFMATX_FMATBIND*/ /*_._VALSTR___V465*/ meltfptr[464] = (melt_ptr_t) &meltcdat->dstr_376__SFMATX_FMATBIND; meltcdat->dstr_376__SFMATX_FMATBIND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_376__SFMATX_FMATBIND.val, "SFMATX_FMATBIND", sizeof (meltcdat->dstr_376__SFMATX_FMATBIND.val)-1); meltcdat->dstr_376__SFMATX_FMATBIND.val[15] = (char)0 ; meltcdat->dstr_376__SFMATX_FMATBIND.slen = 15 ; /*iniobj dsym_377__CLASS_SOURCE_TUPLE*/ /*uniqueobj*/ if (!/*_._VALDATA___V471*/ meltfptr[470]) /*_._VALDATA___V471*/ meltfptr[470] = (melt_ptr_t )&meltcdat->dsym_377__CLASS_SOURCE_TUPLE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_377__CLASS_SOURCE_TUPLE", 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_377__CLASS_SOURCE_TUPLE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_377__CLASS_SOURCE_TUPLE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_377__CLASS_SOURCE_TUPLE.obj_hash = 303778336; meltcdat->dsym_377__CLASS_SOURCE_TUPLE.obj_len = 3; /*inistring dstr_378__CLASS_SOURCE_TUPLE*/ /*_._VALSTR___V472*/ meltfptr[471] = (melt_ptr_t) &meltcdat->dstr_378__CLASS_SOURCE_TUPLE; meltcdat->dstr_378__CLASS_SOURCE_TUPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_378__CLASS_SOURCE_TUPLE.val, "CLASS_SOURCE_TUPLE", sizeof (meltcdat->dstr_378__CLASS_SOURCE_TUPLE.val)-1); meltcdat->dstr_378__CLASS_SOURCE_TUPLE.val[18] = (char)0 ; meltcdat->dstr_378__CLASS_SOURCE_TUPLE.slen = 18 ; MELT_LOCATION("warmelt-macro.melt:564:/ iniobj"); /*iniobj dobj_379__CLASS_SOURCE_TUPLE*/ /*_._VALDATA___V473*/ meltfptr[472] = (melt_ptr_t )&meltcdat->dobj_379__CLASS_SOURCE_TUPLE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_379__CLASS_SOURCE_TUPLE", 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_379__CLASS_SOURCE_TUPLE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_379__CLASS_SOURCE_TUPLE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_379__CLASS_SOURCE_TUPLE.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_379__CLASS_SOURCE_TUPLE.obj_hash = 113132658; meltcdat->dobj_379__CLASS_SOURCE_TUPLE.obj_len = 8; /*inistring dstr_380__CLASS_SOURCE_TUPLE*/ /*_._VALSTR___V474*/ meltfptr[473] = (melt_ptr_t) &meltcdat->dstr_380__CLASS_SOURCE_TUPLE; meltcdat->dstr_380__CLASS_SOURCE_TUPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_380__CLASS_SOURCE_TUPLE.val, "CLASS_SOURCE_TUPLE", sizeof (meltcdat->dstr_380__CLASS_SOURCE_TUPLE.val)-1); meltcdat->dstr_380__CLASS_SOURCE_TUPLE.val[18] = (char)0 ; meltcdat->dstr_380__CLASS_SOURCE_TUPLE.slen = 18 ; /*inimult dtup_381_syCLASS_SOURCE_TUPLE*/ /*_._VALTUP___V475*/ meltfptr[474] = (melt_ptr_t) &meltcdat->dtup_381_syCLASS_SOURCE_TUPLE; meltcdat->dtup_381_syCLASS_SOURCE_TUPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_381_syCLASS_SOURCE_TUPLE.nbval = 5; /*inimult dtup_382_syCLASS_SOURCE_TUPLE*/ /*_._VALTUP___V476*/ meltfptr[475] = (melt_ptr_t) &meltcdat->dtup_382_syCLASS_SOURCE_TUPLE; meltcdat->dtup_382_syCLASS_SOURCE_TUPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_382_syCLASS_SOURCE_TUPLE.nbval = 3; /*iniobj dsym_383__CLASS_SOURCE_LIST*/ /*uniqueobj*/ if (!/*_._VALDATA___V477*/ meltfptr[476]) /*_._VALDATA___V477*/ meltfptr[476] = (melt_ptr_t )&meltcdat->dsym_383__CLASS_SOURCE_LIST; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_383__CLASS_SOURCE_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_383__CLASS_SOURCE_LIST", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_383__CLASS_SOURCE_LIST.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_383__CLASS_SOURCE_LIST.obj_hash = 62834193; meltcdat->dsym_383__CLASS_SOURCE_LIST.obj_len = 3; /*inistring dstr_384__CLASS_SOURCE_LIST*/ /*_._VALSTR___V478*/ meltfptr[477] = (melt_ptr_t) &meltcdat->dstr_384__CLASS_SOURCE_LIST; meltcdat->dstr_384__CLASS_SOURCE_LIST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_384__CLASS_SOURCE_LIST.val, "CLASS_SOURCE_LIST", sizeof (meltcdat->dstr_384__CLASS_SOURCE_LIST.val)-1); meltcdat->dstr_384__CLASS_SOURCE_LIST.val[17] = (char)0 ; meltcdat->dstr_384__CLASS_SOURCE_LIST.slen = 17 ; MELT_LOCATION("warmelt-macro.melt:571:/ iniobj"); /*iniobj dobj_385__CLASS_SOURCE_LIST*/ /*_._VALDATA___V479*/ meltfptr[478] = (melt_ptr_t )&meltcdat->dobj_385__CLASS_SOURCE_LIST; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_385__CLASS_SOURCE_LIST", 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_385__CLASS_SOURCE_LIST", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_385__CLASS_SOURCE_LIST.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_385__CLASS_SOURCE_LIST.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_385__CLASS_SOURCE_LIST.obj_hash = 972079347; meltcdat->dobj_385__CLASS_SOURCE_LIST.obj_len = 8; /*inistring dstr_386__CLASS_SOURCE_LIST*/ /*_._VALSTR___V480*/ meltfptr[479] = (melt_ptr_t) &meltcdat->dstr_386__CLASS_SOURCE_LIST; meltcdat->dstr_386__CLASS_SOURCE_LIST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_386__CLASS_SOURCE_LIST.val, "CLASS_SOURCE_LIST", sizeof (meltcdat->dstr_386__CLASS_SOURCE_LIST.val)-1); meltcdat->dstr_386__CLASS_SOURCE_LIST.val[17] = (char)0 ; meltcdat->dstr_386__CLASS_SOURCE_LIST.slen = 17 ; /*inimult dtup_387_syCLASS_SOURCE_LIST*/ /*_._VALTUP___V481*/ meltfptr[480] = (melt_ptr_t) &meltcdat->dtup_387_syCLASS_SOURCE_LIST; meltcdat->dtup_387_syCLASS_SOURCE_LIST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_387_syCLASS_SOURCE_LIST.nbval = 5; /*inimult dtup_388_syCLASS_SOURCE_LIST*/ /*_._VALTUP___V482*/ meltfptr[481] = (melt_ptr_t) &meltcdat->dtup_388_syCLASS_SOURCE_LIST; meltcdat->dtup_388_syCLASS_SOURCE_LIST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_388_syCLASS_SOURCE_LIST.nbval = 3; /*iniobj dsym_389__CLASS_SOURCE_PROGN*/ /*uniqueobj*/ if (!/*_._VALDATA___V483*/ meltfptr[482]) /*_._VALDATA___V483*/ meltfptr[482] = (melt_ptr_t )&meltcdat->dsym_389__CLASS_SOURCE_PROGN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_389__CLASS_SOURCE_PROGN", 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_389__CLASS_SOURCE_PROGN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_389__CLASS_SOURCE_PROGN.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_389__CLASS_SOURCE_PROGN.obj_hash = 819854317; meltcdat->dsym_389__CLASS_SOURCE_PROGN.obj_len = 3; /*inistring dstr_390__CLASS_SOURCE_PROGN*/ /*_._VALSTR___V484*/ meltfptr[483] = (melt_ptr_t) &meltcdat->dstr_390__CLASS_SOURCE_PROGN; meltcdat->dstr_390__CLASS_SOURCE_PROGN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_390__CLASS_SOURCE_PROGN.val, "CLASS_SOURCE_PROGN", sizeof (meltcdat->dstr_390__CLASS_SOURCE_PROGN.val)-1); meltcdat->dstr_390__CLASS_SOURCE_PROGN.val[18] = (char)0 ; meltcdat->dstr_390__CLASS_SOURCE_PROGN.slen = 18 ; MELT_LOCATION("warmelt-macro.melt:578:/ iniobj"); /*iniobj dobj_391__CLASS_SOURCE_PROGN*/ /*_._VALDATA___V485*/ meltfptr[484] = (melt_ptr_t )&meltcdat->dobj_391__CLASS_SOURCE_PROGN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_391__CLASS_SOURCE_PROGN", 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_391__CLASS_SOURCE_PROGN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_391__CLASS_SOURCE_PROGN.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_391__CLASS_SOURCE_PROGN.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_391__CLASS_SOURCE_PROGN.obj_hash = 83845990; meltcdat->dobj_391__CLASS_SOURCE_PROGN.obj_len = 8; /*inistring dstr_392__CLASS_SOURCE_PROGN*/ /*_._VALSTR___V486*/ meltfptr[485] = (melt_ptr_t) &meltcdat->dstr_392__CLASS_SOURCE_PROGN; meltcdat->dstr_392__CLASS_SOURCE_PROGN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_392__CLASS_SOURCE_PROGN.val, "CLASS_SOURCE_PROGN", sizeof (meltcdat->dstr_392__CLASS_SOURCE_PROGN.val)-1); meltcdat->dstr_392__CLASS_SOURCE_PROGN.val[18] = (char)0 ; meltcdat->dstr_392__CLASS_SOURCE_PROGN.slen = 18 ; /*inimult dtup_393_syCLASS_SOURCE_PROGN*/ /*_._VALTUP___V487*/ meltfptr[486] = (melt_ptr_t) &meltcdat->dtup_393_syCLASS_SOURCE_PROGN; meltcdat->dtup_393_syCLASS_SOURCE_PROGN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_393_syCLASS_SOURCE_PROGN.nbval = 4; /*inimult dtup_394_syCLASS_SOURCE_PROGN*/ /*_._VALTUP___V490*/ meltfptr[489] = (melt_ptr_t) &meltcdat->dtup_394_syCLASS_SOURCE_PROGN; meltcdat->dtup_394_syCLASS_SOURCE_PROGN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_394_syCLASS_SOURCE_PROGN.nbval = 3; /*iniobj dsym_395__SPROGN_BODY*/ /*uniqueobj*/ if (!/*_._VALDATA___V491*/ meltfptr[490]) /*_._VALDATA___V491*/ meltfptr[490] = (melt_ptr_t )&meltcdat->dsym_395__SPROGN_BODY; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_395__SPROGN_BODY", 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_395__SPROGN_BODY", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_395__SPROGN_BODY.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_395__SPROGN_BODY.obj_hash = 1027893439; meltcdat->dsym_395__SPROGN_BODY.obj_len = 3; /*inistring dstr_396__SPROGN_BODY*/ /*_._VALSTR___V492*/ meltfptr[491] = (melt_ptr_t) &meltcdat->dstr_396__SPROGN_BODY; meltcdat->dstr_396__SPROGN_BODY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_396__SPROGN_BODY.val, "SPROGN_BODY", sizeof (meltcdat->dstr_396__SPROGN_BODY.val)-1); meltcdat->dstr_396__SPROGN_BODY.val[11] = (char)0 ; meltcdat->dstr_396__SPROGN_BODY.slen = 11 ; /*^iniobj*/ /*iniobj dobj_397__SPROGN_BODY*/ /*_._VALDATA___V488*/ meltfptr[487] = (melt_ptr_t )&meltcdat->dobj_397__SPROGN_BODY; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_397__SPROGN_BODY", 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_397__SPROGN_BODY", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_397__SPROGN_BODY.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_397__SPROGN_BODY.obj_num = 2; meltcdat->dobj_397__SPROGN_BODY.obj_hash = 1038052520; meltcdat->dobj_397__SPROGN_BODY.obj_len = 4; /*inistring dstr_398__SPROGN_BODY*/ /*_._VALSTR___V489*/ meltfptr[488] = (melt_ptr_t) &meltcdat->dstr_398__SPROGN_BODY; meltcdat->dstr_398__SPROGN_BODY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_398__SPROGN_BODY.val, "SPROGN_BODY", sizeof (meltcdat->dstr_398__SPROGN_BODY.val)-1); meltcdat->dstr_398__SPROGN_BODY.val[11] = (char)0 ; meltcdat->dstr_398__SPROGN_BODY.slen = 11 ; /*iniobj dsym_399__CLASS_SOURCE_RETURN*/ /*uniqueobj*/ if (!/*_._VALDATA___V493*/ meltfptr[492]) /*_._VALDATA___V493*/ meltfptr[492] = (melt_ptr_t )&meltcdat->dsym_399__CLASS_SOURCE_RETURN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_399__CLASS_SOURCE_RETURN", 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_399__CLASS_SOURCE_RETURN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_399__CLASS_SOURCE_RETURN.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_399__CLASS_SOURCE_RETURN.obj_hash = 288930130; meltcdat->dsym_399__CLASS_SOURCE_RETURN.obj_len = 3; /*inistring dstr_400__CLASS_SOURCE_RETURN*/ /*_._VALSTR___V494*/ meltfptr[493] = (melt_ptr_t) &meltcdat->dstr_400__CLASS_SOURCE_RETURN; meltcdat->dstr_400__CLASS_SOURCE_RETURN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_400__CLASS_SOURCE_RETURN.val, "CLASS_SOURCE_RETURN", sizeof (meltcdat->dstr_400__CLASS_SOURCE_RETURN.val)-1); meltcdat->dstr_400__CLASS_SOURCE_RETURN.val[19] = (char)0 ; meltcdat->dstr_400__CLASS_SOURCE_RETURN.slen = 19 ; MELT_LOCATION("warmelt-macro.melt:586:/ iniobj"); /*iniobj dobj_401__CLASS_SOURCE_RETURN*/ /*_._VALDATA___V495*/ meltfptr[494] = (melt_ptr_t )&meltcdat->dobj_401__CLASS_SOURCE_RETURN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_401__CLASS_SOURCE_RETURN", 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_401__CLASS_SOURCE_RETURN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_401__CLASS_SOURCE_RETURN.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_401__CLASS_SOURCE_RETURN.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_401__CLASS_SOURCE_RETURN.obj_hash = 554371671; meltcdat->dobj_401__CLASS_SOURCE_RETURN.obj_len = 8; /*inistring dstr_402__CLASS_SOURCE_RETURN*/ /*_._VALSTR___V496*/ meltfptr[495] = (melt_ptr_t) &meltcdat->dstr_402__CLASS_SOURCE_RETURN; meltcdat->dstr_402__CLASS_SOURCE_RETURN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_402__CLASS_SOURCE_RETURN.val, "CLASS_SOURCE_RETURN", sizeof (meltcdat->dstr_402__CLASS_SOURCE_RETURN.val)-1); meltcdat->dstr_402__CLASS_SOURCE_RETURN.val[19] = (char)0 ; meltcdat->dstr_402__CLASS_SOURCE_RETURN.slen = 19 ; /*inimult dtup_403_syCLASS_SOURCE_RETURN*/ /*_._VALTUP___V497*/ meltfptr[496] = (melt_ptr_t) &meltcdat->dtup_403_syCLASS_SOURCE_RETURN; meltcdat->dtup_403_syCLASS_SOURCE_RETURN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_403_syCLASS_SOURCE_RETURN.nbval = 5; /*inimult dtup_404_syCLASS_SOURCE_RETURN*/ /*_._VALTUP___V498*/ meltfptr[497] = (melt_ptr_t) &meltcdat->dtup_404_syCLASS_SOURCE_RETURN; meltcdat->dtup_404_syCLASS_SOURCE_RETURN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_404_syCLASS_SOURCE_RETURN.nbval = 3; /*iniobj dsym_405__CLASS_SOURCE_SETQ*/ /*uniqueobj*/ if (!/*_._VALDATA___V499*/ meltfptr[498]) /*_._VALDATA___V499*/ meltfptr[498] = (melt_ptr_t )&meltcdat->dsym_405__CLASS_SOURCE_SETQ; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_405__CLASS_SOURCE_SETQ", 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_405__CLASS_SOURCE_SETQ", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_405__CLASS_SOURCE_SETQ.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_405__CLASS_SOURCE_SETQ.obj_hash = 335918923; meltcdat->dsym_405__CLASS_SOURCE_SETQ.obj_len = 3; /*inistring dstr_406__CLASS_SOURCE_SETQ*/ /*_._VALSTR___V500*/ meltfptr[499] = (melt_ptr_t) &meltcdat->dstr_406__CLASS_SOURCE_SETQ; meltcdat->dstr_406__CLASS_SOURCE_SETQ.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_406__CLASS_SOURCE_SETQ.val, "CLASS_SOURCE_SETQ", sizeof (meltcdat->dstr_406__CLASS_SOURCE_SETQ.val)-1); meltcdat->dstr_406__CLASS_SOURCE_SETQ.val[17] = (char)0 ; meltcdat->dstr_406__CLASS_SOURCE_SETQ.slen = 17 ; MELT_LOCATION("warmelt-macro.melt:593:/ iniobj"); /*iniobj dobj_407__CLASS_SOURCE_SETQ*/ /*_._VALDATA___V501*/ meltfptr[500] = (melt_ptr_t )&meltcdat->dobj_407__CLASS_SOURCE_SETQ; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_407__CLASS_SOURCE_SETQ", 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_407__CLASS_SOURCE_SETQ", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_407__CLASS_SOURCE_SETQ.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_407__CLASS_SOURCE_SETQ.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_407__CLASS_SOURCE_SETQ.obj_hash = 282352503; meltcdat->dobj_407__CLASS_SOURCE_SETQ.obj_len = 8; /*inistring dstr_408__CLASS_SOURCE_SETQ*/ /*_._VALSTR___V502*/ meltfptr[501] = (melt_ptr_t) &meltcdat->dstr_408__CLASS_SOURCE_SETQ; meltcdat->dstr_408__CLASS_SOURCE_SETQ.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_408__CLASS_SOURCE_SETQ.val, "CLASS_SOURCE_SETQ", sizeof (meltcdat->dstr_408__CLASS_SOURCE_SETQ.val)-1); meltcdat->dstr_408__CLASS_SOURCE_SETQ.val[17] = (char)0 ; meltcdat->dstr_408__CLASS_SOURCE_SETQ.slen = 17 ; /*inimult dtup_409_syCLASS_SOURCE_SETQ*/ /*_._VALTUP___V503*/ meltfptr[502] = (melt_ptr_t) &meltcdat->dtup_409_syCLASS_SOURCE_SETQ; meltcdat->dtup_409_syCLASS_SOURCE_SETQ.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_409_syCLASS_SOURCE_SETQ.nbval = 4; /*inimult dtup_410_syCLASS_SOURCE_SETQ*/ /*_._VALTUP___V508*/ meltfptr[507] = (melt_ptr_t) &meltcdat->dtup_410_syCLASS_SOURCE_SETQ; meltcdat->dtup_410_syCLASS_SOURCE_SETQ.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_410_syCLASS_SOURCE_SETQ.nbval = 4; /*iniobj dsym_411__SSTQ_VAR*/ /*uniqueobj*/ if (!/*_._VALDATA___V509*/ meltfptr[508]) /*_._VALDATA___V509*/ meltfptr[508] = (melt_ptr_t )&meltcdat->dsym_411__SSTQ_VAR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_411__SSTQ_VAR", 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_411__SSTQ_VAR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_411__SSTQ_VAR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_411__SSTQ_VAR.obj_hash = 140668190; meltcdat->dsym_411__SSTQ_VAR.obj_len = 3; /*inistring dstr_412__SSTQ_VAR*/ /*_._VALSTR___V510*/ meltfptr[509] = (melt_ptr_t) &meltcdat->dstr_412__SSTQ_VAR; meltcdat->dstr_412__SSTQ_VAR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_412__SSTQ_VAR.val, "SSTQ_VAR", sizeof (meltcdat->dstr_412__SSTQ_VAR.val)-1); meltcdat->dstr_412__SSTQ_VAR.val[8] = (char)0 ; meltcdat->dstr_412__SSTQ_VAR.slen = 8 ; /*^iniobj*/ /*iniobj dobj_413__SSTQ_VAR*/ /*_._VALDATA___V504*/ meltfptr[503] = (melt_ptr_t )&meltcdat->dobj_413__SSTQ_VAR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_413__SSTQ_VAR", 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_413__SSTQ_VAR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_413__SSTQ_VAR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_413__SSTQ_VAR.obj_num = 2; meltcdat->dobj_413__SSTQ_VAR.obj_hash = 854950921; meltcdat->dobj_413__SSTQ_VAR.obj_len = 4; /*inistring dstr_414__SSTQ_VAR*/ /*_._VALSTR___V505*/ meltfptr[504] = (melt_ptr_t) &meltcdat->dstr_414__SSTQ_VAR; meltcdat->dstr_414__SSTQ_VAR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_414__SSTQ_VAR.val, "SSTQ_VAR", sizeof (meltcdat->dstr_414__SSTQ_VAR.val)-1); meltcdat->dstr_414__SSTQ_VAR.val[8] = (char)0 ; meltcdat->dstr_414__SSTQ_VAR.slen = 8 ; /*iniobj dsym_415__SSTQ_EXPR*/ /*uniqueobj*/ if (!/*_._VALDATA___V511*/ meltfptr[510]) /*_._VALDATA___V511*/ meltfptr[510] = (melt_ptr_t )&meltcdat->dsym_415__SSTQ_EXPR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_415__SSTQ_EXPR", 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_415__SSTQ_EXPR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_415__SSTQ_EXPR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_415__SSTQ_EXPR.obj_hash = 13829252; meltcdat->dsym_415__SSTQ_EXPR.obj_len = 3; /*inistring dstr_416__SSTQ_EXPR*/ /*_._VALSTR___V512*/ meltfptr[511] = (melt_ptr_t) &meltcdat->dstr_416__SSTQ_EXPR; meltcdat->dstr_416__SSTQ_EXPR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_416__SSTQ_EXPR.val, "SSTQ_EXPR", sizeof (meltcdat->dstr_416__SSTQ_EXPR.val)-1); meltcdat->dstr_416__SSTQ_EXPR.val[9] = (char)0 ; meltcdat->dstr_416__SSTQ_EXPR.slen = 9 ; /*^iniobj*/ /*iniobj dobj_417__SSTQ_EXPR*/ /*_._VALDATA___V506*/ meltfptr[505] = (melt_ptr_t )&meltcdat->dobj_417__SSTQ_EXPR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_417__SSTQ_EXPR", 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_417__SSTQ_EXPR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_417__SSTQ_EXPR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_417__SSTQ_EXPR.obj_num = 3; meltcdat->dobj_417__SSTQ_EXPR.obj_hash = 1065901594; meltcdat->dobj_417__SSTQ_EXPR.obj_len = 4; /*inistring dstr_418__SSTQ_EXPR*/ /*_._VALSTR___V507*/ meltfptr[506] = (melt_ptr_t) &meltcdat->dstr_418__SSTQ_EXPR; meltcdat->dstr_418__SSTQ_EXPR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_418__SSTQ_EXPR.val, "SSTQ_EXPR", sizeof (meltcdat->dstr_418__SSTQ_EXPR.val)-1); meltcdat->dstr_418__SSTQ_EXPR.val[9] = (char)0 ; meltcdat->dstr_418__SSTQ_EXPR.slen = 9 ; /*iniobj dsym_419__CLASS_SOURCE_COMMENT*/ /*uniqueobj*/ if (!/*_._VALDATA___V513*/ meltfptr[512]) /*_._VALDATA___V513*/ meltfptr[512] = (melt_ptr_t )&meltcdat->dsym_419__CLASS_SOURCE_COMMENT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_419__CLASS_SOURCE_COMMENT", 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_419__CLASS_SOURCE_COMMENT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_419__CLASS_SOURCE_COMMENT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_419__CLASS_SOURCE_COMMENT.obj_hash = 156677751; meltcdat->dsym_419__CLASS_SOURCE_COMMENT.obj_len = 3; /*inistring dstr_420__CLASS_SOURCE_COMMENT*/ /*_._VALSTR___V514*/ meltfptr[513] = (melt_ptr_t) &meltcdat->dstr_420__CLASS_SOURCE_COMMENT; meltcdat->dstr_420__CLASS_SOURCE_COMMENT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_420__CLASS_SOURCE_COMMENT.val, "CLASS_SOURCE_COMMENT", sizeof (meltcdat->dstr_420__CLASS_SOURCE_COMMENT.val)-1); meltcdat->dstr_420__CLASS_SOURCE_COMMENT.val[20] = (char)0 ; meltcdat->dstr_420__CLASS_SOURCE_COMMENT.slen = 20 ; MELT_LOCATION("warmelt-macro.melt:602:/ iniobj"); /*iniobj dobj_421__CLASS_SOURCE_COMMENT*/ /*_._VALDATA___V515*/ meltfptr[514] = (melt_ptr_t )&meltcdat->dobj_421__CLASS_SOURCE_COMMENT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_421__CLASS_SOURCE_COMMENT", 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_421__CLASS_SOURCE_COMMENT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_421__CLASS_SOURCE_COMMENT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_421__CLASS_SOURCE_COMMENT.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_421__CLASS_SOURCE_COMMENT.obj_hash = 341708788; meltcdat->dobj_421__CLASS_SOURCE_COMMENT.obj_len = 8; /*inistring dstr_422__CLASS_SOURCE_COMMENT*/ /*_._VALSTR___V516*/ meltfptr[515] = (melt_ptr_t) &meltcdat->dstr_422__CLASS_SOURCE_COMMENT; meltcdat->dstr_422__CLASS_SOURCE_COMMENT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_422__CLASS_SOURCE_COMMENT.val, "CLASS_SOURCE_COMMENT", sizeof (meltcdat->dstr_422__CLASS_SOURCE_COMMENT.val)-1); meltcdat->dstr_422__CLASS_SOURCE_COMMENT.val[20] = (char)0 ; meltcdat->dstr_422__CLASS_SOURCE_COMMENT.slen = 20 ; /*inimult dtup_423_syCLASS_SOURCE_COMMENT*/ /*_._VALTUP___V517*/ meltfptr[516] = (melt_ptr_t) &meltcdat->dtup_423_syCLASS_SOURCE_COMMENT; meltcdat->dtup_423_syCLASS_SOURCE_COMMENT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_423_syCLASS_SOURCE_COMMENT.nbval = 4; /*inimult dtup_424_syCLASS_SOURCE_COMMENT*/ /*_._VALTUP___V520*/ meltfptr[519] = (melt_ptr_t) &meltcdat->dtup_424_syCLASS_SOURCE_COMMENT; meltcdat->dtup_424_syCLASS_SOURCE_COMMENT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_424_syCLASS_SOURCE_COMMENT.nbval = 3; /*iniobj dsym_425__SCOMM_STR*/ /*uniqueobj*/ if (!/*_._VALDATA___V521*/ meltfptr[520]) /*_._VALDATA___V521*/ meltfptr[520] = (melt_ptr_t )&meltcdat->dsym_425__SCOMM_STR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_425__SCOMM_STR", 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_425__SCOMM_STR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_425__SCOMM_STR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_425__SCOMM_STR.obj_hash = 224660524; meltcdat->dsym_425__SCOMM_STR.obj_len = 3; /*inistring dstr_426__SCOMM_STR*/ /*_._VALSTR___V522*/ meltfptr[521] = (melt_ptr_t) &meltcdat->dstr_426__SCOMM_STR; meltcdat->dstr_426__SCOMM_STR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_426__SCOMM_STR.val, "SCOMM_STR", sizeof (meltcdat->dstr_426__SCOMM_STR.val)-1); meltcdat->dstr_426__SCOMM_STR.val[9] = (char)0 ; meltcdat->dstr_426__SCOMM_STR.slen = 9 ; /*^iniobj*/ /*iniobj dobj_427__SCOMM_STR*/ /*_._VALDATA___V518*/ meltfptr[517] = (melt_ptr_t )&meltcdat->dobj_427__SCOMM_STR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_427__SCOMM_STR", 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_427__SCOMM_STR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_427__SCOMM_STR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_427__SCOMM_STR.obj_num = 2; meltcdat->dobj_427__SCOMM_STR.obj_hash = 730176452; meltcdat->dobj_427__SCOMM_STR.obj_len = 4; /*inistring dstr_428__SCOMM_STR*/ /*_._VALSTR___V519*/ meltfptr[518] = (melt_ptr_t) &meltcdat->dstr_428__SCOMM_STR; meltcdat->dstr_428__SCOMM_STR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_428__SCOMM_STR.val, "SCOMM_STR", sizeof (meltcdat->dstr_428__SCOMM_STR.val)-1); meltcdat->dstr_428__SCOMM_STR.val[9] = (char)0 ; meltcdat->dstr_428__SCOMM_STR.slen = 9 ; /*iniobj dsym_429__CLASS_SOURCE_CODE_STRING*/ /*uniqueobj*/ if (!/*_._VALDATA___V523*/ meltfptr[522]) /*_._VALDATA___V523*/ meltfptr[522] = (melt_ptr_t )&meltcdat->dsym_429__CLASS_SOURCE_CODE_STRING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_429__CLASS_SOURCE_CODE_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_429__CLASS_SOURCE_CODE_STRING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_429__CLASS_SOURCE_CODE_STRING.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_429__CLASS_SOURCE_CODE_STRING.obj_hash = 528104845; meltcdat->dsym_429__CLASS_SOURCE_CODE_STRING.obj_len = 3; /*inistring dstr_430__CLASS_SOURCE_CODE_STRING*/ /*_._VALSTR___V524*/ meltfptr[523] = (melt_ptr_t) &meltcdat->dstr_430__CLASS_SOURCE_CODE_STRING; meltcdat->dstr_430__CLASS_SOURCE_CODE_STRING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_430__CLASS_SOURCE_CODE_STRING.val, "CLASS_SOURCE_CODE_STRING", sizeof (meltcdat->dstr_430__CLASS_SOURCE_CODE_STRING.val)-1); meltcdat->dstr_430__CLASS_SOURCE_CODE_STRING.val[24] = (char)0 ; meltcdat->dstr_430__CLASS_SOURCE_CODE_STRING.slen = 24 ; MELT_LOCATION("warmelt-macro.melt:611:/ iniobj"); /*iniobj dobj_431__CLASS_SOURCE_CODE_STRING*/ /*_._VALDATA___V525*/ meltfptr[524] = (melt_ptr_t )&meltcdat->dobj_431__CLASS_SOURCE_CODE_STRING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_431__CLASS_SOURCE_CODE_STRING", 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_431__CLASS_SOURCE_CODE_STRING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_431__CLASS_SOURCE_CODE_STRING.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_431__CLASS_SOURCE_CODE_STRING.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_431__CLASS_SOURCE_CODE_STRING.obj_hash = 425723859; meltcdat->dobj_431__CLASS_SOURCE_CODE_STRING.obj_len = 8; /*inistring dstr_432__CLASS_SOURCE_CODE_STRING*/ /*_._VALSTR___V526*/ meltfptr[525] = (melt_ptr_t) &meltcdat->dstr_432__CLASS_SOURCE_CODE_STRING; meltcdat->dstr_432__CLASS_SOURCE_CODE_STRING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_432__CLASS_SOURCE_CODE_STRING.val, "CLASS_SOURCE_CODE_STRING", sizeof (meltcdat->dstr_432__CLASS_SOURCE_CODE_STRING.val)-1); meltcdat->dstr_432__CLASS_SOURCE_CODE_STRING.val[24] = (char)0 ; meltcdat->dstr_432__CLASS_SOURCE_CODE_STRING.slen = 24 ; /*inimult dtup_433_syCLASS_SOURCE_CODE_STRING*/ /*_._VALTUP___V527*/ meltfptr[526] = (melt_ptr_t) &meltcdat->dtup_433_syCLASS_SOURCE_CODE_STRING; meltcdat->dtup_433_syCLASS_SOURCE_CODE_STRING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_433_syCLASS_SOURCE_CODE_STRING.nbval = 4; /*inimult dtup_434_syCLASS_SOURCE_CODE_STRING*/ /*_._VALTUP___V530*/ meltfptr[529] = (melt_ptr_t) &meltcdat->dtup_434_syCLASS_SOURCE_CODE_STRING; meltcdat->dtup_434_syCLASS_SOURCE_CODE_STRING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_434_syCLASS_SOURCE_CODE_STRING.nbval = 3; /*iniobj dsym_435__SC_CODESTRING*/ /*uniqueobj*/ if (!/*_._VALDATA___V531*/ meltfptr[530]) /*_._VALDATA___V531*/ meltfptr[530] = (melt_ptr_t )&meltcdat->dsym_435__SC_CODESTRING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_435__SC_CODESTRING", 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_435__SC_CODESTRING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_435__SC_CODESTRING.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_435__SC_CODESTRING.obj_hash = 1010998429; meltcdat->dsym_435__SC_CODESTRING.obj_len = 3; /*inistring dstr_436__SC_CODESTRING*/ /*_._VALSTR___V532*/ meltfptr[531] = (melt_ptr_t) &meltcdat->dstr_436__SC_CODESTRING; meltcdat->dstr_436__SC_CODESTRING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_436__SC_CODESTRING.val, "SC_CODESTRING", sizeof (meltcdat->dstr_436__SC_CODESTRING.val)-1); meltcdat->dstr_436__SC_CODESTRING.val[13] = (char)0 ; meltcdat->dstr_436__SC_CODESTRING.slen = 13 ; /*^iniobj*/ /*iniobj dobj_437__SC_CODESTRING*/ /*_._VALDATA___V528*/ meltfptr[527] = (melt_ptr_t )&meltcdat->dobj_437__SC_CODESTRING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_437__SC_CODESTRING", 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_437__SC_CODESTRING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_437__SC_CODESTRING.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_437__SC_CODESTRING.obj_num = 2; meltcdat->dobj_437__SC_CODESTRING.obj_hash = 840649847; meltcdat->dobj_437__SC_CODESTRING.obj_len = 4; /*inistring dstr_438__SC_CODESTRING*/ /*_._VALSTR___V529*/ meltfptr[528] = (melt_ptr_t) &meltcdat->dstr_438__SC_CODESTRING; meltcdat->dstr_438__SC_CODESTRING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_438__SC_CODESTRING.val, "SC_CODESTRING", sizeof (meltcdat->dstr_438__SC_CODESTRING.val)-1); meltcdat->dstr_438__SC_CODESTRING.val[13] = (char)0 ; meltcdat->dstr_438__SC_CODESTRING.slen = 13 ; /*iniobj dsym_439__CLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE*/ /*uniqueobj*/ if (!/*_._VALDATA___V533*/ meltfptr[532]) /*_._VALDATA___V533*/ meltfptr[532] = (melt_ptr_t )&meltcdat->dsym_439__CLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_439__CLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE", 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_439__CLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_439__CLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_439__CLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE.obj_hash = 149886294; meltcdat->dsym_439__CLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE.obj_len = 3; /*inistring dstr_440__CLASS_SOURCE_MODULE_IS_G*/ /*_._VALSTR___V534*/ meltfptr[533] = (melt_ptr_t) &meltcdat->dstr_440__CLASS_SOURCE_MODULE_IS_G; meltcdat->dstr_440__CLASS_SOURCE_MODULE_IS_G.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_440__CLASS_SOURCE_MODULE_IS_G.val, "CLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE", sizeof (meltcdat->dstr_440__CLASS_SOURCE_MODULE_IS_G.val)-1); meltcdat->dstr_440__CLASS_SOURCE_MODULE_IS_G.val[37] = (char)0 ; meltcdat->dstr_440__CLASS_SOURCE_MODULE_IS_G.slen = 37 ; MELT_LOCATION("warmelt-macro.melt:619:/ iniobj"); /*iniobj dobj_441__CLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE*/ /*_._VALDATA___V535*/ meltfptr[534] = (melt_ptr_t )&meltcdat->dobj_441__CLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_441__CLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE", 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_441__CLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_441__CLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_441__CLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_441__CLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE.obj_hash = 288050533; meltcdat->dobj_441__CLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE.obj_len = 8; /*inistring dstr_442__CLASS_SOURCE_MODULE_IS_G*/ /*_._VALSTR___V536*/ meltfptr[535] = (melt_ptr_t) &meltcdat->dstr_442__CLASS_SOURCE_MODULE_IS_G; meltcdat->dstr_442__CLASS_SOURCE_MODULE_IS_G.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_442__CLASS_SOURCE_MODULE_IS_G.val, "CLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE", sizeof (meltcdat->dstr_442__CLASS_SOURCE_MODULE_IS_G.val)-1); meltcdat->dstr_442__CLASS_SOURCE_MODULE_IS_G.val[37] = (char)0 ; meltcdat->dstr_442__CLASS_SOURCE_MODULE_IS_G.slen = 37 ; /*inimult dtup_443_syCLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE*/ /*_._VALTUP___V537*/ meltfptr[536] = (melt_ptr_t) &meltcdat->dtup_443_syCLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE; meltcdat->dtup_443_syCLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_443_syCLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE.nbval = 5; /*inimult dtup_444_syCLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE*/ /*_._VALTUP___V538*/ meltfptr[537] = (melt_ptr_t) &meltcdat->dtup_444_syCLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE; meltcdat->dtup_444_syCLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_444_syCLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE.nbval = 3; /*iniobj dsym_445__CLASS_SOURCE_CHEADER*/ /*uniqueobj*/ if (!/*_._VALDATA___V539*/ meltfptr[538]) /*_._VALDATA___V539*/ meltfptr[538] = (melt_ptr_t )&meltcdat->dsym_445__CLASS_SOURCE_CHEADER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_445__CLASS_SOURCE_CHEADER", 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_445__CLASS_SOURCE_CHEADER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_445__CLASS_SOURCE_CHEADER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_445__CLASS_SOURCE_CHEADER.obj_hash = 496789791; meltcdat->dsym_445__CLASS_SOURCE_CHEADER.obj_len = 3; /*inistring dstr_446__CLASS_SOURCE_CHEADER*/ /*_._VALSTR___V540*/ meltfptr[539] = (melt_ptr_t) &meltcdat->dstr_446__CLASS_SOURCE_CHEADER; meltcdat->dstr_446__CLASS_SOURCE_CHEADER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_446__CLASS_SOURCE_CHEADER.val, "CLASS_SOURCE_CHEADER", sizeof (meltcdat->dstr_446__CLASS_SOURCE_CHEADER.val)-1); meltcdat->dstr_446__CLASS_SOURCE_CHEADER.val[20] = (char)0 ; meltcdat->dstr_446__CLASS_SOURCE_CHEADER.slen = 20 ; MELT_LOCATION("warmelt-macro.melt:627:/ iniobj"); /*iniobj dobj_447__CLASS_SOURCE_CHEADER*/ /*_._VALDATA___V541*/ meltfptr[540] = (melt_ptr_t )&meltcdat->dobj_447__CLASS_SOURCE_CHEADER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_447__CLASS_SOURCE_CHEADER", 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_447__CLASS_SOURCE_CHEADER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_447__CLASS_SOURCE_CHEADER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_447__CLASS_SOURCE_CHEADER.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_447__CLASS_SOURCE_CHEADER.obj_hash = 458182841; meltcdat->dobj_447__CLASS_SOURCE_CHEADER.obj_len = 8; /*inistring dstr_448__CLASS_SOURCE_CHEADER*/ /*_._VALSTR___V542*/ meltfptr[541] = (melt_ptr_t) &meltcdat->dstr_448__CLASS_SOURCE_CHEADER; meltcdat->dstr_448__CLASS_SOURCE_CHEADER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_448__CLASS_SOURCE_CHEADER.val, "CLASS_SOURCE_CHEADER", sizeof (meltcdat->dstr_448__CLASS_SOURCE_CHEADER.val)-1); meltcdat->dstr_448__CLASS_SOURCE_CHEADER.val[20] = (char)0 ; meltcdat->dstr_448__CLASS_SOURCE_CHEADER.slen = 20 ; /*inimult dtup_449_syCLASS_SOURCE_CHEADER*/ /*_._VALTUP___V543*/ meltfptr[542] = (melt_ptr_t) &meltcdat->dtup_449_syCLASS_SOURCE_CHEADER; meltcdat->dtup_449_syCLASS_SOURCE_CHEADER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_449_syCLASS_SOURCE_CHEADER.nbval = 5; /*inimult dtup_450_syCLASS_SOURCE_CHEADER*/ /*_._VALTUP___V544*/ meltfptr[543] = (melt_ptr_t) &meltcdat->dtup_450_syCLASS_SOURCE_CHEADER; meltcdat->dtup_450_syCLASS_SOURCE_CHEADER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_450_syCLASS_SOURCE_CHEADER.nbval = 3; /*iniobj dsym_451__CLASS_SOURCE_CIMPLEMENT*/ /*uniqueobj*/ if (!/*_._VALDATA___V545*/ meltfptr[544]) /*_._VALDATA___V545*/ meltfptr[544] = (melt_ptr_t )&meltcdat->dsym_451__CLASS_SOURCE_CIMPLEMENT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_451__CLASS_SOURCE_CIMPLEMENT", 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_451__CLASS_SOURCE_CIMPLEMENT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_451__CLASS_SOURCE_CIMPLEMENT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_451__CLASS_SOURCE_CIMPLEMENT.obj_hash = 343553263; meltcdat->dsym_451__CLASS_SOURCE_CIMPLEMENT.obj_len = 3; /*inistring dstr_452__CLASS_SOURCE_CIMPLEMENT*/ /*_._VALSTR___V546*/ meltfptr[545] = (melt_ptr_t) &meltcdat->dstr_452__CLASS_SOURCE_CIMPLEMENT; meltcdat->dstr_452__CLASS_SOURCE_CIMPLEMENT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_452__CLASS_SOURCE_CIMPLEMENT.val, "CLASS_SOURCE_CIMPLEMENT", sizeof (meltcdat->dstr_452__CLASS_SOURCE_CIMPLEMENT.val)-1); meltcdat->dstr_452__CLASS_SOURCE_CIMPLEMENT.val[23] = (char)0 ; meltcdat->dstr_452__CLASS_SOURCE_CIMPLEMENT.slen = 23 ; MELT_LOCATION("warmelt-macro.melt:635:/ iniobj"); /*iniobj dobj_453__CLASS_SOURCE_CIMPLEMENT*/ /*_._VALDATA___V547*/ meltfptr[546] = (melt_ptr_t )&meltcdat->dobj_453__CLASS_SOURCE_CIMPLEMENT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_453__CLASS_SOURCE_CIMPLEMENT", 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_453__CLASS_SOURCE_CIMPLEMENT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_453__CLASS_SOURCE_CIMPLEMENT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_453__CLASS_SOURCE_CIMPLEMENT.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_453__CLASS_SOURCE_CIMPLEMENT.obj_hash = 485025521; meltcdat->dobj_453__CLASS_SOURCE_CIMPLEMENT.obj_len = 8; /*inistring dstr_454__CLASS_SOURCE_CIMPLEMENT*/ /*_._VALSTR___V548*/ meltfptr[547] = (melt_ptr_t) &meltcdat->dstr_454__CLASS_SOURCE_CIMPLEMENT; meltcdat->dstr_454__CLASS_SOURCE_CIMPLEMENT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_454__CLASS_SOURCE_CIMPLEMENT.val, "CLASS_SOURCE_CIMPLEMENT", sizeof (meltcdat->dstr_454__CLASS_SOURCE_CIMPLEMENT.val)-1); meltcdat->dstr_454__CLASS_SOURCE_CIMPLEMENT.val[23] = (char)0 ; meltcdat->dstr_454__CLASS_SOURCE_CIMPLEMENT.slen = 23 ; /*inimult dtup_455_syCLASS_SOURCE_CIMPLEMENT*/ /*_._VALTUP___V549*/ meltfptr[548] = (melt_ptr_t) &meltcdat->dtup_455_syCLASS_SOURCE_CIMPLEMENT; meltcdat->dtup_455_syCLASS_SOURCE_CIMPLEMENT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_455_syCLASS_SOURCE_CIMPLEMENT.nbval = 5; /*inimult dtup_456_syCLASS_SOURCE_CIMPLEMENT*/ /*_._VALTUP___V550*/ meltfptr[549] = (melt_ptr_t) &meltcdat->dtup_456_syCLASS_SOURCE_CIMPLEMENT; meltcdat->dtup_456_syCLASS_SOURCE_CIMPLEMENT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_456_syCLASS_SOURCE_CIMPLEMENT.nbval = 3; /*iniobj dsym_457__CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG*/ /*uniqueobj*/ if (!/*_._VALDATA___V551*/ meltfptr[550]) /*_._VALDATA___V551*/ meltfptr[550] = (melt_ptr_t )&meltcdat->dsym_457__CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_457__CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG", 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_457__CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_457__CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_457__CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG.obj_hash = 958702304; meltcdat->dsym_457__CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG.obj_len = 3; /*inistring dstr_458__CLASS_SOURCE_USE_PACKAGE*/ /*_._VALSTR___V552*/ meltfptr[551] = (melt_ptr_t) &meltcdat->dstr_458__CLASS_SOURCE_USE_PACKAGE; meltcdat->dstr_458__CLASS_SOURCE_USE_PACKAGE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_458__CLASS_SOURCE_USE_PACKAGE.val, "CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG", sizeof (meltcdat->dstr_458__CLASS_SOURCE_USE_PACKAGE.val)-1); meltcdat->dstr_458__CLASS_SOURCE_USE_PACKAGE.val[40] = (char)0 ; meltcdat->dstr_458__CLASS_SOURCE_USE_PACKAGE.slen = 40 ; MELT_LOCATION("warmelt-macro.melt:645:/ iniobj"); /*iniobj dobj_459__CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG*/ /*_._VALDATA___V553*/ meltfptr[552] = (melt_ptr_t )&meltcdat->dobj_459__CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_459__CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG", 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_459__CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_459__CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_459__CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_459__CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG.obj_hash = 612066327; meltcdat->dobj_459__CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG.obj_len = 8; /*inistring dstr_460__CLASS_SOURCE_USE_PACKAGE*/ /*_._VALSTR___V554*/ meltfptr[553] = (melt_ptr_t) &meltcdat->dstr_460__CLASS_SOURCE_USE_PACKAGE; meltcdat->dstr_460__CLASS_SOURCE_USE_PACKAGE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_460__CLASS_SOURCE_USE_PACKAGE.val, "CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG", sizeof (meltcdat->dstr_460__CLASS_SOURCE_USE_PACKAGE.val)-1); meltcdat->dstr_460__CLASS_SOURCE_USE_PACKAGE.val[40] = (char)0 ; meltcdat->dstr_460__CLASS_SOURCE_USE_PACKAGE.slen = 40 ; /*inimult dtup_461_syCLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG*/ /*_._VALTUP___V555*/ meltfptr[554] = (melt_ptr_t) &meltcdat->dtup_461_syCLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG; meltcdat->dtup_461_syCLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_461_syCLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG.nbval = 4; /*inimult dtup_462_syCLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG*/ /*_._VALTUP___V558*/ meltfptr[557] = (melt_ptr_t) &meltcdat->dtup_462_syCLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG; meltcdat->dtup_462_syCLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_462_syCLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG.nbval = 3; /*iniobj dsym_463__SUSEPACKAGE_PKGTUPLE*/ /*uniqueobj*/ if (!/*_._VALDATA___V559*/ meltfptr[558]) /*_._VALDATA___V559*/ meltfptr[558] = (melt_ptr_t )&meltcdat->dsym_463__SUSEPACKAGE_PKGTUPLE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_463__SUSEPACKAGE_PKGTUPLE", 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_463__SUSEPACKAGE_PKGTUPLE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_463__SUSEPACKAGE_PKGTUPLE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_463__SUSEPACKAGE_PKGTUPLE.obj_hash = 122969018; meltcdat->dsym_463__SUSEPACKAGE_PKGTUPLE.obj_len = 3; /*inistring dstr_464__SUSEPACKAGE_PKGTUPLE*/ /*_._VALSTR___V560*/ meltfptr[559] = (melt_ptr_t) &meltcdat->dstr_464__SUSEPACKAGE_PKGTUPLE; meltcdat->dstr_464__SUSEPACKAGE_PKGTUPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_464__SUSEPACKAGE_PKGTUPLE.val, "SUSEPACKAGE_PKGTUPLE", sizeof (meltcdat->dstr_464__SUSEPACKAGE_PKGTUPLE.val)-1); meltcdat->dstr_464__SUSEPACKAGE_PKGTUPLE.val[20] = (char)0 ; meltcdat->dstr_464__SUSEPACKAGE_PKGTUPLE.slen = 20 ; /*^iniobj*/ /*iniobj dobj_465__SUSEPACKAGE_PKGTUPLE*/ /*_._VALDATA___V556*/ meltfptr[555] = (melt_ptr_t )&meltcdat->dobj_465__SUSEPACKAGE_PKGTUPLE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_465__SUSEPACKAGE_PKGTUPLE", 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_465__SUSEPACKAGE_PKGTUPLE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_465__SUSEPACKAGE_PKGTUPLE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_465__SUSEPACKAGE_PKGTUPLE.obj_num = 2; meltcdat->dobj_465__SUSEPACKAGE_PKGTUPLE.obj_hash = 230170245; meltcdat->dobj_465__SUSEPACKAGE_PKGTUPLE.obj_len = 4; /*inistring dstr_466__SUSEPACKAGE_PKGTUPLE*/ /*_._VALSTR___V557*/ meltfptr[556] = (melt_ptr_t) &meltcdat->dstr_466__SUSEPACKAGE_PKGTUPLE; meltcdat->dstr_466__SUSEPACKAGE_PKGTUPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_466__SUSEPACKAGE_PKGTUPLE.val, "SUSEPACKAGE_PKGTUPLE", sizeof (meltcdat->dstr_466__SUSEPACKAGE_PKGTUPLE.val)-1); meltcdat->dstr_466__SUSEPACKAGE_PKGTUPLE.val[20] = (char)0 ; meltcdat->dstr_466__SUSEPACKAGE_PKGTUPLE.slen = 20 ; /*iniobj dsym_467__CLASS_SOURCE_QUOTE*/ /*uniqueobj*/ if (!/*_._VALDATA___V561*/ meltfptr[560]) /*_._VALDATA___V561*/ meltfptr[560] = (melt_ptr_t )&meltcdat->dsym_467__CLASS_SOURCE_QUOTE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_467__CLASS_SOURCE_QUOTE", 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_467__CLASS_SOURCE_QUOTE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_467__CLASS_SOURCE_QUOTE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_467__CLASS_SOURCE_QUOTE.obj_hash = 488554331; meltcdat->dsym_467__CLASS_SOURCE_QUOTE.obj_len = 3; /*inistring dstr_468__CLASS_SOURCE_QUOTE*/ /*_._VALSTR___V562*/ meltfptr[561] = (melt_ptr_t) &meltcdat->dstr_468__CLASS_SOURCE_QUOTE; meltcdat->dstr_468__CLASS_SOURCE_QUOTE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_468__CLASS_SOURCE_QUOTE.val, "CLASS_SOURCE_QUOTE", sizeof (meltcdat->dstr_468__CLASS_SOURCE_QUOTE.val)-1); meltcdat->dstr_468__CLASS_SOURCE_QUOTE.val[18] = (char)0 ; meltcdat->dstr_468__CLASS_SOURCE_QUOTE.slen = 18 ; MELT_LOCATION("warmelt-macro.melt:655:/ iniobj"); /*iniobj dobj_469__CLASS_SOURCE_QUOTE*/ /*_._VALDATA___V563*/ meltfptr[562] = (melt_ptr_t )&meltcdat->dobj_469__CLASS_SOURCE_QUOTE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_469__CLASS_SOURCE_QUOTE", 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_469__CLASS_SOURCE_QUOTE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_469__CLASS_SOURCE_QUOTE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_469__CLASS_SOURCE_QUOTE.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_469__CLASS_SOURCE_QUOTE.obj_hash = 462370993; meltcdat->dobj_469__CLASS_SOURCE_QUOTE.obj_len = 8; /*inistring dstr_470__CLASS_SOURCE_QUOTE*/ /*_._VALSTR___V564*/ meltfptr[563] = (melt_ptr_t) &meltcdat->dstr_470__CLASS_SOURCE_QUOTE; meltcdat->dstr_470__CLASS_SOURCE_QUOTE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_470__CLASS_SOURCE_QUOTE.val, "CLASS_SOURCE_QUOTE", sizeof (meltcdat->dstr_470__CLASS_SOURCE_QUOTE.val)-1); meltcdat->dstr_470__CLASS_SOURCE_QUOTE.val[18] = (char)0 ; meltcdat->dstr_470__CLASS_SOURCE_QUOTE.slen = 18 ; /*inimult dtup_471_syCLASS_SOURCE_QUOTE*/ /*_._VALTUP___V565*/ meltfptr[564] = (melt_ptr_t) &meltcdat->dtup_471_syCLASS_SOURCE_QUOTE; meltcdat->dtup_471_syCLASS_SOURCE_QUOTE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_471_syCLASS_SOURCE_QUOTE.nbval = 4; /*inimult dtup_472_syCLASS_SOURCE_QUOTE*/ /*_._VALTUP___V568*/ meltfptr[567] = (melt_ptr_t) &meltcdat->dtup_472_syCLASS_SOURCE_QUOTE; meltcdat->dtup_472_syCLASS_SOURCE_QUOTE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_472_syCLASS_SOURCE_QUOTE.nbval = 3; /*iniobj dsym_473__SQUOTED*/ /*uniqueobj*/ if (!/*_._VALDATA___V569*/ meltfptr[568]) /*_._VALDATA___V569*/ meltfptr[568] = (melt_ptr_t )&meltcdat->dsym_473__SQUOTED; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_473__SQUOTED", 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_473__SQUOTED", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_473__SQUOTED.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_473__SQUOTED.obj_hash = 28914429; meltcdat->dsym_473__SQUOTED.obj_len = 3; /*inistring dstr_474__SQUOTED*/ /*_._VALSTR___V570*/ meltfptr[569] = (melt_ptr_t) &meltcdat->dstr_474__SQUOTED; meltcdat->dstr_474__SQUOTED.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_474__SQUOTED.val, "SQUOTED", sizeof (meltcdat->dstr_474__SQUOTED.val)-1); meltcdat->dstr_474__SQUOTED.val[7] = (char)0 ; meltcdat->dstr_474__SQUOTED.slen = 7 ; /*^iniobj*/ /*iniobj dobj_475__SQUOTED*/ /*_._VALDATA___V566*/ meltfptr[565] = (melt_ptr_t )&meltcdat->dobj_475__SQUOTED; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_475__SQUOTED", 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_475__SQUOTED", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_475__SQUOTED.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_475__SQUOTED.obj_num = 2; meltcdat->dobj_475__SQUOTED.obj_hash = 742877132; meltcdat->dobj_475__SQUOTED.obj_len = 4; /*inistring dstr_476__SQUOTED*/ /*_._VALSTR___V567*/ meltfptr[566] = (melt_ptr_t) &meltcdat->dstr_476__SQUOTED; meltcdat->dstr_476__SQUOTED.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_476__SQUOTED.val, "SQUOTED", sizeof (meltcdat->dstr_476__SQUOTED.val)-1); meltcdat->dstr_476__SQUOTED.val[7] = (char)0 ; meltcdat->dstr_476__SQUOTED.slen = 7 ; /*iniobj dsym_477__CLASS_SOURCE_QUASI_BOX*/ /*uniqueobj*/ if (!/*_._VALDATA___V571*/ meltfptr[570]) /*_._VALDATA___V571*/ meltfptr[570] = (melt_ptr_t )&meltcdat->dsym_477__CLASS_SOURCE_QUASI_BOX; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_477__CLASS_SOURCE_QUASI_BOX", 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_477__CLASS_SOURCE_QUASI_BOX", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_477__CLASS_SOURCE_QUASI_BOX.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_477__CLASS_SOURCE_QUASI_BOX.obj_hash = 848879557; meltcdat->dsym_477__CLASS_SOURCE_QUASI_BOX.obj_len = 3; /*inistring dstr_478__CLASS_SOURCE_QUASI_BOX*/ /*_._VALSTR___V572*/ meltfptr[571] = (melt_ptr_t) &meltcdat->dstr_478__CLASS_SOURCE_QUASI_BOX; meltcdat->dstr_478__CLASS_SOURCE_QUASI_BOX.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_478__CLASS_SOURCE_QUASI_BOX.val, "CLASS_SOURCE_QUASI_BOX", sizeof (meltcdat->dstr_478__CLASS_SOURCE_QUASI_BOX.val)-1); meltcdat->dstr_478__CLASS_SOURCE_QUASI_BOX.val[22] = (char)0 ; meltcdat->dstr_478__CLASS_SOURCE_QUASI_BOX.slen = 22 ; MELT_LOCATION("warmelt-macro.melt:662:/ iniobj"); /*iniobj dobj_479__CLASS_SOURCE_QUASI_BOX*/ /*_._VALDATA___V573*/ meltfptr[572] = (melt_ptr_t )&meltcdat->dobj_479__CLASS_SOURCE_QUASI_BOX; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_479__CLASS_SOURCE_QUASI_BOX", 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_479__CLASS_SOURCE_QUASI_BOX", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_479__CLASS_SOURCE_QUASI_BOX.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_479__CLASS_SOURCE_QUASI_BOX.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_479__CLASS_SOURCE_QUASI_BOX.obj_hash = 27732395; meltcdat->dobj_479__CLASS_SOURCE_QUASI_BOX.obj_len = 8; /*inistring dstr_480__CLASS_SOURCE_QUASI_BOX*/ /*_._VALSTR___V574*/ meltfptr[573] = (melt_ptr_t) &meltcdat->dstr_480__CLASS_SOURCE_QUASI_BOX; meltcdat->dstr_480__CLASS_SOURCE_QUASI_BOX.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_480__CLASS_SOURCE_QUASI_BOX.val, "CLASS_SOURCE_QUASI_BOX", sizeof (meltcdat->dstr_480__CLASS_SOURCE_QUASI_BOX.val)-1); meltcdat->dstr_480__CLASS_SOURCE_QUASI_BOX.val[22] = (char)0 ; meltcdat->dstr_480__CLASS_SOURCE_QUASI_BOX.slen = 22 ; /*inimult dtup_481_syCLASS_SOURCE_QUASI_BOX*/ /*_._VALTUP___V575*/ meltfptr[574] = (melt_ptr_t) &meltcdat->dtup_481_syCLASS_SOURCE_QUASI_BOX; meltcdat->dtup_481_syCLASS_SOURCE_QUASI_BOX.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_481_syCLASS_SOURCE_QUASI_BOX.nbval = 4; /*inimult dtup_482_syCLASS_SOURCE_QUASI_BOX*/ /*_._VALTUP___V578*/ meltfptr[577] = (melt_ptr_t) &meltcdat->dtup_482_syCLASS_SOURCE_QUASI_BOX; meltcdat->dtup_482_syCLASS_SOURCE_QUASI_BOX.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_482_syCLASS_SOURCE_QUASI_BOX.nbval = 3; /*iniobj dsym_483__SBOXED*/ /*uniqueobj*/ if (!/*_._VALDATA___V579*/ meltfptr[578]) /*_._VALDATA___V579*/ meltfptr[578] = (melt_ptr_t )&meltcdat->dsym_483__SBOXED; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_483__SBOXED", 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_483__SBOXED", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_483__SBOXED.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_483__SBOXED.obj_hash = 106437223; meltcdat->dsym_483__SBOXED.obj_len = 3; /*inistring dstr_484__SBOXED*/ /*_._VALSTR___V580*/ meltfptr[579] = (melt_ptr_t) &meltcdat->dstr_484__SBOXED; meltcdat->dstr_484__SBOXED.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_484__SBOXED.val, "SBOXED", sizeof (meltcdat->dstr_484__SBOXED.val)-1); meltcdat->dstr_484__SBOXED.val[6] = (char)0 ; meltcdat->dstr_484__SBOXED.slen = 6 ; /*^iniobj*/ /*iniobj dobj_485__SBOXED*/ /*_._VALDATA___V576*/ meltfptr[575] = (melt_ptr_t )&meltcdat->dobj_485__SBOXED; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_485__SBOXED", 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_485__SBOXED", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_485__SBOXED.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_485__SBOXED.obj_num = 2; meltcdat->dobj_485__SBOXED.obj_hash = 1037732944; meltcdat->dobj_485__SBOXED.obj_len = 4; /*inistring dstr_486__SBOXED*/ /*_._VALSTR___V577*/ meltfptr[576] = (melt_ptr_t) &meltcdat->dstr_486__SBOXED; meltcdat->dstr_486__SBOXED.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_486__SBOXED.val, "SBOXED", sizeof (meltcdat->dstr_486__SBOXED.val)-1); meltcdat->dstr_486__SBOXED.val[6] = (char)0 ; meltcdat->dstr_486__SBOXED.slen = 6 ; /*iniobj dsym_487__CLASS_SOURCE_BOX*/ /*uniqueobj*/ if (!/*_._VALDATA___V581*/ meltfptr[580]) /*_._VALDATA___V581*/ meltfptr[580] = (melt_ptr_t )&meltcdat->dsym_487__CLASS_SOURCE_BOX; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_487__CLASS_SOURCE_BOX", 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_487__CLASS_SOURCE_BOX", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_487__CLASS_SOURCE_BOX.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_487__CLASS_SOURCE_BOX.obj_hash = 262599218; meltcdat->dsym_487__CLASS_SOURCE_BOX.obj_len = 3; /*inistring dstr_488__CLASS_SOURCE_BOX*/ /*_._VALSTR___V582*/ meltfptr[581] = (melt_ptr_t) &meltcdat->dstr_488__CLASS_SOURCE_BOX; meltcdat->dstr_488__CLASS_SOURCE_BOX.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_488__CLASS_SOURCE_BOX.val, "CLASS_SOURCE_BOX", sizeof (meltcdat->dstr_488__CLASS_SOURCE_BOX.val)-1); meltcdat->dstr_488__CLASS_SOURCE_BOX.val[16] = (char)0 ; meltcdat->dstr_488__CLASS_SOURCE_BOX.slen = 16 ; MELT_LOCATION("warmelt-macro.melt:668:/ iniobj"); /*iniobj dobj_489__CLASS_SOURCE_BOX*/ /*_._VALDATA___V583*/ meltfptr[582] = (melt_ptr_t )&meltcdat->dobj_489__CLASS_SOURCE_BOX; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_489__CLASS_SOURCE_BOX", 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_489__CLASS_SOURCE_BOX", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_489__CLASS_SOURCE_BOX.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_489__CLASS_SOURCE_BOX.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_489__CLASS_SOURCE_BOX.obj_hash = 766111804; meltcdat->dobj_489__CLASS_SOURCE_BOX.obj_len = 8; /*inistring dstr_490__CLASS_SOURCE_BOX*/ /*_._VALSTR___V584*/ meltfptr[583] = (melt_ptr_t) &meltcdat->dstr_490__CLASS_SOURCE_BOX; meltcdat->dstr_490__CLASS_SOURCE_BOX.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_490__CLASS_SOURCE_BOX.val, "CLASS_SOURCE_BOX", sizeof (meltcdat->dstr_490__CLASS_SOURCE_BOX.val)-1); meltcdat->dstr_490__CLASS_SOURCE_BOX.val[16] = (char)0 ; meltcdat->dstr_490__CLASS_SOURCE_BOX.slen = 16 ; /*inimult dtup_491_syCLASS_SOURCE_BOX*/ /*_._VALTUP___V585*/ meltfptr[584] = (melt_ptr_t) &meltcdat->dtup_491_syCLASS_SOURCE_BOX; meltcdat->dtup_491_syCLASS_SOURCE_BOX.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_491_syCLASS_SOURCE_BOX.nbval = 5; /*inimult dtup_492_syCLASS_SOURCE_BOX*/ /*_._VALTUP___V586*/ meltfptr[585] = (melt_ptr_t) &meltcdat->dtup_492_syCLASS_SOURCE_BOX; meltcdat->dtup_492_syCLASS_SOURCE_BOX.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_492_syCLASS_SOURCE_BOX.nbval = 3; /*iniobj dsym_493__CLASS_SOURCE_CONSTANT_BOX*/ /*uniqueobj*/ if (!/*_._VALDATA___V587*/ meltfptr[586]) /*_._VALDATA___V587*/ meltfptr[586] = (melt_ptr_t )&meltcdat->dsym_493__CLASS_SOURCE_CONSTANT_BOX; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_493__CLASS_SOURCE_CONSTANT_BOX", 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_493__CLASS_SOURCE_CONSTANT_BOX", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_493__CLASS_SOURCE_CONSTANT_BOX.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_493__CLASS_SOURCE_CONSTANT_BOX.obj_hash = 633872183; meltcdat->dsym_493__CLASS_SOURCE_CONSTANT_BOX.obj_len = 3; /*inistring dstr_494__CLASS_SOURCE_CONSTANT_BO*/ /*_._VALSTR___V588*/ meltfptr[587] = (melt_ptr_t) &meltcdat->dstr_494__CLASS_SOURCE_CONSTANT_BO; meltcdat->dstr_494__CLASS_SOURCE_CONSTANT_BO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_494__CLASS_SOURCE_CONSTANT_BO.val, "CLASS_SOURCE_CONSTANT_BOX", sizeof (meltcdat->dstr_494__CLASS_SOURCE_CONSTANT_BO.val)-1); meltcdat->dstr_494__CLASS_SOURCE_CONSTANT_BO.val[25] = (char)0 ; meltcdat->dstr_494__CLASS_SOURCE_CONSTANT_BO.slen = 25 ; MELT_LOCATION("warmelt-macro.melt:673:/ iniobj"); /*iniobj dobj_495__CLASS_SOURCE_CONSTANT_BOX*/ /*_._VALDATA___V589*/ meltfptr[588] = (melt_ptr_t )&meltcdat->dobj_495__CLASS_SOURCE_CONSTANT_BOX; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_495__CLASS_SOURCE_CONSTANT_BOX", 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_495__CLASS_SOURCE_CONSTANT_BOX", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_495__CLASS_SOURCE_CONSTANT_BOX.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_495__CLASS_SOURCE_CONSTANT_BOX.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_495__CLASS_SOURCE_CONSTANT_BOX.obj_hash = 972404539; meltcdat->dobj_495__CLASS_SOURCE_CONSTANT_BOX.obj_len = 8; /*inistring dstr_496__CLASS_SOURCE_CONSTANT_BO*/ /*_._VALSTR___V590*/ meltfptr[589] = (melt_ptr_t) &meltcdat->dstr_496__CLASS_SOURCE_CONSTANT_BO; meltcdat->dstr_496__CLASS_SOURCE_CONSTANT_BO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_496__CLASS_SOURCE_CONSTANT_BO.val, "CLASS_SOURCE_CONSTANT_BOX", sizeof (meltcdat->dstr_496__CLASS_SOURCE_CONSTANT_BO.val)-1); meltcdat->dstr_496__CLASS_SOURCE_CONSTANT_BO.val[25] = (char)0 ; meltcdat->dstr_496__CLASS_SOURCE_CONSTANT_BO.slen = 25 ; /*inimult dtup_497_syCLASS_SOURCE_CONSTANT_BOX*/ /*_._VALTUP___V591*/ meltfptr[590] = (melt_ptr_t) &meltcdat->dtup_497_syCLASS_SOURCE_CONSTANT_BOX; meltcdat->dtup_497_syCLASS_SOURCE_CONSTANT_BOX.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_497_syCLASS_SOURCE_CONSTANT_BOX.nbval = 5; /*inimult dtup_498_syCLASS_SOURCE_CONSTANT_BOX*/ /*_._VALTUP___V592*/ meltfptr[591] = (melt_ptr_t) &meltcdat->dtup_498_syCLASS_SOURCE_CONSTANT_BOX; meltcdat->dtup_498_syCLASS_SOURCE_CONSTANT_BOX.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_498_syCLASS_SOURCE_CONSTANT_BOX.nbval = 3; /*iniobj dsym_499__CLASS_SOURCE_UNBOX*/ /*uniqueobj*/ if (!/*_._VALDATA___V593*/ meltfptr[592]) /*_._VALDATA___V593*/ meltfptr[592] = (melt_ptr_t )&meltcdat->dsym_499__CLASS_SOURCE_UNBOX; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_499__CLASS_SOURCE_UNBOX", 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_499__CLASS_SOURCE_UNBOX", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_499__CLASS_SOURCE_UNBOX.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_499__CLASS_SOURCE_UNBOX.obj_hash = 414027166; meltcdat->dsym_499__CLASS_SOURCE_UNBOX.obj_len = 3; /*inistring dstr_500__CLASS_SOURCE_UNBOX*/ /*_._VALSTR___V594*/ meltfptr[593] = (melt_ptr_t) &meltcdat->dstr_500__CLASS_SOURCE_UNBOX; meltcdat->dstr_500__CLASS_SOURCE_UNBOX.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_500__CLASS_SOURCE_UNBOX.val, "CLASS_SOURCE_UNBOX", sizeof (meltcdat->dstr_500__CLASS_SOURCE_UNBOX.val)-1); meltcdat->dstr_500__CLASS_SOURCE_UNBOX.val[18] = (char)0 ; meltcdat->dstr_500__CLASS_SOURCE_UNBOX.slen = 18 ; MELT_LOCATION("warmelt-macro.melt:680:/ iniobj"); /*iniobj dobj_501__CLASS_SOURCE_UNBOX*/ /*_._VALDATA___V595*/ meltfptr[594] = (melt_ptr_t )&meltcdat->dobj_501__CLASS_SOURCE_UNBOX; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_501__CLASS_SOURCE_UNBOX", 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_501__CLASS_SOURCE_UNBOX", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_501__CLASS_SOURCE_UNBOX.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_501__CLASS_SOURCE_UNBOX.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_501__CLASS_SOURCE_UNBOX.obj_hash = 672805073; meltcdat->dobj_501__CLASS_SOURCE_UNBOX.obj_len = 8; /*inistring dstr_502__CLASS_SOURCE_UNBOX*/ /*_._VALSTR___V596*/ meltfptr[595] = (melt_ptr_t) &meltcdat->dstr_502__CLASS_SOURCE_UNBOX; meltcdat->dstr_502__CLASS_SOURCE_UNBOX.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_502__CLASS_SOURCE_UNBOX.val, "CLASS_SOURCE_UNBOX", sizeof (meltcdat->dstr_502__CLASS_SOURCE_UNBOX.val)-1); meltcdat->dstr_502__CLASS_SOURCE_UNBOX.val[18] = (char)0 ; meltcdat->dstr_502__CLASS_SOURCE_UNBOX.slen = 18 ; /*inimult dtup_503_syCLASS_SOURCE_UNBOX*/ /*_._VALTUP___V597*/ meltfptr[596] = (melt_ptr_t) &meltcdat->dtup_503_syCLASS_SOURCE_UNBOX; meltcdat->dtup_503_syCLASS_SOURCE_UNBOX.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_503_syCLASS_SOURCE_UNBOX.nbval = 4; /*inimult dtup_504_syCLASS_SOURCE_UNBOX*/ /*_._VALTUP___V602*/ meltfptr[601] = (melt_ptr_t) &meltcdat->dtup_504_syCLASS_SOURCE_UNBOX; meltcdat->dtup_504_syCLASS_SOURCE_UNBOX.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_504_syCLASS_SOURCE_UNBOX.nbval = 4; /*iniobj dsym_505__SUNBOX_CTYPE*/ /*uniqueobj*/ if (!/*_._VALDATA___V603*/ meltfptr[602]) /*_._VALDATA___V603*/ meltfptr[602] = (melt_ptr_t )&meltcdat->dsym_505__SUNBOX_CTYPE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_505__SUNBOX_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_505__SUNBOX_CTYPE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_505__SUNBOX_CTYPE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_505__SUNBOX_CTYPE.obj_hash = 669357435; meltcdat->dsym_505__SUNBOX_CTYPE.obj_len = 3; /*inistring dstr_506__SUNBOX_CTYPE*/ /*_._VALSTR___V604*/ meltfptr[603] = (melt_ptr_t) &meltcdat->dstr_506__SUNBOX_CTYPE; meltcdat->dstr_506__SUNBOX_CTYPE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_506__SUNBOX_CTYPE.val, "SUNBOX_CTYPE", sizeof (meltcdat->dstr_506__SUNBOX_CTYPE.val)-1); meltcdat->dstr_506__SUNBOX_CTYPE.val[12] = (char)0 ; meltcdat->dstr_506__SUNBOX_CTYPE.slen = 12 ; /*^iniobj*/ /*iniobj dobj_507__SUNBOX_CTYPE*/ /*_._VALDATA___V598*/ meltfptr[597] = (melt_ptr_t )&meltcdat->dobj_507__SUNBOX_CTYPE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_507__SUNBOX_CTYPE", 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_507__SUNBOX_CTYPE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_507__SUNBOX_CTYPE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_507__SUNBOX_CTYPE.obj_num = 2; meltcdat->dobj_507__SUNBOX_CTYPE.obj_hash = 1010179146; meltcdat->dobj_507__SUNBOX_CTYPE.obj_len = 4; /*inistring dstr_508__SUNBOX_CTYPE*/ /*_._VALSTR___V599*/ meltfptr[598] = (melt_ptr_t) &meltcdat->dstr_508__SUNBOX_CTYPE; meltcdat->dstr_508__SUNBOX_CTYPE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_508__SUNBOX_CTYPE.val, "SUNBOX_CTYPE", sizeof (meltcdat->dstr_508__SUNBOX_CTYPE.val)-1); meltcdat->dstr_508__SUNBOX_CTYPE.val[12] = (char)0 ; meltcdat->dstr_508__SUNBOX_CTYPE.slen = 12 ; /*iniobj dsym_509__SUNBOX_EXPR*/ /*uniqueobj*/ if (!/*_._VALDATA___V605*/ meltfptr[604]) /*_._VALDATA___V605*/ meltfptr[604] = (melt_ptr_t )&meltcdat->dsym_509__SUNBOX_EXPR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_509__SUNBOX_EXPR", 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_509__SUNBOX_EXPR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_509__SUNBOX_EXPR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_509__SUNBOX_EXPR.obj_hash = 408260634; meltcdat->dsym_509__SUNBOX_EXPR.obj_len = 3; /*inistring dstr_510__SUNBOX_EXPR*/ /*_._VALSTR___V606*/ meltfptr[605] = (melt_ptr_t) &meltcdat->dstr_510__SUNBOX_EXPR; meltcdat->dstr_510__SUNBOX_EXPR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_510__SUNBOX_EXPR.val, "SUNBOX_EXPR", sizeof (meltcdat->dstr_510__SUNBOX_EXPR.val)-1); meltcdat->dstr_510__SUNBOX_EXPR.val[11] = (char)0 ; meltcdat->dstr_510__SUNBOX_EXPR.slen = 11 ; /*^iniobj*/ /*iniobj dobj_511__SUNBOX_EXPR*/ /*_._VALDATA___V600*/ meltfptr[599] = (melt_ptr_t )&meltcdat->dobj_511__SUNBOX_EXPR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_511__SUNBOX_EXPR", 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_511__SUNBOX_EXPR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_511__SUNBOX_EXPR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_511__SUNBOX_EXPR.obj_num = 3; meltcdat->dobj_511__SUNBOX_EXPR.obj_hash = 784489895; meltcdat->dobj_511__SUNBOX_EXPR.obj_len = 4; /*inistring dstr_512__SUNBOX_EXPR*/ /*_._VALSTR___V601*/ meltfptr[600] = (melt_ptr_t) &meltcdat->dstr_512__SUNBOX_EXPR; meltcdat->dstr_512__SUNBOX_EXPR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_512__SUNBOX_EXPR.val, "SUNBOX_EXPR", sizeof (meltcdat->dstr_512__SUNBOX_EXPR.val)-1); meltcdat->dstr_512__SUNBOX_EXPR.val[11] = (char)0 ; meltcdat->dstr_512__SUNBOX_EXPR.slen = 11 ; /*iniobj dsym_513__CLASS_SOURCE_EXPORTCOMMON*/ /*uniqueobj*/ if (!/*_._VALDATA___V607*/ meltfptr[606]) /*_._VALDATA___V607*/ meltfptr[606] = (melt_ptr_t )&meltcdat->dsym_513__CLASS_SOURCE_EXPORTCOMMON; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_513__CLASS_SOURCE_EXPORTCOMMON", 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_513__CLASS_SOURCE_EXPORTCOMMON", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_513__CLASS_SOURCE_EXPORTCOMMON.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_513__CLASS_SOURCE_EXPORTCOMMON.obj_hash = 334297015; meltcdat->dsym_513__CLASS_SOURCE_EXPORTCOMMON.obj_len = 3; /*inistring dstr_514__CLASS_SOURCE_EXPORTCOMMO*/ /*_._VALSTR___V608*/ meltfptr[607] = (melt_ptr_t) &meltcdat->dstr_514__CLASS_SOURCE_EXPORTCOMMO; meltcdat->dstr_514__CLASS_SOURCE_EXPORTCOMMO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_514__CLASS_SOURCE_EXPORTCOMMO.val, "CLASS_SOURCE_EXPORTCOMMON", sizeof (meltcdat->dstr_514__CLASS_SOURCE_EXPORTCOMMO.val)-1); meltcdat->dstr_514__CLASS_SOURCE_EXPORTCOMMO.val[25] = (char)0 ; meltcdat->dstr_514__CLASS_SOURCE_EXPORTCOMMO.slen = 25 ; MELT_LOCATION("warmelt-macro.melt:693:/ iniobj"); /*iniobj dobj_515__CLASS_SOURCE_EXPORTCOMMON*/ /*_._VALDATA___V609*/ meltfptr[608] = (melt_ptr_t )&meltcdat->dobj_515__CLASS_SOURCE_EXPORTCOMMON; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_515__CLASS_SOURCE_EXPORTCOMMON", 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_515__CLASS_SOURCE_EXPORTCOMMON", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_515__CLASS_SOURCE_EXPORTCOMMON.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_515__CLASS_SOURCE_EXPORTCOMMON.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_515__CLASS_SOURCE_EXPORTCOMMON.obj_hash = 797099268; meltcdat->dobj_515__CLASS_SOURCE_EXPORTCOMMON.obj_len = 8; /*inistring dstr_516__CLASS_SOURCE_EXPORTCOMMO*/ /*_._VALSTR___V610*/ meltfptr[609] = (melt_ptr_t) &meltcdat->dstr_516__CLASS_SOURCE_EXPORTCOMMO; meltcdat->dstr_516__CLASS_SOURCE_EXPORTCOMMO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_516__CLASS_SOURCE_EXPORTCOMMO.val, "CLASS_SOURCE_EXPORTCOMMON", sizeof (meltcdat->dstr_516__CLASS_SOURCE_EXPORTCOMMO.val)-1); meltcdat->dstr_516__CLASS_SOURCE_EXPORTCOMMO.val[25] = (char)0 ; meltcdat->dstr_516__CLASS_SOURCE_EXPORTCOMMO.slen = 25 ; /*inimult dtup_517_syCLASS_SOURCE_EXPORTCOMMON*/ /*_._VALTUP___V611*/ meltfptr[610] = (melt_ptr_t) &meltcdat->dtup_517_syCLASS_SOURCE_EXPORTCOMMON; meltcdat->dtup_517_syCLASS_SOURCE_EXPORTCOMMON.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_517_syCLASS_SOURCE_EXPORTCOMMON.nbval = 4; /*inimult dtup_518_syCLASS_SOURCE_EXPORTCOMMON*/ /*_._VALTUP___V614*/ meltfptr[613] = (melt_ptr_t) &meltcdat->dtup_518_syCLASS_SOURCE_EXPORTCOMMON; meltcdat->dtup_518_syCLASS_SOURCE_EXPORTCOMMON.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_518_syCLASS_SOURCE_EXPORTCOMMON.nbval = 3; /*iniobj dsym_519__SEXPORT_NAMES*/ /*uniqueobj*/ if (!/*_._VALDATA___V615*/ meltfptr[614]) /*_._VALDATA___V615*/ meltfptr[614] = (melt_ptr_t )&meltcdat->dsym_519__SEXPORT_NAMES; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_519__SEXPORT_NAMES", 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_519__SEXPORT_NAMES", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_519__SEXPORT_NAMES.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_519__SEXPORT_NAMES.obj_hash = 1015438775; meltcdat->dsym_519__SEXPORT_NAMES.obj_len = 3; /*inistring dstr_520__SEXPORT_NAMES*/ /*_._VALSTR___V616*/ meltfptr[615] = (melt_ptr_t) &meltcdat->dstr_520__SEXPORT_NAMES; meltcdat->dstr_520__SEXPORT_NAMES.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_520__SEXPORT_NAMES.val, "SEXPORT_NAMES", sizeof (meltcdat->dstr_520__SEXPORT_NAMES.val)-1); meltcdat->dstr_520__SEXPORT_NAMES.val[13] = (char)0 ; meltcdat->dstr_520__SEXPORT_NAMES.slen = 13 ; /*^iniobj*/ /*iniobj dobj_521__SEXPORT_NAMES*/ /*_._VALDATA___V612*/ meltfptr[611] = (melt_ptr_t )&meltcdat->dobj_521__SEXPORT_NAMES; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_521__SEXPORT_NAMES", 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_521__SEXPORT_NAMES", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_521__SEXPORT_NAMES.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_521__SEXPORT_NAMES.obj_num = 2; meltcdat->dobj_521__SEXPORT_NAMES.obj_hash = 912678171; meltcdat->dobj_521__SEXPORT_NAMES.obj_len = 4; /*inistring dstr_522__SEXPORT_NAMES*/ /*_._VALSTR___V613*/ meltfptr[612] = (melt_ptr_t) &meltcdat->dstr_522__SEXPORT_NAMES; meltcdat->dstr_522__SEXPORT_NAMES.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_522__SEXPORT_NAMES.val, "SEXPORT_NAMES", sizeof (meltcdat->dstr_522__SEXPORT_NAMES.val)-1); meltcdat->dstr_522__SEXPORT_NAMES.val[13] = (char)0 ; meltcdat->dstr_522__SEXPORT_NAMES.slen = 13 ; /*iniobj dsym_523__CLASS_SOURCE_EXPORT_VALUES*/ /*uniqueobj*/ if (!/*_._VALDATA___V617*/ meltfptr[616]) /*_._VALDATA___V617*/ meltfptr[616] = (melt_ptr_t )&meltcdat->dsym_523__CLASS_SOURCE_EXPORT_VALUES; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_523__CLASS_SOURCE_EXPORT_VALUES", 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_523__CLASS_SOURCE_EXPORT_VALUES", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_523__CLASS_SOURCE_EXPORT_VALUES.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_523__CLASS_SOURCE_EXPORT_VALUES.obj_hash = 1002145334; meltcdat->dsym_523__CLASS_SOURCE_EXPORT_VALUES.obj_len = 3; /*inistring dstr_524__CLASS_SOURCE_EXPORT_VALU*/ /*_._VALSTR___V618*/ meltfptr[617] = (melt_ptr_t) &meltcdat->dstr_524__CLASS_SOURCE_EXPORT_VALU; meltcdat->dstr_524__CLASS_SOURCE_EXPORT_VALU.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_524__CLASS_SOURCE_EXPORT_VALU.val, "CLASS_SOURCE_EXPORT_VALUES", sizeof (meltcdat->dstr_524__CLASS_SOURCE_EXPORT_VALU.val)-1); meltcdat->dstr_524__CLASS_SOURCE_EXPORT_VALU.val[26] = (char)0 ; meltcdat->dstr_524__CLASS_SOURCE_EXPORT_VALU.slen = 26 ; MELT_LOCATION("warmelt-macro.melt:702:/ iniobj"); /*iniobj dobj_525__CLASS_SOURCE_EXPORT_VALUES*/ /*_._VALDATA___V619*/ meltfptr[618] = (melt_ptr_t )&meltcdat->dobj_525__CLASS_SOURCE_EXPORT_VALUES; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_525__CLASS_SOURCE_EXPORT_VALUES", 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_525__CLASS_SOURCE_EXPORT_VALUES", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_525__CLASS_SOURCE_EXPORT_VALUES.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_525__CLASS_SOURCE_EXPORT_VALUES.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_525__CLASS_SOURCE_EXPORT_VALUES.obj_hash = 876747470; meltcdat->dobj_525__CLASS_SOURCE_EXPORT_VALUES.obj_len = 8; /*inistring dstr_526__CLASS_SOURCE_EXPORT_VALU*/ /*_._VALSTR___V620*/ meltfptr[619] = (melt_ptr_t) &meltcdat->dstr_526__CLASS_SOURCE_EXPORT_VALU; meltcdat->dstr_526__CLASS_SOURCE_EXPORT_VALU.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_526__CLASS_SOURCE_EXPORT_VALU.val, "CLASS_SOURCE_EXPORT_VALUES", sizeof (meltcdat->dstr_526__CLASS_SOURCE_EXPORT_VALU.val)-1); meltcdat->dstr_526__CLASS_SOURCE_EXPORT_VALU.val[26] = (char)0 ; meltcdat->dstr_526__CLASS_SOURCE_EXPORT_VALU.slen = 26 ; /*inimult dtup_527_syCLASS_SOURCE_EXPORT_VALUES*/ /*_._VALTUP___V621*/ meltfptr[620] = (melt_ptr_t) &meltcdat->dtup_527_syCLASS_SOURCE_EXPORT_VALUES; meltcdat->dtup_527_syCLASS_SOURCE_EXPORT_VALUES.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_527_syCLASS_SOURCE_EXPORT_VALUES.nbval = 5; /*inimult dtup_528_syCLASS_SOURCE_EXPORT_VALUES*/ /*_._VALTUP___V622*/ meltfptr[621] = (melt_ptr_t) &meltcdat->dtup_528_syCLASS_SOURCE_EXPORT_VALUES; meltcdat->dtup_528_syCLASS_SOURCE_EXPORT_VALUES.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_528_syCLASS_SOURCE_EXPORT_VALUES.nbval = 3; /*iniobj dsym_529__CLASS_SOURCE_EXPORT_CLASS*/ /*uniqueobj*/ if (!/*_._VALDATA___V623*/ meltfptr[622]) /*_._VALDATA___V623*/ meltfptr[622] = (melt_ptr_t )&meltcdat->dsym_529__CLASS_SOURCE_EXPORT_CLASS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_529__CLASS_SOURCE_EXPORT_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_529__CLASS_SOURCE_EXPORT_CLASS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_529__CLASS_SOURCE_EXPORT_CLASS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_529__CLASS_SOURCE_EXPORT_CLASS.obj_hash = 460824012; meltcdat->dsym_529__CLASS_SOURCE_EXPORT_CLASS.obj_len = 3; /*inistring dstr_530__CLASS_SOURCE_EXPORT_CLAS*/ /*_._VALSTR___V624*/ meltfptr[623] = (melt_ptr_t) &meltcdat->dstr_530__CLASS_SOURCE_EXPORT_CLAS; meltcdat->dstr_530__CLASS_SOURCE_EXPORT_CLAS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_530__CLASS_SOURCE_EXPORT_CLAS.val, "CLASS_SOURCE_EXPORT_CLASS", sizeof (meltcdat->dstr_530__CLASS_SOURCE_EXPORT_CLAS.val)-1); meltcdat->dstr_530__CLASS_SOURCE_EXPORT_CLAS.val[25] = (char)0 ; meltcdat->dstr_530__CLASS_SOURCE_EXPORT_CLAS.slen = 25 ; MELT_LOCATION("warmelt-macro.melt:709:/ iniobj"); /*iniobj dobj_531__CLASS_SOURCE_EXPORT_CLASS*/ /*_._VALDATA___V625*/ meltfptr[624] = (melt_ptr_t )&meltcdat->dobj_531__CLASS_SOURCE_EXPORT_CLASS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_531__CLASS_SOURCE_EXPORT_CLASS", 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_531__CLASS_SOURCE_EXPORT_CLASS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_531__CLASS_SOURCE_EXPORT_CLASS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_531__CLASS_SOURCE_EXPORT_CLASS.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_531__CLASS_SOURCE_EXPORT_CLASS.obj_hash = 1046341802; meltcdat->dobj_531__CLASS_SOURCE_EXPORT_CLASS.obj_len = 8; /*inistring dstr_532__CLASS_SOURCE_EXPORT_CLAS*/ /*_._VALSTR___V626*/ meltfptr[625] = (melt_ptr_t) &meltcdat->dstr_532__CLASS_SOURCE_EXPORT_CLAS; meltcdat->dstr_532__CLASS_SOURCE_EXPORT_CLAS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_532__CLASS_SOURCE_EXPORT_CLAS.val, "CLASS_SOURCE_EXPORT_CLASS", sizeof (meltcdat->dstr_532__CLASS_SOURCE_EXPORT_CLAS.val)-1); meltcdat->dstr_532__CLASS_SOURCE_EXPORT_CLAS.val[25] = (char)0 ; meltcdat->dstr_532__CLASS_SOURCE_EXPORT_CLAS.slen = 25 ; /*inimult dtup_533_syCLASS_SOURCE_EXPORT_CLASS*/ /*_._VALTUP___V627*/ meltfptr[626] = (melt_ptr_t) &meltcdat->dtup_533_syCLASS_SOURCE_EXPORT_CLASS; meltcdat->dtup_533_syCLASS_SOURCE_EXPORT_CLASS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_533_syCLASS_SOURCE_EXPORT_CLASS.nbval = 5; /*inimult dtup_534_syCLASS_SOURCE_EXPORT_CLASS*/ /*_._VALTUP___V628*/ meltfptr[627] = (melt_ptr_t) &meltcdat->dtup_534_syCLASS_SOURCE_EXPORT_CLASS; meltcdat->dtup_534_syCLASS_SOURCE_EXPORT_CLASS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_534_syCLASS_SOURCE_EXPORT_CLASS.nbval = 3; /*iniobj dsym_535__CLASS_SOURCE_EXPORT_ANY_MACRO*/ /*uniqueobj*/ if (!/*_._VALDATA___V629*/ meltfptr[628]) /*_._VALDATA___V629*/ meltfptr[628] = (melt_ptr_t )&meltcdat->dsym_535__CLASS_SOURCE_EXPORT_ANY_MACRO; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_535__CLASS_SOURCE_EXPORT_ANY_MACRO", 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_535__CLASS_SOURCE_EXPORT_ANY_MACRO", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_535__CLASS_SOURCE_EXPORT_ANY_MACRO.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_535__CLASS_SOURCE_EXPORT_ANY_MACRO.obj_hash = 1065289873; meltcdat->dsym_535__CLASS_SOURCE_EXPORT_ANY_MACRO.obj_len = 3; /*inistring dstr_536__CLASS_SOURCE_EXPORT_ANY_*/ /*_._VALSTR___V630*/ meltfptr[629] = (melt_ptr_t) &meltcdat->dstr_536__CLASS_SOURCE_EXPORT_ANY_; meltcdat->dstr_536__CLASS_SOURCE_EXPORT_ANY_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_536__CLASS_SOURCE_EXPORT_ANY_.val, "CLASS_SOURCE_EXPORT_ANY_MACRO", sizeof (meltcdat->dstr_536__CLASS_SOURCE_EXPORT_ANY_.val)-1); meltcdat->dstr_536__CLASS_SOURCE_EXPORT_ANY_.val[29] = (char)0 ; meltcdat->dstr_536__CLASS_SOURCE_EXPORT_ANY_.slen = 29 ; MELT_LOCATION("warmelt-macro.melt:717:/ iniobj"); /*iniobj dobj_537__CLASS_SOURCE_EXPORT_ANY_MACRO*/ /*_._VALDATA___V631*/ meltfptr[630] = (melt_ptr_t )&meltcdat->dobj_537__CLASS_SOURCE_EXPORT_ANY_MACRO; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_537__CLASS_SOURCE_EXPORT_ANY_MACRO", 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_537__CLASS_SOURCE_EXPORT_ANY_MACRO", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_537__CLASS_SOURCE_EXPORT_ANY_MACRO.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_537__CLASS_SOURCE_EXPORT_ANY_MACRO.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_537__CLASS_SOURCE_EXPORT_ANY_MACRO.obj_hash = 466287167; meltcdat->dobj_537__CLASS_SOURCE_EXPORT_ANY_MACRO.obj_len = 8; /*inistring dstr_538__CLASS_SOURCE_EXPORT_ANY_*/ /*_._VALSTR___V632*/ meltfptr[631] = (melt_ptr_t) &meltcdat->dstr_538__CLASS_SOURCE_EXPORT_ANY_; meltcdat->dstr_538__CLASS_SOURCE_EXPORT_ANY_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_538__CLASS_SOURCE_EXPORT_ANY_.val, "CLASS_SOURCE_EXPORT_ANY_MACRO", sizeof (meltcdat->dstr_538__CLASS_SOURCE_EXPORT_ANY_.val)-1); meltcdat->dstr_538__CLASS_SOURCE_EXPORT_ANY_.val[29] = (char)0 ; meltcdat->dstr_538__CLASS_SOURCE_EXPORT_ANY_.slen = 29 ; /*inimult dtup_539_syCLASS_SOURCE_EXPORT_ANY_MACRO*/ /*_._VALTUP___V633*/ meltfptr[632] = (melt_ptr_t) &meltcdat->dtup_539_syCLASS_SOURCE_EXPORT_ANY_MACRO; meltcdat->dtup_539_syCLASS_SOURCE_EXPORT_ANY_MACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_539_syCLASS_SOURCE_EXPORT_ANY_MACRO.nbval = 4; /*inimult dtup_540_syCLASS_SOURCE_EXPORT_ANY_MACRO*/ /*_._VALTUP___V638*/ meltfptr[637] = (melt_ptr_t) &meltcdat->dtup_540_syCLASS_SOURCE_EXPORT_ANY_MACRO; meltcdat->dtup_540_syCLASS_SOURCE_EXPORT_ANY_MACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_540_syCLASS_SOURCE_EXPORT_ANY_MACRO.nbval = 4; /*iniobj dsym_541__SEXPMAC_MNAME*/ /*uniqueobj*/ if (!/*_._VALDATA___V639*/ meltfptr[638]) /*_._VALDATA___V639*/ meltfptr[638] = (melt_ptr_t )&meltcdat->dsym_541__SEXPMAC_MNAME; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_541__SEXPMAC_MNAME", 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_541__SEXPMAC_MNAME", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_541__SEXPMAC_MNAME.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_541__SEXPMAC_MNAME.obj_hash = 179808938; meltcdat->dsym_541__SEXPMAC_MNAME.obj_len = 3; /*inistring dstr_542__SEXPMAC_MNAME*/ /*_._VALSTR___V640*/ meltfptr[639] = (melt_ptr_t) &meltcdat->dstr_542__SEXPMAC_MNAME; meltcdat->dstr_542__SEXPMAC_MNAME.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_542__SEXPMAC_MNAME.val, "SEXPMAC_MNAME", sizeof (meltcdat->dstr_542__SEXPMAC_MNAME.val)-1); meltcdat->dstr_542__SEXPMAC_MNAME.val[13] = (char)0 ; meltcdat->dstr_542__SEXPMAC_MNAME.slen = 13 ; /*^iniobj*/ /*iniobj dobj_543__SEXPMAC_MNAME*/ /*_._VALDATA___V634*/ meltfptr[633] = (melt_ptr_t )&meltcdat->dobj_543__SEXPMAC_MNAME; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_543__SEXPMAC_MNAME", 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_543__SEXPMAC_MNAME", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_543__SEXPMAC_MNAME.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_543__SEXPMAC_MNAME.obj_num = 2; meltcdat->dobj_543__SEXPMAC_MNAME.obj_hash = 564308950; meltcdat->dobj_543__SEXPMAC_MNAME.obj_len = 4; /*inistring dstr_544__SEXPMAC_MNAME*/ /*_._VALSTR___V635*/ meltfptr[634] = (melt_ptr_t) &meltcdat->dstr_544__SEXPMAC_MNAME; meltcdat->dstr_544__SEXPMAC_MNAME.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_544__SEXPMAC_MNAME.val, "SEXPMAC_MNAME", sizeof (meltcdat->dstr_544__SEXPMAC_MNAME.val)-1); meltcdat->dstr_544__SEXPMAC_MNAME.val[13] = (char)0 ; meltcdat->dstr_544__SEXPMAC_MNAME.slen = 13 ; /*iniobj dsym_545__SEXPMAC_DOC*/ /*uniqueobj*/ if (!/*_._VALDATA___V641*/ meltfptr[640]) /*_._VALDATA___V641*/ meltfptr[640] = (melt_ptr_t )&meltcdat->dsym_545__SEXPMAC_DOC; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_545__SEXPMAC_DOC", 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_545__SEXPMAC_DOC", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_545__SEXPMAC_DOC.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_545__SEXPMAC_DOC.obj_hash = 738660567; meltcdat->dsym_545__SEXPMAC_DOC.obj_len = 3; /*inistring dstr_546__SEXPMAC_DOC*/ /*_._VALSTR___V642*/ meltfptr[641] = (melt_ptr_t) &meltcdat->dstr_546__SEXPMAC_DOC; meltcdat->dstr_546__SEXPMAC_DOC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_546__SEXPMAC_DOC.val, "SEXPMAC_DOC", sizeof (meltcdat->dstr_546__SEXPMAC_DOC.val)-1); meltcdat->dstr_546__SEXPMAC_DOC.val[11] = (char)0 ; meltcdat->dstr_546__SEXPMAC_DOC.slen = 11 ; /*^iniobj*/ /*iniobj dobj_547__SEXPMAC_DOC*/ /*_._VALDATA___V636*/ meltfptr[635] = (melt_ptr_t )&meltcdat->dobj_547__SEXPMAC_DOC; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_547__SEXPMAC_DOC", 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_547__SEXPMAC_DOC", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_547__SEXPMAC_DOC.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_547__SEXPMAC_DOC.obj_num = 3; meltcdat->dobj_547__SEXPMAC_DOC.obj_hash = 888815687; meltcdat->dobj_547__SEXPMAC_DOC.obj_len = 4; /*inistring dstr_548__SEXPMAC_DOC*/ /*_._VALSTR___V637*/ meltfptr[636] = (melt_ptr_t) &meltcdat->dstr_548__SEXPMAC_DOC; meltcdat->dstr_548__SEXPMAC_DOC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_548__SEXPMAC_DOC.val, "SEXPMAC_DOC", sizeof (meltcdat->dstr_548__SEXPMAC_DOC.val)-1); meltcdat->dstr_548__SEXPMAC_DOC.val[11] = (char)0 ; meltcdat->dstr_548__SEXPMAC_DOC.slen = 11 ; /*iniobj dsym_549__CLASS_SOURCE_EXPORT_MACRO*/ /*uniqueobj*/ if (!/*_._VALDATA___V643*/ meltfptr[642]) /*_._VALDATA___V643*/ meltfptr[642] = (melt_ptr_t )&meltcdat->dsym_549__CLASS_SOURCE_EXPORT_MACRO; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_549__CLASS_SOURCE_EXPORT_MACRO", 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_549__CLASS_SOURCE_EXPORT_MACRO", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_549__CLASS_SOURCE_EXPORT_MACRO.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_549__CLASS_SOURCE_EXPORT_MACRO.obj_hash = 228690420; meltcdat->dsym_549__CLASS_SOURCE_EXPORT_MACRO.obj_len = 3; /*inistring dstr_550__CLASS_SOURCE_EXPORT_MACR*/ /*_._VALSTR___V644*/ meltfptr[643] = (melt_ptr_t) &meltcdat->dstr_550__CLASS_SOURCE_EXPORT_MACR; meltcdat->dstr_550__CLASS_SOURCE_EXPORT_MACR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_550__CLASS_SOURCE_EXPORT_MACR.val, "CLASS_SOURCE_EXPORT_MACRO", sizeof (meltcdat->dstr_550__CLASS_SOURCE_EXPORT_MACR.val)-1); meltcdat->dstr_550__CLASS_SOURCE_EXPORT_MACR.val[25] = (char)0 ; meltcdat->dstr_550__CLASS_SOURCE_EXPORT_MACR.slen = 25 ; MELT_LOCATION("warmelt-macro.melt:729:/ iniobj"); /*iniobj dobj_551__CLASS_SOURCE_EXPORT_MACRO*/ /*_._VALDATA___V645*/ meltfptr[644] = (melt_ptr_t )&meltcdat->dobj_551__CLASS_SOURCE_EXPORT_MACRO; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_551__CLASS_SOURCE_EXPORT_MACRO", 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_551__CLASS_SOURCE_EXPORT_MACRO", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_551__CLASS_SOURCE_EXPORT_MACRO.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_551__CLASS_SOURCE_EXPORT_MACRO.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_551__CLASS_SOURCE_EXPORT_MACRO.obj_hash = 984588037; meltcdat->dobj_551__CLASS_SOURCE_EXPORT_MACRO.obj_len = 8; /*inistring dstr_552__CLASS_SOURCE_EXPORT_MACR*/ /*_._VALSTR___V646*/ meltfptr[645] = (melt_ptr_t) &meltcdat->dstr_552__CLASS_SOURCE_EXPORT_MACR; meltcdat->dstr_552__CLASS_SOURCE_EXPORT_MACR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_552__CLASS_SOURCE_EXPORT_MACR.val, "CLASS_SOURCE_EXPORT_MACRO", sizeof (meltcdat->dstr_552__CLASS_SOURCE_EXPORT_MACR.val)-1); meltcdat->dstr_552__CLASS_SOURCE_EXPORT_MACR.val[25] = (char)0 ; meltcdat->dstr_552__CLASS_SOURCE_EXPORT_MACR.slen = 25 ; /*inimult dtup_553_syCLASS_SOURCE_EXPORT_MACRO*/ /*_._VALTUP___V647*/ meltfptr[646] = (melt_ptr_t) &meltcdat->dtup_553_syCLASS_SOURCE_EXPORT_MACRO; meltcdat->dtup_553_syCLASS_SOURCE_EXPORT_MACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_553_syCLASS_SOURCE_EXPORT_MACRO.nbval = 5; /*inimult dtup_554_syCLASS_SOURCE_EXPORT_MACRO*/ /*_._VALTUP___V650*/ meltfptr[649] = (melt_ptr_t) &meltcdat->dtup_554_syCLASS_SOURCE_EXPORT_MACRO; meltcdat->dtup_554_syCLASS_SOURCE_EXPORT_MACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_554_syCLASS_SOURCE_EXPORT_MACRO.nbval = 5; /*iniobj dsym_555__SEXPMAC_MVAL*/ /*uniqueobj*/ if (!/*_._VALDATA___V651*/ meltfptr[650]) /*_._VALDATA___V651*/ meltfptr[650] = (melt_ptr_t )&meltcdat->dsym_555__SEXPMAC_MVAL; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_555__SEXPMAC_MVAL", 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_555__SEXPMAC_MVAL", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_555__SEXPMAC_MVAL.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_555__SEXPMAC_MVAL.obj_hash = 95565036; meltcdat->dsym_555__SEXPMAC_MVAL.obj_len = 3; /*inistring dstr_556__SEXPMAC_MVAL*/ /*_._VALSTR___V652*/ meltfptr[651] = (melt_ptr_t) &meltcdat->dstr_556__SEXPMAC_MVAL; meltcdat->dstr_556__SEXPMAC_MVAL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_556__SEXPMAC_MVAL.val, "SEXPMAC_MVAL", sizeof (meltcdat->dstr_556__SEXPMAC_MVAL.val)-1); meltcdat->dstr_556__SEXPMAC_MVAL.val[12] = (char)0 ; meltcdat->dstr_556__SEXPMAC_MVAL.slen = 12 ; /*^iniobj*/ /*iniobj dobj_557__SEXPMAC_MVAL*/ /*_._VALDATA___V648*/ meltfptr[647] = (melt_ptr_t )&meltcdat->dobj_557__SEXPMAC_MVAL; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_557__SEXPMAC_MVAL", 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_557__SEXPMAC_MVAL", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_557__SEXPMAC_MVAL.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_557__SEXPMAC_MVAL.obj_num = 4; meltcdat->dobj_557__SEXPMAC_MVAL.obj_hash = 223479259; meltcdat->dobj_557__SEXPMAC_MVAL.obj_len = 4; /*inistring dstr_558__SEXPMAC_MVAL*/ /*_._VALSTR___V649*/ meltfptr[648] = (melt_ptr_t) &meltcdat->dstr_558__SEXPMAC_MVAL; meltcdat->dstr_558__SEXPMAC_MVAL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_558__SEXPMAC_MVAL.val, "SEXPMAC_MVAL", sizeof (meltcdat->dstr_558__SEXPMAC_MVAL.val)-1); meltcdat->dstr_558__SEXPMAC_MVAL.val[12] = (char)0 ; meltcdat->dstr_558__SEXPMAC_MVAL.slen = 12 ; /*iniobj dsym_559__CLASS_SOURCE_EXPORT_DEFMACRO*/ /*uniqueobj*/ if (!/*_._VALDATA___V653*/ meltfptr[652]) /*_._VALDATA___V653*/ meltfptr[652] = (melt_ptr_t )&meltcdat->dsym_559__CLASS_SOURCE_EXPORT_DEFMACRO; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_559__CLASS_SOURCE_EXPORT_DEFMACRO", 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_559__CLASS_SOURCE_EXPORT_DEFMACRO", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_559__CLASS_SOURCE_EXPORT_DEFMACRO.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_559__CLASS_SOURCE_EXPORT_DEFMACRO.obj_hash = 264829623; meltcdat->dsym_559__CLASS_SOURCE_EXPORT_DEFMACRO.obj_len = 3; /*inistring dstr_560__CLASS_SOURCE_EXPORT_DEFM*/ /*_._VALSTR___V654*/ meltfptr[653] = (melt_ptr_t) &meltcdat->dstr_560__CLASS_SOURCE_EXPORT_DEFM; meltcdat->dstr_560__CLASS_SOURCE_EXPORT_DEFM.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_560__CLASS_SOURCE_EXPORT_DEFM.val, "CLASS_SOURCE_EXPORT_DEFMACRO", sizeof (meltcdat->dstr_560__CLASS_SOURCE_EXPORT_DEFM.val)-1); meltcdat->dstr_560__CLASS_SOURCE_EXPORT_DEFM.val[28] = (char)0 ; meltcdat->dstr_560__CLASS_SOURCE_EXPORT_DEFM.slen = 28 ; MELT_LOCATION("warmelt-macro.melt:739:/ iniobj"); /*iniobj dobj_561__CLASS_SOURCE_EXPORT_DEFMACRO*/ /*_._VALDATA___V655*/ meltfptr[654] = (melt_ptr_t )&meltcdat->dobj_561__CLASS_SOURCE_EXPORT_DEFMACRO; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_561__CLASS_SOURCE_EXPORT_DEFMACRO", 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_561__CLASS_SOURCE_EXPORT_DEFMACRO", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_561__CLASS_SOURCE_EXPORT_DEFMACRO.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_561__CLASS_SOURCE_EXPORT_DEFMACRO.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_561__CLASS_SOURCE_EXPORT_DEFMACRO.obj_hash = 399085751; meltcdat->dobj_561__CLASS_SOURCE_EXPORT_DEFMACRO.obj_len = 8; /*inistring dstr_562__CLASS_SOURCE_EXPORT_DEFM*/ /*_._VALSTR___V656*/ meltfptr[655] = (melt_ptr_t) &meltcdat->dstr_562__CLASS_SOURCE_EXPORT_DEFM; meltcdat->dstr_562__CLASS_SOURCE_EXPORT_DEFM.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_562__CLASS_SOURCE_EXPORT_DEFM.val, "CLASS_SOURCE_EXPORT_DEFMACRO", sizeof (meltcdat->dstr_562__CLASS_SOURCE_EXPORT_DEFM.val)-1); meltcdat->dstr_562__CLASS_SOURCE_EXPORT_DEFM.val[28] = (char)0 ; meltcdat->dstr_562__CLASS_SOURCE_EXPORT_DEFM.slen = 28 ; /*inimult dtup_563_syCLASS_SOURCE_EXPORT_DEFMACRO*/ /*_._VALTUP___V657*/ meltfptr[656] = (melt_ptr_t) &meltcdat->dtup_563_syCLASS_SOURCE_EXPORT_DEFMACRO; meltcdat->dtup_563_syCLASS_SOURCE_EXPORT_DEFMACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_563_syCLASS_SOURCE_EXPORT_DEFMACRO.nbval = 5; /*inimult dtup_564_syCLASS_SOURCE_EXPORT_DEFMACRO*/ /*_._VALTUP___V658*/ meltfptr[657] = (melt_ptr_t) &meltcdat->dtup_564_syCLASS_SOURCE_EXPORT_DEFMACRO; meltcdat->dtup_564_syCLASS_SOURCE_EXPORT_DEFMACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_564_syCLASS_SOURCE_EXPORT_DEFMACRO.nbval = 4; /*iniobj dsym_565__CLASS_SOURCE_EXPORT_PATMACRO*/ /*uniqueobj*/ if (!/*_._VALDATA___V659*/ meltfptr[658]) /*_._VALDATA___V659*/ meltfptr[658] = (melt_ptr_t )&meltcdat->dsym_565__CLASS_SOURCE_EXPORT_PATMACRO; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_565__CLASS_SOURCE_EXPORT_PATMACRO", 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_565__CLASS_SOURCE_EXPORT_PATMACRO", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_565__CLASS_SOURCE_EXPORT_PATMACRO.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_565__CLASS_SOURCE_EXPORT_PATMACRO.obj_hash = 991451453; meltcdat->dsym_565__CLASS_SOURCE_EXPORT_PATMACRO.obj_len = 3; /*inistring dstr_566__CLASS_SOURCE_EXPORT_PATM*/ /*_._VALSTR___V660*/ meltfptr[659] = (melt_ptr_t) &meltcdat->dstr_566__CLASS_SOURCE_EXPORT_PATM; meltcdat->dstr_566__CLASS_SOURCE_EXPORT_PATM.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_566__CLASS_SOURCE_EXPORT_PATM.val, "CLASS_SOURCE_EXPORT_PATMACRO", sizeof (meltcdat->dstr_566__CLASS_SOURCE_EXPORT_PATM.val)-1); meltcdat->dstr_566__CLASS_SOURCE_EXPORT_PATM.val[28] = (char)0 ; meltcdat->dstr_566__CLASS_SOURCE_EXPORT_PATM.slen = 28 ; MELT_LOCATION("warmelt-macro.melt:748:/ iniobj"); /*iniobj dobj_567__CLASS_SOURCE_EXPORT_PATMACRO*/ /*_._VALDATA___V661*/ meltfptr[660] = (melt_ptr_t )&meltcdat->dobj_567__CLASS_SOURCE_EXPORT_PATMACRO; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_567__CLASS_SOURCE_EXPORT_PATMACRO", 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_567__CLASS_SOURCE_EXPORT_PATMACRO", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_567__CLASS_SOURCE_EXPORT_PATMACRO.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_567__CLASS_SOURCE_EXPORT_PATMACRO.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_567__CLASS_SOURCE_EXPORT_PATMACRO.obj_hash = 589652682; meltcdat->dobj_567__CLASS_SOURCE_EXPORT_PATMACRO.obj_len = 8; /*inistring dstr_568__CLASS_SOURCE_EXPORT_PATM*/ /*_._VALSTR___V662*/ meltfptr[661] = (melt_ptr_t) &meltcdat->dstr_568__CLASS_SOURCE_EXPORT_PATM; meltcdat->dstr_568__CLASS_SOURCE_EXPORT_PATM.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_568__CLASS_SOURCE_EXPORT_PATM.val, "CLASS_SOURCE_EXPORT_PATMACRO", sizeof (meltcdat->dstr_568__CLASS_SOURCE_EXPORT_PATM.val)-1); meltcdat->dstr_568__CLASS_SOURCE_EXPORT_PATM.val[28] = (char)0 ; meltcdat->dstr_568__CLASS_SOURCE_EXPORT_PATM.slen = 28 ; /*inimult dtup_569_syCLASS_SOURCE_EXPORT_PATMACRO*/ /*_._VALTUP___V663*/ meltfptr[662] = (melt_ptr_t) &meltcdat->dtup_569_syCLASS_SOURCE_EXPORT_PATMACRO; meltcdat->dtup_569_syCLASS_SOURCE_EXPORT_PATMACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_569_syCLASS_SOURCE_EXPORT_PATMACRO.nbval = 6; /*inimult dtup_570_syCLASS_SOURCE_EXPORT_PATMACRO*/ /*_._VALTUP___V666*/ meltfptr[665] = (melt_ptr_t) &meltcdat->dtup_570_syCLASS_SOURCE_EXPORT_PATMACRO; meltcdat->dtup_570_syCLASS_SOURCE_EXPORT_PATMACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_570_syCLASS_SOURCE_EXPORT_PATMACRO.nbval = 6; /*iniobj dsym_571__SEXPPAT_PVAL*/ /*uniqueobj*/ if (!/*_._VALDATA___V667*/ meltfptr[666]) /*_._VALDATA___V667*/ meltfptr[666] = (melt_ptr_t )&meltcdat->dsym_571__SEXPPAT_PVAL; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_571__SEXPPAT_PVAL", 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_571__SEXPPAT_PVAL", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_571__SEXPPAT_PVAL.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_571__SEXPPAT_PVAL.obj_hash = 727802015; meltcdat->dsym_571__SEXPPAT_PVAL.obj_len = 3; /*inistring dstr_572__SEXPPAT_PVAL*/ /*_._VALSTR___V668*/ meltfptr[667] = (melt_ptr_t) &meltcdat->dstr_572__SEXPPAT_PVAL; meltcdat->dstr_572__SEXPPAT_PVAL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_572__SEXPPAT_PVAL.val, "SEXPPAT_PVAL", sizeof (meltcdat->dstr_572__SEXPPAT_PVAL.val)-1); meltcdat->dstr_572__SEXPPAT_PVAL.val[12] = (char)0 ; meltcdat->dstr_572__SEXPPAT_PVAL.slen = 12 ; /*^iniobj*/ /*iniobj dobj_573__SEXPPAT_PVAL*/ /*_._VALDATA___V664*/ meltfptr[663] = (melt_ptr_t )&meltcdat->dobj_573__SEXPPAT_PVAL; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_573__SEXPPAT_PVAL", 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_573__SEXPPAT_PVAL", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_573__SEXPPAT_PVAL.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_573__SEXPPAT_PVAL.obj_num = 5; meltcdat->dobj_573__SEXPPAT_PVAL.obj_hash = 230529212; meltcdat->dobj_573__SEXPPAT_PVAL.obj_len = 4; /*inistring dstr_574__SEXPPAT_PVAL*/ /*_._VALSTR___V665*/ meltfptr[664] = (melt_ptr_t) &meltcdat->dstr_574__SEXPPAT_PVAL; meltcdat->dstr_574__SEXPPAT_PVAL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_574__SEXPPAT_PVAL.val, "SEXPPAT_PVAL", sizeof (meltcdat->dstr_574__SEXPPAT_PVAL.val)-1); meltcdat->dstr_574__SEXPPAT_PVAL.val[12] = (char)0 ; meltcdat->dstr_574__SEXPPAT_PVAL.slen = 12 ; /*iniobj dsym_575__CLASS_SOURCE_EXPORT_SYNONYM*/ /*uniqueobj*/ if (!/*_._VALDATA___V669*/ meltfptr[668]) /*_._VALDATA___V669*/ meltfptr[668] = (melt_ptr_t )&meltcdat->dsym_575__CLASS_SOURCE_EXPORT_SYNONYM; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_575__CLASS_SOURCE_EXPORT_SYNONYM", 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_575__CLASS_SOURCE_EXPORT_SYNONYM", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_575__CLASS_SOURCE_EXPORT_SYNONYM.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_575__CLASS_SOURCE_EXPORT_SYNONYM.obj_hash = 648101459; meltcdat->dsym_575__CLASS_SOURCE_EXPORT_SYNONYM.obj_len = 3; /*inistring dstr_576__CLASS_SOURCE_EXPORT_SYNO*/ /*_._VALSTR___V670*/ meltfptr[669] = (melt_ptr_t) &meltcdat->dstr_576__CLASS_SOURCE_EXPORT_SYNO; meltcdat->dstr_576__CLASS_SOURCE_EXPORT_SYNO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_576__CLASS_SOURCE_EXPORT_SYNO.val, "CLASS_SOURCE_EXPORT_SYNONYM", sizeof (meltcdat->dstr_576__CLASS_SOURCE_EXPORT_SYNO.val)-1); meltcdat->dstr_576__CLASS_SOURCE_EXPORT_SYNO.val[27] = (char)0 ; meltcdat->dstr_576__CLASS_SOURCE_EXPORT_SYNO.slen = 27 ; MELT_LOCATION("warmelt-macro.melt:760:/ iniobj"); /*iniobj dobj_577__CLASS_SOURCE_EXPORT_SYNONYM*/ /*_._VALDATA___V671*/ meltfptr[670] = (melt_ptr_t )&meltcdat->dobj_577__CLASS_SOURCE_EXPORT_SYNONYM; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_577__CLASS_SOURCE_EXPORT_SYNONYM", 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_577__CLASS_SOURCE_EXPORT_SYNONYM", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_577__CLASS_SOURCE_EXPORT_SYNONYM.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_577__CLASS_SOURCE_EXPORT_SYNONYM.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_577__CLASS_SOURCE_EXPORT_SYNONYM.obj_hash = 90659356; meltcdat->dobj_577__CLASS_SOURCE_EXPORT_SYNONYM.obj_len = 8; /*inistring dstr_578__CLASS_SOURCE_EXPORT_SYNO*/ /*_._VALSTR___V672*/ meltfptr[671] = (melt_ptr_t) &meltcdat->dstr_578__CLASS_SOURCE_EXPORT_SYNO; meltcdat->dstr_578__CLASS_SOURCE_EXPORT_SYNO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_578__CLASS_SOURCE_EXPORT_SYNO.val, "CLASS_SOURCE_EXPORT_SYNONYM", sizeof (meltcdat->dstr_578__CLASS_SOURCE_EXPORT_SYNO.val)-1); meltcdat->dstr_578__CLASS_SOURCE_EXPORT_SYNO.val[27] = (char)0 ; meltcdat->dstr_578__CLASS_SOURCE_EXPORT_SYNO.slen = 27 ; /*inimult dtup_579_syCLASS_SOURCE_EXPORT_SYNONYM*/ /*_._VALTUP___V673*/ meltfptr[672] = (melt_ptr_t) &meltcdat->dtup_579_syCLASS_SOURCE_EXPORT_SYNONYM; meltcdat->dtup_579_syCLASS_SOURCE_EXPORT_SYNONYM.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_579_syCLASS_SOURCE_EXPORT_SYNONYM.nbval = 4; /*inimult dtup_580_syCLASS_SOURCE_EXPORT_SYNONYM*/ /*_._VALTUP___V680*/ meltfptr[679] = (melt_ptr_t) &meltcdat->dtup_580_syCLASS_SOURCE_EXPORT_SYNONYM; meltcdat->dtup_580_syCLASS_SOURCE_EXPORT_SYNONYM.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_580_syCLASS_SOURCE_EXPORT_SYNONYM.nbval = 5; /*iniobj dsym_581__SEXPSYN_NEWNAME*/ /*uniqueobj*/ if (!/*_._VALDATA___V681*/ meltfptr[680]) /*_._VALDATA___V681*/ meltfptr[680] = (melt_ptr_t )&meltcdat->dsym_581__SEXPSYN_NEWNAME; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_581__SEXPSYN_NEWNAME", 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_581__SEXPSYN_NEWNAME", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_581__SEXPSYN_NEWNAME.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_581__SEXPSYN_NEWNAME.obj_hash = 389558226; meltcdat->dsym_581__SEXPSYN_NEWNAME.obj_len = 3; /*inistring dstr_582__SEXPSYN_NEWNAME*/ /*_._VALSTR___V682*/ meltfptr[681] = (melt_ptr_t) &meltcdat->dstr_582__SEXPSYN_NEWNAME; meltcdat->dstr_582__SEXPSYN_NEWNAME.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_582__SEXPSYN_NEWNAME.val, "SEXPSYN_NEWNAME", sizeof (meltcdat->dstr_582__SEXPSYN_NEWNAME.val)-1); meltcdat->dstr_582__SEXPSYN_NEWNAME.val[15] = (char)0 ; meltcdat->dstr_582__SEXPSYN_NEWNAME.slen = 15 ; /*^iniobj*/ /*iniobj dobj_583__SEXPSYN_NEWNAME*/ /*_._VALDATA___V674*/ meltfptr[673] = (melt_ptr_t )&meltcdat->dobj_583__SEXPSYN_NEWNAME; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_583__SEXPSYN_NEWNAME", 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_583__SEXPSYN_NEWNAME", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_583__SEXPSYN_NEWNAME.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_583__SEXPSYN_NEWNAME.obj_num = 2; meltcdat->dobj_583__SEXPSYN_NEWNAME.obj_hash = 569332500; meltcdat->dobj_583__SEXPSYN_NEWNAME.obj_len = 4; /*inistring dstr_584__SEXPSYN_NEWNAME*/ /*_._VALSTR___V675*/ meltfptr[674] = (melt_ptr_t) &meltcdat->dstr_584__SEXPSYN_NEWNAME; meltcdat->dstr_584__SEXPSYN_NEWNAME.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_584__SEXPSYN_NEWNAME.val, "SEXPSYN_NEWNAME", sizeof (meltcdat->dstr_584__SEXPSYN_NEWNAME.val)-1); meltcdat->dstr_584__SEXPSYN_NEWNAME.val[15] = (char)0 ; meltcdat->dstr_584__SEXPSYN_NEWNAME.slen = 15 ; /*iniobj dsym_585__SEXPSYN_OLDNAME*/ /*uniqueobj*/ if (!/*_._VALDATA___V683*/ meltfptr[682]) /*_._VALDATA___V683*/ meltfptr[682] = (melt_ptr_t )&meltcdat->dsym_585__SEXPSYN_OLDNAME; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_585__SEXPSYN_OLDNAME", 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_585__SEXPSYN_OLDNAME", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_585__SEXPSYN_OLDNAME.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_585__SEXPSYN_OLDNAME.obj_hash = 233669029; meltcdat->dsym_585__SEXPSYN_OLDNAME.obj_len = 3; /*inistring dstr_586__SEXPSYN_OLDNAME*/ /*_._VALSTR___V684*/ meltfptr[683] = (melt_ptr_t) &meltcdat->dstr_586__SEXPSYN_OLDNAME; meltcdat->dstr_586__SEXPSYN_OLDNAME.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_586__SEXPSYN_OLDNAME.val, "SEXPSYN_OLDNAME", sizeof (meltcdat->dstr_586__SEXPSYN_OLDNAME.val)-1); meltcdat->dstr_586__SEXPSYN_OLDNAME.val[15] = (char)0 ; meltcdat->dstr_586__SEXPSYN_OLDNAME.slen = 15 ; /*^iniobj*/ /*iniobj dobj_587__SEXPSYN_OLDNAME*/ /*_._VALDATA___V676*/ meltfptr[675] = (melt_ptr_t )&meltcdat->dobj_587__SEXPSYN_OLDNAME; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_587__SEXPSYN_OLDNAME", 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_587__SEXPSYN_OLDNAME", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_587__SEXPSYN_OLDNAME.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_587__SEXPSYN_OLDNAME.obj_num = 3; meltcdat->dobj_587__SEXPSYN_OLDNAME.obj_hash = 619572925; meltcdat->dobj_587__SEXPSYN_OLDNAME.obj_len = 4; /*inistring dstr_588__SEXPSYN_OLDNAME*/ /*_._VALSTR___V677*/ meltfptr[676] = (melt_ptr_t) &meltcdat->dstr_588__SEXPSYN_OLDNAME; meltcdat->dstr_588__SEXPSYN_OLDNAME.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_588__SEXPSYN_OLDNAME.val, "SEXPSYN_OLDNAME", sizeof (meltcdat->dstr_588__SEXPSYN_OLDNAME.val)-1); meltcdat->dstr_588__SEXPSYN_OLDNAME.val[15] = (char)0 ; meltcdat->dstr_588__SEXPSYN_OLDNAME.slen = 15 ; /*iniobj dsym_589__SEXPSYN_DOC*/ /*uniqueobj*/ if (!/*_._VALDATA___V685*/ meltfptr[684]) /*_._VALDATA___V685*/ meltfptr[684] = (melt_ptr_t )&meltcdat->dsym_589__SEXPSYN_DOC; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_589__SEXPSYN_DOC", 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_589__SEXPSYN_DOC", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_589__SEXPSYN_DOC.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_589__SEXPSYN_DOC.obj_hash = 963580937; meltcdat->dsym_589__SEXPSYN_DOC.obj_len = 3; /*inistring dstr_590__SEXPSYN_DOC*/ /*_._VALSTR___V686*/ meltfptr[685] = (melt_ptr_t) &meltcdat->dstr_590__SEXPSYN_DOC; meltcdat->dstr_590__SEXPSYN_DOC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_590__SEXPSYN_DOC.val, "SEXPSYN_DOC", sizeof (meltcdat->dstr_590__SEXPSYN_DOC.val)-1); meltcdat->dstr_590__SEXPSYN_DOC.val[11] = (char)0 ; meltcdat->dstr_590__SEXPSYN_DOC.slen = 11 ; /*^iniobj*/ /*iniobj dobj_591__SEXPSYN_DOC*/ /*_._VALDATA___V678*/ meltfptr[677] = (melt_ptr_t )&meltcdat->dobj_591__SEXPSYN_DOC; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_591__SEXPSYN_DOC", 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_591__SEXPSYN_DOC", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_591__SEXPSYN_DOC.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_591__SEXPSYN_DOC.obj_num = 4; meltcdat->dobj_591__SEXPSYN_DOC.obj_hash = 787546802; meltcdat->dobj_591__SEXPSYN_DOC.obj_len = 4; /*inistring dstr_592__SEXPSYN_DOC*/ /*_._VALSTR___V679*/ meltfptr[678] = (melt_ptr_t) &meltcdat->dstr_592__SEXPSYN_DOC; meltcdat->dstr_592__SEXPSYN_DOC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_592__SEXPSYN_DOC.val, "SEXPSYN_DOC", sizeof (meltcdat->dstr_592__SEXPSYN_DOC.val)-1); meltcdat->dstr_592__SEXPSYN_DOC.val[11] = (char)0 ; meltcdat->dstr_592__SEXPSYN_DOC.slen = 11 ; /*iniobj dsym_593__CLASS_SOURCE_DEFINITION*/ /*uniqueobj*/ if (!/*_._VALDATA___V687*/ meltfptr[686]) /*_._VALDATA___V687*/ meltfptr[686] = (melt_ptr_t )&meltcdat->dsym_593__CLASS_SOURCE_DEFINITION; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_593__CLASS_SOURCE_DEFINITION", 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_593__CLASS_SOURCE_DEFINITION", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_593__CLASS_SOURCE_DEFINITION.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_593__CLASS_SOURCE_DEFINITION.obj_hash = 208176225; meltcdat->dsym_593__CLASS_SOURCE_DEFINITION.obj_len = 3; /*inistring dstr_594__CLASS_SOURCE_DEFINITION*/ /*_._VALSTR___V688*/ meltfptr[687] = (melt_ptr_t) &meltcdat->dstr_594__CLASS_SOURCE_DEFINITION; meltcdat->dstr_594__CLASS_SOURCE_DEFINITION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_594__CLASS_SOURCE_DEFINITION.val, "CLASS_SOURCE_DEFINITION", sizeof (meltcdat->dstr_594__CLASS_SOURCE_DEFINITION.val)-1); meltcdat->dstr_594__CLASS_SOURCE_DEFINITION.val[23] = (char)0 ; meltcdat->dstr_594__CLASS_SOURCE_DEFINITION.slen = 23 ; MELT_LOCATION("warmelt-macro.melt:771:/ iniobj"); /*iniobj dobj_595__CLASS_SOURCE_DEFINITION*/ /*_._VALDATA___V689*/ meltfptr[688] = (melt_ptr_t )&meltcdat->dobj_595__CLASS_SOURCE_DEFINITION; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_595__CLASS_SOURCE_DEFINITION", 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_595__CLASS_SOURCE_DEFINITION", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_595__CLASS_SOURCE_DEFINITION.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_595__CLASS_SOURCE_DEFINITION.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_595__CLASS_SOURCE_DEFINITION.obj_hash = 615276313; meltcdat->dobj_595__CLASS_SOURCE_DEFINITION.obj_len = 8; /*inistring dstr_596__CLASS_SOURCE_DEFINITION*/ /*_._VALSTR___V690*/ meltfptr[689] = (melt_ptr_t) &meltcdat->dstr_596__CLASS_SOURCE_DEFINITION; meltcdat->dstr_596__CLASS_SOURCE_DEFINITION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_596__CLASS_SOURCE_DEFINITION.val, "CLASS_SOURCE_DEFINITION", sizeof (meltcdat->dstr_596__CLASS_SOURCE_DEFINITION.val)-1); meltcdat->dstr_596__CLASS_SOURCE_DEFINITION.val[23] = (char)0 ; meltcdat->dstr_596__CLASS_SOURCE_DEFINITION.slen = 23 ; /*inimult dtup_597_syCLASS_SOURCE_DEFINITION*/ /*_._VALTUP___V691*/ meltfptr[690] = (melt_ptr_t) &meltcdat->dtup_597_syCLASS_SOURCE_DEFINITION; meltcdat->dtup_597_syCLASS_SOURCE_DEFINITION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_597_syCLASS_SOURCE_DEFINITION.nbval = 4; /*inimult dtup_598_syCLASS_SOURCE_DEFINITION*/ /*_._VALTUP___V696*/ meltfptr[695] = (melt_ptr_t) &meltcdat->dtup_598_syCLASS_SOURCE_DEFINITION; meltcdat->dtup_598_syCLASS_SOURCE_DEFINITION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_598_syCLASS_SOURCE_DEFINITION.nbval = 4; /*iniobj dsym_599__SDEF_NAME*/ /*uniqueobj*/ if (!/*_._VALDATA___V697*/ meltfptr[696]) /*_._VALDATA___V697*/ meltfptr[696] = (melt_ptr_t )&meltcdat->dsym_599__SDEF_NAME; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_599__SDEF_NAME", 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_599__SDEF_NAME", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_599__SDEF_NAME.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_599__SDEF_NAME.obj_hash = 768386693; meltcdat->dsym_599__SDEF_NAME.obj_len = 3; /*inistring dstr_600__SDEF_NAME*/ /*_._VALSTR___V698*/ meltfptr[697] = (melt_ptr_t) &meltcdat->dstr_600__SDEF_NAME; meltcdat->dstr_600__SDEF_NAME.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_600__SDEF_NAME.val, "SDEF_NAME", sizeof (meltcdat->dstr_600__SDEF_NAME.val)-1); meltcdat->dstr_600__SDEF_NAME.val[9] = (char)0 ; meltcdat->dstr_600__SDEF_NAME.slen = 9 ; /*^iniobj*/ /*iniobj dobj_601__SDEF_NAME*/ /*_._VALDATA___V692*/ meltfptr[691] = (melt_ptr_t )&meltcdat->dobj_601__SDEF_NAME; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_601__SDEF_NAME", 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_601__SDEF_NAME", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_601__SDEF_NAME.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_601__SDEF_NAME.obj_num = 2; meltcdat->dobj_601__SDEF_NAME.obj_hash = 816689060; meltcdat->dobj_601__SDEF_NAME.obj_len = 4; /*inistring dstr_602__SDEF_NAME*/ /*_._VALSTR___V693*/ meltfptr[692] = (melt_ptr_t) &meltcdat->dstr_602__SDEF_NAME; meltcdat->dstr_602__SDEF_NAME.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_602__SDEF_NAME.val, "SDEF_NAME", sizeof (meltcdat->dstr_602__SDEF_NAME.val)-1); meltcdat->dstr_602__SDEF_NAME.val[9] = (char)0 ; meltcdat->dstr_602__SDEF_NAME.slen = 9 ; /*iniobj dsym_603__SDEF_DOC*/ /*uniqueobj*/ if (!/*_._VALDATA___V699*/ meltfptr[698]) /*_._VALDATA___V699*/ meltfptr[698] = (melt_ptr_t )&meltcdat->dsym_603__SDEF_DOC; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_603__SDEF_DOC", 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_603__SDEF_DOC", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_603__SDEF_DOC.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_603__SDEF_DOC.obj_hash = 1012921623; meltcdat->dsym_603__SDEF_DOC.obj_len = 3; /*inistring dstr_604__SDEF_DOC*/ /*_._VALSTR___V700*/ meltfptr[699] = (melt_ptr_t) &meltcdat->dstr_604__SDEF_DOC; meltcdat->dstr_604__SDEF_DOC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_604__SDEF_DOC.val, "SDEF_DOC", sizeof (meltcdat->dstr_604__SDEF_DOC.val)-1); meltcdat->dstr_604__SDEF_DOC.val[8] = (char)0 ; meltcdat->dstr_604__SDEF_DOC.slen = 8 ; /*^iniobj*/ /*iniobj dobj_605__SDEF_DOC*/ /*_._VALDATA___V694*/ meltfptr[693] = (melt_ptr_t )&meltcdat->dobj_605__SDEF_DOC; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_605__SDEF_DOC", 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_605__SDEF_DOC", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_605__SDEF_DOC.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_605__SDEF_DOC.obj_num = 3; meltcdat->dobj_605__SDEF_DOC.obj_hash = 887298775; meltcdat->dobj_605__SDEF_DOC.obj_len = 4; /*inistring dstr_606__SDEF_DOC*/ /*_._VALSTR___V695*/ meltfptr[694] = (melt_ptr_t) &meltcdat->dstr_606__SDEF_DOC; meltcdat->dstr_606__SDEF_DOC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_606__SDEF_DOC.val, "SDEF_DOC", sizeof (meltcdat->dstr_606__SDEF_DOC.val)-1); meltcdat->dstr_606__SDEF_DOC.val[8] = (char)0 ; meltcdat->dstr_606__SDEF_DOC.slen = 8 ; /*iniobj dsym_607__CLASS_SOURCE_DEFVAR*/ /*uniqueobj*/ if (!/*_._VALDATA___V701*/ meltfptr[700]) /*_._VALDATA___V701*/ meltfptr[700] = (melt_ptr_t )&meltcdat->dsym_607__CLASS_SOURCE_DEFVAR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_607__CLASS_SOURCE_DEFVAR", 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_607__CLASS_SOURCE_DEFVAR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_607__CLASS_SOURCE_DEFVAR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_607__CLASS_SOURCE_DEFVAR.obj_hash = 22086502; meltcdat->dsym_607__CLASS_SOURCE_DEFVAR.obj_len = 3; /*inistring dstr_608__CLASS_SOURCE_DEFVAR*/ /*_._VALSTR___V702*/ meltfptr[701] = (melt_ptr_t) &meltcdat->dstr_608__CLASS_SOURCE_DEFVAR; meltcdat->dstr_608__CLASS_SOURCE_DEFVAR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_608__CLASS_SOURCE_DEFVAR.val, "CLASS_SOURCE_DEFVAR", sizeof (meltcdat->dstr_608__CLASS_SOURCE_DEFVAR.val)-1); meltcdat->dstr_608__CLASS_SOURCE_DEFVAR.val[19] = (char)0 ; meltcdat->dstr_608__CLASS_SOURCE_DEFVAR.slen = 19 ; MELT_LOCATION("warmelt-macro.melt:781:/ iniobj"); /*iniobj dobj_609__CLASS_SOURCE_DEFVAR*/ /*_._VALDATA___V703*/ meltfptr[702] = (melt_ptr_t )&meltcdat->dobj_609__CLASS_SOURCE_DEFVAR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_609__CLASS_SOURCE_DEFVAR", 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_609__CLASS_SOURCE_DEFVAR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_609__CLASS_SOURCE_DEFVAR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_609__CLASS_SOURCE_DEFVAR.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_609__CLASS_SOURCE_DEFVAR.obj_hash = 482038639; meltcdat->dobj_609__CLASS_SOURCE_DEFVAR.obj_len = 8; /*inistring dstr_610__CLASS_SOURCE_DEFVAR*/ /*_._VALSTR___V704*/ meltfptr[703] = (melt_ptr_t) &meltcdat->dstr_610__CLASS_SOURCE_DEFVAR; meltcdat->dstr_610__CLASS_SOURCE_DEFVAR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_610__CLASS_SOURCE_DEFVAR.val, "CLASS_SOURCE_DEFVAR", sizeof (meltcdat->dstr_610__CLASS_SOURCE_DEFVAR.val)-1); meltcdat->dstr_610__CLASS_SOURCE_DEFVAR.val[19] = (char)0 ; meltcdat->dstr_610__CLASS_SOURCE_DEFVAR.slen = 19 ; /*inimult dtup_611_syCLASS_SOURCE_DEFVAR*/ /*_._VALTUP___V705*/ meltfptr[704] = (melt_ptr_t) &meltcdat->dtup_611_syCLASS_SOURCE_DEFVAR; meltcdat->dtup_611_syCLASS_SOURCE_DEFVAR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_611_syCLASS_SOURCE_DEFVAR.nbval = 5; /*inimult dtup_612_syCLASS_SOURCE_DEFVAR*/ /*_._VALTUP___V706*/ meltfptr[705] = (melt_ptr_t) &meltcdat->dtup_612_syCLASS_SOURCE_DEFVAR; meltcdat->dtup_612_syCLASS_SOURCE_DEFVAR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_612_syCLASS_SOURCE_DEFVAR.nbval = 4; /*iniobj dsym_613__CLASS_SOURCE_DEFINE*/ /*uniqueobj*/ if (!/*_._VALDATA___V707*/ meltfptr[706]) /*_._VALDATA___V707*/ meltfptr[706] = (melt_ptr_t )&meltcdat->dsym_613__CLASS_SOURCE_DEFINE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_613__CLASS_SOURCE_DEFINE", 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_613__CLASS_SOURCE_DEFINE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_613__CLASS_SOURCE_DEFINE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_613__CLASS_SOURCE_DEFINE.obj_hash = 111330536; meltcdat->dsym_613__CLASS_SOURCE_DEFINE.obj_len = 3; /*inistring dstr_614__CLASS_SOURCE_DEFINE*/ /*_._VALSTR___V708*/ meltfptr[707] = (melt_ptr_t) &meltcdat->dstr_614__CLASS_SOURCE_DEFINE; meltcdat->dstr_614__CLASS_SOURCE_DEFINE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_614__CLASS_SOURCE_DEFINE.val, "CLASS_SOURCE_DEFINE", sizeof (meltcdat->dstr_614__CLASS_SOURCE_DEFINE.val)-1); meltcdat->dstr_614__CLASS_SOURCE_DEFINE.val[19] = (char)0 ; meltcdat->dstr_614__CLASS_SOURCE_DEFINE.slen = 19 ; MELT_LOCATION("warmelt-macro.melt:787:/ iniobj"); /*iniobj dobj_615__CLASS_SOURCE_DEFINE*/ /*_._VALDATA___V709*/ meltfptr[708] = (melt_ptr_t )&meltcdat->dobj_615__CLASS_SOURCE_DEFINE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_615__CLASS_SOURCE_DEFINE", 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_615__CLASS_SOURCE_DEFINE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_615__CLASS_SOURCE_DEFINE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_615__CLASS_SOURCE_DEFINE.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_615__CLASS_SOURCE_DEFINE.obj_hash = 17921454; meltcdat->dobj_615__CLASS_SOURCE_DEFINE.obj_len = 8; /*inistring dstr_616__CLASS_SOURCE_DEFINE*/ /*_._VALSTR___V710*/ meltfptr[709] = (melt_ptr_t) &meltcdat->dstr_616__CLASS_SOURCE_DEFINE; meltcdat->dstr_616__CLASS_SOURCE_DEFINE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_616__CLASS_SOURCE_DEFINE.val, "CLASS_SOURCE_DEFINE", sizeof (meltcdat->dstr_616__CLASS_SOURCE_DEFINE.val)-1); meltcdat->dstr_616__CLASS_SOURCE_DEFINE.val[19] = (char)0 ; meltcdat->dstr_616__CLASS_SOURCE_DEFINE.slen = 19 ; /*inimult dtup_617_syCLASS_SOURCE_DEFINE*/ /*_._VALTUP___V711*/ meltfptr[710] = (melt_ptr_t) &meltcdat->dtup_617_syCLASS_SOURCE_DEFINE; meltcdat->dtup_617_syCLASS_SOURCE_DEFINE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_617_syCLASS_SOURCE_DEFINE.nbval = 5; /*inimult dtup_618_syCLASS_SOURCE_DEFINE*/ /*_._VALTUP___V714*/ meltfptr[713] = (melt_ptr_t) &meltcdat->dtup_618_syCLASS_SOURCE_DEFINE; meltcdat->dtup_618_syCLASS_SOURCE_DEFINE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_618_syCLASS_SOURCE_DEFINE.nbval = 5; /*iniobj dsym_619__SDEFINE_BODY*/ /*uniqueobj*/ if (!/*_._VALDATA___V715*/ meltfptr[714]) /*_._VALDATA___V715*/ meltfptr[714] = (melt_ptr_t )&meltcdat->dsym_619__SDEFINE_BODY; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_619__SDEFINE_BODY", 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_619__SDEFINE_BODY", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_619__SDEFINE_BODY.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_619__SDEFINE_BODY.obj_hash = 63508154; meltcdat->dsym_619__SDEFINE_BODY.obj_len = 3; /*inistring dstr_620__SDEFINE_BODY*/ /*_._VALSTR___V716*/ meltfptr[715] = (melt_ptr_t) &meltcdat->dstr_620__SDEFINE_BODY; meltcdat->dstr_620__SDEFINE_BODY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_620__SDEFINE_BODY.val, "SDEFINE_BODY", sizeof (meltcdat->dstr_620__SDEFINE_BODY.val)-1); meltcdat->dstr_620__SDEFINE_BODY.val[12] = (char)0 ; meltcdat->dstr_620__SDEFINE_BODY.slen = 12 ; /*^iniobj*/ /*iniobj dobj_621__SDEFINE_BODY*/ /*_._VALDATA___V712*/ meltfptr[711] = (melt_ptr_t )&meltcdat->dobj_621__SDEFINE_BODY; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_621__SDEFINE_BODY", 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_621__SDEFINE_BODY", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_621__SDEFINE_BODY.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_621__SDEFINE_BODY.obj_num = 4; meltcdat->dobj_621__SDEFINE_BODY.obj_hash = 303739813; meltcdat->dobj_621__SDEFINE_BODY.obj_len = 4; /*inistring dstr_622__SDEFINE_BODY*/ /*_._VALSTR___V713*/ meltfptr[712] = (melt_ptr_t) &meltcdat->dstr_622__SDEFINE_BODY; meltcdat->dstr_622__SDEFINE_BODY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_622__SDEFINE_BODY.val, "SDEFINE_BODY", sizeof (meltcdat->dstr_622__SDEFINE_BODY.val)-1); meltcdat->dstr_622__SDEFINE_BODY.val[12] = (char)0 ; meltcdat->dstr_622__SDEFINE_BODY.slen = 12 ; /*iniobj dsym_623__CLASS_SOURCE_DEFINITION_FORMAL*/ /*uniqueobj*/ if (!/*_._VALDATA___V717*/ meltfptr[716]) /*_._VALDATA___V717*/ meltfptr[716] = (melt_ptr_t )&meltcdat->dsym_623__CLASS_SOURCE_DEFINITION_FORMAL; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_623__CLASS_SOURCE_DEFINITION_FORMAL", 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_623__CLASS_SOURCE_DEFINITION_FORMAL", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_623__CLASS_SOURCE_DEFINITION_FORMAL.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_623__CLASS_SOURCE_DEFINITION_FORMAL.obj_hash = 444695028; meltcdat->dsym_623__CLASS_SOURCE_DEFINITION_FORMAL.obj_len = 3; /*inistring dstr_624__CLASS_SOURCE_DEFINITION_*/ /*_._VALSTR___V718*/ meltfptr[717] = (melt_ptr_t) &meltcdat->dstr_624__CLASS_SOURCE_DEFINITION_; meltcdat->dstr_624__CLASS_SOURCE_DEFINITION_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_624__CLASS_SOURCE_DEFINITION_.val, "CLASS_SOURCE_DEFINITION_FORMAL", sizeof (meltcdat->dstr_624__CLASS_SOURCE_DEFINITION_.val)-1); meltcdat->dstr_624__CLASS_SOURCE_DEFINITION_.val[30] = (char)0 ; meltcdat->dstr_624__CLASS_SOURCE_DEFINITION_.slen = 30 ; MELT_LOCATION("warmelt-macro.melt:795:/ iniobj"); /*iniobj dobj_625__CLASS_SOURCE_DEFINITION_FORMAL*/ /*_._VALDATA___V719*/ meltfptr[718] = (melt_ptr_t )&meltcdat->dobj_625__CLASS_SOURCE_DEFINITION_FORMAL; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_625__CLASS_SOURCE_DEFINITION_FORMAL", 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_625__CLASS_SOURCE_DEFINITION_FORMAL", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_625__CLASS_SOURCE_DEFINITION_FORMAL.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_625__CLASS_SOURCE_DEFINITION_FORMAL.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_625__CLASS_SOURCE_DEFINITION_FORMAL.obj_hash = 534147661; meltcdat->dobj_625__CLASS_SOURCE_DEFINITION_FORMAL.obj_len = 8; /*inistring dstr_626__CLASS_SOURCE_DEFINITION_*/ /*_._VALSTR___V720*/ meltfptr[719] = (melt_ptr_t) &meltcdat->dstr_626__CLASS_SOURCE_DEFINITION_; meltcdat->dstr_626__CLASS_SOURCE_DEFINITION_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_626__CLASS_SOURCE_DEFINITION_.val, "CLASS_SOURCE_DEFINITION_FORMAL", sizeof (meltcdat->dstr_626__CLASS_SOURCE_DEFINITION_.val)-1); meltcdat->dstr_626__CLASS_SOURCE_DEFINITION_.val[30] = (char)0 ; meltcdat->dstr_626__CLASS_SOURCE_DEFINITION_.slen = 30 ; /*inimult dtup_627_syCLASS_SOURCE_DEFINITION_FORMAL*/ /*_._VALTUP___V721*/ meltfptr[720] = (melt_ptr_t) &meltcdat->dtup_627_syCLASS_SOURCE_DEFINITION_FORMAL; meltcdat->dtup_627_syCLASS_SOURCE_DEFINITION_FORMAL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_627_syCLASS_SOURCE_DEFINITION_FORMAL.nbval = 5; /*inimult dtup_628_syCLASS_SOURCE_DEFINITION_FORMAL*/ /*_._VALTUP___V724*/ meltfptr[723] = (melt_ptr_t) &meltcdat->dtup_628_syCLASS_SOURCE_DEFINITION_FORMAL; meltcdat->dtup_628_syCLASS_SOURCE_DEFINITION_FORMAL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_628_syCLASS_SOURCE_DEFINITION_FORMAL.nbval = 5; /*iniobj dsym_629__SFORMAL_ARGS*/ /*uniqueobj*/ if (!/*_._VALDATA___V725*/ meltfptr[724]) /*_._VALDATA___V725*/ meltfptr[724] = (melt_ptr_t )&meltcdat->dsym_629__SFORMAL_ARGS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_629__SFORMAL_ARGS", 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_629__SFORMAL_ARGS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_629__SFORMAL_ARGS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_629__SFORMAL_ARGS.obj_hash = 190096587; meltcdat->dsym_629__SFORMAL_ARGS.obj_len = 3; /*inistring dstr_630__SFORMAL_ARGS*/ /*_._VALSTR___V726*/ meltfptr[725] = (melt_ptr_t) &meltcdat->dstr_630__SFORMAL_ARGS; meltcdat->dstr_630__SFORMAL_ARGS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_630__SFORMAL_ARGS.val, "SFORMAL_ARGS", sizeof (meltcdat->dstr_630__SFORMAL_ARGS.val)-1); meltcdat->dstr_630__SFORMAL_ARGS.val[12] = (char)0 ; meltcdat->dstr_630__SFORMAL_ARGS.slen = 12 ; /*^iniobj*/ /*iniobj dobj_631__SFORMAL_ARGS*/ /*_._VALDATA___V722*/ meltfptr[721] = (melt_ptr_t )&meltcdat->dobj_631__SFORMAL_ARGS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_631__SFORMAL_ARGS", 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_631__SFORMAL_ARGS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_631__SFORMAL_ARGS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_631__SFORMAL_ARGS.obj_num = 4; meltcdat->dobj_631__SFORMAL_ARGS.obj_hash = 817694861; meltcdat->dobj_631__SFORMAL_ARGS.obj_len = 4; /*inistring dstr_632__SFORMAL_ARGS*/ /*_._VALSTR___V723*/ meltfptr[722] = (melt_ptr_t) &meltcdat->dstr_632__SFORMAL_ARGS; meltcdat->dstr_632__SFORMAL_ARGS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_632__SFORMAL_ARGS.val, "SFORMAL_ARGS", sizeof (meltcdat->dstr_632__SFORMAL_ARGS.val)-1); meltcdat->dstr_632__SFORMAL_ARGS.val[12] = (char)0 ; meltcdat->dstr_632__SFORMAL_ARGS.slen = 12 ; /*iniobj dsym_633__CLASS_SOURCE_DEFUN*/ /*uniqueobj*/ if (!/*_._VALDATA___V727*/ meltfptr[726]) /*_._VALDATA___V727*/ meltfptr[726] = (melt_ptr_t )&meltcdat->dsym_633__CLASS_SOURCE_DEFUN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_633__CLASS_SOURCE_DEFUN", 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_633__CLASS_SOURCE_DEFUN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_633__CLASS_SOURCE_DEFUN.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_633__CLASS_SOURCE_DEFUN.obj_hash = 872711296; meltcdat->dsym_633__CLASS_SOURCE_DEFUN.obj_len = 3; /*inistring dstr_634__CLASS_SOURCE_DEFUN*/ /*_._VALSTR___V728*/ meltfptr[727] = (melt_ptr_t) &meltcdat->dstr_634__CLASS_SOURCE_DEFUN; meltcdat->dstr_634__CLASS_SOURCE_DEFUN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_634__CLASS_SOURCE_DEFUN.val, "CLASS_SOURCE_DEFUN", sizeof (meltcdat->dstr_634__CLASS_SOURCE_DEFUN.val)-1); meltcdat->dstr_634__CLASS_SOURCE_DEFUN.val[18] = (char)0 ; meltcdat->dstr_634__CLASS_SOURCE_DEFUN.slen = 18 ; MELT_LOCATION("warmelt-macro.melt:803:/ iniobj"); /*iniobj dobj_635__CLASS_SOURCE_DEFUN*/ /*_._VALDATA___V729*/ meltfptr[728] = (melt_ptr_t )&meltcdat->dobj_635__CLASS_SOURCE_DEFUN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_635__CLASS_SOURCE_DEFUN", 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_635__CLASS_SOURCE_DEFUN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_635__CLASS_SOURCE_DEFUN.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_635__CLASS_SOURCE_DEFUN.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_635__CLASS_SOURCE_DEFUN.obj_hash = 493698519; meltcdat->dobj_635__CLASS_SOURCE_DEFUN.obj_len = 8; /*inistring dstr_636__CLASS_SOURCE_DEFUN*/ /*_._VALSTR___V730*/ meltfptr[729] = (melt_ptr_t) &meltcdat->dstr_636__CLASS_SOURCE_DEFUN; meltcdat->dstr_636__CLASS_SOURCE_DEFUN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_636__CLASS_SOURCE_DEFUN.val, "CLASS_SOURCE_DEFUN", sizeof (meltcdat->dstr_636__CLASS_SOURCE_DEFUN.val)-1); meltcdat->dstr_636__CLASS_SOURCE_DEFUN.val[18] = (char)0 ; meltcdat->dstr_636__CLASS_SOURCE_DEFUN.slen = 18 ; /*inimult dtup_637_syCLASS_SOURCE_DEFUN*/ /*_._VALTUP___V731*/ meltfptr[730] = (melt_ptr_t) &meltcdat->dtup_637_syCLASS_SOURCE_DEFUN; meltcdat->dtup_637_syCLASS_SOURCE_DEFUN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_637_syCLASS_SOURCE_DEFUN.nbval = 6; /*inimult dtup_638_syCLASS_SOURCE_DEFUN*/ /*_._VALTUP___V734*/ meltfptr[733] = (melt_ptr_t) &meltcdat->dtup_638_syCLASS_SOURCE_DEFUN; meltcdat->dtup_638_syCLASS_SOURCE_DEFUN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_638_syCLASS_SOURCE_DEFUN.nbval = 6; /*iniobj dsym_639__SFUN_BODY*/ /*uniqueobj*/ if (!/*_._VALDATA___V735*/ meltfptr[734]) /*_._VALDATA___V735*/ meltfptr[734] = (melt_ptr_t )&meltcdat->dsym_639__SFUN_BODY; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_639__SFUN_BODY", 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_639__SFUN_BODY", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_639__SFUN_BODY.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_639__SFUN_BODY.obj_hash = 860615464; meltcdat->dsym_639__SFUN_BODY.obj_len = 3; /*inistring dstr_640__SFUN_BODY*/ /*_._VALSTR___V736*/ meltfptr[735] = (melt_ptr_t) &meltcdat->dstr_640__SFUN_BODY; meltcdat->dstr_640__SFUN_BODY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_640__SFUN_BODY.val, "SFUN_BODY", sizeof (meltcdat->dstr_640__SFUN_BODY.val)-1); meltcdat->dstr_640__SFUN_BODY.val[9] = (char)0 ; meltcdat->dstr_640__SFUN_BODY.slen = 9 ; /*^iniobj*/ /*iniobj dobj_641__SFUN_BODY*/ /*_._VALDATA___V732*/ meltfptr[731] = (melt_ptr_t )&meltcdat->dobj_641__SFUN_BODY; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_641__SFUN_BODY", 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_641__SFUN_BODY", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_641__SFUN_BODY.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_641__SFUN_BODY.obj_num = 5; meltcdat->dobj_641__SFUN_BODY.obj_hash = 398941515; meltcdat->dobj_641__SFUN_BODY.obj_len = 4; /*inistring dstr_642__SFUN_BODY*/ /*_._VALSTR___V733*/ meltfptr[732] = (melt_ptr_t) &meltcdat->dstr_642__SFUN_BODY; meltcdat->dstr_642__SFUN_BODY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_642__SFUN_BODY.val, "SFUN_BODY", sizeof (meltcdat->dstr_642__SFUN_BODY.val)-1); meltcdat->dstr_642__SFUN_BODY.val[9] = (char)0 ; meltcdat->dstr_642__SFUN_BODY.slen = 9 ; /*iniobj dsym_643__CLASS_SOURCE_DEFMACRO*/ /*uniqueobj*/ if (!/*_._VALDATA___V737*/ meltfptr[736]) /*_._VALDATA___V737*/ meltfptr[736] = (melt_ptr_t )&meltcdat->dsym_643__CLASS_SOURCE_DEFMACRO; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_643__CLASS_SOURCE_DEFMACRO", 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_643__CLASS_SOURCE_DEFMACRO", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_643__CLASS_SOURCE_DEFMACRO.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_643__CLASS_SOURCE_DEFMACRO.obj_hash = 693376164; meltcdat->dsym_643__CLASS_SOURCE_DEFMACRO.obj_len = 3; /*inistring dstr_644__CLASS_SOURCE_DEFMACRO*/ /*_._VALSTR___V738*/ meltfptr[737] = (melt_ptr_t) &meltcdat->dstr_644__CLASS_SOURCE_DEFMACRO; meltcdat->dstr_644__CLASS_SOURCE_DEFMACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_644__CLASS_SOURCE_DEFMACRO.val, "CLASS_SOURCE_DEFMACRO", sizeof (meltcdat->dstr_644__CLASS_SOURCE_DEFMACRO.val)-1); meltcdat->dstr_644__CLASS_SOURCE_DEFMACRO.val[21] = (char)0 ; meltcdat->dstr_644__CLASS_SOURCE_DEFMACRO.slen = 21 ; MELT_LOCATION("warmelt-macro.melt:813:/ iniobj"); /*iniobj dobj_645__CLASS_SOURCE_DEFMACRO*/ /*_._VALDATA___V739*/ meltfptr[738] = (melt_ptr_t )&meltcdat->dobj_645__CLASS_SOURCE_DEFMACRO; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_645__CLASS_SOURCE_DEFMACRO", 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_645__CLASS_SOURCE_DEFMACRO", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_645__CLASS_SOURCE_DEFMACRO.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_645__CLASS_SOURCE_DEFMACRO.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_645__CLASS_SOURCE_DEFMACRO.obj_hash = 930128287; meltcdat->dobj_645__CLASS_SOURCE_DEFMACRO.obj_len = 8; /*inistring dstr_646__CLASS_SOURCE_DEFMACRO*/ /*_._VALSTR___V740*/ meltfptr[739] = (melt_ptr_t) &meltcdat->dstr_646__CLASS_SOURCE_DEFMACRO; meltcdat->dstr_646__CLASS_SOURCE_DEFMACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_646__CLASS_SOURCE_DEFMACRO.val, "CLASS_SOURCE_DEFMACRO", sizeof (meltcdat->dstr_646__CLASS_SOURCE_DEFMACRO.val)-1); meltcdat->dstr_646__CLASS_SOURCE_DEFMACRO.val[21] = (char)0 ; meltcdat->dstr_646__CLASS_SOURCE_DEFMACRO.slen = 21 ; /*inimult dtup_647_syCLASS_SOURCE_DEFMACRO*/ /*_._VALTUP___V741*/ meltfptr[740] = (melt_ptr_t) &meltcdat->dtup_647_syCLASS_SOURCE_DEFMACRO; meltcdat->dtup_647_syCLASS_SOURCE_DEFMACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_647_syCLASS_SOURCE_DEFMACRO.nbval = 7; /*inimult dtup_648_syCLASS_SOURCE_DEFMACRO*/ /*_._VALTUP___V744*/ meltfptr[743] = (melt_ptr_t) &meltcdat->dtup_648_syCLASS_SOURCE_DEFMACRO; meltcdat->dtup_648_syCLASS_SOURCE_DEFMACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_648_syCLASS_SOURCE_DEFMACRO.nbval = 7; /*iniobj dsym_649__SMACRO_BINDING*/ /*uniqueobj*/ if (!/*_._VALDATA___V745*/ meltfptr[744]) /*_._VALDATA___V745*/ meltfptr[744] = (melt_ptr_t )&meltcdat->dsym_649__SMACRO_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_649__SMACRO_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_649__SMACRO_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_649__SMACRO_BINDING.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_649__SMACRO_BINDING.obj_hash = 307584269; meltcdat->dsym_649__SMACRO_BINDING.obj_len = 3; /*inistring dstr_650__SMACRO_BINDING*/ /*_._VALSTR___V746*/ meltfptr[745] = (melt_ptr_t) &meltcdat->dstr_650__SMACRO_BINDING; meltcdat->dstr_650__SMACRO_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_650__SMACRO_BINDING.val, "SMACRO_BINDING", sizeof (meltcdat->dstr_650__SMACRO_BINDING.val)-1); meltcdat->dstr_650__SMACRO_BINDING.val[14] = (char)0 ; meltcdat->dstr_650__SMACRO_BINDING.slen = 14 ; /*^iniobj*/ /*iniobj dobj_651__SMACRO_BINDING*/ /*_._VALDATA___V742*/ meltfptr[741] = (melt_ptr_t )&meltcdat->dobj_651__SMACRO_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_651__SMACRO_BINDING", 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_651__SMACRO_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_651__SMACRO_BINDING.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_651__SMACRO_BINDING.obj_num = 6; meltcdat->dobj_651__SMACRO_BINDING.obj_hash = 488882250; meltcdat->dobj_651__SMACRO_BINDING.obj_len = 4; /*inistring dstr_652__SMACRO_BINDING*/ /*_._VALSTR___V743*/ meltfptr[742] = (melt_ptr_t) &meltcdat->dstr_652__SMACRO_BINDING; meltcdat->dstr_652__SMACRO_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_652__SMACRO_BINDING.val, "SMACRO_BINDING", sizeof (meltcdat->dstr_652__SMACRO_BINDING.val)-1); meltcdat->dstr_652__SMACRO_BINDING.val[14] = (char)0 ; meltcdat->dstr_652__SMACRO_BINDING.slen = 14 ; /*iniobj dsym_653__CLASS_SOURCE_DEFMACRO_IN_LET*/ /*uniqueobj*/ if (!/*_._VALDATA___V747*/ meltfptr[746]) /*_._VALDATA___V747*/ meltfptr[746] = (melt_ptr_t )&meltcdat->dsym_653__CLASS_SOURCE_DEFMACRO_IN_LET; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_653__CLASS_SOURCE_DEFMACRO_IN_LET", 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_653__CLASS_SOURCE_DEFMACRO_IN_LET", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_653__CLASS_SOURCE_DEFMACRO_IN_LET.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_653__CLASS_SOURCE_DEFMACRO_IN_LET.obj_hash = 175355752; meltcdat->dsym_653__CLASS_SOURCE_DEFMACRO_IN_LET.obj_len = 3; /*inistring dstr_654__CLASS_SOURCE_DEFMACRO_IN*/ /*_._VALSTR___V748*/ meltfptr[747] = (melt_ptr_t) &meltcdat->dstr_654__CLASS_SOURCE_DEFMACRO_IN; meltcdat->dstr_654__CLASS_SOURCE_DEFMACRO_IN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_654__CLASS_SOURCE_DEFMACRO_IN.val, "CLASS_SOURCE_DEFMACRO_IN_LET", sizeof (meltcdat->dstr_654__CLASS_SOURCE_DEFMACRO_IN.val)-1); meltcdat->dstr_654__CLASS_SOURCE_DEFMACRO_IN.val[28] = (char)0 ; meltcdat->dstr_654__CLASS_SOURCE_DEFMACRO_IN.slen = 28 ; MELT_LOCATION("warmelt-macro.melt:819:/ iniobj"); /*iniobj dobj_655__CLASS_SOURCE_DEFMACRO_IN_LET*/ /*_._VALDATA___V749*/ meltfptr[748] = (melt_ptr_t )&meltcdat->dobj_655__CLASS_SOURCE_DEFMACRO_IN_LET; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_655__CLASS_SOURCE_DEFMACRO_IN_LET", 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_655__CLASS_SOURCE_DEFMACRO_IN_LET", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_655__CLASS_SOURCE_DEFMACRO_IN_LET.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_655__CLASS_SOURCE_DEFMACRO_IN_LET.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_655__CLASS_SOURCE_DEFMACRO_IN_LET.obj_hash = 238688538; meltcdat->dobj_655__CLASS_SOURCE_DEFMACRO_IN_LET.obj_len = 8; /*inistring dstr_656__CLASS_SOURCE_DEFMACRO_IN*/ /*_._VALSTR___V750*/ meltfptr[749] = (melt_ptr_t) &meltcdat->dstr_656__CLASS_SOURCE_DEFMACRO_IN; meltcdat->dstr_656__CLASS_SOURCE_DEFMACRO_IN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_656__CLASS_SOURCE_DEFMACRO_IN.val, "CLASS_SOURCE_DEFMACRO_IN_LET", sizeof (meltcdat->dstr_656__CLASS_SOURCE_DEFMACRO_IN.val)-1); meltcdat->dstr_656__CLASS_SOURCE_DEFMACRO_IN.val[28] = (char)0 ; meltcdat->dstr_656__CLASS_SOURCE_DEFMACRO_IN.slen = 28 ; /*inimult dtup_657_syCLASS_SOURCE_DEFMACRO_IN_LET*/ /*_._VALTUP___V751*/ meltfptr[750] = (melt_ptr_t) &meltcdat->dtup_657_syCLASS_SOURCE_DEFMACRO_IN_LET; meltcdat->dtup_657_syCLASS_SOURCE_DEFMACRO_IN_LET.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_657_syCLASS_SOURCE_DEFMACRO_IN_LET.nbval = 8; /*inimult dtup_658_syCLASS_SOURCE_DEFMACRO_IN_LET*/ /*_._VALTUP___V754*/ meltfptr[753] = (melt_ptr_t) &meltcdat->dtup_658_syCLASS_SOURCE_DEFMACRO_IN_LET; meltcdat->dtup_658_syCLASS_SOURCE_DEFMACRO_IN_LET.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_658_syCLASS_SOURCE_DEFMACRO_IN_LET.nbval = 8; /*iniobj dsym_659__SMACRO_SOURCELETBINDING*/ /*uniqueobj*/ if (!/*_._VALDATA___V755*/ meltfptr[754]) /*_._VALDATA___V755*/ meltfptr[754] = (melt_ptr_t )&meltcdat->dsym_659__SMACRO_SOURCELETBINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_659__SMACRO_SOURCELETBINDING", 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_659__SMACRO_SOURCELETBINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_659__SMACRO_SOURCELETBINDING.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_659__SMACRO_SOURCELETBINDING.obj_hash = 588139920; meltcdat->dsym_659__SMACRO_SOURCELETBINDING.obj_len = 3; /*inistring dstr_660__SMACRO_SOURCELETBINDING*/ /*_._VALSTR___V756*/ meltfptr[755] = (melt_ptr_t) &meltcdat->dstr_660__SMACRO_SOURCELETBINDING; meltcdat->dstr_660__SMACRO_SOURCELETBINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_660__SMACRO_SOURCELETBINDING.val, "SMACRO_SOURCELETBINDING", sizeof (meltcdat->dstr_660__SMACRO_SOURCELETBINDING.val)-1); meltcdat->dstr_660__SMACRO_SOURCELETBINDING.val[23] = (char)0 ; meltcdat->dstr_660__SMACRO_SOURCELETBINDING.slen = 23 ; /*^iniobj*/ /*iniobj dobj_661__SMACRO_SOURCELETBINDING*/ /*_._VALDATA___V752*/ meltfptr[751] = (melt_ptr_t )&meltcdat->dobj_661__SMACRO_SOURCELETBINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_661__SMACRO_SOURCELETBINDING", 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_661__SMACRO_SOURCELETBINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_661__SMACRO_SOURCELETBINDING.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_661__SMACRO_SOURCELETBINDING.obj_num = 7; meltcdat->dobj_661__SMACRO_SOURCELETBINDING.obj_hash = 531051980; meltcdat->dobj_661__SMACRO_SOURCELETBINDING.obj_len = 4; /*inistring dstr_662__SMACRO_SOURCELETBINDING*/ /*_._VALSTR___V753*/ meltfptr[752] = (melt_ptr_t) &meltcdat->dstr_662__SMACRO_SOURCELETBINDING; meltcdat->dstr_662__SMACRO_SOURCELETBINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_662__SMACRO_SOURCELETBINDING.val, "SMACRO_SOURCELETBINDING", sizeof (meltcdat->dstr_662__SMACRO_SOURCELETBINDING.val)-1); meltcdat->dstr_662__SMACRO_SOURCELETBINDING.val[23] = (char)0 ; meltcdat->dstr_662__SMACRO_SOURCELETBINDING.slen = 23 ; /*iniobj dsym_663__CLASS_DEFINED_MACRO_BINDING*/ /*uniqueobj*/ if (!/*_._VALDATA___V757*/ meltfptr[756]) /*_._VALDATA___V757*/ meltfptr[756] = (melt_ptr_t )&meltcdat->dsym_663__CLASS_DEFINED_MACRO_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_663__CLASS_DEFINED_MACRO_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_663__CLASS_DEFINED_MACRO_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_663__CLASS_DEFINED_MACRO_BINDING.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_663__CLASS_DEFINED_MACRO_BINDING.obj_hash = 548898461; meltcdat->dsym_663__CLASS_DEFINED_MACRO_BINDING.obj_len = 3; /*inistring dstr_664__CLASS_DEFINED_MACRO_BIND*/ /*_._VALSTR___V758*/ meltfptr[757] = (melt_ptr_t) &meltcdat->dstr_664__CLASS_DEFINED_MACRO_BIND; meltcdat->dstr_664__CLASS_DEFINED_MACRO_BIND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_664__CLASS_DEFINED_MACRO_BIND.val, "CLASS_DEFINED_MACRO_BINDING", sizeof (meltcdat->dstr_664__CLASS_DEFINED_MACRO_BIND.val)-1); meltcdat->dstr_664__CLASS_DEFINED_MACRO_BIND.val[27] = (char)0 ; meltcdat->dstr_664__CLASS_DEFINED_MACRO_BIND.slen = 27 ; /*iniobj dsym_665__CLASS_MACRO_BINDING*/ /*uniqueobj*/ if (!/*_._VALDATA___V759*/ meltfptr[758]) /*_._VALDATA___V759*/ meltfptr[758] = (melt_ptr_t )&meltcdat->dsym_665__CLASS_MACRO_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_665__CLASS_MACRO_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_665__CLASS_MACRO_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_665__CLASS_MACRO_BINDING.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_665__CLASS_MACRO_BINDING.obj_hash = 628198824; meltcdat->dsym_665__CLASS_MACRO_BINDING.obj_len = 3; /*inistring dstr_666__CLASS_MACRO_BINDING*/ /*_._VALSTR___V760*/ meltfptr[759] = (melt_ptr_t) &meltcdat->dstr_666__CLASS_MACRO_BINDING; meltcdat->dstr_666__CLASS_MACRO_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_666__CLASS_MACRO_BINDING.val, "CLASS_MACRO_BINDING", sizeof (meltcdat->dstr_666__CLASS_MACRO_BINDING.val)-1); meltcdat->dstr_666__CLASS_MACRO_BINDING.val[19] = (char)0 ; meltcdat->dstr_666__CLASS_MACRO_BINDING.slen = 19 ; MELT_LOCATION("warmelt-macro.melt:825:/ iniobj"); /*iniobj dobj_667__CLASS_DEFINED_MACRO_BINDING*/ /*_._VALDATA___V761*/ meltfptr[760] = (melt_ptr_t )&meltcdat->dobj_667__CLASS_DEFINED_MACRO_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_667__CLASS_DEFINED_MACRO_BINDING", 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_667__CLASS_DEFINED_MACRO_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_667__CLASS_DEFINED_MACRO_BINDING.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_667__CLASS_DEFINED_MACRO_BINDING.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_667__CLASS_DEFINED_MACRO_BINDING.obj_hash = 916212410; meltcdat->dobj_667__CLASS_DEFINED_MACRO_BINDING.obj_len = 8; /*inistring dstr_668__CLASS_DEFINED_MACRO_BIND*/ /*_._VALSTR___V762*/ meltfptr[761] = (melt_ptr_t) &meltcdat->dstr_668__CLASS_DEFINED_MACRO_BIND; meltcdat->dstr_668__CLASS_DEFINED_MACRO_BIND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_668__CLASS_DEFINED_MACRO_BIND.val, "CLASS_DEFINED_MACRO_BINDING", sizeof (meltcdat->dstr_668__CLASS_DEFINED_MACRO_BIND.val)-1); meltcdat->dstr_668__CLASS_DEFINED_MACRO_BIND.val[27] = (char)0 ; meltcdat->dstr_668__CLASS_DEFINED_MACRO_BIND.slen = 27 ; /*inimult dtup_669_syCLASS_DEFINED_MACRO_BINDING*/ /*_._VALTUP___V763*/ meltfptr[762] = (melt_ptr_t) &meltcdat->dtup_669_syCLASS_DEFINED_MACRO_BINDING; meltcdat->dtup_669_syCLASS_DEFINED_MACRO_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_669_syCLASS_DEFINED_MACRO_BINDING.nbval = 4; /*inimult dtup_670_syCLASS_DEFINED_MACRO_BINDING*/ /*_._VALTUP___V768*/ meltfptr[767] = (melt_ptr_t) &meltcdat->dtup_670_syCLASS_DEFINED_MACRO_BINDING; meltcdat->dtup_670_syCLASS_DEFINED_MACRO_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_670_syCLASS_DEFINED_MACRO_BINDING.nbval = 4; /*iniobj dsym_671__MBIND_DEFMACRO*/ /*uniqueobj*/ if (!/*_._VALDATA___V769*/ meltfptr[768]) /*_._VALDATA___V769*/ meltfptr[768] = (melt_ptr_t )&meltcdat->dsym_671__MBIND_DEFMACRO; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_671__MBIND_DEFMACRO", 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_671__MBIND_DEFMACRO", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_671__MBIND_DEFMACRO.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_671__MBIND_DEFMACRO.obj_hash = 286565277; meltcdat->dsym_671__MBIND_DEFMACRO.obj_len = 3; /*inistring dstr_672__MBIND_DEFMACRO*/ /*_._VALSTR___V770*/ meltfptr[769] = (melt_ptr_t) &meltcdat->dstr_672__MBIND_DEFMACRO; meltcdat->dstr_672__MBIND_DEFMACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_672__MBIND_DEFMACRO.val, "MBIND_DEFMACRO", sizeof (meltcdat->dstr_672__MBIND_DEFMACRO.val)-1); meltcdat->dstr_672__MBIND_DEFMACRO.val[14] = (char)0 ; meltcdat->dstr_672__MBIND_DEFMACRO.slen = 14 ; /*^iniobj*/ /*iniobj dobj_673__MBIND_DEFMACRO*/ /*_._VALDATA___V764*/ meltfptr[763] = (melt_ptr_t )&meltcdat->dobj_673__MBIND_DEFMACRO; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_673__MBIND_DEFMACRO", 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_673__MBIND_DEFMACRO", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_673__MBIND_DEFMACRO.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_673__MBIND_DEFMACRO.obj_num = 2; meltcdat->dobj_673__MBIND_DEFMACRO.obj_hash = 357576592; meltcdat->dobj_673__MBIND_DEFMACRO.obj_len = 4; /*inistring dstr_674__MBIND_DEFMACRO*/ /*_._VALSTR___V765*/ meltfptr[764] = (melt_ptr_t) &meltcdat->dstr_674__MBIND_DEFMACRO; meltcdat->dstr_674__MBIND_DEFMACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_674__MBIND_DEFMACRO.val, "MBIND_DEFMACRO", sizeof (meltcdat->dstr_674__MBIND_DEFMACRO.val)-1); meltcdat->dstr_674__MBIND_DEFMACRO.val[14] = (char)0 ; meltcdat->dstr_674__MBIND_DEFMACRO.slen = 14 ; /*iniobj dsym_675__MBIND_DATA*/ /*uniqueobj*/ if (!/*_._VALDATA___V771*/ meltfptr[770]) /*_._VALDATA___V771*/ meltfptr[770] = (melt_ptr_t )&meltcdat->dsym_675__MBIND_DATA; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_675__MBIND_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_675__MBIND_DATA", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_675__MBIND_DATA.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_675__MBIND_DATA.obj_hash = 145033206; meltcdat->dsym_675__MBIND_DATA.obj_len = 3; /*inistring dstr_676__MBIND_DATA*/ /*_._VALSTR___V772*/ meltfptr[771] = (melt_ptr_t) &meltcdat->dstr_676__MBIND_DATA; meltcdat->dstr_676__MBIND_DATA.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_676__MBIND_DATA.val, "MBIND_DATA", sizeof (meltcdat->dstr_676__MBIND_DATA.val)-1); meltcdat->dstr_676__MBIND_DATA.val[10] = (char)0 ; meltcdat->dstr_676__MBIND_DATA.slen = 10 ; /*^iniobj*/ /*iniobj dobj_677__MBIND_DATA*/ /*_._VALDATA___V766*/ meltfptr[765] = (melt_ptr_t )&meltcdat->dobj_677__MBIND_DATA; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_677__MBIND_DATA", 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_677__MBIND_DATA", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_677__MBIND_DATA.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_677__MBIND_DATA.obj_num = 3; meltcdat->dobj_677__MBIND_DATA.obj_hash = 384313565; meltcdat->dobj_677__MBIND_DATA.obj_len = 4; /*inistring dstr_678__MBIND_DATA*/ /*_._VALSTR___V767*/ meltfptr[766] = (melt_ptr_t) &meltcdat->dstr_678__MBIND_DATA; meltcdat->dstr_678__MBIND_DATA.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_678__MBIND_DATA.val, "MBIND_DATA", sizeof (meltcdat->dstr_678__MBIND_DATA.val)-1); meltcdat->dstr_678__MBIND_DATA.val[10] = (char)0 ; meltcdat->dstr_678__MBIND_DATA.slen = 10 ; /*iniobj dsym_679__CLASS_SOURCE_MACRO_INSTALLATION*/ /*uniqueobj*/ if (!/*_._VALDATA___V773*/ meltfptr[772]) /*_._VALDATA___V773*/ meltfptr[772] = (melt_ptr_t )&meltcdat->dsym_679__CLASS_SOURCE_MACRO_INSTALLATION; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_679__CLASS_SOURCE_MACRO_INSTALLATION", 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_679__CLASS_SOURCE_MACRO_INSTALLATION", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_679__CLASS_SOURCE_MACRO_INSTALLATION.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_679__CLASS_SOURCE_MACRO_INSTALLATION.obj_hash = 870436594; meltcdat->dsym_679__CLASS_SOURCE_MACRO_INSTALLATION.obj_len = 3; /*inistring dstr_680__CLASS_SOURCE_MACRO_INSTA*/ /*_._VALSTR___V774*/ meltfptr[773] = (melt_ptr_t) &meltcdat->dstr_680__CLASS_SOURCE_MACRO_INSTA; meltcdat->dstr_680__CLASS_SOURCE_MACRO_INSTA.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_680__CLASS_SOURCE_MACRO_INSTA.val, "CLASS_SOURCE_MACRO_INSTALLATION", sizeof (meltcdat->dstr_680__CLASS_SOURCE_MACRO_INSTA.val)-1); meltcdat->dstr_680__CLASS_SOURCE_MACRO_INSTA.val[31] = (char)0 ; meltcdat->dstr_680__CLASS_SOURCE_MACRO_INSTA.slen = 31 ; MELT_LOCATION("warmelt-macro.melt:833:/ iniobj"); /*iniobj dobj_681__CLASS_SOURCE_MACRO_INSTALLATION*/ /*_._VALDATA___V775*/ meltfptr[774] = (melt_ptr_t )&meltcdat->dobj_681__CLASS_SOURCE_MACRO_INSTALLATION; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_681__CLASS_SOURCE_MACRO_INSTALLATION", 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_681__CLASS_SOURCE_MACRO_INSTALLATION", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_681__CLASS_SOURCE_MACRO_INSTALLATION.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_681__CLASS_SOURCE_MACRO_INSTALLATION.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_681__CLASS_SOURCE_MACRO_INSTALLATION.obj_hash = 550802611; meltcdat->dobj_681__CLASS_SOURCE_MACRO_INSTALLATION.obj_len = 8; /*inistring dstr_682__CLASS_SOURCE_MACRO_INSTA*/ /*_._VALSTR___V776*/ meltfptr[775] = (melt_ptr_t) &meltcdat->dstr_682__CLASS_SOURCE_MACRO_INSTA; meltcdat->dstr_682__CLASS_SOURCE_MACRO_INSTA.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_682__CLASS_SOURCE_MACRO_INSTA.val, "CLASS_SOURCE_MACRO_INSTALLATION", sizeof (meltcdat->dstr_682__CLASS_SOURCE_MACRO_INSTA.val)-1); meltcdat->dstr_682__CLASS_SOURCE_MACRO_INSTA.val[31] = (char)0 ; meltcdat->dstr_682__CLASS_SOURCE_MACRO_INSTA.slen = 31 ; /*inimult dtup_683_syCLASS_SOURCE_MACRO_INSTALLATION*/ /*_._VALTUP___V777*/ meltfptr[776] = (melt_ptr_t) &meltcdat->dtup_683_syCLASS_SOURCE_MACRO_INSTALLATION; meltcdat->dtup_683_syCLASS_SOURCE_MACRO_INSTALLATION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_683_syCLASS_SOURCE_MACRO_INSTALLATION.nbval = 4; /*inimult dtup_684_syCLASS_SOURCE_MACRO_INSTALLATION*/ /*_._VALTUP___V782*/ meltfptr[781] = (melt_ptr_t) &meltcdat->dtup_684_syCLASS_SOURCE_MACRO_INSTALLATION; meltcdat->dtup_684_syCLASS_SOURCE_MACRO_INSTALLATION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_684_syCLASS_SOURCE_MACRO_INSTALLATION.nbval = 4; /*iniobj dsym_685__SMACINST_DEFMACRO*/ /*uniqueobj*/ if (!/*_._VALDATA___V783*/ meltfptr[782]) /*_._VALDATA___V783*/ meltfptr[782] = (melt_ptr_t )&meltcdat->dsym_685__SMACINST_DEFMACRO; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_685__SMACINST_DEFMACRO", 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_685__SMACINST_DEFMACRO", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_685__SMACINST_DEFMACRO.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_685__SMACINST_DEFMACRO.obj_hash = 540877047; meltcdat->dsym_685__SMACINST_DEFMACRO.obj_len = 3; /*inistring dstr_686__SMACINST_DEFMACRO*/ /*_._VALSTR___V784*/ meltfptr[783] = (melt_ptr_t) &meltcdat->dstr_686__SMACINST_DEFMACRO; meltcdat->dstr_686__SMACINST_DEFMACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_686__SMACINST_DEFMACRO.val, "SMACINST_DEFMACRO", sizeof (meltcdat->dstr_686__SMACINST_DEFMACRO.val)-1); meltcdat->dstr_686__SMACINST_DEFMACRO.val[17] = (char)0 ; meltcdat->dstr_686__SMACINST_DEFMACRO.slen = 17 ; /*^iniobj*/ /*iniobj dobj_687__SMACINST_DEFMACRO*/ /*_._VALDATA___V778*/ meltfptr[777] = (melt_ptr_t )&meltcdat->dobj_687__SMACINST_DEFMACRO; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_687__SMACINST_DEFMACRO", 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_687__SMACINST_DEFMACRO", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_687__SMACINST_DEFMACRO.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_687__SMACINST_DEFMACRO.obj_num = 2; meltcdat->dobj_687__SMACINST_DEFMACRO.obj_hash = 76437534; meltcdat->dobj_687__SMACINST_DEFMACRO.obj_len = 4; /*inistring dstr_688__SMACINST_DEFMACRO*/ /*_._VALSTR___V779*/ meltfptr[778] = (melt_ptr_t) &meltcdat->dstr_688__SMACINST_DEFMACRO; meltcdat->dstr_688__SMACINST_DEFMACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_688__SMACINST_DEFMACRO.val, "SMACINST_DEFMACRO", sizeof (meltcdat->dstr_688__SMACINST_DEFMACRO.val)-1); meltcdat->dstr_688__SMACINST_DEFMACRO.val[17] = (char)0 ; meltcdat->dstr_688__SMACINST_DEFMACRO.slen = 17 ; /*iniobj dsym_689__SMACINST_ENV*/ /*uniqueobj*/ if (!/*_._VALDATA___V785*/ meltfptr[784]) /*_._VALDATA___V785*/ meltfptr[784] = (melt_ptr_t )&meltcdat->dsym_689__SMACINST_ENV; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_689__SMACINST_ENV", 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_689__SMACINST_ENV", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_689__SMACINST_ENV.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_689__SMACINST_ENV.obj_hash = 328723851; meltcdat->dsym_689__SMACINST_ENV.obj_len = 3; /*inistring dstr_690__SMACINST_ENV*/ /*_._VALSTR___V786*/ meltfptr[785] = (melt_ptr_t) &meltcdat->dstr_690__SMACINST_ENV; meltcdat->dstr_690__SMACINST_ENV.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_690__SMACINST_ENV.val, "SMACINST_ENV", sizeof (meltcdat->dstr_690__SMACINST_ENV.val)-1); meltcdat->dstr_690__SMACINST_ENV.val[12] = (char)0 ; meltcdat->dstr_690__SMACINST_ENV.slen = 12 ; /*^iniobj*/ /*iniobj dobj_691__SMACINST_ENV*/ /*_._VALDATA___V780*/ meltfptr[779] = (melt_ptr_t )&meltcdat->dobj_691__SMACINST_ENV; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_691__SMACINST_ENV", 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_691__SMACINST_ENV", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_691__SMACINST_ENV.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_691__SMACINST_ENV.obj_num = 3; meltcdat->dobj_691__SMACINST_ENV.obj_hash = 482356271; meltcdat->dobj_691__SMACINST_ENV.obj_len = 4; /*inistring dstr_692__SMACINST_ENV*/ /*_._VALSTR___V781*/ meltfptr[780] = (melt_ptr_t) &meltcdat->dstr_692__SMACINST_ENV; meltcdat->dstr_692__SMACINST_ENV.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_692__SMACINST_ENV.val, "SMACINST_ENV", sizeof (meltcdat->dstr_692__SMACINST_ENV.val)-1); meltcdat->dstr_692__SMACINST_ENV.val[12] = (char)0 ; meltcdat->dstr_692__SMACINST_ENV.slen = 12 ; /*iniobj dsym_693__CLASS_SOURCE_DEFPRIMITIVE*/ /*uniqueobj*/ if (!/*_._VALDATA___V787*/ meltfptr[786]) /*_._VALDATA___V787*/ meltfptr[786] = (melt_ptr_t )&meltcdat->dsym_693__CLASS_SOURCE_DEFPRIMITIVE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_693__CLASS_SOURCE_DEFPRIMITIVE", 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_693__CLASS_SOURCE_DEFPRIMITIVE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_693__CLASS_SOURCE_DEFPRIMITIVE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_693__CLASS_SOURCE_DEFPRIMITIVE.obj_hash = 89550180; meltcdat->dsym_693__CLASS_SOURCE_DEFPRIMITIVE.obj_len = 3; /*inistring dstr_694__CLASS_SOURCE_DEFPRIMITIV*/ /*_._VALSTR___V788*/ meltfptr[787] = (melt_ptr_t) &meltcdat->dstr_694__CLASS_SOURCE_DEFPRIMITIV; meltcdat->dstr_694__CLASS_SOURCE_DEFPRIMITIV.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_694__CLASS_SOURCE_DEFPRIMITIV.val, "CLASS_SOURCE_DEFPRIMITIVE", sizeof (meltcdat->dstr_694__CLASS_SOURCE_DEFPRIMITIV.val)-1); meltcdat->dstr_694__CLASS_SOURCE_DEFPRIMITIV.val[25] = (char)0 ; meltcdat->dstr_694__CLASS_SOURCE_DEFPRIMITIV.slen = 25 ; MELT_LOCATION("warmelt-macro.melt:842:/ iniobj"); /*iniobj dobj_695__CLASS_SOURCE_DEFPRIMITIVE*/ /*_._VALDATA___V789*/ meltfptr[788] = (melt_ptr_t )&meltcdat->dobj_695__CLASS_SOURCE_DEFPRIMITIVE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_695__CLASS_SOURCE_DEFPRIMITIVE", 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_695__CLASS_SOURCE_DEFPRIMITIVE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_695__CLASS_SOURCE_DEFPRIMITIVE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_695__CLASS_SOURCE_DEFPRIMITIVE.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_695__CLASS_SOURCE_DEFPRIMITIVE.obj_hash = 94033846; meltcdat->dobj_695__CLASS_SOURCE_DEFPRIMITIVE.obj_len = 8; /*inistring dstr_696__CLASS_SOURCE_DEFPRIMITIV*/ /*_._VALSTR___V790*/ meltfptr[789] = (melt_ptr_t) &meltcdat->dstr_696__CLASS_SOURCE_DEFPRIMITIV; meltcdat->dstr_696__CLASS_SOURCE_DEFPRIMITIV.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_696__CLASS_SOURCE_DEFPRIMITIV.val, "CLASS_SOURCE_DEFPRIMITIVE", sizeof (meltcdat->dstr_696__CLASS_SOURCE_DEFPRIMITIV.val)-1); meltcdat->dstr_696__CLASS_SOURCE_DEFPRIMITIV.val[25] = (char)0 ; meltcdat->dstr_696__CLASS_SOURCE_DEFPRIMITIV.slen = 25 ; /*inimult dtup_697_syCLASS_SOURCE_DEFPRIMITIVE*/ /*_._VALTUP___V791*/ meltfptr[790] = (melt_ptr_t) &meltcdat->dtup_697_syCLASS_SOURCE_DEFPRIMITIVE; meltcdat->dtup_697_syCLASS_SOURCE_DEFPRIMITIVE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_697_syCLASS_SOURCE_DEFPRIMITIVE.nbval = 6; /*inimult dtup_698_syCLASS_SOURCE_DEFPRIMITIVE*/ /*_._VALTUP___V798*/ meltfptr[797] = (melt_ptr_t) &meltcdat->dtup_698_syCLASS_SOURCE_DEFPRIMITIVE; meltcdat->dtup_698_syCLASS_SOURCE_DEFPRIMITIVE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_698_syCLASS_SOURCE_DEFPRIMITIVE.nbval = 8; /*iniobj dsym_699__SPRIM_TYPE*/ /*uniqueobj*/ if (!/*_._VALDATA___V799*/ meltfptr[798]) /*_._VALDATA___V799*/ meltfptr[798] = (melt_ptr_t )&meltcdat->dsym_699__SPRIM_TYPE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_699__SPRIM_TYPE", 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_699__SPRIM_TYPE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_699__SPRIM_TYPE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_699__SPRIM_TYPE.obj_hash = 614174808; meltcdat->dsym_699__SPRIM_TYPE.obj_len = 3; /*inistring dstr_700__SPRIM_TYPE*/ /*_._VALSTR___V800*/ meltfptr[799] = (melt_ptr_t) &meltcdat->dstr_700__SPRIM_TYPE; meltcdat->dstr_700__SPRIM_TYPE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_700__SPRIM_TYPE.val, "SPRIM_TYPE", sizeof (meltcdat->dstr_700__SPRIM_TYPE.val)-1); meltcdat->dstr_700__SPRIM_TYPE.val[10] = (char)0 ; meltcdat->dstr_700__SPRIM_TYPE.slen = 10 ; /*^iniobj*/ /*iniobj dobj_701__SPRIM_TYPE*/ /*_._VALDATA___V792*/ meltfptr[791] = (melt_ptr_t )&meltcdat->dobj_701__SPRIM_TYPE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_701__SPRIM_TYPE", 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_701__SPRIM_TYPE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_701__SPRIM_TYPE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_701__SPRIM_TYPE.obj_num = 5; meltcdat->dobj_701__SPRIM_TYPE.obj_hash = 287256502; meltcdat->dobj_701__SPRIM_TYPE.obj_len = 4; /*inistring dstr_702__SPRIM_TYPE*/ /*_._VALSTR___V793*/ meltfptr[792] = (melt_ptr_t) &meltcdat->dstr_702__SPRIM_TYPE; meltcdat->dstr_702__SPRIM_TYPE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_702__SPRIM_TYPE.val, "SPRIM_TYPE", sizeof (meltcdat->dstr_702__SPRIM_TYPE.val)-1); meltcdat->dstr_702__SPRIM_TYPE.val[10] = (char)0 ; meltcdat->dstr_702__SPRIM_TYPE.slen = 10 ; /*iniobj dsym_703__SPRIM_EXPANSION*/ /*uniqueobj*/ if (!/*_._VALDATA___V801*/ meltfptr[800]) /*_._VALDATA___V801*/ meltfptr[800] = (melt_ptr_t )&meltcdat->dsym_703__SPRIM_EXPANSION; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_703__SPRIM_EXPANSION", 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_703__SPRIM_EXPANSION", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_703__SPRIM_EXPANSION.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_703__SPRIM_EXPANSION.obj_hash = 343124792; meltcdat->dsym_703__SPRIM_EXPANSION.obj_len = 3; /*inistring dstr_704__SPRIM_EXPANSION*/ /*_._VALSTR___V802*/ meltfptr[801] = (melt_ptr_t) &meltcdat->dstr_704__SPRIM_EXPANSION; meltcdat->dstr_704__SPRIM_EXPANSION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_704__SPRIM_EXPANSION.val, "SPRIM_EXPANSION", sizeof (meltcdat->dstr_704__SPRIM_EXPANSION.val)-1); meltcdat->dstr_704__SPRIM_EXPANSION.val[15] = (char)0 ; meltcdat->dstr_704__SPRIM_EXPANSION.slen = 15 ; /*^iniobj*/ /*iniobj dobj_705__SPRIM_EXPANSION*/ /*_._VALDATA___V794*/ meltfptr[793] = (melt_ptr_t )&meltcdat->dobj_705__SPRIM_EXPANSION; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_705__SPRIM_EXPANSION", 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_705__SPRIM_EXPANSION", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_705__SPRIM_EXPANSION.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_705__SPRIM_EXPANSION.obj_num = 6; meltcdat->dobj_705__SPRIM_EXPANSION.obj_hash = 57739587; meltcdat->dobj_705__SPRIM_EXPANSION.obj_len = 4; /*inistring dstr_706__SPRIM_EXPANSION*/ /*_._VALSTR___V795*/ meltfptr[794] = (melt_ptr_t) &meltcdat->dstr_706__SPRIM_EXPANSION; meltcdat->dstr_706__SPRIM_EXPANSION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_706__SPRIM_EXPANSION.val, "SPRIM_EXPANSION", sizeof (meltcdat->dstr_706__SPRIM_EXPANSION.val)-1); meltcdat->dstr_706__SPRIM_EXPANSION.val[15] = (char)0 ; meltcdat->dstr_706__SPRIM_EXPANSION.slen = 15 ; /*iniobj dsym_707__SPRIM_EXPLOC*/ /*uniqueobj*/ if (!/*_._VALDATA___V803*/ meltfptr[802]) /*_._VALDATA___V803*/ meltfptr[802] = (melt_ptr_t )&meltcdat->dsym_707__SPRIM_EXPLOC; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_707__SPRIM_EXPLOC", 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_707__SPRIM_EXPLOC", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_707__SPRIM_EXPLOC.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_707__SPRIM_EXPLOC.obj_hash = 574291993; meltcdat->dsym_707__SPRIM_EXPLOC.obj_len = 3; /*inistring dstr_708__SPRIM_EXPLOC*/ /*_._VALSTR___V804*/ meltfptr[803] = (melt_ptr_t) &meltcdat->dstr_708__SPRIM_EXPLOC; meltcdat->dstr_708__SPRIM_EXPLOC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_708__SPRIM_EXPLOC.val, "SPRIM_EXPLOC", sizeof (meltcdat->dstr_708__SPRIM_EXPLOC.val)-1); meltcdat->dstr_708__SPRIM_EXPLOC.val[12] = (char)0 ; meltcdat->dstr_708__SPRIM_EXPLOC.slen = 12 ; /*^iniobj*/ /*iniobj dobj_709__SPRIM_EXPLOC*/ /*_._VALDATA___V796*/ meltfptr[795] = (melt_ptr_t )&meltcdat->dobj_709__SPRIM_EXPLOC; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_709__SPRIM_EXPLOC", 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_709__SPRIM_EXPLOC", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_709__SPRIM_EXPLOC.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_709__SPRIM_EXPLOC.obj_num = 7; meltcdat->dobj_709__SPRIM_EXPLOC.obj_hash = 49412012; meltcdat->dobj_709__SPRIM_EXPLOC.obj_len = 4; /*inistring dstr_710__SPRIM_EXPLOC*/ /*_._VALSTR___V797*/ meltfptr[796] = (melt_ptr_t) &meltcdat->dstr_710__SPRIM_EXPLOC; meltcdat->dstr_710__SPRIM_EXPLOC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_710__SPRIM_EXPLOC.val, "SPRIM_EXPLOC", sizeof (meltcdat->dstr_710__SPRIM_EXPLOC.val)-1); meltcdat->dstr_710__SPRIM_EXPLOC.val[12] = (char)0 ; meltcdat->dstr_710__SPRIM_EXPLOC.slen = 12 ; /*iniobj dsym_711__CLASS_SOURCE_DEFHOOK*/ /*uniqueobj*/ if (!/*_._VALDATA___V805*/ meltfptr[804]) /*_._VALDATA___V805*/ meltfptr[804] = (melt_ptr_t )&meltcdat->dsym_711__CLASS_SOURCE_DEFHOOK; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_711__CLASS_SOURCE_DEFHOOK", 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_711__CLASS_SOURCE_DEFHOOK", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_711__CLASS_SOURCE_DEFHOOK.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_711__CLASS_SOURCE_DEFHOOK.obj_hash = 807135770; meltcdat->dsym_711__CLASS_SOURCE_DEFHOOK.obj_len = 3; /*inistring dstr_712__CLASS_SOURCE_DEFHOOK*/ /*_._VALSTR___V806*/ meltfptr[805] = (melt_ptr_t) &meltcdat->dstr_712__CLASS_SOURCE_DEFHOOK; meltcdat->dstr_712__CLASS_SOURCE_DEFHOOK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_712__CLASS_SOURCE_DEFHOOK.val, "CLASS_SOURCE_DEFHOOK", sizeof (meltcdat->dstr_712__CLASS_SOURCE_DEFHOOK.val)-1); meltcdat->dstr_712__CLASS_SOURCE_DEFHOOK.val[20] = (char)0 ; meltcdat->dstr_712__CLASS_SOURCE_DEFHOOK.slen = 20 ; MELT_LOCATION("warmelt-macro.melt:854:/ iniobj"); /*iniobj dobj_713__CLASS_SOURCE_DEFHOOK*/ /*_._VALDATA___V807*/ meltfptr[806] = (melt_ptr_t )&meltcdat->dobj_713__CLASS_SOURCE_DEFHOOK; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_713__CLASS_SOURCE_DEFHOOK", 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_713__CLASS_SOURCE_DEFHOOK", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_713__CLASS_SOURCE_DEFHOOK.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_713__CLASS_SOURCE_DEFHOOK.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_713__CLASS_SOURCE_DEFHOOK.obj_hash = 885127771; meltcdat->dobj_713__CLASS_SOURCE_DEFHOOK.obj_len = 8; /*inistring dstr_714__CLASS_SOURCE_DEFHOOK*/ /*_._VALSTR___V808*/ meltfptr[807] = (melt_ptr_t) &meltcdat->dstr_714__CLASS_SOURCE_DEFHOOK; meltcdat->dstr_714__CLASS_SOURCE_DEFHOOK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_714__CLASS_SOURCE_DEFHOOK.val, "CLASS_SOURCE_DEFHOOK", sizeof (meltcdat->dstr_714__CLASS_SOURCE_DEFHOOK.val)-1); meltcdat->dstr_714__CLASS_SOURCE_DEFHOOK.val[20] = (char)0 ; meltcdat->dstr_714__CLASS_SOURCE_DEFHOOK.slen = 20 ; /*inimult dtup_715_syCLASS_SOURCE_DEFHOOK*/ /*_._VALTUP___V809*/ meltfptr[808] = (melt_ptr_t) &meltcdat->dtup_715_syCLASS_SOURCE_DEFHOOK; meltcdat->dtup_715_syCLASS_SOURCE_DEFHOOK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_715_syCLASS_SOURCE_DEFHOOK.nbval = 6; /*inimult dtup_716_syCLASS_SOURCE_DEFHOOK*/ /*_._VALTUP___V820*/ meltfptr[819] = (melt_ptr_t) &meltcdat->dtup_716_syCLASS_SOURCE_DEFHOOK; meltcdat->dtup_716_syCLASS_SOURCE_DEFHOOK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_716_syCLASS_SOURCE_DEFHOOK.nbval = 10; /*iniobj dsym_717__SHOOK_OUT_FORMALS*/ /*uniqueobj*/ if (!/*_._VALDATA___V821*/ meltfptr[820]) /*_._VALDATA___V821*/ meltfptr[820] = (melt_ptr_t )&meltcdat->dsym_717__SHOOK_OUT_FORMALS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_717__SHOOK_OUT_FORMALS", 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_717__SHOOK_OUT_FORMALS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_717__SHOOK_OUT_FORMALS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_717__SHOOK_OUT_FORMALS.obj_hash = 756495738; meltcdat->dsym_717__SHOOK_OUT_FORMALS.obj_len = 3; /*inistring dstr_718__SHOOK_OUT_FORMALS*/ /*_._VALSTR___V822*/ meltfptr[821] = (melt_ptr_t) &meltcdat->dstr_718__SHOOK_OUT_FORMALS; meltcdat->dstr_718__SHOOK_OUT_FORMALS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_718__SHOOK_OUT_FORMALS.val, "SHOOK_OUT_FORMALS", sizeof (meltcdat->dstr_718__SHOOK_OUT_FORMALS.val)-1); meltcdat->dstr_718__SHOOK_OUT_FORMALS.val[17] = (char)0 ; meltcdat->dstr_718__SHOOK_OUT_FORMALS.slen = 17 ; /*^iniobj*/ /*iniobj dobj_719__SHOOK_OUT_FORMALS*/ /*_._VALDATA___V810*/ meltfptr[809] = (melt_ptr_t )&meltcdat->dobj_719__SHOOK_OUT_FORMALS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_719__SHOOK_OUT_FORMALS", 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_719__SHOOK_OUT_FORMALS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_719__SHOOK_OUT_FORMALS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_719__SHOOK_OUT_FORMALS.obj_num = 5; meltcdat->dobj_719__SHOOK_OUT_FORMALS.obj_hash = 461095929; meltcdat->dobj_719__SHOOK_OUT_FORMALS.obj_len = 4; /*inistring dstr_720__SHOOK_OUT_FORMALS*/ /*_._VALSTR___V811*/ meltfptr[810] = (melt_ptr_t) &meltcdat->dstr_720__SHOOK_OUT_FORMALS; meltcdat->dstr_720__SHOOK_OUT_FORMALS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_720__SHOOK_OUT_FORMALS.val, "SHOOK_OUT_FORMALS", sizeof (meltcdat->dstr_720__SHOOK_OUT_FORMALS.val)-1); meltcdat->dstr_720__SHOOK_OUT_FORMALS.val[17] = (char)0 ; meltcdat->dstr_720__SHOOK_OUT_FORMALS.slen = 17 ; /*iniobj dsym_721__SHOOK_CTYPE*/ /*uniqueobj*/ if (!/*_._VALDATA___V823*/ meltfptr[822]) /*_._VALDATA___V823*/ meltfptr[822] = (melt_ptr_t )&meltcdat->dsym_721__SHOOK_CTYPE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_721__SHOOK_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_721__SHOOK_CTYPE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_721__SHOOK_CTYPE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_721__SHOOK_CTYPE.obj_hash = 378054298; meltcdat->dsym_721__SHOOK_CTYPE.obj_len = 3; /*inistring dstr_722__SHOOK_CTYPE*/ /*_._VALSTR___V824*/ meltfptr[823] = (melt_ptr_t) &meltcdat->dstr_722__SHOOK_CTYPE; meltcdat->dstr_722__SHOOK_CTYPE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_722__SHOOK_CTYPE.val, "SHOOK_CTYPE", sizeof (meltcdat->dstr_722__SHOOK_CTYPE.val)-1); meltcdat->dstr_722__SHOOK_CTYPE.val[11] = (char)0 ; meltcdat->dstr_722__SHOOK_CTYPE.slen = 11 ; /*^iniobj*/ /*iniobj dobj_723__SHOOK_CTYPE*/ /*_._VALDATA___V812*/ meltfptr[811] = (melt_ptr_t )&meltcdat->dobj_723__SHOOK_CTYPE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_723__SHOOK_CTYPE", 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_723__SHOOK_CTYPE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_723__SHOOK_CTYPE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_723__SHOOK_CTYPE.obj_num = 6; meltcdat->dobj_723__SHOOK_CTYPE.obj_hash = 502920519; meltcdat->dobj_723__SHOOK_CTYPE.obj_len = 4; /*inistring dstr_724__SHOOK_CTYPE*/ /*_._VALSTR___V813*/ meltfptr[812] = (melt_ptr_t) &meltcdat->dstr_724__SHOOK_CTYPE; meltcdat->dstr_724__SHOOK_CTYPE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_724__SHOOK_CTYPE.val, "SHOOK_CTYPE", sizeof (meltcdat->dstr_724__SHOOK_CTYPE.val)-1); meltcdat->dstr_724__SHOOK_CTYPE.val[11] = (char)0 ; meltcdat->dstr_724__SHOOK_CTYPE.slen = 11 ; /*iniobj dsym_725__SHOOK_PREDEF*/ /*uniqueobj*/ if (!/*_._VALDATA___V825*/ meltfptr[824]) /*_._VALDATA___V825*/ meltfptr[824] = (melt_ptr_t )&meltcdat->dsym_725__SHOOK_PREDEF; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_725__SHOOK_PREDEF", 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_725__SHOOK_PREDEF", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_725__SHOOK_PREDEF.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_725__SHOOK_PREDEF.obj_hash = 227377843; meltcdat->dsym_725__SHOOK_PREDEF.obj_len = 3; /*inistring dstr_726__SHOOK_PREDEF*/ /*_._VALSTR___V826*/ meltfptr[825] = (melt_ptr_t) &meltcdat->dstr_726__SHOOK_PREDEF; meltcdat->dstr_726__SHOOK_PREDEF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_726__SHOOK_PREDEF.val, "SHOOK_PREDEF", sizeof (meltcdat->dstr_726__SHOOK_PREDEF.val)-1); meltcdat->dstr_726__SHOOK_PREDEF.val[12] = (char)0 ; meltcdat->dstr_726__SHOOK_PREDEF.slen = 12 ; /*^iniobj*/ /*iniobj dobj_727__SHOOK_PREDEF*/ /*_._VALDATA___V814*/ meltfptr[813] = (melt_ptr_t )&meltcdat->dobj_727__SHOOK_PREDEF; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_727__SHOOK_PREDEF", 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_727__SHOOK_PREDEF", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_727__SHOOK_PREDEF.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_727__SHOOK_PREDEF.obj_num = 7; meltcdat->dobj_727__SHOOK_PREDEF.obj_hash = 646735610; meltcdat->dobj_727__SHOOK_PREDEF.obj_len = 4; /*inistring dstr_728__SHOOK_PREDEF*/ /*_._VALSTR___V815*/ meltfptr[814] = (melt_ptr_t) &meltcdat->dstr_728__SHOOK_PREDEF; meltcdat->dstr_728__SHOOK_PREDEF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_728__SHOOK_PREDEF.val, "SHOOK_PREDEF", sizeof (meltcdat->dstr_728__SHOOK_PREDEF.val)-1); meltcdat->dstr_728__SHOOK_PREDEF.val[12] = (char)0 ; meltcdat->dstr_728__SHOOK_PREDEF.slen = 12 ; /*iniobj dsym_729__SHOOK_VARIABLE*/ /*uniqueobj*/ if (!/*_._VALDATA___V827*/ meltfptr[826]) /*_._VALDATA___V827*/ meltfptr[826] = (melt_ptr_t )&meltcdat->dsym_729__SHOOK_VARIABLE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_729__SHOOK_VARIABLE", 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_729__SHOOK_VARIABLE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_729__SHOOK_VARIABLE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_729__SHOOK_VARIABLE.obj_hash = 823489460; meltcdat->dsym_729__SHOOK_VARIABLE.obj_len = 3; /*inistring dstr_730__SHOOK_VARIABLE*/ /*_._VALSTR___V828*/ meltfptr[827] = (melt_ptr_t) &meltcdat->dstr_730__SHOOK_VARIABLE; meltcdat->dstr_730__SHOOK_VARIABLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_730__SHOOK_VARIABLE.val, "SHOOK_VARIABLE", sizeof (meltcdat->dstr_730__SHOOK_VARIABLE.val)-1); meltcdat->dstr_730__SHOOK_VARIABLE.val[14] = (char)0 ; meltcdat->dstr_730__SHOOK_VARIABLE.slen = 14 ; /*^iniobj*/ /*iniobj dobj_731__SHOOK_VARIABLE*/ /*_._VALDATA___V816*/ meltfptr[815] = (melt_ptr_t )&meltcdat->dobj_731__SHOOK_VARIABLE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_731__SHOOK_VARIABLE", 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_731__SHOOK_VARIABLE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_731__SHOOK_VARIABLE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_731__SHOOK_VARIABLE.obj_num = 8; meltcdat->dobj_731__SHOOK_VARIABLE.obj_hash = 666743649; meltcdat->dobj_731__SHOOK_VARIABLE.obj_len = 4; /*inistring dstr_732__SHOOK_VARIABLE*/ /*_._VALSTR___V817*/ meltfptr[816] = (melt_ptr_t) &meltcdat->dstr_732__SHOOK_VARIABLE; meltcdat->dstr_732__SHOOK_VARIABLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_732__SHOOK_VARIABLE.val, "SHOOK_VARIABLE", sizeof (meltcdat->dstr_732__SHOOK_VARIABLE.val)-1); meltcdat->dstr_732__SHOOK_VARIABLE.val[14] = (char)0 ; meltcdat->dstr_732__SHOOK_VARIABLE.slen = 14 ; /*iniobj dsym_733__SHOOK_BODY*/ /*uniqueobj*/ if (!/*_._VALDATA___V829*/ meltfptr[828]) /*_._VALDATA___V829*/ meltfptr[828] = (melt_ptr_t )&meltcdat->dsym_733__SHOOK_BODY; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_733__SHOOK_BODY", 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_733__SHOOK_BODY", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_733__SHOOK_BODY.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_733__SHOOK_BODY.obj_hash = 481183908; meltcdat->dsym_733__SHOOK_BODY.obj_len = 3; /*inistring dstr_734__SHOOK_BODY*/ /*_._VALSTR___V830*/ meltfptr[829] = (melt_ptr_t) &meltcdat->dstr_734__SHOOK_BODY; meltcdat->dstr_734__SHOOK_BODY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_734__SHOOK_BODY.val, "SHOOK_BODY", sizeof (meltcdat->dstr_734__SHOOK_BODY.val)-1); meltcdat->dstr_734__SHOOK_BODY.val[10] = (char)0 ; meltcdat->dstr_734__SHOOK_BODY.slen = 10 ; /*^iniobj*/ /*iniobj dobj_735__SHOOK_BODY*/ /*_._VALDATA___V818*/ meltfptr[817] = (melt_ptr_t )&meltcdat->dobj_735__SHOOK_BODY; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_735__SHOOK_BODY", 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_735__SHOOK_BODY", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_735__SHOOK_BODY.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_735__SHOOK_BODY.obj_num = 9; meltcdat->dobj_735__SHOOK_BODY.obj_hash = 250922197; meltcdat->dobj_735__SHOOK_BODY.obj_len = 4; /*inistring dstr_736__SHOOK_BODY*/ /*_._VALSTR___V819*/ meltfptr[818] = (melt_ptr_t) &meltcdat->dstr_736__SHOOK_BODY; meltcdat->dstr_736__SHOOK_BODY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_736__SHOOK_BODY.val, "SHOOK_BODY", sizeof (meltcdat->dstr_736__SHOOK_BODY.val)-1); meltcdat->dstr_736__SHOOK_BODY.val[10] = (char)0 ; meltcdat->dstr_736__SHOOK_BODY.slen = 10 ; /*iniobj dsym_737__CLASS_SOURCE_DEFCITERATOR*/ /*uniqueobj*/ if (!/*_._VALDATA___V831*/ meltfptr[830]) /*_._VALDATA___V831*/ meltfptr[830] = (melt_ptr_t )&meltcdat->dsym_737__CLASS_SOURCE_DEFCITERATOR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_737__CLASS_SOURCE_DEFCITERATOR", 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_737__CLASS_SOURCE_DEFCITERATOR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_737__CLASS_SOURCE_DEFCITERATOR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_737__CLASS_SOURCE_DEFCITERATOR.obj_hash = 908057495; meltcdat->dsym_737__CLASS_SOURCE_DEFCITERATOR.obj_len = 3; /*inistring dstr_738__CLASS_SOURCE_DEFCITERATO*/ /*_._VALSTR___V832*/ meltfptr[831] = (melt_ptr_t) &meltcdat->dstr_738__CLASS_SOURCE_DEFCITERATO; meltcdat->dstr_738__CLASS_SOURCE_DEFCITERATO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_738__CLASS_SOURCE_DEFCITERATO.val, "CLASS_SOURCE_DEFCITERATOR", sizeof (meltcdat->dstr_738__CLASS_SOURCE_DEFCITERATO.val)-1); meltcdat->dstr_738__CLASS_SOURCE_DEFCITERATO.val[25] = (char)0 ; meltcdat->dstr_738__CLASS_SOURCE_DEFCITERATO.slen = 25 ; MELT_LOCATION("warmelt-macro.melt:865:/ iniobj"); /*iniobj dobj_739__CLASS_SOURCE_DEFCITERATOR*/ /*_._VALDATA___V833*/ meltfptr[832] = (melt_ptr_t )&meltcdat->dobj_739__CLASS_SOURCE_DEFCITERATOR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_739__CLASS_SOURCE_DEFCITERATOR", 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_739__CLASS_SOURCE_DEFCITERATOR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_739__CLASS_SOURCE_DEFCITERATOR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_739__CLASS_SOURCE_DEFCITERATOR.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_739__CLASS_SOURCE_DEFCITERATOR.obj_hash = 1025436882; meltcdat->dobj_739__CLASS_SOURCE_DEFCITERATOR.obj_len = 8; /*inistring dstr_740__CLASS_SOURCE_DEFCITERATO*/ /*_._VALSTR___V834*/ meltfptr[833] = (melt_ptr_t) &meltcdat->dstr_740__CLASS_SOURCE_DEFCITERATO; meltcdat->dstr_740__CLASS_SOURCE_DEFCITERATO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_740__CLASS_SOURCE_DEFCITERATO.val, "CLASS_SOURCE_DEFCITERATOR", sizeof (meltcdat->dstr_740__CLASS_SOURCE_DEFCITERATO.val)-1); meltcdat->dstr_740__CLASS_SOURCE_DEFCITERATO.val[25] = (char)0 ; meltcdat->dstr_740__CLASS_SOURCE_DEFCITERATO.slen = 25 ; /*inimult dtup_741_syCLASS_SOURCE_DEFCITERATOR*/ /*_._VALTUP___V835*/ meltfptr[834] = (melt_ptr_t) &meltcdat->dtup_741_syCLASS_SOURCE_DEFCITERATOR; meltcdat->dtup_741_syCLASS_SOURCE_DEFCITERATOR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_741_syCLASS_SOURCE_DEFCITERATOR.nbval = 6; /*inimult dtup_742_syCLASS_SOURCE_DEFCITERATOR*/ /*_._VALTUP___V842*/ meltfptr[841] = (melt_ptr_t) &meltcdat->dtup_742_syCLASS_SOURCE_DEFCITERATOR; meltcdat->dtup_742_syCLASS_SOURCE_DEFCITERATOR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_742_syCLASS_SOURCE_DEFCITERATOR.nbval = 8; /*iniobj dsym_743__SCITERDEF_CITERATOR*/ /*uniqueobj*/ if (!/*_._VALDATA___V843*/ meltfptr[842]) /*_._VALDATA___V843*/ meltfptr[842] = (melt_ptr_t )&meltcdat->dsym_743__SCITERDEF_CITERATOR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_743__SCITERDEF_CITERATOR", 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_743__SCITERDEF_CITERATOR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_743__SCITERDEF_CITERATOR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_743__SCITERDEF_CITERATOR.obj_hash = 321745206; meltcdat->dsym_743__SCITERDEF_CITERATOR.obj_len = 3; /*inistring dstr_744__SCITERDEF_CITERATOR*/ /*_._VALSTR___V844*/ meltfptr[843] = (melt_ptr_t) &meltcdat->dstr_744__SCITERDEF_CITERATOR; meltcdat->dstr_744__SCITERDEF_CITERATOR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_744__SCITERDEF_CITERATOR.val, "SCITERDEF_CITERATOR", sizeof (meltcdat->dstr_744__SCITERDEF_CITERATOR.val)-1); meltcdat->dstr_744__SCITERDEF_CITERATOR.val[19] = (char)0 ; meltcdat->dstr_744__SCITERDEF_CITERATOR.slen = 19 ; /*^iniobj*/ /*iniobj dobj_745__SCITERDEF_CITERATOR*/ /*_._VALDATA___V836*/ meltfptr[835] = (melt_ptr_t )&meltcdat->dobj_745__SCITERDEF_CITERATOR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_745__SCITERDEF_CITERATOR", 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_745__SCITERDEF_CITERATOR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_745__SCITERDEF_CITERATOR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_745__SCITERDEF_CITERATOR.obj_num = 5; meltcdat->dobj_745__SCITERDEF_CITERATOR.obj_hash = 697165231; meltcdat->dobj_745__SCITERDEF_CITERATOR.obj_len = 4; /*inistring dstr_746__SCITERDEF_CITERATOR*/ /*_._VALSTR___V837*/ meltfptr[836] = (melt_ptr_t) &meltcdat->dstr_746__SCITERDEF_CITERATOR; meltcdat->dstr_746__SCITERDEF_CITERATOR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_746__SCITERDEF_CITERATOR.val, "SCITERDEF_CITERATOR", sizeof (meltcdat->dstr_746__SCITERDEF_CITERATOR.val)-1); meltcdat->dstr_746__SCITERDEF_CITERATOR.val[19] = (char)0 ; meltcdat->dstr_746__SCITERDEF_CITERATOR.slen = 19 ; /*iniobj dsym_747__SCITERDEF_BEFORELOC*/ /*uniqueobj*/ if (!/*_._VALDATA___V845*/ meltfptr[844]) /*_._VALDATA___V845*/ meltfptr[844] = (melt_ptr_t )&meltcdat->dsym_747__SCITERDEF_BEFORELOC; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_747__SCITERDEF_BEFORELOC", 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_747__SCITERDEF_BEFORELOC", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_747__SCITERDEF_BEFORELOC.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_747__SCITERDEF_BEFORELOC.obj_hash = 288005518; meltcdat->dsym_747__SCITERDEF_BEFORELOC.obj_len = 3; /*inistring dstr_748__SCITERDEF_BEFORELOC*/ /*_._VALSTR___V846*/ meltfptr[845] = (melt_ptr_t) &meltcdat->dstr_748__SCITERDEF_BEFORELOC; meltcdat->dstr_748__SCITERDEF_BEFORELOC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_748__SCITERDEF_BEFORELOC.val, "SCITERDEF_BEFORELOC", sizeof (meltcdat->dstr_748__SCITERDEF_BEFORELOC.val)-1); meltcdat->dstr_748__SCITERDEF_BEFORELOC.val[19] = (char)0 ; meltcdat->dstr_748__SCITERDEF_BEFORELOC.slen = 19 ; /*^iniobj*/ /*iniobj dobj_749__SCITERDEF_BEFORELOC*/ /*_._VALDATA___V838*/ meltfptr[837] = (melt_ptr_t )&meltcdat->dobj_749__SCITERDEF_BEFORELOC; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_749__SCITERDEF_BEFORELOC", 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_749__SCITERDEF_BEFORELOC", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_749__SCITERDEF_BEFORELOC.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_749__SCITERDEF_BEFORELOC.obj_num = 6; meltcdat->dobj_749__SCITERDEF_BEFORELOC.obj_hash = 148572989; meltcdat->dobj_749__SCITERDEF_BEFORELOC.obj_len = 4; /*inistring dstr_750__SCITERDEF_BEFORELOC*/ /*_._VALSTR___V839*/ meltfptr[838] = (melt_ptr_t) &meltcdat->dstr_750__SCITERDEF_BEFORELOC; meltcdat->dstr_750__SCITERDEF_BEFORELOC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_750__SCITERDEF_BEFORELOC.val, "SCITERDEF_BEFORELOC", sizeof (meltcdat->dstr_750__SCITERDEF_BEFORELOC.val)-1); meltcdat->dstr_750__SCITERDEF_BEFORELOC.val[19] = (char)0 ; meltcdat->dstr_750__SCITERDEF_BEFORELOC.slen = 19 ; /*iniobj dsym_751__SCITERDEF_AFTERLOC*/ /*uniqueobj*/ if (!/*_._VALDATA___V847*/ meltfptr[846]) /*_._VALDATA___V847*/ meltfptr[846] = (melt_ptr_t )&meltcdat->dsym_751__SCITERDEF_AFTERLOC; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_751__SCITERDEF_AFTERLOC", 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_751__SCITERDEF_AFTERLOC", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_751__SCITERDEF_AFTERLOC.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_751__SCITERDEF_AFTERLOC.obj_hash = 434501382; meltcdat->dsym_751__SCITERDEF_AFTERLOC.obj_len = 3; /*inistring dstr_752__SCITERDEF_AFTERLOC*/ /*_._VALSTR___V848*/ meltfptr[847] = (melt_ptr_t) &meltcdat->dstr_752__SCITERDEF_AFTERLOC; meltcdat->dstr_752__SCITERDEF_AFTERLOC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_752__SCITERDEF_AFTERLOC.val, "SCITERDEF_AFTERLOC", sizeof (meltcdat->dstr_752__SCITERDEF_AFTERLOC.val)-1); meltcdat->dstr_752__SCITERDEF_AFTERLOC.val[18] = (char)0 ; meltcdat->dstr_752__SCITERDEF_AFTERLOC.slen = 18 ; /*^iniobj*/ /*iniobj dobj_753__SCITERDEF_AFTERLOC*/ /*_._VALDATA___V840*/ meltfptr[839] = (melt_ptr_t )&meltcdat->dobj_753__SCITERDEF_AFTERLOC; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_753__SCITERDEF_AFTERLOC", 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_753__SCITERDEF_AFTERLOC", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_753__SCITERDEF_AFTERLOC.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_753__SCITERDEF_AFTERLOC.obj_num = 7; meltcdat->dobj_753__SCITERDEF_AFTERLOC.obj_hash = 840827762; meltcdat->dobj_753__SCITERDEF_AFTERLOC.obj_len = 4; /*inistring dstr_754__SCITERDEF_AFTERLOC*/ /*_._VALSTR___V841*/ meltfptr[840] = (melt_ptr_t) &meltcdat->dstr_754__SCITERDEF_AFTERLOC; meltcdat->dstr_754__SCITERDEF_AFTERLOC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_754__SCITERDEF_AFTERLOC.val, "SCITERDEF_AFTERLOC", sizeof (meltcdat->dstr_754__SCITERDEF_AFTERLOC.val)-1); meltcdat->dstr_754__SCITERDEF_AFTERLOC.val[18] = (char)0 ; meltcdat->dstr_754__SCITERDEF_AFTERLOC.slen = 18 ; /*iniobj dsym_755__CLASS_SOURCE_DEFCMATCHER*/ /*uniqueobj*/ if (!/*_._VALDATA___V849*/ meltfptr[848]) /*_._VALDATA___V849*/ meltfptr[848] = (melt_ptr_t )&meltcdat->dsym_755__CLASS_SOURCE_DEFCMATCHER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_755__CLASS_SOURCE_DEFCMATCHER", 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_755__CLASS_SOURCE_DEFCMATCHER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_755__CLASS_SOURCE_DEFCMATCHER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_755__CLASS_SOURCE_DEFCMATCHER.obj_hash = 177651266; meltcdat->dsym_755__CLASS_SOURCE_DEFCMATCHER.obj_len = 3; /*inistring dstr_756__CLASS_SOURCE_DEFCMATCHER*/ /*_._VALSTR___V850*/ meltfptr[849] = (melt_ptr_t) &meltcdat->dstr_756__CLASS_SOURCE_DEFCMATCHER; meltcdat->dstr_756__CLASS_SOURCE_DEFCMATCHER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_756__CLASS_SOURCE_DEFCMATCHER.val, "CLASS_SOURCE_DEFCMATCHER", sizeof (meltcdat->dstr_756__CLASS_SOURCE_DEFCMATCHER.val)-1); meltcdat->dstr_756__CLASS_SOURCE_DEFCMATCHER.val[24] = (char)0 ; meltcdat->dstr_756__CLASS_SOURCE_DEFCMATCHER.slen = 24 ; MELT_LOCATION("warmelt-macro.melt:875:/ iniobj"); /*iniobj dobj_757__CLASS_SOURCE_DEFCMATCHER*/ /*_._VALDATA___V851*/ meltfptr[850] = (melt_ptr_t )&meltcdat->dobj_757__CLASS_SOURCE_DEFCMATCHER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_757__CLASS_SOURCE_DEFCMATCHER", 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_757__CLASS_SOURCE_DEFCMATCHER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_757__CLASS_SOURCE_DEFCMATCHER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_757__CLASS_SOURCE_DEFCMATCHER.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_757__CLASS_SOURCE_DEFCMATCHER.obj_hash = 985287680; meltcdat->dobj_757__CLASS_SOURCE_DEFCMATCHER.obj_len = 8; /*inistring dstr_758__CLASS_SOURCE_DEFCMATCHER*/ /*_._VALSTR___V852*/ meltfptr[851] = (melt_ptr_t) &meltcdat->dstr_758__CLASS_SOURCE_DEFCMATCHER; meltcdat->dstr_758__CLASS_SOURCE_DEFCMATCHER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_758__CLASS_SOURCE_DEFCMATCHER.val, "CLASS_SOURCE_DEFCMATCHER", sizeof (meltcdat->dstr_758__CLASS_SOURCE_DEFCMATCHER.val)-1); meltcdat->dstr_758__CLASS_SOURCE_DEFCMATCHER.val[24] = (char)0 ; meltcdat->dstr_758__CLASS_SOURCE_DEFCMATCHER.slen = 24 ; /*inimult dtup_759_syCLASS_SOURCE_DEFCMATCHER*/ /*_._VALTUP___V853*/ meltfptr[852] = (melt_ptr_t) &meltcdat->dtup_759_syCLASS_SOURCE_DEFCMATCHER; meltcdat->dtup_759_syCLASS_SOURCE_DEFCMATCHER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_759_syCLASS_SOURCE_DEFCMATCHER.nbval = 6; /*inimult dtup_760_syCLASS_SOURCE_DEFCMATCHER*/ /*_._VALTUP___V862*/ meltfptr[861] = (melt_ptr_t) &meltcdat->dtup_760_syCLASS_SOURCE_DEFCMATCHER; meltcdat->dtup_760_syCLASS_SOURCE_DEFCMATCHER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_760_syCLASS_SOURCE_DEFCMATCHER.nbval = 9; /*iniobj dsym_761__SCMATDEF_CMATCHER*/ /*uniqueobj*/ if (!/*_._VALDATA___V863*/ meltfptr[862]) /*_._VALDATA___V863*/ meltfptr[862] = (melt_ptr_t )&meltcdat->dsym_761__SCMATDEF_CMATCHER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_761__SCMATDEF_CMATCHER", 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_761__SCMATDEF_CMATCHER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_761__SCMATDEF_CMATCHER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_761__SCMATDEF_CMATCHER.obj_hash = 75922864; meltcdat->dsym_761__SCMATDEF_CMATCHER.obj_len = 3; /*inistring dstr_762__SCMATDEF_CMATCHER*/ /*_._VALSTR___V864*/ meltfptr[863] = (melt_ptr_t) &meltcdat->dstr_762__SCMATDEF_CMATCHER; meltcdat->dstr_762__SCMATDEF_CMATCHER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_762__SCMATDEF_CMATCHER.val, "SCMATDEF_CMATCHER", sizeof (meltcdat->dstr_762__SCMATDEF_CMATCHER.val)-1); meltcdat->dstr_762__SCMATDEF_CMATCHER.val[17] = (char)0 ; meltcdat->dstr_762__SCMATDEF_CMATCHER.slen = 17 ; /*^iniobj*/ /*iniobj dobj_763__SCMATDEF_CMATCHER*/ /*_._VALDATA___V854*/ meltfptr[853] = (melt_ptr_t )&meltcdat->dobj_763__SCMATDEF_CMATCHER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_763__SCMATDEF_CMATCHER", 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_763__SCMATDEF_CMATCHER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_763__SCMATDEF_CMATCHER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_763__SCMATDEF_CMATCHER.obj_num = 5; meltcdat->dobj_763__SCMATDEF_CMATCHER.obj_hash = 852191160; meltcdat->dobj_763__SCMATDEF_CMATCHER.obj_len = 4; /*inistring dstr_764__SCMATDEF_CMATCHER*/ /*_._VALSTR___V855*/ meltfptr[854] = (melt_ptr_t) &meltcdat->dstr_764__SCMATDEF_CMATCHER; meltcdat->dstr_764__SCMATDEF_CMATCHER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_764__SCMATDEF_CMATCHER.val, "SCMATDEF_CMATCHER", sizeof (meltcdat->dstr_764__SCMATDEF_CMATCHER.val)-1); meltcdat->dstr_764__SCMATDEF_CMATCHER.val[17] = (char)0 ; meltcdat->dstr_764__SCMATDEF_CMATCHER.slen = 17 ; /*iniobj dsym_765__SCMATDEF_TESTLOC*/ /*uniqueobj*/ if (!/*_._VALDATA___V865*/ meltfptr[864]) /*_._VALDATA___V865*/ meltfptr[864] = (melt_ptr_t )&meltcdat->dsym_765__SCMATDEF_TESTLOC; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_765__SCMATDEF_TESTLOC", 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_765__SCMATDEF_TESTLOC", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_765__SCMATDEF_TESTLOC.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_765__SCMATDEF_TESTLOC.obj_hash = 614986849; meltcdat->dsym_765__SCMATDEF_TESTLOC.obj_len = 3; /*inistring dstr_766__SCMATDEF_TESTLOC*/ /*_._VALSTR___V866*/ meltfptr[865] = (melt_ptr_t) &meltcdat->dstr_766__SCMATDEF_TESTLOC; meltcdat->dstr_766__SCMATDEF_TESTLOC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_766__SCMATDEF_TESTLOC.val, "SCMATDEF_TESTLOC", sizeof (meltcdat->dstr_766__SCMATDEF_TESTLOC.val)-1); meltcdat->dstr_766__SCMATDEF_TESTLOC.val[16] = (char)0 ; meltcdat->dstr_766__SCMATDEF_TESTLOC.slen = 16 ; /*^iniobj*/ /*iniobj dobj_767__SCMATDEF_TESTLOC*/ /*_._VALDATA___V856*/ meltfptr[855] = (melt_ptr_t )&meltcdat->dobj_767__SCMATDEF_TESTLOC; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_767__SCMATDEF_TESTLOC", 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_767__SCMATDEF_TESTLOC", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_767__SCMATDEF_TESTLOC.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_767__SCMATDEF_TESTLOC.obj_num = 6; meltcdat->dobj_767__SCMATDEF_TESTLOC.obj_hash = 682467203; meltcdat->dobj_767__SCMATDEF_TESTLOC.obj_len = 4; /*inistring dstr_768__SCMATDEF_TESTLOC*/ /*_._VALSTR___V857*/ meltfptr[856] = (melt_ptr_t) &meltcdat->dstr_768__SCMATDEF_TESTLOC; meltcdat->dstr_768__SCMATDEF_TESTLOC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_768__SCMATDEF_TESTLOC.val, "SCMATDEF_TESTLOC", sizeof (meltcdat->dstr_768__SCMATDEF_TESTLOC.val)-1); meltcdat->dstr_768__SCMATDEF_TESTLOC.val[16] = (char)0 ; meltcdat->dstr_768__SCMATDEF_TESTLOC.slen = 16 ; /*iniobj dsym_769__SCMATDEF_FILLLOC*/ /*uniqueobj*/ if (!/*_._VALDATA___V867*/ meltfptr[866]) /*_._VALDATA___V867*/ meltfptr[866] = (melt_ptr_t )&meltcdat->dsym_769__SCMATDEF_FILLLOC; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_769__SCMATDEF_FILLLOC", 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_769__SCMATDEF_FILLLOC", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_769__SCMATDEF_FILLLOC.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_769__SCMATDEF_FILLLOC.obj_hash = 822963004; meltcdat->dsym_769__SCMATDEF_FILLLOC.obj_len = 3; /*inistring dstr_770__SCMATDEF_FILLLOC*/ /*_._VALSTR___V868*/ meltfptr[867] = (melt_ptr_t) &meltcdat->dstr_770__SCMATDEF_FILLLOC; meltcdat->dstr_770__SCMATDEF_FILLLOC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_770__SCMATDEF_FILLLOC.val, "SCMATDEF_FILLLOC", sizeof (meltcdat->dstr_770__SCMATDEF_FILLLOC.val)-1); meltcdat->dstr_770__SCMATDEF_FILLLOC.val[16] = (char)0 ; meltcdat->dstr_770__SCMATDEF_FILLLOC.slen = 16 ; /*^iniobj*/ /*iniobj dobj_771__SCMATDEF_FILLLOC*/ /*_._VALDATA___V858*/ meltfptr[857] = (melt_ptr_t )&meltcdat->dobj_771__SCMATDEF_FILLLOC; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_771__SCMATDEF_FILLLOC", 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_771__SCMATDEF_FILLLOC", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_771__SCMATDEF_FILLLOC.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_771__SCMATDEF_FILLLOC.obj_num = 7; meltcdat->dobj_771__SCMATDEF_FILLLOC.obj_hash = 947917338; meltcdat->dobj_771__SCMATDEF_FILLLOC.obj_len = 4; /*inistring dstr_772__SCMATDEF_FILLLOC*/ /*_._VALSTR___V859*/ meltfptr[858] = (melt_ptr_t) &meltcdat->dstr_772__SCMATDEF_FILLLOC; meltcdat->dstr_772__SCMATDEF_FILLLOC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_772__SCMATDEF_FILLLOC.val, "SCMATDEF_FILLLOC", sizeof (meltcdat->dstr_772__SCMATDEF_FILLLOC.val)-1); meltcdat->dstr_772__SCMATDEF_FILLLOC.val[16] = (char)0 ; meltcdat->dstr_772__SCMATDEF_FILLLOC.slen = 16 ; /*iniobj dsym_773__SCMATDEF_OPERLOC*/ /*uniqueobj*/ if (!/*_._VALDATA___V869*/ meltfptr[868]) /*_._VALDATA___V869*/ meltfptr[868] = (melt_ptr_t )&meltcdat->dsym_773__SCMATDEF_OPERLOC; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_773__SCMATDEF_OPERLOC", 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_773__SCMATDEF_OPERLOC", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_773__SCMATDEF_OPERLOC.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_773__SCMATDEF_OPERLOC.obj_hash = 958702304; meltcdat->dsym_773__SCMATDEF_OPERLOC.obj_len = 3; /*inistring dstr_774__SCMATDEF_OPERLOC*/ /*_._VALSTR___V870*/ meltfptr[869] = (melt_ptr_t) &meltcdat->dstr_774__SCMATDEF_OPERLOC; meltcdat->dstr_774__SCMATDEF_OPERLOC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_774__SCMATDEF_OPERLOC.val, "SCMATDEF_OPERLOC", sizeof (meltcdat->dstr_774__SCMATDEF_OPERLOC.val)-1); meltcdat->dstr_774__SCMATDEF_OPERLOC.val[16] = (char)0 ; meltcdat->dstr_774__SCMATDEF_OPERLOC.slen = 16 ; /*^iniobj*/ /*iniobj dobj_775__SCMATDEF_OPERLOC*/ /*_._VALDATA___V860*/ meltfptr[859] = (melt_ptr_t )&meltcdat->dobj_775__SCMATDEF_OPERLOC; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_775__SCMATDEF_OPERLOC", 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_775__SCMATDEF_OPERLOC", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_775__SCMATDEF_OPERLOC.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_775__SCMATDEF_OPERLOC.obj_num = 8; meltcdat->dobj_775__SCMATDEF_OPERLOC.obj_hash = 661272861; meltcdat->dobj_775__SCMATDEF_OPERLOC.obj_len = 4; /*inistring dstr_776__SCMATDEF_OPERLOC*/ /*_._VALSTR___V861*/ meltfptr[860] = (melt_ptr_t) &meltcdat->dstr_776__SCMATDEF_OPERLOC; meltcdat->dstr_776__SCMATDEF_OPERLOC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_776__SCMATDEF_OPERLOC.val, "SCMATDEF_OPERLOC", sizeof (meltcdat->dstr_776__SCMATDEF_OPERLOC.val)-1); meltcdat->dstr_776__SCMATDEF_OPERLOC.val[16] = (char)0 ; meltcdat->dstr_776__SCMATDEF_OPERLOC.slen = 16 ; /*iniobj dsym_777__CLASS_SOURCE_DEFUNMATCHER*/ /*uniqueobj*/ if (!/*_._VALDATA___V871*/ meltfptr[870]) /*_._VALDATA___V871*/ meltfptr[870] = (melt_ptr_t )&meltcdat->dsym_777__CLASS_SOURCE_DEFUNMATCHER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_777__CLASS_SOURCE_DEFUNMATCHER", 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_777__CLASS_SOURCE_DEFUNMATCHER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_777__CLASS_SOURCE_DEFUNMATCHER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_777__CLASS_SOURCE_DEFUNMATCHER.obj_hash = 952645922; meltcdat->dsym_777__CLASS_SOURCE_DEFUNMATCHER.obj_len = 3; /*inistring dstr_778__CLASS_SOURCE_DEFUNMATCHE*/ /*_._VALSTR___V872*/ meltfptr[871] = (melt_ptr_t) &meltcdat->dstr_778__CLASS_SOURCE_DEFUNMATCHE; meltcdat->dstr_778__CLASS_SOURCE_DEFUNMATCHE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_778__CLASS_SOURCE_DEFUNMATCHE.val, "CLASS_SOURCE_DEFUNMATCHER", sizeof (meltcdat->dstr_778__CLASS_SOURCE_DEFUNMATCHE.val)-1); meltcdat->dstr_778__CLASS_SOURCE_DEFUNMATCHE.val[25] = (char)0 ; meltcdat->dstr_778__CLASS_SOURCE_DEFUNMATCHE.slen = 25 ; MELT_LOCATION("warmelt-macro.melt:894:/ iniobj"); /*iniobj dobj_779__CLASS_SOURCE_DEFUNMATCHER*/ /*_._VALDATA___V873*/ meltfptr[872] = (melt_ptr_t )&meltcdat->dobj_779__CLASS_SOURCE_DEFUNMATCHER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_779__CLASS_SOURCE_DEFUNMATCHER", 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_779__CLASS_SOURCE_DEFUNMATCHER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_779__CLASS_SOURCE_DEFUNMATCHER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_779__CLASS_SOURCE_DEFUNMATCHER.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_779__CLASS_SOURCE_DEFUNMATCHER.obj_hash = 432133394; meltcdat->dobj_779__CLASS_SOURCE_DEFUNMATCHER.obj_len = 8; /*inistring dstr_780__CLASS_SOURCE_DEFUNMATCHE*/ /*_._VALSTR___V874*/ meltfptr[873] = (melt_ptr_t) &meltcdat->dstr_780__CLASS_SOURCE_DEFUNMATCHE; meltcdat->dstr_780__CLASS_SOURCE_DEFUNMATCHE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_780__CLASS_SOURCE_DEFUNMATCHE.val, "CLASS_SOURCE_DEFUNMATCHER", sizeof (meltcdat->dstr_780__CLASS_SOURCE_DEFUNMATCHE.val)-1); meltcdat->dstr_780__CLASS_SOURCE_DEFUNMATCHE.val[25] = (char)0 ; meltcdat->dstr_780__CLASS_SOURCE_DEFUNMATCHE.slen = 25 ; /*inimult dtup_781_syCLASS_SOURCE_DEFUNMATCHER*/ /*_._VALTUP___V875*/ meltfptr[874] = (melt_ptr_t) &meltcdat->dtup_781_syCLASS_SOURCE_DEFUNMATCHER; meltcdat->dtup_781_syCLASS_SOURCE_DEFUNMATCHER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_781_syCLASS_SOURCE_DEFUNMATCHER.nbval = 6; /*inimult dtup_782_syCLASS_SOURCE_DEFUNMATCHER*/ /*_._VALTUP___V886*/ meltfptr[885] = (melt_ptr_t) &meltcdat->dtup_782_syCLASS_SOURCE_DEFUNMATCHER; meltcdat->dtup_782_syCLASS_SOURCE_DEFUNMATCHER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_782_syCLASS_SOURCE_DEFUNMATCHER.nbval = 10; /*iniobj dsym_783__SFUMATDEF_INS*/ /*uniqueobj*/ if (!/*_._VALDATA___V887*/ meltfptr[886]) /*_._VALDATA___V887*/ meltfptr[886] = (melt_ptr_t )&meltcdat->dsym_783__SFUMATDEF_INS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_783__SFUMATDEF_INS", 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_783__SFUMATDEF_INS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_783__SFUMATDEF_INS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_783__SFUMATDEF_INS.obj_hash = 827702548; meltcdat->dsym_783__SFUMATDEF_INS.obj_len = 3; /*inistring dstr_784__SFUMATDEF_INS*/ /*_._VALSTR___V888*/ meltfptr[887] = (melt_ptr_t) &meltcdat->dstr_784__SFUMATDEF_INS; meltcdat->dstr_784__SFUMATDEF_INS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_784__SFUMATDEF_INS.val, "SFUMATDEF_INS", sizeof (meltcdat->dstr_784__SFUMATDEF_INS.val)-1); meltcdat->dstr_784__SFUMATDEF_INS.val[13] = (char)0 ; meltcdat->dstr_784__SFUMATDEF_INS.slen = 13 ; /*^iniobj*/ /*iniobj dobj_785__SFUMATDEF_INS*/ /*_._VALDATA___V876*/ meltfptr[875] = (melt_ptr_t )&meltcdat->dobj_785__SFUMATDEF_INS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_785__SFUMATDEF_INS", 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_785__SFUMATDEF_INS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_785__SFUMATDEF_INS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_785__SFUMATDEF_INS.obj_num = 5; meltcdat->dobj_785__SFUMATDEF_INS.obj_hash = 49358828; meltcdat->dobj_785__SFUMATDEF_INS.obj_len = 4; /*inistring dstr_786__SFUMATDEF_INS*/ /*_._VALSTR___V877*/ meltfptr[876] = (melt_ptr_t) &meltcdat->dstr_786__SFUMATDEF_INS; meltcdat->dstr_786__SFUMATDEF_INS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_786__SFUMATDEF_INS.val, "SFUMATDEF_INS", sizeof (meltcdat->dstr_786__SFUMATDEF_INS.val)-1); meltcdat->dstr_786__SFUMATDEF_INS.val[13] = (char)0 ; meltcdat->dstr_786__SFUMATDEF_INS.slen = 13 ; /*iniobj dsym_787__SFUMATDEF_OUTS*/ /*uniqueobj*/ if (!/*_._VALDATA___V889*/ meltfptr[888]) /*_._VALDATA___V889*/ meltfptr[888] = (melt_ptr_t )&meltcdat->dsym_787__SFUMATDEF_OUTS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_787__SFUMATDEF_OUTS", 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_787__SFUMATDEF_OUTS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_787__SFUMATDEF_OUTS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_787__SFUMATDEF_OUTS.obj_hash = 314080299; meltcdat->dsym_787__SFUMATDEF_OUTS.obj_len = 3; /*inistring dstr_788__SFUMATDEF_OUTS*/ /*_._VALSTR___V890*/ meltfptr[889] = (melt_ptr_t) &meltcdat->dstr_788__SFUMATDEF_OUTS; meltcdat->dstr_788__SFUMATDEF_OUTS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_788__SFUMATDEF_OUTS.val, "SFUMATDEF_OUTS", sizeof (meltcdat->dstr_788__SFUMATDEF_OUTS.val)-1); meltcdat->dstr_788__SFUMATDEF_OUTS.val[14] = (char)0 ; meltcdat->dstr_788__SFUMATDEF_OUTS.slen = 14 ; /*^iniobj*/ /*iniobj dobj_789__SFUMATDEF_OUTS*/ /*_._VALDATA___V878*/ meltfptr[877] = (melt_ptr_t )&meltcdat->dobj_789__SFUMATDEF_OUTS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_789__SFUMATDEF_OUTS", 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_789__SFUMATDEF_OUTS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_789__SFUMATDEF_OUTS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_789__SFUMATDEF_OUTS.obj_num = 6; meltcdat->dobj_789__SFUMATDEF_OUTS.obj_hash = 56936484; meltcdat->dobj_789__SFUMATDEF_OUTS.obj_len = 4; /*inistring dstr_790__SFUMATDEF_OUTS*/ /*_._VALSTR___V879*/ meltfptr[878] = (melt_ptr_t) &meltcdat->dstr_790__SFUMATDEF_OUTS; meltcdat->dstr_790__SFUMATDEF_OUTS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_790__SFUMATDEF_OUTS.val, "SFUMATDEF_OUTS", sizeof (meltcdat->dstr_790__SFUMATDEF_OUTS.val)-1); meltcdat->dstr_790__SFUMATDEF_OUTS.val[14] = (char)0 ; meltcdat->dstr_790__SFUMATDEF_OUTS.slen = 14 ; /*iniobj dsym_791__SFUMATDEF_MATCHF*/ /*uniqueobj*/ if (!/*_._VALDATA___V891*/ meltfptr[890]) /*_._VALDATA___V891*/ meltfptr[890] = (melt_ptr_t )&meltcdat->dsym_791__SFUMATDEF_MATCHF; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_791__SFUMATDEF_MATCHF", 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_791__SFUMATDEF_MATCHF", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_791__SFUMATDEF_MATCHF.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_791__SFUMATDEF_MATCHF.obj_hash = 105121313; meltcdat->dsym_791__SFUMATDEF_MATCHF.obj_len = 3; /*inistring dstr_792__SFUMATDEF_MATCHF*/ /*_._VALSTR___V892*/ meltfptr[891] = (melt_ptr_t) &meltcdat->dstr_792__SFUMATDEF_MATCHF; meltcdat->dstr_792__SFUMATDEF_MATCHF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_792__SFUMATDEF_MATCHF.val, "SFUMATDEF_MATCHF", sizeof (meltcdat->dstr_792__SFUMATDEF_MATCHF.val)-1); meltcdat->dstr_792__SFUMATDEF_MATCHF.val[16] = (char)0 ; meltcdat->dstr_792__SFUMATDEF_MATCHF.slen = 16 ; /*^iniobj*/ /*iniobj dobj_793__SFUMATDEF_MATCHF*/ /*_._VALDATA___V880*/ meltfptr[879] = (melt_ptr_t )&meltcdat->dobj_793__SFUMATDEF_MATCHF; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_793__SFUMATDEF_MATCHF", 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_793__SFUMATDEF_MATCHF", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_793__SFUMATDEF_MATCHF.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_793__SFUMATDEF_MATCHF.obj_num = 7; meltcdat->dobj_793__SFUMATDEF_MATCHF.obj_hash = 519196720; meltcdat->dobj_793__SFUMATDEF_MATCHF.obj_len = 4; /*inistring dstr_794__SFUMATDEF_MATCHF*/ /*_._VALSTR___V881*/ meltfptr[880] = (melt_ptr_t) &meltcdat->dstr_794__SFUMATDEF_MATCHF; meltcdat->dstr_794__SFUMATDEF_MATCHF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_794__SFUMATDEF_MATCHF.val, "SFUMATDEF_MATCHF", sizeof (meltcdat->dstr_794__SFUMATDEF_MATCHF.val)-1); meltcdat->dstr_794__SFUMATDEF_MATCHF.val[16] = (char)0 ; meltcdat->dstr_794__SFUMATDEF_MATCHF.slen = 16 ; /*iniobj dsym_795__SFUMATDEF_APPLYF*/ /*uniqueobj*/ if (!/*_._VALDATA___V893*/ meltfptr[892]) /*_._VALDATA___V893*/ meltfptr[892] = (melt_ptr_t )&meltcdat->dsym_795__SFUMATDEF_APPLYF; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_795__SFUMATDEF_APPLYF", 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_795__SFUMATDEF_APPLYF", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_795__SFUMATDEF_APPLYF.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_795__SFUMATDEF_APPLYF.obj_hash = 921369127; meltcdat->dsym_795__SFUMATDEF_APPLYF.obj_len = 3; /*inistring dstr_796__SFUMATDEF_APPLYF*/ /*_._VALSTR___V894*/ meltfptr[893] = (melt_ptr_t) &meltcdat->dstr_796__SFUMATDEF_APPLYF; meltcdat->dstr_796__SFUMATDEF_APPLYF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_796__SFUMATDEF_APPLYF.val, "SFUMATDEF_APPLYF", sizeof (meltcdat->dstr_796__SFUMATDEF_APPLYF.val)-1); meltcdat->dstr_796__SFUMATDEF_APPLYF.val[16] = (char)0 ; meltcdat->dstr_796__SFUMATDEF_APPLYF.slen = 16 ; /*^iniobj*/ /*iniobj dobj_797__SFUMATDEF_APPLYF*/ /*_._VALDATA___V882*/ meltfptr[881] = (melt_ptr_t )&meltcdat->dobj_797__SFUMATDEF_APPLYF; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_797__SFUMATDEF_APPLYF", 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_797__SFUMATDEF_APPLYF", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_797__SFUMATDEF_APPLYF.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_797__SFUMATDEF_APPLYF.obj_num = 8; meltcdat->dobj_797__SFUMATDEF_APPLYF.obj_hash = 336722428; meltcdat->dobj_797__SFUMATDEF_APPLYF.obj_len = 4; /*inistring dstr_798__SFUMATDEF_APPLYF*/ /*_._VALSTR___V883*/ meltfptr[882] = (melt_ptr_t) &meltcdat->dstr_798__SFUMATDEF_APPLYF; meltcdat->dstr_798__SFUMATDEF_APPLYF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_798__SFUMATDEF_APPLYF.val, "SFUMATDEF_APPLYF", sizeof (meltcdat->dstr_798__SFUMATDEF_APPLYF.val)-1); meltcdat->dstr_798__SFUMATDEF_APPLYF.val[16] = (char)0 ; meltcdat->dstr_798__SFUMATDEF_APPLYF.slen = 16 ; /*iniobj dsym_799__SFUMATDEF_DATA*/ /*uniqueobj*/ if (!/*_._VALDATA___V895*/ meltfptr[894]) /*_._VALDATA___V895*/ meltfptr[894] = (melt_ptr_t )&meltcdat->dsym_799__SFUMATDEF_DATA; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_799__SFUMATDEF_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_799__SFUMATDEF_DATA", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_799__SFUMATDEF_DATA.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_799__SFUMATDEF_DATA.obj_hash = 137569219; meltcdat->dsym_799__SFUMATDEF_DATA.obj_len = 3; /*inistring dstr_800__SFUMATDEF_DATA*/ /*_._VALSTR___V896*/ meltfptr[895] = (melt_ptr_t) &meltcdat->dstr_800__SFUMATDEF_DATA; meltcdat->dstr_800__SFUMATDEF_DATA.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_800__SFUMATDEF_DATA.val, "SFUMATDEF_DATA", sizeof (meltcdat->dstr_800__SFUMATDEF_DATA.val)-1); meltcdat->dstr_800__SFUMATDEF_DATA.val[14] = (char)0 ; meltcdat->dstr_800__SFUMATDEF_DATA.slen = 14 ; /*^iniobj*/ /*iniobj dobj_801__SFUMATDEF_DATA*/ /*_._VALDATA___V884*/ meltfptr[883] = (melt_ptr_t )&meltcdat->dobj_801__SFUMATDEF_DATA; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_801__SFUMATDEF_DATA", 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_801__SFUMATDEF_DATA", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_801__SFUMATDEF_DATA.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_801__SFUMATDEF_DATA.obj_num = 9; meltcdat->dobj_801__SFUMATDEF_DATA.obj_hash = 371763597; meltcdat->dobj_801__SFUMATDEF_DATA.obj_len = 4; /*inistring dstr_802__SFUMATDEF_DATA*/ /*_._VALSTR___V885*/ meltfptr[884] = (melt_ptr_t) &meltcdat->dstr_802__SFUMATDEF_DATA; meltcdat->dstr_802__SFUMATDEF_DATA.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_802__SFUMATDEF_DATA.val, "SFUMATDEF_DATA", sizeof (meltcdat->dstr_802__SFUMATDEF_DATA.val)-1); meltcdat->dstr_802__SFUMATDEF_DATA.val[14] = (char)0 ; meltcdat->dstr_802__SFUMATDEF_DATA.slen = 14 ; /*iniobj dsym_803__CLASS_SOURCE_DEFOBJCOMMON*/ /*uniqueobj*/ if (!/*_._VALDATA___V897*/ meltfptr[896]) /*_._VALDATA___V897*/ meltfptr[896] = (melt_ptr_t )&meltcdat->dsym_803__CLASS_SOURCE_DEFOBJCOMMON; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_803__CLASS_SOURCE_DEFOBJCOMMON", 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_803__CLASS_SOURCE_DEFOBJCOMMON", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_803__CLASS_SOURCE_DEFOBJCOMMON.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_803__CLASS_SOURCE_DEFOBJCOMMON.obj_hash = 59608014; meltcdat->dsym_803__CLASS_SOURCE_DEFOBJCOMMON.obj_len = 3; /*inistring dstr_804__CLASS_SOURCE_DEFOBJCOMMO*/ /*_._VALSTR___V898*/ meltfptr[897] = (melt_ptr_t) &meltcdat->dstr_804__CLASS_SOURCE_DEFOBJCOMMO; meltcdat->dstr_804__CLASS_SOURCE_DEFOBJCOMMO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_804__CLASS_SOURCE_DEFOBJCOMMO.val, "CLASS_SOURCE_DEFOBJCOMMON", sizeof (meltcdat->dstr_804__CLASS_SOURCE_DEFOBJCOMMO.val)-1); meltcdat->dstr_804__CLASS_SOURCE_DEFOBJCOMMO.val[25] = (char)0 ; meltcdat->dstr_804__CLASS_SOURCE_DEFOBJCOMMO.slen = 25 ; MELT_LOCATION("warmelt-macro.melt:914:/ iniobj"); /*iniobj dobj_805__CLASS_SOURCE_DEFOBJCOMMON*/ /*_._VALDATA___V899*/ meltfptr[898] = (melt_ptr_t )&meltcdat->dobj_805__CLASS_SOURCE_DEFOBJCOMMON; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_805__CLASS_SOURCE_DEFOBJCOMMON", 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_805__CLASS_SOURCE_DEFOBJCOMMON", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_805__CLASS_SOURCE_DEFOBJCOMMON.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_805__CLASS_SOURCE_DEFOBJCOMMON.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_805__CLASS_SOURCE_DEFOBJCOMMON.obj_hash = 706809639; meltcdat->dobj_805__CLASS_SOURCE_DEFOBJCOMMON.obj_len = 8; /*inistring dstr_806__CLASS_SOURCE_DEFOBJCOMMO*/ /*_._VALSTR___V900*/ meltfptr[899] = (melt_ptr_t) &meltcdat->dstr_806__CLASS_SOURCE_DEFOBJCOMMO; meltcdat->dstr_806__CLASS_SOURCE_DEFOBJCOMMO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_806__CLASS_SOURCE_DEFOBJCOMMO.val, "CLASS_SOURCE_DEFOBJCOMMON", sizeof (meltcdat->dstr_806__CLASS_SOURCE_DEFOBJCOMMO.val)-1); meltcdat->dstr_806__CLASS_SOURCE_DEFOBJCOMMO.val[25] = (char)0 ; meltcdat->dstr_806__CLASS_SOURCE_DEFOBJCOMMO.slen = 25 ; /*inimult dtup_807_syCLASS_SOURCE_DEFOBJCOMMON*/ /*_._VALTUP___V901*/ meltfptr[900] = (melt_ptr_t) &meltcdat->dtup_807_syCLASS_SOURCE_DEFOBJCOMMON; meltcdat->dtup_807_syCLASS_SOURCE_DEFOBJCOMMON.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_807_syCLASS_SOURCE_DEFOBJCOMMON.nbval = 5; /*inimult dtup_808_syCLASS_SOURCE_DEFOBJCOMMON*/ /*_._VALTUP___V904*/ meltfptr[903] = (melt_ptr_t) &meltcdat->dtup_808_syCLASS_SOURCE_DEFOBJCOMMON; meltcdat->dtup_808_syCLASS_SOURCE_DEFOBJCOMMON.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_808_syCLASS_SOURCE_DEFOBJCOMMON.nbval = 5; /*iniobj dsym_809__SOBJ_PREDEF*/ /*uniqueobj*/ if (!/*_._VALDATA___V905*/ meltfptr[904]) /*_._VALDATA___V905*/ meltfptr[904] = (melt_ptr_t )&meltcdat->dsym_809__SOBJ_PREDEF; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_809__SOBJ_PREDEF", 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_809__SOBJ_PREDEF", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_809__SOBJ_PREDEF.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_809__SOBJ_PREDEF.obj_hash = 86176455; meltcdat->dsym_809__SOBJ_PREDEF.obj_len = 3; /*inistring dstr_810__SOBJ_PREDEF*/ /*_._VALSTR___V906*/ meltfptr[905] = (melt_ptr_t) &meltcdat->dstr_810__SOBJ_PREDEF; meltcdat->dstr_810__SOBJ_PREDEF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_810__SOBJ_PREDEF.val, "SOBJ_PREDEF", sizeof (meltcdat->dstr_810__SOBJ_PREDEF.val)-1); meltcdat->dstr_810__SOBJ_PREDEF.val[11] = (char)0 ; meltcdat->dstr_810__SOBJ_PREDEF.slen = 11 ; /*^iniobj*/ /*iniobj dobj_811__SOBJ_PREDEF*/ /*_._VALDATA___V902*/ meltfptr[901] = (melt_ptr_t )&meltcdat->dobj_811__SOBJ_PREDEF; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_811__SOBJ_PREDEF", 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_811__SOBJ_PREDEF", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_811__SOBJ_PREDEF.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_811__SOBJ_PREDEF.obj_num = 4; meltcdat->dobj_811__SOBJ_PREDEF.obj_hash = 815619026; meltcdat->dobj_811__SOBJ_PREDEF.obj_len = 4; /*inistring dstr_812__SOBJ_PREDEF*/ /*_._VALSTR___V903*/ meltfptr[902] = (melt_ptr_t) &meltcdat->dstr_812__SOBJ_PREDEF; meltcdat->dstr_812__SOBJ_PREDEF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_812__SOBJ_PREDEF.val, "SOBJ_PREDEF", sizeof (meltcdat->dstr_812__SOBJ_PREDEF.val)-1); meltcdat->dstr_812__SOBJ_PREDEF.val[11] = (char)0 ; meltcdat->dstr_812__SOBJ_PREDEF.slen = 11 ; /*iniobj dsym_813__CLASS_SOURCE_DEFCLASS*/ /*uniqueobj*/ if (!/*_._VALDATA___V907*/ meltfptr[906]) /*_._VALDATA___V907*/ meltfptr[906] = (melt_ptr_t )&meltcdat->dsym_813__CLASS_SOURCE_DEFCLASS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_813__CLASS_SOURCE_DEFCLASS", 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_813__CLASS_SOURCE_DEFCLASS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_813__CLASS_SOURCE_DEFCLASS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_813__CLASS_SOURCE_DEFCLASS.obj_hash = 964015067; meltcdat->dsym_813__CLASS_SOURCE_DEFCLASS.obj_len = 3; /*inistring dstr_814__CLASS_SOURCE_DEFCLASS*/ /*_._VALSTR___V908*/ meltfptr[907] = (melt_ptr_t) &meltcdat->dstr_814__CLASS_SOURCE_DEFCLASS; meltcdat->dstr_814__CLASS_SOURCE_DEFCLASS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_814__CLASS_SOURCE_DEFCLASS.val, "CLASS_SOURCE_DEFCLASS", sizeof (meltcdat->dstr_814__CLASS_SOURCE_DEFCLASS.val)-1); meltcdat->dstr_814__CLASS_SOURCE_DEFCLASS.val[21] = (char)0 ; meltcdat->dstr_814__CLASS_SOURCE_DEFCLASS.slen = 21 ; MELT_LOCATION("warmelt-macro.melt:924:/ iniobj"); /*iniobj dobj_815__CLASS_SOURCE_DEFCLASS*/ /*_._VALDATA___V909*/ meltfptr[908] = (melt_ptr_t )&meltcdat->dobj_815__CLASS_SOURCE_DEFCLASS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_815__CLASS_SOURCE_DEFCLASS", 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_815__CLASS_SOURCE_DEFCLASS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_815__CLASS_SOURCE_DEFCLASS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_815__CLASS_SOURCE_DEFCLASS.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_815__CLASS_SOURCE_DEFCLASS.obj_hash = 941079422; meltcdat->dobj_815__CLASS_SOURCE_DEFCLASS.obj_len = 8; /*inistring dstr_816__CLASS_SOURCE_DEFCLASS*/ /*_._VALSTR___V910*/ meltfptr[909] = (melt_ptr_t) &meltcdat->dstr_816__CLASS_SOURCE_DEFCLASS; meltcdat->dstr_816__CLASS_SOURCE_DEFCLASS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_816__CLASS_SOURCE_DEFCLASS.val, "CLASS_SOURCE_DEFCLASS", sizeof (meltcdat->dstr_816__CLASS_SOURCE_DEFCLASS.val)-1); meltcdat->dstr_816__CLASS_SOURCE_DEFCLASS.val[21] = (char)0 ; meltcdat->dstr_816__CLASS_SOURCE_DEFCLASS.slen = 21 ; /*inimult dtup_817_syCLASS_SOURCE_DEFCLASS*/ /*_._VALTUP___V911*/ meltfptr[910] = (melt_ptr_t) &meltcdat->dtup_817_syCLASS_SOURCE_DEFCLASS; meltcdat->dtup_817_syCLASS_SOURCE_DEFCLASS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_817_syCLASS_SOURCE_DEFCLASS.nbval = 6; /*inimult dtup_818_syCLASS_SOURCE_DEFCLASS*/ /*_._VALTUP___V918*/ meltfptr[917] = (melt_ptr_t) &meltcdat->dtup_818_syCLASS_SOURCE_DEFCLASS; meltcdat->dtup_818_syCLASS_SOURCE_DEFCLASS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_818_syCLASS_SOURCE_DEFCLASS.nbval = 8; /*iniobj dsym_819__SCLASS_CLABIND*/ /*uniqueobj*/ if (!/*_._VALDATA___V919*/ meltfptr[918]) /*_._VALDATA___V919*/ meltfptr[918] = (melt_ptr_t )&meltcdat->dsym_819__SCLASS_CLABIND; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_819__SCLASS_CLABIND", 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_819__SCLASS_CLABIND", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_819__SCLASS_CLABIND.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_819__SCLASS_CLABIND.obj_hash = 547477738; meltcdat->dsym_819__SCLASS_CLABIND.obj_len = 3; /*inistring dstr_820__SCLASS_CLABIND*/ /*_._VALSTR___V920*/ meltfptr[919] = (melt_ptr_t) &meltcdat->dstr_820__SCLASS_CLABIND; meltcdat->dstr_820__SCLASS_CLABIND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_820__SCLASS_CLABIND.val, "SCLASS_CLABIND", sizeof (meltcdat->dstr_820__SCLASS_CLABIND.val)-1); meltcdat->dstr_820__SCLASS_CLABIND.val[14] = (char)0 ; meltcdat->dstr_820__SCLASS_CLABIND.slen = 14 ; /*^iniobj*/ /*iniobj dobj_821__SCLASS_CLABIND*/ /*_._VALDATA___V912*/ meltfptr[911] = (melt_ptr_t )&meltcdat->dobj_821__SCLASS_CLABIND; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_821__SCLASS_CLABIND", 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_821__SCLASS_CLABIND", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_821__SCLASS_CLABIND.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_821__SCLASS_CLABIND.obj_num = 5; meltcdat->dobj_821__SCLASS_CLABIND.obj_hash = 612693667; meltcdat->dobj_821__SCLASS_CLABIND.obj_len = 4; /*inistring dstr_822__SCLASS_CLABIND*/ /*_._VALSTR___V913*/ meltfptr[912] = (melt_ptr_t) &meltcdat->dstr_822__SCLASS_CLABIND; meltcdat->dstr_822__SCLASS_CLABIND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_822__SCLASS_CLABIND.val, "SCLASS_CLABIND", sizeof (meltcdat->dstr_822__SCLASS_CLABIND.val)-1); meltcdat->dstr_822__SCLASS_CLABIND.val[14] = (char)0 ; meltcdat->dstr_822__SCLASS_CLABIND.slen = 14 ; /*iniobj dsym_823__SCLASS_SUPERBIND*/ /*uniqueobj*/ if (!/*_._VALDATA___V921*/ meltfptr[920]) /*_._VALDATA___V921*/ meltfptr[920] = (melt_ptr_t )&meltcdat->dsym_823__SCLASS_SUPERBIND; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_823__SCLASS_SUPERBIND", 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_823__SCLASS_SUPERBIND", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_823__SCLASS_SUPERBIND.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_823__SCLASS_SUPERBIND.obj_hash = 920892924; meltcdat->dsym_823__SCLASS_SUPERBIND.obj_len = 3; /*inistring dstr_824__SCLASS_SUPERBIND*/ /*_._VALSTR___V922*/ meltfptr[921] = (melt_ptr_t) &meltcdat->dstr_824__SCLASS_SUPERBIND; meltcdat->dstr_824__SCLASS_SUPERBIND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_824__SCLASS_SUPERBIND.val, "SCLASS_SUPERBIND", sizeof (meltcdat->dstr_824__SCLASS_SUPERBIND.val)-1); meltcdat->dstr_824__SCLASS_SUPERBIND.val[16] = (char)0 ; meltcdat->dstr_824__SCLASS_SUPERBIND.slen = 16 ; /*^iniobj*/ /*iniobj dobj_825__SCLASS_SUPERBIND*/ /*_._VALDATA___V914*/ meltfptr[913] = (melt_ptr_t )&meltcdat->dobj_825__SCLASS_SUPERBIND; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_825__SCLASS_SUPERBIND", 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_825__SCLASS_SUPERBIND", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_825__SCLASS_SUPERBIND.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_825__SCLASS_SUPERBIND.obj_num = 6; meltcdat->dobj_825__SCLASS_SUPERBIND.obj_hash = 691782676; meltcdat->dobj_825__SCLASS_SUPERBIND.obj_len = 4; /*inistring dstr_826__SCLASS_SUPERBIND*/ /*_._VALSTR___V915*/ meltfptr[914] = (melt_ptr_t) &meltcdat->dstr_826__SCLASS_SUPERBIND; meltcdat->dstr_826__SCLASS_SUPERBIND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_826__SCLASS_SUPERBIND.val, "SCLASS_SUPERBIND", sizeof (meltcdat->dstr_826__SCLASS_SUPERBIND.val)-1); meltcdat->dstr_826__SCLASS_SUPERBIND.val[16] = (char)0 ; meltcdat->dstr_826__SCLASS_SUPERBIND.slen = 16 ; /*iniobj dsym_827__SCLASS_FLDBINDS*/ /*uniqueobj*/ if (!/*_._VALDATA___V923*/ meltfptr[922]) /*_._VALDATA___V923*/ meltfptr[922] = (melt_ptr_t )&meltcdat->dsym_827__SCLASS_FLDBINDS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_827__SCLASS_FLDBINDS", 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_827__SCLASS_FLDBINDS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_827__SCLASS_FLDBINDS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_827__SCLASS_FLDBINDS.obj_hash = 972028873; meltcdat->dsym_827__SCLASS_FLDBINDS.obj_len = 3; /*inistring dstr_828__SCLASS_FLDBINDS*/ /*_._VALSTR___V924*/ meltfptr[923] = (melt_ptr_t) &meltcdat->dstr_828__SCLASS_FLDBINDS; meltcdat->dstr_828__SCLASS_FLDBINDS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_828__SCLASS_FLDBINDS.val, "SCLASS_FLDBINDS", sizeof (meltcdat->dstr_828__SCLASS_FLDBINDS.val)-1); meltcdat->dstr_828__SCLASS_FLDBINDS.val[15] = (char)0 ; meltcdat->dstr_828__SCLASS_FLDBINDS.slen = 15 ; /*^iniobj*/ /*iniobj dobj_829__SCLASS_FLDBINDS*/ /*_._VALDATA___V916*/ meltfptr[915] = (melt_ptr_t )&meltcdat->dobj_829__SCLASS_FLDBINDS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_829__SCLASS_FLDBINDS", 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_829__SCLASS_FLDBINDS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_829__SCLASS_FLDBINDS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_829__SCLASS_FLDBINDS.obj_num = 7; meltcdat->dobj_829__SCLASS_FLDBINDS.obj_hash = 324992345; meltcdat->dobj_829__SCLASS_FLDBINDS.obj_len = 4; /*inistring dstr_830__SCLASS_FLDBINDS*/ /*_._VALSTR___V917*/ meltfptr[916] = (melt_ptr_t) &meltcdat->dstr_830__SCLASS_FLDBINDS; meltcdat->dstr_830__SCLASS_FLDBINDS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_830__SCLASS_FLDBINDS.val, "SCLASS_FLDBINDS", sizeof (meltcdat->dstr_830__SCLASS_FLDBINDS.val)-1); meltcdat->dstr_830__SCLASS_FLDBINDS.val[15] = (char)0 ; meltcdat->dstr_830__SCLASS_FLDBINDS.slen = 15 ; /*iniobj dsym_831__CLASS_SOURCE_DEFINSTANCE*/ /*uniqueobj*/ if (!/*_._VALDATA___V925*/ meltfptr[924]) /*_._VALDATA___V925*/ meltfptr[924] = (melt_ptr_t )&meltcdat->dsym_831__CLASS_SOURCE_DEFINSTANCE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_831__CLASS_SOURCE_DEFINSTANCE", 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_831__CLASS_SOURCE_DEFINSTANCE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_831__CLASS_SOURCE_DEFINSTANCE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_831__CLASS_SOURCE_DEFINSTANCE.obj_hash = 1015265906; meltcdat->dsym_831__CLASS_SOURCE_DEFINSTANCE.obj_len = 3; /*inistring dstr_832__CLASS_SOURCE_DEFINSTANCE*/ /*_._VALSTR___V926*/ meltfptr[925] = (melt_ptr_t) &meltcdat->dstr_832__CLASS_SOURCE_DEFINSTANCE; meltcdat->dstr_832__CLASS_SOURCE_DEFINSTANCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_832__CLASS_SOURCE_DEFINSTANCE.val, "CLASS_SOURCE_DEFINSTANCE", sizeof (meltcdat->dstr_832__CLASS_SOURCE_DEFINSTANCE.val)-1); meltcdat->dstr_832__CLASS_SOURCE_DEFINSTANCE.val[24] = (char)0 ; meltcdat->dstr_832__CLASS_SOURCE_DEFINSTANCE.slen = 24 ; MELT_LOCATION("warmelt-macro.melt:937:/ iniobj"); /*iniobj dobj_833__CLASS_SOURCE_DEFINSTANCE*/ /*_._VALDATA___V927*/ meltfptr[926] = (melt_ptr_t )&meltcdat->dobj_833__CLASS_SOURCE_DEFINSTANCE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_833__CLASS_SOURCE_DEFINSTANCE", 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_833__CLASS_SOURCE_DEFINSTANCE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_833__CLASS_SOURCE_DEFINSTANCE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_833__CLASS_SOURCE_DEFINSTANCE.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_833__CLASS_SOURCE_DEFINSTANCE.obj_hash = 754675350; meltcdat->dobj_833__CLASS_SOURCE_DEFINSTANCE.obj_len = 8; /*inistring dstr_834__CLASS_SOURCE_DEFINSTANCE*/ /*_._VALSTR___V928*/ meltfptr[927] = (melt_ptr_t) &meltcdat->dstr_834__CLASS_SOURCE_DEFINSTANCE; meltcdat->dstr_834__CLASS_SOURCE_DEFINSTANCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_834__CLASS_SOURCE_DEFINSTANCE.val, "CLASS_SOURCE_DEFINSTANCE", sizeof (meltcdat->dstr_834__CLASS_SOURCE_DEFINSTANCE.val)-1); meltcdat->dstr_834__CLASS_SOURCE_DEFINSTANCE.val[24] = (char)0 ; meltcdat->dstr_834__CLASS_SOURCE_DEFINSTANCE.slen = 24 ; /*inimult dtup_835_syCLASS_SOURCE_DEFINSTANCE*/ /*_._VALTUP___V929*/ meltfptr[928] = (melt_ptr_t) &meltcdat->dtup_835_syCLASS_SOURCE_DEFINSTANCE; meltcdat->dtup_835_syCLASS_SOURCE_DEFINSTANCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_835_syCLASS_SOURCE_DEFINSTANCE.nbval = 6; /*inimult dtup_836_syCLASS_SOURCE_DEFINSTANCE*/ /*_._VALTUP___V938*/ meltfptr[937] = (melt_ptr_t) &meltcdat->dtup_836_syCLASS_SOURCE_DEFINSTANCE; meltcdat->dtup_836_syCLASS_SOURCE_DEFINSTANCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_836_syCLASS_SOURCE_DEFINSTANCE.nbval = 9; /*iniobj dsym_837__SINST_CLASS*/ /*uniqueobj*/ if (!/*_._VALDATA___V939*/ meltfptr[938]) /*_._VALDATA___V939*/ meltfptr[938] = (melt_ptr_t )&meltcdat->dsym_837__SINST_CLASS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_837__SINST_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_837__SINST_CLASS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_837__SINST_CLASS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_837__SINST_CLASS.obj_hash = 251075917; meltcdat->dsym_837__SINST_CLASS.obj_len = 3; /*inistring dstr_838__SINST_CLASS*/ /*_._VALSTR___V940*/ meltfptr[939] = (melt_ptr_t) &meltcdat->dstr_838__SINST_CLASS; meltcdat->dstr_838__SINST_CLASS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_838__SINST_CLASS.val, "SINST_CLASS", sizeof (meltcdat->dstr_838__SINST_CLASS.val)-1); meltcdat->dstr_838__SINST_CLASS.val[11] = (char)0 ; meltcdat->dstr_838__SINST_CLASS.slen = 11 ; /*^iniobj*/ /*iniobj dobj_839__SINST_CLASS*/ /*_._VALDATA___V930*/ meltfptr[929] = (melt_ptr_t )&meltcdat->dobj_839__SINST_CLASS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_839__SINST_CLASS", 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_839__SINST_CLASS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_839__SINST_CLASS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_839__SINST_CLASS.obj_num = 5; meltcdat->dobj_839__SINST_CLASS.obj_hash = 547505272; meltcdat->dobj_839__SINST_CLASS.obj_len = 4; /*inistring dstr_840__SINST_CLASS*/ /*_._VALSTR___V931*/ meltfptr[930] = (melt_ptr_t) &meltcdat->dstr_840__SINST_CLASS; meltcdat->dstr_840__SINST_CLASS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_840__SINST_CLASS.val, "SINST_CLASS", sizeof (meltcdat->dstr_840__SINST_CLASS.val)-1); meltcdat->dstr_840__SINST_CLASS.val[11] = (char)0 ; meltcdat->dstr_840__SINST_CLASS.slen = 11 ; /*iniobj dsym_841__SINST_CLABIND*/ /*uniqueobj*/ if (!/*_._VALDATA___V941*/ meltfptr[940]) /*_._VALDATA___V941*/ meltfptr[940] = (melt_ptr_t )&meltcdat->dsym_841__SINST_CLABIND; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_841__SINST_CLABIND", 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_841__SINST_CLABIND", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_841__SINST_CLABIND.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_841__SINST_CLABIND.obj_hash = 724106735; meltcdat->dsym_841__SINST_CLABIND.obj_len = 3; /*inistring dstr_842__SINST_CLABIND*/ /*_._VALSTR___V942*/ meltfptr[941] = (melt_ptr_t) &meltcdat->dstr_842__SINST_CLABIND; meltcdat->dstr_842__SINST_CLABIND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_842__SINST_CLABIND.val, "SINST_CLABIND", sizeof (meltcdat->dstr_842__SINST_CLABIND.val)-1); meltcdat->dstr_842__SINST_CLABIND.val[13] = (char)0 ; meltcdat->dstr_842__SINST_CLABIND.slen = 13 ; /*^iniobj*/ /*iniobj dobj_843__SINST_CLABIND*/ /*_._VALDATA___V932*/ meltfptr[931] = (melt_ptr_t )&meltcdat->dobj_843__SINST_CLABIND; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_843__SINST_CLABIND", 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_843__SINST_CLABIND", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_843__SINST_CLABIND.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_843__SINST_CLABIND.obj_num = 6; meltcdat->dobj_843__SINST_CLABIND.obj_hash = 914347510; meltcdat->dobj_843__SINST_CLABIND.obj_len = 4; /*inistring dstr_844__SINST_CLABIND*/ /*_._VALSTR___V933*/ meltfptr[932] = (melt_ptr_t) &meltcdat->dstr_844__SINST_CLABIND; meltcdat->dstr_844__SINST_CLABIND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_844__SINST_CLABIND.val, "SINST_CLABIND", sizeof (meltcdat->dstr_844__SINST_CLABIND.val)-1); meltcdat->dstr_844__SINST_CLABIND.val[13] = (char)0 ; meltcdat->dstr_844__SINST_CLABIND.slen = 13 ; /*iniobj dsym_845__SINST_OBJNUM*/ /*uniqueobj*/ if (!/*_._VALDATA___V943*/ meltfptr[942]) /*_._VALDATA___V943*/ meltfptr[942] = (melt_ptr_t )&meltcdat->dsym_845__SINST_OBJNUM; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_845__SINST_OBJNUM", 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_845__SINST_OBJNUM", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_845__SINST_OBJNUM.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_845__SINST_OBJNUM.obj_hash = 504129586; meltcdat->dsym_845__SINST_OBJNUM.obj_len = 3; /*inistring dstr_846__SINST_OBJNUM*/ /*_._VALSTR___V944*/ meltfptr[943] = (melt_ptr_t) &meltcdat->dstr_846__SINST_OBJNUM; meltcdat->dstr_846__SINST_OBJNUM.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_846__SINST_OBJNUM.val, "SINST_OBJNUM", sizeof (meltcdat->dstr_846__SINST_OBJNUM.val)-1); meltcdat->dstr_846__SINST_OBJNUM.val[12] = (char)0 ; meltcdat->dstr_846__SINST_OBJNUM.slen = 12 ; /*^iniobj*/ /*iniobj dobj_847__SINST_OBJNUM*/ /*_._VALDATA___V934*/ meltfptr[933] = (melt_ptr_t )&meltcdat->dobj_847__SINST_OBJNUM; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_847__SINST_OBJNUM", 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_847__SINST_OBJNUM", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_847__SINST_OBJNUM.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_847__SINST_OBJNUM.obj_num = 7; meltcdat->dobj_847__SINST_OBJNUM.obj_hash = 921962206; meltcdat->dobj_847__SINST_OBJNUM.obj_len = 4; /*inistring dstr_848__SINST_OBJNUM*/ /*_._VALSTR___V935*/ meltfptr[934] = (melt_ptr_t) &meltcdat->dstr_848__SINST_OBJNUM; meltcdat->dstr_848__SINST_OBJNUM.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_848__SINST_OBJNUM.val, "SINST_OBJNUM", sizeof (meltcdat->dstr_848__SINST_OBJNUM.val)-1); meltcdat->dstr_848__SINST_OBJNUM.val[12] = (char)0 ; meltcdat->dstr_848__SINST_OBJNUM.slen = 12 ; /*iniobj dsym_849__SINST_FIELDS*/ /*uniqueobj*/ if (!/*_._VALDATA___V945*/ meltfptr[944]) /*_._VALDATA___V945*/ meltfptr[944] = (melt_ptr_t )&meltcdat->dsym_849__SINST_FIELDS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_849__SINST_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_849__SINST_FIELDS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_849__SINST_FIELDS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_849__SINST_FIELDS.obj_hash = 827706478; meltcdat->dsym_849__SINST_FIELDS.obj_len = 3; /*inistring dstr_850__SINST_FIELDS*/ /*_._VALSTR___V946*/ meltfptr[945] = (melt_ptr_t) &meltcdat->dstr_850__SINST_FIELDS; meltcdat->dstr_850__SINST_FIELDS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_850__SINST_FIELDS.val, "SINST_FIELDS", sizeof (meltcdat->dstr_850__SINST_FIELDS.val)-1); meltcdat->dstr_850__SINST_FIELDS.val[12] = (char)0 ; meltcdat->dstr_850__SINST_FIELDS.slen = 12 ; /*^iniobj*/ /*iniobj dobj_851__SINST_FIELDS*/ /*_._VALDATA___V936*/ meltfptr[935] = (melt_ptr_t )&meltcdat->dobj_851__SINST_FIELDS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_851__SINST_FIELDS", 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_851__SINST_FIELDS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_851__SINST_FIELDS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_851__SINST_FIELDS.obj_num = 8; meltcdat->dobj_851__SINST_FIELDS.obj_hash = 267892116; meltcdat->dobj_851__SINST_FIELDS.obj_len = 4; /*inistring dstr_852__SINST_FIELDS*/ /*_._VALSTR___V937*/ meltfptr[936] = (melt_ptr_t) &meltcdat->dstr_852__SINST_FIELDS; meltcdat->dstr_852__SINST_FIELDS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_852__SINST_FIELDS.val, "SINST_FIELDS", sizeof (meltcdat->dstr_852__SINST_FIELDS.val)-1); meltcdat->dstr_852__SINST_FIELDS.val[12] = (char)0 ; meltcdat->dstr_852__SINST_FIELDS.slen = 12 ; /*iniobj dsym_853__CLASS_SOURCE_DEFSELECTOR*/ /*uniqueobj*/ if (!/*_._VALDATA___V947*/ meltfptr[946]) /*_._VALDATA___V947*/ meltfptr[946] = (melt_ptr_t )&meltcdat->dsym_853__CLASS_SOURCE_DEFSELECTOR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_853__CLASS_SOURCE_DEFSELECTOR", 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_853__CLASS_SOURCE_DEFSELECTOR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_853__CLASS_SOURCE_DEFSELECTOR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_853__CLASS_SOURCE_DEFSELECTOR.obj_hash = 2178050; meltcdat->dsym_853__CLASS_SOURCE_DEFSELECTOR.obj_len = 3; /*inistring dstr_854__CLASS_SOURCE_DEFSELECTOR*/ /*_._VALSTR___V948*/ meltfptr[947] = (melt_ptr_t) &meltcdat->dstr_854__CLASS_SOURCE_DEFSELECTOR; meltcdat->dstr_854__CLASS_SOURCE_DEFSELECTOR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_854__CLASS_SOURCE_DEFSELECTOR.val, "CLASS_SOURCE_DEFSELECTOR", sizeof (meltcdat->dstr_854__CLASS_SOURCE_DEFSELECTOR.val)-1); meltcdat->dstr_854__CLASS_SOURCE_DEFSELECTOR.val[24] = (char)0 ; meltcdat->dstr_854__CLASS_SOURCE_DEFSELECTOR.slen = 24 ; MELT_LOCATION("warmelt-macro.melt:951:/ iniobj"); /*iniobj dobj_855__CLASS_SOURCE_DEFSELECTOR*/ /*_._VALDATA___V949*/ meltfptr[948] = (melt_ptr_t )&meltcdat->dobj_855__CLASS_SOURCE_DEFSELECTOR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_855__CLASS_SOURCE_DEFSELECTOR", 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_855__CLASS_SOURCE_DEFSELECTOR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_855__CLASS_SOURCE_DEFSELECTOR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_855__CLASS_SOURCE_DEFSELECTOR.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_855__CLASS_SOURCE_DEFSELECTOR.obj_hash = 398080969; meltcdat->dobj_855__CLASS_SOURCE_DEFSELECTOR.obj_len = 8; /*inistring dstr_856__CLASS_SOURCE_DEFSELECTOR*/ /*_._VALSTR___V950*/ meltfptr[949] = (melt_ptr_t) &meltcdat->dstr_856__CLASS_SOURCE_DEFSELECTOR; meltcdat->dstr_856__CLASS_SOURCE_DEFSELECTOR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_856__CLASS_SOURCE_DEFSELECTOR.val, "CLASS_SOURCE_DEFSELECTOR", sizeof (meltcdat->dstr_856__CLASS_SOURCE_DEFSELECTOR.val)-1); meltcdat->dstr_856__CLASS_SOURCE_DEFSELECTOR.val[24] = (char)0 ; meltcdat->dstr_856__CLASS_SOURCE_DEFSELECTOR.slen = 24 ; /*inimult dtup_857_syCLASS_SOURCE_DEFSELECTOR*/ /*_._VALTUP___V951*/ meltfptr[950] = (melt_ptr_t) &meltcdat->dtup_857_syCLASS_SOURCE_DEFSELECTOR; meltcdat->dtup_857_syCLASS_SOURCE_DEFSELECTOR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_857_syCLASS_SOURCE_DEFSELECTOR.nbval = 7; /*inimult dtup_858_syCLASS_SOURCE_DEFSELECTOR*/ /*_._VALTUP___V954*/ meltfptr[953] = (melt_ptr_t) &meltcdat->dtup_858_syCLASS_SOURCE_DEFSELECTOR; meltcdat->dtup_858_syCLASS_SOURCE_DEFSELECTOR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_858_syCLASS_SOURCE_DEFSELECTOR.nbval = 10; /*iniobj dsym_859__SDEFSEL_FORMALS*/ /*uniqueobj*/ if (!/*_._VALDATA___V955*/ meltfptr[954]) /*_._VALDATA___V955*/ meltfptr[954] = (melt_ptr_t )&meltcdat->dsym_859__SDEFSEL_FORMALS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_859__SDEFSEL_FORMALS", 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_859__SDEFSEL_FORMALS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_859__SDEFSEL_FORMALS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_859__SDEFSEL_FORMALS.obj_hash = 800815677; meltcdat->dsym_859__SDEFSEL_FORMALS.obj_len = 3; /*inistring dstr_860__SDEFSEL_FORMALS*/ /*_._VALSTR___V956*/ meltfptr[955] = (melt_ptr_t) &meltcdat->dstr_860__SDEFSEL_FORMALS; meltcdat->dstr_860__SDEFSEL_FORMALS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_860__SDEFSEL_FORMALS.val, "SDEFSEL_FORMALS", sizeof (meltcdat->dstr_860__SDEFSEL_FORMALS.val)-1); meltcdat->dstr_860__SDEFSEL_FORMALS.val[15] = (char)0 ; meltcdat->dstr_860__SDEFSEL_FORMALS.slen = 15 ; /*^iniobj*/ /*iniobj dobj_861__SDEFSEL_FORMALS*/ /*_._VALDATA___V952*/ meltfptr[951] = (melt_ptr_t )&meltcdat->dobj_861__SDEFSEL_FORMALS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_861__SDEFSEL_FORMALS", 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_861__SDEFSEL_FORMALS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_861__SDEFSEL_FORMALS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_861__SDEFSEL_FORMALS.obj_num = 9; meltcdat->dobj_861__SDEFSEL_FORMALS.obj_hash = 787503840; meltcdat->dobj_861__SDEFSEL_FORMALS.obj_len = 4; /*inistring dstr_862__SDEFSEL_FORMALS*/ /*_._VALSTR___V953*/ meltfptr[952] = (melt_ptr_t) &meltcdat->dstr_862__SDEFSEL_FORMALS; meltcdat->dstr_862__SDEFSEL_FORMALS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_862__SDEFSEL_FORMALS.val, "SDEFSEL_FORMALS", sizeof (meltcdat->dstr_862__SDEFSEL_FORMALS.val)-1); meltcdat->dstr_862__SDEFSEL_FORMALS.val[15] = (char)0 ; meltcdat->dstr_862__SDEFSEL_FORMALS.slen = 15 ; /*iniobj dsym_863__CLASS_SOURCE_FIELDASSIGN*/ /*uniqueobj*/ if (!/*_._VALDATA___V957*/ meltfptr[956]) /*_._VALDATA___V957*/ meltfptr[956] = (melt_ptr_t )&meltcdat->dsym_863__CLASS_SOURCE_FIELDASSIGN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_863__CLASS_SOURCE_FIELDASSIGN", 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_863__CLASS_SOURCE_FIELDASSIGN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_863__CLASS_SOURCE_FIELDASSIGN.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_863__CLASS_SOURCE_FIELDASSIGN.obj_hash = 362514023; meltcdat->dsym_863__CLASS_SOURCE_FIELDASSIGN.obj_len = 3; /*inistring dstr_864__CLASS_SOURCE_FIELDASSIGN*/ /*_._VALSTR___V958*/ meltfptr[957] = (melt_ptr_t) &meltcdat->dstr_864__CLASS_SOURCE_FIELDASSIGN; meltcdat->dstr_864__CLASS_SOURCE_FIELDASSIGN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_864__CLASS_SOURCE_FIELDASSIGN.val, "CLASS_SOURCE_FIELDASSIGN", sizeof (meltcdat->dstr_864__CLASS_SOURCE_FIELDASSIGN.val)-1); meltcdat->dstr_864__CLASS_SOURCE_FIELDASSIGN.val[24] = (char)0 ; meltcdat->dstr_864__CLASS_SOURCE_FIELDASSIGN.slen = 24 ; MELT_LOCATION("warmelt-macro.melt:960:/ iniobj"); /*iniobj dobj_865__CLASS_SOURCE_FIELDASSIGN*/ /*_._VALDATA___V959*/ meltfptr[958] = (melt_ptr_t )&meltcdat->dobj_865__CLASS_SOURCE_FIELDASSIGN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_865__CLASS_SOURCE_FIELDASSIGN", 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_865__CLASS_SOURCE_FIELDASSIGN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_865__CLASS_SOURCE_FIELDASSIGN.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_865__CLASS_SOURCE_FIELDASSIGN.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_865__CLASS_SOURCE_FIELDASSIGN.obj_hash = 778108654; meltcdat->dobj_865__CLASS_SOURCE_FIELDASSIGN.obj_len = 8; /*inistring dstr_866__CLASS_SOURCE_FIELDASSIGN*/ /*_._VALSTR___V960*/ meltfptr[959] = (melt_ptr_t) &meltcdat->dstr_866__CLASS_SOURCE_FIELDASSIGN; meltcdat->dstr_866__CLASS_SOURCE_FIELDASSIGN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_866__CLASS_SOURCE_FIELDASSIGN.val, "CLASS_SOURCE_FIELDASSIGN", sizeof (meltcdat->dstr_866__CLASS_SOURCE_FIELDASSIGN.val)-1); meltcdat->dstr_866__CLASS_SOURCE_FIELDASSIGN.val[24] = (char)0 ; meltcdat->dstr_866__CLASS_SOURCE_FIELDASSIGN.slen = 24 ; /*inimult dtup_867_syCLASS_SOURCE_FIELDASSIGN*/ /*_._VALTUP___V961*/ meltfptr[960] = (melt_ptr_t) &meltcdat->dtup_867_syCLASS_SOURCE_FIELDASSIGN; meltcdat->dtup_867_syCLASS_SOURCE_FIELDASSIGN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_867_syCLASS_SOURCE_FIELDASSIGN.nbval = 4; /*inimult dtup_868_syCLASS_SOURCE_FIELDASSIGN*/ /*_._VALTUP___V966*/ meltfptr[965] = (melt_ptr_t) &meltcdat->dtup_868_syCLASS_SOURCE_FIELDASSIGN; meltcdat->dtup_868_syCLASS_SOURCE_FIELDASSIGN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_868_syCLASS_SOURCE_FIELDASSIGN.nbval = 4; /*iniobj dsym_869__SFLA_FIELD*/ /*uniqueobj*/ if (!/*_._VALDATA___V967*/ meltfptr[966]) /*_._VALDATA___V967*/ meltfptr[966] = (melt_ptr_t )&meltcdat->dsym_869__SFLA_FIELD; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_869__SFLA_FIELD", 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_869__SFLA_FIELD", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_869__SFLA_FIELD.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_869__SFLA_FIELD.obj_hash = 53606921; meltcdat->dsym_869__SFLA_FIELD.obj_len = 3; /*inistring dstr_870__SFLA_FIELD*/ /*_._VALSTR___V968*/ meltfptr[967] = (melt_ptr_t) &meltcdat->dstr_870__SFLA_FIELD; meltcdat->dstr_870__SFLA_FIELD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_870__SFLA_FIELD.val, "SFLA_FIELD", sizeof (meltcdat->dstr_870__SFLA_FIELD.val)-1); meltcdat->dstr_870__SFLA_FIELD.val[10] = (char)0 ; meltcdat->dstr_870__SFLA_FIELD.slen = 10 ; /*^iniobj*/ /*iniobj dobj_871__SFLA_FIELD*/ /*_._VALDATA___V962*/ meltfptr[961] = (melt_ptr_t )&meltcdat->dobj_871__SFLA_FIELD; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_871__SFLA_FIELD", 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_871__SFLA_FIELD", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_871__SFLA_FIELD.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_871__SFLA_FIELD.obj_num = 2; meltcdat->dobj_871__SFLA_FIELD.obj_hash = 867995152; meltcdat->dobj_871__SFLA_FIELD.obj_len = 4; /*inistring dstr_872__SFLA_FIELD*/ /*_._VALSTR___V963*/ meltfptr[962] = (melt_ptr_t) &meltcdat->dstr_872__SFLA_FIELD; meltcdat->dstr_872__SFLA_FIELD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_872__SFLA_FIELD.val, "SFLA_FIELD", sizeof (meltcdat->dstr_872__SFLA_FIELD.val)-1); meltcdat->dstr_872__SFLA_FIELD.val[10] = (char)0 ; meltcdat->dstr_872__SFLA_FIELD.slen = 10 ; /*iniobj dsym_873__SFLA_EXPR*/ /*uniqueobj*/ if (!/*_._VALDATA___V969*/ meltfptr[968]) /*_._VALDATA___V969*/ meltfptr[968] = (melt_ptr_t )&meltcdat->dsym_873__SFLA_EXPR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_873__SFLA_EXPR", 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_873__SFLA_EXPR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_873__SFLA_EXPR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_873__SFLA_EXPR.obj_hash = 723165498; meltcdat->dsym_873__SFLA_EXPR.obj_len = 3; /*inistring dstr_874__SFLA_EXPR*/ /*_._VALSTR___V970*/ meltfptr[969] = (melt_ptr_t) &meltcdat->dstr_874__SFLA_EXPR; meltcdat->dstr_874__SFLA_EXPR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_874__SFLA_EXPR.val, "SFLA_EXPR", sizeof (meltcdat->dstr_874__SFLA_EXPR.val)-1); meltcdat->dstr_874__SFLA_EXPR.val[9] = (char)0 ; meltcdat->dstr_874__SFLA_EXPR.slen = 9 ; /*^iniobj*/ /*iniobj dobj_875__SFLA_EXPR*/ /*_._VALDATA___V964*/ meltfptr[963] = (melt_ptr_t )&meltcdat->dobj_875__SFLA_EXPR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_875__SFLA_EXPR", 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_875__SFLA_EXPR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_875__SFLA_EXPR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_875__SFLA_EXPR.obj_num = 3; meltcdat->dobj_875__SFLA_EXPR.obj_hash = 915300405; meltcdat->dobj_875__SFLA_EXPR.obj_len = 4; /*inistring dstr_876__SFLA_EXPR*/ /*_._VALSTR___V965*/ meltfptr[964] = (melt_ptr_t) &meltcdat->dstr_876__SFLA_EXPR; meltcdat->dstr_876__SFLA_EXPR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_876__SFLA_EXPR.val, "SFLA_EXPR", sizeof (meltcdat->dstr_876__SFLA_EXPR.val)-1); meltcdat->dstr_876__SFLA_EXPR.val[9] = (char)0 ; meltcdat->dstr_876__SFLA_EXPR.slen = 9 ; /*iniobj dsym_877__CLASS_SOURCE_INSTANCE*/ /*uniqueobj*/ if (!/*_._VALDATA___V971*/ meltfptr[970]) /*_._VALDATA___V971*/ meltfptr[970] = (melt_ptr_t )&meltcdat->dsym_877__CLASS_SOURCE_INSTANCE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_877__CLASS_SOURCE_INSTANCE", 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_877__CLASS_SOURCE_INSTANCE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_877__CLASS_SOURCE_INSTANCE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_877__CLASS_SOURCE_INSTANCE.obj_hash = 185000661; meltcdat->dsym_877__CLASS_SOURCE_INSTANCE.obj_len = 3; /*inistring dstr_878__CLASS_SOURCE_INSTANCE*/ /*_._VALSTR___V972*/ meltfptr[971] = (melt_ptr_t) &meltcdat->dstr_878__CLASS_SOURCE_INSTANCE; meltcdat->dstr_878__CLASS_SOURCE_INSTANCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_878__CLASS_SOURCE_INSTANCE.val, "CLASS_SOURCE_INSTANCE", sizeof (meltcdat->dstr_878__CLASS_SOURCE_INSTANCE.val)-1); meltcdat->dstr_878__CLASS_SOURCE_INSTANCE.val[21] = (char)0 ; meltcdat->dstr_878__CLASS_SOURCE_INSTANCE.slen = 21 ; MELT_LOCATION("warmelt-macro.melt:971:/ iniobj"); /*iniobj dobj_879__CLASS_SOURCE_INSTANCE*/ /*_._VALDATA___V973*/ meltfptr[972] = (melt_ptr_t )&meltcdat->dobj_879__CLASS_SOURCE_INSTANCE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_879__CLASS_SOURCE_INSTANCE", 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_879__CLASS_SOURCE_INSTANCE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_879__CLASS_SOURCE_INSTANCE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_879__CLASS_SOURCE_INSTANCE.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_879__CLASS_SOURCE_INSTANCE.obj_hash = 972088226; meltcdat->dobj_879__CLASS_SOURCE_INSTANCE.obj_len = 8; /*inistring dstr_880__CLASS_SOURCE_INSTANCE*/ /*_._VALSTR___V974*/ meltfptr[973] = (melt_ptr_t) &meltcdat->dstr_880__CLASS_SOURCE_INSTANCE; meltcdat->dstr_880__CLASS_SOURCE_INSTANCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_880__CLASS_SOURCE_INSTANCE.val, "CLASS_SOURCE_INSTANCE", sizeof (meltcdat->dstr_880__CLASS_SOURCE_INSTANCE.val)-1); meltcdat->dstr_880__CLASS_SOURCE_INSTANCE.val[21] = (char)0 ; meltcdat->dstr_880__CLASS_SOURCE_INSTANCE.slen = 21 ; /*inimult dtup_881_syCLASS_SOURCE_INSTANCE*/ /*_._VALTUP___V975*/ meltfptr[974] = (melt_ptr_t) &meltcdat->dtup_881_syCLASS_SOURCE_INSTANCE; meltcdat->dtup_881_syCLASS_SOURCE_INSTANCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_881_syCLASS_SOURCE_INSTANCE.nbval = 4; /*inimult dtup_882_syCLASS_SOURCE_INSTANCE*/ /*_._VALTUP___V982*/ meltfptr[981] = (melt_ptr_t) &meltcdat->dtup_882_syCLASS_SOURCE_INSTANCE; meltcdat->dtup_882_syCLASS_SOURCE_INSTANCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_882_syCLASS_SOURCE_INSTANCE.nbval = 5; /*iniobj dsym_883__SMINS_CLASS*/ /*uniqueobj*/ if (!/*_._VALDATA___V983*/ meltfptr[982]) /*_._VALDATA___V983*/ meltfptr[982] = (melt_ptr_t )&meltcdat->dsym_883__SMINS_CLASS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_883__SMINS_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_883__SMINS_CLASS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_883__SMINS_CLASS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_883__SMINS_CLASS.obj_hash = 354373683; meltcdat->dsym_883__SMINS_CLASS.obj_len = 3; /*inistring dstr_884__SMINS_CLASS*/ /*_._VALSTR___V984*/ meltfptr[983] = (melt_ptr_t) &meltcdat->dstr_884__SMINS_CLASS; meltcdat->dstr_884__SMINS_CLASS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_884__SMINS_CLASS.val, "SMINS_CLASS", sizeof (meltcdat->dstr_884__SMINS_CLASS.val)-1); meltcdat->dstr_884__SMINS_CLASS.val[11] = (char)0 ; meltcdat->dstr_884__SMINS_CLASS.slen = 11 ; /*^iniobj*/ /*iniobj dobj_885__SMINS_CLASS*/ /*_._VALDATA___V976*/ meltfptr[975] = (melt_ptr_t )&meltcdat->dobj_885__SMINS_CLASS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_885__SMINS_CLASS", 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_885__SMINS_CLASS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_885__SMINS_CLASS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_885__SMINS_CLASS.obj_num = 2; meltcdat->dobj_885__SMINS_CLASS.obj_hash = 161726283; meltcdat->dobj_885__SMINS_CLASS.obj_len = 4; /*inistring dstr_886__SMINS_CLASS*/ /*_._VALSTR___V977*/ meltfptr[976] = (melt_ptr_t) &meltcdat->dstr_886__SMINS_CLASS; meltcdat->dstr_886__SMINS_CLASS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_886__SMINS_CLASS.val, "SMINS_CLASS", sizeof (meltcdat->dstr_886__SMINS_CLASS.val)-1); meltcdat->dstr_886__SMINS_CLASS.val[11] = (char)0 ; meltcdat->dstr_886__SMINS_CLASS.slen = 11 ; /*iniobj dsym_887__SMINS_CLABIND*/ /*uniqueobj*/ if (!/*_._VALDATA___V985*/ meltfptr[984]) /*_._VALDATA___V985*/ meltfptr[984] = (melt_ptr_t )&meltcdat->dsym_887__SMINS_CLABIND; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_887__SMINS_CLABIND", 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_887__SMINS_CLABIND", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_887__SMINS_CLABIND.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_887__SMINS_CLABIND.obj_hash = 893906416; meltcdat->dsym_887__SMINS_CLABIND.obj_len = 3; /*inistring dstr_888__SMINS_CLABIND*/ /*_._VALSTR___V986*/ meltfptr[985] = (melt_ptr_t) &meltcdat->dstr_888__SMINS_CLABIND; meltcdat->dstr_888__SMINS_CLABIND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_888__SMINS_CLABIND.val, "SMINS_CLABIND", sizeof (meltcdat->dstr_888__SMINS_CLABIND.val)-1); meltcdat->dstr_888__SMINS_CLABIND.val[13] = (char)0 ; meltcdat->dstr_888__SMINS_CLABIND.slen = 13 ; /*^iniobj*/ /*iniobj dobj_889__SMINS_CLABIND*/ /*_._VALDATA___V978*/ meltfptr[977] = (melt_ptr_t )&meltcdat->dobj_889__SMINS_CLABIND; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_889__SMINS_CLABIND", 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_889__SMINS_CLABIND", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_889__SMINS_CLABIND.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_889__SMINS_CLABIND.obj_num = 3; meltcdat->dobj_889__SMINS_CLABIND.obj_hash = 664572727; meltcdat->dobj_889__SMINS_CLABIND.obj_len = 4; /*inistring dstr_890__SMINS_CLABIND*/ /*_._VALSTR___V979*/ meltfptr[978] = (melt_ptr_t) &meltcdat->dstr_890__SMINS_CLABIND; meltcdat->dstr_890__SMINS_CLABIND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_890__SMINS_CLABIND.val, "SMINS_CLABIND", sizeof (meltcdat->dstr_890__SMINS_CLABIND.val)-1); meltcdat->dstr_890__SMINS_CLABIND.val[13] = (char)0 ; meltcdat->dstr_890__SMINS_CLABIND.slen = 13 ; /*iniobj dsym_891__SMINS_FIELDS*/ /*uniqueobj*/ if (!/*_._VALDATA___V987*/ meltfptr[986]) /*_._VALDATA___V987*/ meltfptr[986] = (melt_ptr_t )&meltcdat->dsym_891__SMINS_FIELDS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_891__SMINS_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_891__SMINS_FIELDS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_891__SMINS_FIELDS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_891__SMINS_FIELDS.obj_hash = 235347076; meltcdat->dsym_891__SMINS_FIELDS.obj_len = 3; /*inistring dstr_892__SMINS_FIELDS*/ /*_._VALSTR___V988*/ meltfptr[987] = (melt_ptr_t) &meltcdat->dstr_892__SMINS_FIELDS; meltcdat->dstr_892__SMINS_FIELDS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_892__SMINS_FIELDS.val, "SMINS_FIELDS", sizeof (meltcdat->dstr_892__SMINS_FIELDS.val)-1); meltcdat->dstr_892__SMINS_FIELDS.val[12] = (char)0 ; meltcdat->dstr_892__SMINS_FIELDS.slen = 12 ; /*^iniobj*/ /*iniobj dobj_893__SMINS_FIELDS*/ /*_._VALDATA___V980*/ meltfptr[979] = (melt_ptr_t )&meltcdat->dobj_893__SMINS_FIELDS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_893__SMINS_FIELDS", 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_893__SMINS_FIELDS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_893__SMINS_FIELDS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_893__SMINS_FIELDS.obj_num = 4; meltcdat->dobj_893__SMINS_FIELDS.obj_hash = 214237520; meltcdat->dobj_893__SMINS_FIELDS.obj_len = 4; /*inistring dstr_894__SMINS_FIELDS*/ /*_._VALSTR___V981*/ meltfptr[980] = (melt_ptr_t) &meltcdat->dstr_894__SMINS_FIELDS; meltcdat->dstr_894__SMINS_FIELDS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_894__SMINS_FIELDS.val, "SMINS_FIELDS", sizeof (meltcdat->dstr_894__SMINS_FIELDS.val)-1); meltcdat->dstr_894__SMINS_FIELDS.val[12] = (char)0 ; meltcdat->dstr_894__SMINS_FIELDS.slen = 12 ; /*iniobj dsym_895__CLASS_SOURCE_GET_FIELD*/ /*uniqueobj*/ if (!/*_._VALDATA___V989*/ meltfptr[988]) /*_._VALDATA___V989*/ meltfptr[988] = (melt_ptr_t )&meltcdat->dsym_895__CLASS_SOURCE_GET_FIELD; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_895__CLASS_SOURCE_GET_FIELD", 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_895__CLASS_SOURCE_GET_FIELD", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_895__CLASS_SOURCE_GET_FIELD.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_895__CLASS_SOURCE_GET_FIELD.obj_hash = 291216467; meltcdat->dsym_895__CLASS_SOURCE_GET_FIELD.obj_len = 3; /*inistring dstr_896__CLASS_SOURCE_GET_FIELD*/ /*_._VALSTR___V990*/ meltfptr[989] = (melt_ptr_t) &meltcdat->dstr_896__CLASS_SOURCE_GET_FIELD; meltcdat->dstr_896__CLASS_SOURCE_GET_FIELD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_896__CLASS_SOURCE_GET_FIELD.val, "CLASS_SOURCE_GET_FIELD", sizeof (meltcdat->dstr_896__CLASS_SOURCE_GET_FIELD.val)-1); meltcdat->dstr_896__CLASS_SOURCE_GET_FIELD.val[22] = (char)0 ; meltcdat->dstr_896__CLASS_SOURCE_GET_FIELD.slen = 22 ; MELT_LOCATION("warmelt-macro.melt:983:/ iniobj"); /*iniobj dobj_897__CLASS_SOURCE_GET_FIELD*/ /*_._VALDATA___V991*/ meltfptr[990] = (melt_ptr_t )&meltcdat->dobj_897__CLASS_SOURCE_GET_FIELD; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_897__CLASS_SOURCE_GET_FIELD", 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_897__CLASS_SOURCE_GET_FIELD", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_897__CLASS_SOURCE_GET_FIELD.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_897__CLASS_SOURCE_GET_FIELD.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_897__CLASS_SOURCE_GET_FIELD.obj_hash = 483244924; meltcdat->dobj_897__CLASS_SOURCE_GET_FIELD.obj_len = 8; /*inistring dstr_898__CLASS_SOURCE_GET_FIELD*/ /*_._VALSTR___V992*/ meltfptr[991] = (melt_ptr_t) &meltcdat->dstr_898__CLASS_SOURCE_GET_FIELD; meltcdat->dstr_898__CLASS_SOURCE_GET_FIELD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_898__CLASS_SOURCE_GET_FIELD.val, "CLASS_SOURCE_GET_FIELD", sizeof (meltcdat->dstr_898__CLASS_SOURCE_GET_FIELD.val)-1); meltcdat->dstr_898__CLASS_SOURCE_GET_FIELD.val[22] = (char)0 ; meltcdat->dstr_898__CLASS_SOURCE_GET_FIELD.slen = 22 ; /*inimult dtup_899_syCLASS_SOURCE_GET_FIELD*/ /*_._VALTUP___V993*/ meltfptr[992] = (melt_ptr_t) &meltcdat->dtup_899_syCLASS_SOURCE_GET_FIELD; meltcdat->dtup_899_syCLASS_SOURCE_GET_FIELD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_899_syCLASS_SOURCE_GET_FIELD.nbval = 4; /*inimult dtup_900_syCLASS_SOURCE_GET_FIELD*/ /*_._VALTUP___V998*/ meltfptr[997] = (melt_ptr_t) &meltcdat->dtup_900_syCLASS_SOURCE_GET_FIELD; meltcdat->dtup_900_syCLASS_SOURCE_GET_FIELD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_900_syCLASS_SOURCE_GET_FIELD.nbval = 4; /*iniobj dsym_901__SUGET_OBJ*/ /*uniqueobj*/ if (!/*_._VALDATA___V999*/ meltfptr[998]) /*_._VALDATA___V999*/ meltfptr[998] = (melt_ptr_t )&meltcdat->dsym_901__SUGET_OBJ; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_901__SUGET_OBJ", 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_901__SUGET_OBJ", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_901__SUGET_OBJ.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_901__SUGET_OBJ.obj_hash = 649934642; meltcdat->dsym_901__SUGET_OBJ.obj_len = 3; /*inistring dstr_902__SUGET_OBJ*/ /*_._VALSTR___V1000*/ meltfptr[999] = (melt_ptr_t) &meltcdat->dstr_902__SUGET_OBJ; meltcdat->dstr_902__SUGET_OBJ.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_902__SUGET_OBJ.val, "SUGET_OBJ", sizeof (meltcdat->dstr_902__SUGET_OBJ.val)-1); meltcdat->dstr_902__SUGET_OBJ.val[9] = (char)0 ; meltcdat->dstr_902__SUGET_OBJ.slen = 9 ; /*^iniobj*/ /*iniobj dobj_903__SUGET_OBJ*/ /*_._VALDATA___V994*/ meltfptr[993] = (melt_ptr_t )&meltcdat->dobj_903__SUGET_OBJ; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_903__SUGET_OBJ", 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_903__SUGET_OBJ", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_903__SUGET_OBJ.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_903__SUGET_OBJ.obj_num = 2; meltcdat->dobj_903__SUGET_OBJ.obj_hash = 487512723; meltcdat->dobj_903__SUGET_OBJ.obj_len = 4; /*inistring dstr_904__SUGET_OBJ*/ /*_._VALSTR___V995*/ meltfptr[994] = (melt_ptr_t) &meltcdat->dstr_904__SUGET_OBJ; meltcdat->dstr_904__SUGET_OBJ.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_904__SUGET_OBJ.val, "SUGET_OBJ", sizeof (meltcdat->dstr_904__SUGET_OBJ.val)-1); meltcdat->dstr_904__SUGET_OBJ.val[9] = (char)0 ; meltcdat->dstr_904__SUGET_OBJ.slen = 9 ; /*iniobj dsym_905__SUGET_FIELD*/ /*uniqueobj*/ if (!/*_._VALDATA___V1001*/ meltfptr[1000]) /*_._VALDATA___V1001*/ meltfptr[1000] = (melt_ptr_t )&meltcdat->dsym_905__SUGET_FIELD; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_905__SUGET_FIELD", 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_905__SUGET_FIELD", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_905__SUGET_FIELD.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_905__SUGET_FIELD.obj_hash = 430834528; meltcdat->dsym_905__SUGET_FIELD.obj_len = 3; /*inistring dstr_906__SUGET_FIELD*/ /*_._VALSTR___V1002*/ meltfptr[1001] = (melt_ptr_t) &meltcdat->dstr_906__SUGET_FIELD; meltcdat->dstr_906__SUGET_FIELD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_906__SUGET_FIELD.val, "SUGET_FIELD", sizeof (meltcdat->dstr_906__SUGET_FIELD.val)-1); meltcdat->dstr_906__SUGET_FIELD.val[11] = (char)0 ; meltcdat->dstr_906__SUGET_FIELD.slen = 11 ; /*^iniobj*/ /*iniobj dobj_907__SUGET_FIELD*/ /*_._VALDATA___V996*/ meltfptr[995] = (melt_ptr_t )&meltcdat->dobj_907__SUGET_FIELD; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_907__SUGET_FIELD", 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_907__SUGET_FIELD", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_907__SUGET_FIELD.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_907__SUGET_FIELD.obj_num = 3; meltcdat->dobj_907__SUGET_FIELD.obj_hash = 582615460; meltcdat->dobj_907__SUGET_FIELD.obj_len = 4; /*inistring dstr_908__SUGET_FIELD*/ /*_._VALSTR___V997*/ meltfptr[996] = (melt_ptr_t) &meltcdat->dstr_908__SUGET_FIELD; meltcdat->dstr_908__SUGET_FIELD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_908__SUGET_FIELD.val, "SUGET_FIELD", sizeof (meltcdat->dstr_908__SUGET_FIELD.val)-1); meltcdat->dstr_908__SUGET_FIELD.val[11] = (char)0 ; meltcdat->dstr_908__SUGET_FIELD.slen = 11 ; /*iniobj dsym_909__CLASS_SOURCE_UNSAFE_GET_FIELD*/ /*uniqueobj*/ if (!/*_._VALDATA___V1003*/ meltfptr[1002]) /*_._VALDATA___V1003*/ meltfptr[1002] = (melt_ptr_t )&meltcdat->dsym_909__CLASS_SOURCE_UNSAFE_GET_FIELD; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_909__CLASS_SOURCE_UNSAFE_GET_FIELD", 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_909__CLASS_SOURCE_UNSAFE_GET_FIELD", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_909__CLASS_SOURCE_UNSAFE_GET_FIELD.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_909__CLASS_SOURCE_UNSAFE_GET_FIELD.obj_hash = 846462223; meltcdat->dsym_909__CLASS_SOURCE_UNSAFE_GET_FIELD.obj_len = 3; /*inistring dstr_910__CLASS_SOURCE_UNSAFE_GET_*/ /*_._VALSTR___V1004*/ meltfptr[1003] = (melt_ptr_t) &meltcdat->dstr_910__CLASS_SOURCE_UNSAFE_GET_; meltcdat->dstr_910__CLASS_SOURCE_UNSAFE_GET_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_910__CLASS_SOURCE_UNSAFE_GET_.val, "CLASS_SOURCE_UNSAFE_GET_FIELD", sizeof (meltcdat->dstr_910__CLASS_SOURCE_UNSAFE_GET_.val)-1); meltcdat->dstr_910__CLASS_SOURCE_UNSAFE_GET_.val[29] = (char)0 ; meltcdat->dstr_910__CLASS_SOURCE_UNSAFE_GET_.slen = 29 ; MELT_LOCATION("warmelt-macro.melt:994:/ iniobj"); /*iniobj dobj_911__CLASS_SOURCE_UNSAFE_GET_FIELD*/ /*_._VALDATA___V1005*/ meltfptr[1004] = (melt_ptr_t )&meltcdat->dobj_911__CLASS_SOURCE_UNSAFE_GET_FIELD; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_911__CLASS_SOURCE_UNSAFE_GET_FIELD", 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_911__CLASS_SOURCE_UNSAFE_GET_FIELD", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_911__CLASS_SOURCE_UNSAFE_GET_FIELD.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_911__CLASS_SOURCE_UNSAFE_GET_FIELD.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_911__CLASS_SOURCE_UNSAFE_GET_FIELD.obj_hash = 632968809; meltcdat->dobj_911__CLASS_SOURCE_UNSAFE_GET_FIELD.obj_len = 8; /*inistring dstr_912__CLASS_SOURCE_UNSAFE_GET_*/ /*_._VALSTR___V1006*/ meltfptr[1005] = (melt_ptr_t) &meltcdat->dstr_912__CLASS_SOURCE_UNSAFE_GET_; meltcdat->dstr_912__CLASS_SOURCE_UNSAFE_GET_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_912__CLASS_SOURCE_UNSAFE_GET_.val, "CLASS_SOURCE_UNSAFE_GET_FIELD", sizeof (meltcdat->dstr_912__CLASS_SOURCE_UNSAFE_GET_.val)-1); meltcdat->dstr_912__CLASS_SOURCE_UNSAFE_GET_.val[29] = (char)0 ; meltcdat->dstr_912__CLASS_SOURCE_UNSAFE_GET_.slen = 29 ; /*inimult dtup_913_syCLASS_SOURCE_UNSAFE_GET_FIELD*/ /*_._VALTUP___V1007*/ meltfptr[1006] = (melt_ptr_t) &meltcdat->dtup_913_syCLASS_SOURCE_UNSAFE_GET_FIELD; meltcdat->dtup_913_syCLASS_SOURCE_UNSAFE_GET_FIELD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_913_syCLASS_SOURCE_UNSAFE_GET_FIELD.nbval = 5; /*inimult dtup_914_syCLASS_SOURCE_UNSAFE_GET_FIELD*/ /*_._VALTUP___V1008*/ meltfptr[1007] = (melt_ptr_t) &meltcdat->dtup_914_syCLASS_SOURCE_UNSAFE_GET_FIELD; meltcdat->dtup_914_syCLASS_SOURCE_UNSAFE_GET_FIELD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_914_syCLASS_SOURCE_UNSAFE_GET_FIELD.nbval = 4; /*iniobj dsym_915__CLASS_SOURCE_PUT_FIELDS*/ /*uniqueobj*/ if (!/*_._VALDATA___V1009*/ meltfptr[1008]) /*_._VALDATA___V1009*/ meltfptr[1008] = (melt_ptr_t )&meltcdat->dsym_915__CLASS_SOURCE_PUT_FIELDS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_915__CLASS_SOURCE_PUT_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_915__CLASS_SOURCE_PUT_FIELDS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_915__CLASS_SOURCE_PUT_FIELDS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_915__CLASS_SOURCE_PUT_FIELDS.obj_hash = 484783195; meltcdat->dsym_915__CLASS_SOURCE_PUT_FIELDS.obj_len = 3; /*inistring dstr_916__CLASS_SOURCE_PUT_FIELDS*/ /*_._VALSTR___V1010*/ meltfptr[1009] = (melt_ptr_t) &meltcdat->dstr_916__CLASS_SOURCE_PUT_FIELDS; meltcdat->dstr_916__CLASS_SOURCE_PUT_FIELDS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_916__CLASS_SOURCE_PUT_FIELDS.val, "CLASS_SOURCE_PUT_FIELDS", sizeof (meltcdat->dstr_916__CLASS_SOURCE_PUT_FIELDS.val)-1); meltcdat->dstr_916__CLASS_SOURCE_PUT_FIELDS.val[23] = (char)0 ; meltcdat->dstr_916__CLASS_SOURCE_PUT_FIELDS.slen = 23 ; MELT_LOCATION("warmelt-macro.melt:1003:/ iniobj"); /*iniobj dobj_917__CLASS_SOURCE_PUT_FIELDS*/ /*_._VALDATA___V1011*/ meltfptr[1010] = (melt_ptr_t )&meltcdat->dobj_917__CLASS_SOURCE_PUT_FIELDS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_917__CLASS_SOURCE_PUT_FIELDS", 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_917__CLASS_SOURCE_PUT_FIELDS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_917__CLASS_SOURCE_PUT_FIELDS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_917__CLASS_SOURCE_PUT_FIELDS.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_917__CLASS_SOURCE_PUT_FIELDS.obj_hash = 239031331; meltcdat->dobj_917__CLASS_SOURCE_PUT_FIELDS.obj_len = 8; /*inistring dstr_918__CLASS_SOURCE_PUT_FIELDS*/ /*_._VALSTR___V1012*/ meltfptr[1011] = (melt_ptr_t) &meltcdat->dstr_918__CLASS_SOURCE_PUT_FIELDS; meltcdat->dstr_918__CLASS_SOURCE_PUT_FIELDS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_918__CLASS_SOURCE_PUT_FIELDS.val, "CLASS_SOURCE_PUT_FIELDS", sizeof (meltcdat->dstr_918__CLASS_SOURCE_PUT_FIELDS.val)-1); meltcdat->dstr_918__CLASS_SOURCE_PUT_FIELDS.val[23] = (char)0 ; meltcdat->dstr_918__CLASS_SOURCE_PUT_FIELDS.slen = 23 ; /*inimult dtup_919_syCLASS_SOURCE_PUT_FIELDS*/ /*_._VALTUP___V1013*/ meltfptr[1012] = (melt_ptr_t) &meltcdat->dtup_919_syCLASS_SOURCE_PUT_FIELDS; meltcdat->dtup_919_syCLASS_SOURCE_PUT_FIELDS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_919_syCLASS_SOURCE_PUT_FIELDS.nbval = 4; /*inimult dtup_920_syCLASS_SOURCE_PUT_FIELDS*/ /*_._VALTUP___V1018*/ meltfptr[1017] = (melt_ptr_t) &meltcdat->dtup_920_syCLASS_SOURCE_PUT_FIELDS; meltcdat->dtup_920_syCLASS_SOURCE_PUT_FIELDS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_920_syCLASS_SOURCE_PUT_FIELDS.nbval = 4; /*iniobj dsym_921__SUPUT_OBJ*/ /*uniqueobj*/ if (!/*_._VALDATA___V1019*/ meltfptr[1018]) /*_._VALDATA___V1019*/ meltfptr[1018] = (melt_ptr_t )&meltcdat->dsym_921__SUPUT_OBJ; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_921__SUPUT_OBJ", 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_921__SUPUT_OBJ", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_921__SUPUT_OBJ.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_921__SUPUT_OBJ.obj_hash = 762778287; meltcdat->dsym_921__SUPUT_OBJ.obj_len = 3; /*inistring dstr_922__SUPUT_OBJ*/ /*_._VALSTR___V1020*/ meltfptr[1019] = (melt_ptr_t) &meltcdat->dstr_922__SUPUT_OBJ; meltcdat->dstr_922__SUPUT_OBJ.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_922__SUPUT_OBJ.val, "SUPUT_OBJ", sizeof (meltcdat->dstr_922__SUPUT_OBJ.val)-1); meltcdat->dstr_922__SUPUT_OBJ.val[9] = (char)0 ; meltcdat->dstr_922__SUPUT_OBJ.slen = 9 ; /*^iniobj*/ /*iniobj dobj_923__SUPUT_OBJ*/ /*_._VALDATA___V1014*/ meltfptr[1013] = (melt_ptr_t )&meltcdat->dobj_923__SUPUT_OBJ; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_923__SUPUT_OBJ", 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_923__SUPUT_OBJ", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_923__SUPUT_OBJ.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_923__SUPUT_OBJ.obj_num = 2; meltcdat->dobj_923__SUPUT_OBJ.obj_hash = 344172682; meltcdat->dobj_923__SUPUT_OBJ.obj_len = 4; /*inistring dstr_924__SUPUT_OBJ*/ /*_._VALSTR___V1015*/ meltfptr[1014] = (melt_ptr_t) &meltcdat->dstr_924__SUPUT_OBJ; meltcdat->dstr_924__SUPUT_OBJ.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_924__SUPUT_OBJ.val, "SUPUT_OBJ", sizeof (meltcdat->dstr_924__SUPUT_OBJ.val)-1); meltcdat->dstr_924__SUPUT_OBJ.val[9] = (char)0 ; meltcdat->dstr_924__SUPUT_OBJ.slen = 9 ; /*iniobj dsym_925__SUPUT_FIELDS*/ /*uniqueobj*/ if (!/*_._VALDATA___V1021*/ meltfptr[1020]) /*_._VALDATA___V1021*/ meltfptr[1020] = (melt_ptr_t )&meltcdat->dsym_925__SUPUT_FIELDS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_925__SUPUT_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_925__SUPUT_FIELDS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_925__SUPUT_FIELDS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_925__SUPUT_FIELDS.obj_hash = 595613222; meltcdat->dsym_925__SUPUT_FIELDS.obj_len = 3; /*inistring dstr_926__SUPUT_FIELDS*/ /*_._VALSTR___V1022*/ meltfptr[1021] = (melt_ptr_t) &meltcdat->dstr_926__SUPUT_FIELDS; meltcdat->dstr_926__SUPUT_FIELDS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_926__SUPUT_FIELDS.val, "SUPUT_FIELDS", sizeof (meltcdat->dstr_926__SUPUT_FIELDS.val)-1); meltcdat->dstr_926__SUPUT_FIELDS.val[12] = (char)0 ; meltcdat->dstr_926__SUPUT_FIELDS.slen = 12 ; /*^iniobj*/ /*iniobj dobj_927__SUPUT_FIELDS*/ /*_._VALDATA___V1016*/ meltfptr[1015] = (melt_ptr_t )&meltcdat->dobj_927__SUPUT_FIELDS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_927__SUPUT_FIELDS", 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_927__SUPUT_FIELDS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_927__SUPUT_FIELDS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_927__SUPUT_FIELDS.obj_num = 3; meltcdat->dobj_927__SUPUT_FIELDS.obj_hash = 37994969; meltcdat->dobj_927__SUPUT_FIELDS.obj_len = 4; /*inistring dstr_928__SUPUT_FIELDS*/ /*_._VALSTR___V1017*/ meltfptr[1016] = (melt_ptr_t) &meltcdat->dstr_928__SUPUT_FIELDS; meltcdat->dstr_928__SUPUT_FIELDS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_928__SUPUT_FIELDS.val, "SUPUT_FIELDS", sizeof (meltcdat->dstr_928__SUPUT_FIELDS.val)-1); meltcdat->dstr_928__SUPUT_FIELDS.val[12] = (char)0 ; meltcdat->dstr_928__SUPUT_FIELDS.slen = 12 ; /*iniobj dsym_929__CLASS_SOURCE_UNSAFE_PUT_FIELDS*/ /*uniqueobj*/ if (!/*_._VALDATA___V1023*/ meltfptr[1022]) /*_._VALDATA___V1023*/ meltfptr[1022] = (melt_ptr_t )&meltcdat->dsym_929__CLASS_SOURCE_UNSAFE_PUT_FIELDS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_929__CLASS_SOURCE_UNSAFE_PUT_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_929__CLASS_SOURCE_UNSAFE_PUT_FIELDS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_929__CLASS_SOURCE_UNSAFE_PUT_FIELDS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_929__CLASS_SOURCE_UNSAFE_PUT_FIELDS.obj_hash = 24821450; meltcdat->dsym_929__CLASS_SOURCE_UNSAFE_PUT_FIELDS.obj_len = 3; /*inistring dstr_930__CLASS_SOURCE_UNSAFE_PUT_*/ /*_._VALSTR___V1024*/ meltfptr[1023] = (melt_ptr_t) &meltcdat->dstr_930__CLASS_SOURCE_UNSAFE_PUT_; meltcdat->dstr_930__CLASS_SOURCE_UNSAFE_PUT_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_930__CLASS_SOURCE_UNSAFE_PUT_.val, "CLASS_SOURCE_UNSAFE_PUT_FIELDS", sizeof (meltcdat->dstr_930__CLASS_SOURCE_UNSAFE_PUT_.val)-1); meltcdat->dstr_930__CLASS_SOURCE_UNSAFE_PUT_.val[30] = (char)0 ; meltcdat->dstr_930__CLASS_SOURCE_UNSAFE_PUT_.slen = 30 ; MELT_LOCATION("warmelt-macro.melt:1013:/ iniobj"); /*iniobj dobj_931__CLASS_SOURCE_UNSAFE_PUT_FIELDS*/ /*_._VALDATA___V1025*/ meltfptr[1024] = (melt_ptr_t )&meltcdat->dobj_931__CLASS_SOURCE_UNSAFE_PUT_FIELDS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_931__CLASS_SOURCE_UNSAFE_PUT_FIELDS", 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_931__CLASS_SOURCE_UNSAFE_PUT_FIELDS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_931__CLASS_SOURCE_UNSAFE_PUT_FIELDS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_931__CLASS_SOURCE_UNSAFE_PUT_FIELDS.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_931__CLASS_SOURCE_UNSAFE_PUT_FIELDS.obj_hash = 240891499; meltcdat->dobj_931__CLASS_SOURCE_UNSAFE_PUT_FIELDS.obj_len = 8; /*inistring dstr_932__CLASS_SOURCE_UNSAFE_PUT_*/ /*_._VALSTR___V1026*/ meltfptr[1025] = (melt_ptr_t) &meltcdat->dstr_932__CLASS_SOURCE_UNSAFE_PUT_; meltcdat->dstr_932__CLASS_SOURCE_UNSAFE_PUT_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_932__CLASS_SOURCE_UNSAFE_PUT_.val, "CLASS_SOURCE_UNSAFE_PUT_FIELDS", sizeof (meltcdat->dstr_932__CLASS_SOURCE_UNSAFE_PUT_.val)-1); meltcdat->dstr_932__CLASS_SOURCE_UNSAFE_PUT_.val[30] = (char)0 ; meltcdat->dstr_932__CLASS_SOURCE_UNSAFE_PUT_.slen = 30 ; /*inimult dtup_933_syCLASS_SOURCE_UNSAFE_PUT_FIELDS*/ /*_._VALTUP___V1027*/ meltfptr[1026] = (melt_ptr_t) &meltcdat->dtup_933_syCLASS_SOURCE_UNSAFE_PUT_FIELDS; meltcdat->dtup_933_syCLASS_SOURCE_UNSAFE_PUT_FIELDS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_933_syCLASS_SOURCE_UNSAFE_PUT_FIELDS.nbval = 5; /*inimult dtup_934_syCLASS_SOURCE_UNSAFE_PUT_FIELDS*/ /*_._VALTUP___V1028*/ meltfptr[1027] = (melt_ptr_t) &meltcdat->dtup_934_syCLASS_SOURCE_UNSAFE_PUT_FIELDS; meltcdat->dtup_934_syCLASS_SOURCE_UNSAFE_PUT_FIELDS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_934_syCLASS_SOURCE_UNSAFE_PUT_FIELDS.nbval = 4; /*iniobj dsym_935__CLASS_SOURCE_IF*/ /*uniqueobj*/ if (!/*_._VALDATA___V1029*/ meltfptr[1028]) /*_._VALDATA___V1029*/ meltfptr[1028] = (melt_ptr_t )&meltcdat->dsym_935__CLASS_SOURCE_IF; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_935__CLASS_SOURCE_IF", 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_935__CLASS_SOURCE_IF", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_935__CLASS_SOURCE_IF.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_935__CLASS_SOURCE_IF.obj_hash = 852156504; meltcdat->dsym_935__CLASS_SOURCE_IF.obj_len = 3; /*inistring dstr_936__CLASS_SOURCE_IF*/ /*_._VALSTR___V1030*/ meltfptr[1029] = (melt_ptr_t) &meltcdat->dstr_936__CLASS_SOURCE_IF; meltcdat->dstr_936__CLASS_SOURCE_IF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_936__CLASS_SOURCE_IF.val, "CLASS_SOURCE_IF", sizeof (meltcdat->dstr_936__CLASS_SOURCE_IF.val)-1); meltcdat->dstr_936__CLASS_SOURCE_IF.val[15] = (char)0 ; meltcdat->dstr_936__CLASS_SOURCE_IF.slen = 15 ; MELT_LOCATION("warmelt-macro.melt:1022:/ iniobj"); /*iniobj dobj_937__CLASS_SOURCE_IF*/ /*_._VALDATA___V1031*/ meltfptr[1030] = (melt_ptr_t )&meltcdat->dobj_937__CLASS_SOURCE_IF; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_937__CLASS_SOURCE_IF", 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_937__CLASS_SOURCE_IF", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_937__CLASS_SOURCE_IF.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_937__CLASS_SOURCE_IF.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_937__CLASS_SOURCE_IF.obj_hash = 362253267; meltcdat->dobj_937__CLASS_SOURCE_IF.obj_len = 8; /*inistring dstr_938__CLASS_SOURCE_IF*/ /*_._VALSTR___V1032*/ meltfptr[1031] = (melt_ptr_t) &meltcdat->dstr_938__CLASS_SOURCE_IF; meltcdat->dstr_938__CLASS_SOURCE_IF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_938__CLASS_SOURCE_IF.val, "CLASS_SOURCE_IF", sizeof (meltcdat->dstr_938__CLASS_SOURCE_IF.val)-1); meltcdat->dstr_938__CLASS_SOURCE_IF.val[15] = (char)0 ; meltcdat->dstr_938__CLASS_SOURCE_IF.slen = 15 ; /*inimult dtup_939_syCLASS_SOURCE_IF*/ /*_._VALTUP___V1033*/ meltfptr[1032] = (melt_ptr_t) &meltcdat->dtup_939_syCLASS_SOURCE_IF; meltcdat->dtup_939_syCLASS_SOURCE_IF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_939_syCLASS_SOURCE_IF.nbval = 4; /*inimult dtup_940_syCLASS_SOURCE_IF*/ /*_._VALTUP___V1038*/ meltfptr[1037] = (melt_ptr_t) &meltcdat->dtup_940_syCLASS_SOURCE_IF; meltcdat->dtup_940_syCLASS_SOURCE_IF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_940_syCLASS_SOURCE_IF.nbval = 4; /*iniobj dsym_941__SIF_TEST*/ /*uniqueobj*/ if (!/*_._VALDATA___V1039*/ meltfptr[1038]) /*_._VALDATA___V1039*/ meltfptr[1038] = (melt_ptr_t )&meltcdat->dsym_941__SIF_TEST; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_941__SIF_TEST", 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_941__SIF_TEST", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_941__SIF_TEST.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_941__SIF_TEST.obj_hash = 531822652; meltcdat->dsym_941__SIF_TEST.obj_len = 3; /*inistring dstr_942__SIF_TEST*/ /*_._VALSTR___V1040*/ meltfptr[1039] = (melt_ptr_t) &meltcdat->dstr_942__SIF_TEST; meltcdat->dstr_942__SIF_TEST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_942__SIF_TEST.val, "SIF_TEST", sizeof (meltcdat->dstr_942__SIF_TEST.val)-1); meltcdat->dstr_942__SIF_TEST.val[8] = (char)0 ; meltcdat->dstr_942__SIF_TEST.slen = 8 ; /*^iniobj*/ /*iniobj dobj_943__SIF_TEST*/ /*_._VALDATA___V1034*/ meltfptr[1033] = (melt_ptr_t )&meltcdat->dobj_943__SIF_TEST; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_943__SIF_TEST", 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_943__SIF_TEST", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_943__SIF_TEST.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_943__SIF_TEST.obj_num = 2; meltcdat->dobj_943__SIF_TEST.obj_hash = 870022550; meltcdat->dobj_943__SIF_TEST.obj_len = 4; /*inistring dstr_944__SIF_TEST*/ /*_._VALSTR___V1035*/ meltfptr[1034] = (melt_ptr_t) &meltcdat->dstr_944__SIF_TEST; meltcdat->dstr_944__SIF_TEST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_944__SIF_TEST.val, "SIF_TEST", sizeof (meltcdat->dstr_944__SIF_TEST.val)-1); meltcdat->dstr_944__SIF_TEST.val[8] = (char)0 ; meltcdat->dstr_944__SIF_TEST.slen = 8 ; /*iniobj dsym_945__SIF_THEN*/ /*uniqueobj*/ if (!/*_._VALDATA___V1041*/ meltfptr[1040]) /*_._VALDATA___V1041*/ meltfptr[1040] = (melt_ptr_t )&meltcdat->dsym_945__SIF_THEN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_945__SIF_THEN", 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_945__SIF_THEN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_945__SIF_THEN.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_945__SIF_THEN.obj_hash = 111634546; meltcdat->dsym_945__SIF_THEN.obj_len = 3; /*inistring dstr_946__SIF_THEN*/ /*_._VALSTR___V1042*/ meltfptr[1041] = (melt_ptr_t) &meltcdat->dstr_946__SIF_THEN; meltcdat->dstr_946__SIF_THEN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_946__SIF_THEN.val, "SIF_THEN", sizeof (meltcdat->dstr_946__SIF_THEN.val)-1); meltcdat->dstr_946__SIF_THEN.val[8] = (char)0 ; meltcdat->dstr_946__SIF_THEN.slen = 8 ; /*^iniobj*/ /*iniobj dobj_947__SIF_THEN*/ /*_._VALDATA___V1036*/ meltfptr[1035] = (melt_ptr_t )&meltcdat->dobj_947__SIF_THEN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_947__SIF_THEN", 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_947__SIF_THEN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_947__SIF_THEN.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_947__SIF_THEN.obj_num = 3; meltcdat->dobj_947__SIF_THEN.obj_hash = 892568704; meltcdat->dobj_947__SIF_THEN.obj_len = 4; /*inistring dstr_948__SIF_THEN*/ /*_._VALSTR___V1037*/ meltfptr[1036] = (melt_ptr_t) &meltcdat->dstr_948__SIF_THEN; meltcdat->dstr_948__SIF_THEN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_948__SIF_THEN.val, "SIF_THEN", sizeof (meltcdat->dstr_948__SIF_THEN.val)-1); meltcdat->dstr_948__SIF_THEN.val[8] = (char)0 ; meltcdat->dstr_948__SIF_THEN.slen = 8 ; /*iniobj dsym_949__CLASS_SOURCE_IFELSE*/ /*uniqueobj*/ if (!/*_._VALDATA___V1043*/ meltfptr[1042]) /*_._VALDATA___V1043*/ meltfptr[1042] = (melt_ptr_t )&meltcdat->dsym_949__CLASS_SOURCE_IFELSE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_949__CLASS_SOURCE_IFELSE", 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_949__CLASS_SOURCE_IFELSE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_949__CLASS_SOURCE_IFELSE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_949__CLASS_SOURCE_IFELSE.obj_hash = 588500358; meltcdat->dsym_949__CLASS_SOURCE_IFELSE.obj_len = 3; /*inistring dstr_950__CLASS_SOURCE_IFELSE*/ /*_._VALSTR___V1044*/ meltfptr[1043] = (melt_ptr_t) &meltcdat->dstr_950__CLASS_SOURCE_IFELSE; meltcdat->dstr_950__CLASS_SOURCE_IFELSE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_950__CLASS_SOURCE_IFELSE.val, "CLASS_SOURCE_IFELSE", sizeof (meltcdat->dstr_950__CLASS_SOURCE_IFELSE.val)-1); meltcdat->dstr_950__CLASS_SOURCE_IFELSE.val[19] = (char)0 ; meltcdat->dstr_950__CLASS_SOURCE_IFELSE.slen = 19 ; MELT_LOCATION("warmelt-macro.melt:1031:/ iniobj"); /*iniobj dobj_951__CLASS_SOURCE_IFELSE*/ /*_._VALDATA___V1045*/ meltfptr[1044] = (melt_ptr_t )&meltcdat->dobj_951__CLASS_SOURCE_IFELSE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_951__CLASS_SOURCE_IFELSE", 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_951__CLASS_SOURCE_IFELSE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_951__CLASS_SOURCE_IFELSE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_951__CLASS_SOURCE_IFELSE.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_951__CLASS_SOURCE_IFELSE.obj_hash = 209265890; meltcdat->dobj_951__CLASS_SOURCE_IFELSE.obj_len = 8; /*inistring dstr_952__CLASS_SOURCE_IFELSE*/ /*_._VALSTR___V1046*/ meltfptr[1045] = (melt_ptr_t) &meltcdat->dstr_952__CLASS_SOURCE_IFELSE; meltcdat->dstr_952__CLASS_SOURCE_IFELSE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_952__CLASS_SOURCE_IFELSE.val, "CLASS_SOURCE_IFELSE", sizeof (meltcdat->dstr_952__CLASS_SOURCE_IFELSE.val)-1); meltcdat->dstr_952__CLASS_SOURCE_IFELSE.val[19] = (char)0 ; meltcdat->dstr_952__CLASS_SOURCE_IFELSE.slen = 19 ; /*inimult dtup_953_syCLASS_SOURCE_IFELSE*/ /*_._VALTUP___V1047*/ meltfptr[1046] = (melt_ptr_t) &meltcdat->dtup_953_syCLASS_SOURCE_IFELSE; meltcdat->dtup_953_syCLASS_SOURCE_IFELSE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_953_syCLASS_SOURCE_IFELSE.nbval = 5; /*inimult dtup_954_syCLASS_SOURCE_IFELSE*/ /*_._VALTUP___V1050*/ meltfptr[1049] = (melt_ptr_t) &meltcdat->dtup_954_syCLASS_SOURCE_IFELSE; meltcdat->dtup_954_syCLASS_SOURCE_IFELSE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_954_syCLASS_SOURCE_IFELSE.nbval = 5; /*iniobj dsym_955__SIF_ELSE*/ /*uniqueobj*/ if (!/*_._VALDATA___V1051*/ meltfptr[1050]) /*_._VALDATA___V1051*/ meltfptr[1050] = (melt_ptr_t )&meltcdat->dsym_955__SIF_ELSE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_955__SIF_ELSE", 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_955__SIF_ELSE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_955__SIF_ELSE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_955__SIF_ELSE.obj_hash = 876593992; meltcdat->dsym_955__SIF_ELSE.obj_len = 3; /*inistring dstr_956__SIF_ELSE*/ /*_._VALSTR___V1052*/ meltfptr[1051] = (melt_ptr_t) &meltcdat->dstr_956__SIF_ELSE; meltcdat->dstr_956__SIF_ELSE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_956__SIF_ELSE.val, "SIF_ELSE", sizeof (meltcdat->dstr_956__SIF_ELSE.val)-1); meltcdat->dstr_956__SIF_ELSE.val[8] = (char)0 ; meltcdat->dstr_956__SIF_ELSE.slen = 8 ; /*^iniobj*/ /*iniobj dobj_957__SIF_ELSE*/ /*_._VALDATA___V1048*/ meltfptr[1047] = (melt_ptr_t )&meltcdat->dobj_957__SIF_ELSE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_957__SIF_ELSE", 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_957__SIF_ELSE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_957__SIF_ELSE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_957__SIF_ELSE.obj_num = 4; meltcdat->dobj_957__SIF_ELSE.obj_hash = 555647047; meltcdat->dobj_957__SIF_ELSE.obj_len = 4; /*inistring dstr_958__SIF_ELSE*/ /*_._VALSTR___V1049*/ meltfptr[1048] = (melt_ptr_t) &meltcdat->dstr_958__SIF_ELSE; meltcdat->dstr_958__SIF_ELSE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_958__SIF_ELSE.val, "SIF_ELSE", sizeof (meltcdat->dstr_958__SIF_ELSE.val)-1); meltcdat->dstr_958__SIF_ELSE.val[8] = (char)0 ; meltcdat->dstr_958__SIF_ELSE.slen = 8 ; /*iniobj dsym_959__CLASS_SOURCE_OR*/ /*uniqueobj*/ if (!/*_._VALDATA___V1053*/ meltfptr[1052]) /*_._VALDATA___V1053*/ meltfptr[1052] = (melt_ptr_t )&meltcdat->dsym_959__CLASS_SOURCE_OR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_959__CLASS_SOURCE_OR", 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_959__CLASS_SOURCE_OR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_959__CLASS_SOURCE_OR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_959__CLASS_SOURCE_OR.obj_hash = 738334645; meltcdat->dsym_959__CLASS_SOURCE_OR.obj_len = 3; /*inistring dstr_960__CLASS_SOURCE_OR*/ /*_._VALSTR___V1054*/ meltfptr[1053] = (melt_ptr_t) &meltcdat->dstr_960__CLASS_SOURCE_OR; meltcdat->dstr_960__CLASS_SOURCE_OR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_960__CLASS_SOURCE_OR.val, "CLASS_SOURCE_OR", sizeof (meltcdat->dstr_960__CLASS_SOURCE_OR.val)-1); meltcdat->dstr_960__CLASS_SOURCE_OR.val[15] = (char)0 ; meltcdat->dstr_960__CLASS_SOURCE_OR.slen = 15 ; MELT_LOCATION("warmelt-macro.melt:1042:/ iniobj"); /*iniobj dobj_961__CLASS_SOURCE_OR*/ /*_._VALDATA___V1055*/ meltfptr[1054] = (melt_ptr_t )&meltcdat->dobj_961__CLASS_SOURCE_OR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_961__CLASS_SOURCE_OR", 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_961__CLASS_SOURCE_OR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_961__CLASS_SOURCE_OR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_961__CLASS_SOURCE_OR.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_961__CLASS_SOURCE_OR.obj_hash = 711357778; meltcdat->dobj_961__CLASS_SOURCE_OR.obj_len = 8; /*inistring dstr_962__CLASS_SOURCE_OR*/ /*_._VALSTR___V1056*/ meltfptr[1055] = (melt_ptr_t) &meltcdat->dstr_962__CLASS_SOURCE_OR; meltcdat->dstr_962__CLASS_SOURCE_OR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_962__CLASS_SOURCE_OR.val, "CLASS_SOURCE_OR", sizeof (meltcdat->dstr_962__CLASS_SOURCE_OR.val)-1); meltcdat->dstr_962__CLASS_SOURCE_OR.val[15] = (char)0 ; meltcdat->dstr_962__CLASS_SOURCE_OR.slen = 15 ; /*inimult dtup_963_syCLASS_SOURCE_OR*/ /*_._VALTUP___V1057*/ meltfptr[1056] = (melt_ptr_t) &meltcdat->dtup_963_syCLASS_SOURCE_OR; meltcdat->dtup_963_syCLASS_SOURCE_OR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_963_syCLASS_SOURCE_OR.nbval = 4; /*inimult dtup_964_syCLASS_SOURCE_OR*/ /*_._VALTUP___V1060*/ meltfptr[1059] = (melt_ptr_t) &meltcdat->dtup_964_syCLASS_SOURCE_OR; meltcdat->dtup_964_syCLASS_SOURCE_OR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_964_syCLASS_SOURCE_OR.nbval = 3; /*iniobj dsym_965__SOR_DISJ*/ /*uniqueobj*/ if (!/*_._VALDATA___V1061*/ meltfptr[1060]) /*_._VALDATA___V1061*/ meltfptr[1060] = (melt_ptr_t )&meltcdat->dsym_965__SOR_DISJ; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_965__SOR_DISJ", 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_965__SOR_DISJ", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_965__SOR_DISJ.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_965__SOR_DISJ.obj_hash = 354040300; meltcdat->dsym_965__SOR_DISJ.obj_len = 3; /*inistring dstr_966__SOR_DISJ*/ /*_._VALSTR___V1062*/ meltfptr[1061] = (melt_ptr_t) &meltcdat->dstr_966__SOR_DISJ; meltcdat->dstr_966__SOR_DISJ.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_966__SOR_DISJ.val, "SOR_DISJ", sizeof (meltcdat->dstr_966__SOR_DISJ.val)-1); meltcdat->dstr_966__SOR_DISJ.val[8] = (char)0 ; meltcdat->dstr_966__SOR_DISJ.slen = 8 ; /*^iniobj*/ /*iniobj dobj_967__SOR_DISJ*/ /*_._VALDATA___V1058*/ meltfptr[1057] = (melt_ptr_t )&meltcdat->dobj_967__SOR_DISJ; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_967__SOR_DISJ", 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_967__SOR_DISJ", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_967__SOR_DISJ.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_967__SOR_DISJ.obj_num = 2; meltcdat->dobj_967__SOR_DISJ.obj_hash = 578219602; meltcdat->dobj_967__SOR_DISJ.obj_len = 4; /*inistring dstr_968__SOR_DISJ*/ /*_._VALSTR___V1059*/ meltfptr[1058] = (melt_ptr_t) &meltcdat->dstr_968__SOR_DISJ; meltcdat->dstr_968__SOR_DISJ.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_968__SOR_DISJ.val, "SOR_DISJ", sizeof (meltcdat->dstr_968__SOR_DISJ.val)-1); meltcdat->dstr_968__SOR_DISJ.val[8] = (char)0 ; meltcdat->dstr_968__SOR_DISJ.slen = 8 ; /*iniobj dsym_969__CLASS_SOURCE_CPPIF*/ /*uniqueobj*/ if (!/*_._VALDATA___V1063*/ meltfptr[1062]) /*_._VALDATA___V1063*/ meltfptr[1062] = (melt_ptr_t )&meltcdat->dsym_969__CLASS_SOURCE_CPPIF; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_969__CLASS_SOURCE_CPPIF", 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_969__CLASS_SOURCE_CPPIF", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_969__CLASS_SOURCE_CPPIF.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_969__CLASS_SOURCE_CPPIF.obj_hash = 179014183; meltcdat->dsym_969__CLASS_SOURCE_CPPIF.obj_len = 3; /*inistring dstr_970__CLASS_SOURCE_CPPIF*/ /*_._VALSTR___V1064*/ meltfptr[1063] = (melt_ptr_t) &meltcdat->dstr_970__CLASS_SOURCE_CPPIF; meltcdat->dstr_970__CLASS_SOURCE_CPPIF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_970__CLASS_SOURCE_CPPIF.val, "CLASS_SOURCE_CPPIF", sizeof (meltcdat->dstr_970__CLASS_SOURCE_CPPIF.val)-1); meltcdat->dstr_970__CLASS_SOURCE_CPPIF.val[18] = (char)0 ; meltcdat->dstr_970__CLASS_SOURCE_CPPIF.slen = 18 ; MELT_LOCATION("warmelt-macro.melt:1054:/ iniobj"); /*iniobj dobj_971__CLASS_SOURCE_CPPIF*/ /*_._VALDATA___V1065*/ meltfptr[1064] = (melt_ptr_t )&meltcdat->dobj_971__CLASS_SOURCE_CPPIF; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_971__CLASS_SOURCE_CPPIF", 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_971__CLASS_SOURCE_CPPIF", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_971__CLASS_SOURCE_CPPIF.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_971__CLASS_SOURCE_CPPIF.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_971__CLASS_SOURCE_CPPIF.obj_hash = 322564476; meltcdat->dobj_971__CLASS_SOURCE_CPPIF.obj_len = 8; /*inistring dstr_972__CLASS_SOURCE_CPPIF*/ /*_._VALSTR___V1066*/ meltfptr[1065] = (melt_ptr_t) &meltcdat->dstr_972__CLASS_SOURCE_CPPIF; meltcdat->dstr_972__CLASS_SOURCE_CPPIF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_972__CLASS_SOURCE_CPPIF.val, "CLASS_SOURCE_CPPIF", sizeof (meltcdat->dstr_972__CLASS_SOURCE_CPPIF.val)-1); meltcdat->dstr_972__CLASS_SOURCE_CPPIF.val[18] = (char)0 ; meltcdat->dstr_972__CLASS_SOURCE_CPPIF.slen = 18 ; /*inimult dtup_973_syCLASS_SOURCE_CPPIF*/ /*_._VALTUP___V1067*/ meltfptr[1066] = (melt_ptr_t) &meltcdat->dtup_973_syCLASS_SOURCE_CPPIF; meltcdat->dtup_973_syCLASS_SOURCE_CPPIF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_973_syCLASS_SOURCE_CPPIF.nbval = 4; /*inimult dtup_974_syCLASS_SOURCE_CPPIF*/ /*_._VALTUP___V1074*/ meltfptr[1073] = (melt_ptr_t) &meltcdat->dtup_974_syCLASS_SOURCE_CPPIF; meltcdat->dtup_974_syCLASS_SOURCE_CPPIF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_974_syCLASS_SOURCE_CPPIF.nbval = 5; /*iniobj dsym_975__SIFP_COND*/ /*uniqueobj*/ if (!/*_._VALDATA___V1075*/ meltfptr[1074]) /*_._VALDATA___V1075*/ meltfptr[1074] = (melt_ptr_t )&meltcdat->dsym_975__SIFP_COND; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_975__SIFP_COND", 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_975__SIFP_COND", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_975__SIFP_COND.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_975__SIFP_COND.obj_hash = 843364013; meltcdat->dsym_975__SIFP_COND.obj_len = 3; /*inistring dstr_976__SIFP_COND*/ /*_._VALSTR___V1076*/ meltfptr[1075] = (melt_ptr_t) &meltcdat->dstr_976__SIFP_COND; meltcdat->dstr_976__SIFP_COND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_976__SIFP_COND.val, "SIFP_COND", sizeof (meltcdat->dstr_976__SIFP_COND.val)-1); meltcdat->dstr_976__SIFP_COND.val[9] = (char)0 ; meltcdat->dstr_976__SIFP_COND.slen = 9 ; /*^iniobj*/ /*iniobj dobj_977__SIFP_COND*/ /*_._VALDATA___V1068*/ meltfptr[1067] = (melt_ptr_t )&meltcdat->dobj_977__SIFP_COND; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_977__SIFP_COND", 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_977__SIFP_COND", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_977__SIFP_COND.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_977__SIFP_COND.obj_num = 2; meltcdat->dobj_977__SIFP_COND.obj_hash = 748504683; meltcdat->dobj_977__SIFP_COND.obj_len = 4; /*inistring dstr_978__SIFP_COND*/ /*_._VALSTR___V1069*/ meltfptr[1068] = (melt_ptr_t) &meltcdat->dstr_978__SIFP_COND; meltcdat->dstr_978__SIFP_COND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_978__SIFP_COND.val, "SIFP_COND", sizeof (meltcdat->dstr_978__SIFP_COND.val)-1); meltcdat->dstr_978__SIFP_COND.val[9] = (char)0 ; meltcdat->dstr_978__SIFP_COND.slen = 9 ; /*iniobj dsym_979__SIFP_THEN*/ /*uniqueobj*/ if (!/*_._VALDATA___V1077*/ meltfptr[1076]) /*_._VALDATA___V1077*/ meltfptr[1076] = (melt_ptr_t )&meltcdat->dsym_979__SIFP_THEN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_979__SIFP_THEN", 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_979__SIFP_THEN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_979__SIFP_THEN.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_979__SIFP_THEN.obj_hash = 1068543930; meltcdat->dsym_979__SIFP_THEN.obj_len = 3; /*inistring dstr_980__SIFP_THEN*/ /*_._VALSTR___V1078*/ meltfptr[1077] = (melt_ptr_t) &meltcdat->dstr_980__SIFP_THEN; meltcdat->dstr_980__SIFP_THEN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_980__SIFP_THEN.val, "SIFP_THEN", sizeof (meltcdat->dstr_980__SIFP_THEN.val)-1); meltcdat->dstr_980__SIFP_THEN.val[9] = (char)0 ; meltcdat->dstr_980__SIFP_THEN.slen = 9 ; /*^iniobj*/ /*iniobj dobj_981__SIFP_THEN*/ /*_._VALDATA___V1070*/ meltfptr[1069] = (melt_ptr_t )&meltcdat->dobj_981__SIFP_THEN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_981__SIFP_THEN", 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_981__SIFP_THEN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_981__SIFP_THEN.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_981__SIFP_THEN.obj_num = 3; meltcdat->dobj_981__SIFP_THEN.obj_hash = 282775667; meltcdat->dobj_981__SIFP_THEN.obj_len = 4; /*inistring dstr_982__SIFP_THEN*/ /*_._VALSTR___V1071*/ meltfptr[1070] = (melt_ptr_t) &meltcdat->dstr_982__SIFP_THEN; meltcdat->dstr_982__SIFP_THEN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_982__SIFP_THEN.val, "SIFP_THEN", sizeof (meltcdat->dstr_982__SIFP_THEN.val)-1); meltcdat->dstr_982__SIFP_THEN.val[9] = (char)0 ; meltcdat->dstr_982__SIFP_THEN.slen = 9 ; /*iniobj dsym_983__SIFP_ELSE*/ /*uniqueobj*/ if (!/*_._VALDATA___V1079*/ meltfptr[1078]) /*_._VALDATA___V1079*/ meltfptr[1078] = (melt_ptr_t )&meltcdat->dsym_983__SIFP_ELSE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_983__SIFP_ELSE", 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_983__SIFP_ELSE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_983__SIFP_ELSE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_983__SIFP_ELSE.obj_hash = 914147024; meltcdat->dsym_983__SIFP_ELSE.obj_len = 3; /*inistring dstr_984__SIFP_ELSE*/ /*_._VALSTR___V1080*/ meltfptr[1079] = (melt_ptr_t) &meltcdat->dstr_984__SIFP_ELSE; meltcdat->dstr_984__SIFP_ELSE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_984__SIFP_ELSE.val, "SIFP_ELSE", sizeof (meltcdat->dstr_984__SIFP_ELSE.val)-1); meltcdat->dstr_984__SIFP_ELSE.val[9] = (char)0 ; meltcdat->dstr_984__SIFP_ELSE.slen = 9 ; /*^iniobj*/ /*iniobj dobj_985__SIFP_ELSE*/ /*_._VALDATA___V1072*/ meltfptr[1071] = (melt_ptr_t )&meltcdat->dobj_985__SIFP_ELSE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_985__SIFP_ELSE", 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_985__SIFP_ELSE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_985__SIFP_ELSE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_985__SIFP_ELSE.obj_num = 4; meltcdat->dobj_985__SIFP_ELSE.obj_hash = 221670237; meltcdat->dobj_985__SIFP_ELSE.obj_len = 4; /*inistring dstr_986__SIFP_ELSE*/ /*_._VALSTR___V1073*/ meltfptr[1072] = (melt_ptr_t) &meltcdat->dstr_986__SIFP_ELSE; meltcdat->dstr_986__SIFP_ELSE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_986__SIFP_ELSE.val, "SIFP_ELSE", sizeof (meltcdat->dstr_986__SIFP_ELSE.val)-1); meltcdat->dstr_986__SIFP_ELSE.val[9] = (char)0 ; meltcdat->dstr_986__SIFP_ELSE.slen = 9 ; /*iniobj dsym_987__CLASS_SOURCE_MATCH*/ /*uniqueobj*/ if (!/*_._VALDATA___V1081*/ meltfptr[1080]) /*_._VALDATA___V1081*/ meltfptr[1080] = (melt_ptr_t )&meltcdat->dsym_987__CLASS_SOURCE_MATCH; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_987__CLASS_SOURCE_MATCH", 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_987__CLASS_SOURCE_MATCH", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_987__CLASS_SOURCE_MATCH.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_987__CLASS_SOURCE_MATCH.obj_hash = 977016819; meltcdat->dsym_987__CLASS_SOURCE_MATCH.obj_len = 3; /*inistring dstr_988__CLASS_SOURCE_MATCH*/ /*_._VALSTR___V1082*/ meltfptr[1081] = (melt_ptr_t) &meltcdat->dstr_988__CLASS_SOURCE_MATCH; meltcdat->dstr_988__CLASS_SOURCE_MATCH.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_988__CLASS_SOURCE_MATCH.val, "CLASS_SOURCE_MATCH", sizeof (meltcdat->dstr_988__CLASS_SOURCE_MATCH.val)-1); meltcdat->dstr_988__CLASS_SOURCE_MATCH.val[18] = (char)0 ; meltcdat->dstr_988__CLASS_SOURCE_MATCH.slen = 18 ; MELT_LOCATION("warmelt-macro.melt:1065:/ iniobj"); /*iniobj dobj_989__CLASS_SOURCE_MATCH*/ /*_._VALDATA___V1083*/ meltfptr[1082] = (melt_ptr_t )&meltcdat->dobj_989__CLASS_SOURCE_MATCH; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_989__CLASS_SOURCE_MATCH", 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_989__CLASS_SOURCE_MATCH", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_989__CLASS_SOURCE_MATCH.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_989__CLASS_SOURCE_MATCH.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_989__CLASS_SOURCE_MATCH.obj_hash = 294995654; meltcdat->dobj_989__CLASS_SOURCE_MATCH.obj_len = 8; /*inistring dstr_990__CLASS_SOURCE_MATCH*/ /*_._VALSTR___V1084*/ meltfptr[1083] = (melt_ptr_t) &meltcdat->dstr_990__CLASS_SOURCE_MATCH; meltcdat->dstr_990__CLASS_SOURCE_MATCH.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_990__CLASS_SOURCE_MATCH.val, "CLASS_SOURCE_MATCH", sizeof (meltcdat->dstr_990__CLASS_SOURCE_MATCH.val)-1); meltcdat->dstr_990__CLASS_SOURCE_MATCH.val[18] = (char)0 ; meltcdat->dstr_990__CLASS_SOURCE_MATCH.slen = 18 ; /*inimult dtup_991_syCLASS_SOURCE_MATCH*/ /*_._VALTUP___V1085*/ meltfptr[1084] = (melt_ptr_t) &meltcdat->dtup_991_syCLASS_SOURCE_MATCH; meltcdat->dtup_991_syCLASS_SOURCE_MATCH.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_991_syCLASS_SOURCE_MATCH.nbval = 4; /*inimult dtup_992_syCLASS_SOURCE_MATCH*/ /*_._VALTUP___V1090*/ meltfptr[1089] = (melt_ptr_t) &meltcdat->dtup_992_syCLASS_SOURCE_MATCH; meltcdat->dtup_992_syCLASS_SOURCE_MATCH.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_992_syCLASS_SOURCE_MATCH.nbval = 4; /*iniobj dsym_993__SMAT_MATCHEDX*/ /*uniqueobj*/ if (!/*_._VALDATA___V1091*/ meltfptr[1090]) /*_._VALDATA___V1091*/ meltfptr[1090] = (melt_ptr_t )&meltcdat->dsym_993__SMAT_MATCHEDX; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_993__SMAT_MATCHEDX", 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_993__SMAT_MATCHEDX", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_993__SMAT_MATCHEDX.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_993__SMAT_MATCHEDX.obj_hash = 56867082; meltcdat->dsym_993__SMAT_MATCHEDX.obj_len = 3; /*inistring dstr_994__SMAT_MATCHEDX*/ /*_._VALSTR___V1092*/ meltfptr[1091] = (melt_ptr_t) &meltcdat->dstr_994__SMAT_MATCHEDX; meltcdat->dstr_994__SMAT_MATCHEDX.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_994__SMAT_MATCHEDX.val, "SMAT_MATCHEDX", sizeof (meltcdat->dstr_994__SMAT_MATCHEDX.val)-1); meltcdat->dstr_994__SMAT_MATCHEDX.val[13] = (char)0 ; meltcdat->dstr_994__SMAT_MATCHEDX.slen = 13 ; /*^iniobj*/ /*iniobj dobj_995__SMAT_MATCHEDX*/ /*_._VALDATA___V1086*/ meltfptr[1085] = (melt_ptr_t )&meltcdat->dobj_995__SMAT_MATCHEDX; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_995__SMAT_MATCHEDX", 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_995__SMAT_MATCHEDX", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_995__SMAT_MATCHEDX.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_995__SMAT_MATCHEDX.obj_num = 2; meltcdat->dobj_995__SMAT_MATCHEDX.obj_hash = 4151509; meltcdat->dobj_995__SMAT_MATCHEDX.obj_len = 4; /*inistring dstr_996__SMAT_MATCHEDX*/ /*_._VALSTR___V1087*/ meltfptr[1086] = (melt_ptr_t) &meltcdat->dstr_996__SMAT_MATCHEDX; meltcdat->dstr_996__SMAT_MATCHEDX.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_996__SMAT_MATCHEDX.val, "SMAT_MATCHEDX", sizeof (meltcdat->dstr_996__SMAT_MATCHEDX.val)-1); meltcdat->dstr_996__SMAT_MATCHEDX.val[13] = (char)0 ; meltcdat->dstr_996__SMAT_MATCHEDX.slen = 13 ; /*iniobj dsym_997__SMAT_CASES*/ /*uniqueobj*/ if (!/*_._VALDATA___V1093*/ meltfptr[1092]) /*_._VALDATA___V1093*/ meltfptr[1092] = (melt_ptr_t )&meltcdat->dsym_997__SMAT_CASES; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_997__SMAT_CASES", 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_997__SMAT_CASES", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_997__SMAT_CASES.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_997__SMAT_CASES.obj_hash = 1021834057; meltcdat->dsym_997__SMAT_CASES.obj_len = 3; /*inistring dstr_998__SMAT_CASES*/ /*_._VALSTR___V1094*/ meltfptr[1093] = (melt_ptr_t) &meltcdat->dstr_998__SMAT_CASES; meltcdat->dstr_998__SMAT_CASES.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_998__SMAT_CASES.val, "SMAT_CASES", sizeof (meltcdat->dstr_998__SMAT_CASES.val)-1); meltcdat->dstr_998__SMAT_CASES.val[10] = (char)0 ; meltcdat->dstr_998__SMAT_CASES.slen = 10 ; /*^iniobj*/ /*iniobj dobj_999__SMAT_CASES*/ /*_._VALDATA___V1088*/ meltfptr[1087] = (melt_ptr_t )&meltcdat->dobj_999__SMAT_CASES; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_999__SMAT_CASES", 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_999__SMAT_CASES", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_999__SMAT_CASES.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_999__SMAT_CASES.obj_num = 3; meltcdat->dobj_999__SMAT_CASES.obj_hash = 897999752; meltcdat->dobj_999__SMAT_CASES.obj_len = 4; /*inistring dstr_1000__SMAT_CASES*/ /*_._VALSTR___V1089*/ meltfptr[1088] = (melt_ptr_t) &meltcdat->dstr_1000__SMAT_CASES; meltcdat->dstr_1000__SMAT_CASES.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1000__SMAT_CASES.val, "SMAT_CASES", sizeof (meltcdat->dstr_1000__SMAT_CASES.val)-1); meltcdat->dstr_1000__SMAT_CASES.val[10] = (char)0 ; meltcdat->dstr_1000__SMAT_CASES.slen = 10 ; /*iniobj dsym_1001__CLASS_SOURCE_MATCHALT*/ /*uniqueobj*/ if (!/*_._VALDATA___V1095*/ meltfptr[1094]) /*_._VALDATA___V1095*/ meltfptr[1094] = (melt_ptr_t )&meltcdat->dsym_1001__CLASS_SOURCE_MATCHALT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1001__CLASS_SOURCE_MATCHALT", 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_1001__CLASS_SOURCE_MATCHALT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1001__CLASS_SOURCE_MATCHALT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1001__CLASS_SOURCE_MATCHALT.obj_hash = 267909297; meltcdat->dsym_1001__CLASS_SOURCE_MATCHALT.obj_len = 3; /*inistring dstr_1002__CLASS_SOURCE_MATCHALT*/ /*_._VALSTR___V1096*/ meltfptr[1095] = (melt_ptr_t) &meltcdat->dstr_1002__CLASS_SOURCE_MATCHALT; meltcdat->dstr_1002__CLASS_SOURCE_MATCHALT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1002__CLASS_SOURCE_MATCHALT.val, "CLASS_SOURCE_MATCHALT", sizeof (meltcdat->dstr_1002__CLASS_SOURCE_MATCHALT.val)-1); meltcdat->dstr_1002__CLASS_SOURCE_MATCHALT.val[21] = (char)0 ; meltcdat->dstr_1002__CLASS_SOURCE_MATCHALT.slen = 21 ; MELT_LOCATION("warmelt-macro.melt:1081:/ iniobj"); /*iniobj dobj_1003__CLASS_SOURCE_MATCHALT*/ /*_._VALDATA___V1097*/ meltfptr[1096] = (melt_ptr_t )&meltcdat->dobj_1003__CLASS_SOURCE_MATCHALT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1003__CLASS_SOURCE_MATCHALT", 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_1003__CLASS_SOURCE_MATCHALT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1003__CLASS_SOURCE_MATCHALT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_1003__CLASS_SOURCE_MATCHALT.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_1003__CLASS_SOURCE_MATCHALT.obj_hash = 119834094; meltcdat->dobj_1003__CLASS_SOURCE_MATCHALT.obj_len = 8; /*inistring dstr_1004__CLASS_SOURCE_MATCHALT*/ /*_._VALSTR___V1098*/ meltfptr[1097] = (melt_ptr_t) &meltcdat->dstr_1004__CLASS_SOURCE_MATCHALT; meltcdat->dstr_1004__CLASS_SOURCE_MATCHALT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1004__CLASS_SOURCE_MATCHALT.val, "CLASS_SOURCE_MATCHALT", sizeof (meltcdat->dstr_1004__CLASS_SOURCE_MATCHALT.val)-1); meltcdat->dstr_1004__CLASS_SOURCE_MATCHALT.val[21] = (char)0 ; meltcdat->dstr_1004__CLASS_SOURCE_MATCHALT.slen = 21 ; /*inimult dtup_1005_syCLASS_SOURCE_MATCHALT*/ /*_._VALTUP___V1099*/ meltfptr[1098] = (melt_ptr_t) &meltcdat->dtup_1005_syCLASS_SOURCE_MATCHALT; meltcdat->dtup_1005_syCLASS_SOURCE_MATCHALT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1005_syCLASS_SOURCE_MATCHALT.nbval = 5; /*inimult dtup_1006_syCLASS_SOURCE_MATCHALT*/ /*_._VALTUP___V1100*/ meltfptr[1099] = (melt_ptr_t) &meltcdat->dtup_1006_syCLASS_SOURCE_MATCHALT; meltcdat->dtup_1006_syCLASS_SOURCE_MATCHALT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1006_syCLASS_SOURCE_MATCHALT.nbval = 4; /*iniobj dsym_1007__CLASS_SOURCE_MATCH_CASE*/ /*uniqueobj*/ if (!/*_._VALDATA___V1101*/ meltfptr[1100]) /*_._VALDATA___V1101*/ meltfptr[1100] = (melt_ptr_t )&meltcdat->dsym_1007__CLASS_SOURCE_MATCH_CASE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1007__CLASS_SOURCE_MATCH_CASE", 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_1007__CLASS_SOURCE_MATCH_CASE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1007__CLASS_SOURCE_MATCH_CASE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1007__CLASS_SOURCE_MATCH_CASE.obj_hash = 625198266; meltcdat->dsym_1007__CLASS_SOURCE_MATCH_CASE.obj_len = 3; /*inistring dstr_1008__CLASS_SOURCE_MATCH_CASE*/ /*_._VALSTR___V1102*/ meltfptr[1101] = (melt_ptr_t) &meltcdat->dstr_1008__CLASS_SOURCE_MATCH_CASE; meltcdat->dstr_1008__CLASS_SOURCE_MATCH_CASE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1008__CLASS_SOURCE_MATCH_CASE.val, "CLASS_SOURCE_MATCH_CASE", sizeof (meltcdat->dstr_1008__CLASS_SOURCE_MATCH_CASE.val)-1); meltcdat->dstr_1008__CLASS_SOURCE_MATCH_CASE.val[23] = (char)0 ; meltcdat->dstr_1008__CLASS_SOURCE_MATCH_CASE.slen = 23 ; MELT_LOCATION("warmelt-macro.melt:1091:/ iniobj"); /*iniobj dobj_1009__CLASS_SOURCE_MATCH_CASE*/ /*_._VALDATA___V1103*/ meltfptr[1102] = (melt_ptr_t )&meltcdat->dobj_1009__CLASS_SOURCE_MATCH_CASE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1009__CLASS_SOURCE_MATCH_CASE", 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_1009__CLASS_SOURCE_MATCH_CASE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1009__CLASS_SOURCE_MATCH_CASE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_1009__CLASS_SOURCE_MATCH_CASE.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_1009__CLASS_SOURCE_MATCH_CASE.obj_hash = 10684157; meltcdat->dobj_1009__CLASS_SOURCE_MATCH_CASE.obj_len = 8; /*inistring dstr_1010__CLASS_SOURCE_MATCH_CASE*/ /*_._VALSTR___V1104*/ meltfptr[1103] = (melt_ptr_t) &meltcdat->dstr_1010__CLASS_SOURCE_MATCH_CASE; meltcdat->dstr_1010__CLASS_SOURCE_MATCH_CASE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1010__CLASS_SOURCE_MATCH_CASE.val, "CLASS_SOURCE_MATCH_CASE", sizeof (meltcdat->dstr_1010__CLASS_SOURCE_MATCH_CASE.val)-1); meltcdat->dstr_1010__CLASS_SOURCE_MATCH_CASE.val[23] = (char)0 ; meltcdat->dstr_1010__CLASS_SOURCE_MATCH_CASE.slen = 23 ; /*inimult dtup_1011_syCLASS_SOURCE_MATCH_CASE*/ /*_._VALTUP___V1105*/ meltfptr[1104] = (melt_ptr_t) &meltcdat->dtup_1011_syCLASS_SOURCE_MATCH_CASE; meltcdat->dtup_1011_syCLASS_SOURCE_MATCH_CASE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1011_syCLASS_SOURCE_MATCH_CASE.nbval = 4; /*inimult dtup_1012_syCLASS_SOURCE_MATCH_CASE*/ /*_._VALTUP___V1110*/ meltfptr[1109] = (melt_ptr_t) &meltcdat->dtup_1012_syCLASS_SOURCE_MATCH_CASE; meltcdat->dtup_1012_syCLASS_SOURCE_MATCH_CASE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1012_syCLASS_SOURCE_MATCH_CASE.nbval = 4; /*iniobj dsym_1013__SCAM_PATT*/ /*uniqueobj*/ if (!/*_._VALDATA___V1111*/ meltfptr[1110]) /*_._VALDATA___V1111*/ meltfptr[1110] = (melt_ptr_t )&meltcdat->dsym_1013__SCAM_PATT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1013__SCAM_PATT", 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_1013__SCAM_PATT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1013__SCAM_PATT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1013__SCAM_PATT.obj_hash = 413025747; meltcdat->dsym_1013__SCAM_PATT.obj_len = 3; /*inistring dstr_1014__SCAM_PATT*/ /*_._VALSTR___V1112*/ meltfptr[1111] = (melt_ptr_t) &meltcdat->dstr_1014__SCAM_PATT; meltcdat->dstr_1014__SCAM_PATT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1014__SCAM_PATT.val, "SCAM_PATT", sizeof (meltcdat->dstr_1014__SCAM_PATT.val)-1); meltcdat->dstr_1014__SCAM_PATT.val[9] = (char)0 ; meltcdat->dstr_1014__SCAM_PATT.slen = 9 ; /*^iniobj*/ /*iniobj dobj_1015__SCAM_PATT*/ /*_._VALDATA___V1106*/ meltfptr[1105] = (melt_ptr_t )&meltcdat->dobj_1015__SCAM_PATT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1015__SCAM_PATT", 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_1015__SCAM_PATT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1015__SCAM_PATT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_1015__SCAM_PATT.obj_num = 2; meltcdat->dobj_1015__SCAM_PATT.obj_hash = 758524503; meltcdat->dobj_1015__SCAM_PATT.obj_len = 4; /*inistring dstr_1016__SCAM_PATT*/ /*_._VALSTR___V1107*/ meltfptr[1106] = (melt_ptr_t) &meltcdat->dstr_1016__SCAM_PATT; meltcdat->dstr_1016__SCAM_PATT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1016__SCAM_PATT.val, "SCAM_PATT", sizeof (meltcdat->dstr_1016__SCAM_PATT.val)-1); meltcdat->dstr_1016__SCAM_PATT.val[9] = (char)0 ; meltcdat->dstr_1016__SCAM_PATT.slen = 9 ; /*iniobj dsym_1017__SCAM_BODY*/ /*uniqueobj*/ if (!/*_._VALDATA___V1113*/ meltfptr[1112]) /*_._VALDATA___V1113*/ meltfptr[1112] = (melt_ptr_t )&meltcdat->dsym_1017__SCAM_BODY; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1017__SCAM_BODY", 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_1017__SCAM_BODY", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1017__SCAM_BODY.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1017__SCAM_BODY.obj_hash = 1012147204; meltcdat->dsym_1017__SCAM_BODY.obj_len = 3; /*inistring dstr_1018__SCAM_BODY*/ /*_._VALSTR___V1114*/ meltfptr[1113] = (melt_ptr_t) &meltcdat->dstr_1018__SCAM_BODY; meltcdat->dstr_1018__SCAM_BODY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1018__SCAM_BODY.val, "SCAM_BODY", sizeof (meltcdat->dstr_1018__SCAM_BODY.val)-1); meltcdat->dstr_1018__SCAM_BODY.val[9] = (char)0 ; meltcdat->dstr_1018__SCAM_BODY.slen = 9 ; /*^iniobj*/ /*iniobj dobj_1019__SCAM_BODY*/ /*_._VALDATA___V1108*/ meltfptr[1107] = (melt_ptr_t )&meltcdat->dobj_1019__SCAM_BODY; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1019__SCAM_BODY", 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_1019__SCAM_BODY", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1019__SCAM_BODY.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_1019__SCAM_BODY.obj_num = 3; meltcdat->dobj_1019__SCAM_BODY.obj_hash = 649679587; meltcdat->dobj_1019__SCAM_BODY.obj_len = 4; /*inistring dstr_1020__SCAM_BODY*/ /*_._VALSTR___V1109*/ meltfptr[1108] = (melt_ptr_t) &meltcdat->dstr_1020__SCAM_BODY; meltcdat->dstr_1020__SCAM_BODY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1020__SCAM_BODY.val, "SCAM_BODY", sizeof (meltcdat->dstr_1020__SCAM_BODY.val)-1); meltcdat->dstr_1020__SCAM_BODY.val[9] = (char)0 ; meltcdat->dstr_1020__SCAM_BODY.slen = 9 ; /*iniobj dsym_1021__CLASS_SOURCE_ANY_LET_BINDING*/ /*uniqueobj*/ if (!/*_._VALDATA___V1115*/ meltfptr[1114]) /*_._VALDATA___V1115*/ meltfptr[1114] = (melt_ptr_t )&meltcdat->dsym_1021__CLASS_SOURCE_ANY_LET_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1021__CLASS_SOURCE_ANY_LET_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_1021__CLASS_SOURCE_ANY_LET_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1021__CLASS_SOURCE_ANY_LET_BINDING.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1021__CLASS_SOURCE_ANY_LET_BINDING.obj_hash = 95190629; meltcdat->dsym_1021__CLASS_SOURCE_ANY_LET_BINDING.obj_len = 3; /*inistring dstr_1022__CLASS_SOURCE_ANY_LET_BIN*/ /*_._VALSTR___V1116*/ meltfptr[1115] = (melt_ptr_t) &meltcdat->dstr_1022__CLASS_SOURCE_ANY_LET_BIN; meltcdat->dstr_1022__CLASS_SOURCE_ANY_LET_BIN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1022__CLASS_SOURCE_ANY_LET_BIN.val, "CLASS_SOURCE_ANY_LET_BINDING", sizeof (meltcdat->dstr_1022__CLASS_SOURCE_ANY_LET_BIN.val)-1); meltcdat->dstr_1022__CLASS_SOURCE_ANY_LET_BIN.val[28] = (char)0 ; meltcdat->dstr_1022__CLASS_SOURCE_ANY_LET_BIN.slen = 28 ; MELT_LOCATION("warmelt-macro.melt:1101:/ iniobj"); /*iniobj dobj_1023__CLASS_SOURCE_ANY_LET_BINDING*/ /*_._VALDATA___V1117*/ meltfptr[1116] = (melt_ptr_t )&meltcdat->dobj_1023__CLASS_SOURCE_ANY_LET_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1023__CLASS_SOURCE_ANY_LET_BINDING", 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_1023__CLASS_SOURCE_ANY_LET_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1023__CLASS_SOURCE_ANY_LET_BINDING.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_1023__CLASS_SOURCE_ANY_LET_BINDING.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_1023__CLASS_SOURCE_ANY_LET_BINDING.obj_hash = 726310028; meltcdat->dobj_1023__CLASS_SOURCE_ANY_LET_BINDING.obj_len = 8; /*inistring dstr_1024__CLASS_SOURCE_ANY_LET_BIN*/ /*_._VALSTR___V1118*/ meltfptr[1117] = (melt_ptr_t) &meltcdat->dstr_1024__CLASS_SOURCE_ANY_LET_BIN; meltcdat->dstr_1024__CLASS_SOURCE_ANY_LET_BIN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1024__CLASS_SOURCE_ANY_LET_BIN.val, "CLASS_SOURCE_ANY_LET_BINDING", sizeof (meltcdat->dstr_1024__CLASS_SOURCE_ANY_LET_BIN.val)-1); meltcdat->dstr_1024__CLASS_SOURCE_ANY_LET_BIN.val[28] = (char)0 ; meltcdat->dstr_1024__CLASS_SOURCE_ANY_LET_BIN.slen = 28 ; /*inimult dtup_1025_syCLASS_SOURCE_ANY_LET_BINDING*/ /*_._VALTUP___V1119*/ meltfptr[1118] = (melt_ptr_t) &meltcdat->dtup_1025_syCLASS_SOURCE_ANY_LET_BINDING; meltcdat->dtup_1025_syCLASS_SOURCE_ANY_LET_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1025_syCLASS_SOURCE_ANY_LET_BINDING.nbval = 4; /*inimult dtup_1026_syCLASS_SOURCE_ANY_LET_BINDING*/ /*_._VALTUP___V1122*/ meltfptr[1121] = (melt_ptr_t) &meltcdat->dtup_1026_syCLASS_SOURCE_ANY_LET_BINDING; meltcdat->dtup_1026_syCLASS_SOURCE_ANY_LET_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1026_syCLASS_SOURCE_ANY_LET_BINDING.nbval = 3; /*iniobj dsym_1027__SLETB_BINDER*/ /*uniqueobj*/ if (!/*_._VALDATA___V1123*/ meltfptr[1122]) /*_._VALDATA___V1123*/ meltfptr[1122] = (melt_ptr_t )&meltcdat->dsym_1027__SLETB_BINDER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1027__SLETB_BINDER", 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_1027__SLETB_BINDER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1027__SLETB_BINDER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1027__SLETB_BINDER.obj_hash = 270217853; meltcdat->dsym_1027__SLETB_BINDER.obj_len = 3; /*inistring dstr_1028__SLETB_BINDER*/ /*_._VALSTR___V1124*/ meltfptr[1123] = (melt_ptr_t) &meltcdat->dstr_1028__SLETB_BINDER; meltcdat->dstr_1028__SLETB_BINDER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1028__SLETB_BINDER.val, "SLETB_BINDER", sizeof (meltcdat->dstr_1028__SLETB_BINDER.val)-1); meltcdat->dstr_1028__SLETB_BINDER.val[12] = (char)0 ; meltcdat->dstr_1028__SLETB_BINDER.slen = 12 ; /*^iniobj*/ /*iniobj dobj_1029__SLETB_BINDER*/ /*_._VALDATA___V1120*/ meltfptr[1119] = (melt_ptr_t )&meltcdat->dobj_1029__SLETB_BINDER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1029__SLETB_BINDER", 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_1029__SLETB_BINDER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1029__SLETB_BINDER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_1029__SLETB_BINDER.obj_num = 2; meltcdat->dobj_1029__SLETB_BINDER.obj_hash = 903244866; meltcdat->dobj_1029__SLETB_BINDER.obj_len = 4; /*inistring dstr_1030__SLETB_BINDER*/ /*_._VALSTR___V1121*/ meltfptr[1120] = (melt_ptr_t) &meltcdat->dstr_1030__SLETB_BINDER; meltcdat->dstr_1030__SLETB_BINDER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1030__SLETB_BINDER.val, "SLETB_BINDER", sizeof (meltcdat->dstr_1030__SLETB_BINDER.val)-1); meltcdat->dstr_1030__SLETB_BINDER.val[12] = (char)0 ; meltcdat->dstr_1030__SLETB_BINDER.slen = 12 ; /*iniobj dsym_1031__CLASS_SOURCE_MACRO_LET_BINDING*/ /*uniqueobj*/ if (!/*_._VALDATA___V1125*/ meltfptr[1124]) /*_._VALDATA___V1125*/ meltfptr[1124] = (melt_ptr_t )&meltcdat->dsym_1031__CLASS_SOURCE_MACRO_LET_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1031__CLASS_SOURCE_MACRO_LET_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_1031__CLASS_SOURCE_MACRO_LET_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1031__CLASS_SOURCE_MACRO_LET_BINDING.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1031__CLASS_SOURCE_MACRO_LET_BINDING.obj_hash = 100888146; meltcdat->dsym_1031__CLASS_SOURCE_MACRO_LET_BINDING.obj_len = 3; /*inistring dstr_1032__CLASS_SOURCE_MACRO_LET_B*/ /*_._VALSTR___V1126*/ meltfptr[1125] = (melt_ptr_t) &meltcdat->dstr_1032__CLASS_SOURCE_MACRO_LET_B; meltcdat->dstr_1032__CLASS_SOURCE_MACRO_LET_B.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1032__CLASS_SOURCE_MACRO_LET_B.val, "CLASS_SOURCE_MACRO_LET_BINDING", sizeof (meltcdat->dstr_1032__CLASS_SOURCE_MACRO_LET_B.val)-1); meltcdat->dstr_1032__CLASS_SOURCE_MACRO_LET_B.val[30] = (char)0 ; meltcdat->dstr_1032__CLASS_SOURCE_MACRO_LET_B.slen = 30 ; MELT_LOCATION("warmelt-macro.melt:1108:/ iniobj"); /*iniobj dobj_1033__CLASS_SOURCE_MACRO_LET_BINDING*/ /*_._VALDATA___V1127*/ meltfptr[1126] = (melt_ptr_t )&meltcdat->dobj_1033__CLASS_SOURCE_MACRO_LET_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1033__CLASS_SOURCE_MACRO_LET_BINDING", 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_1033__CLASS_SOURCE_MACRO_LET_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1033__CLASS_SOURCE_MACRO_LET_BINDING.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_1033__CLASS_SOURCE_MACRO_LET_BINDING.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_1033__CLASS_SOURCE_MACRO_LET_BINDING.obj_hash = 1037199683; meltcdat->dobj_1033__CLASS_SOURCE_MACRO_LET_BINDING.obj_len = 8; /*inistring dstr_1034__CLASS_SOURCE_MACRO_LET_B*/ /*_._VALSTR___V1128*/ meltfptr[1127] = (melt_ptr_t) &meltcdat->dstr_1034__CLASS_SOURCE_MACRO_LET_B; meltcdat->dstr_1034__CLASS_SOURCE_MACRO_LET_B.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1034__CLASS_SOURCE_MACRO_LET_B.val, "CLASS_SOURCE_MACRO_LET_BINDING", sizeof (meltcdat->dstr_1034__CLASS_SOURCE_MACRO_LET_B.val)-1); meltcdat->dstr_1034__CLASS_SOURCE_MACRO_LET_B.val[30] = (char)0 ; meltcdat->dstr_1034__CLASS_SOURCE_MACRO_LET_B.slen = 30 ; /*inimult dtup_1035_syCLASS_SOURCE_MACRO_LET_BINDING*/ /*_._VALTUP___V1129*/ meltfptr[1128] = (melt_ptr_t) &meltcdat->dtup_1035_syCLASS_SOURCE_MACRO_LET_BINDING; meltcdat->dtup_1035_syCLASS_SOURCE_MACRO_LET_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1035_syCLASS_SOURCE_MACRO_LET_BINDING.nbval = 5; /*inimult dtup_1036_syCLASS_SOURCE_MACRO_LET_BINDING*/ /*_._VALTUP___V1134*/ meltfptr[1133] = (melt_ptr_t) &meltcdat->dtup_1036_syCLASS_SOURCE_MACRO_LET_BINDING; meltcdat->dtup_1036_syCLASS_SOURCE_MACRO_LET_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1036_syCLASS_SOURCE_MACRO_LET_BINDING.nbval = 5; /*iniobj dsym_1037__SLETM_MACRO_FORMALS*/ /*uniqueobj*/ if (!/*_._VALDATA___V1135*/ meltfptr[1134]) /*_._VALDATA___V1135*/ meltfptr[1134] = (melt_ptr_t )&meltcdat->dsym_1037__SLETM_MACRO_FORMALS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1037__SLETM_MACRO_FORMALS", 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_1037__SLETM_MACRO_FORMALS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1037__SLETM_MACRO_FORMALS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1037__SLETM_MACRO_FORMALS.obj_hash = 456223898; meltcdat->dsym_1037__SLETM_MACRO_FORMALS.obj_len = 3; /*inistring dstr_1038__SLETM_MACRO_FORMALS*/ /*_._VALSTR___V1136*/ meltfptr[1135] = (melt_ptr_t) &meltcdat->dstr_1038__SLETM_MACRO_FORMALS; meltcdat->dstr_1038__SLETM_MACRO_FORMALS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1038__SLETM_MACRO_FORMALS.val, "SLETM_MACRO_FORMALS", sizeof (meltcdat->dstr_1038__SLETM_MACRO_FORMALS.val)-1); meltcdat->dstr_1038__SLETM_MACRO_FORMALS.val[19] = (char)0 ; meltcdat->dstr_1038__SLETM_MACRO_FORMALS.slen = 19 ; /*^iniobj*/ /*iniobj dobj_1039__SLETM_MACRO_FORMALS*/ /*_._VALDATA___V1130*/ meltfptr[1129] = (melt_ptr_t )&meltcdat->dobj_1039__SLETM_MACRO_FORMALS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1039__SLETM_MACRO_FORMALS", 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_1039__SLETM_MACRO_FORMALS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1039__SLETM_MACRO_FORMALS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_1039__SLETM_MACRO_FORMALS.obj_num = 3; meltcdat->dobj_1039__SLETM_MACRO_FORMALS.obj_hash = 249311190; meltcdat->dobj_1039__SLETM_MACRO_FORMALS.obj_len = 4; /*inistring dstr_1040__SLETM_MACRO_FORMALS*/ /*_._VALSTR___V1131*/ meltfptr[1130] = (melt_ptr_t) &meltcdat->dstr_1040__SLETM_MACRO_FORMALS; meltcdat->dstr_1040__SLETM_MACRO_FORMALS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1040__SLETM_MACRO_FORMALS.val, "SLETM_MACRO_FORMALS", sizeof (meltcdat->dstr_1040__SLETM_MACRO_FORMALS.val)-1); meltcdat->dstr_1040__SLETM_MACRO_FORMALS.val[19] = (char)0 ; meltcdat->dstr_1040__SLETM_MACRO_FORMALS.slen = 19 ; /*iniobj dsym_1041__SLETM_MACRO_BODY*/ /*uniqueobj*/ if (!/*_._VALDATA___V1137*/ meltfptr[1136]) /*_._VALDATA___V1137*/ meltfptr[1136] = (melt_ptr_t )&meltcdat->dsym_1041__SLETM_MACRO_BODY; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1041__SLETM_MACRO_BODY", 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_1041__SLETM_MACRO_BODY", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1041__SLETM_MACRO_BODY.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1041__SLETM_MACRO_BODY.obj_hash = 546962978; meltcdat->dsym_1041__SLETM_MACRO_BODY.obj_len = 3; /*inistring dstr_1042__SLETM_MACRO_BODY*/ /*_._VALSTR___V1138*/ meltfptr[1137] = (melt_ptr_t) &meltcdat->dstr_1042__SLETM_MACRO_BODY; meltcdat->dstr_1042__SLETM_MACRO_BODY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1042__SLETM_MACRO_BODY.val, "SLETM_MACRO_BODY", sizeof (meltcdat->dstr_1042__SLETM_MACRO_BODY.val)-1); meltcdat->dstr_1042__SLETM_MACRO_BODY.val[16] = (char)0 ; meltcdat->dstr_1042__SLETM_MACRO_BODY.slen = 16 ; /*^iniobj*/ /*iniobj dobj_1043__SLETM_MACRO_BODY*/ /*_._VALDATA___V1132*/ meltfptr[1131] = (melt_ptr_t )&meltcdat->dobj_1043__SLETM_MACRO_BODY; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1043__SLETM_MACRO_BODY", 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_1043__SLETM_MACRO_BODY", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1043__SLETM_MACRO_BODY.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_1043__SLETM_MACRO_BODY.obj_num = 4; meltcdat->dobj_1043__SLETM_MACRO_BODY.obj_hash = 704757180; meltcdat->dobj_1043__SLETM_MACRO_BODY.obj_len = 4; /*inistring dstr_1044__SLETM_MACRO_BODY*/ /*_._VALSTR___V1133*/ meltfptr[1132] = (melt_ptr_t) &meltcdat->dstr_1044__SLETM_MACRO_BODY; meltcdat->dstr_1044__SLETM_MACRO_BODY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1044__SLETM_MACRO_BODY.val, "SLETM_MACRO_BODY", sizeof (meltcdat->dstr_1044__SLETM_MACRO_BODY.val)-1); meltcdat->dstr_1044__SLETM_MACRO_BODY.val[16] = (char)0 ; meltcdat->dstr_1044__SLETM_MACRO_BODY.slen = 16 ; /*iniobj dsym_1045__CLASS_SOURCE_LET_BINDING*/ /*uniqueobj*/ if (!/*_._VALDATA___V1139*/ meltfptr[1138]) /*_._VALDATA___V1139*/ meltfptr[1138] = (melt_ptr_t )&meltcdat->dsym_1045__CLASS_SOURCE_LET_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1045__CLASS_SOURCE_LET_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_1045__CLASS_SOURCE_LET_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1045__CLASS_SOURCE_LET_BINDING.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1045__CLASS_SOURCE_LET_BINDING.obj_hash = 379014719; meltcdat->dsym_1045__CLASS_SOURCE_LET_BINDING.obj_len = 3; /*inistring dstr_1046__CLASS_SOURCE_LET_BINDING*/ /*_._VALSTR___V1140*/ meltfptr[1139] = (melt_ptr_t) &meltcdat->dstr_1046__CLASS_SOURCE_LET_BINDING; meltcdat->dstr_1046__CLASS_SOURCE_LET_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1046__CLASS_SOURCE_LET_BINDING.val, "CLASS_SOURCE_LET_BINDING", sizeof (meltcdat->dstr_1046__CLASS_SOURCE_LET_BINDING.val)-1); meltcdat->dstr_1046__CLASS_SOURCE_LET_BINDING.val[24] = (char)0 ; meltcdat->dstr_1046__CLASS_SOURCE_LET_BINDING.slen = 24 ; MELT_LOCATION("warmelt-macro.melt:1115:/ iniobj"); /*iniobj dobj_1047__CLASS_SOURCE_LET_BINDING*/ /*_._VALDATA___V1141*/ meltfptr[1140] = (melt_ptr_t )&meltcdat->dobj_1047__CLASS_SOURCE_LET_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1047__CLASS_SOURCE_LET_BINDING", 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_1047__CLASS_SOURCE_LET_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1047__CLASS_SOURCE_LET_BINDING.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_1047__CLASS_SOURCE_LET_BINDING.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_1047__CLASS_SOURCE_LET_BINDING.obj_hash = 73719350; meltcdat->dobj_1047__CLASS_SOURCE_LET_BINDING.obj_len = 8; /*inistring dstr_1048__CLASS_SOURCE_LET_BINDING*/ /*_._VALSTR___V1142*/ meltfptr[1141] = (melt_ptr_t) &meltcdat->dstr_1048__CLASS_SOURCE_LET_BINDING; meltcdat->dstr_1048__CLASS_SOURCE_LET_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1048__CLASS_SOURCE_LET_BINDING.val, "CLASS_SOURCE_LET_BINDING", sizeof (meltcdat->dstr_1048__CLASS_SOURCE_LET_BINDING.val)-1); meltcdat->dstr_1048__CLASS_SOURCE_LET_BINDING.val[24] = (char)0 ; meltcdat->dstr_1048__CLASS_SOURCE_LET_BINDING.slen = 24 ; /*inimult dtup_1049_syCLASS_SOURCE_LET_BINDING*/ /*_._VALTUP___V1143*/ meltfptr[1142] = (melt_ptr_t) &meltcdat->dtup_1049_syCLASS_SOURCE_LET_BINDING; meltcdat->dtup_1049_syCLASS_SOURCE_LET_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1049_syCLASS_SOURCE_LET_BINDING.nbval = 5; /*inimult dtup_1050_syCLASS_SOURCE_LET_BINDING*/ /*_._VALTUP___V1148*/ meltfptr[1147] = (melt_ptr_t) &meltcdat->dtup_1050_syCLASS_SOURCE_LET_BINDING; meltcdat->dtup_1050_syCLASS_SOURCE_LET_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1050_syCLASS_SOURCE_LET_BINDING.nbval = 5; /*iniobj dsym_1051__SLETB_TYPE*/ /*uniqueobj*/ if (!/*_._VALDATA___V1149*/ meltfptr[1148]) /*_._VALDATA___V1149*/ meltfptr[1148] = (melt_ptr_t )&meltcdat->dsym_1051__SLETB_TYPE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1051__SLETB_TYPE", 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_1051__SLETB_TYPE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1051__SLETB_TYPE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1051__SLETB_TYPE.obj_hash = 825191502; meltcdat->dsym_1051__SLETB_TYPE.obj_len = 3; /*inistring dstr_1052__SLETB_TYPE*/ /*_._VALSTR___V1150*/ meltfptr[1149] = (melt_ptr_t) &meltcdat->dstr_1052__SLETB_TYPE; meltcdat->dstr_1052__SLETB_TYPE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1052__SLETB_TYPE.val, "SLETB_TYPE", sizeof (meltcdat->dstr_1052__SLETB_TYPE.val)-1); meltcdat->dstr_1052__SLETB_TYPE.val[10] = (char)0 ; meltcdat->dstr_1052__SLETB_TYPE.slen = 10 ; /*^iniobj*/ /*iniobj dobj_1053__SLETB_TYPE*/ /*_._VALDATA___V1144*/ meltfptr[1143] = (melt_ptr_t )&meltcdat->dobj_1053__SLETB_TYPE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1053__SLETB_TYPE", 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_1053__SLETB_TYPE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1053__SLETB_TYPE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_1053__SLETB_TYPE.obj_num = 3; meltcdat->dobj_1053__SLETB_TYPE.obj_hash = 805869967; meltcdat->dobj_1053__SLETB_TYPE.obj_len = 4; /*inistring dstr_1054__SLETB_TYPE*/ /*_._VALSTR___V1145*/ meltfptr[1144] = (melt_ptr_t) &meltcdat->dstr_1054__SLETB_TYPE; meltcdat->dstr_1054__SLETB_TYPE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1054__SLETB_TYPE.val, "SLETB_TYPE", sizeof (meltcdat->dstr_1054__SLETB_TYPE.val)-1); meltcdat->dstr_1054__SLETB_TYPE.val[10] = (char)0 ; meltcdat->dstr_1054__SLETB_TYPE.slen = 10 ; /*iniobj dsym_1055__SLETB_EXPR*/ /*uniqueobj*/ if (!/*_._VALDATA___V1151*/ meltfptr[1150]) /*_._VALDATA___V1151*/ meltfptr[1150] = (melt_ptr_t )&meltcdat->dsym_1055__SLETB_EXPR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1055__SLETB_EXPR", 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_1055__SLETB_EXPR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1055__SLETB_EXPR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1055__SLETB_EXPR.obj_hash = 314235873; meltcdat->dsym_1055__SLETB_EXPR.obj_len = 3; /*inistring dstr_1056__SLETB_EXPR*/ /*_._VALSTR___V1152*/ meltfptr[1151] = (melt_ptr_t) &meltcdat->dstr_1056__SLETB_EXPR; meltcdat->dstr_1056__SLETB_EXPR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1056__SLETB_EXPR.val, "SLETB_EXPR", sizeof (meltcdat->dstr_1056__SLETB_EXPR.val)-1); meltcdat->dstr_1056__SLETB_EXPR.val[10] = (char)0 ; meltcdat->dstr_1056__SLETB_EXPR.slen = 10 ; /*^iniobj*/ /*iniobj dobj_1057__SLETB_EXPR*/ /*_._VALDATA___V1146*/ meltfptr[1145] = (melt_ptr_t )&meltcdat->dobj_1057__SLETB_EXPR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1057__SLETB_EXPR", 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_1057__SLETB_EXPR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1057__SLETB_EXPR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_1057__SLETB_EXPR.obj_num = 4; meltcdat->dobj_1057__SLETB_EXPR.obj_hash = 152960726; meltcdat->dobj_1057__SLETB_EXPR.obj_len = 4; /*inistring dstr_1058__SLETB_EXPR*/ /*_._VALSTR___V1147*/ meltfptr[1146] = (melt_ptr_t) &meltcdat->dstr_1058__SLETB_EXPR; meltcdat->dstr_1058__SLETB_EXPR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1058__SLETB_EXPR.val, "SLETB_EXPR", sizeof (meltcdat->dstr_1058__SLETB_EXPR.val)-1); meltcdat->dstr_1058__SLETB_EXPR.val[10] = (char)0 ; meltcdat->dstr_1058__SLETB_EXPR.slen = 10 ; /*iniobj dsym_1059__CLASS_SOURCE_LET_BINDING_FOR_MACRO*/ /*uniqueobj*/ if (!/*_._VALDATA___V1153*/ meltfptr[1152]) /*_._VALDATA___V1153*/ meltfptr[1152] = (melt_ptr_t )&meltcdat->dsym_1059__CLASS_SOURCE_LET_BINDING_FOR_MACRO; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1059__CLASS_SOURCE_LET_BINDING_FOR_MACRO", 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_1059__CLASS_SOURCE_LET_BINDING_FOR_MACRO", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1059__CLASS_SOURCE_LET_BINDING_FOR_MACRO.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1059__CLASS_SOURCE_LET_BINDING_FOR_MACRO.obj_hash = 360071231; meltcdat->dsym_1059__CLASS_SOURCE_LET_BINDING_FOR_MACRO.obj_len = 3; /*inistring dstr_1060__CLASS_SOURCE_LET_BINDING*/ /*_._VALSTR___V1154*/ meltfptr[1153] = (melt_ptr_t) &meltcdat->dstr_1060__CLASS_SOURCE_LET_BINDING; meltcdat->dstr_1060__CLASS_SOURCE_LET_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1060__CLASS_SOURCE_LET_BINDING.val, "CLASS_SOURCE_LET_BINDING_FOR_MACRO", sizeof (meltcdat->dstr_1060__CLASS_SOURCE_LET_BINDING.val)-1); meltcdat->dstr_1060__CLASS_SOURCE_LET_BINDING.val[34] = (char)0 ; meltcdat->dstr_1060__CLASS_SOURCE_LET_BINDING.slen = 34 ; MELT_LOCATION("warmelt-macro.melt:1126:/ iniobj"); /*iniobj dobj_1061__CLASS_SOURCE_LET_BINDING_FOR_MACRO*/ /*_._VALDATA___V1155*/ meltfptr[1154] = (melt_ptr_t )&meltcdat->dobj_1061__CLASS_SOURCE_LET_BINDING_FOR_MACRO; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1061__CLASS_SOURCE_LET_BINDING_FOR_MACRO", 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_1061__CLASS_SOURCE_LET_BINDING_FOR_MACRO", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1061__CLASS_SOURCE_LET_BINDING_FOR_MACRO.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_1061__CLASS_SOURCE_LET_BINDING_FOR_MACRO.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_1061__CLASS_SOURCE_LET_BINDING_FOR_MACRO.obj_hash = 33865435; meltcdat->dobj_1061__CLASS_SOURCE_LET_BINDING_FOR_MACRO.obj_len = 8; /*inistring dstr_1062__CLASS_SOURCE_LET_BINDING*/ /*_._VALSTR___V1156*/ meltfptr[1155] = (melt_ptr_t) &meltcdat->dstr_1062__CLASS_SOURCE_LET_BINDING; meltcdat->dstr_1062__CLASS_SOURCE_LET_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1062__CLASS_SOURCE_LET_BINDING.val, "CLASS_SOURCE_LET_BINDING_FOR_MACRO", sizeof (meltcdat->dstr_1062__CLASS_SOURCE_LET_BINDING.val)-1); meltcdat->dstr_1062__CLASS_SOURCE_LET_BINDING.val[34] = (char)0 ; meltcdat->dstr_1062__CLASS_SOURCE_LET_BINDING.slen = 34 ; /*inimult dtup_1063_syCLASS_SOURCE_LET_BINDING_FOR_MACRO*/ /*_._VALTUP___V1157*/ meltfptr[1156] = (melt_ptr_t) &meltcdat->dtup_1063_syCLASS_SOURCE_LET_BINDING_FOR_MACRO; meltcdat->dtup_1063_syCLASS_SOURCE_LET_BINDING_FOR_MACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1063_syCLASS_SOURCE_LET_BINDING_FOR_MACRO.nbval = 6; /*inimult dtup_1064_syCLASS_SOURCE_LET_BINDING_FOR_MACRO*/ /*_._VALTUP___V1160*/ meltfptr[1159] = (melt_ptr_t) &meltcdat->dtup_1064_syCLASS_SOURCE_LET_BINDING_FOR_MACRO; meltcdat->dtup_1064_syCLASS_SOURCE_LET_BINDING_FOR_MACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1064_syCLASS_SOURCE_LET_BINDING_FOR_MACRO.nbval = 6; /*iniobj dsym_1065__SLETFM_MACROLETBIND*/ /*uniqueobj*/ if (!/*_._VALDATA___V1161*/ meltfptr[1160]) /*_._VALDATA___V1161*/ meltfptr[1160] = (melt_ptr_t )&meltcdat->dsym_1065__SLETFM_MACROLETBIND; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1065__SLETFM_MACROLETBIND", 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_1065__SLETFM_MACROLETBIND", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1065__SLETFM_MACROLETBIND.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1065__SLETFM_MACROLETBIND.obj_hash = 941244418; meltcdat->dsym_1065__SLETFM_MACROLETBIND.obj_len = 3; /*inistring dstr_1066__SLETFM_MACROLETBIND*/ /*_._VALSTR___V1162*/ meltfptr[1161] = (melt_ptr_t) &meltcdat->dstr_1066__SLETFM_MACROLETBIND; meltcdat->dstr_1066__SLETFM_MACROLETBIND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1066__SLETFM_MACROLETBIND.val, "SLETFM_MACROLETBIND", sizeof (meltcdat->dstr_1066__SLETFM_MACROLETBIND.val)-1); meltcdat->dstr_1066__SLETFM_MACROLETBIND.val[19] = (char)0 ; meltcdat->dstr_1066__SLETFM_MACROLETBIND.slen = 19 ; /*^iniobj*/ /*iniobj dobj_1067__SLETFM_MACROLETBIND*/ /*_._VALDATA___V1158*/ meltfptr[1157] = (melt_ptr_t )&meltcdat->dobj_1067__SLETFM_MACROLETBIND; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1067__SLETFM_MACROLETBIND", 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_1067__SLETFM_MACROLETBIND", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1067__SLETFM_MACROLETBIND.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_1067__SLETFM_MACROLETBIND.obj_num = 5; meltcdat->dobj_1067__SLETFM_MACROLETBIND.obj_hash = 151277498; meltcdat->dobj_1067__SLETFM_MACROLETBIND.obj_len = 4; /*inistring dstr_1068__SLETFM_MACROLETBIND*/ /*_._VALSTR___V1159*/ meltfptr[1158] = (melt_ptr_t) &meltcdat->dstr_1068__SLETFM_MACROLETBIND; meltcdat->dstr_1068__SLETFM_MACROLETBIND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1068__SLETFM_MACROLETBIND.val, "SLETFM_MACROLETBIND", sizeof (meltcdat->dstr_1068__SLETFM_MACROLETBIND.val)-1); meltcdat->dstr_1068__SLETFM_MACROLETBIND.val[19] = (char)0 ; meltcdat->dstr_1068__SLETFM_MACROLETBIND.slen = 19 ; /*iniobj dsym_1069__CLASS_SOURCE_LETREC_BINDING*/ /*uniqueobj*/ if (!/*_._VALDATA___V1163*/ meltfptr[1162]) /*_._VALDATA___V1163*/ meltfptr[1162] = (melt_ptr_t )&meltcdat->dsym_1069__CLASS_SOURCE_LETREC_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1069__CLASS_SOURCE_LETREC_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_1069__CLASS_SOURCE_LETREC_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1069__CLASS_SOURCE_LETREC_BINDING.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1069__CLASS_SOURCE_LETREC_BINDING.obj_hash = 56122288; meltcdat->dsym_1069__CLASS_SOURCE_LETREC_BINDING.obj_len = 3; /*inistring dstr_1070__CLASS_SOURCE_LETREC_BIND*/ /*_._VALSTR___V1164*/ meltfptr[1163] = (melt_ptr_t) &meltcdat->dstr_1070__CLASS_SOURCE_LETREC_BIND; meltcdat->dstr_1070__CLASS_SOURCE_LETREC_BIND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1070__CLASS_SOURCE_LETREC_BIND.val, "CLASS_SOURCE_LETREC_BINDING", sizeof (meltcdat->dstr_1070__CLASS_SOURCE_LETREC_BIND.val)-1); meltcdat->dstr_1070__CLASS_SOURCE_LETREC_BIND.val[27] = (char)0 ; meltcdat->dstr_1070__CLASS_SOURCE_LETREC_BIND.slen = 27 ; MELT_LOCATION("warmelt-macro.melt:1137:/ iniobj"); /*iniobj dobj_1071__CLASS_SOURCE_LETREC_BINDING*/ /*_._VALDATA___V1165*/ meltfptr[1164] = (melt_ptr_t )&meltcdat->dobj_1071__CLASS_SOURCE_LETREC_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1071__CLASS_SOURCE_LETREC_BINDING", 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_1071__CLASS_SOURCE_LETREC_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1071__CLASS_SOURCE_LETREC_BINDING.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_1071__CLASS_SOURCE_LETREC_BINDING.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_1071__CLASS_SOURCE_LETREC_BINDING.obj_hash = 500692767; meltcdat->dobj_1071__CLASS_SOURCE_LETREC_BINDING.obj_len = 8; /*inistring dstr_1072__CLASS_SOURCE_LETREC_BIND*/ /*_._VALSTR___V1166*/ meltfptr[1165] = (melt_ptr_t) &meltcdat->dstr_1072__CLASS_SOURCE_LETREC_BIND; meltcdat->dstr_1072__CLASS_SOURCE_LETREC_BIND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1072__CLASS_SOURCE_LETREC_BIND.val, "CLASS_SOURCE_LETREC_BINDING", sizeof (meltcdat->dstr_1072__CLASS_SOURCE_LETREC_BIND.val)-1); meltcdat->dstr_1072__CLASS_SOURCE_LETREC_BIND.val[27] = (char)0 ; meltcdat->dstr_1072__CLASS_SOURCE_LETREC_BIND.slen = 27 ; /*inimult dtup_1073_syCLASS_SOURCE_LETREC_BINDING*/ /*_._VALTUP___V1167*/ meltfptr[1166] = (melt_ptr_t) &meltcdat->dtup_1073_syCLASS_SOURCE_LETREC_BINDING; meltcdat->dtup_1073_syCLASS_SOURCE_LETREC_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1073_syCLASS_SOURCE_LETREC_BINDING.nbval = 6; /*inimult dtup_1074_syCLASS_SOURCE_LETREC_BINDING*/ /*_._VALTUP___V1168*/ meltfptr[1167] = (melt_ptr_t) &meltcdat->dtup_1074_syCLASS_SOURCE_LETREC_BINDING; meltcdat->dtup_1074_syCLASS_SOURCE_LETREC_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1074_syCLASS_SOURCE_LETREC_BINDING.nbval = 5; /*iniobj dsym_1075__CLASS_SOURCE_LET*/ /*uniqueobj*/ if (!/*_._VALDATA___V1169*/ meltfptr[1168]) /*_._VALDATA___V1169*/ meltfptr[1168] = (melt_ptr_t )&meltcdat->dsym_1075__CLASS_SOURCE_LET; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1075__CLASS_SOURCE_LET", 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_1075__CLASS_SOURCE_LET", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1075__CLASS_SOURCE_LET.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1075__CLASS_SOURCE_LET.obj_hash = 540916563; meltcdat->dsym_1075__CLASS_SOURCE_LET.obj_len = 3; /*inistring dstr_1076__CLASS_SOURCE_LET*/ /*_._VALSTR___V1170*/ meltfptr[1169] = (melt_ptr_t) &meltcdat->dstr_1076__CLASS_SOURCE_LET; meltcdat->dstr_1076__CLASS_SOURCE_LET.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1076__CLASS_SOURCE_LET.val, "CLASS_SOURCE_LET", sizeof (meltcdat->dstr_1076__CLASS_SOURCE_LET.val)-1); meltcdat->dstr_1076__CLASS_SOURCE_LET.val[16] = (char)0 ; meltcdat->dstr_1076__CLASS_SOURCE_LET.slen = 16 ; MELT_LOCATION("warmelt-macro.melt:1143:/ iniobj"); /*iniobj dobj_1077__CLASS_SOURCE_LET*/ /*_._VALDATA___V1171*/ meltfptr[1170] = (melt_ptr_t )&meltcdat->dobj_1077__CLASS_SOURCE_LET; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1077__CLASS_SOURCE_LET", 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_1077__CLASS_SOURCE_LET", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1077__CLASS_SOURCE_LET.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_1077__CLASS_SOURCE_LET.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_1077__CLASS_SOURCE_LET.obj_hash = 596311536; meltcdat->dobj_1077__CLASS_SOURCE_LET.obj_len = 8; /*inistring dstr_1078__CLASS_SOURCE_LET*/ /*_._VALSTR___V1172*/ meltfptr[1171] = (melt_ptr_t) &meltcdat->dstr_1078__CLASS_SOURCE_LET; meltcdat->dstr_1078__CLASS_SOURCE_LET.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1078__CLASS_SOURCE_LET.val, "CLASS_SOURCE_LET", sizeof (meltcdat->dstr_1078__CLASS_SOURCE_LET.val)-1); meltcdat->dstr_1078__CLASS_SOURCE_LET.val[16] = (char)0 ; meltcdat->dstr_1078__CLASS_SOURCE_LET.slen = 16 ; /*inimult dtup_1079_syCLASS_SOURCE_LET*/ /*_._VALTUP___V1173*/ meltfptr[1172] = (melt_ptr_t) &meltcdat->dtup_1079_syCLASS_SOURCE_LET; meltcdat->dtup_1079_syCLASS_SOURCE_LET.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1079_syCLASS_SOURCE_LET.nbval = 4; /*inimult dtup_1080_syCLASS_SOURCE_LET*/ /*_._VALTUP___V1178*/ meltfptr[1177] = (melt_ptr_t) &meltcdat->dtup_1080_syCLASS_SOURCE_LET; meltcdat->dtup_1080_syCLASS_SOURCE_LET.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1080_syCLASS_SOURCE_LET.nbval = 4; /*iniobj dsym_1081__SLET_BINDINGS*/ /*uniqueobj*/ if (!/*_._VALDATA___V1179*/ meltfptr[1178]) /*_._VALDATA___V1179*/ meltfptr[1178] = (melt_ptr_t )&meltcdat->dsym_1081__SLET_BINDINGS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1081__SLET_BINDINGS", 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_1081__SLET_BINDINGS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1081__SLET_BINDINGS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1081__SLET_BINDINGS.obj_hash = 942285125; meltcdat->dsym_1081__SLET_BINDINGS.obj_len = 3; /*inistring dstr_1082__SLET_BINDINGS*/ /*_._VALSTR___V1180*/ meltfptr[1179] = (melt_ptr_t) &meltcdat->dstr_1082__SLET_BINDINGS; meltcdat->dstr_1082__SLET_BINDINGS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1082__SLET_BINDINGS.val, "SLET_BINDINGS", sizeof (meltcdat->dstr_1082__SLET_BINDINGS.val)-1); meltcdat->dstr_1082__SLET_BINDINGS.val[13] = (char)0 ; meltcdat->dstr_1082__SLET_BINDINGS.slen = 13 ; /*^iniobj*/ /*iniobj dobj_1083__SLET_BINDINGS*/ /*_._VALDATA___V1174*/ meltfptr[1173] = (melt_ptr_t )&meltcdat->dobj_1083__SLET_BINDINGS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1083__SLET_BINDINGS", 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_1083__SLET_BINDINGS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1083__SLET_BINDINGS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_1083__SLET_BINDINGS.obj_num = 2; meltcdat->dobj_1083__SLET_BINDINGS.obj_hash = 579889050; meltcdat->dobj_1083__SLET_BINDINGS.obj_len = 4; /*inistring dstr_1084__SLET_BINDINGS*/ /*_._VALSTR___V1175*/ meltfptr[1174] = (melt_ptr_t) &meltcdat->dstr_1084__SLET_BINDINGS; meltcdat->dstr_1084__SLET_BINDINGS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1084__SLET_BINDINGS.val, "SLET_BINDINGS", sizeof (meltcdat->dstr_1084__SLET_BINDINGS.val)-1); meltcdat->dstr_1084__SLET_BINDINGS.val[13] = (char)0 ; meltcdat->dstr_1084__SLET_BINDINGS.slen = 13 ; /*iniobj dsym_1085__SLET_BODY*/ /*uniqueobj*/ if (!/*_._VALDATA___V1181*/ meltfptr[1180]) /*_._VALDATA___V1181*/ meltfptr[1180] = (melt_ptr_t )&meltcdat->dsym_1085__SLET_BODY; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1085__SLET_BODY", 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_1085__SLET_BODY", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1085__SLET_BODY.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1085__SLET_BODY.obj_hash = 405353277; meltcdat->dsym_1085__SLET_BODY.obj_len = 3; /*inistring dstr_1086__SLET_BODY*/ /*_._VALSTR___V1182*/ meltfptr[1181] = (melt_ptr_t) &meltcdat->dstr_1086__SLET_BODY; meltcdat->dstr_1086__SLET_BODY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1086__SLET_BODY.val, "SLET_BODY", sizeof (meltcdat->dstr_1086__SLET_BODY.val)-1); meltcdat->dstr_1086__SLET_BODY.val[9] = (char)0 ; meltcdat->dstr_1086__SLET_BODY.slen = 9 ; /*^iniobj*/ /*iniobj dobj_1087__SLET_BODY*/ /*_._VALDATA___V1176*/ meltfptr[1175] = (melt_ptr_t )&meltcdat->dobj_1087__SLET_BODY; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1087__SLET_BODY", 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_1087__SLET_BODY", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1087__SLET_BODY.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_1087__SLET_BODY.obj_num = 3; meltcdat->dobj_1087__SLET_BODY.obj_hash = 856494089; meltcdat->dobj_1087__SLET_BODY.obj_len = 4; /*inistring dstr_1088__SLET_BODY*/ /*_._VALSTR___V1177*/ meltfptr[1176] = (melt_ptr_t) &meltcdat->dstr_1088__SLET_BODY; meltcdat->dstr_1088__SLET_BODY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1088__SLET_BODY.val, "SLET_BODY", sizeof (meltcdat->dstr_1088__SLET_BODY.val)-1); meltcdat->dstr_1088__SLET_BODY.val[9] = (char)0 ; meltcdat->dstr_1088__SLET_BODY.slen = 9 ; /*iniobj dsym_1089__CLASS_SOURCE_LETREC*/ /*uniqueobj*/ if (!/*_._VALDATA___V1183*/ meltfptr[1182]) /*_._VALDATA___V1183*/ meltfptr[1182] = (melt_ptr_t )&meltcdat->dsym_1089__CLASS_SOURCE_LETREC; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1089__CLASS_SOURCE_LETREC", 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_1089__CLASS_SOURCE_LETREC", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1089__CLASS_SOURCE_LETREC.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1089__CLASS_SOURCE_LETREC.obj_hash = 65197950; meltcdat->dsym_1089__CLASS_SOURCE_LETREC.obj_len = 3; /*inistring dstr_1090__CLASS_SOURCE_LETREC*/ /*_._VALSTR___V1184*/ meltfptr[1183] = (melt_ptr_t) &meltcdat->dstr_1090__CLASS_SOURCE_LETREC; meltcdat->dstr_1090__CLASS_SOURCE_LETREC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1090__CLASS_SOURCE_LETREC.val, "CLASS_SOURCE_LETREC", sizeof (meltcdat->dstr_1090__CLASS_SOURCE_LETREC.val)-1); meltcdat->dstr_1090__CLASS_SOURCE_LETREC.val[19] = (char)0 ; meltcdat->dstr_1090__CLASS_SOURCE_LETREC.slen = 19 ; MELT_LOCATION("warmelt-macro.melt:1153:/ iniobj"); /*iniobj dobj_1091__CLASS_SOURCE_LETREC*/ /*_._VALDATA___V1185*/ meltfptr[1184] = (melt_ptr_t )&meltcdat->dobj_1091__CLASS_SOURCE_LETREC; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1091__CLASS_SOURCE_LETREC", 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_1091__CLASS_SOURCE_LETREC", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1091__CLASS_SOURCE_LETREC.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_1091__CLASS_SOURCE_LETREC.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_1091__CLASS_SOURCE_LETREC.obj_hash = 807789977; meltcdat->dobj_1091__CLASS_SOURCE_LETREC.obj_len = 8; /*inistring dstr_1092__CLASS_SOURCE_LETREC*/ /*_._VALSTR___V1186*/ meltfptr[1185] = (melt_ptr_t) &meltcdat->dstr_1092__CLASS_SOURCE_LETREC; meltcdat->dstr_1092__CLASS_SOURCE_LETREC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1092__CLASS_SOURCE_LETREC.val, "CLASS_SOURCE_LETREC", sizeof (meltcdat->dstr_1092__CLASS_SOURCE_LETREC.val)-1); meltcdat->dstr_1092__CLASS_SOURCE_LETREC.val[19] = (char)0 ; meltcdat->dstr_1092__CLASS_SOURCE_LETREC.slen = 19 ; /*inimult dtup_1093_syCLASS_SOURCE_LETREC*/ /*_._VALTUP___V1187*/ meltfptr[1186] = (melt_ptr_t) &meltcdat->dtup_1093_syCLASS_SOURCE_LETREC; meltcdat->dtup_1093_syCLASS_SOURCE_LETREC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1093_syCLASS_SOURCE_LETREC.nbval = 5; /*inimult dtup_1094_syCLASS_SOURCE_LETREC*/ /*_._VALTUP___V1188*/ meltfptr[1187] = (melt_ptr_t) &meltcdat->dtup_1094_syCLASS_SOURCE_LETREC; meltcdat->dtup_1094_syCLASS_SOURCE_LETREC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1094_syCLASS_SOURCE_LETREC.nbval = 4; /*iniobj dsym_1095__CLASS_SOURCE_LAMBDA*/ /*uniqueobj*/ if (!/*_._VALDATA___V1189*/ meltfptr[1188]) /*_._VALDATA___V1189*/ meltfptr[1188] = (melt_ptr_t )&meltcdat->dsym_1095__CLASS_SOURCE_LAMBDA; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1095__CLASS_SOURCE_LAMBDA", 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_1095__CLASS_SOURCE_LAMBDA", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1095__CLASS_SOURCE_LAMBDA.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1095__CLASS_SOURCE_LAMBDA.obj_hash = 825809316; meltcdat->dsym_1095__CLASS_SOURCE_LAMBDA.obj_len = 3; /*inistring dstr_1096__CLASS_SOURCE_LAMBDA*/ /*_._VALSTR___V1190*/ meltfptr[1189] = (melt_ptr_t) &meltcdat->dstr_1096__CLASS_SOURCE_LAMBDA; meltcdat->dstr_1096__CLASS_SOURCE_LAMBDA.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1096__CLASS_SOURCE_LAMBDA.val, "CLASS_SOURCE_LAMBDA", sizeof (meltcdat->dstr_1096__CLASS_SOURCE_LAMBDA.val)-1); meltcdat->dstr_1096__CLASS_SOURCE_LAMBDA.val[19] = (char)0 ; meltcdat->dstr_1096__CLASS_SOURCE_LAMBDA.slen = 19 ; MELT_LOCATION("warmelt-macro.melt:1161:/ iniobj"); /*iniobj dobj_1097__CLASS_SOURCE_LAMBDA*/ /*_._VALDATA___V1191*/ meltfptr[1190] = (melt_ptr_t )&meltcdat->dobj_1097__CLASS_SOURCE_LAMBDA; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1097__CLASS_SOURCE_LAMBDA", 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_1097__CLASS_SOURCE_LAMBDA", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1097__CLASS_SOURCE_LAMBDA.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_1097__CLASS_SOURCE_LAMBDA.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_1097__CLASS_SOURCE_LAMBDA.obj_hash = 391750414; meltcdat->dobj_1097__CLASS_SOURCE_LAMBDA.obj_len = 8; /*inistring dstr_1098__CLASS_SOURCE_LAMBDA*/ /*_._VALSTR___V1192*/ meltfptr[1191] = (melt_ptr_t) &meltcdat->dstr_1098__CLASS_SOURCE_LAMBDA; meltcdat->dstr_1098__CLASS_SOURCE_LAMBDA.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1098__CLASS_SOURCE_LAMBDA.val, "CLASS_SOURCE_LAMBDA", sizeof (meltcdat->dstr_1098__CLASS_SOURCE_LAMBDA.val)-1); meltcdat->dstr_1098__CLASS_SOURCE_LAMBDA.val[19] = (char)0 ; meltcdat->dstr_1098__CLASS_SOURCE_LAMBDA.slen = 19 ; /*inimult dtup_1099_syCLASS_SOURCE_LAMBDA*/ /*_._VALTUP___V1193*/ meltfptr[1192] = (melt_ptr_t) &meltcdat->dtup_1099_syCLASS_SOURCE_LAMBDA; meltcdat->dtup_1099_syCLASS_SOURCE_LAMBDA.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1099_syCLASS_SOURCE_LAMBDA.nbval = 4; /*inimult dtup_1100_syCLASS_SOURCE_LAMBDA*/ /*_._VALTUP___V1198*/ meltfptr[1197] = (melt_ptr_t) &meltcdat->dtup_1100_syCLASS_SOURCE_LAMBDA; meltcdat->dtup_1100_syCLASS_SOURCE_LAMBDA.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1100_syCLASS_SOURCE_LAMBDA.nbval = 4; /*iniobj dsym_1101__SLAM_ARGBIND*/ /*uniqueobj*/ if (!/*_._VALDATA___V1199*/ meltfptr[1198]) /*_._VALDATA___V1199*/ meltfptr[1198] = (melt_ptr_t )&meltcdat->dsym_1101__SLAM_ARGBIND; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1101__SLAM_ARGBIND", 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_1101__SLAM_ARGBIND", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1101__SLAM_ARGBIND.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1101__SLAM_ARGBIND.obj_hash = 370871900; meltcdat->dsym_1101__SLAM_ARGBIND.obj_len = 3; /*inistring dstr_1102__SLAM_ARGBIND*/ /*_._VALSTR___V1200*/ meltfptr[1199] = (melt_ptr_t) &meltcdat->dstr_1102__SLAM_ARGBIND; meltcdat->dstr_1102__SLAM_ARGBIND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1102__SLAM_ARGBIND.val, "SLAM_ARGBIND", sizeof (meltcdat->dstr_1102__SLAM_ARGBIND.val)-1); meltcdat->dstr_1102__SLAM_ARGBIND.val[12] = (char)0 ; meltcdat->dstr_1102__SLAM_ARGBIND.slen = 12 ; /*^iniobj*/ /*iniobj dobj_1103__SLAM_ARGBIND*/ /*_._VALDATA___V1194*/ meltfptr[1193] = (melt_ptr_t )&meltcdat->dobj_1103__SLAM_ARGBIND; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1103__SLAM_ARGBIND", 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_1103__SLAM_ARGBIND", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1103__SLAM_ARGBIND.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_1103__SLAM_ARGBIND.obj_num = 2; meltcdat->dobj_1103__SLAM_ARGBIND.obj_hash = 706713050; meltcdat->dobj_1103__SLAM_ARGBIND.obj_len = 4; /*inistring dstr_1104__SLAM_ARGBIND*/ /*_._VALSTR___V1195*/ meltfptr[1194] = (melt_ptr_t) &meltcdat->dstr_1104__SLAM_ARGBIND; meltcdat->dstr_1104__SLAM_ARGBIND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1104__SLAM_ARGBIND.val, "SLAM_ARGBIND", sizeof (meltcdat->dstr_1104__SLAM_ARGBIND.val)-1); meltcdat->dstr_1104__SLAM_ARGBIND.val[12] = (char)0 ; meltcdat->dstr_1104__SLAM_ARGBIND.slen = 12 ; /*iniobj dsym_1105__SLAM_BODY*/ /*uniqueobj*/ if (!/*_._VALDATA___V1201*/ meltfptr[1200]) /*_._VALDATA___V1201*/ meltfptr[1200] = (melt_ptr_t )&meltcdat->dsym_1105__SLAM_BODY; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1105__SLAM_BODY", 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_1105__SLAM_BODY", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1105__SLAM_BODY.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1105__SLAM_BODY.obj_hash = 405250012; meltcdat->dsym_1105__SLAM_BODY.obj_len = 3; /*inistring dstr_1106__SLAM_BODY*/ /*_._VALSTR___V1202*/ meltfptr[1201] = (melt_ptr_t) &meltcdat->dstr_1106__SLAM_BODY; meltcdat->dstr_1106__SLAM_BODY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1106__SLAM_BODY.val, "SLAM_BODY", sizeof (meltcdat->dstr_1106__SLAM_BODY.val)-1); meltcdat->dstr_1106__SLAM_BODY.val[9] = (char)0 ; meltcdat->dstr_1106__SLAM_BODY.slen = 9 ; /*^iniobj*/ /*iniobj dobj_1107__SLAM_BODY*/ /*_._VALDATA___V1196*/ meltfptr[1195] = (melt_ptr_t )&meltcdat->dobj_1107__SLAM_BODY; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1107__SLAM_BODY", 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_1107__SLAM_BODY", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1107__SLAM_BODY.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_1107__SLAM_BODY.obj_num = 3; meltcdat->dobj_1107__SLAM_BODY.obj_hash = 625346096; meltcdat->dobj_1107__SLAM_BODY.obj_len = 4; /*inistring dstr_1108__SLAM_BODY*/ /*_._VALSTR___V1197*/ meltfptr[1196] = (melt_ptr_t) &meltcdat->dstr_1108__SLAM_BODY; meltcdat->dstr_1108__SLAM_BODY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1108__SLAM_BODY.val, "SLAM_BODY", sizeof (meltcdat->dstr_1108__SLAM_BODY.val)-1); meltcdat->dstr_1108__SLAM_BODY.val[9] = (char)0 ; meltcdat->dstr_1108__SLAM_BODY.slen = 9 ; /*iniobj dsym_1109__CLASS_SOURCE_LAMBDA_FOR_MACRO*/ /*uniqueobj*/ if (!/*_._VALDATA___V1203*/ meltfptr[1202]) /*_._VALDATA___V1203*/ meltfptr[1202] = (melt_ptr_t )&meltcdat->dsym_1109__CLASS_SOURCE_LAMBDA_FOR_MACRO; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1109__CLASS_SOURCE_LAMBDA_FOR_MACRO", 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_1109__CLASS_SOURCE_LAMBDA_FOR_MACRO", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1109__CLASS_SOURCE_LAMBDA_FOR_MACRO.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1109__CLASS_SOURCE_LAMBDA_FOR_MACRO.obj_hash = 514946936; meltcdat->dsym_1109__CLASS_SOURCE_LAMBDA_FOR_MACRO.obj_len = 3; /*inistring dstr_1110__CLASS_SOURCE_LAMBDA_FOR_*/ /*_._VALSTR___V1204*/ meltfptr[1203] = (melt_ptr_t) &meltcdat->dstr_1110__CLASS_SOURCE_LAMBDA_FOR_; meltcdat->dstr_1110__CLASS_SOURCE_LAMBDA_FOR_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1110__CLASS_SOURCE_LAMBDA_FOR_.val, "CLASS_SOURCE_LAMBDA_FOR_MACRO", sizeof (meltcdat->dstr_1110__CLASS_SOURCE_LAMBDA_FOR_.val)-1); meltcdat->dstr_1110__CLASS_SOURCE_LAMBDA_FOR_.val[29] = (char)0 ; meltcdat->dstr_1110__CLASS_SOURCE_LAMBDA_FOR_.slen = 29 ; MELT_LOCATION("warmelt-macro.melt:1172:/ iniobj"); /*iniobj dobj_1111__CLASS_SOURCE_LAMBDA_FOR_MACRO*/ /*_._VALDATA___V1205*/ meltfptr[1204] = (melt_ptr_t )&meltcdat->dobj_1111__CLASS_SOURCE_LAMBDA_FOR_MACRO; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1111__CLASS_SOURCE_LAMBDA_FOR_MACRO", 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_1111__CLASS_SOURCE_LAMBDA_FOR_MACRO", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1111__CLASS_SOURCE_LAMBDA_FOR_MACRO.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_1111__CLASS_SOURCE_LAMBDA_FOR_MACRO.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_1111__CLASS_SOURCE_LAMBDA_FOR_MACRO.obj_hash = 614732362; meltcdat->dobj_1111__CLASS_SOURCE_LAMBDA_FOR_MACRO.obj_len = 8; /*inistring dstr_1112__CLASS_SOURCE_LAMBDA_FOR_*/ /*_._VALSTR___V1206*/ meltfptr[1205] = (melt_ptr_t) &meltcdat->dstr_1112__CLASS_SOURCE_LAMBDA_FOR_; meltcdat->dstr_1112__CLASS_SOURCE_LAMBDA_FOR_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1112__CLASS_SOURCE_LAMBDA_FOR_.val, "CLASS_SOURCE_LAMBDA_FOR_MACRO", sizeof (meltcdat->dstr_1112__CLASS_SOURCE_LAMBDA_FOR_.val)-1); meltcdat->dstr_1112__CLASS_SOURCE_LAMBDA_FOR_.val[29] = (char)0 ; meltcdat->dstr_1112__CLASS_SOURCE_LAMBDA_FOR_.slen = 29 ; /*inimult dtup_1113_syCLASS_SOURCE_LAMBDA_FOR_MACRO*/ /*_._VALTUP___V1207*/ meltfptr[1206] = (melt_ptr_t) &meltcdat->dtup_1113_syCLASS_SOURCE_LAMBDA_FOR_MACRO; meltcdat->dtup_1113_syCLASS_SOURCE_LAMBDA_FOR_MACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1113_syCLASS_SOURCE_LAMBDA_FOR_MACRO.nbval = 5; /*inimult dtup_1114_syCLASS_SOURCE_LAMBDA_FOR_MACRO*/ /*_._VALTUP___V1210*/ meltfptr[1209] = (melt_ptr_t) &meltcdat->dtup_1114_syCLASS_SOURCE_LAMBDA_FOR_MACRO; meltcdat->dtup_1114_syCLASS_SOURCE_LAMBDA_FOR_MACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1114_syCLASS_SOURCE_LAMBDA_FOR_MACRO.nbval = 5; /*iniobj dsym_1115__SLAM_ORIGMACRO*/ /*uniqueobj*/ if (!/*_._VALDATA___V1211*/ meltfptr[1210]) /*_._VALDATA___V1211*/ meltfptr[1210] = (melt_ptr_t )&meltcdat->dsym_1115__SLAM_ORIGMACRO; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1115__SLAM_ORIGMACRO", 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_1115__SLAM_ORIGMACRO", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1115__SLAM_ORIGMACRO.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1115__SLAM_ORIGMACRO.obj_hash = 49628362; meltcdat->dsym_1115__SLAM_ORIGMACRO.obj_len = 3; /*inistring dstr_1116__SLAM_ORIGMACRO*/ /*_._VALSTR___V1212*/ meltfptr[1211] = (melt_ptr_t) &meltcdat->dstr_1116__SLAM_ORIGMACRO; meltcdat->dstr_1116__SLAM_ORIGMACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1116__SLAM_ORIGMACRO.val, "SLAM_ORIGMACRO", sizeof (meltcdat->dstr_1116__SLAM_ORIGMACRO.val)-1); meltcdat->dstr_1116__SLAM_ORIGMACRO.val[14] = (char)0 ; meltcdat->dstr_1116__SLAM_ORIGMACRO.slen = 14 ; /*^iniobj*/ /*iniobj dobj_1117__SLAM_ORIGMACRO*/ /*_._VALDATA___V1208*/ meltfptr[1207] = (melt_ptr_t )&meltcdat->dobj_1117__SLAM_ORIGMACRO; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1117__SLAM_ORIGMACRO", 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_1117__SLAM_ORIGMACRO", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1117__SLAM_ORIGMACRO.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_1117__SLAM_ORIGMACRO.obj_num = 4; meltcdat->dobj_1117__SLAM_ORIGMACRO.obj_hash = 784306743; meltcdat->dobj_1117__SLAM_ORIGMACRO.obj_len = 4; /*inistring dstr_1118__SLAM_ORIGMACRO*/ /*_._VALSTR___V1209*/ meltfptr[1208] = (melt_ptr_t) &meltcdat->dstr_1118__SLAM_ORIGMACRO; meltcdat->dstr_1118__SLAM_ORIGMACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1118__SLAM_ORIGMACRO.val, "SLAM_ORIGMACRO", sizeof (meltcdat->dstr_1118__SLAM_ORIGMACRO.val)-1); meltcdat->dstr_1118__SLAM_ORIGMACRO.val[14] = (char)0 ; meltcdat->dstr_1118__SLAM_ORIGMACRO.slen = 14 ; /*iniobj dsym_1119__CLASS_SOURCE_IFVARIADIC*/ /*uniqueobj*/ if (!/*_._VALDATA___V1213*/ meltfptr[1212]) /*_._VALDATA___V1213*/ meltfptr[1212] = (melt_ptr_t )&meltcdat->dsym_1119__CLASS_SOURCE_IFVARIADIC; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1119__CLASS_SOURCE_IFVARIADIC", 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_1119__CLASS_SOURCE_IFVARIADIC", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1119__CLASS_SOURCE_IFVARIADIC.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1119__CLASS_SOURCE_IFVARIADIC.obj_hash = 590232230; meltcdat->dsym_1119__CLASS_SOURCE_IFVARIADIC.obj_len = 3; /*inistring dstr_1120__CLASS_SOURCE_IFVARIADIC*/ /*_._VALSTR___V1214*/ meltfptr[1213] = (melt_ptr_t) &meltcdat->dstr_1120__CLASS_SOURCE_IFVARIADIC; meltcdat->dstr_1120__CLASS_SOURCE_IFVARIADIC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1120__CLASS_SOURCE_IFVARIADIC.val, "CLASS_SOURCE_IFVARIADIC", sizeof (meltcdat->dstr_1120__CLASS_SOURCE_IFVARIADIC.val)-1); meltcdat->dstr_1120__CLASS_SOURCE_IFVARIADIC.val[23] = (char)0 ; meltcdat->dstr_1120__CLASS_SOURCE_IFVARIADIC.slen = 23 ; MELT_LOCATION("warmelt-macro.melt:1180:/ iniobj"); /*iniobj dobj_1121__CLASS_SOURCE_IFVARIADIC*/ /*_._VALDATA___V1215*/ meltfptr[1214] = (melt_ptr_t )&meltcdat->dobj_1121__CLASS_SOURCE_IFVARIADIC; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1121__CLASS_SOURCE_IFVARIADIC", 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_1121__CLASS_SOURCE_IFVARIADIC", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1121__CLASS_SOURCE_IFVARIADIC.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_1121__CLASS_SOURCE_IFVARIADIC.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_1121__CLASS_SOURCE_IFVARIADIC.obj_hash = 106944363; meltcdat->dobj_1121__CLASS_SOURCE_IFVARIADIC.obj_len = 8; /*inistring dstr_1122__CLASS_SOURCE_IFVARIADIC*/ /*_._VALSTR___V1216*/ meltfptr[1215] = (melt_ptr_t) &meltcdat->dstr_1122__CLASS_SOURCE_IFVARIADIC; meltcdat->dstr_1122__CLASS_SOURCE_IFVARIADIC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1122__CLASS_SOURCE_IFVARIADIC.val, "CLASS_SOURCE_IFVARIADIC", sizeof (meltcdat->dstr_1122__CLASS_SOURCE_IFVARIADIC.val)-1); meltcdat->dstr_1122__CLASS_SOURCE_IFVARIADIC.val[23] = (char)0 ; meltcdat->dstr_1122__CLASS_SOURCE_IFVARIADIC.slen = 23 ; /*inimult dtup_1123_syCLASS_SOURCE_IFVARIADIC*/ /*_._VALTUP___V1217*/ meltfptr[1216] = (melt_ptr_t) &meltcdat->dtup_1123_syCLASS_SOURCE_IFVARIADIC; meltcdat->dtup_1123_syCLASS_SOURCE_IFVARIADIC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1123_syCLASS_SOURCE_IFVARIADIC.nbval = 4; /*inimult dtup_1124_syCLASS_SOURCE_IFVARIADIC*/ /*_._VALTUP___V1224*/ meltfptr[1223] = (melt_ptr_t) &meltcdat->dtup_1124_syCLASS_SOURCE_IFVARIADIC; meltcdat->dtup_1124_syCLASS_SOURCE_IFVARIADIC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1124_syCLASS_SOURCE_IFVARIADIC.nbval = 5; /*iniobj dsym_1125__SIFVARIADIC_ARGBIND*/ /*uniqueobj*/ if (!/*_._VALDATA___V1225*/ meltfptr[1224]) /*_._VALDATA___V1225*/ meltfptr[1224] = (melt_ptr_t )&meltcdat->dsym_1125__SIFVARIADIC_ARGBIND; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1125__SIFVARIADIC_ARGBIND", 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_1125__SIFVARIADIC_ARGBIND", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1125__SIFVARIADIC_ARGBIND.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1125__SIFVARIADIC_ARGBIND.obj_hash = 888296044; meltcdat->dsym_1125__SIFVARIADIC_ARGBIND.obj_len = 3; /*inistring dstr_1126__SIFVARIADIC_ARGBIND*/ /*_._VALSTR___V1226*/ meltfptr[1225] = (melt_ptr_t) &meltcdat->dstr_1126__SIFVARIADIC_ARGBIND; meltcdat->dstr_1126__SIFVARIADIC_ARGBIND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1126__SIFVARIADIC_ARGBIND.val, "SIFVARIADIC_ARGBIND", sizeof (meltcdat->dstr_1126__SIFVARIADIC_ARGBIND.val)-1); meltcdat->dstr_1126__SIFVARIADIC_ARGBIND.val[19] = (char)0 ; meltcdat->dstr_1126__SIFVARIADIC_ARGBIND.slen = 19 ; /*^iniobj*/ /*iniobj dobj_1127__SIFVARIADIC_ARGBIND*/ /*_._VALDATA___V1218*/ meltfptr[1217] = (melt_ptr_t )&meltcdat->dobj_1127__SIFVARIADIC_ARGBIND; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1127__SIFVARIADIC_ARGBIND", 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_1127__SIFVARIADIC_ARGBIND", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1127__SIFVARIADIC_ARGBIND.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_1127__SIFVARIADIC_ARGBIND.obj_num = 2; meltcdat->dobj_1127__SIFVARIADIC_ARGBIND.obj_hash = 613204298; meltcdat->dobj_1127__SIFVARIADIC_ARGBIND.obj_len = 4; /*inistring dstr_1128__SIFVARIADIC_ARGBIND*/ /*_._VALSTR___V1219*/ meltfptr[1218] = (melt_ptr_t) &meltcdat->dstr_1128__SIFVARIADIC_ARGBIND; meltcdat->dstr_1128__SIFVARIADIC_ARGBIND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1128__SIFVARIADIC_ARGBIND.val, "SIFVARIADIC_ARGBIND", sizeof (meltcdat->dstr_1128__SIFVARIADIC_ARGBIND.val)-1); meltcdat->dstr_1128__SIFVARIADIC_ARGBIND.val[19] = (char)0 ; meltcdat->dstr_1128__SIFVARIADIC_ARGBIND.slen = 19 ; /*iniobj dsym_1129__SIFVARIADIC_THEN*/ /*uniqueobj*/ if (!/*_._VALDATA___V1227*/ meltfptr[1226]) /*_._VALDATA___V1227*/ meltfptr[1226] = (melt_ptr_t )&meltcdat->dsym_1129__SIFVARIADIC_THEN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1129__SIFVARIADIC_THEN", 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_1129__SIFVARIADIC_THEN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1129__SIFVARIADIC_THEN.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1129__SIFVARIADIC_THEN.obj_hash = 158282506; meltcdat->dsym_1129__SIFVARIADIC_THEN.obj_len = 3; /*inistring dstr_1130__SIFVARIADIC_THEN*/ /*_._VALSTR___V1228*/ meltfptr[1227] = (melt_ptr_t) &meltcdat->dstr_1130__SIFVARIADIC_THEN; meltcdat->dstr_1130__SIFVARIADIC_THEN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1130__SIFVARIADIC_THEN.val, "SIFVARIADIC_THEN", sizeof (meltcdat->dstr_1130__SIFVARIADIC_THEN.val)-1); meltcdat->dstr_1130__SIFVARIADIC_THEN.val[16] = (char)0 ; meltcdat->dstr_1130__SIFVARIADIC_THEN.slen = 16 ; /*^iniobj*/ /*iniobj dobj_1131__SIFVARIADIC_THEN*/ /*_._VALDATA___V1220*/ meltfptr[1219] = (melt_ptr_t )&meltcdat->dobj_1131__SIFVARIADIC_THEN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1131__SIFVARIADIC_THEN", 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_1131__SIFVARIADIC_THEN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1131__SIFVARIADIC_THEN.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_1131__SIFVARIADIC_THEN.obj_num = 3; meltcdat->dobj_1131__SIFVARIADIC_THEN.obj_hash = 573379752; meltcdat->dobj_1131__SIFVARIADIC_THEN.obj_len = 4; /*inistring dstr_1132__SIFVARIADIC_THEN*/ /*_._VALSTR___V1221*/ meltfptr[1220] = (melt_ptr_t) &meltcdat->dstr_1132__SIFVARIADIC_THEN; meltcdat->dstr_1132__SIFVARIADIC_THEN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1132__SIFVARIADIC_THEN.val, "SIFVARIADIC_THEN", sizeof (meltcdat->dstr_1132__SIFVARIADIC_THEN.val)-1); meltcdat->dstr_1132__SIFVARIADIC_THEN.val[16] = (char)0 ; meltcdat->dstr_1132__SIFVARIADIC_THEN.slen = 16 ; /*iniobj dsym_1133__SIFVARIADIC_ELSE*/ /*uniqueobj*/ if (!/*_._VALDATA___V1229*/ meltfptr[1228]) /*_._VALDATA___V1229*/ meltfptr[1228] = (melt_ptr_t )&meltcdat->dsym_1133__SIFVARIADIC_ELSE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1133__SIFVARIADIC_ELSE", 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_1133__SIFVARIADIC_ELSE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1133__SIFVARIADIC_ELSE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1133__SIFVARIADIC_ELSE.obj_hash = 865398703; meltcdat->dsym_1133__SIFVARIADIC_ELSE.obj_len = 3; /*inistring dstr_1134__SIFVARIADIC_ELSE*/ /*_._VALSTR___V1230*/ meltfptr[1229] = (melt_ptr_t) &meltcdat->dstr_1134__SIFVARIADIC_ELSE; meltcdat->dstr_1134__SIFVARIADIC_ELSE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1134__SIFVARIADIC_ELSE.val, "SIFVARIADIC_ELSE", sizeof (meltcdat->dstr_1134__SIFVARIADIC_ELSE.val)-1); meltcdat->dstr_1134__SIFVARIADIC_ELSE.val[16] = (char)0 ; meltcdat->dstr_1134__SIFVARIADIC_ELSE.slen = 16 ; /*^iniobj*/ /*iniobj dobj_1135__SIFVARIADIC_ELSE*/ /*_._VALDATA___V1222*/ meltfptr[1221] = (melt_ptr_t )&meltcdat->dobj_1135__SIFVARIADIC_ELSE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1135__SIFVARIADIC_ELSE", 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_1135__SIFVARIADIC_ELSE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1135__SIFVARIADIC_ELSE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_1135__SIFVARIADIC_ELSE.obj_num = 4; meltcdat->dobj_1135__SIFVARIADIC_ELSE.obj_hash = 879759343; meltcdat->dobj_1135__SIFVARIADIC_ELSE.obj_len = 4; /*inistring dstr_1136__SIFVARIADIC_ELSE*/ /*_._VALSTR___V1223*/ meltfptr[1222] = (melt_ptr_t) &meltcdat->dstr_1136__SIFVARIADIC_ELSE; meltcdat->dstr_1136__SIFVARIADIC_ELSE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1136__SIFVARIADIC_ELSE.val, "SIFVARIADIC_ELSE", sizeof (meltcdat->dstr_1136__SIFVARIADIC_ELSE.val)-1); meltcdat->dstr_1136__SIFVARIADIC_ELSE.val[16] = (char)0 ; meltcdat->dstr_1136__SIFVARIADIC_ELSE.slen = 16 ; /*iniobj dsym_1137__CLASS_SOURCE_MULTICALL*/ /*uniqueobj*/ if (!/*_._VALDATA___V1231*/ meltfptr[1230]) /*_._VALDATA___V1231*/ meltfptr[1230] = (melt_ptr_t )&meltcdat->dsym_1137__CLASS_SOURCE_MULTICALL; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1137__CLASS_SOURCE_MULTICALL", 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_1137__CLASS_SOURCE_MULTICALL", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1137__CLASS_SOURCE_MULTICALL.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1137__CLASS_SOURCE_MULTICALL.obj_hash = 367933626; meltcdat->dsym_1137__CLASS_SOURCE_MULTICALL.obj_len = 3; /*inistring dstr_1138__CLASS_SOURCE_MULTICALL*/ /*_._VALSTR___V1232*/ meltfptr[1231] = (melt_ptr_t) &meltcdat->dstr_1138__CLASS_SOURCE_MULTICALL; meltcdat->dstr_1138__CLASS_SOURCE_MULTICALL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1138__CLASS_SOURCE_MULTICALL.val, "CLASS_SOURCE_MULTICALL", sizeof (meltcdat->dstr_1138__CLASS_SOURCE_MULTICALL.val)-1); meltcdat->dstr_1138__CLASS_SOURCE_MULTICALL.val[22] = (char)0 ; meltcdat->dstr_1138__CLASS_SOURCE_MULTICALL.slen = 22 ; MELT_LOCATION("warmelt-macro.melt:1192:/ iniobj"); /*iniobj dobj_1139__CLASS_SOURCE_MULTICALL*/ /*_._VALDATA___V1233*/ meltfptr[1232] = (melt_ptr_t )&meltcdat->dobj_1139__CLASS_SOURCE_MULTICALL; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1139__CLASS_SOURCE_MULTICALL", 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_1139__CLASS_SOURCE_MULTICALL", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1139__CLASS_SOURCE_MULTICALL.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_1139__CLASS_SOURCE_MULTICALL.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_1139__CLASS_SOURCE_MULTICALL.obj_hash = 302911823; meltcdat->dobj_1139__CLASS_SOURCE_MULTICALL.obj_len = 8; /*inistring dstr_1140__CLASS_SOURCE_MULTICALL*/ /*_._VALSTR___V1234*/ meltfptr[1233] = (melt_ptr_t) &meltcdat->dstr_1140__CLASS_SOURCE_MULTICALL; meltcdat->dstr_1140__CLASS_SOURCE_MULTICALL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1140__CLASS_SOURCE_MULTICALL.val, "CLASS_SOURCE_MULTICALL", sizeof (meltcdat->dstr_1140__CLASS_SOURCE_MULTICALL.val)-1); meltcdat->dstr_1140__CLASS_SOURCE_MULTICALL.val[22] = (char)0 ; meltcdat->dstr_1140__CLASS_SOURCE_MULTICALL.slen = 22 ; /*inimult dtup_1141_syCLASS_SOURCE_MULTICALL*/ /*_._VALTUP___V1235*/ meltfptr[1234] = (melt_ptr_t) &meltcdat->dtup_1141_syCLASS_SOURCE_MULTICALL; meltcdat->dtup_1141_syCLASS_SOURCE_MULTICALL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1141_syCLASS_SOURCE_MULTICALL.nbval = 4; /*inimult dtup_1142_syCLASS_SOURCE_MULTICALL*/ /*_._VALTUP___V1242*/ meltfptr[1241] = (melt_ptr_t) &meltcdat->dtup_1142_syCLASS_SOURCE_MULTICALL; meltcdat->dtup_1142_syCLASS_SOURCE_MULTICALL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1142_syCLASS_SOURCE_MULTICALL.nbval = 5; /*iniobj dsym_1143__SMULC_RESBIND*/ /*uniqueobj*/ if (!/*_._VALDATA___V1243*/ meltfptr[1242]) /*_._VALDATA___V1243*/ meltfptr[1242] = (melt_ptr_t )&meltcdat->dsym_1143__SMULC_RESBIND; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1143__SMULC_RESBIND", 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_1143__SMULC_RESBIND", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1143__SMULC_RESBIND.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1143__SMULC_RESBIND.obj_hash = 135599005; meltcdat->dsym_1143__SMULC_RESBIND.obj_len = 3; /*inistring dstr_1144__SMULC_RESBIND*/ /*_._VALSTR___V1244*/ meltfptr[1243] = (melt_ptr_t) &meltcdat->dstr_1144__SMULC_RESBIND; meltcdat->dstr_1144__SMULC_RESBIND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1144__SMULC_RESBIND.val, "SMULC_RESBIND", sizeof (meltcdat->dstr_1144__SMULC_RESBIND.val)-1); meltcdat->dstr_1144__SMULC_RESBIND.val[13] = (char)0 ; meltcdat->dstr_1144__SMULC_RESBIND.slen = 13 ; /*^iniobj*/ /*iniobj dobj_1145__SMULC_RESBIND*/ /*_._VALDATA___V1236*/ meltfptr[1235] = (melt_ptr_t )&meltcdat->dobj_1145__SMULC_RESBIND; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1145__SMULC_RESBIND", 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_1145__SMULC_RESBIND", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1145__SMULC_RESBIND.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_1145__SMULC_RESBIND.obj_num = 2; meltcdat->dobj_1145__SMULC_RESBIND.obj_hash = 2916628; meltcdat->dobj_1145__SMULC_RESBIND.obj_len = 4; /*inistring dstr_1146__SMULC_RESBIND*/ /*_._VALSTR___V1237*/ meltfptr[1236] = (melt_ptr_t) &meltcdat->dstr_1146__SMULC_RESBIND; meltcdat->dstr_1146__SMULC_RESBIND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1146__SMULC_RESBIND.val, "SMULC_RESBIND", sizeof (meltcdat->dstr_1146__SMULC_RESBIND.val)-1); meltcdat->dstr_1146__SMULC_RESBIND.val[13] = (char)0 ; meltcdat->dstr_1146__SMULC_RESBIND.slen = 13 ; /*iniobj dsym_1147__SMULC_CALL*/ /*uniqueobj*/ if (!/*_._VALDATA___V1245*/ meltfptr[1244]) /*_._VALDATA___V1245*/ meltfptr[1244] = (melt_ptr_t )&meltcdat->dsym_1147__SMULC_CALL; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1147__SMULC_CALL", 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_1147__SMULC_CALL", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1147__SMULC_CALL.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1147__SMULC_CALL.obj_hash = 918745495; meltcdat->dsym_1147__SMULC_CALL.obj_len = 3; /*inistring dstr_1148__SMULC_CALL*/ /*_._VALSTR___V1246*/ meltfptr[1245] = (melt_ptr_t) &meltcdat->dstr_1148__SMULC_CALL; meltcdat->dstr_1148__SMULC_CALL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1148__SMULC_CALL.val, "SMULC_CALL", sizeof (meltcdat->dstr_1148__SMULC_CALL.val)-1); meltcdat->dstr_1148__SMULC_CALL.val[10] = (char)0 ; meltcdat->dstr_1148__SMULC_CALL.slen = 10 ; /*^iniobj*/ /*iniobj dobj_1149__SMULC_CALL*/ /*_._VALDATA___V1238*/ meltfptr[1237] = (melt_ptr_t )&meltcdat->dobj_1149__SMULC_CALL; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1149__SMULC_CALL", 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_1149__SMULC_CALL", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1149__SMULC_CALL.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_1149__SMULC_CALL.obj_num = 3; meltcdat->dobj_1149__SMULC_CALL.obj_hash = 269945000; meltcdat->dobj_1149__SMULC_CALL.obj_len = 4; /*inistring dstr_1150__SMULC_CALL*/ /*_._VALSTR___V1239*/ meltfptr[1238] = (melt_ptr_t) &meltcdat->dstr_1150__SMULC_CALL; meltcdat->dstr_1150__SMULC_CALL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1150__SMULC_CALL.val, "SMULC_CALL", sizeof (meltcdat->dstr_1150__SMULC_CALL.val)-1); meltcdat->dstr_1150__SMULC_CALL.val[10] = (char)0 ; meltcdat->dstr_1150__SMULC_CALL.slen = 10 ; /*iniobj dsym_1151__SMULC_BODY*/ /*uniqueobj*/ if (!/*_._VALDATA___V1247*/ meltfptr[1246]) /*_._VALDATA___V1247*/ meltfptr[1246] = (melt_ptr_t )&meltcdat->dsym_1151__SMULC_BODY; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1151__SMULC_BODY", 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_1151__SMULC_BODY", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1151__SMULC_BODY.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1151__SMULC_BODY.obj_hash = 828944150; meltcdat->dsym_1151__SMULC_BODY.obj_len = 3; /*inistring dstr_1152__SMULC_BODY*/ /*_._VALSTR___V1248*/ meltfptr[1247] = (melt_ptr_t) &meltcdat->dstr_1152__SMULC_BODY; meltcdat->dstr_1152__SMULC_BODY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1152__SMULC_BODY.val, "SMULC_BODY", sizeof (meltcdat->dstr_1152__SMULC_BODY.val)-1); meltcdat->dstr_1152__SMULC_BODY.val[10] = (char)0 ; meltcdat->dstr_1152__SMULC_BODY.slen = 10 ; /*^iniobj*/ /*iniobj dobj_1153__SMULC_BODY*/ /*_._VALDATA___V1240*/ meltfptr[1239] = (melt_ptr_t )&meltcdat->dobj_1153__SMULC_BODY; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1153__SMULC_BODY", 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_1153__SMULC_BODY", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1153__SMULC_BODY.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_1153__SMULC_BODY.obj_num = 4; meltcdat->dobj_1153__SMULC_BODY.obj_hash = 575513013; meltcdat->dobj_1153__SMULC_BODY.obj_len = 4; /*inistring dstr_1154__SMULC_BODY*/ /*_._VALSTR___V1241*/ meltfptr[1240] = (melt_ptr_t) &meltcdat->dstr_1154__SMULC_BODY; meltcdat->dstr_1154__SMULC_BODY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1154__SMULC_BODY.val, "SMULC_BODY", sizeof (meltcdat->dstr_1154__SMULC_BODY.val)-1); meltcdat->dstr_1154__SMULC_BODY.val[10] = (char)0 ; meltcdat->dstr_1154__SMULC_BODY.slen = 10 ; /*iniobj dsym_1155__CLASS_SOURCE_LABELLED*/ /*uniqueobj*/ if (!/*_._VALDATA___V1249*/ meltfptr[1248]) /*_._VALDATA___V1249*/ meltfptr[1248] = (melt_ptr_t )&meltcdat->dsym_1155__CLASS_SOURCE_LABELLED; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1155__CLASS_SOURCE_LABELLED", 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_1155__CLASS_SOURCE_LABELLED", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1155__CLASS_SOURCE_LABELLED.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1155__CLASS_SOURCE_LABELLED.obj_hash = 695948554; meltcdat->dsym_1155__CLASS_SOURCE_LABELLED.obj_len = 3; /*inistring dstr_1156__CLASS_SOURCE_LABELLED*/ /*_._VALSTR___V1250*/ meltfptr[1249] = (melt_ptr_t) &meltcdat->dstr_1156__CLASS_SOURCE_LABELLED; meltcdat->dstr_1156__CLASS_SOURCE_LABELLED.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1156__CLASS_SOURCE_LABELLED.val, "CLASS_SOURCE_LABELLED", sizeof (meltcdat->dstr_1156__CLASS_SOURCE_LABELLED.val)-1); meltcdat->dstr_1156__CLASS_SOURCE_LABELLED.val[21] = (char)0 ; meltcdat->dstr_1156__CLASS_SOURCE_LABELLED.slen = 21 ; MELT_LOCATION("warmelt-macro.melt:1204:/ iniobj"); /*iniobj dobj_1157__CLASS_SOURCE_LABELLED*/ /*_._VALDATA___V1251*/ meltfptr[1250] = (melt_ptr_t )&meltcdat->dobj_1157__CLASS_SOURCE_LABELLED; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1157__CLASS_SOURCE_LABELLED", 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_1157__CLASS_SOURCE_LABELLED", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1157__CLASS_SOURCE_LABELLED.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_1157__CLASS_SOURCE_LABELLED.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_1157__CLASS_SOURCE_LABELLED.obj_hash = 450739108; meltcdat->dobj_1157__CLASS_SOURCE_LABELLED.obj_len = 8; /*inistring dstr_1158__CLASS_SOURCE_LABELLED*/ /*_._VALSTR___V1252*/ meltfptr[1251] = (melt_ptr_t) &meltcdat->dstr_1158__CLASS_SOURCE_LABELLED; meltcdat->dstr_1158__CLASS_SOURCE_LABELLED.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1158__CLASS_SOURCE_LABELLED.val, "CLASS_SOURCE_LABELLED", sizeof (meltcdat->dstr_1158__CLASS_SOURCE_LABELLED.val)-1); meltcdat->dstr_1158__CLASS_SOURCE_LABELLED.val[21] = (char)0 ; meltcdat->dstr_1158__CLASS_SOURCE_LABELLED.slen = 21 ; /*inimult dtup_1159_syCLASS_SOURCE_LABELLED*/ /*_._VALTUP___V1253*/ meltfptr[1252] = (melt_ptr_t) &meltcdat->dtup_1159_syCLASS_SOURCE_LABELLED; meltcdat->dtup_1159_syCLASS_SOURCE_LABELLED.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1159_syCLASS_SOURCE_LABELLED.nbval = 4; /*inimult dtup_1160_syCLASS_SOURCE_LABELLED*/ /*_._VALTUP___V1256*/ meltfptr[1255] = (melt_ptr_t) &meltcdat->dtup_1160_syCLASS_SOURCE_LABELLED; meltcdat->dtup_1160_syCLASS_SOURCE_LABELLED.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1160_syCLASS_SOURCE_LABELLED.nbval = 3; /*iniobj dsym_1161__SLABEL_BIND*/ /*uniqueobj*/ if (!/*_._VALDATA___V1257*/ meltfptr[1256]) /*_._VALDATA___V1257*/ meltfptr[1256] = (melt_ptr_t )&meltcdat->dsym_1161__SLABEL_BIND; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1161__SLABEL_BIND", 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_1161__SLABEL_BIND", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1161__SLABEL_BIND.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1161__SLABEL_BIND.obj_hash = 418843843; meltcdat->dsym_1161__SLABEL_BIND.obj_len = 3; /*inistring dstr_1162__SLABEL_BIND*/ /*_._VALSTR___V1258*/ meltfptr[1257] = (melt_ptr_t) &meltcdat->dstr_1162__SLABEL_BIND; meltcdat->dstr_1162__SLABEL_BIND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1162__SLABEL_BIND.val, "SLABEL_BIND", sizeof (meltcdat->dstr_1162__SLABEL_BIND.val)-1); meltcdat->dstr_1162__SLABEL_BIND.val[11] = (char)0 ; meltcdat->dstr_1162__SLABEL_BIND.slen = 11 ; /*^iniobj*/ /*iniobj dobj_1163__SLABEL_BIND*/ /*_._VALDATA___V1254*/ meltfptr[1253] = (melt_ptr_t )&meltcdat->dobj_1163__SLABEL_BIND; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1163__SLABEL_BIND", 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_1163__SLABEL_BIND", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1163__SLABEL_BIND.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_1163__SLABEL_BIND.obj_num = 2; meltcdat->dobj_1163__SLABEL_BIND.obj_hash = 659300846; meltcdat->dobj_1163__SLABEL_BIND.obj_len = 4; /*inistring dstr_1164__SLABEL_BIND*/ /*_._VALSTR___V1255*/ meltfptr[1254] = (melt_ptr_t) &meltcdat->dstr_1164__SLABEL_BIND; meltcdat->dstr_1164__SLABEL_BIND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1164__SLABEL_BIND.val, "SLABEL_BIND", sizeof (meltcdat->dstr_1164__SLABEL_BIND.val)-1); meltcdat->dstr_1164__SLABEL_BIND.val[11] = (char)0 ; meltcdat->dstr_1164__SLABEL_BIND.slen = 11 ; /*iniobj dsym_1165__CLASS_SOURCE_FOREVER*/ /*uniqueobj*/ if (!/*_._VALDATA___V1259*/ meltfptr[1258]) /*_._VALDATA___V1259*/ meltfptr[1258] = (melt_ptr_t )&meltcdat->dsym_1165__CLASS_SOURCE_FOREVER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1165__CLASS_SOURCE_FOREVER", 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_1165__CLASS_SOURCE_FOREVER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1165__CLASS_SOURCE_FOREVER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1165__CLASS_SOURCE_FOREVER.obj_hash = 989441728; meltcdat->dsym_1165__CLASS_SOURCE_FOREVER.obj_len = 3; /*inistring dstr_1166__CLASS_SOURCE_FOREVER*/ /*_._VALSTR___V1260*/ meltfptr[1259] = (melt_ptr_t) &meltcdat->dstr_1166__CLASS_SOURCE_FOREVER; meltcdat->dstr_1166__CLASS_SOURCE_FOREVER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1166__CLASS_SOURCE_FOREVER.val, "CLASS_SOURCE_FOREVER", sizeof (meltcdat->dstr_1166__CLASS_SOURCE_FOREVER.val)-1); meltcdat->dstr_1166__CLASS_SOURCE_FOREVER.val[20] = (char)0 ; meltcdat->dstr_1166__CLASS_SOURCE_FOREVER.slen = 20 ; MELT_LOCATION("warmelt-macro.melt:1213:/ iniobj"); /*iniobj dobj_1167__CLASS_SOURCE_FOREVER*/ /*_._VALDATA___V1261*/ meltfptr[1260] = (melt_ptr_t )&meltcdat->dobj_1167__CLASS_SOURCE_FOREVER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1167__CLASS_SOURCE_FOREVER", 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_1167__CLASS_SOURCE_FOREVER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1167__CLASS_SOURCE_FOREVER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_1167__CLASS_SOURCE_FOREVER.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_1167__CLASS_SOURCE_FOREVER.obj_hash = 970321761; meltcdat->dobj_1167__CLASS_SOURCE_FOREVER.obj_len = 8; /*inistring dstr_1168__CLASS_SOURCE_FOREVER*/ /*_._VALSTR___V1262*/ meltfptr[1261] = (melt_ptr_t) &meltcdat->dstr_1168__CLASS_SOURCE_FOREVER; meltcdat->dstr_1168__CLASS_SOURCE_FOREVER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1168__CLASS_SOURCE_FOREVER.val, "CLASS_SOURCE_FOREVER", sizeof (meltcdat->dstr_1168__CLASS_SOURCE_FOREVER.val)-1); meltcdat->dstr_1168__CLASS_SOURCE_FOREVER.val[20] = (char)0 ; meltcdat->dstr_1168__CLASS_SOURCE_FOREVER.slen = 20 ; /*inimult dtup_1169_syCLASS_SOURCE_FOREVER*/ /*_._VALTUP___V1263*/ meltfptr[1262] = (melt_ptr_t) &meltcdat->dtup_1169_syCLASS_SOURCE_FOREVER; meltcdat->dtup_1169_syCLASS_SOURCE_FOREVER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1169_syCLASS_SOURCE_FOREVER.nbval = 5; /*inimult dtup_1170_syCLASS_SOURCE_FOREVER*/ /*_._VALTUP___V1266*/ meltfptr[1265] = (melt_ptr_t) &meltcdat->dtup_1170_syCLASS_SOURCE_FOREVER; meltcdat->dtup_1170_syCLASS_SOURCE_FOREVER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1170_syCLASS_SOURCE_FOREVER.nbval = 4; /*iniobj dsym_1171__SFRV_BODY*/ /*uniqueobj*/ if (!/*_._VALDATA___V1267*/ meltfptr[1266]) /*_._VALDATA___V1267*/ meltfptr[1266] = (melt_ptr_t )&meltcdat->dsym_1171__SFRV_BODY; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1171__SFRV_BODY", 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_1171__SFRV_BODY", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1171__SFRV_BODY.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1171__SFRV_BODY.obj_hash = 321317727; meltcdat->dsym_1171__SFRV_BODY.obj_len = 3; /*inistring dstr_1172__SFRV_BODY*/ /*_._VALSTR___V1268*/ meltfptr[1267] = (melt_ptr_t) &meltcdat->dstr_1172__SFRV_BODY; meltcdat->dstr_1172__SFRV_BODY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1172__SFRV_BODY.val, "SFRV_BODY", sizeof (meltcdat->dstr_1172__SFRV_BODY.val)-1); meltcdat->dstr_1172__SFRV_BODY.val[9] = (char)0 ; meltcdat->dstr_1172__SFRV_BODY.slen = 9 ; /*^iniobj*/ /*iniobj dobj_1173__SFRV_BODY*/ /*_._VALDATA___V1264*/ meltfptr[1263] = (melt_ptr_t )&meltcdat->dobj_1173__SFRV_BODY; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1173__SFRV_BODY", 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_1173__SFRV_BODY", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1173__SFRV_BODY.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_1173__SFRV_BODY.obj_num = 3; meltcdat->dobj_1173__SFRV_BODY.obj_hash = 39792386; meltcdat->dobj_1173__SFRV_BODY.obj_len = 4; /*inistring dstr_1174__SFRV_BODY*/ /*_._VALSTR___V1265*/ meltfptr[1264] = (melt_ptr_t) &meltcdat->dstr_1174__SFRV_BODY; meltcdat->dstr_1174__SFRV_BODY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1174__SFRV_BODY.val, "SFRV_BODY", sizeof (meltcdat->dstr_1174__SFRV_BODY.val)-1); meltcdat->dstr_1174__SFRV_BODY.val[9] = (char)0 ; meltcdat->dstr_1174__SFRV_BODY.slen = 9 ; /*iniobj dsym_1175__CLASS_SOURCE_AGAIN*/ /*uniqueobj*/ if (!/*_._VALDATA___V1269*/ meltfptr[1268]) /*_._VALDATA___V1269*/ meltfptr[1268] = (melt_ptr_t )&meltcdat->dsym_1175__CLASS_SOURCE_AGAIN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1175__CLASS_SOURCE_AGAIN", 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_1175__CLASS_SOURCE_AGAIN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1175__CLASS_SOURCE_AGAIN.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1175__CLASS_SOURCE_AGAIN.obj_hash = 533538030; meltcdat->dsym_1175__CLASS_SOURCE_AGAIN.obj_len = 3; /*inistring dstr_1176__CLASS_SOURCE_AGAIN*/ /*_._VALSTR___V1270*/ meltfptr[1269] = (melt_ptr_t) &meltcdat->dstr_1176__CLASS_SOURCE_AGAIN; meltcdat->dstr_1176__CLASS_SOURCE_AGAIN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1176__CLASS_SOURCE_AGAIN.val, "CLASS_SOURCE_AGAIN", sizeof (meltcdat->dstr_1176__CLASS_SOURCE_AGAIN.val)-1); meltcdat->dstr_1176__CLASS_SOURCE_AGAIN.val[18] = (char)0 ; meltcdat->dstr_1176__CLASS_SOURCE_AGAIN.slen = 18 ; MELT_LOCATION("warmelt-macro.melt:1221:/ iniobj"); /*iniobj dobj_1177__CLASS_SOURCE_AGAIN*/ /*_._VALDATA___V1271*/ meltfptr[1270] = (melt_ptr_t )&meltcdat->dobj_1177__CLASS_SOURCE_AGAIN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1177__CLASS_SOURCE_AGAIN", 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_1177__CLASS_SOURCE_AGAIN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1177__CLASS_SOURCE_AGAIN.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_1177__CLASS_SOURCE_AGAIN.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_1177__CLASS_SOURCE_AGAIN.obj_hash = 128125043; meltcdat->dobj_1177__CLASS_SOURCE_AGAIN.obj_len = 8; /*inistring dstr_1178__CLASS_SOURCE_AGAIN*/ /*_._VALSTR___V1272*/ meltfptr[1271] = (melt_ptr_t) &meltcdat->dstr_1178__CLASS_SOURCE_AGAIN; meltcdat->dstr_1178__CLASS_SOURCE_AGAIN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1178__CLASS_SOURCE_AGAIN.val, "CLASS_SOURCE_AGAIN", sizeof (meltcdat->dstr_1178__CLASS_SOURCE_AGAIN.val)-1); meltcdat->dstr_1178__CLASS_SOURCE_AGAIN.val[18] = (char)0 ; meltcdat->dstr_1178__CLASS_SOURCE_AGAIN.slen = 18 ; /*inimult dtup_1179_syCLASS_SOURCE_AGAIN*/ /*_._VALTUP___V1273*/ meltfptr[1272] = (melt_ptr_t) &meltcdat->dtup_1179_syCLASS_SOURCE_AGAIN; meltcdat->dtup_1179_syCLASS_SOURCE_AGAIN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1179_syCLASS_SOURCE_AGAIN.nbval = 5; /*inimult dtup_1180_syCLASS_SOURCE_AGAIN*/ /*_._VALTUP___V1274*/ meltfptr[1273] = (melt_ptr_t) &meltcdat->dtup_1180_syCLASS_SOURCE_AGAIN; meltcdat->dtup_1180_syCLASS_SOURCE_AGAIN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1180_syCLASS_SOURCE_AGAIN.nbval = 3; /*iniobj dsym_1181__CLASS_SOURCE_EXIT*/ /*uniqueobj*/ if (!/*_._VALDATA___V1275*/ meltfptr[1274]) /*_._VALDATA___V1275*/ meltfptr[1274] = (melt_ptr_t )&meltcdat->dsym_1181__CLASS_SOURCE_EXIT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1181__CLASS_SOURCE_EXIT", 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_1181__CLASS_SOURCE_EXIT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1181__CLASS_SOURCE_EXIT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1181__CLASS_SOURCE_EXIT.obj_hash = 6060516; meltcdat->dsym_1181__CLASS_SOURCE_EXIT.obj_len = 3; /*inistring dstr_1182__CLASS_SOURCE_EXIT*/ /*_._VALSTR___V1276*/ meltfptr[1275] = (melt_ptr_t) &meltcdat->dstr_1182__CLASS_SOURCE_EXIT; meltcdat->dstr_1182__CLASS_SOURCE_EXIT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1182__CLASS_SOURCE_EXIT.val, "CLASS_SOURCE_EXIT", sizeof (meltcdat->dstr_1182__CLASS_SOURCE_EXIT.val)-1); meltcdat->dstr_1182__CLASS_SOURCE_EXIT.val[17] = (char)0 ; meltcdat->dstr_1182__CLASS_SOURCE_EXIT.slen = 17 ; MELT_LOCATION("warmelt-macro.melt:1228:/ iniobj"); /*iniobj dobj_1183__CLASS_SOURCE_EXIT*/ /*_._VALDATA___V1277*/ meltfptr[1276] = (melt_ptr_t )&meltcdat->dobj_1183__CLASS_SOURCE_EXIT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1183__CLASS_SOURCE_EXIT", 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_1183__CLASS_SOURCE_EXIT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1183__CLASS_SOURCE_EXIT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_1183__CLASS_SOURCE_EXIT.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_1183__CLASS_SOURCE_EXIT.obj_hash = 150166171; meltcdat->dobj_1183__CLASS_SOURCE_EXIT.obj_len = 8; /*inistring dstr_1184__CLASS_SOURCE_EXIT*/ /*_._VALSTR___V1278*/ meltfptr[1277] = (melt_ptr_t) &meltcdat->dstr_1184__CLASS_SOURCE_EXIT; meltcdat->dstr_1184__CLASS_SOURCE_EXIT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1184__CLASS_SOURCE_EXIT.val, "CLASS_SOURCE_EXIT", sizeof (meltcdat->dstr_1184__CLASS_SOURCE_EXIT.val)-1); meltcdat->dstr_1184__CLASS_SOURCE_EXIT.val[17] = (char)0 ; meltcdat->dstr_1184__CLASS_SOURCE_EXIT.slen = 17 ; /*inimult dtup_1185_syCLASS_SOURCE_EXIT*/ /*_._VALTUP___V1279*/ meltfptr[1278] = (melt_ptr_t) &meltcdat->dtup_1185_syCLASS_SOURCE_EXIT; meltcdat->dtup_1185_syCLASS_SOURCE_EXIT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1185_syCLASS_SOURCE_EXIT.nbval = 5; /*inimult dtup_1186_syCLASS_SOURCE_EXIT*/ /*_._VALTUP___V1282*/ meltfptr[1281] = (melt_ptr_t) &meltcdat->dtup_1186_syCLASS_SOURCE_EXIT; meltcdat->dtup_1186_syCLASS_SOURCE_EXIT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1186_syCLASS_SOURCE_EXIT.nbval = 4; /*iniobj dsym_1187__SEXI_BODY*/ /*uniqueobj*/ if (!/*_._VALDATA___V1283*/ meltfptr[1282]) /*_._VALDATA___V1283*/ meltfptr[1282] = (melt_ptr_t )&meltcdat->dsym_1187__SEXI_BODY; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1187__SEXI_BODY", 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_1187__SEXI_BODY", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1187__SEXI_BODY.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1187__SEXI_BODY.obj_hash = 795764559; meltcdat->dsym_1187__SEXI_BODY.obj_len = 3; /*inistring dstr_1188__SEXI_BODY*/ /*_._VALSTR___V1284*/ meltfptr[1283] = (melt_ptr_t) &meltcdat->dstr_1188__SEXI_BODY; meltcdat->dstr_1188__SEXI_BODY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1188__SEXI_BODY.val, "SEXI_BODY", sizeof (meltcdat->dstr_1188__SEXI_BODY.val)-1); meltcdat->dstr_1188__SEXI_BODY.val[9] = (char)0 ; meltcdat->dstr_1188__SEXI_BODY.slen = 9 ; /*^iniobj*/ /*iniobj dobj_1189__SEXI_BODY*/ /*_._VALDATA___V1280*/ meltfptr[1279] = (melt_ptr_t )&meltcdat->dobj_1189__SEXI_BODY; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1189__SEXI_BODY", 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_1189__SEXI_BODY", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1189__SEXI_BODY.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_1189__SEXI_BODY.obj_num = 3; meltcdat->dobj_1189__SEXI_BODY.obj_hash = 707163150; meltcdat->dobj_1189__SEXI_BODY.obj_len = 4; /*inistring dstr_1190__SEXI_BODY*/ /*_._VALSTR___V1281*/ meltfptr[1280] = (melt_ptr_t) &meltcdat->dstr_1190__SEXI_BODY; meltcdat->dstr_1190__SEXI_BODY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1190__SEXI_BODY.val, "SEXI_BODY", sizeof (meltcdat->dstr_1190__SEXI_BODY.val)-1); meltcdat->dstr_1190__SEXI_BODY.val[9] = (char)0 ; meltcdat->dstr_1190__SEXI_BODY.slen = 9 ; /*iniobj dsym_1191__CLASS_SOURCE_COMPILE_DIAGNOSTIC*/ /*uniqueobj*/ if (!/*_._VALDATA___V1285*/ meltfptr[1284]) /*_._VALDATA___V1285*/ meltfptr[1284] = (melt_ptr_t )&meltcdat->dsym_1191__CLASS_SOURCE_COMPILE_DIAGNOSTIC; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1191__CLASS_SOURCE_COMPILE_DIAGNOSTIC", 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_1191__CLASS_SOURCE_COMPILE_DIAGNOSTIC", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1191__CLASS_SOURCE_COMPILE_DIAGNOSTIC.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1191__CLASS_SOURCE_COMPILE_DIAGNOSTIC.obj_hash = 340744571; meltcdat->dsym_1191__CLASS_SOURCE_COMPILE_DIAGNOSTIC.obj_len = 3; /*inistring dstr_1192__CLASS_SOURCE_COMPILE_DIA*/ /*_._VALSTR___V1286*/ meltfptr[1285] = (melt_ptr_t) &meltcdat->dstr_1192__CLASS_SOURCE_COMPILE_DIA; meltcdat->dstr_1192__CLASS_SOURCE_COMPILE_DIA.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1192__CLASS_SOURCE_COMPILE_DIA.val, "CLASS_SOURCE_COMPILE_DIAGNOSTIC", sizeof (meltcdat->dstr_1192__CLASS_SOURCE_COMPILE_DIA.val)-1); meltcdat->dstr_1192__CLASS_SOURCE_COMPILE_DIA.val[31] = (char)0 ; meltcdat->dstr_1192__CLASS_SOURCE_COMPILE_DIA.slen = 31 ; MELT_LOCATION("warmelt-macro.melt:1236:/ iniobj"); /*iniobj dobj_1193__CLASS_SOURCE_COMPILE_DIAGNOSTIC*/ /*_._VALDATA___V1287*/ meltfptr[1286] = (melt_ptr_t )&meltcdat->dobj_1193__CLASS_SOURCE_COMPILE_DIAGNOSTIC; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1193__CLASS_SOURCE_COMPILE_DIAGNOSTIC", 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_1193__CLASS_SOURCE_COMPILE_DIAGNOSTIC", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1193__CLASS_SOURCE_COMPILE_DIAGNOSTIC.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_1193__CLASS_SOURCE_COMPILE_DIAGNOSTIC.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_1193__CLASS_SOURCE_COMPILE_DIAGNOSTIC.obj_hash = 199078377; meltcdat->dobj_1193__CLASS_SOURCE_COMPILE_DIAGNOSTIC.obj_len = 8; /*inistring dstr_1194__CLASS_SOURCE_COMPILE_DIA*/ /*_._VALSTR___V1288*/ meltfptr[1287] = (melt_ptr_t) &meltcdat->dstr_1194__CLASS_SOURCE_COMPILE_DIA; meltcdat->dstr_1194__CLASS_SOURCE_COMPILE_DIA.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1194__CLASS_SOURCE_COMPILE_DIA.val, "CLASS_SOURCE_COMPILE_DIAGNOSTIC", sizeof (meltcdat->dstr_1194__CLASS_SOURCE_COMPILE_DIA.val)-1); meltcdat->dstr_1194__CLASS_SOURCE_COMPILE_DIA.val[31] = (char)0 ; meltcdat->dstr_1194__CLASS_SOURCE_COMPILE_DIA.slen = 31 ; /*inimult dtup_1195_syCLASS_SOURCE_COMPILE_DIAGNOSTIC*/ /*_._VALTUP___V1289*/ meltfptr[1288] = (melt_ptr_t) &meltcdat->dtup_1195_syCLASS_SOURCE_COMPILE_DIAGNOSTIC; meltcdat->dtup_1195_syCLASS_SOURCE_COMPILE_DIAGNOSTIC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1195_syCLASS_SOURCE_COMPILE_DIAGNOSTIC.nbval = 4; /*inimult dtup_1196_syCLASS_SOURCE_COMPILE_DIAGNOSTIC*/ /*_._VALTUP___V1294*/ meltfptr[1293] = (melt_ptr_t) &meltcdat->dtup_1196_syCLASS_SOURCE_COMPILE_DIAGNOSTIC; meltcdat->dtup_1196_syCLASS_SOURCE_COMPILE_DIAGNOSTIC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1196_syCLASS_SOURCE_COMPILE_DIAGNOSTIC.nbval = 4; /*iniobj dsym_1197__SCDIAG_MSG*/ /*uniqueobj*/ if (!/*_._VALDATA___V1295*/ meltfptr[1294]) /*_._VALDATA___V1295*/ meltfptr[1294] = (melt_ptr_t )&meltcdat->dsym_1197__SCDIAG_MSG; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1197__SCDIAG_MSG", 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_1197__SCDIAG_MSG", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1197__SCDIAG_MSG.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1197__SCDIAG_MSG.obj_hash = 514946936; meltcdat->dsym_1197__SCDIAG_MSG.obj_len = 3; /*inistring dstr_1198__SCDIAG_MSG*/ /*_._VALSTR___V1296*/ meltfptr[1295] = (melt_ptr_t) &meltcdat->dstr_1198__SCDIAG_MSG; meltcdat->dstr_1198__SCDIAG_MSG.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1198__SCDIAG_MSG.val, "SCDIAG_MSG", sizeof (meltcdat->dstr_1198__SCDIAG_MSG.val)-1); meltcdat->dstr_1198__SCDIAG_MSG.val[10] = (char)0 ; meltcdat->dstr_1198__SCDIAG_MSG.slen = 10 ; /*^iniobj*/ /*iniobj dobj_1199__SCDIAG_MSG*/ /*_._VALDATA___V1290*/ meltfptr[1289] = (melt_ptr_t )&meltcdat->dobj_1199__SCDIAG_MSG; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1199__SCDIAG_MSG", 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_1199__SCDIAG_MSG", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1199__SCDIAG_MSG.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_1199__SCDIAG_MSG.obj_num = 2; meltcdat->dobj_1199__SCDIAG_MSG.obj_hash = 779217117; meltcdat->dobj_1199__SCDIAG_MSG.obj_len = 4; /*inistring dstr_1200__SCDIAG_MSG*/ /*_._VALSTR___V1291*/ meltfptr[1290] = (melt_ptr_t) &meltcdat->dstr_1200__SCDIAG_MSG; meltcdat->dstr_1200__SCDIAG_MSG.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1200__SCDIAG_MSG.val, "SCDIAG_MSG", sizeof (meltcdat->dstr_1200__SCDIAG_MSG.val)-1); meltcdat->dstr_1200__SCDIAG_MSG.val[10] = (char)0 ; meltcdat->dstr_1200__SCDIAG_MSG.slen = 10 ; /*iniobj dsym_1201__SCDIAG_EXPR*/ /*uniqueobj*/ if (!/*_._VALDATA___V1297*/ meltfptr[1296]) /*_._VALDATA___V1297*/ meltfptr[1296] = (melt_ptr_t )&meltcdat->dsym_1201__SCDIAG_EXPR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1201__SCDIAG_EXPR", 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_1201__SCDIAG_EXPR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1201__SCDIAG_EXPR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1201__SCDIAG_EXPR.obj_hash = 49628362; meltcdat->dsym_1201__SCDIAG_EXPR.obj_len = 3; /*inistring dstr_1202__SCDIAG_EXPR*/ /*_._VALSTR___V1298*/ meltfptr[1297] = (melt_ptr_t) &meltcdat->dstr_1202__SCDIAG_EXPR; meltcdat->dstr_1202__SCDIAG_EXPR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1202__SCDIAG_EXPR.val, "SCDIAG_EXPR", sizeof (meltcdat->dstr_1202__SCDIAG_EXPR.val)-1); meltcdat->dstr_1202__SCDIAG_EXPR.val[11] = (char)0 ; meltcdat->dstr_1202__SCDIAG_EXPR.slen = 11 ; /*^iniobj*/ /*iniobj dobj_1203__SCDIAG_EXPR*/ /*_._VALDATA___V1292*/ meltfptr[1291] = (melt_ptr_t )&meltcdat->dobj_1203__SCDIAG_EXPR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1203__SCDIAG_EXPR", 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_1203__SCDIAG_EXPR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1203__SCDIAG_EXPR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_1203__SCDIAG_EXPR.obj_num = 3; meltcdat->dobj_1203__SCDIAG_EXPR.obj_hash = 215312135; meltcdat->dobj_1203__SCDIAG_EXPR.obj_len = 4; /*inistring dstr_1204__SCDIAG_EXPR*/ /*_._VALSTR___V1293*/ meltfptr[1292] = (melt_ptr_t) &meltcdat->dstr_1204__SCDIAG_EXPR; meltcdat->dstr_1204__SCDIAG_EXPR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1204__SCDIAG_EXPR.val, "SCDIAG_EXPR", sizeof (meltcdat->dstr_1204__SCDIAG_EXPR.val)-1); meltcdat->dstr_1204__SCDIAG_EXPR.val[11] = (char)0 ; meltcdat->dstr_1204__SCDIAG_EXPR.slen = 11 ; /*iniobj dsym_1205__CLASS_SOURCE_COMPILE_WARNING*/ /*uniqueobj*/ if (!/*_._VALDATA___V1299*/ meltfptr[1298]) /*_._VALDATA___V1299*/ meltfptr[1298] = (melt_ptr_t )&meltcdat->dsym_1205__CLASS_SOURCE_COMPILE_WARNING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1205__CLASS_SOURCE_COMPILE_WARNING", 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_1205__CLASS_SOURCE_COMPILE_WARNING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1205__CLASS_SOURCE_COMPILE_WARNING.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1205__CLASS_SOURCE_COMPILE_WARNING.obj_hash = 1724396; meltcdat->dsym_1205__CLASS_SOURCE_COMPILE_WARNING.obj_len = 3; /*inistring dstr_1206__CLASS_SOURCE_COMPILE_WAR*/ /*_._VALSTR___V1300*/ meltfptr[1299] = (melt_ptr_t) &meltcdat->dstr_1206__CLASS_SOURCE_COMPILE_WAR; meltcdat->dstr_1206__CLASS_SOURCE_COMPILE_WAR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1206__CLASS_SOURCE_COMPILE_WAR.val, "CLASS_SOURCE_COMPILE_WARNING", sizeof (meltcdat->dstr_1206__CLASS_SOURCE_COMPILE_WAR.val)-1); meltcdat->dstr_1206__CLASS_SOURCE_COMPILE_WAR.val[28] = (char)0 ; meltcdat->dstr_1206__CLASS_SOURCE_COMPILE_WAR.slen = 28 ; MELT_LOCATION("warmelt-macro.melt:1244:/ iniobj"); /*iniobj dobj_1207__CLASS_SOURCE_COMPILE_WARNING*/ /*_._VALDATA___V1301*/ meltfptr[1300] = (melt_ptr_t )&meltcdat->dobj_1207__CLASS_SOURCE_COMPILE_WARNING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1207__CLASS_SOURCE_COMPILE_WARNING", 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_1207__CLASS_SOURCE_COMPILE_WARNING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1207__CLASS_SOURCE_COMPILE_WARNING.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_1207__CLASS_SOURCE_COMPILE_WARNING.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_1207__CLASS_SOURCE_COMPILE_WARNING.obj_hash = 372503196; meltcdat->dobj_1207__CLASS_SOURCE_COMPILE_WARNING.obj_len = 8; /*inistring dstr_1208__CLASS_SOURCE_COMPILE_WAR*/ /*_._VALSTR___V1302*/ meltfptr[1301] = (melt_ptr_t) &meltcdat->dstr_1208__CLASS_SOURCE_COMPILE_WAR; meltcdat->dstr_1208__CLASS_SOURCE_COMPILE_WAR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1208__CLASS_SOURCE_COMPILE_WAR.val, "CLASS_SOURCE_COMPILE_WARNING", sizeof (meltcdat->dstr_1208__CLASS_SOURCE_COMPILE_WAR.val)-1); meltcdat->dstr_1208__CLASS_SOURCE_COMPILE_WAR.val[28] = (char)0 ; meltcdat->dstr_1208__CLASS_SOURCE_COMPILE_WAR.slen = 28 ; /*inimult dtup_1209_syCLASS_SOURCE_COMPILE_WARNING*/ /*_._VALTUP___V1303*/ meltfptr[1302] = (melt_ptr_t) &meltcdat->dtup_1209_syCLASS_SOURCE_COMPILE_WARNING; meltcdat->dtup_1209_syCLASS_SOURCE_COMPILE_WARNING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1209_syCLASS_SOURCE_COMPILE_WARNING.nbval = 5; /*inimult dtup_1210_syCLASS_SOURCE_COMPILE_WARNING*/ /*_._VALTUP___V1304*/ meltfptr[1303] = (melt_ptr_t) &meltcdat->dtup_1210_syCLASS_SOURCE_COMPILE_WARNING; meltcdat->dtup_1210_syCLASS_SOURCE_COMPILE_WARNING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1210_syCLASS_SOURCE_COMPILE_WARNING.nbval = 4; /*iniobj dsym_1211__CLASS_SOURCE_COMPILEWARNING*/ /*uniqueobj*/ if (!/*_._VALDATA___V1305*/ meltfptr[1304]) /*_._VALDATA___V1305*/ meltfptr[1304] = (melt_ptr_t )&meltcdat->dsym_1211__CLASS_SOURCE_COMPILEWARNING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1211__CLASS_SOURCE_COMPILEWARNING", 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_1211__CLASS_SOURCE_COMPILEWARNING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1211__CLASS_SOURCE_COMPILEWARNING.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1211__CLASS_SOURCE_COMPILEWARNING.obj_hash = 32120446; meltcdat->dsym_1211__CLASS_SOURCE_COMPILEWARNING.obj_len = 3; /*inistring dstr_1212__CLASS_SOURCE_COMPILEWARN*/ /*_._VALSTR___V1306*/ meltfptr[1305] = (melt_ptr_t) &meltcdat->dstr_1212__CLASS_SOURCE_COMPILEWARN; meltcdat->dstr_1212__CLASS_SOURCE_COMPILEWARN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1212__CLASS_SOURCE_COMPILEWARN.val, "CLASS_SOURCE_COMPILEWARNING", sizeof (meltcdat->dstr_1212__CLASS_SOURCE_COMPILEWARN.val)-1); meltcdat->dstr_1212__CLASS_SOURCE_COMPILEWARN.val[27] = (char)0 ; meltcdat->dstr_1212__CLASS_SOURCE_COMPILEWARN.slen = 27 ; /*iniobj dsym_1213__CLASS_SOURCE_COMPILE_ERROR*/ /*uniqueobj*/ if (!/*_._VALDATA___V1307*/ meltfptr[1306]) /*_._VALDATA___V1307*/ meltfptr[1306] = (melt_ptr_t )&meltcdat->dsym_1213__CLASS_SOURCE_COMPILE_ERROR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1213__CLASS_SOURCE_COMPILE_ERROR", 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_1213__CLASS_SOURCE_COMPILE_ERROR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1213__CLASS_SOURCE_COMPILE_ERROR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1213__CLASS_SOURCE_COMPILE_ERROR.obj_hash = 196347829; meltcdat->dsym_1213__CLASS_SOURCE_COMPILE_ERROR.obj_len = 3; /*inistring dstr_1214__CLASS_SOURCE_COMPILE_ERR*/ /*_._VALSTR___V1308*/ meltfptr[1307] = (melt_ptr_t) &meltcdat->dstr_1214__CLASS_SOURCE_COMPILE_ERR; meltcdat->dstr_1214__CLASS_SOURCE_COMPILE_ERR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1214__CLASS_SOURCE_COMPILE_ERR.val, "CLASS_SOURCE_COMPILE_ERROR", sizeof (meltcdat->dstr_1214__CLASS_SOURCE_COMPILE_ERR.val)-1); meltcdat->dstr_1214__CLASS_SOURCE_COMPILE_ERR.val[26] = (char)0 ; meltcdat->dstr_1214__CLASS_SOURCE_COMPILE_ERR.slen = 26 ; MELT_LOCATION("warmelt-macro.melt:1251:/ iniobj"); /*iniobj dobj_1215__CLASS_SOURCE_COMPILE_ERROR*/ /*_._VALDATA___V1309*/ meltfptr[1308] = (melt_ptr_t )&meltcdat->dobj_1215__CLASS_SOURCE_COMPILE_ERROR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1215__CLASS_SOURCE_COMPILE_ERROR", 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_1215__CLASS_SOURCE_COMPILE_ERROR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1215__CLASS_SOURCE_COMPILE_ERROR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_1215__CLASS_SOURCE_COMPILE_ERROR.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_1215__CLASS_SOURCE_COMPILE_ERROR.obj_hash = 690356133; meltcdat->dobj_1215__CLASS_SOURCE_COMPILE_ERROR.obj_len = 8; /*inistring dstr_1216__CLASS_SOURCE_COMPILE_ERR*/ /*_._VALSTR___V1310*/ meltfptr[1309] = (melt_ptr_t) &meltcdat->dstr_1216__CLASS_SOURCE_COMPILE_ERR; meltcdat->dstr_1216__CLASS_SOURCE_COMPILE_ERR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1216__CLASS_SOURCE_COMPILE_ERR.val, "CLASS_SOURCE_COMPILE_ERROR", sizeof (meltcdat->dstr_1216__CLASS_SOURCE_COMPILE_ERR.val)-1); meltcdat->dstr_1216__CLASS_SOURCE_COMPILE_ERR.val[26] = (char)0 ; meltcdat->dstr_1216__CLASS_SOURCE_COMPILE_ERR.slen = 26 ; /*inimult dtup_1217_syCLASS_SOURCE_COMPILE_ERROR*/ /*_._VALTUP___V1311*/ meltfptr[1310] = (melt_ptr_t) &meltcdat->dtup_1217_syCLASS_SOURCE_COMPILE_ERROR; meltcdat->dtup_1217_syCLASS_SOURCE_COMPILE_ERROR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1217_syCLASS_SOURCE_COMPILE_ERROR.nbval = 5; /*inimult dtup_1218_syCLASS_SOURCE_COMPILE_ERROR*/ /*_._VALTUP___V1312*/ meltfptr[1311] = (melt_ptr_t) &meltcdat->dtup_1218_syCLASS_SOURCE_COMPILE_ERROR; meltcdat->dtup_1218_syCLASS_SOURCE_COMPILE_ERROR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1218_syCLASS_SOURCE_COMPILE_ERROR.nbval = 4; /*iniobj dsym_1219__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE*/ /*uniqueobj*/ if (!/*_._VALDATA___V1313*/ meltfptr[1312]) /*_._VALDATA___V1313*/ meltfptr[1312] = (melt_ptr_t )&meltcdat->dsym_1219__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1219__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE", 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_1219__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1219__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1219__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE.obj_hash = 70853100; meltcdat->dsym_1219__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE.obj_len = 3; /*inistring dstr_1220__CLASS_SOURCE_CURRENT_MOD*/ /*_._VALSTR___V1314*/ meltfptr[1313] = (melt_ptr_t) &meltcdat->dstr_1220__CLASS_SOURCE_CURRENT_MOD; meltcdat->dstr_1220__CLASS_SOURCE_CURRENT_MOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1220__CLASS_SOURCE_CURRENT_MOD.val, "CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE", sizeof (meltcdat->dstr_1220__CLASS_SOURCE_CURRENT_MOD.val)-1); meltcdat->dstr_1220__CLASS_SOURCE_CURRENT_MOD.val[49] = (char)0 ; meltcdat->dstr_1220__CLASS_SOURCE_CURRENT_MOD.slen = 49 ; MELT_LOCATION("warmelt-macro.melt:1257:/ iniobj"); /*iniobj dobj_1221__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE*/ /*_._VALDATA___V1315*/ meltfptr[1314] = (melt_ptr_t )&meltcdat->dobj_1221__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1221__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE", 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_1221__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1221__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_1221__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_1221__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE.obj_hash = 571338708; meltcdat->dobj_1221__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE.obj_len = 8; /*inistring dstr_1222__CLASS_SOURCE_CURRENT_MOD*/ /*_._VALSTR___V1316*/ meltfptr[1315] = (melt_ptr_t) &meltcdat->dstr_1222__CLASS_SOURCE_CURRENT_MOD; meltcdat->dstr_1222__CLASS_SOURCE_CURRENT_MOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1222__CLASS_SOURCE_CURRENT_MOD.val, "CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE", sizeof (meltcdat->dstr_1222__CLASS_SOURCE_CURRENT_MOD.val)-1); meltcdat->dstr_1222__CLASS_SOURCE_CURRENT_MOD.val[49] = (char)0 ; meltcdat->dstr_1222__CLASS_SOURCE_CURRENT_MOD.slen = 49 ; /*inimult dtup_1223_syCLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE*/ /*_._VALTUP___V1317*/ meltfptr[1316] = (melt_ptr_t) &meltcdat->dtup_1223_syCLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE; meltcdat->dtup_1223_syCLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1223_syCLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE.nbval = 4; /*inimult dtup_1224_syCLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE*/ /*_._VALTUP___V1320*/ meltfptr[1319] = (melt_ptr_t) &meltcdat->dtup_1224_syCLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE; meltcdat->dtup_1224_syCLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1224_syCLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE.nbval = 3; /*iniobj dsym_1225__CMEC_COMMENT*/ /*uniqueobj*/ if (!/*_._VALDATA___V1321*/ meltfptr[1320]) /*_._VALDATA___V1321*/ meltfptr[1320] = (melt_ptr_t )&meltcdat->dsym_1225__CMEC_COMMENT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1225__CMEC_COMMENT", 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_1225__CMEC_COMMENT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1225__CMEC_COMMENT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1225__CMEC_COMMENT.obj_hash = 809800780; meltcdat->dsym_1225__CMEC_COMMENT.obj_len = 3; /*inistring dstr_1226__CMEC_COMMENT*/ /*_._VALSTR___V1322*/ meltfptr[1321] = (melt_ptr_t) &meltcdat->dstr_1226__CMEC_COMMENT; meltcdat->dstr_1226__CMEC_COMMENT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1226__CMEC_COMMENT.val, "CMEC_COMMENT", sizeof (meltcdat->dstr_1226__CMEC_COMMENT.val)-1); meltcdat->dstr_1226__CMEC_COMMENT.val[12] = (char)0 ; meltcdat->dstr_1226__CMEC_COMMENT.slen = 12 ; /*^iniobj*/ /*iniobj dobj_1227__CMEC_COMMENT*/ /*_._VALDATA___V1318*/ meltfptr[1317] = (melt_ptr_t )&meltcdat->dobj_1227__CMEC_COMMENT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1227__CMEC_COMMENT", 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_1227__CMEC_COMMENT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1227__CMEC_COMMENT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_1227__CMEC_COMMENT.obj_num = 2; meltcdat->dobj_1227__CMEC_COMMENT.obj_hash = 773123974; meltcdat->dobj_1227__CMEC_COMMENT.obj_len = 4; /*inistring dstr_1228__CMEC_COMMENT*/ /*_._VALSTR___V1319*/ meltfptr[1318] = (melt_ptr_t) &meltcdat->dstr_1228__CMEC_COMMENT; meltcdat->dstr_1228__CMEC_COMMENT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1228__CMEC_COMMENT.val, "CMEC_COMMENT", sizeof (meltcdat->dstr_1228__CMEC_COMMENT.val)-1); meltcdat->dstr_1228__CMEC_COMMENT.val[12] = (char)0 ; meltcdat->dstr_1228__CMEC_COMMENT.slen = 12 ; /*iniobj dsym_1229__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT*/ /*uniqueobj*/ if (!/*_._VALDATA___V1323*/ meltfptr[1322]) /*_._VALDATA___V1323*/ meltfptr[1322] = (melt_ptr_t )&meltcdat->dsym_1229__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1229__CLASS_SOURCE_PARENT_MODULE_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_1229__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1229__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1229__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT.obj_hash = 201468317; meltcdat->dsym_1229__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT.obj_len = 3; /*inistring dstr_1230__CLASS_SOURCE_PARENT_MODU*/ /*_._VALSTR___V1324*/ meltfptr[1323] = (melt_ptr_t) &meltcdat->dstr_1230__CLASS_SOURCE_PARENT_MODU; meltcdat->dstr_1230__CLASS_SOURCE_PARENT_MODU.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1230__CLASS_SOURCE_PARENT_MODU.val, "CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT", sizeof (meltcdat->dstr_1230__CLASS_SOURCE_PARENT_MODU.val)-1); meltcdat->dstr_1230__CLASS_SOURCE_PARENT_MODU.val[38] = (char)0 ; meltcdat->dstr_1230__CLASS_SOURCE_PARENT_MODU.slen = 38 ; MELT_LOCATION("warmelt-macro.melt:1265:/ iniobj"); /*iniobj dobj_1231__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT*/ /*_._VALDATA___V1325*/ meltfptr[1324] = (melt_ptr_t )&meltcdat->dobj_1231__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1231__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT", 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_1231__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1231__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_1231__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_1231__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT.obj_hash = 300753704; meltcdat->dobj_1231__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT.obj_len = 8; /*inistring dstr_1232__CLASS_SOURCE_PARENT_MODU*/ /*_._VALSTR___V1326*/ meltfptr[1325] = (melt_ptr_t) &meltcdat->dstr_1232__CLASS_SOURCE_PARENT_MODU; meltcdat->dstr_1232__CLASS_SOURCE_PARENT_MODU.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1232__CLASS_SOURCE_PARENT_MODU.val, "CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT", sizeof (meltcdat->dstr_1232__CLASS_SOURCE_PARENT_MODU.val)-1); meltcdat->dstr_1232__CLASS_SOURCE_PARENT_MODU.val[38] = (char)0 ; meltcdat->dstr_1232__CLASS_SOURCE_PARENT_MODU.slen = 38 ; /*inimult dtup_1233_syCLASS_SOURCE_PARENT_MODULE_ENVIRONMENT*/ /*_._VALTUP___V1327*/ meltfptr[1326] = (melt_ptr_t) &meltcdat->dtup_1233_syCLASS_SOURCE_PARENT_MODULE_ENVIRONMENT; meltcdat->dtup_1233_syCLASS_SOURCE_PARENT_MODULE_ENVIRONMENT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1233_syCLASS_SOURCE_PARENT_MODULE_ENVIRONMENT.nbval = 4; /*inimult dtup_1234_syCLASS_SOURCE_PARENT_MODULE_ENVIRONMENT*/ /*_._VALTUP___V1328*/ meltfptr[1327] = (melt_ptr_t) &meltcdat->dtup_1234_syCLASS_SOURCE_PARENT_MODULE_ENVIRONMENT; meltcdat->dtup_1234_syCLASS_SOURCE_PARENT_MODULE_ENVIRONMENT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1234_syCLASS_SOURCE_PARENT_MODULE_ENVIRONMENT.nbval = 2; /*iniobj dsym_1235__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE*/ /*uniqueobj*/ if (!/*_._VALDATA___V1329*/ meltfptr[1328]) /*_._VALDATA___V1329*/ meltfptr[1328] = (melt_ptr_t )&meltcdat->dsym_1235__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1235__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE", 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_1235__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1235__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1235__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE.obj_hash = 942073007; meltcdat->dsym_1235__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE.obj_len = 3; /*inistring dstr_1236__CLASS_SOURCE_UPDATE_CURR*/ /*_._VALSTR___V1330*/ meltfptr[1329] = (melt_ptr_t) &meltcdat->dstr_1236__CLASS_SOURCE_UPDATE_CURR; meltcdat->dstr_1236__CLASS_SOURCE_UPDATE_CURR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1236__CLASS_SOURCE_UPDATE_CURR.val, "CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE", sizeof (meltcdat->dstr_1236__CLASS_SOURCE_UPDATE_CURR.val)-1); meltcdat->dstr_1236__CLASS_SOURCE_UPDATE_CURR.val[56] = (char)0 ; meltcdat->dstr_1236__CLASS_SOURCE_UPDATE_CURR.slen = 56 ; MELT_LOCATION("warmelt-macro.melt:1273:/ iniobj"); /*iniobj dobj_1237__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE*/ /*_._VALDATA___V1331*/ meltfptr[1330] = (melt_ptr_t )&meltcdat->dobj_1237__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1237__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE", 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_1237__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1237__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_1237__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_1237__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE.obj_hash = 384899667; meltcdat->dobj_1237__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE.obj_len = 8; /*inistring dstr_1238__CLASS_SOURCE_UPDATE_CURR*/ /*_._VALSTR___V1332*/ meltfptr[1331] = (melt_ptr_t) &meltcdat->dstr_1238__CLASS_SOURCE_UPDATE_CURR; meltcdat->dstr_1238__CLASS_SOURCE_UPDATE_CURR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1238__CLASS_SOURCE_UPDATE_CURR.val, "CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE", sizeof (meltcdat->dstr_1238__CLASS_SOURCE_UPDATE_CURR.val)-1); meltcdat->dstr_1238__CLASS_SOURCE_UPDATE_CURR.val[56] = (char)0 ; meltcdat->dstr_1238__CLASS_SOURCE_UPDATE_CURR.slen = 56 ; /*inimult dtup_1239_syCLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE*/ /*_._VALTUP___V1333*/ meltfptr[1332] = (melt_ptr_t) &meltcdat->dtup_1239_syCLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE; meltcdat->dtup_1239_syCLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1239_syCLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE.nbval = 4; /*inimult dtup_1240_syCLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE*/ /*_._VALTUP___V1336*/ meltfptr[1335] = (melt_ptr_t) &meltcdat->dtup_1240_syCLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE; meltcdat->dtup_1240_syCLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1240_syCLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE.nbval = 3; /*iniobj dsym_1241__SUCME_COMMENT*/ /*uniqueobj*/ if (!/*_._VALDATA___V1337*/ meltfptr[1336]) /*_._VALDATA___V1337*/ meltfptr[1336] = (melt_ptr_t )&meltcdat->dsym_1241__SUCME_COMMENT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1241__SUCME_COMMENT", 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_1241__SUCME_COMMENT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1241__SUCME_COMMENT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1241__SUCME_COMMENT.obj_hash = 214159674; meltcdat->dsym_1241__SUCME_COMMENT.obj_len = 3; /*inistring dstr_1242__SUCME_COMMENT*/ /*_._VALSTR___V1338*/ meltfptr[1337] = (melt_ptr_t) &meltcdat->dstr_1242__SUCME_COMMENT; meltcdat->dstr_1242__SUCME_COMMENT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1242__SUCME_COMMENT.val, "SUCME_COMMENT", sizeof (meltcdat->dstr_1242__SUCME_COMMENT.val)-1); meltcdat->dstr_1242__SUCME_COMMENT.val[13] = (char)0 ; meltcdat->dstr_1242__SUCME_COMMENT.slen = 13 ; /*^iniobj*/ /*iniobj dobj_1243__SUCME_COMMENT*/ /*_._VALDATA___V1334*/ meltfptr[1333] = (melt_ptr_t )&meltcdat->dobj_1243__SUCME_COMMENT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1243__SUCME_COMMENT", 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_1243__SUCME_COMMENT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1243__SUCME_COMMENT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_1243__SUCME_COMMENT.obj_num = 2; meltcdat->dobj_1243__SUCME_COMMENT.obj_hash = 268118414; meltcdat->dobj_1243__SUCME_COMMENT.obj_len = 4; /*inistring dstr_1244__SUCME_COMMENT*/ /*_._VALSTR___V1335*/ meltfptr[1334] = (melt_ptr_t) &meltcdat->dstr_1244__SUCME_COMMENT; meltcdat->dstr_1244__SUCME_COMMENT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1244__SUCME_COMMENT.val, "SUCME_COMMENT", sizeof (meltcdat->dstr_1244__SUCME_COMMENT.val)-1); meltcdat->dstr_1244__SUCME_COMMENT.val[13] = (char)0 ; meltcdat->dstr_1244__SUCME_COMMENT.slen = 13 ; /*iniobj dsym_1245__CLASS_SOURCE_FETCH_PREDEFINED*/ /*uniqueobj*/ if (!/*_._VALDATA___V1339*/ meltfptr[1338]) /*_._VALDATA___V1339*/ meltfptr[1338] = (melt_ptr_t )&meltcdat->dsym_1245__CLASS_SOURCE_FETCH_PREDEFINED; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1245__CLASS_SOURCE_FETCH_PREDEFINED", 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_1245__CLASS_SOURCE_FETCH_PREDEFINED", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1245__CLASS_SOURCE_FETCH_PREDEFINED.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1245__CLASS_SOURCE_FETCH_PREDEFINED.obj_hash = 327938903; meltcdat->dsym_1245__CLASS_SOURCE_FETCH_PREDEFINED.obj_len = 3; /*inistring dstr_1246__CLASS_SOURCE_FETCH_PREDE*/ /*_._VALSTR___V1340*/ meltfptr[1339] = (melt_ptr_t) &meltcdat->dstr_1246__CLASS_SOURCE_FETCH_PREDE; meltcdat->dstr_1246__CLASS_SOURCE_FETCH_PREDE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1246__CLASS_SOURCE_FETCH_PREDE.val, "CLASS_SOURCE_FETCH_PREDEFINED", sizeof (meltcdat->dstr_1246__CLASS_SOURCE_FETCH_PREDE.val)-1); meltcdat->dstr_1246__CLASS_SOURCE_FETCH_PREDE.val[29] = (char)0 ; meltcdat->dstr_1246__CLASS_SOURCE_FETCH_PREDE.slen = 29 ; MELT_LOCATION("warmelt-macro.melt:1282:/ iniobj"); /*iniobj dobj_1247__CLASS_SOURCE_FETCH_PREDEFINED*/ /*_._VALDATA___V1341*/ meltfptr[1340] = (melt_ptr_t )&meltcdat->dobj_1247__CLASS_SOURCE_FETCH_PREDEFINED; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1247__CLASS_SOURCE_FETCH_PREDEFINED", 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_1247__CLASS_SOURCE_FETCH_PREDEFINED", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1247__CLASS_SOURCE_FETCH_PREDEFINED.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_1247__CLASS_SOURCE_FETCH_PREDEFINED.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_1247__CLASS_SOURCE_FETCH_PREDEFINED.obj_hash = 1068414150; meltcdat->dobj_1247__CLASS_SOURCE_FETCH_PREDEFINED.obj_len = 8; /*inistring dstr_1248__CLASS_SOURCE_FETCH_PREDE*/ /*_._VALSTR___V1342*/ meltfptr[1341] = (melt_ptr_t) &meltcdat->dstr_1248__CLASS_SOURCE_FETCH_PREDE; meltcdat->dstr_1248__CLASS_SOURCE_FETCH_PREDE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1248__CLASS_SOURCE_FETCH_PREDE.val, "CLASS_SOURCE_FETCH_PREDEFINED", sizeof (meltcdat->dstr_1248__CLASS_SOURCE_FETCH_PREDE.val)-1); meltcdat->dstr_1248__CLASS_SOURCE_FETCH_PREDE.val[29] = (char)0 ; meltcdat->dstr_1248__CLASS_SOURCE_FETCH_PREDE.slen = 29 ; /*inimult dtup_1249_syCLASS_SOURCE_FETCH_PREDEFINED*/ /*_._VALTUP___V1343*/ meltfptr[1342] = (melt_ptr_t) &meltcdat->dtup_1249_syCLASS_SOURCE_FETCH_PREDEFINED; meltcdat->dtup_1249_syCLASS_SOURCE_FETCH_PREDEFINED.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1249_syCLASS_SOURCE_FETCH_PREDEFINED.nbval = 4; /*inimult dtup_1250_syCLASS_SOURCE_FETCH_PREDEFINED*/ /*_._VALTUP___V1346*/ meltfptr[1345] = (melt_ptr_t) &meltcdat->dtup_1250_syCLASS_SOURCE_FETCH_PREDEFINED; meltcdat->dtup_1250_syCLASS_SOURCE_FETCH_PREDEFINED.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1250_syCLASS_SOURCE_FETCH_PREDEFINED.nbval = 3; /*iniobj dsym_1251__SFEPD_PREDEF*/ /*uniqueobj*/ if (!/*_._VALDATA___V1347*/ meltfptr[1346]) /*_._VALDATA___V1347*/ meltfptr[1346] = (melt_ptr_t )&meltcdat->dsym_1251__SFEPD_PREDEF; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1251__SFEPD_PREDEF", 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_1251__SFEPD_PREDEF", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1251__SFEPD_PREDEF.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1251__SFEPD_PREDEF.obj_hash = 1070703811; meltcdat->dsym_1251__SFEPD_PREDEF.obj_len = 3; /*inistring dstr_1252__SFEPD_PREDEF*/ /*_._VALSTR___V1348*/ meltfptr[1347] = (melt_ptr_t) &meltcdat->dstr_1252__SFEPD_PREDEF; meltcdat->dstr_1252__SFEPD_PREDEF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1252__SFEPD_PREDEF.val, "SFEPD_PREDEF", sizeof (meltcdat->dstr_1252__SFEPD_PREDEF.val)-1); meltcdat->dstr_1252__SFEPD_PREDEF.val[12] = (char)0 ; meltcdat->dstr_1252__SFEPD_PREDEF.slen = 12 ; /*^iniobj*/ /*iniobj dobj_1253__SFEPD_PREDEF*/ /*_._VALDATA___V1344*/ meltfptr[1343] = (melt_ptr_t )&meltcdat->dobj_1253__SFEPD_PREDEF; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1253__SFEPD_PREDEF", 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_1253__SFEPD_PREDEF", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1253__SFEPD_PREDEF.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_1253__SFEPD_PREDEF.obj_num = 2; meltcdat->dobj_1253__SFEPD_PREDEF.obj_hash = 128980393; meltcdat->dobj_1253__SFEPD_PREDEF.obj_len = 4; /*inistring dstr_1254__SFEPD_PREDEF*/ /*_._VALSTR___V1345*/ meltfptr[1344] = (melt_ptr_t) &meltcdat->dstr_1254__SFEPD_PREDEF; meltcdat->dstr_1254__SFEPD_PREDEF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1254__SFEPD_PREDEF.val, "SFEPD_PREDEF", sizeof (meltcdat->dstr_1254__SFEPD_PREDEF.val)-1); meltcdat->dstr_1254__SFEPD_PREDEF.val[12] = (char)0 ; meltcdat->dstr_1254__SFEPD_PREDEF.slen = 12 ; /*iniobj dsym_1255__CLASS_SOURCE_STORE_PREDEFINED*/ /*uniqueobj*/ if (!/*_._VALDATA___V1349*/ meltfptr[1348]) /*_._VALDATA___V1349*/ meltfptr[1348] = (melt_ptr_t )&meltcdat->dsym_1255__CLASS_SOURCE_STORE_PREDEFINED; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1255__CLASS_SOURCE_STORE_PREDEFINED", 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_1255__CLASS_SOURCE_STORE_PREDEFINED", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1255__CLASS_SOURCE_STORE_PREDEFINED.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1255__CLASS_SOURCE_STORE_PREDEFINED.obj_hash = 756622417; meltcdat->dsym_1255__CLASS_SOURCE_STORE_PREDEFINED.obj_len = 3; /*inistring dstr_1256__CLASS_SOURCE_STORE_PREDE*/ /*_._VALSTR___V1350*/ meltfptr[1349] = (melt_ptr_t) &meltcdat->dstr_1256__CLASS_SOURCE_STORE_PREDE; meltcdat->dstr_1256__CLASS_SOURCE_STORE_PREDE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1256__CLASS_SOURCE_STORE_PREDE.val, "CLASS_SOURCE_STORE_PREDEFINED", sizeof (meltcdat->dstr_1256__CLASS_SOURCE_STORE_PREDE.val)-1); meltcdat->dstr_1256__CLASS_SOURCE_STORE_PREDE.val[29] = (char)0 ; meltcdat->dstr_1256__CLASS_SOURCE_STORE_PREDE.slen = 29 ; MELT_LOCATION("warmelt-macro.melt:1288:/ iniobj"); /*iniobj dobj_1257__CLASS_SOURCE_STORE_PREDEFINED*/ /*_._VALDATA___V1351*/ meltfptr[1350] = (melt_ptr_t )&meltcdat->dobj_1257__CLASS_SOURCE_STORE_PREDEFINED; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1257__CLASS_SOURCE_STORE_PREDEFINED", 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_1257__CLASS_SOURCE_STORE_PREDEFINED", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1257__CLASS_SOURCE_STORE_PREDEFINED.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_1257__CLASS_SOURCE_STORE_PREDEFINED.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_1257__CLASS_SOURCE_STORE_PREDEFINED.obj_hash = 666590156; meltcdat->dobj_1257__CLASS_SOURCE_STORE_PREDEFINED.obj_len = 8; /*inistring dstr_1258__CLASS_SOURCE_STORE_PREDE*/ /*_._VALSTR___V1352*/ meltfptr[1351] = (melt_ptr_t) &meltcdat->dstr_1258__CLASS_SOURCE_STORE_PREDE; meltcdat->dstr_1258__CLASS_SOURCE_STORE_PREDE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1258__CLASS_SOURCE_STORE_PREDE.val, "CLASS_SOURCE_STORE_PREDEFINED", sizeof (meltcdat->dstr_1258__CLASS_SOURCE_STORE_PREDE.val)-1); meltcdat->dstr_1258__CLASS_SOURCE_STORE_PREDE.val[29] = (char)0 ; meltcdat->dstr_1258__CLASS_SOURCE_STORE_PREDE.slen = 29 ; /*inimult dtup_1259_syCLASS_SOURCE_STORE_PREDEFINED*/ /*_._VALTUP___V1353*/ meltfptr[1352] = (melt_ptr_t) &meltcdat->dtup_1259_syCLASS_SOURCE_STORE_PREDEFINED; meltcdat->dtup_1259_syCLASS_SOURCE_STORE_PREDEFINED.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1259_syCLASS_SOURCE_STORE_PREDEFINED.nbval = 4; /*inimult dtup_1260_syCLASS_SOURCE_STORE_PREDEFINED*/ /*_._VALTUP___V1358*/ meltfptr[1357] = (melt_ptr_t) &meltcdat->dtup_1260_syCLASS_SOURCE_STORE_PREDEFINED; meltcdat->dtup_1260_syCLASS_SOURCE_STORE_PREDEFINED.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1260_syCLASS_SOURCE_STORE_PREDEFINED.nbval = 4; /*iniobj dsym_1261__SSTPD_PREDEF*/ /*uniqueobj*/ if (!/*_._VALDATA___V1359*/ meltfptr[1358]) /*_._VALDATA___V1359*/ meltfptr[1358] = (melt_ptr_t )&meltcdat->dsym_1261__SSTPD_PREDEF; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1261__SSTPD_PREDEF", 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_1261__SSTPD_PREDEF", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1261__SSTPD_PREDEF.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1261__SSTPD_PREDEF.obj_hash = 43999277; meltcdat->dsym_1261__SSTPD_PREDEF.obj_len = 3; /*inistring dstr_1262__SSTPD_PREDEF*/ /*_._VALSTR___V1360*/ meltfptr[1359] = (melt_ptr_t) &meltcdat->dstr_1262__SSTPD_PREDEF; meltcdat->dstr_1262__SSTPD_PREDEF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1262__SSTPD_PREDEF.val, "SSTPD_PREDEF", sizeof (meltcdat->dstr_1262__SSTPD_PREDEF.val)-1); meltcdat->dstr_1262__SSTPD_PREDEF.val[12] = (char)0 ; meltcdat->dstr_1262__SSTPD_PREDEF.slen = 12 ; /*^iniobj*/ /*iniobj dobj_1263__SSTPD_PREDEF*/ /*_._VALDATA___V1354*/ meltfptr[1353] = (melt_ptr_t )&meltcdat->dobj_1263__SSTPD_PREDEF; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1263__SSTPD_PREDEF", 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_1263__SSTPD_PREDEF", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1263__SSTPD_PREDEF.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_1263__SSTPD_PREDEF.obj_num = 2; meltcdat->dobj_1263__SSTPD_PREDEF.obj_hash = 515589488; meltcdat->dobj_1263__SSTPD_PREDEF.obj_len = 4; /*inistring dstr_1264__SSTPD_PREDEF*/ /*_._VALSTR___V1355*/ meltfptr[1354] = (melt_ptr_t) &meltcdat->dstr_1264__SSTPD_PREDEF; meltcdat->dstr_1264__SSTPD_PREDEF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1264__SSTPD_PREDEF.val, "SSTPD_PREDEF", sizeof (meltcdat->dstr_1264__SSTPD_PREDEF.val)-1); meltcdat->dstr_1264__SSTPD_PREDEF.val[12] = (char)0 ; meltcdat->dstr_1264__SSTPD_PREDEF.slen = 12 ; /*iniobj dsym_1265__SSTPD_VALUE*/ /*uniqueobj*/ if (!/*_._VALDATA___V1361*/ meltfptr[1360]) /*_._VALDATA___V1361*/ meltfptr[1360] = (melt_ptr_t )&meltcdat->dsym_1265__SSTPD_VALUE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1265__SSTPD_VALUE", 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_1265__SSTPD_VALUE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1265__SSTPD_VALUE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1265__SSTPD_VALUE.obj_hash = 43381534; meltcdat->dsym_1265__SSTPD_VALUE.obj_len = 3; /*inistring dstr_1266__SSTPD_VALUE*/ /*_._VALSTR___V1362*/ meltfptr[1361] = (melt_ptr_t) &meltcdat->dstr_1266__SSTPD_VALUE; meltcdat->dstr_1266__SSTPD_VALUE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1266__SSTPD_VALUE.val, "SSTPD_VALUE", sizeof (meltcdat->dstr_1266__SSTPD_VALUE.val)-1); meltcdat->dstr_1266__SSTPD_VALUE.val[11] = (char)0 ; meltcdat->dstr_1266__SSTPD_VALUE.slen = 11 ; /*^iniobj*/ /*iniobj dobj_1267__SSTPD_VALUE*/ /*_._VALDATA___V1356*/ meltfptr[1355] = (melt_ptr_t )&meltcdat->dobj_1267__SSTPD_VALUE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1267__SSTPD_VALUE", 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_1267__SSTPD_VALUE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1267__SSTPD_VALUE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_1267__SSTPD_VALUE.obj_num = 3; meltcdat->dobj_1267__SSTPD_VALUE.obj_hash = 516843004; meltcdat->dobj_1267__SSTPD_VALUE.obj_len = 4; /*inistring dstr_1268__SSTPD_VALUE*/ /*_._VALSTR___V1357*/ meltfptr[1356] = (melt_ptr_t) &meltcdat->dstr_1268__SSTPD_VALUE; meltcdat->dstr_1268__SSTPD_VALUE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1268__SSTPD_VALUE.val, "SSTPD_VALUE", sizeof (meltcdat->dstr_1268__SSTPD_VALUE.val)-1); meltcdat->dstr_1268__SSTPD_VALUE.val[11] = (char)0 ; meltcdat->dstr_1268__SSTPD_VALUE.slen = 11 ; /*iniobj dsym_1269__CLASS_SOURCE_PROTOCHUNK*/ /*uniqueobj*/ if (!/*_._VALDATA___V1363*/ meltfptr[1362]) /*_._VALDATA___V1363*/ meltfptr[1362] = (melt_ptr_t )&meltcdat->dsym_1269__CLASS_SOURCE_PROTOCHUNK; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1269__CLASS_SOURCE_PROTOCHUNK", 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_1269__CLASS_SOURCE_PROTOCHUNK", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1269__CLASS_SOURCE_PROTOCHUNK.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1269__CLASS_SOURCE_PROTOCHUNK.obj_hash = 401016283; meltcdat->dsym_1269__CLASS_SOURCE_PROTOCHUNK.obj_len = 3; /*inistring dstr_1270__CLASS_SOURCE_PROTOCHUNK*/ /*_._VALSTR___V1364*/ meltfptr[1363] = (melt_ptr_t) &meltcdat->dstr_1270__CLASS_SOURCE_PROTOCHUNK; meltcdat->dstr_1270__CLASS_SOURCE_PROTOCHUNK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1270__CLASS_SOURCE_PROTOCHUNK.val, "CLASS_SOURCE_PROTOCHUNK", sizeof (meltcdat->dstr_1270__CLASS_SOURCE_PROTOCHUNK.val)-1); meltcdat->dstr_1270__CLASS_SOURCE_PROTOCHUNK.val[23] = (char)0 ; meltcdat->dstr_1270__CLASS_SOURCE_PROTOCHUNK.slen = 23 ; MELT_LOCATION("warmelt-macro.melt:1296:/ iniobj"); /*iniobj dobj_1271__CLASS_SOURCE_PROTOCHUNK*/ /*_._VALDATA___V1365*/ meltfptr[1364] = (melt_ptr_t )&meltcdat->dobj_1271__CLASS_SOURCE_PROTOCHUNK; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1271__CLASS_SOURCE_PROTOCHUNK", 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_1271__CLASS_SOURCE_PROTOCHUNK", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1271__CLASS_SOURCE_PROTOCHUNK.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_1271__CLASS_SOURCE_PROTOCHUNK.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_1271__CLASS_SOURCE_PROTOCHUNK.obj_hash = 3159073; meltcdat->dobj_1271__CLASS_SOURCE_PROTOCHUNK.obj_len = 8; /*inistring dstr_1272__CLASS_SOURCE_PROTOCHUNK*/ /*_._VALSTR___V1366*/ meltfptr[1365] = (melt_ptr_t) &meltcdat->dstr_1272__CLASS_SOURCE_PROTOCHUNK; meltcdat->dstr_1272__CLASS_SOURCE_PROTOCHUNK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1272__CLASS_SOURCE_PROTOCHUNK.val, "CLASS_SOURCE_PROTOCHUNK", sizeof (meltcdat->dstr_1272__CLASS_SOURCE_PROTOCHUNK.val)-1); meltcdat->dstr_1272__CLASS_SOURCE_PROTOCHUNK.val[23] = (char)0 ; meltcdat->dstr_1272__CLASS_SOURCE_PROTOCHUNK.slen = 23 ; /*inimult dtup_1273_syCLASS_SOURCE_PROTOCHUNK*/ /*_._VALTUP___V1367*/ meltfptr[1366] = (melt_ptr_t) &meltcdat->dtup_1273_syCLASS_SOURCE_PROTOCHUNK; meltcdat->dtup_1273_syCLASS_SOURCE_PROTOCHUNK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1273_syCLASS_SOURCE_PROTOCHUNK.nbval = 4; /*inimult dtup_1274_syCLASS_SOURCE_PROTOCHUNK*/ /*_._VALTUP___V1372*/ meltfptr[1371] = (melt_ptr_t) &meltcdat->dtup_1274_syCLASS_SOURCE_PROTOCHUNK; meltcdat->dtup_1274_syCLASS_SOURCE_PROTOCHUNK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1274_syCLASS_SOURCE_PROTOCHUNK.nbval = 4; /*iniobj dsym_1275__SCH_GENSYM*/ /*uniqueobj*/ if (!/*_._VALDATA___V1373*/ meltfptr[1372]) /*_._VALDATA___V1373*/ meltfptr[1372] = (melt_ptr_t )&meltcdat->dsym_1275__SCH_GENSYM; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1275__SCH_GENSYM", 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_1275__SCH_GENSYM", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1275__SCH_GENSYM.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1275__SCH_GENSYM.obj_hash = 975191019; meltcdat->dsym_1275__SCH_GENSYM.obj_len = 3; /*inistring dstr_1276__SCH_GENSYM*/ /*_._VALSTR___V1374*/ meltfptr[1373] = (melt_ptr_t) &meltcdat->dstr_1276__SCH_GENSYM; meltcdat->dstr_1276__SCH_GENSYM.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1276__SCH_GENSYM.val, "SCH_GENSYM", sizeof (meltcdat->dstr_1276__SCH_GENSYM.val)-1); meltcdat->dstr_1276__SCH_GENSYM.val[10] = (char)0 ; meltcdat->dstr_1276__SCH_GENSYM.slen = 10 ; /*^iniobj*/ /*iniobj dobj_1277__SCH_GENSYM*/ /*_._VALDATA___V1368*/ meltfptr[1367] = (melt_ptr_t )&meltcdat->dobj_1277__SCH_GENSYM; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1277__SCH_GENSYM", 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_1277__SCH_GENSYM", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1277__SCH_GENSYM.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_1277__SCH_GENSYM.obj_num = 2; meltcdat->dobj_1277__SCH_GENSYM.obj_hash = 1031067183; meltcdat->dobj_1277__SCH_GENSYM.obj_len = 4; /*inistring dstr_1278__SCH_GENSYM*/ /*_._VALSTR___V1369*/ meltfptr[1368] = (melt_ptr_t) &meltcdat->dstr_1278__SCH_GENSYM; meltcdat->dstr_1278__SCH_GENSYM.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1278__SCH_GENSYM.val, "SCH_GENSYM", sizeof (meltcdat->dstr_1278__SCH_GENSYM.val)-1); meltcdat->dstr_1278__SCH_GENSYM.val[10] = (char)0 ; meltcdat->dstr_1278__SCH_GENSYM.slen = 10 ; /*iniobj dsym_1279__SCH_CHUNKS*/ /*uniqueobj*/ if (!/*_._VALDATA___V1375*/ meltfptr[1374]) /*_._VALDATA___V1375*/ meltfptr[1374] = (melt_ptr_t )&meltcdat->dsym_1279__SCH_CHUNKS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1279__SCH_CHUNKS", 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_1279__SCH_CHUNKS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1279__SCH_CHUNKS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1279__SCH_CHUNKS.obj_hash = 1040785972; meltcdat->dsym_1279__SCH_CHUNKS.obj_len = 3; /*inistring dstr_1280__SCH_CHUNKS*/ /*_._VALSTR___V1376*/ meltfptr[1375] = (melt_ptr_t) &meltcdat->dstr_1280__SCH_CHUNKS; meltcdat->dstr_1280__SCH_CHUNKS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1280__SCH_CHUNKS.val, "SCH_CHUNKS", sizeof (meltcdat->dstr_1280__SCH_CHUNKS.val)-1); meltcdat->dstr_1280__SCH_CHUNKS.val[10] = (char)0 ; meltcdat->dstr_1280__SCH_CHUNKS.slen = 10 ; /*^iniobj*/ /*iniobj dobj_1281__SCH_CHUNKS*/ /*_._VALDATA___V1370*/ meltfptr[1369] = (melt_ptr_t )&meltcdat->dobj_1281__SCH_CHUNKS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1281__SCH_CHUNKS", 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_1281__SCH_CHUNKS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1281__SCH_CHUNKS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_1281__SCH_CHUNKS.obj_num = 3; meltcdat->dobj_1281__SCH_CHUNKS.obj_hash = 574786332; meltcdat->dobj_1281__SCH_CHUNKS.obj_len = 4; /*inistring dstr_1282__SCH_CHUNKS*/ /*_._VALSTR___V1371*/ meltfptr[1370] = (melt_ptr_t) &meltcdat->dstr_1282__SCH_CHUNKS; meltcdat->dstr_1282__SCH_CHUNKS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1282__SCH_CHUNKS.val, "SCH_CHUNKS", sizeof (meltcdat->dstr_1282__SCH_CHUNKS.val)-1); meltcdat->dstr_1282__SCH_CHUNKS.val[10] = (char)0 ; meltcdat->dstr_1282__SCH_CHUNKS.slen = 10 ; /*iniobj dsym_1283__CLASS_SOURCE_CODECHUNK*/ /*uniqueobj*/ if (!/*_._VALDATA___V1377*/ meltfptr[1376]) /*_._VALDATA___V1377*/ meltfptr[1376] = (melt_ptr_t )&meltcdat->dsym_1283__CLASS_SOURCE_CODECHUNK; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1283__CLASS_SOURCE_CODECHUNK", 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_1283__CLASS_SOURCE_CODECHUNK", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1283__CLASS_SOURCE_CODECHUNK.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1283__CLASS_SOURCE_CODECHUNK.obj_hash = 935873793; meltcdat->dsym_1283__CLASS_SOURCE_CODECHUNK.obj_len = 3; /*inistring dstr_1284__CLASS_SOURCE_CODECHUNK*/ /*_._VALSTR___V1378*/ meltfptr[1377] = (melt_ptr_t) &meltcdat->dstr_1284__CLASS_SOURCE_CODECHUNK; meltcdat->dstr_1284__CLASS_SOURCE_CODECHUNK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1284__CLASS_SOURCE_CODECHUNK.val, "CLASS_SOURCE_CODECHUNK", sizeof (meltcdat->dstr_1284__CLASS_SOURCE_CODECHUNK.val)-1); meltcdat->dstr_1284__CLASS_SOURCE_CODECHUNK.val[22] = (char)0 ; meltcdat->dstr_1284__CLASS_SOURCE_CODECHUNK.slen = 22 ; MELT_LOCATION("warmelt-macro.melt:1304:/ iniobj"); /*iniobj dobj_1285__CLASS_SOURCE_CODECHUNK*/ /*_._VALDATA___V1379*/ meltfptr[1378] = (melt_ptr_t )&meltcdat->dobj_1285__CLASS_SOURCE_CODECHUNK; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1285__CLASS_SOURCE_CODECHUNK", 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_1285__CLASS_SOURCE_CODECHUNK", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1285__CLASS_SOURCE_CODECHUNK.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_1285__CLASS_SOURCE_CODECHUNK.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_1285__CLASS_SOURCE_CODECHUNK.obj_hash = 59664065; meltcdat->dobj_1285__CLASS_SOURCE_CODECHUNK.obj_len = 8; /*inistring dstr_1286__CLASS_SOURCE_CODECHUNK*/ /*_._VALSTR___V1380*/ meltfptr[1379] = (melt_ptr_t) &meltcdat->dstr_1286__CLASS_SOURCE_CODECHUNK; meltcdat->dstr_1286__CLASS_SOURCE_CODECHUNK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1286__CLASS_SOURCE_CODECHUNK.val, "CLASS_SOURCE_CODECHUNK", sizeof (meltcdat->dstr_1286__CLASS_SOURCE_CODECHUNK.val)-1); meltcdat->dstr_1286__CLASS_SOURCE_CODECHUNK.val[22] = (char)0 ; meltcdat->dstr_1286__CLASS_SOURCE_CODECHUNK.slen = 22 ; /*inimult dtup_1287_syCLASS_SOURCE_CODECHUNK*/ /*_._VALTUP___V1381*/ meltfptr[1380] = (melt_ptr_t) &meltcdat->dtup_1287_syCLASS_SOURCE_CODECHUNK; meltcdat->dtup_1287_syCLASS_SOURCE_CODECHUNK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1287_syCLASS_SOURCE_CODECHUNK.nbval = 5; /*inimult dtup_1288_syCLASS_SOURCE_CODECHUNK*/ /*_._VALTUP___V1382*/ meltfptr[1381] = (melt_ptr_t) &meltcdat->dtup_1288_syCLASS_SOURCE_CODECHUNK; meltcdat->dtup_1288_syCLASS_SOURCE_CODECHUNK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1288_syCLASS_SOURCE_CODECHUNK.nbval = 4; /*iniobj dsym_1289__CLASS_SOURCE_EXPRCHUNK*/ /*uniqueobj*/ if (!/*_._VALDATA___V1383*/ meltfptr[1382]) /*_._VALDATA___V1383*/ meltfptr[1382] = (melt_ptr_t )&meltcdat->dsym_1289__CLASS_SOURCE_EXPRCHUNK; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1289__CLASS_SOURCE_EXPRCHUNK", 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_1289__CLASS_SOURCE_EXPRCHUNK", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1289__CLASS_SOURCE_EXPRCHUNK.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1289__CLASS_SOURCE_EXPRCHUNK.obj_hash = 429395859; meltcdat->dsym_1289__CLASS_SOURCE_EXPRCHUNK.obj_len = 3; /*inistring dstr_1290__CLASS_SOURCE_EXPRCHUNK*/ /*_._VALSTR___V1384*/ meltfptr[1383] = (melt_ptr_t) &meltcdat->dstr_1290__CLASS_SOURCE_EXPRCHUNK; meltcdat->dstr_1290__CLASS_SOURCE_EXPRCHUNK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1290__CLASS_SOURCE_EXPRCHUNK.val, "CLASS_SOURCE_EXPRCHUNK", sizeof (meltcdat->dstr_1290__CLASS_SOURCE_EXPRCHUNK.val)-1); meltcdat->dstr_1290__CLASS_SOURCE_EXPRCHUNK.val[22] = (char)0 ; meltcdat->dstr_1290__CLASS_SOURCE_EXPRCHUNK.slen = 22 ; MELT_LOCATION("warmelt-macro.melt:1310:/ iniobj"); /*iniobj dobj_1291__CLASS_SOURCE_EXPRCHUNK*/ /*_._VALDATA___V1385*/ meltfptr[1384] = (melt_ptr_t )&meltcdat->dobj_1291__CLASS_SOURCE_EXPRCHUNK; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1291__CLASS_SOURCE_EXPRCHUNK", 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_1291__CLASS_SOURCE_EXPRCHUNK", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1291__CLASS_SOURCE_EXPRCHUNK.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_1291__CLASS_SOURCE_EXPRCHUNK.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_1291__CLASS_SOURCE_EXPRCHUNK.obj_hash = 735793522; meltcdat->dobj_1291__CLASS_SOURCE_EXPRCHUNK.obj_len = 8; /*inistring dstr_1292__CLASS_SOURCE_EXPRCHUNK*/ /*_._VALSTR___V1386*/ meltfptr[1385] = (melt_ptr_t) &meltcdat->dstr_1292__CLASS_SOURCE_EXPRCHUNK; meltcdat->dstr_1292__CLASS_SOURCE_EXPRCHUNK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1292__CLASS_SOURCE_EXPRCHUNK.val, "CLASS_SOURCE_EXPRCHUNK", sizeof (meltcdat->dstr_1292__CLASS_SOURCE_EXPRCHUNK.val)-1); meltcdat->dstr_1292__CLASS_SOURCE_EXPRCHUNK.val[22] = (char)0 ; meltcdat->dstr_1292__CLASS_SOURCE_EXPRCHUNK.slen = 22 ; /*inimult dtup_1293_syCLASS_SOURCE_EXPRCHUNK*/ /*_._VALTUP___V1387*/ meltfptr[1386] = (melt_ptr_t) &meltcdat->dtup_1293_syCLASS_SOURCE_EXPRCHUNK; meltcdat->dtup_1293_syCLASS_SOURCE_EXPRCHUNK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1293_syCLASS_SOURCE_EXPRCHUNK.nbval = 5; /*inimult dtup_1294_syCLASS_SOURCE_EXPRCHUNK*/ /*_._VALTUP___V1390*/ meltfptr[1389] = (melt_ptr_t) &meltcdat->dtup_1294_syCLASS_SOURCE_EXPRCHUNK; meltcdat->dtup_1294_syCLASS_SOURCE_EXPRCHUNK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1294_syCLASS_SOURCE_EXPRCHUNK.nbval = 5; /*iniobj dsym_1295__SXCH_CTYPE*/ /*uniqueobj*/ if (!/*_._VALDATA___V1391*/ meltfptr[1390]) /*_._VALDATA___V1391*/ meltfptr[1390] = (melt_ptr_t )&meltcdat->dsym_1295__SXCH_CTYPE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1295__SXCH_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_1295__SXCH_CTYPE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1295__SXCH_CTYPE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1295__SXCH_CTYPE.obj_hash = 809874291; meltcdat->dsym_1295__SXCH_CTYPE.obj_len = 3; /*inistring dstr_1296__SXCH_CTYPE*/ /*_._VALSTR___V1392*/ meltfptr[1391] = (melt_ptr_t) &meltcdat->dstr_1296__SXCH_CTYPE; meltcdat->dstr_1296__SXCH_CTYPE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1296__SXCH_CTYPE.val, "SXCH_CTYPE", sizeof (meltcdat->dstr_1296__SXCH_CTYPE.val)-1); meltcdat->dstr_1296__SXCH_CTYPE.val[10] = (char)0 ; meltcdat->dstr_1296__SXCH_CTYPE.slen = 10 ; /*^iniobj*/ /*iniobj dobj_1297__SXCH_CTYPE*/ /*_._VALDATA___V1388*/ meltfptr[1387] = (melt_ptr_t )&meltcdat->dobj_1297__SXCH_CTYPE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1297__SXCH_CTYPE", 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_1297__SXCH_CTYPE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1297__SXCH_CTYPE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_1297__SXCH_CTYPE.obj_num = 4; meltcdat->dobj_1297__SXCH_CTYPE.obj_hash = 998503350; meltcdat->dobj_1297__SXCH_CTYPE.obj_len = 4; /*inistring dstr_1298__SXCH_CTYPE*/ /*_._VALSTR___V1389*/ meltfptr[1388] = (melt_ptr_t) &meltcdat->dstr_1298__SXCH_CTYPE; meltcdat->dstr_1298__SXCH_CTYPE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1298__SXCH_CTYPE.val, "SXCH_CTYPE", sizeof (meltcdat->dstr_1298__SXCH_CTYPE.val)-1); meltcdat->dstr_1298__SXCH_CTYPE.val[10] = (char)0 ; meltcdat->dstr_1298__SXCH_CTYPE.slen = 10 ; /*iniobj dsym_1299__CLASS_SOURCE_PATTERN*/ /*uniqueobj*/ if (!/*_._VALDATA___V1393*/ meltfptr[1392]) /*_._VALDATA___V1393*/ meltfptr[1392] = (melt_ptr_t )&meltcdat->dsym_1299__CLASS_SOURCE_PATTERN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1299__CLASS_SOURCE_PATTERN", 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_1299__CLASS_SOURCE_PATTERN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1299__CLASS_SOURCE_PATTERN.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1299__CLASS_SOURCE_PATTERN.obj_hash = 661483135; meltcdat->dsym_1299__CLASS_SOURCE_PATTERN.obj_len = 3; /*inistring dstr_1300__CLASS_SOURCE_PATTERN*/ /*_._VALSTR___V1394*/ meltfptr[1393] = (melt_ptr_t) &meltcdat->dstr_1300__CLASS_SOURCE_PATTERN; meltcdat->dstr_1300__CLASS_SOURCE_PATTERN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1300__CLASS_SOURCE_PATTERN.val, "CLASS_SOURCE_PATTERN", sizeof (meltcdat->dstr_1300__CLASS_SOURCE_PATTERN.val)-1); meltcdat->dstr_1300__CLASS_SOURCE_PATTERN.val[20] = (char)0 ; meltcdat->dstr_1300__CLASS_SOURCE_PATTERN.slen = 20 ; MELT_LOCATION("warmelt-macro.melt:1317:/ iniobj"); /*iniobj dobj_1301__CLASS_SOURCE_PATTERN*/ /*_._VALDATA___V1395*/ meltfptr[1394] = (melt_ptr_t )&meltcdat->dobj_1301__CLASS_SOURCE_PATTERN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1301__CLASS_SOURCE_PATTERN", 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_1301__CLASS_SOURCE_PATTERN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1301__CLASS_SOURCE_PATTERN.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_1301__CLASS_SOURCE_PATTERN.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_1301__CLASS_SOURCE_PATTERN.obj_hash = 687171341; meltcdat->dobj_1301__CLASS_SOURCE_PATTERN.obj_len = 8; /*inistring dstr_1302__CLASS_SOURCE_PATTERN*/ /*_._VALSTR___V1396*/ meltfptr[1395] = (melt_ptr_t) &meltcdat->dstr_1302__CLASS_SOURCE_PATTERN; meltcdat->dstr_1302__CLASS_SOURCE_PATTERN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1302__CLASS_SOURCE_PATTERN.val, "CLASS_SOURCE_PATTERN", sizeof (meltcdat->dstr_1302__CLASS_SOURCE_PATTERN.val)-1); meltcdat->dstr_1302__CLASS_SOURCE_PATTERN.val[20] = (char)0 ; meltcdat->dstr_1302__CLASS_SOURCE_PATTERN.slen = 20 ; /*inimult dtup_1303_syCLASS_SOURCE_PATTERN*/ /*_._VALTUP___V1397*/ meltfptr[1396] = (melt_ptr_t) &meltcdat->dtup_1303_syCLASS_SOURCE_PATTERN; meltcdat->dtup_1303_syCLASS_SOURCE_PATTERN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1303_syCLASS_SOURCE_PATTERN.nbval = 4; /*inimult dtup_1304_syCLASS_SOURCE_PATTERN*/ /*_._VALTUP___V1400*/ meltfptr[1399] = (melt_ptr_t) &meltcdat->dtup_1304_syCLASS_SOURCE_PATTERN; meltcdat->dtup_1304_syCLASS_SOURCE_PATTERN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1304_syCLASS_SOURCE_PATTERN.nbval = 3; /*iniobj dsym_1305__PAT_WEIGHT*/ /*uniqueobj*/ if (!/*_._VALDATA___V1401*/ meltfptr[1400]) /*_._VALDATA___V1401*/ meltfptr[1400] = (melt_ptr_t )&meltcdat->dsym_1305__PAT_WEIGHT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1305__PAT_WEIGHT", 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_1305__PAT_WEIGHT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1305__PAT_WEIGHT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1305__PAT_WEIGHT.obj_hash = 779594405; meltcdat->dsym_1305__PAT_WEIGHT.obj_len = 3; /*inistring dstr_1306__PAT_WEIGHT*/ /*_._VALSTR___V1402*/ meltfptr[1401] = (melt_ptr_t) &meltcdat->dstr_1306__PAT_WEIGHT; meltcdat->dstr_1306__PAT_WEIGHT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1306__PAT_WEIGHT.val, "PAT_WEIGHT", sizeof (meltcdat->dstr_1306__PAT_WEIGHT.val)-1); meltcdat->dstr_1306__PAT_WEIGHT.val[10] = (char)0 ; meltcdat->dstr_1306__PAT_WEIGHT.slen = 10 ; /*^iniobj*/ /*iniobj dobj_1307__PAT_WEIGHT*/ /*_._VALDATA___V1398*/ meltfptr[1397] = (melt_ptr_t )&meltcdat->dobj_1307__PAT_WEIGHT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1307__PAT_WEIGHT", 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_1307__PAT_WEIGHT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1307__PAT_WEIGHT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_1307__PAT_WEIGHT.obj_num = 2; meltcdat->dobj_1307__PAT_WEIGHT.obj_hash = 874449729; meltcdat->dobj_1307__PAT_WEIGHT.obj_len = 4; /*inistring dstr_1308__PAT_WEIGHT*/ /*_._VALSTR___V1399*/ meltfptr[1398] = (melt_ptr_t) &meltcdat->dstr_1308__PAT_WEIGHT; meltcdat->dstr_1308__PAT_WEIGHT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1308__PAT_WEIGHT.val, "PAT_WEIGHT", sizeof (meltcdat->dstr_1308__PAT_WEIGHT.val)-1); meltcdat->dstr_1308__PAT_WEIGHT.val[10] = (char)0 ; meltcdat->dstr_1308__PAT_WEIGHT.slen = 10 ; /*iniobj dsym_1309__CLASS_SOURCE_PATTERN_OR*/ /*uniqueobj*/ if (!/*_._VALDATA___V1403*/ meltfptr[1402]) /*_._VALDATA___V1403*/ meltfptr[1402] = (melt_ptr_t )&meltcdat->dsym_1309__CLASS_SOURCE_PATTERN_OR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1309__CLASS_SOURCE_PATTERN_OR", 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_1309__CLASS_SOURCE_PATTERN_OR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1309__CLASS_SOURCE_PATTERN_OR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1309__CLASS_SOURCE_PATTERN_OR.obj_hash = 982854125; meltcdat->dsym_1309__CLASS_SOURCE_PATTERN_OR.obj_len = 3; /*inistring dstr_1310__CLASS_SOURCE_PATTERN_OR*/ /*_._VALSTR___V1404*/ meltfptr[1403] = (melt_ptr_t) &meltcdat->dstr_1310__CLASS_SOURCE_PATTERN_OR; meltcdat->dstr_1310__CLASS_SOURCE_PATTERN_OR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1310__CLASS_SOURCE_PATTERN_OR.val, "CLASS_SOURCE_PATTERN_OR", sizeof (meltcdat->dstr_1310__CLASS_SOURCE_PATTERN_OR.val)-1); meltcdat->dstr_1310__CLASS_SOURCE_PATTERN_OR.val[23] = (char)0 ; meltcdat->dstr_1310__CLASS_SOURCE_PATTERN_OR.slen = 23 ; MELT_LOCATION("warmelt-macro.melt:1326:/ iniobj"); /*iniobj dobj_1311__CLASS_SOURCE_PATTERN_OR*/ /*_._VALDATA___V1405*/ meltfptr[1404] = (melt_ptr_t )&meltcdat->dobj_1311__CLASS_SOURCE_PATTERN_OR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1311__CLASS_SOURCE_PATTERN_OR", 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_1311__CLASS_SOURCE_PATTERN_OR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1311__CLASS_SOURCE_PATTERN_OR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_1311__CLASS_SOURCE_PATTERN_OR.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_1311__CLASS_SOURCE_PATTERN_OR.obj_hash = 853295889; meltcdat->dobj_1311__CLASS_SOURCE_PATTERN_OR.obj_len = 8; /*inistring dstr_1312__CLASS_SOURCE_PATTERN_OR*/ /*_._VALSTR___V1406*/ meltfptr[1405] = (melt_ptr_t) &meltcdat->dstr_1312__CLASS_SOURCE_PATTERN_OR; meltcdat->dstr_1312__CLASS_SOURCE_PATTERN_OR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1312__CLASS_SOURCE_PATTERN_OR.val, "CLASS_SOURCE_PATTERN_OR", sizeof (meltcdat->dstr_1312__CLASS_SOURCE_PATTERN_OR.val)-1); meltcdat->dstr_1312__CLASS_SOURCE_PATTERN_OR.val[23] = (char)0 ; meltcdat->dstr_1312__CLASS_SOURCE_PATTERN_OR.slen = 23 ; /*inimult dtup_1313_syCLASS_SOURCE_PATTERN_OR*/ /*_._VALTUP___V1407*/ meltfptr[1406] = (melt_ptr_t) &meltcdat->dtup_1313_syCLASS_SOURCE_PATTERN_OR; meltcdat->dtup_1313_syCLASS_SOURCE_PATTERN_OR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1313_syCLASS_SOURCE_PATTERN_OR.nbval = 5; /*inimult dtup_1314_syCLASS_SOURCE_PATTERN_OR*/ /*_._VALTUP___V1410*/ meltfptr[1409] = (melt_ptr_t) &meltcdat->dtup_1314_syCLASS_SOURCE_PATTERN_OR; meltcdat->dtup_1314_syCLASS_SOURCE_PATTERN_OR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1314_syCLASS_SOURCE_PATTERN_OR.nbval = 4; /*iniobj dsym_1315__ORPAT_DISJ*/ /*uniqueobj*/ if (!/*_._VALDATA___V1411*/ meltfptr[1410]) /*_._VALDATA___V1411*/ meltfptr[1410] = (melt_ptr_t )&meltcdat->dsym_1315__ORPAT_DISJ; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1315__ORPAT_DISJ", 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_1315__ORPAT_DISJ", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1315__ORPAT_DISJ.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1315__ORPAT_DISJ.obj_hash = 216093398; meltcdat->dsym_1315__ORPAT_DISJ.obj_len = 3; /*inistring dstr_1316__ORPAT_DISJ*/ /*_._VALSTR___V1412*/ meltfptr[1411] = (melt_ptr_t) &meltcdat->dstr_1316__ORPAT_DISJ; meltcdat->dstr_1316__ORPAT_DISJ.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1316__ORPAT_DISJ.val, "ORPAT_DISJ", sizeof (meltcdat->dstr_1316__ORPAT_DISJ.val)-1); meltcdat->dstr_1316__ORPAT_DISJ.val[10] = (char)0 ; meltcdat->dstr_1316__ORPAT_DISJ.slen = 10 ; /*^iniobj*/ /*iniobj dobj_1317__ORPAT_DISJ*/ /*_._VALDATA___V1408*/ meltfptr[1407] = (melt_ptr_t )&meltcdat->dobj_1317__ORPAT_DISJ; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1317__ORPAT_DISJ", 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_1317__ORPAT_DISJ", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1317__ORPAT_DISJ.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_1317__ORPAT_DISJ.obj_num = 3; meltcdat->dobj_1317__ORPAT_DISJ.obj_hash = 119765364; meltcdat->dobj_1317__ORPAT_DISJ.obj_len = 4; /*inistring dstr_1318__ORPAT_DISJ*/ /*_._VALSTR___V1409*/ meltfptr[1408] = (melt_ptr_t) &meltcdat->dstr_1318__ORPAT_DISJ; meltcdat->dstr_1318__ORPAT_DISJ.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1318__ORPAT_DISJ.val, "ORPAT_DISJ", sizeof (meltcdat->dstr_1318__ORPAT_DISJ.val)-1); meltcdat->dstr_1318__ORPAT_DISJ.val[10] = (char)0 ; meltcdat->dstr_1318__ORPAT_DISJ.slen = 10 ; /*iniobj dsym_1319__CLASS_SOURCE_PATTERN_AND*/ /*uniqueobj*/ if (!/*_._VALDATA___V1413*/ meltfptr[1412]) /*_._VALDATA___V1413*/ meltfptr[1412] = (melt_ptr_t )&meltcdat->dsym_1319__CLASS_SOURCE_PATTERN_AND; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1319__CLASS_SOURCE_PATTERN_AND", 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_1319__CLASS_SOURCE_PATTERN_AND", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1319__CLASS_SOURCE_PATTERN_AND.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1319__CLASS_SOURCE_PATTERN_AND.obj_hash = 584373249; meltcdat->dsym_1319__CLASS_SOURCE_PATTERN_AND.obj_len = 3; /*inistring dstr_1320__CLASS_SOURCE_PATTERN_AND*/ /*_._VALSTR___V1414*/ meltfptr[1413] = (melt_ptr_t) &meltcdat->dstr_1320__CLASS_SOURCE_PATTERN_AND; meltcdat->dstr_1320__CLASS_SOURCE_PATTERN_AND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1320__CLASS_SOURCE_PATTERN_AND.val, "CLASS_SOURCE_PATTERN_AND", sizeof (meltcdat->dstr_1320__CLASS_SOURCE_PATTERN_AND.val)-1); meltcdat->dstr_1320__CLASS_SOURCE_PATTERN_AND.val[24] = (char)0 ; meltcdat->dstr_1320__CLASS_SOURCE_PATTERN_AND.slen = 24 ; MELT_LOCATION("warmelt-macro.melt:1335:/ iniobj"); /*iniobj dobj_1321__CLASS_SOURCE_PATTERN_AND*/ /*_._VALDATA___V1415*/ meltfptr[1414] = (melt_ptr_t )&meltcdat->dobj_1321__CLASS_SOURCE_PATTERN_AND; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1321__CLASS_SOURCE_PATTERN_AND", 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_1321__CLASS_SOURCE_PATTERN_AND", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1321__CLASS_SOURCE_PATTERN_AND.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_1321__CLASS_SOURCE_PATTERN_AND.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_1321__CLASS_SOURCE_PATTERN_AND.obj_hash = 202258114; meltcdat->dobj_1321__CLASS_SOURCE_PATTERN_AND.obj_len = 8; /*inistring dstr_1322__CLASS_SOURCE_PATTERN_AND*/ /*_._VALSTR___V1416*/ meltfptr[1415] = (melt_ptr_t) &meltcdat->dstr_1322__CLASS_SOURCE_PATTERN_AND; meltcdat->dstr_1322__CLASS_SOURCE_PATTERN_AND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1322__CLASS_SOURCE_PATTERN_AND.val, "CLASS_SOURCE_PATTERN_AND", sizeof (meltcdat->dstr_1322__CLASS_SOURCE_PATTERN_AND.val)-1); meltcdat->dstr_1322__CLASS_SOURCE_PATTERN_AND.val[24] = (char)0 ; meltcdat->dstr_1322__CLASS_SOURCE_PATTERN_AND.slen = 24 ; /*inimult dtup_1323_syCLASS_SOURCE_PATTERN_AND*/ /*_._VALTUP___V1417*/ meltfptr[1416] = (melt_ptr_t) &meltcdat->dtup_1323_syCLASS_SOURCE_PATTERN_AND; meltcdat->dtup_1323_syCLASS_SOURCE_PATTERN_AND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1323_syCLASS_SOURCE_PATTERN_AND.nbval = 5; /*inimult dtup_1324_syCLASS_SOURCE_PATTERN_AND*/ /*_._VALTUP___V1420*/ meltfptr[1419] = (melt_ptr_t) &meltcdat->dtup_1324_syCLASS_SOURCE_PATTERN_AND; meltcdat->dtup_1324_syCLASS_SOURCE_PATTERN_AND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1324_syCLASS_SOURCE_PATTERN_AND.nbval = 4; /*iniobj dsym_1325__ANDPAT_CONJ*/ /*uniqueobj*/ if (!/*_._VALDATA___V1421*/ meltfptr[1420]) /*_._VALDATA___V1421*/ meltfptr[1420] = (melt_ptr_t )&meltcdat->dsym_1325__ANDPAT_CONJ; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1325__ANDPAT_CONJ", 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_1325__ANDPAT_CONJ", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1325__ANDPAT_CONJ.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1325__ANDPAT_CONJ.obj_hash = 118332178; meltcdat->dsym_1325__ANDPAT_CONJ.obj_len = 3; /*inistring dstr_1326__ANDPAT_CONJ*/ /*_._VALSTR___V1422*/ meltfptr[1421] = (melt_ptr_t) &meltcdat->dstr_1326__ANDPAT_CONJ; meltcdat->dstr_1326__ANDPAT_CONJ.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1326__ANDPAT_CONJ.val, "ANDPAT_CONJ", sizeof (meltcdat->dstr_1326__ANDPAT_CONJ.val)-1); meltcdat->dstr_1326__ANDPAT_CONJ.val[11] = (char)0 ; meltcdat->dstr_1326__ANDPAT_CONJ.slen = 11 ; /*^iniobj*/ /*iniobj dobj_1327__ANDPAT_CONJ*/ /*_._VALDATA___V1418*/ meltfptr[1417] = (melt_ptr_t )&meltcdat->dobj_1327__ANDPAT_CONJ; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1327__ANDPAT_CONJ", 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_1327__ANDPAT_CONJ", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1327__ANDPAT_CONJ.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_1327__ANDPAT_CONJ.obj_num = 3; meltcdat->dobj_1327__ANDPAT_CONJ.obj_hash = 46534093; meltcdat->dobj_1327__ANDPAT_CONJ.obj_len = 4; /*inistring dstr_1328__ANDPAT_CONJ*/ /*_._VALSTR___V1419*/ meltfptr[1418] = (melt_ptr_t) &meltcdat->dstr_1328__ANDPAT_CONJ; meltcdat->dstr_1328__ANDPAT_CONJ.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1328__ANDPAT_CONJ.val, "ANDPAT_CONJ", sizeof (meltcdat->dstr_1328__ANDPAT_CONJ.val)-1); meltcdat->dstr_1328__ANDPAT_CONJ.val[11] = (char)0 ; meltcdat->dstr_1328__ANDPAT_CONJ.slen = 11 ; /*iniobj dsym_1329__CLASS_SOURCE_PATTERN_WHEN*/ /*uniqueobj*/ if (!/*_._VALDATA___V1423*/ meltfptr[1422]) /*_._VALDATA___V1423*/ meltfptr[1422] = (melt_ptr_t )&meltcdat->dsym_1329__CLASS_SOURCE_PATTERN_WHEN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1329__CLASS_SOURCE_PATTERN_WHEN", 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_1329__CLASS_SOURCE_PATTERN_WHEN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1329__CLASS_SOURCE_PATTERN_WHEN.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1329__CLASS_SOURCE_PATTERN_WHEN.obj_hash = 708177706; meltcdat->dsym_1329__CLASS_SOURCE_PATTERN_WHEN.obj_len = 3; /*inistring dstr_1330__CLASS_SOURCE_PATTERN_WHE*/ /*_._VALSTR___V1424*/ meltfptr[1423] = (melt_ptr_t) &meltcdat->dstr_1330__CLASS_SOURCE_PATTERN_WHE; meltcdat->dstr_1330__CLASS_SOURCE_PATTERN_WHE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1330__CLASS_SOURCE_PATTERN_WHE.val, "CLASS_SOURCE_PATTERN_WHEN", sizeof (meltcdat->dstr_1330__CLASS_SOURCE_PATTERN_WHE.val)-1); meltcdat->dstr_1330__CLASS_SOURCE_PATTERN_WHE.val[25] = (char)0 ; meltcdat->dstr_1330__CLASS_SOURCE_PATTERN_WHE.slen = 25 ; MELT_LOCATION("warmelt-macro.melt:1344:/ iniobj"); /*iniobj dobj_1331__CLASS_SOURCE_PATTERN_WHEN*/ /*_._VALDATA___V1425*/ meltfptr[1424] = (melt_ptr_t )&meltcdat->dobj_1331__CLASS_SOURCE_PATTERN_WHEN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1331__CLASS_SOURCE_PATTERN_WHEN", 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_1331__CLASS_SOURCE_PATTERN_WHEN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1331__CLASS_SOURCE_PATTERN_WHEN.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_1331__CLASS_SOURCE_PATTERN_WHEN.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_1331__CLASS_SOURCE_PATTERN_WHEN.obj_hash = 106950427; meltcdat->dobj_1331__CLASS_SOURCE_PATTERN_WHEN.obj_len = 8; /*inistring dstr_1332__CLASS_SOURCE_PATTERN_WHE*/ /*_._VALSTR___V1426*/ meltfptr[1425] = (melt_ptr_t) &meltcdat->dstr_1332__CLASS_SOURCE_PATTERN_WHE; meltcdat->dstr_1332__CLASS_SOURCE_PATTERN_WHE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1332__CLASS_SOURCE_PATTERN_WHE.val, "CLASS_SOURCE_PATTERN_WHEN", sizeof (meltcdat->dstr_1332__CLASS_SOURCE_PATTERN_WHE.val)-1); meltcdat->dstr_1332__CLASS_SOURCE_PATTERN_WHE.val[25] = (char)0 ; meltcdat->dstr_1332__CLASS_SOURCE_PATTERN_WHE.slen = 25 ; /*inimult dtup_1333_syCLASS_SOURCE_PATTERN_WHEN*/ /*_._VALTUP___V1427*/ meltfptr[1426] = (melt_ptr_t) &meltcdat->dtup_1333_syCLASS_SOURCE_PATTERN_WHEN; meltcdat->dtup_1333_syCLASS_SOURCE_PATTERN_WHEN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1333_syCLASS_SOURCE_PATTERN_WHEN.nbval = 5; /*inimult dtup_1334_syCLASS_SOURCE_PATTERN_WHEN*/ /*_._VALTUP___V1432*/ meltfptr[1431] = (melt_ptr_t) &meltcdat->dtup_1334_syCLASS_SOURCE_PATTERN_WHEN; meltcdat->dtup_1334_syCLASS_SOURCE_PATTERN_WHEN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1334_syCLASS_SOURCE_PATTERN_WHEN.nbval = 5; /*iniobj dsym_1335__WHENPAT_SUBPAT*/ /*uniqueobj*/ if (!/*_._VALDATA___V1433*/ meltfptr[1432]) /*_._VALDATA___V1433*/ meltfptr[1432] = (melt_ptr_t )&meltcdat->dsym_1335__WHENPAT_SUBPAT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1335__WHENPAT_SUBPAT", 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_1335__WHENPAT_SUBPAT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1335__WHENPAT_SUBPAT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1335__WHENPAT_SUBPAT.obj_hash = 629932822; meltcdat->dsym_1335__WHENPAT_SUBPAT.obj_len = 3; /*inistring dstr_1336__WHENPAT_SUBPAT*/ /*_._VALSTR___V1434*/ meltfptr[1433] = (melt_ptr_t) &meltcdat->dstr_1336__WHENPAT_SUBPAT; meltcdat->dstr_1336__WHENPAT_SUBPAT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1336__WHENPAT_SUBPAT.val, "WHENPAT_SUBPAT", sizeof (meltcdat->dstr_1336__WHENPAT_SUBPAT.val)-1); meltcdat->dstr_1336__WHENPAT_SUBPAT.val[14] = (char)0 ; meltcdat->dstr_1336__WHENPAT_SUBPAT.slen = 14 ; /*^iniobj*/ /*iniobj dobj_1337__WHENPAT_SUBPAT*/ /*_._VALDATA___V1428*/ meltfptr[1427] = (melt_ptr_t )&meltcdat->dobj_1337__WHENPAT_SUBPAT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1337__WHENPAT_SUBPAT", 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_1337__WHENPAT_SUBPAT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1337__WHENPAT_SUBPAT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_1337__WHENPAT_SUBPAT.obj_num = 3; meltcdat->dobj_1337__WHENPAT_SUBPAT.obj_hash = 548802534; meltcdat->dobj_1337__WHENPAT_SUBPAT.obj_len = 4; /*inistring dstr_1338__WHENPAT_SUBPAT*/ /*_._VALSTR___V1429*/ meltfptr[1428] = (melt_ptr_t) &meltcdat->dstr_1338__WHENPAT_SUBPAT; meltcdat->dstr_1338__WHENPAT_SUBPAT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1338__WHENPAT_SUBPAT.val, "WHENPAT_SUBPAT", sizeof (meltcdat->dstr_1338__WHENPAT_SUBPAT.val)-1); meltcdat->dstr_1338__WHENPAT_SUBPAT.val[14] = (char)0 ; meltcdat->dstr_1338__WHENPAT_SUBPAT.slen = 14 ; /*iniobj dsym_1339__WHENPAT_COND*/ /*uniqueobj*/ if (!/*_._VALDATA___V1435*/ meltfptr[1434]) /*_._VALDATA___V1435*/ meltfptr[1434] = (melt_ptr_t )&meltcdat->dsym_1339__WHENPAT_COND; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1339__WHENPAT_COND", 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_1339__WHENPAT_COND", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1339__WHENPAT_COND.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1339__WHENPAT_COND.obj_hash = 265933811; meltcdat->dsym_1339__WHENPAT_COND.obj_len = 3; /*inistring dstr_1340__WHENPAT_COND*/ /*_._VALSTR___V1436*/ meltfptr[1435] = (melt_ptr_t) &meltcdat->dstr_1340__WHENPAT_COND; meltcdat->dstr_1340__WHENPAT_COND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1340__WHENPAT_COND.val, "WHENPAT_COND", sizeof (meltcdat->dstr_1340__WHENPAT_COND.val)-1); meltcdat->dstr_1340__WHENPAT_COND.val[12] = (char)0 ; meltcdat->dstr_1340__WHENPAT_COND.slen = 12 ; /*^iniobj*/ /*iniobj dobj_1341__WHENPAT_COND*/ /*_._VALDATA___V1430*/ meltfptr[1429] = (melt_ptr_t )&meltcdat->dobj_1341__WHENPAT_COND; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1341__WHENPAT_COND", 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_1341__WHENPAT_COND", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1341__WHENPAT_COND.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_1341__WHENPAT_COND.obj_num = 4; meltcdat->dobj_1341__WHENPAT_COND.obj_hash = 224053097; meltcdat->dobj_1341__WHENPAT_COND.obj_len = 4; /*inistring dstr_1342__WHENPAT_COND*/ /*_._VALSTR___V1431*/ meltfptr[1430] = (melt_ptr_t) &meltcdat->dstr_1342__WHENPAT_COND; meltcdat->dstr_1342__WHENPAT_COND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1342__WHENPAT_COND.val, "WHENPAT_COND", sizeof (meltcdat->dstr_1342__WHENPAT_COND.val)-1); meltcdat->dstr_1342__WHENPAT_COND.val[12] = (char)0 ; meltcdat->dstr_1342__WHENPAT_COND.slen = 12 ; /*iniobj dsym_1343__CLASS_SOURCE_PATTERN_VARIABLE*/ /*uniqueobj*/ if (!/*_._VALDATA___V1437*/ meltfptr[1436]) /*_._VALDATA___V1437*/ meltfptr[1436] = (melt_ptr_t )&meltcdat->dsym_1343__CLASS_SOURCE_PATTERN_VARIABLE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1343__CLASS_SOURCE_PATTERN_VARIABLE", 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_1343__CLASS_SOURCE_PATTERN_VARIABLE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1343__CLASS_SOURCE_PATTERN_VARIABLE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1343__CLASS_SOURCE_PATTERN_VARIABLE.obj_hash = 852795053; meltcdat->dsym_1343__CLASS_SOURCE_PATTERN_VARIABLE.obj_len = 3; /*inistring dstr_1344__CLASS_SOURCE_PATTERN_VAR*/ /*_._VALSTR___V1438*/ meltfptr[1437] = (melt_ptr_t) &meltcdat->dstr_1344__CLASS_SOURCE_PATTERN_VAR; meltcdat->dstr_1344__CLASS_SOURCE_PATTERN_VAR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1344__CLASS_SOURCE_PATTERN_VAR.val, "CLASS_SOURCE_PATTERN_VARIABLE", sizeof (meltcdat->dstr_1344__CLASS_SOURCE_PATTERN_VAR.val)-1); meltcdat->dstr_1344__CLASS_SOURCE_PATTERN_VAR.val[29] = (char)0 ; meltcdat->dstr_1344__CLASS_SOURCE_PATTERN_VAR.slen = 29 ; MELT_LOCATION("warmelt-macro.melt:1356:/ iniobj"); /*iniobj dobj_1345__CLASS_SOURCE_PATTERN_VARIABLE*/ /*_._VALDATA___V1439*/ meltfptr[1438] = (melt_ptr_t )&meltcdat->dobj_1345__CLASS_SOURCE_PATTERN_VARIABLE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1345__CLASS_SOURCE_PATTERN_VARIABLE", 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_1345__CLASS_SOURCE_PATTERN_VARIABLE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1345__CLASS_SOURCE_PATTERN_VARIABLE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_1345__CLASS_SOURCE_PATTERN_VARIABLE.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_1345__CLASS_SOURCE_PATTERN_VARIABLE.obj_hash = 996740654; meltcdat->dobj_1345__CLASS_SOURCE_PATTERN_VARIABLE.obj_len = 8; /*inistring dstr_1346__CLASS_SOURCE_PATTERN_VAR*/ /*_._VALSTR___V1440*/ meltfptr[1439] = (melt_ptr_t) &meltcdat->dstr_1346__CLASS_SOURCE_PATTERN_VAR; meltcdat->dstr_1346__CLASS_SOURCE_PATTERN_VAR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1346__CLASS_SOURCE_PATTERN_VAR.val, "CLASS_SOURCE_PATTERN_VARIABLE", sizeof (meltcdat->dstr_1346__CLASS_SOURCE_PATTERN_VAR.val)-1); meltcdat->dstr_1346__CLASS_SOURCE_PATTERN_VAR.val[29] = (char)0 ; meltcdat->dstr_1346__CLASS_SOURCE_PATTERN_VAR.slen = 29 ; /*inimult dtup_1347_syCLASS_SOURCE_PATTERN_VARIABLE*/ /*_._VALTUP___V1441*/ meltfptr[1440] = (melt_ptr_t) &meltcdat->dtup_1347_syCLASS_SOURCE_PATTERN_VARIABLE; meltcdat->dtup_1347_syCLASS_SOURCE_PATTERN_VARIABLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1347_syCLASS_SOURCE_PATTERN_VARIABLE.nbval = 5; /*inimult dtup_1348_syCLASS_SOURCE_PATTERN_VARIABLE*/ /*_._VALTUP___V1446*/ meltfptr[1445] = (melt_ptr_t) &meltcdat->dtup_1348_syCLASS_SOURCE_PATTERN_VARIABLE; meltcdat->dtup_1348_syCLASS_SOURCE_PATTERN_VARIABLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1348_syCLASS_SOURCE_PATTERN_VARIABLE.nbval = 5; /*iniobj dsym_1349__SPATVAR_SYMB*/ /*uniqueobj*/ if (!/*_._VALDATA___V1447*/ meltfptr[1446]) /*_._VALDATA___V1447*/ meltfptr[1446] = (melt_ptr_t )&meltcdat->dsym_1349__SPATVAR_SYMB; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1349__SPATVAR_SYMB", 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_1349__SPATVAR_SYMB", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1349__SPATVAR_SYMB.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1349__SPATVAR_SYMB.obj_hash = 155043373; meltcdat->dsym_1349__SPATVAR_SYMB.obj_len = 3; /*inistring dstr_1350__SPATVAR_SYMB*/ /*_._VALSTR___V1448*/ meltfptr[1447] = (melt_ptr_t) &meltcdat->dstr_1350__SPATVAR_SYMB; meltcdat->dstr_1350__SPATVAR_SYMB.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1350__SPATVAR_SYMB.val, "SPATVAR_SYMB", sizeof (meltcdat->dstr_1350__SPATVAR_SYMB.val)-1); meltcdat->dstr_1350__SPATVAR_SYMB.val[12] = (char)0 ; meltcdat->dstr_1350__SPATVAR_SYMB.slen = 12 ; /*^iniobj*/ /*iniobj dobj_1351__SPATVAR_SYMB*/ /*_._VALDATA___V1442*/ meltfptr[1441] = (melt_ptr_t )&meltcdat->dobj_1351__SPATVAR_SYMB; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1351__SPATVAR_SYMB", 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_1351__SPATVAR_SYMB", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1351__SPATVAR_SYMB.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_1351__SPATVAR_SYMB.obj_num = 3; meltcdat->dobj_1351__SPATVAR_SYMB.obj_hash = 967685810; meltcdat->dobj_1351__SPATVAR_SYMB.obj_len = 4; /*inistring dstr_1352__SPATVAR_SYMB*/ /*_._VALSTR___V1443*/ meltfptr[1442] = (melt_ptr_t) &meltcdat->dstr_1352__SPATVAR_SYMB; meltcdat->dstr_1352__SPATVAR_SYMB.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1352__SPATVAR_SYMB.val, "SPATVAR_SYMB", sizeof (meltcdat->dstr_1352__SPATVAR_SYMB.val)-1); meltcdat->dstr_1352__SPATVAR_SYMB.val[12] = (char)0 ; meltcdat->dstr_1352__SPATVAR_SYMB.slen = 12 ; /*iniobj dsym_1353__SPATVAR_NBOCC*/ /*uniqueobj*/ if (!/*_._VALDATA___V1449*/ meltfptr[1448]) /*_._VALDATA___V1449*/ meltfptr[1448] = (melt_ptr_t )&meltcdat->dsym_1353__SPATVAR_NBOCC; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1353__SPATVAR_NBOCC", 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_1353__SPATVAR_NBOCC", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1353__SPATVAR_NBOCC.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1353__SPATVAR_NBOCC.obj_hash = 209601000; meltcdat->dsym_1353__SPATVAR_NBOCC.obj_len = 3; /*inistring dstr_1354__SPATVAR_NBOCC*/ /*_._VALSTR___V1450*/ meltfptr[1449] = (melt_ptr_t) &meltcdat->dstr_1354__SPATVAR_NBOCC; meltcdat->dstr_1354__SPATVAR_NBOCC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1354__SPATVAR_NBOCC.val, "SPATVAR_NBOCC", sizeof (meltcdat->dstr_1354__SPATVAR_NBOCC.val)-1); meltcdat->dstr_1354__SPATVAR_NBOCC.val[13] = (char)0 ; meltcdat->dstr_1354__SPATVAR_NBOCC.slen = 13 ; /*^iniobj*/ /*iniobj dobj_1355__SPATVAR_NBOCC*/ /*_._VALDATA___V1444*/ meltfptr[1443] = (melt_ptr_t )&meltcdat->dobj_1355__SPATVAR_NBOCC; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1355__SPATVAR_NBOCC", 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_1355__SPATVAR_NBOCC", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1355__SPATVAR_NBOCC.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_1355__SPATVAR_NBOCC.obj_num = 4; meltcdat->dobj_1355__SPATVAR_NBOCC.obj_hash = 759717114; meltcdat->dobj_1355__SPATVAR_NBOCC.obj_len = 4; /*inistring dstr_1356__SPATVAR_NBOCC*/ /*_._VALSTR___V1445*/ meltfptr[1444] = (melt_ptr_t) &meltcdat->dstr_1356__SPATVAR_NBOCC; meltcdat->dstr_1356__SPATVAR_NBOCC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1356__SPATVAR_NBOCC.val, "SPATVAR_NBOCC", sizeof (meltcdat->dstr_1356__SPATVAR_NBOCC.val)-1); meltcdat->dstr_1356__SPATVAR_NBOCC.val[13] = (char)0 ; meltcdat->dstr_1356__SPATVAR_NBOCC.slen = 13 ; /*iniobj dsym_1357__SPAT_VAR*/ /*uniqueobj*/ if (!/*_._VALDATA___V1451*/ meltfptr[1450]) /*_._VALDATA___V1451*/ meltfptr[1450] = (melt_ptr_t )&meltcdat->dsym_1357__SPAT_VAR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1357__SPAT_VAR", 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_1357__SPAT_VAR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1357__SPAT_VAR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1357__SPAT_VAR.obj_hash = 911310249; meltcdat->dsym_1357__SPAT_VAR.obj_len = 3; /*inistring dstr_1358__SPAT_VAR*/ /*_._VALSTR___V1452*/ meltfptr[1451] = (melt_ptr_t) &meltcdat->dstr_1358__SPAT_VAR; meltcdat->dstr_1358__SPAT_VAR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1358__SPAT_VAR.val, "SPAT_VAR", sizeof (meltcdat->dstr_1358__SPAT_VAR.val)-1); meltcdat->dstr_1358__SPAT_VAR.val[8] = (char)0 ; meltcdat->dstr_1358__SPAT_VAR.slen = 8 ; /*iniobj dsym_1359__CLASS_SOURCE_PATTERN_JOKER_VARIABLE*/ /*uniqueobj*/ if (!/*_._VALDATA___V1453*/ meltfptr[1452]) /*_._VALDATA___V1453*/ meltfptr[1452] = (melt_ptr_t )&meltcdat->dsym_1359__CLASS_SOURCE_PATTERN_JOKER_VARIABLE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1359__CLASS_SOURCE_PATTERN_JOKER_VARIABLE", 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_1359__CLASS_SOURCE_PATTERN_JOKER_VARIABLE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1359__CLASS_SOURCE_PATTERN_JOKER_VARIABLE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1359__CLASS_SOURCE_PATTERN_JOKER_VARIABLE.obj_hash = 407364272; meltcdat->dsym_1359__CLASS_SOURCE_PATTERN_JOKER_VARIABLE.obj_len = 3; /*inistring dstr_1360__CLASS_SOURCE_PATTERN_JOK*/ /*_._VALSTR___V1454*/ meltfptr[1453] = (melt_ptr_t) &meltcdat->dstr_1360__CLASS_SOURCE_PATTERN_JOK; meltcdat->dstr_1360__CLASS_SOURCE_PATTERN_JOK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1360__CLASS_SOURCE_PATTERN_JOK.val, "CLASS_SOURCE_PATTERN_JOKER_VARIABLE", sizeof (meltcdat->dstr_1360__CLASS_SOURCE_PATTERN_JOK.val)-1); meltcdat->dstr_1360__CLASS_SOURCE_PATTERN_JOK.val[35] = (char)0 ; meltcdat->dstr_1360__CLASS_SOURCE_PATTERN_JOK.slen = 35 ; MELT_LOCATION("warmelt-macro.melt:1367:/ iniobj"); /*iniobj dobj_1361__CLASS_SOURCE_PATTERN_JOKER_VARIABLE*/ /*_._VALDATA___V1455*/ meltfptr[1454] = (melt_ptr_t )&meltcdat->dobj_1361__CLASS_SOURCE_PATTERN_JOKER_VARIABLE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1361__CLASS_SOURCE_PATTERN_JOKER_VARIABLE", 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_1361__CLASS_SOURCE_PATTERN_JOKER_VARIABLE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1361__CLASS_SOURCE_PATTERN_JOKER_VARIABLE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_1361__CLASS_SOURCE_PATTERN_JOKER_VARIABLE.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_1361__CLASS_SOURCE_PATTERN_JOKER_VARIABLE.obj_hash = 12697651; meltcdat->dobj_1361__CLASS_SOURCE_PATTERN_JOKER_VARIABLE.obj_len = 8; /*inistring dstr_1362__CLASS_SOURCE_PATTERN_JOK*/ /*_._VALSTR___V1456*/ meltfptr[1455] = (melt_ptr_t) &meltcdat->dstr_1362__CLASS_SOURCE_PATTERN_JOK; meltcdat->dstr_1362__CLASS_SOURCE_PATTERN_JOK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1362__CLASS_SOURCE_PATTERN_JOK.val, "CLASS_SOURCE_PATTERN_JOKER_VARIABLE", sizeof (meltcdat->dstr_1362__CLASS_SOURCE_PATTERN_JOK.val)-1); meltcdat->dstr_1362__CLASS_SOURCE_PATTERN_JOK.val[35] = (char)0 ; meltcdat->dstr_1362__CLASS_SOURCE_PATTERN_JOK.slen = 35 ; /*inimult dtup_1363_syCLASS_SOURCE_PATTERN_JOKER_VARIABLE*/ /*_._VALTUP___V1457*/ meltfptr[1456] = (melt_ptr_t) &meltcdat->dtup_1363_syCLASS_SOURCE_PATTERN_JOKER_VARIABLE; meltcdat->dtup_1363_syCLASS_SOURCE_PATTERN_JOKER_VARIABLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1363_syCLASS_SOURCE_PATTERN_JOKER_VARIABLE.nbval = 6; /*inimult dtup_1364_syCLASS_SOURCE_PATTERN_JOKER_VARIABLE*/ /*_._VALTUP___V1458*/ meltfptr[1457] = (melt_ptr_t) &meltcdat->dtup_1364_syCLASS_SOURCE_PATTERN_JOKER_VARIABLE; meltcdat->dtup_1364_syCLASS_SOURCE_PATTERN_JOKER_VARIABLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1364_syCLASS_SOURCE_PATTERN_JOKER_VARIABLE.nbval = 5; /*iniobj dsym_1365__CLASS_SOURCE_PATTERN_CONSTANT*/ /*uniqueobj*/ if (!/*_._VALDATA___V1459*/ meltfptr[1458]) /*_._VALDATA___V1459*/ meltfptr[1458] = (melt_ptr_t )&meltcdat->dsym_1365__CLASS_SOURCE_PATTERN_CONSTANT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1365__CLASS_SOURCE_PATTERN_CONSTANT", 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_1365__CLASS_SOURCE_PATTERN_CONSTANT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1365__CLASS_SOURCE_PATTERN_CONSTANT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1365__CLASS_SOURCE_PATTERN_CONSTANT.obj_hash = 527380821; meltcdat->dsym_1365__CLASS_SOURCE_PATTERN_CONSTANT.obj_len = 3; /*inistring dstr_1366__CLASS_SOURCE_PATTERN_CON*/ /*_._VALSTR___V1460*/ meltfptr[1459] = (melt_ptr_t) &meltcdat->dstr_1366__CLASS_SOURCE_PATTERN_CON; meltcdat->dstr_1366__CLASS_SOURCE_PATTERN_CON.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1366__CLASS_SOURCE_PATTERN_CON.val, "CLASS_SOURCE_PATTERN_CONSTANT", sizeof (meltcdat->dstr_1366__CLASS_SOURCE_PATTERN_CON.val)-1); meltcdat->dstr_1366__CLASS_SOURCE_PATTERN_CON.val[29] = (char)0 ; meltcdat->dstr_1366__CLASS_SOURCE_PATTERN_CON.slen = 29 ; MELT_LOCATION("warmelt-macro.melt:1374:/ iniobj"); /*iniobj dobj_1367__CLASS_SOURCE_PATTERN_CONSTANT*/ /*_._VALDATA___V1461*/ meltfptr[1460] = (melt_ptr_t )&meltcdat->dobj_1367__CLASS_SOURCE_PATTERN_CONSTANT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1367__CLASS_SOURCE_PATTERN_CONSTANT", 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_1367__CLASS_SOURCE_PATTERN_CONSTANT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1367__CLASS_SOURCE_PATTERN_CONSTANT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_1367__CLASS_SOURCE_PATTERN_CONSTANT.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_1367__CLASS_SOURCE_PATTERN_CONSTANT.obj_hash = 830664184; meltcdat->dobj_1367__CLASS_SOURCE_PATTERN_CONSTANT.obj_len = 8; /*inistring dstr_1368__CLASS_SOURCE_PATTERN_CON*/ /*_._VALSTR___V1462*/ meltfptr[1461] = (melt_ptr_t) &meltcdat->dstr_1368__CLASS_SOURCE_PATTERN_CON; meltcdat->dstr_1368__CLASS_SOURCE_PATTERN_CON.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1368__CLASS_SOURCE_PATTERN_CON.val, "CLASS_SOURCE_PATTERN_CONSTANT", sizeof (meltcdat->dstr_1368__CLASS_SOURCE_PATTERN_CON.val)-1); meltcdat->dstr_1368__CLASS_SOURCE_PATTERN_CON.val[29] = (char)0 ; meltcdat->dstr_1368__CLASS_SOURCE_PATTERN_CON.slen = 29 ; /*inimult dtup_1369_syCLASS_SOURCE_PATTERN_CONSTANT*/ /*_._VALTUP___V1463*/ meltfptr[1462] = (melt_ptr_t) &meltcdat->dtup_1369_syCLASS_SOURCE_PATTERN_CONSTANT; meltcdat->dtup_1369_syCLASS_SOURCE_PATTERN_CONSTANT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1369_syCLASS_SOURCE_PATTERN_CONSTANT.nbval = 5; /*inimult dtup_1370_syCLASS_SOURCE_PATTERN_CONSTANT*/ /*_._VALTUP___V1466*/ meltfptr[1465] = (melt_ptr_t) &meltcdat->dtup_1370_syCLASS_SOURCE_PATTERN_CONSTANT; meltcdat->dtup_1370_syCLASS_SOURCE_PATTERN_CONSTANT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1370_syCLASS_SOURCE_PATTERN_CONSTANT.nbval = 4; /*iniobj dsym_1371__SPAT_CONSTX*/ /*uniqueobj*/ if (!/*_._VALDATA___V1467*/ meltfptr[1466]) /*_._VALDATA___V1467*/ meltfptr[1466] = (melt_ptr_t )&meltcdat->dsym_1371__SPAT_CONSTX; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1371__SPAT_CONSTX", 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_1371__SPAT_CONSTX", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1371__SPAT_CONSTX.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1371__SPAT_CONSTX.obj_hash = 943580435; meltcdat->dsym_1371__SPAT_CONSTX.obj_len = 3; /*inistring dstr_1372__SPAT_CONSTX*/ /*_._VALSTR___V1468*/ meltfptr[1467] = (melt_ptr_t) &meltcdat->dstr_1372__SPAT_CONSTX; meltcdat->dstr_1372__SPAT_CONSTX.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1372__SPAT_CONSTX.val, "SPAT_CONSTX", sizeof (meltcdat->dstr_1372__SPAT_CONSTX.val)-1); meltcdat->dstr_1372__SPAT_CONSTX.val[11] = (char)0 ; meltcdat->dstr_1372__SPAT_CONSTX.slen = 11 ; /*^iniobj*/ /*iniobj dobj_1373__SPAT_CONSTX*/ /*_._VALDATA___V1464*/ meltfptr[1463] = (melt_ptr_t )&meltcdat->dobj_1373__SPAT_CONSTX; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1373__SPAT_CONSTX", 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_1373__SPAT_CONSTX", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1373__SPAT_CONSTX.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_1373__SPAT_CONSTX.obj_num = 3; meltcdat->dobj_1373__SPAT_CONSTX.obj_hash = 57267230; meltcdat->dobj_1373__SPAT_CONSTX.obj_len = 4; /*inistring dstr_1374__SPAT_CONSTX*/ /*_._VALSTR___V1465*/ meltfptr[1464] = (melt_ptr_t) &meltcdat->dstr_1374__SPAT_CONSTX; meltcdat->dstr_1374__SPAT_CONSTX.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1374__SPAT_CONSTX.val, "SPAT_CONSTX", sizeof (meltcdat->dstr_1374__SPAT_CONSTX.val)-1); meltcdat->dstr_1374__SPAT_CONSTX.val[11] = (char)0 ; meltcdat->dstr_1374__SPAT_CONSTX.slen = 11 ; /*iniobj dsym_1375__CLASS_SOURCE_PATTERN_CONSTRUCT*/ /*uniqueobj*/ if (!/*_._VALDATA___V1469*/ meltfptr[1468]) /*_._VALDATA___V1469*/ meltfptr[1468] = (melt_ptr_t )&meltcdat->dsym_1375__CLASS_SOURCE_PATTERN_CONSTRUCT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1375__CLASS_SOURCE_PATTERN_CONSTRUCT", 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_1375__CLASS_SOURCE_PATTERN_CONSTRUCT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1375__CLASS_SOURCE_PATTERN_CONSTRUCT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1375__CLASS_SOURCE_PATTERN_CONSTRUCT.obj_hash = 432286397; meltcdat->dsym_1375__CLASS_SOURCE_PATTERN_CONSTRUCT.obj_len = 3; /*inistring dstr_1376__CLASS_SOURCE_PATTERN_CON*/ /*_._VALSTR___V1470*/ meltfptr[1469] = (melt_ptr_t) &meltcdat->dstr_1376__CLASS_SOURCE_PATTERN_CON; meltcdat->dstr_1376__CLASS_SOURCE_PATTERN_CON.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1376__CLASS_SOURCE_PATTERN_CON.val, "CLASS_SOURCE_PATTERN_CONSTRUCT", sizeof (meltcdat->dstr_1376__CLASS_SOURCE_PATTERN_CON.val)-1); meltcdat->dstr_1376__CLASS_SOURCE_PATTERN_CON.val[30] = (char)0 ; meltcdat->dstr_1376__CLASS_SOURCE_PATTERN_CON.slen = 30 ; MELT_LOCATION("warmelt-macro.melt:1383:/ iniobj"); /*iniobj dobj_1377__CLASS_SOURCE_PATTERN_CONSTRUCT*/ /*_._VALDATA___V1471*/ meltfptr[1470] = (melt_ptr_t )&meltcdat->dobj_1377__CLASS_SOURCE_PATTERN_CONSTRUCT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1377__CLASS_SOURCE_PATTERN_CONSTRUCT", 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_1377__CLASS_SOURCE_PATTERN_CONSTRUCT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1377__CLASS_SOURCE_PATTERN_CONSTRUCT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_1377__CLASS_SOURCE_PATTERN_CONSTRUCT.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_1377__CLASS_SOURCE_PATTERN_CONSTRUCT.obj_hash = 696476576; meltcdat->dobj_1377__CLASS_SOURCE_PATTERN_CONSTRUCT.obj_len = 8; /*inistring dstr_1378__CLASS_SOURCE_PATTERN_CON*/ /*_._VALSTR___V1472*/ meltfptr[1471] = (melt_ptr_t) &meltcdat->dstr_1378__CLASS_SOURCE_PATTERN_CON; meltcdat->dstr_1378__CLASS_SOURCE_PATTERN_CON.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1378__CLASS_SOURCE_PATTERN_CON.val, "CLASS_SOURCE_PATTERN_CONSTRUCT", sizeof (meltcdat->dstr_1378__CLASS_SOURCE_PATTERN_CON.val)-1); meltcdat->dstr_1378__CLASS_SOURCE_PATTERN_CON.val[30] = (char)0 ; meltcdat->dstr_1378__CLASS_SOURCE_PATTERN_CON.slen = 30 ; /*inimult dtup_1379_syCLASS_SOURCE_PATTERN_CONSTRUCT*/ /*_._VALTUP___V1473*/ meltfptr[1472] = (melt_ptr_t) &meltcdat->dtup_1379_syCLASS_SOURCE_PATTERN_CONSTRUCT; meltcdat->dtup_1379_syCLASS_SOURCE_PATTERN_CONSTRUCT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1379_syCLASS_SOURCE_PATTERN_CONSTRUCT.nbval = 5; /*inimult dtup_1380_syCLASS_SOURCE_PATTERN_CONSTRUCT*/ /*_._VALTUP___V1476*/ meltfptr[1475] = (melt_ptr_t) &meltcdat->dtup_1380_syCLASS_SOURCE_PATTERN_CONSTRUCT; meltcdat->dtup_1380_syCLASS_SOURCE_PATTERN_CONSTRUCT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1380_syCLASS_SOURCE_PATTERN_CONSTRUCT.nbval = 4; /*iniobj dsym_1381__CTPAT_SUBPA*/ /*uniqueobj*/ if (!/*_._VALDATA___V1477*/ meltfptr[1476]) /*_._VALDATA___V1477*/ meltfptr[1476] = (melt_ptr_t )&meltcdat->dsym_1381__CTPAT_SUBPA; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1381__CTPAT_SUBPA", 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_1381__CTPAT_SUBPA", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1381__CTPAT_SUBPA.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1381__CTPAT_SUBPA.obj_hash = 81625075; meltcdat->dsym_1381__CTPAT_SUBPA.obj_len = 3; /*inistring dstr_1382__CTPAT_SUBPA*/ /*_._VALSTR___V1478*/ meltfptr[1477] = (melt_ptr_t) &meltcdat->dstr_1382__CTPAT_SUBPA; meltcdat->dstr_1382__CTPAT_SUBPA.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1382__CTPAT_SUBPA.val, "CTPAT_SUBPA", sizeof (meltcdat->dstr_1382__CTPAT_SUBPA.val)-1); meltcdat->dstr_1382__CTPAT_SUBPA.val[11] = (char)0 ; meltcdat->dstr_1382__CTPAT_SUBPA.slen = 11 ; /*^iniobj*/ /*iniobj dobj_1383__CTPAT_SUBPA*/ /*_._VALDATA___V1474*/ meltfptr[1473] = (melt_ptr_t )&meltcdat->dobj_1383__CTPAT_SUBPA; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1383__CTPAT_SUBPA", 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_1383__CTPAT_SUBPA", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1383__CTPAT_SUBPA.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_1383__CTPAT_SUBPA.obj_num = 3; meltcdat->dobj_1383__CTPAT_SUBPA.obj_hash = 483526405; meltcdat->dobj_1383__CTPAT_SUBPA.obj_len = 4; /*inistring dstr_1384__CTPAT_SUBPA*/ /*_._VALSTR___V1475*/ meltfptr[1474] = (melt_ptr_t) &meltcdat->dstr_1384__CTPAT_SUBPA; meltcdat->dstr_1384__CTPAT_SUBPA.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1384__CTPAT_SUBPA.val, "CTPAT_SUBPA", sizeof (meltcdat->dstr_1384__CTPAT_SUBPA.val)-1); meltcdat->dstr_1384__CTPAT_SUBPA.val[11] = (char)0 ; meltcdat->dstr_1384__CTPAT_SUBPA.slen = 11 ; /*iniobj dsym_1385__CLASS_SOURCE_PATTERN_TUPLE*/ /*uniqueobj*/ if (!/*_._VALDATA___V1479*/ meltfptr[1478]) /*_._VALDATA___V1479*/ meltfptr[1478] = (melt_ptr_t )&meltcdat->dsym_1385__CLASS_SOURCE_PATTERN_TUPLE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1385__CLASS_SOURCE_PATTERN_TUPLE", 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_1385__CLASS_SOURCE_PATTERN_TUPLE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1385__CLASS_SOURCE_PATTERN_TUPLE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1385__CLASS_SOURCE_PATTERN_TUPLE.obj_hash = 475727285; meltcdat->dsym_1385__CLASS_SOURCE_PATTERN_TUPLE.obj_len = 3; /*inistring dstr_1386__CLASS_SOURCE_PATTERN_TUP*/ /*_._VALSTR___V1480*/ meltfptr[1479] = (melt_ptr_t) &meltcdat->dstr_1386__CLASS_SOURCE_PATTERN_TUP; meltcdat->dstr_1386__CLASS_SOURCE_PATTERN_TUP.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1386__CLASS_SOURCE_PATTERN_TUP.val, "CLASS_SOURCE_PATTERN_TUPLE", sizeof (meltcdat->dstr_1386__CLASS_SOURCE_PATTERN_TUP.val)-1); meltcdat->dstr_1386__CLASS_SOURCE_PATTERN_TUP.val[26] = (char)0 ; meltcdat->dstr_1386__CLASS_SOURCE_PATTERN_TUP.slen = 26 ; MELT_LOCATION("warmelt-macro.melt:1392:/ iniobj"); /*iniobj dobj_1387__CLASS_SOURCE_PATTERN_TUPLE*/ /*_._VALDATA___V1481*/ meltfptr[1480] = (melt_ptr_t )&meltcdat->dobj_1387__CLASS_SOURCE_PATTERN_TUPLE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1387__CLASS_SOURCE_PATTERN_TUPLE", 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_1387__CLASS_SOURCE_PATTERN_TUPLE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1387__CLASS_SOURCE_PATTERN_TUPLE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_1387__CLASS_SOURCE_PATTERN_TUPLE.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_1387__CLASS_SOURCE_PATTERN_TUPLE.obj_hash = 553026456; meltcdat->dobj_1387__CLASS_SOURCE_PATTERN_TUPLE.obj_len = 8; /*inistring dstr_1388__CLASS_SOURCE_PATTERN_TUP*/ /*_._VALSTR___V1482*/ meltfptr[1481] = (melt_ptr_t) &meltcdat->dstr_1388__CLASS_SOURCE_PATTERN_TUP; meltcdat->dstr_1388__CLASS_SOURCE_PATTERN_TUP.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1388__CLASS_SOURCE_PATTERN_TUP.val, "CLASS_SOURCE_PATTERN_TUPLE", sizeof (meltcdat->dstr_1388__CLASS_SOURCE_PATTERN_TUP.val)-1); meltcdat->dstr_1388__CLASS_SOURCE_PATTERN_TUP.val[26] = (char)0 ; meltcdat->dstr_1388__CLASS_SOURCE_PATTERN_TUP.slen = 26 ; /*inimult dtup_1389_syCLASS_SOURCE_PATTERN_TUPLE*/ /*_._VALTUP___V1483*/ meltfptr[1482] = (melt_ptr_t) &meltcdat->dtup_1389_syCLASS_SOURCE_PATTERN_TUPLE; meltcdat->dtup_1389_syCLASS_SOURCE_PATTERN_TUPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1389_syCLASS_SOURCE_PATTERN_TUPLE.nbval = 6; /*inimult dtup_1390_syCLASS_SOURCE_PATTERN_TUPLE*/ /*_._VALTUP___V1484*/ meltfptr[1483] = (melt_ptr_t) &meltcdat->dtup_1390_syCLASS_SOURCE_PATTERN_TUPLE; meltcdat->dtup_1390_syCLASS_SOURCE_PATTERN_TUPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1390_syCLASS_SOURCE_PATTERN_TUPLE.nbval = 4; /*iniobj dsym_1391__CLASS_SOURCE_PATTERN_LIST*/ /*uniqueobj*/ if (!/*_._VALDATA___V1485*/ meltfptr[1484]) /*_._VALDATA___V1485*/ meltfptr[1484] = (melt_ptr_t )&meltcdat->dsym_1391__CLASS_SOURCE_PATTERN_LIST; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1391__CLASS_SOURCE_PATTERN_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_1391__CLASS_SOURCE_PATTERN_LIST", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1391__CLASS_SOURCE_PATTERN_LIST.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1391__CLASS_SOURCE_PATTERN_LIST.obj_hash = 725656977; meltcdat->dsym_1391__CLASS_SOURCE_PATTERN_LIST.obj_len = 3; /*inistring dstr_1392__CLASS_SOURCE_PATTERN_LIS*/ /*_._VALSTR___V1486*/ meltfptr[1485] = (melt_ptr_t) &meltcdat->dstr_1392__CLASS_SOURCE_PATTERN_LIS; meltcdat->dstr_1392__CLASS_SOURCE_PATTERN_LIS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1392__CLASS_SOURCE_PATTERN_LIS.val, "CLASS_SOURCE_PATTERN_LIST", sizeof (meltcdat->dstr_1392__CLASS_SOURCE_PATTERN_LIS.val)-1); meltcdat->dstr_1392__CLASS_SOURCE_PATTERN_LIS.val[25] = (char)0 ; meltcdat->dstr_1392__CLASS_SOURCE_PATTERN_LIS.slen = 25 ; MELT_LOCATION("warmelt-macro.melt:1399:/ iniobj"); /*iniobj dobj_1393__CLASS_SOURCE_PATTERN_LIST*/ /*_._VALDATA___V1487*/ meltfptr[1486] = (melt_ptr_t )&meltcdat->dobj_1393__CLASS_SOURCE_PATTERN_LIST; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1393__CLASS_SOURCE_PATTERN_LIST", 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_1393__CLASS_SOURCE_PATTERN_LIST", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1393__CLASS_SOURCE_PATTERN_LIST.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_1393__CLASS_SOURCE_PATTERN_LIST.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_1393__CLASS_SOURCE_PATTERN_LIST.obj_hash = 528359283; meltcdat->dobj_1393__CLASS_SOURCE_PATTERN_LIST.obj_len = 8; /*inistring dstr_1394__CLASS_SOURCE_PATTERN_LIS*/ /*_._VALSTR___V1488*/ meltfptr[1487] = (melt_ptr_t) &meltcdat->dstr_1394__CLASS_SOURCE_PATTERN_LIS; meltcdat->dstr_1394__CLASS_SOURCE_PATTERN_LIS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1394__CLASS_SOURCE_PATTERN_LIS.val, "CLASS_SOURCE_PATTERN_LIST", sizeof (meltcdat->dstr_1394__CLASS_SOURCE_PATTERN_LIS.val)-1); meltcdat->dstr_1394__CLASS_SOURCE_PATTERN_LIS.val[25] = (char)0 ; meltcdat->dstr_1394__CLASS_SOURCE_PATTERN_LIS.slen = 25 ; /*inimult dtup_1395_syCLASS_SOURCE_PATTERN_LIST*/ /*_._VALTUP___V1489*/ meltfptr[1488] = (melt_ptr_t) &meltcdat->dtup_1395_syCLASS_SOURCE_PATTERN_LIST; meltcdat->dtup_1395_syCLASS_SOURCE_PATTERN_LIST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1395_syCLASS_SOURCE_PATTERN_LIST.nbval = 6; /*inimult dtup_1396_syCLASS_SOURCE_PATTERN_LIST*/ /*_._VALTUP___V1490*/ meltfptr[1489] = (melt_ptr_t) &meltcdat->dtup_1396_syCLASS_SOURCE_PATTERN_LIST; meltcdat->dtup_1396_syCLASS_SOURCE_PATTERN_LIST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1396_syCLASS_SOURCE_PATTERN_LIST.nbval = 4; /*iniobj dsym_1397__CLASS_SOURCE_PATTERN_OBJECT*/ /*uniqueobj*/ if (!/*_._VALDATA___V1491*/ meltfptr[1490]) /*_._VALDATA___V1491*/ meltfptr[1490] = (melt_ptr_t )&meltcdat->dsym_1397__CLASS_SOURCE_PATTERN_OBJECT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1397__CLASS_SOURCE_PATTERN_OBJECT", 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_1397__CLASS_SOURCE_PATTERN_OBJECT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1397__CLASS_SOURCE_PATTERN_OBJECT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1397__CLASS_SOURCE_PATTERN_OBJECT.obj_hash = 360759812; meltcdat->dsym_1397__CLASS_SOURCE_PATTERN_OBJECT.obj_len = 3; /*inistring dstr_1398__CLASS_SOURCE_PATTERN_OBJ*/ /*_._VALSTR___V1492*/ meltfptr[1491] = (melt_ptr_t) &meltcdat->dstr_1398__CLASS_SOURCE_PATTERN_OBJ; meltcdat->dstr_1398__CLASS_SOURCE_PATTERN_OBJ.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1398__CLASS_SOURCE_PATTERN_OBJ.val, "CLASS_SOURCE_PATTERN_OBJECT", sizeof (meltcdat->dstr_1398__CLASS_SOURCE_PATTERN_OBJ.val)-1); meltcdat->dstr_1398__CLASS_SOURCE_PATTERN_OBJ.val[27] = (char)0 ; meltcdat->dstr_1398__CLASS_SOURCE_PATTERN_OBJ.slen = 27 ; MELT_LOCATION("warmelt-macro.melt:1407:/ iniobj"); /*iniobj dobj_1399__CLASS_SOURCE_PATTERN_OBJECT*/ /*_._VALDATA___V1493*/ meltfptr[1492] = (melt_ptr_t )&meltcdat->dobj_1399__CLASS_SOURCE_PATTERN_OBJECT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1399__CLASS_SOURCE_PATTERN_OBJECT", 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_1399__CLASS_SOURCE_PATTERN_OBJECT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1399__CLASS_SOURCE_PATTERN_OBJECT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_1399__CLASS_SOURCE_PATTERN_OBJECT.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_1399__CLASS_SOURCE_PATTERN_OBJECT.obj_hash = 851070488; meltcdat->dobj_1399__CLASS_SOURCE_PATTERN_OBJECT.obj_len = 8; /*inistring dstr_1400__CLASS_SOURCE_PATTERN_OBJ*/ /*_._VALSTR___V1494*/ meltfptr[1493] = (melt_ptr_t) &meltcdat->dstr_1400__CLASS_SOURCE_PATTERN_OBJ; meltcdat->dstr_1400__CLASS_SOURCE_PATTERN_OBJ.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1400__CLASS_SOURCE_PATTERN_OBJ.val, "CLASS_SOURCE_PATTERN_OBJECT", sizeof (meltcdat->dstr_1400__CLASS_SOURCE_PATTERN_OBJ.val)-1); meltcdat->dstr_1400__CLASS_SOURCE_PATTERN_OBJ.val[27] = (char)0 ; meltcdat->dstr_1400__CLASS_SOURCE_PATTERN_OBJ.slen = 27 ; /*inimult dtup_1401_syCLASS_SOURCE_PATTERN_OBJECT*/ /*_._VALTUP___V1495*/ meltfptr[1494] = (melt_ptr_t) &meltcdat->dtup_1401_syCLASS_SOURCE_PATTERN_OBJECT; meltcdat->dtup_1401_syCLASS_SOURCE_PATTERN_OBJECT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1401_syCLASS_SOURCE_PATTERN_OBJECT.nbval = 5; /*inimult dtup_1402_syCLASS_SOURCE_PATTERN_OBJECT*/ /*_._VALTUP___V1500*/ meltfptr[1499] = (melt_ptr_t) &meltcdat->dtup_1402_syCLASS_SOURCE_PATTERN_OBJECT; meltcdat->dtup_1402_syCLASS_SOURCE_PATTERN_OBJECT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1402_syCLASS_SOURCE_PATTERN_OBJECT.nbval = 5; /*iniobj dsym_1403__SPAT_CLASS*/ /*uniqueobj*/ if (!/*_._VALDATA___V1501*/ meltfptr[1500]) /*_._VALDATA___V1501*/ meltfptr[1500] = (melt_ptr_t )&meltcdat->dsym_1403__SPAT_CLASS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1403__SPAT_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_1403__SPAT_CLASS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1403__SPAT_CLASS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1403__SPAT_CLASS.obj_hash = 940142683; meltcdat->dsym_1403__SPAT_CLASS.obj_len = 3; /*inistring dstr_1404__SPAT_CLASS*/ /*_._VALSTR___V1502*/ meltfptr[1501] = (melt_ptr_t) &meltcdat->dstr_1404__SPAT_CLASS; meltcdat->dstr_1404__SPAT_CLASS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1404__SPAT_CLASS.val, "SPAT_CLASS", sizeof (meltcdat->dstr_1404__SPAT_CLASS.val)-1); meltcdat->dstr_1404__SPAT_CLASS.val[10] = (char)0 ; meltcdat->dstr_1404__SPAT_CLASS.slen = 10 ; /*^iniobj*/ /*iniobj dobj_1405__SPAT_CLASS*/ /*_._VALDATA___V1496*/ meltfptr[1495] = (melt_ptr_t )&meltcdat->dobj_1405__SPAT_CLASS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1405__SPAT_CLASS", 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_1405__SPAT_CLASS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1405__SPAT_CLASS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_1405__SPAT_CLASS.obj_num = 3; meltcdat->dobj_1405__SPAT_CLASS.obj_hash = 295289709; meltcdat->dobj_1405__SPAT_CLASS.obj_len = 4; /*inistring dstr_1406__SPAT_CLASS*/ /*_._VALSTR___V1497*/ meltfptr[1496] = (melt_ptr_t) &meltcdat->dstr_1406__SPAT_CLASS; meltcdat->dstr_1406__SPAT_CLASS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1406__SPAT_CLASS.val, "SPAT_CLASS", sizeof (meltcdat->dstr_1406__SPAT_CLASS.val)-1); meltcdat->dstr_1406__SPAT_CLASS.val[10] = (char)0 ; meltcdat->dstr_1406__SPAT_CLASS.slen = 10 ; /*iniobj dsym_1407__SPAT_FIELDS*/ /*uniqueobj*/ if (!/*_._VALDATA___V1503*/ meltfptr[1502]) /*_._VALDATA___V1503*/ meltfptr[1502] = (melt_ptr_t )&meltcdat->dsym_1407__SPAT_FIELDS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1407__SPAT_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_1407__SPAT_FIELDS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1407__SPAT_FIELDS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1407__SPAT_FIELDS.obj_hash = 875114227; meltcdat->dsym_1407__SPAT_FIELDS.obj_len = 3; /*inistring dstr_1408__SPAT_FIELDS*/ /*_._VALSTR___V1504*/ meltfptr[1503] = (melt_ptr_t) &meltcdat->dstr_1408__SPAT_FIELDS; meltcdat->dstr_1408__SPAT_FIELDS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1408__SPAT_FIELDS.val, "SPAT_FIELDS", sizeof (meltcdat->dstr_1408__SPAT_FIELDS.val)-1); meltcdat->dstr_1408__SPAT_FIELDS.val[11] = (char)0 ; meltcdat->dstr_1408__SPAT_FIELDS.slen = 11 ; /*^iniobj*/ /*iniobj dobj_1409__SPAT_FIELDS*/ /*_._VALDATA___V1498*/ meltfptr[1497] = (melt_ptr_t )&meltcdat->dobj_1409__SPAT_FIELDS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1409__SPAT_FIELDS", 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_1409__SPAT_FIELDS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1409__SPAT_FIELDS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_1409__SPAT_FIELDS.obj_num = 4; meltcdat->dobj_1409__SPAT_FIELDS.obj_hash = 567703275; meltcdat->dobj_1409__SPAT_FIELDS.obj_len = 4; /*inistring dstr_1410__SPAT_FIELDS*/ /*_._VALSTR___V1499*/ meltfptr[1498] = (melt_ptr_t) &meltcdat->dstr_1410__SPAT_FIELDS; meltcdat->dstr_1410__SPAT_FIELDS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1410__SPAT_FIELDS.val, "SPAT_FIELDS", sizeof (meltcdat->dstr_1410__SPAT_FIELDS.val)-1); meltcdat->dstr_1410__SPAT_FIELDS.val[11] = (char)0 ; meltcdat->dstr_1410__SPAT_FIELDS.slen = 11 ; /*iniobj dsym_1411__CLASS_SOURCE_PATTERN_INSTANCE*/ /*uniqueobj*/ if (!/*_._VALDATA___V1505*/ meltfptr[1504]) /*_._VALDATA___V1505*/ meltfptr[1504] = (melt_ptr_t )&meltcdat->dsym_1411__CLASS_SOURCE_PATTERN_INSTANCE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1411__CLASS_SOURCE_PATTERN_INSTANCE", 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_1411__CLASS_SOURCE_PATTERN_INSTANCE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1411__CLASS_SOURCE_PATTERN_INSTANCE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1411__CLASS_SOURCE_PATTERN_INSTANCE.obj_hash = 835618963; meltcdat->dsym_1411__CLASS_SOURCE_PATTERN_INSTANCE.obj_len = 3; /*inistring dstr_1412__CLASS_SOURCE_PATTERN_INS*/ /*_._VALSTR___V1506*/ meltfptr[1505] = (melt_ptr_t) &meltcdat->dstr_1412__CLASS_SOURCE_PATTERN_INS; meltcdat->dstr_1412__CLASS_SOURCE_PATTERN_INS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1412__CLASS_SOURCE_PATTERN_INS.val, "CLASS_SOURCE_PATTERN_INSTANCE", sizeof (meltcdat->dstr_1412__CLASS_SOURCE_PATTERN_INS.val)-1); meltcdat->dstr_1412__CLASS_SOURCE_PATTERN_INS.val[29] = (char)0 ; meltcdat->dstr_1412__CLASS_SOURCE_PATTERN_INS.slen = 29 ; MELT_LOCATION("warmelt-macro.melt:1419:/ iniobj"); /*iniobj dobj_1413__CLASS_SOURCE_PATTERN_INSTANCE*/ /*_._VALDATA___V1507*/ meltfptr[1506] = (melt_ptr_t )&meltcdat->dobj_1413__CLASS_SOURCE_PATTERN_INSTANCE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1413__CLASS_SOURCE_PATTERN_INSTANCE", 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_1413__CLASS_SOURCE_PATTERN_INSTANCE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1413__CLASS_SOURCE_PATTERN_INSTANCE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_1413__CLASS_SOURCE_PATTERN_INSTANCE.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_1413__CLASS_SOURCE_PATTERN_INSTANCE.obj_hash = 305168382; meltcdat->dobj_1413__CLASS_SOURCE_PATTERN_INSTANCE.obj_len = 8; /*inistring dstr_1414__CLASS_SOURCE_PATTERN_INS*/ /*_._VALSTR___V1508*/ meltfptr[1507] = (melt_ptr_t) &meltcdat->dstr_1414__CLASS_SOURCE_PATTERN_INS; meltcdat->dstr_1414__CLASS_SOURCE_PATTERN_INS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1414__CLASS_SOURCE_PATTERN_INS.val, "CLASS_SOURCE_PATTERN_INSTANCE", sizeof (meltcdat->dstr_1414__CLASS_SOURCE_PATTERN_INS.val)-1); meltcdat->dstr_1414__CLASS_SOURCE_PATTERN_INS.val[29] = (char)0 ; meltcdat->dstr_1414__CLASS_SOURCE_PATTERN_INS.slen = 29 ; /*inimult dtup_1415_syCLASS_SOURCE_PATTERN_INSTANCE*/ /*_._VALTUP___V1509*/ meltfptr[1508] = (melt_ptr_t) &meltcdat->dtup_1415_syCLASS_SOURCE_PATTERN_INSTANCE; meltcdat->dtup_1415_syCLASS_SOURCE_PATTERN_INSTANCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1415_syCLASS_SOURCE_PATTERN_INSTANCE.nbval = 6; /*inimult dtup_1416_syCLASS_SOURCE_PATTERN_INSTANCE*/ /*_._VALTUP___V1510*/ meltfptr[1509] = (melt_ptr_t) &meltcdat->dtup_1416_syCLASS_SOURCE_PATTERN_INSTANCE; meltcdat->dtup_1416_syCLASS_SOURCE_PATTERN_INSTANCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1416_syCLASS_SOURCE_PATTERN_INSTANCE.nbval = 5; /*iniobj dsym_1417__CLASS_SOURCE_FIELD_PATTERN*/ /*uniqueobj*/ if (!/*_._VALDATA___V1511*/ meltfptr[1510]) /*_._VALDATA___V1511*/ meltfptr[1510] = (melt_ptr_t )&meltcdat->dsym_1417__CLASS_SOURCE_FIELD_PATTERN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1417__CLASS_SOURCE_FIELD_PATTERN", 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_1417__CLASS_SOURCE_FIELD_PATTERN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1417__CLASS_SOURCE_FIELD_PATTERN.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1417__CLASS_SOURCE_FIELD_PATTERN.obj_hash = 311715661; meltcdat->dsym_1417__CLASS_SOURCE_FIELD_PATTERN.obj_len = 3; /*inistring dstr_1418__CLASS_SOURCE_FIELD_PATTE*/ /*_._VALSTR___V1512*/ meltfptr[1511] = (melt_ptr_t) &meltcdat->dstr_1418__CLASS_SOURCE_FIELD_PATTE; meltcdat->dstr_1418__CLASS_SOURCE_FIELD_PATTE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1418__CLASS_SOURCE_FIELD_PATTE.val, "CLASS_SOURCE_FIELD_PATTERN", sizeof (meltcdat->dstr_1418__CLASS_SOURCE_FIELD_PATTE.val)-1); meltcdat->dstr_1418__CLASS_SOURCE_FIELD_PATTE.val[26] = (char)0 ; meltcdat->dstr_1418__CLASS_SOURCE_FIELD_PATTE.slen = 26 ; MELT_LOCATION("warmelt-macro.melt:1427:/ iniobj"); /*iniobj dobj_1419__CLASS_SOURCE_FIELD_PATTERN*/ /*_._VALDATA___V1513*/ meltfptr[1512] = (melt_ptr_t )&meltcdat->dobj_1419__CLASS_SOURCE_FIELD_PATTERN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1419__CLASS_SOURCE_FIELD_PATTERN", 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_1419__CLASS_SOURCE_FIELD_PATTERN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1419__CLASS_SOURCE_FIELD_PATTERN.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_1419__CLASS_SOURCE_FIELD_PATTERN.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_1419__CLASS_SOURCE_FIELD_PATTERN.obj_hash = 601224199; meltcdat->dobj_1419__CLASS_SOURCE_FIELD_PATTERN.obj_len = 8; /*inistring dstr_1420__CLASS_SOURCE_FIELD_PATTE*/ /*_._VALSTR___V1514*/ meltfptr[1513] = (melt_ptr_t) &meltcdat->dstr_1420__CLASS_SOURCE_FIELD_PATTE; meltcdat->dstr_1420__CLASS_SOURCE_FIELD_PATTE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1420__CLASS_SOURCE_FIELD_PATTE.val, "CLASS_SOURCE_FIELD_PATTERN", sizeof (meltcdat->dstr_1420__CLASS_SOURCE_FIELD_PATTE.val)-1); meltcdat->dstr_1420__CLASS_SOURCE_FIELD_PATTE.val[26] = (char)0 ; meltcdat->dstr_1420__CLASS_SOURCE_FIELD_PATTE.slen = 26 ; /*inimult dtup_1421_syCLASS_SOURCE_FIELD_PATTERN*/ /*_._VALTUP___V1515*/ meltfptr[1514] = (melt_ptr_t) &meltcdat->dtup_1421_syCLASS_SOURCE_FIELD_PATTERN; meltcdat->dtup_1421_syCLASS_SOURCE_FIELD_PATTERN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1421_syCLASS_SOURCE_FIELD_PATTERN.nbval = 4; /*inimult dtup_1422_syCLASS_SOURCE_FIELD_PATTERN*/ /*_._VALTUP___V1520*/ meltfptr[1519] = (melt_ptr_t) &meltcdat->dtup_1422_syCLASS_SOURCE_FIELD_PATTERN; meltcdat->dtup_1422_syCLASS_SOURCE_FIELD_PATTERN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1422_syCLASS_SOURCE_FIELD_PATTERN.nbval = 4; /*iniobj dsym_1423__SPAF_FIELD*/ /*uniqueobj*/ if (!/*_._VALDATA___V1521*/ meltfptr[1520]) /*_._VALDATA___V1521*/ meltfptr[1520] = (melt_ptr_t )&meltcdat->dsym_1423__SPAF_FIELD; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1423__SPAF_FIELD", 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_1423__SPAF_FIELD", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1423__SPAF_FIELD.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1423__SPAF_FIELD.obj_hash = 149103823; meltcdat->dsym_1423__SPAF_FIELD.obj_len = 3; /*inistring dstr_1424__SPAF_FIELD*/ /*_._VALSTR___V1522*/ meltfptr[1521] = (melt_ptr_t) &meltcdat->dstr_1424__SPAF_FIELD; meltcdat->dstr_1424__SPAF_FIELD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1424__SPAF_FIELD.val, "SPAF_FIELD", sizeof (meltcdat->dstr_1424__SPAF_FIELD.val)-1); meltcdat->dstr_1424__SPAF_FIELD.val[10] = (char)0 ; meltcdat->dstr_1424__SPAF_FIELD.slen = 10 ; /*^iniobj*/ /*iniobj dobj_1425__SPAF_FIELD*/ /*_._VALDATA___V1516*/ meltfptr[1515] = (melt_ptr_t )&meltcdat->dobj_1425__SPAF_FIELD; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1425__SPAF_FIELD", 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_1425__SPAF_FIELD", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1425__SPAF_FIELD.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_1425__SPAF_FIELD.obj_num = 2; meltcdat->dobj_1425__SPAF_FIELD.obj_hash = 822159621; meltcdat->dobj_1425__SPAF_FIELD.obj_len = 4; /*inistring dstr_1426__SPAF_FIELD*/ /*_._VALSTR___V1517*/ meltfptr[1516] = (melt_ptr_t) &meltcdat->dstr_1426__SPAF_FIELD; meltcdat->dstr_1426__SPAF_FIELD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1426__SPAF_FIELD.val, "SPAF_FIELD", sizeof (meltcdat->dstr_1426__SPAF_FIELD.val)-1); meltcdat->dstr_1426__SPAF_FIELD.val[10] = (char)0 ; meltcdat->dstr_1426__SPAF_FIELD.slen = 10 ; /*iniobj dsym_1427__SPAF_PATTERN*/ /*uniqueobj*/ if (!/*_._VALDATA___V1523*/ meltfptr[1522]) /*_._VALDATA___V1523*/ meltfptr[1522] = (melt_ptr_t )&meltcdat->dsym_1427__SPAF_PATTERN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1427__SPAF_PATTERN", 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_1427__SPAF_PATTERN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1427__SPAF_PATTERN.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1427__SPAF_PATTERN.obj_hash = 35901231; meltcdat->dsym_1427__SPAF_PATTERN.obj_len = 3; /*inistring dstr_1428__SPAF_PATTERN*/ /*_._VALSTR___V1524*/ meltfptr[1523] = (melt_ptr_t) &meltcdat->dstr_1428__SPAF_PATTERN; meltcdat->dstr_1428__SPAF_PATTERN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1428__SPAF_PATTERN.val, "SPAF_PATTERN", sizeof (meltcdat->dstr_1428__SPAF_PATTERN.val)-1); meltcdat->dstr_1428__SPAF_PATTERN.val[12] = (char)0 ; meltcdat->dstr_1428__SPAF_PATTERN.slen = 12 ; /*^iniobj*/ /*iniobj dobj_1429__SPAF_PATTERN*/ /*_._VALDATA___V1518*/ meltfptr[1517] = (melt_ptr_t )&meltcdat->dobj_1429__SPAF_PATTERN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1429__SPAF_PATTERN", 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_1429__SPAF_PATTERN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1429__SPAF_PATTERN.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_1429__SPAF_PATTERN.obj_num = 3; meltcdat->dobj_1429__SPAF_PATTERN.obj_hash = 176182643; meltcdat->dobj_1429__SPAF_PATTERN.obj_len = 4; /*inistring dstr_1430__SPAF_PATTERN*/ /*_._VALSTR___V1519*/ meltfptr[1518] = (melt_ptr_t) &meltcdat->dstr_1430__SPAF_PATTERN; meltcdat->dstr_1430__SPAF_PATTERN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1430__SPAF_PATTERN.val, "SPAF_PATTERN", sizeof (meltcdat->dstr_1430__SPAF_PATTERN.val)-1); meltcdat->dstr_1430__SPAF_PATTERN.val[12] = (char)0 ; meltcdat->dstr_1430__SPAF_PATTERN.slen = 12 ; /*iniobj dsym_1431__CLASS_SOURCE_PATTERN_COMPOSITE*/ /*uniqueobj*/ if (!/*_._VALDATA___V1525*/ meltfptr[1524]) /*_._VALDATA___V1525*/ meltfptr[1524] = (melt_ptr_t )&meltcdat->dsym_1431__CLASS_SOURCE_PATTERN_COMPOSITE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1431__CLASS_SOURCE_PATTERN_COMPOSITE", 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_1431__CLASS_SOURCE_PATTERN_COMPOSITE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1431__CLASS_SOURCE_PATTERN_COMPOSITE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1431__CLASS_SOURCE_PATTERN_COMPOSITE.obj_hash = 479810309; meltcdat->dsym_1431__CLASS_SOURCE_PATTERN_COMPOSITE.obj_len = 3; /*inistring dstr_1432__CLASS_SOURCE_PATTERN_COM*/ /*_._VALSTR___V1526*/ meltfptr[1525] = (melt_ptr_t) &meltcdat->dstr_1432__CLASS_SOURCE_PATTERN_COM; meltcdat->dstr_1432__CLASS_SOURCE_PATTERN_COM.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1432__CLASS_SOURCE_PATTERN_COM.val, "CLASS_SOURCE_PATTERN_COMPOSITE", sizeof (meltcdat->dstr_1432__CLASS_SOURCE_PATTERN_COM.val)-1); meltcdat->dstr_1432__CLASS_SOURCE_PATTERN_COM.val[30] = (char)0 ; meltcdat->dstr_1432__CLASS_SOURCE_PATTERN_COM.slen = 30 ; MELT_LOCATION("warmelt-macro.melt:1438:/ iniobj"); /*iniobj dobj_1433__CLASS_SOURCE_PATTERN_COMPOSITE*/ /*_._VALDATA___V1527*/ meltfptr[1526] = (melt_ptr_t )&meltcdat->dobj_1433__CLASS_SOURCE_PATTERN_COMPOSITE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1433__CLASS_SOURCE_PATTERN_COMPOSITE", 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_1433__CLASS_SOURCE_PATTERN_COMPOSITE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1433__CLASS_SOURCE_PATTERN_COMPOSITE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_1433__CLASS_SOURCE_PATTERN_COMPOSITE.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_1433__CLASS_SOURCE_PATTERN_COMPOSITE.obj_hash = 1044533395; meltcdat->dobj_1433__CLASS_SOURCE_PATTERN_COMPOSITE.obj_len = 8; /*inistring dstr_1434__CLASS_SOURCE_PATTERN_COM*/ /*_._VALSTR___V1528*/ meltfptr[1527] = (melt_ptr_t) &meltcdat->dstr_1434__CLASS_SOURCE_PATTERN_COM; meltcdat->dstr_1434__CLASS_SOURCE_PATTERN_COM.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1434__CLASS_SOURCE_PATTERN_COM.val, "CLASS_SOURCE_PATTERN_COMPOSITE", sizeof (meltcdat->dstr_1434__CLASS_SOURCE_PATTERN_COM.val)-1); meltcdat->dstr_1434__CLASS_SOURCE_PATTERN_COM.val[30] = (char)0 ; meltcdat->dstr_1434__CLASS_SOURCE_PATTERN_COM.slen = 30 ; /*inimult dtup_1435_syCLASS_SOURCE_PATTERN_COMPOSITE*/ /*_._VALTUP___V1529*/ meltfptr[1528] = (melt_ptr_t) &meltcdat->dtup_1435_syCLASS_SOURCE_PATTERN_COMPOSITE; meltcdat->dtup_1435_syCLASS_SOURCE_PATTERN_COMPOSITE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1435_syCLASS_SOURCE_PATTERN_COMPOSITE.nbval = 6; /*inimult dtup_1436_syCLASS_SOURCE_PATTERN_COMPOSITE*/ /*_._VALTUP___V1538*/ meltfptr[1537] = (melt_ptr_t) &meltcdat->dtup_1436_syCLASS_SOURCE_PATTERN_COMPOSITE; meltcdat->dtup_1436_syCLASS_SOURCE_PATTERN_COMPOSITE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1436_syCLASS_SOURCE_PATTERN_COMPOSITE.nbval = 9; /*iniobj dsym_1437__SPAC_OPERATOR*/ /*uniqueobj*/ if (!/*_._VALDATA___V1539*/ meltfptr[1538]) /*_._VALDATA___V1539*/ meltfptr[1538] = (melt_ptr_t )&meltcdat->dsym_1437__SPAC_OPERATOR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1437__SPAC_OPERATOR", 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_1437__SPAC_OPERATOR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1437__SPAC_OPERATOR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1437__SPAC_OPERATOR.obj_hash = 46865939; meltcdat->dsym_1437__SPAC_OPERATOR.obj_len = 3; /*inistring dstr_1438__SPAC_OPERATOR*/ /*_._VALSTR___V1540*/ meltfptr[1539] = (melt_ptr_t) &meltcdat->dstr_1438__SPAC_OPERATOR; meltcdat->dstr_1438__SPAC_OPERATOR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1438__SPAC_OPERATOR.val, "SPAC_OPERATOR", sizeof (meltcdat->dstr_1438__SPAC_OPERATOR.val)-1); meltcdat->dstr_1438__SPAC_OPERATOR.val[13] = (char)0 ; meltcdat->dstr_1438__SPAC_OPERATOR.slen = 13 ; /*^iniobj*/ /*iniobj dobj_1439__SPAC_OPERATOR*/ /*_._VALDATA___V1530*/ meltfptr[1529] = (melt_ptr_t )&meltcdat->dobj_1439__SPAC_OPERATOR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1439__SPAC_OPERATOR", 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_1439__SPAC_OPERATOR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1439__SPAC_OPERATOR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_1439__SPAC_OPERATOR.obj_num = 5; meltcdat->dobj_1439__SPAC_OPERATOR.obj_hash = 587276848; meltcdat->dobj_1439__SPAC_OPERATOR.obj_len = 4; /*inistring dstr_1440__SPAC_OPERATOR*/ /*_._VALSTR___V1531*/ meltfptr[1530] = (melt_ptr_t) &meltcdat->dstr_1440__SPAC_OPERATOR; meltcdat->dstr_1440__SPAC_OPERATOR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1440__SPAC_OPERATOR.val, "SPAC_OPERATOR", sizeof (meltcdat->dstr_1440__SPAC_OPERATOR.val)-1); meltcdat->dstr_1440__SPAC_OPERATOR.val[13] = (char)0 ; meltcdat->dstr_1440__SPAC_OPERATOR.slen = 13 ; /*iniobj dsym_1441__SPAC_OPERBIND*/ /*uniqueobj*/ if (!/*_._VALDATA___V1541*/ meltfptr[1540]) /*_._VALDATA___V1541*/ meltfptr[1540] = (melt_ptr_t )&meltcdat->dsym_1441__SPAC_OPERBIND; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1441__SPAC_OPERBIND", 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_1441__SPAC_OPERBIND", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1441__SPAC_OPERBIND.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1441__SPAC_OPERBIND.obj_hash = 465916132; meltcdat->dsym_1441__SPAC_OPERBIND.obj_len = 3; /*inistring dstr_1442__SPAC_OPERBIND*/ /*_._VALSTR___V1542*/ meltfptr[1541] = (melt_ptr_t) &meltcdat->dstr_1442__SPAC_OPERBIND; meltcdat->dstr_1442__SPAC_OPERBIND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1442__SPAC_OPERBIND.val, "SPAC_OPERBIND", sizeof (meltcdat->dstr_1442__SPAC_OPERBIND.val)-1); meltcdat->dstr_1442__SPAC_OPERBIND.val[13] = (char)0 ; meltcdat->dstr_1442__SPAC_OPERBIND.slen = 13 ; /*^iniobj*/ /*iniobj dobj_1443__SPAC_OPERBIND*/ /*_._VALDATA___V1532*/ meltfptr[1531] = (melt_ptr_t )&meltcdat->dobj_1443__SPAC_OPERBIND; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1443__SPAC_OPERBIND", 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_1443__SPAC_OPERBIND", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1443__SPAC_OPERBIND.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_1443__SPAC_OPERBIND.obj_num = 6; meltcdat->dobj_1443__SPAC_OPERBIND.obj_hash = 457219829; meltcdat->dobj_1443__SPAC_OPERBIND.obj_len = 4; /*inistring dstr_1444__SPAC_OPERBIND*/ /*_._VALSTR___V1533*/ meltfptr[1532] = (melt_ptr_t) &meltcdat->dstr_1444__SPAC_OPERBIND; meltcdat->dstr_1444__SPAC_OPERBIND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1444__SPAC_OPERBIND.val, "SPAC_OPERBIND", sizeof (meltcdat->dstr_1444__SPAC_OPERBIND.val)-1); meltcdat->dstr_1444__SPAC_OPERBIND.val[13] = (char)0 ; meltcdat->dstr_1444__SPAC_OPERBIND.slen = 13 ; /*iniobj dsym_1445__SPAC_INARGS*/ /*uniqueobj*/ if (!/*_._VALDATA___V1543*/ meltfptr[1542]) /*_._VALDATA___V1543*/ meltfptr[1542] = (melt_ptr_t )&meltcdat->dsym_1445__SPAC_INARGS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1445__SPAC_INARGS", 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_1445__SPAC_INARGS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1445__SPAC_INARGS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1445__SPAC_INARGS.obj_hash = 641829338; meltcdat->dsym_1445__SPAC_INARGS.obj_len = 3; /*inistring dstr_1446__SPAC_INARGS*/ /*_._VALSTR___V1544*/ meltfptr[1543] = (melt_ptr_t) &meltcdat->dstr_1446__SPAC_INARGS; meltcdat->dstr_1446__SPAC_INARGS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1446__SPAC_INARGS.val, "SPAC_INARGS", sizeof (meltcdat->dstr_1446__SPAC_INARGS.val)-1); meltcdat->dstr_1446__SPAC_INARGS.val[11] = (char)0 ; meltcdat->dstr_1446__SPAC_INARGS.slen = 11 ; /*^iniobj*/ /*iniobj dobj_1447__SPAC_INARGS*/ /*_._VALDATA___V1534*/ meltfptr[1533] = (melt_ptr_t )&meltcdat->dobj_1447__SPAC_INARGS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1447__SPAC_INARGS", 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_1447__SPAC_INARGS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1447__SPAC_INARGS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_1447__SPAC_INARGS.obj_num = 7; meltcdat->dobj_1447__SPAC_INARGS.obj_hash = 979917863; meltcdat->dobj_1447__SPAC_INARGS.obj_len = 4; /*inistring dstr_1448__SPAC_INARGS*/ /*_._VALSTR___V1535*/ meltfptr[1534] = (melt_ptr_t) &meltcdat->dstr_1448__SPAC_INARGS; meltcdat->dstr_1448__SPAC_INARGS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1448__SPAC_INARGS.val, "SPAC_INARGS", sizeof (meltcdat->dstr_1448__SPAC_INARGS.val)-1); meltcdat->dstr_1448__SPAC_INARGS.val[11] = (char)0 ; meltcdat->dstr_1448__SPAC_INARGS.slen = 11 ; /*iniobj dsym_1449__SPAC_OUTARGS*/ /*uniqueobj*/ if (!/*_._VALDATA___V1545*/ meltfptr[1544]) /*_._VALDATA___V1545*/ meltfptr[1544] = (melt_ptr_t )&meltcdat->dsym_1449__SPAC_OUTARGS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1449__SPAC_OUTARGS", 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_1449__SPAC_OUTARGS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1449__SPAC_OUTARGS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1449__SPAC_OUTARGS.obj_hash = 486574494; meltcdat->dsym_1449__SPAC_OUTARGS.obj_len = 3; /*inistring dstr_1450__SPAC_OUTARGS*/ /*_._VALSTR___V1546*/ meltfptr[1545] = (melt_ptr_t) &meltcdat->dstr_1450__SPAC_OUTARGS; meltcdat->dstr_1450__SPAC_OUTARGS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1450__SPAC_OUTARGS.val, "SPAC_OUTARGS", sizeof (meltcdat->dstr_1450__SPAC_OUTARGS.val)-1); meltcdat->dstr_1450__SPAC_OUTARGS.val[12] = (char)0 ; meltcdat->dstr_1450__SPAC_OUTARGS.slen = 12 ; /*^iniobj*/ /*iniobj dobj_1451__SPAC_OUTARGS*/ /*_._VALDATA___V1536*/ meltfptr[1535] = (melt_ptr_t )&meltcdat->dobj_1451__SPAC_OUTARGS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1451__SPAC_OUTARGS", 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_1451__SPAC_OUTARGS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1451__SPAC_OUTARGS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_1451__SPAC_OUTARGS.obj_num = 8; meltcdat->dobj_1451__SPAC_OUTARGS.obj_hash = 158109134; meltcdat->dobj_1451__SPAC_OUTARGS.obj_len = 4; /*inistring dstr_1452__SPAC_OUTARGS*/ /*_._VALSTR___V1537*/ meltfptr[1536] = (melt_ptr_t) &meltcdat->dstr_1452__SPAC_OUTARGS; meltcdat->dstr_1452__SPAC_OUTARGS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1452__SPAC_OUTARGS.val, "SPAC_OUTARGS", sizeof (meltcdat->dstr_1452__SPAC_OUTARGS.val)-1); meltcdat->dstr_1452__SPAC_OUTARGS.val[12] = (char)0 ; meltcdat->dstr_1452__SPAC_OUTARGS.slen = 12 ; /*iniobj dsym_1453__CLASS_SOURCE_PATTERN_MATCHER*/ /*uniqueobj*/ if (!/*_._VALDATA___V1547*/ meltfptr[1546]) /*_._VALDATA___V1547*/ meltfptr[1546] = (melt_ptr_t )&meltcdat->dsym_1453__CLASS_SOURCE_PATTERN_MATCHER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1453__CLASS_SOURCE_PATTERN_MATCHER", 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_1453__CLASS_SOURCE_PATTERN_MATCHER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1453__CLASS_SOURCE_PATTERN_MATCHER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1453__CLASS_SOURCE_PATTERN_MATCHER.obj_hash = 190682059; meltcdat->dsym_1453__CLASS_SOURCE_PATTERN_MATCHER.obj_len = 3; /*inistring dstr_1454__CLASS_SOURCE_PATTERN_MAT*/ /*_._VALSTR___V1548*/ meltfptr[1547] = (melt_ptr_t) &meltcdat->dstr_1454__CLASS_SOURCE_PATTERN_MAT; meltcdat->dstr_1454__CLASS_SOURCE_PATTERN_MAT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1454__CLASS_SOURCE_PATTERN_MAT.val, "CLASS_SOURCE_PATTERN_MATCHER", sizeof (meltcdat->dstr_1454__CLASS_SOURCE_PATTERN_MAT.val)-1); meltcdat->dstr_1454__CLASS_SOURCE_PATTERN_MAT.val[28] = (char)0 ; meltcdat->dstr_1454__CLASS_SOURCE_PATTERN_MAT.slen = 28 ; MELT_LOCATION("warmelt-macro.melt:1455:/ iniobj"); /*iniobj dobj_1455__CLASS_SOURCE_PATTERN_MATCHER*/ /*_._VALDATA___V1549*/ meltfptr[1548] = (melt_ptr_t )&meltcdat->dobj_1455__CLASS_SOURCE_PATTERN_MATCHER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1455__CLASS_SOURCE_PATTERN_MATCHER", 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_1455__CLASS_SOURCE_PATTERN_MATCHER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1455__CLASS_SOURCE_PATTERN_MATCHER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_1455__CLASS_SOURCE_PATTERN_MATCHER.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_1455__CLASS_SOURCE_PATTERN_MATCHER.obj_hash = 828586387; meltcdat->dobj_1455__CLASS_SOURCE_PATTERN_MATCHER.obj_len = 8; /*inistring dstr_1456__CLASS_SOURCE_PATTERN_MAT*/ /*_._VALSTR___V1550*/ meltfptr[1549] = (melt_ptr_t) &meltcdat->dstr_1456__CLASS_SOURCE_PATTERN_MAT; meltcdat->dstr_1456__CLASS_SOURCE_PATTERN_MAT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1456__CLASS_SOURCE_PATTERN_MAT.val, "CLASS_SOURCE_PATTERN_MATCHER", sizeof (meltcdat->dstr_1456__CLASS_SOURCE_PATTERN_MAT.val)-1); meltcdat->dstr_1456__CLASS_SOURCE_PATTERN_MAT.val[28] = (char)0 ; meltcdat->dstr_1456__CLASS_SOURCE_PATTERN_MAT.slen = 28 ; /*inimult dtup_1457_syCLASS_SOURCE_PATTERN_MATCHER*/ /*_._VALTUP___V1551*/ meltfptr[1550] = (melt_ptr_t) &meltcdat->dtup_1457_syCLASS_SOURCE_PATTERN_MATCHER; meltcdat->dtup_1457_syCLASS_SOURCE_PATTERN_MATCHER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1457_syCLASS_SOURCE_PATTERN_MATCHER.nbval = 7; /*inimult dtup_1458_syCLASS_SOURCE_PATTERN_MATCHER*/ /*_._VALTUP___V1552*/ meltfptr[1551] = (melt_ptr_t) &meltcdat->dtup_1458_syCLASS_SOURCE_PATTERN_MATCHER; meltcdat->dtup_1458_syCLASS_SOURCE_PATTERN_MATCHER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1458_syCLASS_SOURCE_PATTERN_MATCHER.nbval = 9; /*iniobj dsym_1459__CLASS_SOURCE_PATTERN_C_MATCH*/ /*uniqueobj*/ if (!/*_._VALDATA___V1553*/ meltfptr[1552]) /*_._VALDATA___V1553*/ meltfptr[1552] = (melt_ptr_t )&meltcdat->dsym_1459__CLASS_SOURCE_PATTERN_C_MATCH; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1459__CLASS_SOURCE_PATTERN_C_MATCH", 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_1459__CLASS_SOURCE_PATTERN_C_MATCH", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1459__CLASS_SOURCE_PATTERN_C_MATCH.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1459__CLASS_SOURCE_PATTERN_C_MATCH.obj_hash = 1062480739; meltcdat->dsym_1459__CLASS_SOURCE_PATTERN_C_MATCH.obj_len = 3; /*inistring dstr_1460__CLASS_SOURCE_PATTERN_C_M*/ /*_._VALSTR___V1554*/ meltfptr[1553] = (melt_ptr_t) &meltcdat->dstr_1460__CLASS_SOURCE_PATTERN_C_M; meltcdat->dstr_1460__CLASS_SOURCE_PATTERN_C_M.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1460__CLASS_SOURCE_PATTERN_C_M.val, "CLASS_SOURCE_PATTERN_C_MATCH", sizeof (meltcdat->dstr_1460__CLASS_SOURCE_PATTERN_C_M.val)-1); meltcdat->dstr_1460__CLASS_SOURCE_PATTERN_C_M.val[28] = (char)0 ; meltcdat->dstr_1460__CLASS_SOURCE_PATTERN_C_M.slen = 28 ; MELT_LOCATION("warmelt-macro.melt:1461:/ iniobj"); /*iniobj dobj_1461__CLASS_SOURCE_PATTERN_C_MATCH*/ /*_._VALDATA___V1555*/ meltfptr[1554] = (melt_ptr_t )&meltcdat->dobj_1461__CLASS_SOURCE_PATTERN_C_MATCH; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1461__CLASS_SOURCE_PATTERN_C_MATCH", 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_1461__CLASS_SOURCE_PATTERN_C_MATCH", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1461__CLASS_SOURCE_PATTERN_C_MATCH.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_1461__CLASS_SOURCE_PATTERN_C_MATCH.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_1461__CLASS_SOURCE_PATTERN_C_MATCH.obj_hash = 829665446; meltcdat->dobj_1461__CLASS_SOURCE_PATTERN_C_MATCH.obj_len = 8; /*inistring dstr_1462__CLASS_SOURCE_PATTERN_C_M*/ /*_._VALSTR___V1556*/ meltfptr[1555] = (melt_ptr_t) &meltcdat->dstr_1462__CLASS_SOURCE_PATTERN_C_M; meltcdat->dstr_1462__CLASS_SOURCE_PATTERN_C_M.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1462__CLASS_SOURCE_PATTERN_C_M.val, "CLASS_SOURCE_PATTERN_C_MATCH", sizeof (meltcdat->dstr_1462__CLASS_SOURCE_PATTERN_C_M.val)-1); meltcdat->dstr_1462__CLASS_SOURCE_PATTERN_C_M.val[28] = (char)0 ; meltcdat->dstr_1462__CLASS_SOURCE_PATTERN_C_M.slen = 28 ; /*inimult dtup_1463_syCLASS_SOURCE_PATTERN_C_MATCH*/ /*_._VALTUP___V1557*/ meltfptr[1556] = (melt_ptr_t) &meltcdat->dtup_1463_syCLASS_SOURCE_PATTERN_C_MATCH; meltcdat->dtup_1463_syCLASS_SOURCE_PATTERN_C_MATCH.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1463_syCLASS_SOURCE_PATTERN_C_MATCH.nbval = 8; /*inimult dtup_1464_syCLASS_SOURCE_PATTERN_C_MATCH*/ /*_._VALTUP___V1558*/ meltfptr[1557] = (melt_ptr_t) &meltcdat->dtup_1464_syCLASS_SOURCE_PATTERN_C_MATCH; meltcdat->dtup_1464_syCLASS_SOURCE_PATTERN_C_MATCH.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1464_syCLASS_SOURCE_PATTERN_C_MATCH.nbval = 9; /*iniobj dsym_1465__CLASS_SOURCE_PATTERN_FUN_MATCH*/ /*uniqueobj*/ if (!/*_._VALDATA___V1559*/ meltfptr[1558]) /*_._VALDATA___V1559*/ meltfptr[1558] = (melt_ptr_t )&meltcdat->dsym_1465__CLASS_SOURCE_PATTERN_FUN_MATCH; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1465__CLASS_SOURCE_PATTERN_FUN_MATCH", 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_1465__CLASS_SOURCE_PATTERN_FUN_MATCH", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1465__CLASS_SOURCE_PATTERN_FUN_MATCH.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1465__CLASS_SOURCE_PATTERN_FUN_MATCH.obj_hash = 351628715; meltcdat->dsym_1465__CLASS_SOURCE_PATTERN_FUN_MATCH.obj_len = 3; /*inistring dstr_1466__CLASS_SOURCE_PATTERN_FUN*/ /*_._VALSTR___V1560*/ meltfptr[1559] = (melt_ptr_t) &meltcdat->dstr_1466__CLASS_SOURCE_PATTERN_FUN; meltcdat->dstr_1466__CLASS_SOURCE_PATTERN_FUN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1466__CLASS_SOURCE_PATTERN_FUN.val, "CLASS_SOURCE_PATTERN_FUN_MATCH", sizeof (meltcdat->dstr_1466__CLASS_SOURCE_PATTERN_FUN.val)-1); meltcdat->dstr_1466__CLASS_SOURCE_PATTERN_FUN.val[30] = (char)0 ; meltcdat->dstr_1466__CLASS_SOURCE_PATTERN_FUN.slen = 30 ; MELT_LOCATION("warmelt-macro.melt:1467:/ iniobj"); /*iniobj dobj_1467__CLASS_SOURCE_PATTERN_FUN_MATCH*/ /*_._VALDATA___V1561*/ meltfptr[1560] = (melt_ptr_t )&meltcdat->dobj_1467__CLASS_SOURCE_PATTERN_FUN_MATCH; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1467__CLASS_SOURCE_PATTERN_FUN_MATCH", 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_1467__CLASS_SOURCE_PATTERN_FUN_MATCH", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1467__CLASS_SOURCE_PATTERN_FUN_MATCH.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_1467__CLASS_SOURCE_PATTERN_FUN_MATCH.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_1467__CLASS_SOURCE_PATTERN_FUN_MATCH.obj_hash = 511659821; meltcdat->dobj_1467__CLASS_SOURCE_PATTERN_FUN_MATCH.obj_len = 8; /*inistring dstr_1468__CLASS_SOURCE_PATTERN_FUN*/ /*_._VALSTR___V1562*/ meltfptr[1561] = (melt_ptr_t) &meltcdat->dstr_1468__CLASS_SOURCE_PATTERN_FUN; meltcdat->dstr_1468__CLASS_SOURCE_PATTERN_FUN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1468__CLASS_SOURCE_PATTERN_FUN.val, "CLASS_SOURCE_PATTERN_FUN_MATCH", sizeof (meltcdat->dstr_1468__CLASS_SOURCE_PATTERN_FUN.val)-1); meltcdat->dstr_1468__CLASS_SOURCE_PATTERN_FUN.val[30] = (char)0 ; meltcdat->dstr_1468__CLASS_SOURCE_PATTERN_FUN.slen = 30 ; /*inimult dtup_1469_syCLASS_SOURCE_PATTERN_FUN_MATCH*/ /*_._VALTUP___V1563*/ meltfptr[1562] = (melt_ptr_t) &meltcdat->dtup_1469_syCLASS_SOURCE_PATTERN_FUN_MATCH; meltcdat->dtup_1469_syCLASS_SOURCE_PATTERN_FUN_MATCH.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1469_syCLASS_SOURCE_PATTERN_FUN_MATCH.nbval = 8; /*inimult dtup_1470_syCLASS_SOURCE_PATTERN_FUN_MATCH*/ /*_._VALTUP___V1564*/ meltfptr[1563] = (melt_ptr_t) &meltcdat->dtup_1470_syCLASS_SOURCE_PATTERN_FUN_MATCH; meltcdat->dtup_1470_syCLASS_SOURCE_PATTERN_FUN_MATCH.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1470_syCLASS_SOURCE_PATTERN_FUN_MATCH.nbval = 9; /*inirout drout_1471__S_EXPR_WEIGHT*/ /*iniroutlocvar*/ /*_._VALROUT___V1565*/ meltfptr[1564] = (melt_ptr_t) &meltcdat->drout_1471__S_EXPR_WEIGHT; meltcdat->drout_1471__S_EXPR_WEIGHT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1471__S_EXPR_WEIGHT.routdescr, "S_EXPR_WEIGHT @warmelt-macro.melt:1476", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1471__S_EXPR_WEIGHT.nbval = 3; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1471__S_EXPR_WEIGHT, meltrout_12_WARMELTmiMACRO_S_EXPR_WEIGHT); /*iniclos dclo_1472__S_EXPR_WEIGHT*/ /*_._VALCLO___V1569*/ meltfptr[1568] = (melt_ptr_t) &meltcdat->dclo_1472__S_EXPR_WEIGHT; meltcdat->dclo_1472__S_EXPR_WEIGHT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1472__S_EXPR_WEIGHT.nbval = 0; /*inirout drout_1473__LAMBDA_*/ /*iniroutlocvar*/ /*_._VALROUT___V1566*/ meltfptr[1565] = (melt_ptr_t) &meltcdat->drout_1473__LAMBDA_; meltcdat->drout_1473__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1473__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:1479", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1473__LAMBDA_.nbval = 2; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1473__LAMBDA_, meltrout_13_WARMELTmiMACRO_LAMBDA_cl1); /*iniobj dsym_1474__TRUE*/ /*uniqueobj*/ if (!/*_._VALDATA___V1567*/ meltfptr[1566]) /*_._VALDATA___V1567*/ meltfptr[1566] = (melt_ptr_t )&meltcdat->dsym_1474__TRUE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1474__TRUE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1474__TRUE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1474__TRUE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))); meltcdat->dsym_1474__TRUE.obj_hash = 576485513; meltcdat->dsym_1474__TRUE.obj_len = 3; /*inistring dstr_1475__TRUE*/ /*_._VALSTR___V1568*/ meltfptr[1567] = (melt_ptr_t) &meltcdat->dstr_1475__TRUE; meltcdat->dstr_1475__TRUE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1475__TRUE.val, "TRUE", sizeof (meltcdat->dstr_1475__TRUE.val)-1); meltcdat->dstr_1475__TRUE.val[4] = (char)0 ; meltcdat->dstr_1475__TRUE.slen = 4 ; /*iniobj dsym_1476__DISCR_CONSTANT_INTEGER*/ /*uniqueobj*/ if (!/*_._VALDATA___V1570*/ meltfptr[1569]) /*_._VALDATA___V1570*/ meltfptr[1569] = (melt_ptr_t )&meltcdat->dsym_1476__DISCR_CONSTANT_INTEGER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1476__DISCR_CONSTANT_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_1476__DISCR_CONSTANT_INTEGER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1476__DISCR_CONSTANT_INTEGER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1476__DISCR_CONSTANT_INTEGER.obj_hash = 1007078494; meltcdat->dsym_1476__DISCR_CONSTANT_INTEGER.obj_len = 3; /*inistring dstr_1477__DISCR_CONSTANT_INTEGER*/ /*_._VALSTR___V1571*/ meltfptr[1570] = (melt_ptr_t) &meltcdat->dstr_1477__DISCR_CONSTANT_INTEGER; meltcdat->dstr_1477__DISCR_CONSTANT_INTEGER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1477__DISCR_CONSTANT_INTEGER.val, "DISCR_CONSTANT_INTEGER", sizeof (meltcdat->dstr_1477__DISCR_CONSTANT_INTEGER.val)-1); meltcdat->dstr_1477__DISCR_CONSTANT_INTEGER.val[22] = (char)0 ; meltcdat->dstr_1477__DISCR_CONSTANT_INTEGER.slen = 22 ; /*inirout drout_1478__INSTALL_GLOBAL_DEFINITION_BINDING*/ /*iniroutlocvar*/ /*_._VALROUT___V1572*/ meltfptr[1571] = (melt_ptr_t) &meltcdat->drout_1478__INSTALL_GLOBAL_DEFINITION_BINDING; meltcdat->drout_1478__INSTALL_GLOBAL_DEFINITION_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1478__INSTALL_GLOBAL_DEFINITION_BINDING.routdescr, "INSTALL_GLOBAL_DEFINITION_BINDING @warmelt-macro.melt:1511", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1478__INSTALL_GLOBAL_DEFINITION_BINDING.nbval = 8; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1478__INSTALL_GLOBAL_DEFINITION_BINDING, meltrout_14_WARMELTmiMACRO_INSTALL_GLOBAL_DEFINITION_BINDING); /*iniclos dclo_1479__INSTALL_GLOBAL_DEFINITION_BINDING*/ /*_._VALCLO___V1573*/ meltfptr[1572] = (melt_ptr_t) &meltcdat->dclo_1479__INSTALL_GLOBAL_DEFINITION_BINDING; meltcdat->dclo_1479__INSTALL_GLOBAL_DEFINITION_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1479__INSTALL_GLOBAL_DEFINITION_BINDING.nbval = 0; /*iniobj dsym_1480__CLASS_ANY_BINDING*/ /*uniqueobj*/ if (!/*_._VALDATA___V1574*/ meltfptr[1573]) /*_._VALDATA___V1574*/ meltfptr[1573] = (melt_ptr_t )&meltcdat->dsym_1480__CLASS_ANY_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1480__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_1480__CLASS_ANY_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1480__CLASS_ANY_BINDING.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1480__CLASS_ANY_BINDING.obj_hash = 935770; meltcdat->dsym_1480__CLASS_ANY_BINDING.obj_len = 3; /*inistring dstr_1481__CLASS_ANY_BINDING*/ /*_._VALSTR___V1575*/ meltfptr[1574] = (melt_ptr_t) &meltcdat->dstr_1481__CLASS_ANY_BINDING; meltcdat->dstr_1481__CLASS_ANY_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1481__CLASS_ANY_BINDING.val, "CLASS_ANY_BINDING", sizeof (meltcdat->dstr_1481__CLASS_ANY_BINDING.val)-1); meltcdat->dstr_1481__CLASS_ANY_BINDING.val[17] = (char)0 ; meltcdat->dstr_1481__CLASS_ANY_BINDING.slen = 17 ; /*iniobj dsym_1482__CLASS_ENVIRONMENT*/ /*uniqueobj*/ if (!/*_._VALDATA___V1576*/ meltfptr[1575]) /*_._VALDATA___V1576*/ meltfptr[1575] = (melt_ptr_t )&meltcdat->dsym_1482__CLASS_ENVIRONMENT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1482__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_1482__CLASS_ENVIRONMENT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1482__CLASS_ENVIRONMENT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1482__CLASS_ENVIRONMENT.obj_hash = 59212821; meltcdat->dsym_1482__CLASS_ENVIRONMENT.obj_len = 3; /*inistring dstr_1483__CLASS_ENVIRONMENT*/ /*_._VALSTR___V1577*/ meltfptr[1576] = (melt_ptr_t) &meltcdat->dstr_1483__CLASS_ENVIRONMENT; meltcdat->dstr_1483__CLASS_ENVIRONMENT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1483__CLASS_ENVIRONMENT.val, "CLASS_ENVIRONMENT", sizeof (meltcdat->dstr_1483__CLASS_ENVIRONMENT.val)-1); meltcdat->dstr_1483__CLASS_ENVIRONMENT.val[17] = (char)0 ; meltcdat->dstr_1483__CLASS_ENVIRONMENT.slen = 17 ; /*iniobj dsym_1484__CLASS_ANY_MODULE_CONTEXT*/ /*uniqueobj*/ if (!/*_._VALDATA___V1578*/ meltfptr[1577]) /*_._VALDATA___V1578*/ meltfptr[1577] = (melt_ptr_t )&meltcdat->dsym_1484__CLASS_ANY_MODULE_CONTEXT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1484__CLASS_ANY_MODULE_CONTEXT", 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_1484__CLASS_ANY_MODULE_CONTEXT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1484__CLASS_ANY_MODULE_CONTEXT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1484__CLASS_ANY_MODULE_CONTEXT.obj_hash = 153406004; meltcdat->dsym_1484__CLASS_ANY_MODULE_CONTEXT.obj_len = 3; /*inistring dstr_1485__CLASS_ANY_MODULE_CONTEXT*/ /*_._VALSTR___V1579*/ meltfptr[1578] = (melt_ptr_t) &meltcdat->dstr_1485__CLASS_ANY_MODULE_CONTEXT; meltcdat->dstr_1485__CLASS_ANY_MODULE_CONTEXT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1485__CLASS_ANY_MODULE_CONTEXT.val, "CLASS_ANY_MODULE_CONTEXT", sizeof (meltcdat->dstr_1485__CLASS_ANY_MODULE_CONTEXT.val)-1); meltcdat->dstr_1485__CLASS_ANY_MODULE_CONTEXT.val[24] = (char)0 ; meltcdat->dstr_1485__CLASS_ANY_MODULE_CONTEXT.slen = 24 ; /*iniobj dsym_1486__FIND_ENV*/ /*uniqueobj*/ if (!/*_._VALDATA___V1580*/ meltfptr[1579]) /*_._VALDATA___V1580*/ meltfptr[1579] = (melt_ptr_t )&meltcdat->dsym_1486__FIND_ENV; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1486__FIND_ENV", 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_1486__FIND_ENV", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1486__FIND_ENV.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1486__FIND_ENV.obj_hash = 233459738; meltcdat->dsym_1486__FIND_ENV.obj_len = 3; /*inistring dstr_1487__FIND_ENV*/ /*_._VALSTR___V1581*/ meltfptr[1580] = (melt_ptr_t) &meltcdat->dstr_1487__FIND_ENV; meltcdat->dstr_1487__FIND_ENV.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1487__FIND_ENV.val, "FIND_ENV", sizeof (meltcdat->dstr_1487__FIND_ENV.val)-1); meltcdat->dstr_1487__FIND_ENV.val[8] = (char)0 ; meltcdat->dstr_1487__FIND_ENV.slen = 8 ; /*iniobj dsym_1488__PUT_ENV*/ /*uniqueobj*/ if (!/*_._VALDATA___V1582*/ meltfptr[1581]) /*_._VALDATA___V1582*/ meltfptr[1581] = (melt_ptr_t )&meltcdat->dsym_1488__PUT_ENV; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1488__PUT_ENV", 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_1488__PUT_ENV", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1488__PUT_ENV.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1488__PUT_ENV.obj_hash = 440202203; meltcdat->dsym_1488__PUT_ENV.obj_len = 3; /*inistring dstr_1489__PUT_ENV*/ /*_._VALSTR___V1583*/ meltfptr[1582] = (melt_ptr_t) &meltcdat->dstr_1489__PUT_ENV; meltcdat->dstr_1489__PUT_ENV.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1489__PUT_ENV.val, "PUT_ENV", sizeof (meltcdat->dstr_1489__PUT_ENV.val)-1); meltcdat->dstr_1489__PUT_ENV.val[7] = (char)0 ; meltcdat->dstr_1489__PUT_ENV.slen = 7 ; /*inirout drout_1490__EXPAND_RESTLIST_AS_LIST*/ /*iniroutlocvar*/ /*_._VALROUT___V1584*/ meltfptr[1583] = (melt_ptr_t) &meltcdat->drout_1490__EXPAND_RESTLIST_AS_LIST; meltcdat->drout_1490__EXPAND_RESTLIST_AS_LIST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1490__EXPAND_RESTLIST_AS_LIST.routdescr, "EXPAND_RESTLIST_AS_LIST @warmelt-macro.melt:1548", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1490__EXPAND_RESTLIST_AS_LIST.nbval = 3; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1490__EXPAND_RESTLIST_AS_LIST, meltrout_15_WARMELTmiMACRO_EXPAND_RESTLIST_AS_LIST); /*iniclos dclo_1491__EXPAND_RESTLIST_AS_LIST*/ /*_._VALCLO___V1585*/ meltfptr[1584] = (melt_ptr_t) &meltcdat->dclo_1491__EXPAND_RESTLIST_AS_LIST; meltcdat->dclo_1491__EXPAND_RESTLIST_AS_LIST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1491__EXPAND_RESTLIST_AS_LIST.nbval = 0; /*iniobj dsym_1492__LIST_APPEND2LIST*/ /*uniqueobj*/ if (!/*_._VALDATA___V1586*/ meltfptr[1585]) /*_._VALDATA___V1586*/ meltfptr[1585] = (melt_ptr_t )&meltcdat->dsym_1492__LIST_APPEND2LIST; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1492__LIST_APPEND2LIST", 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_1492__LIST_APPEND2LIST", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1492__LIST_APPEND2LIST.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1492__LIST_APPEND2LIST.obj_hash = 744841630; meltcdat->dsym_1492__LIST_APPEND2LIST.obj_len = 3; /*inistring dstr_1493__LIST_APPEND2LIST*/ /*_._VALSTR___V1587*/ meltfptr[1586] = (melt_ptr_t) &meltcdat->dstr_1493__LIST_APPEND2LIST; meltcdat->dstr_1493__LIST_APPEND2LIST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1493__LIST_APPEND2LIST.val, "LIST_APPEND2LIST", sizeof (meltcdat->dstr_1493__LIST_APPEND2LIST.val)-1); meltcdat->dstr_1493__LIST_APPEND2LIST.val[16] = (char)0 ; meltcdat->dstr_1493__LIST_APPEND2LIST.slen = 16 ; /*inirout drout_1494__EXPAND_RESTLIST_AS_TUPLE*/ /*iniroutlocvar*/ /*_._VALROUT___V1588*/ meltfptr[1587] = (melt_ptr_t) &meltcdat->drout_1494__EXPAND_RESTLIST_AS_TUPLE; meltcdat->drout_1494__EXPAND_RESTLIST_AS_TUPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1494__EXPAND_RESTLIST_AS_TUPLE.routdescr, "EXPAND_RESTLIST_AS_TUPLE @warmelt-macro.melt:1602", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1494__EXPAND_RESTLIST_AS_TUPLE.nbval = 5; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1494__EXPAND_RESTLIST_AS_TUPLE, meltrout_16_WARMELTmiMACRO_EXPAND_RESTLIST_AS_TUPLE); /*iniclos dclo_1495__EXPAND_RESTLIST_AS_TUPLE*/ /*_._VALCLO___V1589*/ meltfptr[1588] = (melt_ptr_t) &meltcdat->dclo_1495__EXPAND_RESTLIST_AS_TUPLE; meltcdat->dclo_1495__EXPAND_RESTLIST_AS_TUPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1495__EXPAND_RESTLIST_AS_TUPLE.nbval = 0; /*inirout drout_1496__EXPAND_PAIRLIST_AS_LIST*/ /*iniroutlocvar*/ /*_._VALROUT___V1590*/ meltfptr[1589] = (melt_ptr_t) &meltcdat->drout_1496__EXPAND_PAIRLIST_AS_LIST; meltcdat->drout_1496__EXPAND_PAIRLIST_AS_LIST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1496__EXPAND_PAIRLIST_AS_LIST.routdescr, "EXPAND_PAIRLIST_AS_LIST @warmelt-macro.melt:1615", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1496__EXPAND_PAIRLIST_AS_LIST.nbval = 2; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1496__EXPAND_PAIRLIST_AS_LIST, meltrout_17_WARMELTmiMACRO_EXPAND_PAIRLIST_AS_LIST); /*iniclos dclo_1497__EXPAND_PAIRLIST_AS_LIST*/ /*_._VALCLO___V1591*/ meltfptr[1590] = (melt_ptr_t) &meltcdat->dclo_1497__EXPAND_PAIRLIST_AS_LIST; meltcdat->dclo_1497__EXPAND_PAIRLIST_AS_LIST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1497__EXPAND_PAIRLIST_AS_LIST.nbval = 0; /*inirout drout_1498__EXPAND_PAIRLIST_AS_TUPLE*/ /*iniroutlocvar*/ /*_._VALROUT___V1592*/ meltfptr[1591] = (melt_ptr_t) &meltcdat->drout_1498__EXPAND_PAIRLIST_AS_TUPLE; meltcdat->drout_1498__EXPAND_PAIRLIST_AS_TUPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1498__EXPAND_PAIRLIST_AS_TUPLE.routdescr, "EXPAND_PAIRLIST_AS_TUPLE @warmelt-macro.melt:1670", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1498__EXPAND_PAIRLIST_AS_TUPLE.nbval = 5; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1498__EXPAND_PAIRLIST_AS_TUPLE, meltrout_18_WARMELTmiMACRO_EXPAND_PAIRLIST_AS_TUPLE); /*iniclos dclo_1499__EXPAND_PAIRLIST_AS_TUPLE*/ /*_._VALCLO___V1593*/ meltfptr[1592] = (melt_ptr_t) &meltcdat->dclo_1499__EXPAND_PAIRLIST_AS_TUPLE; meltcdat->dclo_1499__EXPAND_PAIRLIST_AS_TUPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1499__EXPAND_PAIRLIST_AS_TUPLE.nbval = 0; /*inirout drout_1500__EXPAND_TUPLE_SLICE_AS_TUPLE*/ /*iniroutlocvar*/ /*_._VALROUT___V1594*/ meltfptr[1593] = (melt_ptr_t) &meltcdat->drout_1500__EXPAND_TUPLE_SLICE_AS_TUPLE; meltcdat->drout_1500__EXPAND_TUPLE_SLICE_AS_TUPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1500__EXPAND_TUPLE_SLICE_AS_TUPLE.routdescr, "EXPAND_TUPLE_SLICE_AS_TUPLE @warmelt-macro.melt:1681", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1500__EXPAND_TUPLE_SLICE_AS_TUPLE.nbval = 6; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1500__EXPAND_TUPLE_SLICE_AS_TUPLE, meltrout_19_WARMELTmiMACRO_EXPAND_TUPLE_SLICE_AS_TUPLE); /*iniclos dclo_1501__EXPAND_TUPLE_SLICE_AS_TUPLE*/ /*_._VALCLO___V1595*/ meltfptr[1594] = (melt_ptr_t) &meltcdat->dclo_1501__EXPAND_TUPLE_SLICE_AS_TUPLE; meltcdat->dclo_1501__EXPAND_TUPLE_SLICE_AS_TUPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1501__EXPAND_TUPLE_SLICE_AS_TUPLE.nbval = 0; /*iniobj dsym_1502__DISCR_LIST*/ /*uniqueobj*/ if (!/*_._VALDATA___V1596*/ meltfptr[1595]) /*_._VALDATA___V1596*/ meltfptr[1595] = (melt_ptr_t )&meltcdat->dsym_1502__DISCR_LIST; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1502__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_1502__DISCR_LIST", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1502__DISCR_LIST.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1502__DISCR_LIST.obj_hash = 98407634; meltcdat->dsym_1502__DISCR_LIST.obj_len = 3; /*inistring dstr_1503__DISCR_LIST*/ /*_._VALSTR___V1597*/ meltfptr[1596] = (melt_ptr_t) &meltcdat->dstr_1503__DISCR_LIST; meltcdat->dstr_1503__DISCR_LIST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1503__DISCR_LIST.val, "DISCR_LIST", sizeof (meltcdat->dstr_1503__DISCR_LIST.val)-1); meltcdat->dstr_1503__DISCR_LIST.val[10] = (char)0 ; meltcdat->dstr_1503__DISCR_LIST.slen = 10 ; /*inirout drout_1504__REGISTER_GENERATOR_DEVICE*/ /*iniroutlocvar*/ /*_._VALROUT___V1598*/ meltfptr[1597] = (melt_ptr_t) &meltcdat->drout_1504__REGISTER_GENERATOR_DEVICE; meltcdat->drout_1504__REGISTER_GENERATOR_DEVICE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1504__REGISTER_GENERATOR_DEVICE.routdescr, "REGISTER_GENERATOR_DEVICE @warmelt-macro.melt:1734", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1504__REGISTER_GENERATOR_DEVICE.nbval = 6; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1504__REGISTER_GENERATOR_DEVICE, meltrout_20_WARMELTmiMACRO_REGISTER_GENERATOR_DEVICE); /*iniclos dclo_1505__REGISTER_GENERATOR_DEVICE*/ /*_._VALCLO___V1599*/ meltfptr[1598] = (melt_ptr_t) &meltcdat->dclo_1505__REGISTER_GENERATOR_DEVICE; meltcdat->dclo_1505__REGISTER_GENERATOR_DEVICE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1505__REGISTER_GENERATOR_DEVICE.nbval = 0; /*inirout drout_1506__EXPAND_APPLY*/ /*iniroutlocvar*/ /*_._VALROUT___V1600*/ meltfptr[1599] = (melt_ptr_t) &meltcdat->drout_1506__EXPAND_APPLY; meltcdat->drout_1506__EXPAND_APPLY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1506__EXPAND_APPLY.routdescr, "EXPAND_APPLY @warmelt-macro.melt:1759", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1506__EXPAND_APPLY.nbval = 7; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1506__EXPAND_APPLY, meltrout_21_WARMELTmiMACRO_EXPAND_APPLY); /*iniclos dclo_1507__EXPAND_APPLY*/ /*_._VALCLO___V1601*/ meltfptr[1600] = (melt_ptr_t) &meltcdat->dclo_1507__EXPAND_APPLY; meltcdat->dclo_1507__EXPAND_APPLY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1507__EXPAND_APPLY.nbval = 0; /*iniobj dsym_1508__DEBUG_LESS*/ /*uniqueobj*/ if (!/*_._VALDATA___V1602*/ meltfptr[1601]) /*_._VALDATA___V1602*/ meltfptr[1601] = (melt_ptr_t )&meltcdat->dsym_1508__DEBUG_LESS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1508__DEBUG_LESS", 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_1508__DEBUG_LESS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1508__DEBUG_LESS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1508__DEBUG_LESS.obj_hash = 977096719; meltcdat->dsym_1508__DEBUG_LESS.obj_len = 3; /*inistring dstr_1509__DEBUG_LESS*/ /*_._VALSTR___V1603*/ meltfptr[1602] = (melt_ptr_t) &meltcdat->dstr_1509__DEBUG_LESS; meltcdat->dstr_1509__DEBUG_LESS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1509__DEBUG_LESS.val, "DEBUG_LESS", sizeof (meltcdat->dstr_1509__DEBUG_LESS.val)-1); meltcdat->dstr_1509__DEBUG_LESS.val[10] = (char)0 ; meltcdat->dstr_1509__DEBUG_LESS.slen = 10 ; /*inirout drout_1510__EXPAND_MSEND*/ /*iniroutlocvar*/ /*_._VALROUT___V1604*/ meltfptr[1603] = (melt_ptr_t) &meltcdat->drout_1510__EXPAND_MSEND; meltcdat->drout_1510__EXPAND_MSEND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1510__EXPAND_MSEND.routdescr, "EXPAND_MSEND @warmelt-macro.melt:1780", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1510__EXPAND_MSEND.nbval = 9; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1510__EXPAND_MSEND, meltrout_22_WARMELTmiMACRO_EXPAND_MSEND); /*iniclos dclo_1511__EXPAND_MSEND*/ /*_._VALCLO___V1605*/ meltfptr[1604] = (melt_ptr_t) &meltcdat->dclo_1511__EXPAND_MSEND; meltcdat->dclo_1511__EXPAND_MSEND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1511__EXPAND_MSEND.nbval = 0; /*inirout drout_1512__EXPAND_FIELDEXPR*/ /*iniroutlocvar*/ /*_._VALROUT___V1606*/ meltfptr[1605] = (melt_ptr_t) &meltcdat->drout_1512__EXPAND_FIELDEXPR; meltcdat->drout_1512__EXPAND_FIELDEXPR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1512__EXPAND_FIELDEXPR.routdescr, "EXPAND_FIELDEXPR @warmelt-macro.melt:1811", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1512__EXPAND_FIELDEXPR.nbval = 11; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1512__EXPAND_FIELDEXPR, meltrout_23_WARMELTmiMACRO_EXPAND_FIELDEXPR); /*iniclos dclo_1513__EXPAND_FIELDEXPR*/ /*_._VALCLO___V1607*/ meltfptr[1606] = (melt_ptr_t) &meltcdat->dclo_1513__EXPAND_FIELDEXPR; meltcdat->dclo_1513__EXPAND_FIELDEXPR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1513__EXPAND_FIELDEXPR.nbval = 0; /*iniobj dsym_1514__CLASS_FIELD*/ /*uniqueobj*/ if (!/*_._VALDATA___V1608*/ meltfptr[1607]) /*_._VALDATA___V1608*/ meltfptr[1607] = (melt_ptr_t )&meltcdat->dsym_1514__CLASS_FIELD; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1514__CLASS_FIELD", 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_1514__CLASS_FIELD", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1514__CLASS_FIELD.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1514__CLASS_FIELD.obj_hash = 523073; meltcdat->dsym_1514__CLASS_FIELD.obj_len = 3; /*inistring dstr_1515__CLASS_FIELD*/ /*_._VALSTR___V1609*/ meltfptr[1608] = (melt_ptr_t) &meltcdat->dstr_1515__CLASS_FIELD; meltcdat->dstr_1515__CLASS_FIELD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1515__CLASS_FIELD.val, "CLASS_FIELD", sizeof (meltcdat->dstr_1515__CLASS_FIELD.val)-1); meltcdat->dstr_1515__CLASS_FIELD.val[11] = (char)0 ; meltcdat->dstr_1515__CLASS_FIELD.slen = 11 ; /*inirout drout_1516__EXPAND_CITERATION*/ /*iniroutlocvar*/ /*_._VALROUT___V1610*/ meltfptr[1609] = (melt_ptr_t) &meltcdat->drout_1516__EXPAND_CITERATION; meltcdat->drout_1516__EXPAND_CITERATION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1516__EXPAND_CITERATION.routdescr, "EXPAND_CITERATION @warmelt-macro.melt:1870", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1516__EXPAND_CITERATION.nbval = 11; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1516__EXPAND_CITERATION, meltrout_24_WARMELTmiMACRO_EXPAND_CITERATION); /*iniclos dclo_1517__EXPAND_CITERATION*/ /*_._VALCLO___V1619*/ meltfptr[1618] = (melt_ptr_t) &meltcdat->dclo_1517__EXPAND_CITERATION; meltcdat->dclo_1517__EXPAND_CITERATION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1517__EXPAND_CITERATION.nbval = 0; /*iniobj dsym_1518__CLASS_CITERATOR*/ /*uniqueobj*/ if (!/*_._VALDATA___V1620*/ meltfptr[1619]) /*_._VALDATA___V1620*/ meltfptr[1619] = (melt_ptr_t )&meltcdat->dsym_1518__CLASS_CITERATOR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1518__CLASS_CITERATOR", 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_1518__CLASS_CITERATOR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1518__CLASS_CITERATOR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1518__CLASS_CITERATOR.obj_hash = 650290054; meltcdat->dsym_1518__CLASS_CITERATOR.obj_len = 3; /*inistring dstr_1519__CLASS_CITERATOR*/ /*_._VALSTR___V1621*/ meltfptr[1620] = (melt_ptr_t) &meltcdat->dstr_1519__CLASS_CITERATOR; meltcdat->dstr_1519__CLASS_CITERATOR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1519__CLASS_CITERATOR.val, "CLASS_CITERATOR", sizeof (meltcdat->dstr_1519__CLASS_CITERATOR.val)-1); meltcdat->dstr_1519__CLASS_CITERATOR.val[15] = (char)0 ; meltcdat->dstr_1519__CLASS_CITERATOR.slen = 15 ; /*iniobj dsym_1520__FRESH_ENV*/ /*uniqueobj*/ if (!/*_._VALDATA___V1622*/ meltfptr[1621]) /*_._VALDATA___V1622*/ meltfptr[1621] = (melt_ptr_t )&meltcdat->dsym_1520__FRESH_ENV; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1520__FRESH_ENV", 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_1520__FRESH_ENV", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1520__FRESH_ENV.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1520__FRESH_ENV.obj_hash = 1002363940; meltcdat->dsym_1520__FRESH_ENV.obj_len = 3; /*inistring dstr_1521__FRESH_ENV*/ /*_._VALSTR___V1623*/ meltfptr[1622] = (melt_ptr_t) &meltcdat->dstr_1521__FRESH_ENV; meltcdat->dstr_1521__FRESH_ENV.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1521__FRESH_ENV.val, "FRESH_ENV", sizeof (meltcdat->dstr_1521__FRESH_ENV.val)-1); meltcdat->dstr_1521__FRESH_ENV.val[9] = (char)0 ; meltcdat->dstr_1521__FRESH_ENV.slen = 9 ; /*inirout drout_1522__EXPAND_CMATCHEXPR*/ /*iniroutlocvar*/ /*_._VALROUT___V1624*/ meltfptr[1623] = (melt_ptr_t) &meltcdat->drout_1522__EXPAND_CMATCHEXPR; meltcdat->drout_1522__EXPAND_CMATCHEXPR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1522__EXPAND_CMATCHEXPR.routdescr, "EXPAND_CMATCHEXPR @warmelt-macro.melt:1934", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1522__EXPAND_CMATCHEXPR.nbval = 10; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1522__EXPAND_CMATCHEXPR, meltrout_25_WARMELTmiMACRO_EXPAND_CMATCHEXPR); /*iniclos dclo_1523__EXPAND_CMATCHEXPR*/ /*_._VALCLO___V1625*/ meltfptr[1624] = (melt_ptr_t) &meltcdat->dclo_1523__EXPAND_CMATCHEXPR; meltcdat->dclo_1523__EXPAND_CMATCHEXPR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1523__EXPAND_CMATCHEXPR.nbval = 0; /*iniobj dsym_1524__CLASS_CMATCHER*/ /*uniqueobj*/ if (!/*_._VALDATA___V1626*/ meltfptr[1625]) /*_._VALDATA___V1626*/ meltfptr[1625] = (melt_ptr_t )&meltcdat->dsym_1524__CLASS_CMATCHER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1524__CLASS_CMATCHER", 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_1524__CLASS_CMATCHER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1524__CLASS_CMATCHER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1524__CLASS_CMATCHER.obj_hash = 544975672; meltcdat->dsym_1524__CLASS_CMATCHER.obj_len = 3; /*inistring dstr_1525__CLASS_CMATCHER*/ /*_._VALSTR___V1627*/ meltfptr[1626] = (melt_ptr_t) &meltcdat->dstr_1525__CLASS_CMATCHER; meltcdat->dstr_1525__CLASS_CMATCHER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1525__CLASS_CMATCHER.val, "CLASS_CMATCHER", sizeof (meltcdat->dstr_1525__CLASS_CMATCHER.val)-1); meltcdat->dstr_1525__CLASS_CMATCHER.val[14] = (char)0 ; meltcdat->dstr_1525__CLASS_CMATCHER.slen = 14 ; /*iniobj dsym_1526__CLASS_ANY_MATCHER*/ /*uniqueobj*/ if (!/*_._VALDATA___V1628*/ meltfptr[1627]) /*_._VALDATA___V1628*/ meltfptr[1627] = (melt_ptr_t )&meltcdat->dsym_1526__CLASS_ANY_MATCHER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1526__CLASS_ANY_MATCHER", 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_1526__CLASS_ANY_MATCHER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1526__CLASS_ANY_MATCHER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1526__CLASS_ANY_MATCHER.obj_hash = 781265508; meltcdat->dsym_1526__CLASS_ANY_MATCHER.obj_len = 3; /*inistring dstr_1527__CLASS_ANY_MATCHER*/ /*_._VALSTR___V1629*/ meltfptr[1628] = (melt_ptr_t) &meltcdat->dstr_1527__CLASS_ANY_MATCHER; meltcdat->dstr_1527__CLASS_ANY_MATCHER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1527__CLASS_ANY_MATCHER.val, "CLASS_ANY_MATCHER", sizeof (meltcdat->dstr_1527__CLASS_ANY_MATCHER.val)-1); meltcdat->dstr_1527__CLASS_ANY_MATCHER.val[17] = (char)0 ; meltcdat->dstr_1527__CLASS_ANY_MATCHER.slen = 17 ; /*inirout drout_1528__EXPAND_FUNMATCHEXPR*/ /*iniroutlocvar*/ /*_._VALROUT___V1630*/ meltfptr[1629] = (melt_ptr_t) &meltcdat->drout_1528__EXPAND_FUNMATCHEXPR; meltcdat->drout_1528__EXPAND_FUNMATCHEXPR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1528__EXPAND_FUNMATCHEXPR.routdescr, "EXPAND_FUNMATCHEXPR @warmelt-macro.melt:1982", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1528__EXPAND_FUNMATCHEXPR.nbval = 7; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1528__EXPAND_FUNMATCHEXPR, meltrout_26_WARMELTmiMACRO_EXPAND_FUNMATCHEXPR); /*iniclos dclo_1529__EXPAND_FUNMATCHEXPR*/ /*_._VALCLO___V1631*/ meltfptr[1630] = (melt_ptr_t) &meltcdat->dclo_1529__EXPAND_FUNMATCHEXPR; meltcdat->dclo_1529__EXPAND_FUNMATCHEXPR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1529__EXPAND_FUNMATCHEXPR.nbval = 0; /*iniobj dsym_1530__CLASS_FUNMATCHER*/ /*uniqueobj*/ if (!/*_._VALDATA___V1632*/ meltfptr[1631]) /*_._VALDATA___V1632*/ meltfptr[1631] = (melt_ptr_t )&meltcdat->dsym_1530__CLASS_FUNMATCHER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1530__CLASS_FUNMATCHER", 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_1530__CLASS_FUNMATCHER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1530__CLASS_FUNMATCHER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1530__CLASS_FUNMATCHER.obj_hash = 197743893; meltcdat->dsym_1530__CLASS_FUNMATCHER.obj_len = 3; /*inistring dstr_1531__CLASS_FUNMATCHER*/ /*_._VALSTR___V1633*/ meltfptr[1632] = (melt_ptr_t) &meltcdat->dstr_1531__CLASS_FUNMATCHER; meltcdat->dstr_1531__CLASS_FUNMATCHER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1531__CLASS_FUNMATCHER.val, "CLASS_FUNMATCHER", sizeof (meltcdat->dstr_1531__CLASS_FUNMATCHER.val)-1); meltcdat->dstr_1531__CLASS_FUNMATCHER.val[16] = (char)0 ; meltcdat->dstr_1531__CLASS_FUNMATCHER.slen = 16 ; /*inirout drout_1532__EXPAND_KEYWORDFUN*/ /*iniroutlocvar*/ /*_._VALROUT___V1634*/ meltfptr[1633] = (melt_ptr_t) &meltcdat->drout_1532__EXPAND_KEYWORDFUN; meltcdat->drout_1532__EXPAND_KEYWORDFUN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1532__EXPAND_KEYWORDFUN.routdescr, "EXPAND_KEYWORDFUN @warmelt-macro.melt:2014", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1532__EXPAND_KEYWORDFUN.nbval = 7; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1532__EXPAND_KEYWORDFUN, meltrout_27_WARMELTmiMACRO_EXPAND_KEYWORDFUN); /*iniclos dclo_1533__EXPAND_KEYWORDFUN*/ /*_._VALCLO___V1635*/ meltfptr[1634] = (melt_ptr_t) &meltcdat->dclo_1533__EXPAND_KEYWORDFUN; meltcdat->dclo_1533__EXPAND_KEYWORDFUN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1533__EXPAND_KEYWORDFUN.nbval = 0; /*inirout drout_1534__MACROEXPAND_1*/ /*iniroutlocvar*/ /*_._VALROUT___V1636*/ meltfptr[1635] = (melt_ptr_t) &meltcdat->drout_1534__MACROEXPAND_1; meltcdat->drout_1534__MACROEXPAND_1.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1534__MACROEXPAND_1.routdescr, "MACROEXPAND_1 @warmelt-macro.melt:2032", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1534__MACROEXPAND_1.nbval = 40; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1534__MACROEXPAND_1, meltrout_28_WARMELTmiMACRO_MACROEXPAND_1); /*iniclos dclo_1535__MACROEXPAND_1*/ /*_._VALCLO___V1642*/ meltfptr[1641] = (melt_ptr_t) &meltcdat->dclo_1535__MACROEXPAND_1; meltcdat->dclo_1535__MACROEXPAND_1.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1535__MACROEXPAND_1.nbval = 0; /*iniobj dsym_1536__CLASS_SELECTOR_BINDING*/ /*uniqueobj*/ if (!/*_._VALDATA___V1643*/ meltfptr[1642]) /*_._VALDATA___V1643*/ meltfptr[1642] = (melt_ptr_t )&meltcdat->dsym_1536__CLASS_SELECTOR_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1536__CLASS_SELECTOR_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_1536__CLASS_SELECTOR_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1536__CLASS_SELECTOR_BINDING.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1536__CLASS_SELECTOR_BINDING.obj_hash = 80713028; meltcdat->dsym_1536__CLASS_SELECTOR_BINDING.obj_len = 3; /*inistring dstr_1537__CLASS_SELECTOR_BINDING*/ /*_._VALSTR___V1644*/ meltfptr[1643] = (melt_ptr_t) &meltcdat->dstr_1537__CLASS_SELECTOR_BINDING; meltcdat->dstr_1537__CLASS_SELECTOR_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1537__CLASS_SELECTOR_BINDING.val, "CLASS_SELECTOR_BINDING", sizeof (meltcdat->dstr_1537__CLASS_SELECTOR_BINDING.val)-1); meltcdat->dstr_1537__CLASS_SELECTOR_BINDING.val[22] = (char)0 ; meltcdat->dstr_1537__CLASS_SELECTOR_BINDING.slen = 22 ; /*iniobj dsym_1538__CLASS_PRIMITIVE_BINDING*/ /*uniqueobj*/ if (!/*_._VALDATA___V1645*/ meltfptr[1644]) /*_._VALDATA___V1645*/ meltfptr[1644] = (melt_ptr_t )&meltcdat->dsym_1538__CLASS_PRIMITIVE_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1538__CLASS_PRIMITIVE_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_1538__CLASS_PRIMITIVE_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1538__CLASS_PRIMITIVE_BINDING.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1538__CLASS_PRIMITIVE_BINDING.obj_hash = 648418829; meltcdat->dsym_1538__CLASS_PRIMITIVE_BINDING.obj_len = 3; /*inistring dstr_1539__CLASS_PRIMITIVE_BINDING*/ /*_._VALSTR___V1646*/ meltfptr[1645] = (melt_ptr_t) &meltcdat->dstr_1539__CLASS_PRIMITIVE_BINDING; meltcdat->dstr_1539__CLASS_PRIMITIVE_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1539__CLASS_PRIMITIVE_BINDING.val, "CLASS_PRIMITIVE_BINDING", sizeof (meltcdat->dstr_1539__CLASS_PRIMITIVE_BINDING.val)-1); meltcdat->dstr_1539__CLASS_PRIMITIVE_BINDING.val[23] = (char)0 ; meltcdat->dstr_1539__CLASS_PRIMITIVE_BINDING.slen = 23 ; /*iniobj dsym_1540__CLASS_CITERATOR_BINDING*/ /*uniqueobj*/ if (!/*_._VALDATA___V1647*/ meltfptr[1646]) /*_._VALDATA___V1647*/ meltfptr[1646] = (melt_ptr_t )&meltcdat->dsym_1540__CLASS_CITERATOR_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1540__CLASS_CITERATOR_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_1540__CLASS_CITERATOR_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1540__CLASS_CITERATOR_BINDING.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1540__CLASS_CITERATOR_BINDING.obj_hash = 241925087; meltcdat->dsym_1540__CLASS_CITERATOR_BINDING.obj_len = 3; /*inistring dstr_1541__CLASS_CITERATOR_BINDING*/ /*_._VALSTR___V1648*/ meltfptr[1647] = (melt_ptr_t) &meltcdat->dstr_1541__CLASS_CITERATOR_BINDING; meltcdat->dstr_1541__CLASS_CITERATOR_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1541__CLASS_CITERATOR_BINDING.val, "CLASS_CITERATOR_BINDING", sizeof (meltcdat->dstr_1541__CLASS_CITERATOR_BINDING.val)-1); meltcdat->dstr_1541__CLASS_CITERATOR_BINDING.val[23] = (char)0 ; meltcdat->dstr_1541__CLASS_CITERATOR_BINDING.slen = 23 ; /*iniobj dsym_1542__CLASS_HOOK_BINDING*/ /*uniqueobj*/ if (!/*_._VALDATA___V1649*/ meltfptr[1648]) /*_._VALDATA___V1649*/ meltfptr[1648] = (melt_ptr_t )&meltcdat->dsym_1542__CLASS_HOOK_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1542__CLASS_HOOK_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_1542__CLASS_HOOK_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1542__CLASS_HOOK_BINDING.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1542__CLASS_HOOK_BINDING.obj_hash = 798751276; meltcdat->dsym_1542__CLASS_HOOK_BINDING.obj_len = 3; /*inistring dstr_1543__CLASS_HOOK_BINDING*/ /*_._VALSTR___V1650*/ meltfptr[1649] = (melt_ptr_t) &meltcdat->dstr_1543__CLASS_HOOK_BINDING; meltcdat->dstr_1543__CLASS_HOOK_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1543__CLASS_HOOK_BINDING.val, "CLASS_HOOK_BINDING", sizeof (meltcdat->dstr_1543__CLASS_HOOK_BINDING.val)-1); meltcdat->dstr_1543__CLASS_HOOK_BINDING.val[18] = (char)0 ; meltcdat->dstr_1543__CLASS_HOOK_BINDING.slen = 18 ; /*iniobj dsym_1544__CLASS_CMATCHER_BINDING*/ /*uniqueobj*/ if (!/*_._VALDATA___V1651*/ meltfptr[1650]) /*_._VALDATA___V1651*/ meltfptr[1650] = (melt_ptr_t )&meltcdat->dsym_1544__CLASS_CMATCHER_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1544__CLASS_CMATCHER_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_1544__CLASS_CMATCHER_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1544__CLASS_CMATCHER_BINDING.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1544__CLASS_CMATCHER_BINDING.obj_hash = 386982082; meltcdat->dsym_1544__CLASS_CMATCHER_BINDING.obj_len = 3; /*inistring dstr_1545__CLASS_CMATCHER_BINDING*/ /*_._VALSTR___V1652*/ meltfptr[1651] = (melt_ptr_t) &meltcdat->dstr_1545__CLASS_CMATCHER_BINDING; meltcdat->dstr_1545__CLASS_CMATCHER_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1545__CLASS_CMATCHER_BINDING.val, "CLASS_CMATCHER_BINDING", sizeof (meltcdat->dstr_1545__CLASS_CMATCHER_BINDING.val)-1); meltcdat->dstr_1545__CLASS_CMATCHER_BINDING.val[22] = (char)0 ; meltcdat->dstr_1545__CLASS_CMATCHER_BINDING.slen = 22 ; /*iniobj dsym_1546__CLASS_FUNMATCHER_BINDING*/ /*uniqueobj*/ if (!/*_._VALDATA___V1653*/ meltfptr[1652]) /*_._VALDATA___V1653*/ meltfptr[1652] = (melt_ptr_t )&meltcdat->dsym_1546__CLASS_FUNMATCHER_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1546__CLASS_FUNMATCHER_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_1546__CLASS_FUNMATCHER_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1546__CLASS_FUNMATCHER_BINDING.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1546__CLASS_FUNMATCHER_BINDING.obj_hash = 81554237; meltcdat->dsym_1546__CLASS_FUNMATCHER_BINDING.obj_len = 3; /*inistring dstr_1547__CLASS_FUNMATCHER_BINDING*/ /*_._VALSTR___V1654*/ meltfptr[1653] = (melt_ptr_t) &meltcdat->dstr_1547__CLASS_FUNMATCHER_BINDING; meltcdat->dstr_1547__CLASS_FUNMATCHER_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1547__CLASS_FUNMATCHER_BINDING.val, "CLASS_FUNMATCHER_BINDING", sizeof (meltcdat->dstr_1547__CLASS_FUNMATCHER_BINDING.val)-1); meltcdat->dstr_1547__CLASS_FUNMATCHER_BINDING.val[24] = (char)0 ; meltcdat->dstr_1547__CLASS_FUNMATCHER_BINDING.slen = 24 ; /*iniobj dsym_1548__CLASS_FIELD_BINDING*/ /*uniqueobj*/ if (!/*_._VALDATA___V1655*/ meltfptr[1654]) /*_._VALDATA___V1655*/ meltfptr[1654] = (melt_ptr_t )&meltcdat->dsym_1548__CLASS_FIELD_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1548__CLASS_FIELD_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_1548__CLASS_FIELD_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1548__CLASS_FIELD_BINDING.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1548__CLASS_FIELD_BINDING.obj_hash = 412002748; meltcdat->dsym_1548__CLASS_FIELD_BINDING.obj_len = 3; /*inistring dstr_1549__CLASS_FIELD_BINDING*/ /*_._VALSTR___V1656*/ meltfptr[1655] = (melt_ptr_t) &meltcdat->dstr_1549__CLASS_FIELD_BINDING; meltcdat->dstr_1549__CLASS_FIELD_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1549__CLASS_FIELD_BINDING.val, "CLASS_FIELD_BINDING", sizeof (meltcdat->dstr_1549__CLASS_FIELD_BINDING.val)-1); meltcdat->dstr_1549__CLASS_FIELD_BINDING.val[19] = (char)0 ; meltcdat->dstr_1549__CLASS_FIELD_BINDING.slen = 19 ; /*iniobj dsym_1550__CLASS_FORMAL_BINDING*/ /*uniqueobj*/ if (!/*_._VALDATA___V1657*/ meltfptr[1656]) /*_._VALDATA___V1657*/ meltfptr[1656] = (melt_ptr_t )&meltcdat->dsym_1550__CLASS_FORMAL_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1550__CLASS_FORMAL_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_1550__CLASS_FORMAL_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1550__CLASS_FORMAL_BINDING.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1550__CLASS_FORMAL_BINDING.obj_hash = 3733780; meltcdat->dsym_1550__CLASS_FORMAL_BINDING.obj_len = 3; /*inistring dstr_1551__CLASS_FORMAL_BINDING*/ /*_._VALSTR___V1658*/ meltfptr[1657] = (melt_ptr_t) &meltcdat->dstr_1551__CLASS_FORMAL_BINDING; meltcdat->dstr_1551__CLASS_FORMAL_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1551__CLASS_FORMAL_BINDING.val, "CLASS_FORMAL_BINDING", sizeof (meltcdat->dstr_1551__CLASS_FORMAL_BINDING.val)-1); meltcdat->dstr_1551__CLASS_FORMAL_BINDING.val[20] = (char)0 ; meltcdat->dstr_1551__CLASS_FORMAL_BINDING.slen = 20 ; /*iniobj dsym_1552__CLASS_LET_BINDING*/ /*uniqueobj*/ if (!/*_._VALDATA___V1659*/ meltfptr[1658]) /*_._VALDATA___V1659*/ meltfptr[1658] = (melt_ptr_t )&meltcdat->dsym_1552__CLASS_LET_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1552__CLASS_LET_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_1552__CLASS_LET_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1552__CLASS_LET_BINDING.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1552__CLASS_LET_BINDING.obj_hash = 373730517; meltcdat->dsym_1552__CLASS_LET_BINDING.obj_len = 3; /*inistring dstr_1553__CLASS_LET_BINDING*/ /*_._VALSTR___V1660*/ meltfptr[1659] = (melt_ptr_t) &meltcdat->dstr_1553__CLASS_LET_BINDING; meltcdat->dstr_1553__CLASS_LET_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1553__CLASS_LET_BINDING.val, "CLASS_LET_BINDING", sizeof (meltcdat->dstr_1553__CLASS_LET_BINDING.val)-1); meltcdat->dstr_1553__CLASS_LET_BINDING.val[17] = (char)0 ; meltcdat->dstr_1553__CLASS_LET_BINDING.slen = 17 ; /*iniobj dsym_1554__CLASS_VALUE_BINDING*/ /*uniqueobj*/ if (!/*_._VALDATA___V1661*/ meltfptr[1660]) /*_._VALDATA___V1661*/ meltfptr[1660] = (melt_ptr_t )&meltcdat->dsym_1554__CLASS_VALUE_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1554__CLASS_VALUE_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_1554__CLASS_VALUE_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1554__CLASS_VALUE_BINDING.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1554__CLASS_VALUE_BINDING.obj_hash = 952021086; meltcdat->dsym_1554__CLASS_VALUE_BINDING.obj_len = 3; /*inistring dstr_1555__CLASS_VALUE_BINDING*/ /*_._VALSTR___V1662*/ meltfptr[1661] = (melt_ptr_t) &meltcdat->dstr_1555__CLASS_VALUE_BINDING; meltcdat->dstr_1555__CLASS_VALUE_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1555__CLASS_VALUE_BINDING.val, "CLASS_VALUE_BINDING", sizeof (meltcdat->dstr_1555__CLASS_VALUE_BINDING.val)-1); meltcdat->dstr_1555__CLASS_VALUE_BINDING.val[19] = (char)0 ; meltcdat->dstr_1555__CLASS_VALUE_BINDING.slen = 19 ; /*iniobj dsym_1556__CLASS_PRIMITIVE*/ /*uniqueobj*/ if (!/*_._VALDATA___V1663*/ meltfptr[1662]) /*_._VALDATA___V1663*/ meltfptr[1662] = (melt_ptr_t )&meltcdat->dsym_1556__CLASS_PRIMITIVE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1556__CLASS_PRIMITIVE", 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_1556__CLASS_PRIMITIVE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1556__CLASS_PRIMITIVE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1556__CLASS_PRIMITIVE.obj_hash = 102527506; meltcdat->dsym_1556__CLASS_PRIMITIVE.obj_len = 3; /*inistring dstr_1557__CLASS_PRIMITIVE*/ /*_._VALSTR___V1664*/ meltfptr[1663] = (melt_ptr_t) &meltcdat->dstr_1557__CLASS_PRIMITIVE; meltcdat->dstr_1557__CLASS_PRIMITIVE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1557__CLASS_PRIMITIVE.val, "CLASS_PRIMITIVE", sizeof (meltcdat->dstr_1557__CLASS_PRIMITIVE.val)-1); meltcdat->dstr_1557__CLASS_PRIMITIVE.val[15] = (char)0 ; meltcdat->dstr_1557__CLASS_PRIMITIVE.slen = 15 ; /*iniobj dsym_1558__DEBUG_MORE*/ /*uniqueobj*/ if (!/*_._VALDATA___V1665*/ meltfptr[1664]) /*_._VALDATA___V1665*/ meltfptr[1664] = (melt_ptr_t )&meltcdat->dsym_1558__DEBUG_MORE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1558__DEBUG_MORE", 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_1558__DEBUG_MORE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1558__DEBUG_MORE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1558__DEBUG_MORE.obj_hash = 1017542478; meltcdat->dsym_1558__DEBUG_MORE.obj_len = 3; /*inistring dstr_1559__DEBUG_MORE*/ /*_._VALSTR___V1666*/ meltfptr[1665] = (melt_ptr_t) &meltcdat->dstr_1559__DEBUG_MORE; meltcdat->dstr_1559__DEBUG_MORE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1559__DEBUG_MORE.val, "DEBUG_MORE", sizeof (meltcdat->dstr_1559__DEBUG_MORE.val)-1); meltcdat->dstr_1559__DEBUG_MORE.val[10] = (char)0 ; meltcdat->dstr_1559__DEBUG_MORE.slen = 10 ; /*inirout drout_1560__LAMBDA_*/ /*iniroutlocvar*/ /*_._VALROUT___V1641*/ meltfptr[1640] = (melt_ptr_t) &meltcdat->drout_1560__LAMBDA_; meltcdat->drout_1560__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1560__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:2188", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1560__LAMBDA_.nbval = 1; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1560__LAMBDA_, meltrout_29_WARMELTmiMACRO_LAMBDA_cl2); /*inirout drout_1561__EXPAND_PRIMITIVE*/ /*iniroutlocvar*/ /*_._VALROUT___V1638*/ meltfptr[1637] = (melt_ptr_t) &meltcdat->drout_1561__EXPAND_PRIMITIVE; meltcdat->drout_1561__EXPAND_PRIMITIVE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1561__EXPAND_PRIMITIVE.routdescr, "EXPAND_PRIMITIVE @warmelt-macro.melt:2236", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1561__EXPAND_PRIMITIVE.nbval = 6; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1561__EXPAND_PRIMITIVE, meltrout_30_WARMELTmiMACRO_EXPAND_PRIMITIVE); /*iniclos dclo_1562__EXPAND_PRIMITIVE*/ /*_._VALCLO___V1637*/ meltfptr[1636] = (melt_ptr_t) &meltcdat->dclo_1562__EXPAND_PRIMITIVE; meltcdat->dclo_1562__EXPAND_PRIMITIVE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1562__EXPAND_PRIMITIVE.nbval = 0; /*inirout drout_1563__EXPAND_HOOK*/ /*iniroutlocvar*/ /*_._VALROUT___V1640*/ meltfptr[1639] = (melt_ptr_t) &meltcdat->drout_1563__EXPAND_HOOK; meltcdat->drout_1563__EXPAND_HOOK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1563__EXPAND_HOOK.routdescr, "EXPAND_HOOK @warmelt-macro.melt:2253", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1563__EXPAND_HOOK.nbval = 7; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1563__EXPAND_HOOK, meltrout_31_WARMELTmiMACRO_EXPAND_HOOK); /*iniclos dclo_1564__EXPAND_HOOK*/ /*_._VALCLO___V1639*/ meltfptr[1638] = (melt_ptr_t) &meltcdat->dclo_1564__EXPAND_HOOK; meltcdat->dclo_1564__EXPAND_HOOK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1564__EXPAND_HOOK.nbval = 0; /*iniobj dsym_1565__CLASS_PATTERN_EXPANSION_CONTEXT*/ /*uniqueobj*/ if (!/*_._VALDATA___V1667*/ meltfptr[1666]) /*_._VALDATA___V1667*/ meltfptr[1666] = (melt_ptr_t )&meltcdat->dsym_1565__CLASS_PATTERN_EXPANSION_CONTEXT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1565__CLASS_PATTERN_EXPANSION_CONTEXT", 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_1565__CLASS_PATTERN_EXPANSION_CONTEXT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1565__CLASS_PATTERN_EXPANSION_CONTEXT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1565__CLASS_PATTERN_EXPANSION_CONTEXT.obj_hash = 532078431; meltcdat->dsym_1565__CLASS_PATTERN_EXPANSION_CONTEXT.obj_len = 3; /*inistring dstr_1566__CLASS_PATTERN_EXPANSION_*/ /*_._VALSTR___V1668*/ meltfptr[1667] = (melt_ptr_t) &meltcdat->dstr_1566__CLASS_PATTERN_EXPANSION_; meltcdat->dstr_1566__CLASS_PATTERN_EXPANSION_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1566__CLASS_PATTERN_EXPANSION_.val, "CLASS_PATTERN_EXPANSION_CONTEXT", sizeof (meltcdat->dstr_1566__CLASS_PATTERN_EXPANSION_.val)-1); meltcdat->dstr_1566__CLASS_PATTERN_EXPANSION_.val[31] = (char)0 ; meltcdat->dstr_1566__CLASS_PATTERN_EXPANSION_.slen = 31 ; /*iniobj dsym_1567__CLASS_ROOT*/ /*uniqueobj*/ if (!/*_._VALDATA___V1669*/ meltfptr[1668]) /*_._VALDATA___V1669*/ meltfptr[1668] = (melt_ptr_t )&meltcdat->dsym_1567__CLASS_ROOT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1567__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_1567__CLASS_ROOT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1567__CLASS_ROOT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1567__CLASS_ROOT.obj_hash = 60568825; meltcdat->dsym_1567__CLASS_ROOT.obj_len = 3; /*inistring dstr_1568__CLASS_ROOT*/ /*_._VALSTR___V1670*/ meltfptr[1669] = (melt_ptr_t) &meltcdat->dstr_1568__CLASS_ROOT; meltcdat->dstr_1568__CLASS_ROOT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1568__CLASS_ROOT.val, "CLASS_ROOT", sizeof (meltcdat->dstr_1568__CLASS_ROOT.val)-1); meltcdat->dstr_1568__CLASS_ROOT.val[10] = (char)0 ; meltcdat->dstr_1568__CLASS_ROOT.slen = 10 ; MELT_LOCATION("warmelt-macro.melt:2275:/ iniobj"); /*iniobj dobj_1569__CLASS_PATTERN_EXPANSION_CONTEXT*/ /*_._VALDATA___V1671*/ meltfptr[1670] = (melt_ptr_t )&meltcdat->dobj_1569__CLASS_PATTERN_EXPANSION_CONTEXT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1569__CLASS_PATTERN_EXPANSION_CONTEXT", 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_1569__CLASS_PATTERN_EXPANSION_CONTEXT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1569__CLASS_PATTERN_EXPANSION_CONTEXT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_1569__CLASS_PATTERN_EXPANSION_CONTEXT.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_1569__CLASS_PATTERN_EXPANSION_CONTEXT.obj_hash = 98789355; meltcdat->dobj_1569__CLASS_PATTERN_EXPANSION_CONTEXT.obj_len = 8; /*inistring dstr_1570__CLASS_PATTERN_EXPANSION_*/ /*_._VALSTR___V1672*/ meltfptr[1671] = (melt_ptr_t) &meltcdat->dstr_1570__CLASS_PATTERN_EXPANSION_; meltcdat->dstr_1570__CLASS_PATTERN_EXPANSION_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1570__CLASS_PATTERN_EXPANSION_.val, "CLASS_PATTERN_EXPANSION_CONTEXT", sizeof (meltcdat->dstr_1570__CLASS_PATTERN_EXPANSION_.val)-1); meltcdat->dstr_1570__CLASS_PATTERN_EXPANSION_.val[31] = (char)0 ; meltcdat->dstr_1570__CLASS_PATTERN_EXPANSION_.slen = 31 ; /*inimult dtup_1571_syCLASS_PATTERN_EXPANSION_CONTEXT*/ /*_._VALTUP___V1673*/ meltfptr[1672] = (melt_ptr_t) &meltcdat->dtup_1571_syCLASS_PATTERN_EXPANSION_CONTEXT; meltcdat->dtup_1571_syCLASS_PATTERN_EXPANSION_CONTEXT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_1571_syCLASS_PATTERN_EXPANSION_CONTEXT.nbval = 1; /*inimult dtup_1572_syCLASS_PATTERN_EXPANSION_CONTEXT*/ /*_._VALTUP___V1682*/ meltfptr[1681] = (melt_ptr_t) &meltcdat->dtup_1572_syCLASS_PATTERN_EXPANSION_CONTEXT; meltcdat->dtup_1572_syCLASS_PATTERN_EXPANSION_CONTEXT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_1572_syCLASS_PATTERN_EXPANSION_CONTEXT.nbval = 4; /*iniobj dsym_1573__PCTX_MEXPANDER*/ /*uniqueobj*/ if (!/*_._VALDATA___V1683*/ meltfptr[1682]) /*_._VALDATA___V1683*/ meltfptr[1682] = (melt_ptr_t )&meltcdat->dsym_1573__PCTX_MEXPANDER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1573__PCTX_MEXPANDER", 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_1573__PCTX_MEXPANDER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1573__PCTX_MEXPANDER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1573__PCTX_MEXPANDER.obj_hash = 715065668; meltcdat->dsym_1573__PCTX_MEXPANDER.obj_len = 3; /*inistring dstr_1574__PCTX_MEXPANDER*/ /*_._VALSTR___V1684*/ meltfptr[1683] = (melt_ptr_t) &meltcdat->dstr_1574__PCTX_MEXPANDER; meltcdat->dstr_1574__PCTX_MEXPANDER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1574__PCTX_MEXPANDER.val, "PCTX_MEXPANDER", sizeof (meltcdat->dstr_1574__PCTX_MEXPANDER.val)-1); meltcdat->dstr_1574__PCTX_MEXPANDER.val[14] = (char)0 ; meltcdat->dstr_1574__PCTX_MEXPANDER.slen = 14 ; /*^iniobj*/ /*iniobj dobj_1575__PCTX_MEXPANDER*/ /*_._VALDATA___V1674*/ meltfptr[1673] = (melt_ptr_t )&meltcdat->dobj_1575__PCTX_MEXPANDER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1575__PCTX_MEXPANDER", 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_1575__PCTX_MEXPANDER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1575__PCTX_MEXPANDER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_1575__PCTX_MEXPANDER.obj_num = 0; meltcdat->dobj_1575__PCTX_MEXPANDER.obj_hash = 480414130; meltcdat->dobj_1575__PCTX_MEXPANDER.obj_len = 4; /*inistring dstr_1576__PCTX_MEXPANDER*/ /*_._VALSTR___V1675*/ meltfptr[1674] = (melt_ptr_t) &meltcdat->dstr_1576__PCTX_MEXPANDER; meltcdat->dstr_1576__PCTX_MEXPANDER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1576__PCTX_MEXPANDER.val, "PCTX_MEXPANDER", sizeof (meltcdat->dstr_1576__PCTX_MEXPANDER.val)-1); meltcdat->dstr_1576__PCTX_MEXPANDER.val[14] = (char)0 ; meltcdat->dstr_1576__PCTX_MEXPANDER.slen = 14 ; /*iniobj dsym_1577__PCTX_PEXPANDER*/ /*uniqueobj*/ if (!/*_._VALDATA___V1685*/ meltfptr[1684]) /*_._VALDATA___V1685*/ meltfptr[1684] = (melt_ptr_t )&meltcdat->dsym_1577__PCTX_PEXPANDER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1577__PCTX_PEXPANDER", 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_1577__PCTX_PEXPANDER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1577__PCTX_PEXPANDER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1577__PCTX_PEXPANDER.obj_hash = 169945608; meltcdat->dsym_1577__PCTX_PEXPANDER.obj_len = 3; /*inistring dstr_1578__PCTX_PEXPANDER*/ /*_._VALSTR___V1686*/ meltfptr[1685] = (melt_ptr_t) &meltcdat->dstr_1578__PCTX_PEXPANDER; meltcdat->dstr_1578__PCTX_PEXPANDER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1578__PCTX_PEXPANDER.val, "PCTX_PEXPANDER", sizeof (meltcdat->dstr_1578__PCTX_PEXPANDER.val)-1); meltcdat->dstr_1578__PCTX_PEXPANDER.val[14] = (char)0 ; meltcdat->dstr_1578__PCTX_PEXPANDER.slen = 14 ; /*^iniobj*/ /*iniobj dobj_1579__PCTX_PEXPANDER*/ /*_._VALDATA___V1676*/ meltfptr[1675] = (melt_ptr_t )&meltcdat->dobj_1579__PCTX_PEXPANDER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1579__PCTX_PEXPANDER", 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_1579__PCTX_PEXPANDER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1579__PCTX_PEXPANDER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_1579__PCTX_PEXPANDER.obj_num = 1; meltcdat->dobj_1579__PCTX_PEXPANDER.obj_hash = 793135188; meltcdat->dobj_1579__PCTX_PEXPANDER.obj_len = 4; /*inistring dstr_1580__PCTX_PEXPANDER*/ /*_._VALSTR___V1677*/ meltfptr[1676] = (melt_ptr_t) &meltcdat->dstr_1580__PCTX_PEXPANDER; meltcdat->dstr_1580__PCTX_PEXPANDER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1580__PCTX_PEXPANDER.val, "PCTX_PEXPANDER", sizeof (meltcdat->dstr_1580__PCTX_PEXPANDER.val)-1); meltcdat->dstr_1580__PCTX_PEXPANDER.val[14] = (char)0 ; meltcdat->dstr_1580__PCTX_PEXPANDER.slen = 14 ; /*iniobj dsym_1581__PCTX_VARMAP*/ /*uniqueobj*/ if (!/*_._VALDATA___V1687*/ meltfptr[1686]) /*_._VALDATA___V1687*/ meltfptr[1686] = (melt_ptr_t )&meltcdat->dsym_1581__PCTX_VARMAP; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1581__PCTX_VARMAP", 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_1581__PCTX_VARMAP", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1581__PCTX_VARMAP.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1581__PCTX_VARMAP.obj_hash = 83805471; meltcdat->dsym_1581__PCTX_VARMAP.obj_len = 3; /*inistring dstr_1582__PCTX_VARMAP*/ /*_._VALSTR___V1688*/ meltfptr[1687] = (melt_ptr_t) &meltcdat->dstr_1582__PCTX_VARMAP; meltcdat->dstr_1582__PCTX_VARMAP.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1582__PCTX_VARMAP.val, "PCTX_VARMAP", sizeof (meltcdat->dstr_1582__PCTX_VARMAP.val)-1); meltcdat->dstr_1582__PCTX_VARMAP.val[11] = (char)0 ; meltcdat->dstr_1582__PCTX_VARMAP.slen = 11 ; /*^iniobj*/ /*iniobj dobj_1583__PCTX_VARMAP*/ /*_._VALDATA___V1678*/ meltfptr[1677] = (melt_ptr_t )&meltcdat->dobj_1583__PCTX_VARMAP; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1583__PCTX_VARMAP", 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_1583__PCTX_VARMAP", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1583__PCTX_VARMAP.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_1583__PCTX_VARMAP.obj_num = 2; meltcdat->dobj_1583__PCTX_VARMAP.obj_hash = 675504550; meltcdat->dobj_1583__PCTX_VARMAP.obj_len = 4; /*inistring dstr_1584__PCTX_VARMAP*/ /*_._VALSTR___V1679*/ meltfptr[1678] = (melt_ptr_t) &meltcdat->dstr_1584__PCTX_VARMAP; meltcdat->dstr_1584__PCTX_VARMAP.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1584__PCTX_VARMAP.val, "PCTX_VARMAP", sizeof (meltcdat->dstr_1584__PCTX_VARMAP.val)-1); meltcdat->dstr_1584__PCTX_VARMAP.val[11] = (char)0 ; meltcdat->dstr_1584__PCTX_VARMAP.slen = 11 ; /*iniobj dsym_1585__PCTX_MODCTX*/ /*uniqueobj*/ if (!/*_._VALDATA___V1689*/ meltfptr[1688]) /*_._VALDATA___V1689*/ meltfptr[1688] = (melt_ptr_t )&meltcdat->dsym_1585__PCTX_MODCTX; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1585__PCTX_MODCTX", 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_1585__PCTX_MODCTX", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1585__PCTX_MODCTX.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1585__PCTX_MODCTX.obj_hash = 770769253; meltcdat->dsym_1585__PCTX_MODCTX.obj_len = 3; /*inistring dstr_1586__PCTX_MODCTX*/ /*_._VALSTR___V1690*/ meltfptr[1689] = (melt_ptr_t) &meltcdat->dstr_1586__PCTX_MODCTX; meltcdat->dstr_1586__PCTX_MODCTX.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1586__PCTX_MODCTX.val, "PCTX_MODCTX", sizeof (meltcdat->dstr_1586__PCTX_MODCTX.val)-1); meltcdat->dstr_1586__PCTX_MODCTX.val[11] = (char)0 ; meltcdat->dstr_1586__PCTX_MODCTX.slen = 11 ; /*^iniobj*/ /*iniobj dobj_1587__PCTX_MODCTX*/ /*_._VALDATA___V1680*/ meltfptr[1679] = (melt_ptr_t )&meltcdat->dobj_1587__PCTX_MODCTX; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1587__PCTX_MODCTX", 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_1587__PCTX_MODCTX", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1587__PCTX_MODCTX.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_1587__PCTX_MODCTX.obj_num = 3; meltcdat->dobj_1587__PCTX_MODCTX.obj_hash = 889585949; meltcdat->dobj_1587__PCTX_MODCTX.obj_len = 4; /*inistring dstr_1588__PCTX_MODCTX*/ /*_._VALSTR___V1681*/ meltfptr[1680] = (melt_ptr_t) &meltcdat->dstr_1588__PCTX_MODCTX; meltcdat->dstr_1588__PCTX_MODCTX.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1588__PCTX_MODCTX.val, "PCTX_MODCTX", sizeof (meltcdat->dstr_1588__PCTX_MODCTX.val)-1); meltcdat->dstr_1588__PCTX_MODCTX.val[11] = (char)0 ; meltcdat->dstr_1588__PCTX_MODCTX.slen = 11 ; /*inirout drout_1589__PATTERNEXPAND_PAIRLIST_AS_TUPLE*/ /*iniroutlocvar*/ /*_._VALROUT___V1691*/ meltfptr[1690] = (melt_ptr_t) &meltcdat->drout_1589__PATTERNEXPAND_PAIRLIST_AS_TUPLE; meltcdat->drout_1589__PATTERNEXPAND_PAIRLIST_AS_TUPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1589__PATTERNEXPAND_PAIRLIST_AS_TUPLE.routdescr, "PATTERNEXPAND_PAIRLIST_AS_TUPLE @warmelt-macro.melt:2288", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1589__PATTERNEXPAND_PAIRLIST_AS_TUPLE.nbval = 5; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1589__PATTERNEXPAND_PAIRLIST_AS_TUPLE, meltrout_32_WARMELTmiMACRO_PATTERNEXPAND_PAIRLIST_AS_TUPLE); /*iniclos dclo_1590__PATTERNEXPAND_PAIRLIST_AS_TUPLE*/ /*_._VALCLO___V1712*/ meltfptr[1711] = (melt_ptr_t) &meltcdat->dclo_1590__PATTERNEXPAND_PAIRLIST_AS_TUPLE; meltcdat->dclo_1590__PATTERNEXPAND_PAIRLIST_AS_TUPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1590__PATTERNEXPAND_PAIRLIST_AS_TUPLE.nbval = 0; /*iniobj dsym_1591__PAIRLIST_TO_MULTIPLE*/ /*uniqueobj*/ if (!/*_._VALDATA___V1713*/ meltfptr[1712]) /*_._VALDATA___V1713*/ meltfptr[1712] = (melt_ptr_t )&meltcdat->dsym_1591__PAIRLIST_TO_MULTIPLE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1591__PAIRLIST_TO_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_1591__PAIRLIST_TO_MULTIPLE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1591__PAIRLIST_TO_MULTIPLE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1591__PAIRLIST_TO_MULTIPLE.obj_hash = 205669322; meltcdat->dsym_1591__PAIRLIST_TO_MULTIPLE.obj_len = 3; /*inistring dstr_1592__PAIRLIST_TO_MULTIPLE*/ /*_._VALSTR___V1714*/ meltfptr[1713] = (melt_ptr_t) &meltcdat->dstr_1592__PAIRLIST_TO_MULTIPLE; meltcdat->dstr_1592__PAIRLIST_TO_MULTIPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1592__PAIRLIST_TO_MULTIPLE.val, "PAIRLIST_TO_MULTIPLE", sizeof (meltcdat->dstr_1592__PAIRLIST_TO_MULTIPLE.val)-1); meltcdat->dstr_1592__PAIRLIST_TO_MULTIPLE.val[20] = (char)0 ; meltcdat->dstr_1592__PAIRLIST_TO_MULTIPLE.slen = 20 ; /*inirout drout_1593__LAMBDA_*/ /*iniroutlocvar*/ /*_._VALROUT___V1711*/ meltfptr[1710] = (melt_ptr_t) &meltcdat->drout_1593__LAMBDA_; meltcdat->drout_1593__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1593__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:2292", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1593__LAMBDA_.nbval = 1; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1593__LAMBDA_, meltrout_33_WARMELTmiMACRO_LAMBDA_cl3); /*inirout drout_1594__PATMACEXPAND_FOR_MATCHER*/ /*iniroutlocvar*/ /*_._VALROUT___V1704*/ meltfptr[1703] = (melt_ptr_t) &meltcdat->drout_1594__PATMACEXPAND_FOR_MATCHER; meltcdat->drout_1594__PATMACEXPAND_FOR_MATCHER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1594__PATMACEXPAND_FOR_MATCHER.routdescr, "PATMACEXPAND_FOR_MATCHER @warmelt-macro.melt:2302", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1594__PATMACEXPAND_FOR_MATCHER.nbval = 18; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1594__PATMACEXPAND_FOR_MATCHER, meltrout_34_WARMELTmiMACRO_PATMACEXPAND_FOR_MATCHER); /*iniclos dclo_1595__PATMACEXPAND_FOR_MATCHER*/ /*_._VALCLO___V1703*/ meltfptr[1702] = (melt_ptr_t) &meltcdat->dclo_1595__PATMACEXPAND_FOR_MATCHER; meltcdat->dclo_1595__PATMACEXPAND_FOR_MATCHER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1595__PATMACEXPAND_FOR_MATCHER.nbval = 0; /*iniobj dsym_1596__CLASS_REFERENCE*/ /*uniqueobj*/ if (!/*_._VALDATA___V1715*/ meltfptr[1714]) /*_._VALDATA___V1715*/ meltfptr[1714] = (melt_ptr_t )&meltcdat->dsym_1596__CLASS_REFERENCE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1596__CLASS_REFERENCE", 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_1596__CLASS_REFERENCE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1596__CLASS_REFERENCE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1596__CLASS_REFERENCE.obj_hash = 896623907; meltcdat->dsym_1596__CLASS_REFERENCE.obj_len = 3; /*inistring dstr_1597__CLASS_REFERENCE*/ /*_._VALSTR___V1716*/ meltfptr[1715] = (melt_ptr_t) &meltcdat->dstr_1597__CLASS_REFERENCE; meltcdat->dstr_1597__CLASS_REFERENCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1597__CLASS_REFERENCE.val, "CLASS_REFERENCE", sizeof (meltcdat->dstr_1597__CLASS_REFERENCE.val)-1); meltcdat->dstr_1597__CLASS_REFERENCE.val[15] = (char)0 ; meltcdat->dstr_1597__CLASS_REFERENCE.slen = 15 ; /*iniobj dsym_1598__MULTIPLE_MAP*/ /*uniqueobj*/ if (!/*_._VALDATA___V1717*/ meltfptr[1716]) /*_._VALDATA___V1717*/ meltfptr[1716] = (melt_ptr_t )&meltcdat->dsym_1598__MULTIPLE_MAP; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1598__MULTIPLE_MAP", 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_1598__MULTIPLE_MAP", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1598__MULTIPLE_MAP.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1598__MULTIPLE_MAP.obj_hash = 218301686; meltcdat->dsym_1598__MULTIPLE_MAP.obj_len = 3; /*inistring dstr_1599__MULTIPLE_MAP*/ /*_._VALSTR___V1718*/ meltfptr[1717] = (melt_ptr_t) &meltcdat->dstr_1599__MULTIPLE_MAP; meltcdat->dstr_1599__MULTIPLE_MAP.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1599__MULTIPLE_MAP.val, "MULTIPLE_MAP", sizeof (meltcdat->dstr_1599__MULTIPLE_MAP.val)-1); meltcdat->dstr_1599__MULTIPLE_MAP.val[12] = (char)0 ; meltcdat->dstr_1599__MULTIPLE_MAP.slen = 12 ; /*inirout drout_1600__LAMBDA_*/ /*iniroutlocvar*/ /*_._VALROUT___V1705*/ meltfptr[1704] = (melt_ptr_t) &meltcdat->drout_1600__LAMBDA_; meltcdat->drout_1600__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1600__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:2325", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1600__LAMBDA_.nbval = 4; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1600__LAMBDA_, meltrout_35_WARMELTmiMACRO_LAMBDA_cl4); /*inirout drout_1601__LAMBDA_*/ /*iniroutlocvar*/ /*_._VALROUT___V1706*/ meltfptr[1705] = (melt_ptr_t) &meltcdat->drout_1601__LAMBDA_; meltcdat->drout_1601__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1601__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:2337", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1601__LAMBDA_.nbval = 3; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1601__LAMBDA_, meltrout_36_WARMELTmiMACRO_LAMBDA_cl5); /*inirout drout_1602__PATTERN_WEIGHT_TUPLE*/ /*iniroutlocvar*/ /*_._VALROUT___V1708*/ meltfptr[1707] = (melt_ptr_t) &meltcdat->drout_1602__PATTERN_WEIGHT_TUPLE; meltcdat->drout_1602__PATTERN_WEIGHT_TUPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1602__PATTERN_WEIGHT_TUPLE.routdescr, "PATTERN_WEIGHT_TUPLE @warmelt-macro.melt:2355", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1602__PATTERN_WEIGHT_TUPLE.nbval = 7; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1602__PATTERN_WEIGHT_TUPLE, meltrout_37_WARMELTmiMACRO_PATTERN_WEIGHT_TUPLE); /*iniclos dclo_1603__PATTERN_WEIGHT_TUPLE*/ /*_._VALCLO___V1707*/ meltfptr[1706] = (melt_ptr_t) &meltcdat->dclo_1603__PATTERN_WEIGHT_TUPLE; meltcdat->dclo_1603__PATTERN_WEIGHT_TUPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1603__PATTERN_WEIGHT_TUPLE.nbval = 0; /*iniobj dsym_1604__DISCR_INTEGER*/ /*uniqueobj*/ if (!/*_._VALDATA___V1719*/ meltfptr[1718]) /*_._VALDATA___V1719*/ meltfptr[1718] = (melt_ptr_t )&meltcdat->dsym_1604__DISCR_INTEGER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1604__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_1604__DISCR_INTEGER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1604__DISCR_INTEGER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1604__DISCR_INTEGER.obj_hash = 119182103; meltcdat->dsym_1604__DISCR_INTEGER.obj_len = 3; /*inistring dstr_1605__DISCR_INTEGER*/ /*_._VALSTR___V1720*/ meltfptr[1719] = (melt_ptr_t) &meltcdat->dstr_1605__DISCR_INTEGER; meltcdat->dstr_1605__DISCR_INTEGER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1605__DISCR_INTEGER.val, "DISCR_INTEGER", sizeof (meltcdat->dstr_1605__DISCR_INTEGER.val)-1); meltcdat->dstr_1605__DISCR_INTEGER.val[13] = (char)0 ; meltcdat->dstr_1605__DISCR_INTEGER.slen = 13 ; /*inirout drout_1606__LAMBDA_*/ /*iniroutlocvar*/ /*_._VALROUT___V1709*/ meltfptr[1708] = (melt_ptr_t) &meltcdat->drout_1606__LAMBDA_; meltcdat->drout_1606__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1606__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:2369", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1606__LAMBDA_.nbval = 2; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1606__LAMBDA_, meltrout_38_WARMELTmiMACRO_LAMBDA_cl6); /*inirout drout_1607__PATTERNEXPAND_EXPR*/ /*iniroutlocvar*/ /*_._VALROUT___V1702*/ meltfptr[1701] = (melt_ptr_t) &meltcdat->drout_1607__PATTERNEXPAND_EXPR; meltcdat->drout_1607__PATTERNEXPAND_EXPR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1607__PATTERNEXPAND_EXPR.routdescr, "PATTERNEXPAND_EXPR @warmelt-macro.melt:2390", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1607__PATTERNEXPAND_EXPR.nbval = 22; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1607__PATTERNEXPAND_EXPR, meltrout_39_WARMELTmiMACRO_PATTERNEXPAND_EXPR); /*iniclos dclo_1608__PATTERNEXPAND_EXPR*/ /*_._VALCLO___V1701*/ meltfptr[1700] = (melt_ptr_t) &meltcdat->dclo_1608__PATTERNEXPAND_EXPR; meltcdat->dclo_1608__PATTERNEXPAND_EXPR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1608__PATTERNEXPAND_EXPR.nbval = 0; /*iniobj dsym_1609__CLASS_PATMACRO_BINDING*/ /*uniqueobj*/ if (!/*_._VALDATA___V1721*/ meltfptr[1720]) /*_._VALDATA___V1721*/ meltfptr[1720] = (melt_ptr_t )&meltcdat->dsym_1609__CLASS_PATMACRO_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1609__CLASS_PATMACRO_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_1609__CLASS_PATMACRO_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1609__CLASS_PATMACRO_BINDING.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1609__CLASS_PATMACRO_BINDING.obj_hash = 202308327; meltcdat->dsym_1609__CLASS_PATMACRO_BINDING.obj_len = 3; /*inistring dstr_1610__CLASS_PATMACRO_BINDING*/ /*_._VALSTR___V1722*/ meltfptr[1721] = (melt_ptr_t) &meltcdat->dstr_1610__CLASS_PATMACRO_BINDING; meltcdat->dstr_1610__CLASS_PATMACRO_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1610__CLASS_PATMACRO_BINDING.val, "CLASS_PATMACRO_BINDING", sizeof (meltcdat->dstr_1610__CLASS_PATMACRO_BINDING.val)-1); meltcdat->dstr_1610__CLASS_PATMACRO_BINDING.val[22] = (char)0 ; meltcdat->dstr_1610__CLASS_PATMACRO_BINDING.slen = 22 ; /*inirout drout_1611__PATTERNEXPAND_1*/ /*iniroutlocvar*/ /*_._VALROUT___V1693*/ meltfptr[1692] = (melt_ptr_t) &meltcdat->drout_1611__PATTERNEXPAND_1; meltcdat->drout_1611__PATTERNEXPAND_1.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1611__PATTERNEXPAND_1.routdescr, "PATTERNEXPAND_1 @warmelt-macro.melt:2541", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1611__PATTERNEXPAND_1.nbval = 18; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1611__PATTERNEXPAND_1, meltrout_40_WARMELTmiMACRO_PATTERNEXPAND_1); /*iniclos dclo_1612__PATTERNEXPAND_1*/ /*_._VALCLO___V1692*/ meltfptr[1691] = (melt_ptr_t) &meltcdat->dclo_1612__PATTERNEXPAND_1; meltcdat->dclo_1612__PATTERNEXPAND_1.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1612__PATTERNEXPAND_1.nbval = 0; /*iniobj dsym_1613__QUESTION*/ /*uniqueobj*/ if (!/*_._VALDATA___V1694*/ meltfptr[1693]) /*_._VALDATA___V1694*/ meltfptr[1693] = (melt_ptr_t )&meltcdat->dsym_1613__QUESTION; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1613__QUESTION", 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_1613__QUESTION", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1613__QUESTION.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1613__QUESTION.obj_hash = 320539216; meltcdat->dsym_1613__QUESTION.obj_len = 3; /*inistring dstr_1614__QUESTION*/ /*_._VALSTR___V1695*/ meltfptr[1694] = (melt_ptr_t) &meltcdat->dstr_1614__QUESTION; meltcdat->dstr_1614__QUESTION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1614__QUESTION.val, "QUESTION", sizeof (meltcdat->dstr_1614__QUESTION.val)-1); meltcdat->dstr_1614__QUESTION.val[8] = (char)0 ; meltcdat->dstr_1614__QUESTION.slen = 8 ; /*iniboxint dint_1615__*/ /*_._VALBXINT___V1696*/ meltfptr[1695] = (melt_ptr_t) &meltcdat->dint_1615__; meltcdat->dint_1615__.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CONSTANT_INTEGER)))); meltcdat->dint_1615__.val = 1; /*iniobj dsym_1616___*/ /*uniqueobj*/ if (!/*_._VALDATA___V1697*/ meltfptr[1696]) /*_._VALDATA___V1697*/ meltfptr[1696] = (melt_ptr_t )&meltcdat->dsym_1616___; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1616___", 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_1616___", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1616___.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1616___.obj_hash = 331173307; meltcdat->dsym_1616___.obj_len = 3; /*inistring dstr_1617__*/ /*_._VALSTR___V1698*/ meltfptr[1697] = (melt_ptr_t) &meltcdat->dstr_1617__; meltcdat->dstr_1617__.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1617__.val, "_", sizeof (meltcdat->dstr_1617__.val)-1); meltcdat->dstr_1617__.val[1] = (char)0 ; meltcdat->dstr_1617__.slen = 1 ; /*iniboxint dint_1618__*/ /*_._VALBXINT___V1699*/ meltfptr[1698] = (melt_ptr_t) &meltcdat->dint_1618__; meltcdat->dint_1618__.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CONSTANT_INTEGER)))); meltcdat->dint_1618__.val = 1; /*iniboxint dint_1619__*/ /*_._VALBXINT___V1700*/ meltfptr[1699] = (melt_ptr_t) &meltcdat->dint_1619__; meltcdat->dint_1619__.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CONSTANT_INTEGER)))); meltcdat->dint_1619__.val = 1; /*iniboxint dint_1620__*/ /*_._VALBXINT___V1710*/ meltfptr[1709] = (melt_ptr_t) &meltcdat->dint_1620__; meltcdat->dint_1620__.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CONSTANT_INTEGER)))); meltcdat->dint_1620__.val = 1; /*inirout drout_1621__MACROEXPAND_TOPLEVEL_LIST*/ /*iniroutlocvar*/ /*_._VALROUT___V1723*/ meltfptr[1722] = (melt_ptr_t) &meltcdat->drout_1621__MACROEXPAND_TOPLEVEL_LIST; meltcdat->drout_1621__MACROEXPAND_TOPLEVEL_LIST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1621__MACROEXPAND_TOPLEVEL_LIST.routdescr, "MACROEXPAND_TOPLEVEL_LIST @warmelt-macro.melt:2633", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1621__MACROEXPAND_TOPLEVEL_LIST.nbval = 8; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1621__MACROEXPAND_TOPLEVEL_LIST, meltrout_41_WARMELTmiMACRO_MACROEXPAND_TOPLEVEL_LIST); /*iniclos dclo_1622__MACROEXPAND_TOPLEVEL_LIST*/ /*_._VALCLO___V1724*/ meltfptr[1723] = (melt_ptr_t) &meltcdat->dclo_1622__MACROEXPAND_TOPLEVEL_LIST; meltcdat->dclo_1622__MACROEXPAND_TOPLEVEL_LIST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1622__MACROEXPAND_TOPLEVEL_LIST.nbval = 0; /*inirout drout_1623__LAMBDA_ARG_BINDINGS*/ /*iniroutlocvar*/ /*_._VALROUT___V1612*/ meltfptr[1611] = (melt_ptr_t) &meltcdat->drout_1623__LAMBDA_ARG_BINDINGS; meltcdat->drout_1623__LAMBDA_ARG_BINDINGS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1623__LAMBDA_ARG_BINDINGS.routdescr, "LAMBDA_ARG_BINDINGS @warmelt-macro.melt:2736", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1623__LAMBDA_ARG_BINDINGS.nbval = 21; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1623__LAMBDA_ARG_BINDINGS, meltrout_42_WARMELTmiMACRO_LAMBDA_ARG_BINDINGS); /*iniclos dclo_1624__LAMBDA_ARG_BINDINGS*/ /*_._VALCLO___V1611*/ meltfptr[1610] = (melt_ptr_t) &meltcdat->dclo_1624__LAMBDA_ARG_BINDINGS; meltcdat->dclo_1624__LAMBDA_ARG_BINDINGS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1624__LAMBDA_ARG_BINDINGS.nbval = 0; /*iniobj dsym_1625__DISCR_FORMAL_SEQUENCE*/ /*uniqueobj*/ if (!/*_._VALDATA___V1725*/ meltfptr[1724]) /*_._VALDATA___V1725*/ meltfptr[1724] = (melt_ptr_t )&meltcdat->dsym_1625__DISCR_FORMAL_SEQUENCE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1625__DISCR_FORMAL_SEQUENCE", 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_1625__DISCR_FORMAL_SEQUENCE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1625__DISCR_FORMAL_SEQUENCE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1625__DISCR_FORMAL_SEQUENCE.obj_hash = 7536407; meltcdat->dsym_1625__DISCR_FORMAL_SEQUENCE.obj_len = 3; /*inistring dstr_1626__DISCR_FORMAL_SEQUENCE*/ /*_._VALSTR___V1726*/ meltfptr[1725] = (melt_ptr_t) &meltcdat->dstr_1626__DISCR_FORMAL_SEQUENCE; meltcdat->dstr_1626__DISCR_FORMAL_SEQUENCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1626__DISCR_FORMAL_SEQUENCE.val, "DISCR_FORMAL_SEQUENCE", sizeof (meltcdat->dstr_1626__DISCR_FORMAL_SEQUENCE.val)-1); meltcdat->dstr_1626__DISCR_FORMAL_SEQUENCE.val[21] = (char)0 ; meltcdat->dstr_1626__DISCR_FORMAL_SEQUENCE.slen = 21 ; /*iniobj dsym_1627__CTYPE_VALUE*/ /*uniqueobj*/ if (!/*_._VALDATA___V1727*/ meltfptr[1726]) /*_._VALDATA___V1727*/ meltfptr[1726] = (melt_ptr_t )&meltcdat->dsym_1627__CTYPE_VALUE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1627__CTYPE_VALUE", 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_1627__CTYPE_VALUE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1627__CTYPE_VALUE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1627__CTYPE_VALUE.obj_hash = 11062864; meltcdat->dsym_1627__CTYPE_VALUE.obj_len = 3; /*inistring dstr_1628__CTYPE_VALUE*/ /*_._VALSTR___V1728*/ meltfptr[1727] = (melt_ptr_t) &meltcdat->dstr_1628__CTYPE_VALUE; meltcdat->dstr_1628__CTYPE_VALUE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1628__CTYPE_VALUE.val, "CTYPE_VALUE", sizeof (meltcdat->dstr_1628__CTYPE_VALUE.val)-1); meltcdat->dstr_1628__CTYPE_VALUE.val[11] = (char)0 ; meltcdat->dstr_1628__CTYPE_VALUE.slen = 11 ; /*iniobj dsym_1629__REST*/ /*uniqueobj*/ if (!/*_._VALDATA___V1613*/ meltfptr[1612]) /*_._VALDATA___V1613*/ meltfptr[1612] = (melt_ptr_t )&meltcdat->dsym_1629__REST; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1629__REST", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1629__REST", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1629__REST.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))); meltcdat->dsym_1629__REST.obj_hash = 965154634; meltcdat->dsym_1629__REST.obj_len = 3; /*inistring dstr_1630__REST*/ /*_._VALSTR___V1614*/ meltfptr[1613] = (melt_ptr_t) &meltcdat->dstr_1630__REST; meltcdat->dstr_1630__REST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1630__REST.val, "REST", sizeof (meltcdat->dstr_1630__REST.val)-1); meltcdat->dstr_1630__REST.val[4] = (char)0 ; meltcdat->dstr_1630__REST.slen = 4 ; /*iniobj dsym_1631__DISCR_VARIADIC_FORMAL_SEQUENCE*/ /*uniqueobj*/ if (!/*_._VALDATA___V1729*/ meltfptr[1728]) /*_._VALDATA___V1729*/ meltfptr[1728] = (melt_ptr_t )&meltcdat->dsym_1631__DISCR_VARIADIC_FORMAL_SEQUENCE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1631__DISCR_VARIADIC_FORMAL_SEQUENCE", 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_1631__DISCR_VARIADIC_FORMAL_SEQUENCE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1631__DISCR_VARIADIC_FORMAL_SEQUENCE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1631__DISCR_VARIADIC_FORMAL_SEQUENCE.obj_hash = 554919860; meltcdat->dsym_1631__DISCR_VARIADIC_FORMAL_SEQUENCE.obj_len = 3; /*inistring dstr_1632__DISCR_VARIADIC_FORMAL_SE*/ /*_._VALSTR___V1730*/ meltfptr[1729] = (melt_ptr_t) &meltcdat->dstr_1632__DISCR_VARIADIC_FORMAL_SE; meltcdat->dstr_1632__DISCR_VARIADIC_FORMAL_SE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1632__DISCR_VARIADIC_FORMAL_SE.val, "DISCR_VARIADIC_FORMAL_SEQUENCE", sizeof (meltcdat->dstr_1632__DISCR_VARIADIC_FORMAL_SE.val)-1); meltcdat->dstr_1632__DISCR_VARIADIC_FORMAL_SE.val[30] = (char)0 ; meltcdat->dstr_1632__DISCR_VARIADIC_FORMAL_SE.slen = 30 ; /*iniobj dsym_1633__AUTO*/ /*uniqueobj*/ if (!/*_._VALDATA___V1615*/ meltfptr[1614]) /*_._VALDATA___V1615*/ meltfptr[1614] = (melt_ptr_t )&meltcdat->dsym_1633__AUTO; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1633__AUTO", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1633__AUTO", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1633__AUTO.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))); meltcdat->dsym_1633__AUTO.obj_hash = 9360898; meltcdat->dsym_1633__AUTO.obj_len = 3; /*inistring dstr_1634__AUTO*/ /*_._VALSTR___V1616*/ meltfptr[1615] = (melt_ptr_t) &meltcdat->dstr_1634__AUTO; meltcdat->dstr_1634__AUTO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1634__AUTO.val, "AUTO", sizeof (meltcdat->dstr_1634__AUTO.val)-1); meltcdat->dstr_1634__AUTO.val[4] = (char)0 ; meltcdat->dstr_1634__AUTO.slen = 4 ; /*iniobj dsym_1635__CLASS_CTYPE*/ /*uniqueobj*/ if (!/*_._VALDATA___V1731*/ meltfptr[1730]) /*_._VALDATA___V1731*/ meltfptr[1730] = (melt_ptr_t )&meltcdat->dsym_1635__CLASS_CTYPE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1635__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_1635__CLASS_CTYPE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1635__CLASS_CTYPE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1635__CLASS_CTYPE.obj_hash = 78610803; meltcdat->dsym_1635__CLASS_CTYPE.obj_len = 3; /*inistring dstr_1636__CLASS_CTYPE*/ /*_._VALSTR___V1732*/ meltfptr[1731] = (melt_ptr_t) &meltcdat->dstr_1636__CLASS_CTYPE; meltcdat->dstr_1636__CLASS_CTYPE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1636__CLASS_CTYPE.val, "CLASS_CTYPE", sizeof (meltcdat->dstr_1636__CLASS_CTYPE.val)-1); meltcdat->dstr_1636__CLASS_CTYPE.val[11] = (char)0 ; meltcdat->dstr_1636__CLASS_CTYPE.slen = 11 ; /*iniobj dsym_1637__CLASS_QUASI_CTYPE*/ /*uniqueobj*/ if (!/*_._VALDATA___V1733*/ meltfptr[1732]) /*_._VALDATA___V1733*/ meltfptr[1732] = (melt_ptr_t )&meltcdat->dsym_1637__CLASS_QUASI_CTYPE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1637__CLASS_QUASI_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_1637__CLASS_QUASI_CTYPE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1637__CLASS_QUASI_CTYPE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1637__CLASS_QUASI_CTYPE.obj_hash = 680718258; meltcdat->dsym_1637__CLASS_QUASI_CTYPE.obj_len = 3; /*inistring dstr_1638__CLASS_QUASI_CTYPE*/ /*_._VALSTR___V1734*/ meltfptr[1733] = (melt_ptr_t) &meltcdat->dstr_1638__CLASS_QUASI_CTYPE; meltcdat->dstr_1638__CLASS_QUASI_CTYPE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1638__CLASS_QUASI_CTYPE.val, "CLASS_QUASI_CTYPE", sizeof (meltcdat->dstr_1638__CLASS_QUASI_CTYPE.val)-1); meltcdat->dstr_1638__CLASS_QUASI_CTYPE.val[17] = (char)0 ; meltcdat->dstr_1638__CLASS_QUASI_CTYPE.slen = 17 ; /*iniobj dsym_1639__CHECKARGS*/ /*uniqueobj*/ if (!/*_._VALDATA___V1617*/ meltfptr[1616]) /*_._VALDATA___V1617*/ meltfptr[1616] = (melt_ptr_t )&meltcdat->dsym_1639__CHECKARGS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1639__CHECKARGS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1639__CHECKARGS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1639__CHECKARGS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))); meltcdat->dsym_1639__CHECKARGS.obj_hash = 86408355; meltcdat->dsym_1639__CHECKARGS.obj_len = 3; /*inistring dstr_1640__CHECKARGS*/ /*_._VALSTR___V1618*/ meltfptr[1617] = (melt_ptr_t) &meltcdat->dstr_1640__CHECKARGS; meltcdat->dstr_1640__CHECKARGS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1640__CHECKARGS.val, "CHECKARGS", sizeof (meltcdat->dstr_1640__CHECKARGS.val)-1); meltcdat->dstr_1640__CHECKARGS.val[9] = (char)0 ; meltcdat->dstr_1640__CHECKARGS.slen = 9 ; /*inirout drout_1641__INSTALL_INITIAL_MACRO*/ /*iniroutlocvar*/ /*_._VALROUT___V1735*/ meltfptr[1734] = (melt_ptr_t) &meltcdat->drout_1641__INSTALL_INITIAL_MACRO; meltcdat->drout_1641__INSTALL_INITIAL_MACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1641__INSTALL_INITIAL_MACRO.routdescr, "INSTALL_INITIAL_MACRO @warmelt-macro.melt:2876", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1641__INSTALL_INITIAL_MACRO.nbval = 5; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1641__INSTALL_INITIAL_MACRO, meltrout_43_WARMELTmiMACRO_INSTALL_INITIAL_MACRO); /*iniclos dclo_1642__INSTALL_INITIAL_MACRO*/ /*_._VALCLO___V1736*/ meltfptr[1735] = (melt_ptr_t) &meltcdat->dclo_1642__INSTALL_INITIAL_MACRO; meltcdat->dclo_1642__INSTALL_INITIAL_MACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1642__INSTALL_INITIAL_MACRO.nbval = 0; /*iniobj dsym_1643__INITIAL_ENVIRONMENT*/ /*uniqueobj*/ if (!/*_._VALDATA___V1737*/ meltfptr[1736]) /*_._VALDATA___V1737*/ meltfptr[1736] = (melt_ptr_t )&meltcdat->dsym_1643__INITIAL_ENVIRONMENT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1643__INITIAL_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_1643__INITIAL_ENVIRONMENT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1643__INITIAL_ENVIRONMENT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1643__INITIAL_ENVIRONMENT.obj_hash = 756729242; meltcdat->dsym_1643__INITIAL_ENVIRONMENT.obj_len = 3; /*inistring dstr_1644__INITIAL_ENVIRONMENT*/ /*_._VALSTR___V1738*/ meltfptr[1737] = (melt_ptr_t) &meltcdat->dstr_1644__INITIAL_ENVIRONMENT; meltcdat->dstr_1644__INITIAL_ENVIRONMENT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1644__INITIAL_ENVIRONMENT.val, "INITIAL_ENVIRONMENT", sizeof (meltcdat->dstr_1644__INITIAL_ENVIRONMENT.val)-1); meltcdat->dstr_1644__INITIAL_ENVIRONMENT.val[19] = (char)0 ; meltcdat->dstr_1644__INITIAL_ENVIRONMENT.slen = 19 ; /*inirout drout_1645__INSTALL_INITIAL_PATMACRO*/ /*iniroutlocvar*/ /*_._VALROUT___V1739*/ meltfptr[1738] = (melt_ptr_t) &meltcdat->drout_1645__INSTALL_INITIAL_PATMACRO; meltcdat->drout_1645__INSTALL_INITIAL_PATMACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1645__INSTALL_INITIAL_PATMACRO.routdescr, "INSTALL_INITIAL_PATMACRO @warmelt-macro.melt:2890", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1645__INSTALL_INITIAL_PATMACRO.nbval = 5; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1645__INSTALL_INITIAL_PATMACRO, meltrout_44_WARMELTmiMACRO_INSTALL_INITIAL_PATMACRO); /*iniclos dclo_1646__INSTALL_INITIAL_PATMACRO*/ /*_._VALCLO___V1740*/ meltfptr[1739] = (melt_ptr_t) &meltcdat->dclo_1646__INSTALL_INITIAL_PATMACRO; meltcdat->dclo_1646__INSTALL_INITIAL_PATMACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1646__INSTALL_INITIAL_PATMACRO.nbval = 0; /*iniobj dsym_1647__WARN_SHADOW*/ /*uniqueobj*/ if (!/*_._VALDATA___V1741*/ meltfptr[1740]) /*_._VALDATA___V1741*/ meltfptr[1740] = (melt_ptr_t )&meltcdat->dsym_1647__WARN_SHADOW; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1647__WARN_SHADOW", 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_1647__WARN_SHADOW", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1647__WARN_SHADOW.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1647__WARN_SHADOW.obj_hash = 463836272; meltcdat->dsym_1647__WARN_SHADOW.obj_len = 3; /*inistring dstr_1648__WARN_SHADOW*/ /*_._VALSTR___V1742*/ meltfptr[1741] = (melt_ptr_t) &meltcdat->dstr_1648__WARN_SHADOW; meltcdat->dstr_1648__WARN_SHADOW.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1648__WARN_SHADOW.val, "WARN_SHADOW", sizeof (meltcdat->dstr_1648__WARN_SHADOW.val)-1); meltcdat->dstr_1648__WARN_SHADOW.val[11] = (char)0 ; meltcdat->dstr_1648__WARN_SHADOW.slen = 11 ; MELT_LOCATION("warmelt-macro.melt:2907:/ iniobj"); /*iniobj dobj_1649__WARN_SHADOW*/ /*_._VALDATA___V1743*/ meltfptr[1742] = (melt_ptr_t )&meltcdat->dobj_1649__WARN_SHADOW; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1649__WARN_SHADOW", 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_1649__WARN_SHADOW", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1649__WARN_SHADOW.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_PRIMITIVE)))); meltcdat->dobj_1649__WARN_SHADOW.obj_hash = 228912504; meltcdat->dobj_1649__WARN_SHADOW.obj_len = 5; /*inimult dtup_1650_syWARN_SHADOW*/ /*_._VALTUP___V1747*/ meltfptr[1746] = (melt_ptr_t) &meltcdat->dtup_1650_syWARN_SHADOW; meltcdat->dtup_1650_syWARN_SHADOW.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_MULTIPLE)))); meltcdat->dtup_1650_syWARN_SHADOW.nbval = 1; /*inimult dtup_1651_syWARN_SHADOW*/ /*_._VALTUP___V1745*/ meltfptr[1744] = (melt_ptr_t) &meltcdat->dtup_1651_syWARN_SHADOW; meltcdat->dtup_1651_syWARN_SHADOW.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_MULTIPLE)))); meltcdat->dtup_1651_syWARN_SHADOW.nbval = 0; /*inistring dstr_1652__warn_shadow*/ /*_._VALSTR___V1746*/ meltfptr[1745] = (melt_ptr_t) &meltcdat->dstr_1652__warn_shadow; meltcdat->dstr_1652__warn_shadow.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1652__warn_shadow.val, "warn_shadow", sizeof (meltcdat->dstr_1652__warn_shadow.val)-1); meltcdat->dstr_1652__warn_shadow.val[11] = (char)0 ; meltcdat->dstr_1652__warn_shadow.slen = 11 ; /*inistring dstr_1653__WARN_SHADOW*/ /*_._VALSTR___V1744*/ meltfptr[1743] = (melt_ptr_t) &meltcdat->dstr_1653__WARN_SHADOW; meltcdat->dstr_1653__WARN_SHADOW.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1653__WARN_SHADOW.val, "WARN_SHADOW", sizeof (meltcdat->dstr_1653__WARN_SHADOW.val)-1); meltcdat->dstr_1653__WARN_SHADOW.val[11] = (char)0 ; meltcdat->dstr_1653__WARN_SHADOW.slen = 11 ; /*inirout drout_1654__WARN_IF_REDEFINED*/ /*iniroutlocvar*/ /*_._VALROUT___V1748*/ meltfptr[1747] = (melt_ptr_t) &meltcdat->drout_1654__WARN_IF_REDEFINED; meltcdat->drout_1654__WARN_IF_REDEFINED.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1654__WARN_IF_REDEFINED.routdescr, "WARN_IF_REDEFINED @warmelt-macro.melt:2911", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1654__WARN_IF_REDEFINED.nbval = 4; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1654__WARN_IF_REDEFINED, meltrout_45_WARMELTmiMACRO_WARN_IF_REDEFINED); /*iniclos dclo_1655__WARN_IF_REDEFINED*/ /*_._VALCLO___V1749*/ meltfptr[1748] = (melt_ptr_t) &meltcdat->dclo_1655__WARN_IF_REDEFINED; meltcdat->dclo_1655__WARN_IF_REDEFINED.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1655__WARN_IF_REDEFINED.nbval = 0; /*inirout drout_1656__FLATTEN_FOR_C_CODE_EXPANSION*/ /*iniroutlocvar*/ /*_._VALROUT___V1750*/ meltfptr[1749] = (melt_ptr_t) &meltcdat->drout_1656__FLATTEN_FOR_C_CODE_EXPANSION; meltcdat->drout_1656__FLATTEN_FOR_C_CODE_EXPANSION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1656__FLATTEN_FOR_C_CODE_EXPANSION.routdescr, "FLATTEN_FOR_C_CODE_EXPANSION @warmelt-macro.melt:2924", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1656__FLATTEN_FOR_C_CODE_EXPANSION.nbval = 9; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1656__FLATTEN_FOR_C_CODE_EXPANSION, meltrout_46_WARMELTmiMACRO_FLATTEN_FOR_C_CODE_EXPANSION); /*iniclos dclo_1657__FLATTEN_FOR_C_CODE_EXPANSION*/ /*_._VALCLO___V1751*/ meltfptr[1750] = (melt_ptr_t) &meltcdat->dclo_1657__FLATTEN_FOR_C_CODE_EXPANSION; meltcdat->dclo_1657__FLATTEN_FOR_C_CODE_EXPANSION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1657__FLATTEN_FOR_C_CODE_EXPANSION.nbval = 0; /*iniobj dsym_1658__DISCR_VERBATIM_STRING*/ /*uniqueobj*/ if (!/*_._VALDATA___V1752*/ meltfptr[1751]) /*_._VALDATA___V1752*/ meltfptr[1751] = (melt_ptr_t )&meltcdat->dsym_1658__DISCR_VERBATIM_STRING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1658__DISCR_VERBATIM_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_1658__DISCR_VERBATIM_STRING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1658__DISCR_VERBATIM_STRING.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1658__DISCR_VERBATIM_STRING.obj_hash = 258402049; meltcdat->dsym_1658__DISCR_VERBATIM_STRING.obj_len = 3; /*inistring dstr_1659__DISCR_VERBATIM_STRING*/ /*_._VALSTR___V1753*/ meltfptr[1752] = (melt_ptr_t) &meltcdat->dstr_1659__DISCR_VERBATIM_STRING; meltcdat->dstr_1659__DISCR_VERBATIM_STRING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1659__DISCR_VERBATIM_STRING.val, "DISCR_VERBATIM_STRING", sizeof (meltcdat->dstr_1659__DISCR_VERBATIM_STRING.val)-1); meltcdat->dstr_1659__DISCR_VERBATIM_STRING.val[21] = (char)0 ; meltcdat->dstr_1659__DISCR_VERBATIM_STRING.slen = 21 ; /*inirout drout_1660__PARSE_PAIRLIST_C_CODE_EXPANSION*/ /*iniroutlocvar*/ /*_._VALROUT___V1754*/ meltfptr[1753] = (melt_ptr_t) &meltcdat->drout_1660__PARSE_PAIRLIST_C_CODE_EXPANSION; meltcdat->drout_1660__PARSE_PAIRLIST_C_CODE_EXPANSION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1660__PARSE_PAIRLIST_C_CODE_EXPANSION.routdescr, "PARSE_PAIRLIST_C_CODE_EXPANSION @warmelt-macro.melt:2972", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1660__PARSE_PAIRLIST_C_CODE_EXPANSION.nbval = 6; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1660__PARSE_PAIRLIST_C_CODE_EXPANSION, meltrout_47_WARMELTmiMACRO_PARSE_PAIRLIST_C_CODE_EXPANSION); /*iniclos dclo_1661__PARSE_PAIRLIST_C_CODE_EXPANSION*/ /*_._VALCLO___V1755*/ meltfptr[1754] = (melt_ptr_t) &meltcdat->dclo_1661__PARSE_PAIRLIST_C_CODE_EXPANSION; meltcdat->dclo_1661__PARSE_PAIRLIST_C_CODE_EXPANSION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1661__PARSE_PAIRLIST_C_CODE_EXPANSION.nbval = 0; /*inirout drout_1662__CHECK_C_EXPANSION*/ /*iniroutlocvar*/ /*_._VALROUT___V1756*/ meltfptr[1755] = (melt_ptr_t) &meltcdat->drout_1662__CHECK_C_EXPANSION; meltcdat->drout_1662__CHECK_C_EXPANSION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1662__CHECK_C_EXPANSION.routdescr, "CHECK_C_EXPANSION @warmelt-macro.melt:2993", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1662__CHECK_C_EXPANSION.nbval = 5; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1662__CHECK_C_EXPANSION, meltrout_48_WARMELTmiMACRO_CHECK_C_EXPANSION); /*iniclos dclo_1663__CHECK_C_EXPANSION*/ /*_._VALCLO___V1757*/ meltfptr[1756] = (melt_ptr_t) &meltcdat->dclo_1663__CHECK_C_EXPANSION; meltcdat->dclo_1663__CHECK_C_EXPANSION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1663__CHECK_C_EXPANSION.nbval = 0; /*inirout drout_1664__MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS*/ /*iniroutlocvar*/ /*_._VALROUT___V1758*/ meltfptr[1757] = (melt_ptr_t) &meltcdat->drout_1664__MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS; meltcdat->drout_1664__MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1664__MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS.routdescr, "MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS @warmelt-macro.melt:3033", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1664__MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS.nbval = 2; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1664__MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS, meltrout_49_WARMELTmiMACRO_MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS); /*iniclos dclo_1665__MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS*/ /*_._VALCLO___V1759*/ meltfptr[1758] = (melt_ptr_t) &meltcdat->dclo_1665__MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS; meltcdat->dclo_1665__MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1665__MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS.nbval = 0; /*inirout drout_1666__MELT_INVOKE_TRANSLATOR_RUNNER_MACROEXPANSIONS*/ /*iniroutlocvar*/ /*_._VALROUT___V1760*/ meltfptr[1759] = (melt_ptr_t) &meltcdat->drout_1666__MELT_INVOKE_TRANSLATOR_RUNNER_MACROEXPANSIONS; meltcdat->drout_1666__MELT_INVOKE_TRANSLATOR_RUNNER_MACROEXPANSIONS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1666__MELT_INVOKE_TRANSLATOR_RUNNER_MACROEXPANSIONS.routdescr, "MELT_INVOKE_TRANSLATOR_RUNNER_MACROEXPANSIONS @warmelt-macro.melt:3046", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1666__MELT_INVOKE_TRANSLATOR_RUNNER_MACROEXPANSIONS.nbval = 5; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1666__MELT_INVOKE_TRANSLATOR_RUNNER_MACROEXPANSIONS, meltrout_50_WARMELTmiMACRO_MELT_INVOKE_TRANSLATOR_RUNNER_MACROEXPANSIONS); /*iniclos dclo_1667__MELT_INVOKE_TRANSLATOR_RUNNER_MACROEXPANSIONS*/ /*_._VALCLO___V1761*/ meltfptr[1760] = (melt_ptr_t) &meltcdat->dclo_1667__MELT_INVOKE_TRANSLATOR_RUNNER_MACROEXPANSIONS; meltcdat->dclo_1667__MELT_INVOKE_TRANSLATOR_RUNNER_MACROEXPANSIONS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1667__MELT_INVOKE_TRANSLATOR_RUNNER_MACROEXPANSIONS.nbval = 0; /*inirout drout_1668__MEXPAND_DEFPRIMITIVE*/ /*iniroutlocvar*/ /*_._VALROUT___V1762*/ meltfptr[1761] = (melt_ptr_t) &meltcdat->drout_1668__MEXPAND_DEFPRIMITIVE; meltcdat->drout_1668__MEXPAND_DEFPRIMITIVE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1668__MEXPAND_DEFPRIMITIVE.routdescr, "MEXPAND_DEFPRIMITIVE @warmelt-macro.melt:3078", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1668__MEXPAND_DEFPRIMITIVE.nbval = 25; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1668__MEXPAND_DEFPRIMITIVE, meltrout_51_WARMELTmiMACRO_MEXPAND_DEFPRIMITIVE); /*iniclos dclo_1669__MEXPAND_DEFPRIMITIVE*/ /*_._VALCLO___V1765*/ meltfptr[1764] = (melt_ptr_t) &meltcdat->dclo_1669__MEXPAND_DEFPRIMITIVE; meltcdat->dclo_1669__MEXPAND_DEFPRIMITIVE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1669__MEXPAND_DEFPRIMITIVE.nbval = 0; /*iniobj dsym_1670__DOC*/ /*uniqueobj*/ if (!/*_._VALDATA___V1763*/ meltfptr[1762]) /*_._VALDATA___V1763*/ meltfptr[1762] = (melt_ptr_t )&meltcdat->dsym_1670__DOC; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1670__DOC", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1670__DOC", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1670__DOC.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))); meltcdat->dsym_1670__DOC.obj_hash = 518786062; meltcdat->dsym_1670__DOC.obj_len = 3; /*inistring dstr_1671__DOC*/ /*_._VALSTR___V1764*/ meltfptr[1763] = (melt_ptr_t) &meltcdat->dstr_1671__DOC; meltcdat->dstr_1671__DOC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1671__DOC.val, "DOC", sizeof (meltcdat->dstr_1671__DOC.val)-1); meltcdat->dstr_1671__DOC.val[3] = (char)0 ; meltcdat->dstr_1671__DOC.slen = 3 ; /*iniobj dsym_1672__DEFPRIMITIVE*/ /*uniqueobj*/ if (!/*_._VALDATA___V1766*/ meltfptr[1765]) /*_._VALDATA___V1766*/ meltfptr[1765] = (melt_ptr_t )&meltcdat->dsym_1672__DEFPRIMITIVE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1672__DEFPRIMITIVE", 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_1672__DEFPRIMITIVE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1672__DEFPRIMITIVE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1672__DEFPRIMITIVE.obj_hash = 68752716; meltcdat->dsym_1672__DEFPRIMITIVE.obj_len = 3; /*inistring dstr_1673__DEFPRIMITIVE*/ /*_._VALSTR___V1767*/ meltfptr[1766] = (melt_ptr_t) &meltcdat->dstr_1673__DEFPRIMITIVE; meltcdat->dstr_1673__DEFPRIMITIVE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1673__DEFPRIMITIVE.val, "DEFPRIMITIVE", sizeof (meltcdat->dstr_1673__DEFPRIMITIVE.val)-1); meltcdat->dstr_1673__DEFPRIMITIVE.val[12] = (char)0 ; meltcdat->dstr_1673__DEFPRIMITIVE.slen = 12 ; /*inirout drout_1674__MEXPAND_DEFCITERATOR*/ /*iniroutlocvar*/ /*_._VALROUT___V1768*/ meltfptr[1767] = (melt_ptr_t) &meltcdat->drout_1674__MEXPAND_DEFCITERATOR; meltcdat->drout_1674__MEXPAND_DEFCITERATOR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1674__MEXPAND_DEFCITERATOR.routdescr, "MEXPAND_DEFCITERATOR @warmelt-macro.melt:3201", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1674__MEXPAND_DEFCITERATOR.nbval = 21; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1674__MEXPAND_DEFCITERATOR, meltrout_52_WARMELTmiMACRO_MEXPAND_DEFCITERATOR); /*iniclos dclo_1675__MEXPAND_DEFCITERATOR*/ /*_._VALCLO___V1769*/ meltfptr[1768] = (melt_ptr_t) &meltcdat->dclo_1675__MEXPAND_DEFCITERATOR; meltcdat->dclo_1675__MEXPAND_DEFCITERATOR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1675__MEXPAND_DEFCITERATOR.nbval = 0; /*iniobj dsym_1676__DEFCITERATOR*/ /*uniqueobj*/ if (!/*_._VALDATA___V1770*/ meltfptr[1769]) /*_._VALDATA___V1770*/ meltfptr[1769] = (melt_ptr_t )&meltcdat->dsym_1676__DEFCITERATOR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1676__DEFCITERATOR", 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_1676__DEFCITERATOR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1676__DEFCITERATOR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1676__DEFCITERATOR.obj_hash = 388838610; meltcdat->dsym_1676__DEFCITERATOR.obj_len = 3; /*inistring dstr_1677__DEFCITERATOR*/ /*_._VALSTR___V1771*/ meltfptr[1770] = (melt_ptr_t) &meltcdat->dstr_1677__DEFCITERATOR; meltcdat->dstr_1677__DEFCITERATOR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1677__DEFCITERATOR.val, "DEFCITERATOR", sizeof (meltcdat->dstr_1677__DEFCITERATOR.val)-1); meltcdat->dstr_1677__DEFCITERATOR.val[12] = (char)0 ; meltcdat->dstr_1677__DEFCITERATOR.slen = 12 ; /*inirout drout_1678__MEXPAND_DEFCMATCHER*/ /*iniroutlocvar*/ /*_._VALROUT___V1772*/ meltfptr[1771] = (melt_ptr_t) &meltcdat->drout_1678__MEXPAND_DEFCMATCHER; meltcdat->drout_1678__MEXPAND_DEFCMATCHER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1678__MEXPAND_DEFCMATCHER.routdescr, "MEXPAND_DEFCMATCHER @warmelt-macro.melt:3353", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1678__MEXPAND_DEFCMATCHER.nbval = 24; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1678__MEXPAND_DEFCMATCHER, meltrout_53_WARMELTmiMACRO_MEXPAND_DEFCMATCHER); /*iniclos dclo_1679__MEXPAND_DEFCMATCHER*/ /*_._VALCLO___V1773*/ meltfptr[1772] = (melt_ptr_t) &meltcdat->dclo_1679__MEXPAND_DEFCMATCHER; meltcdat->dclo_1679__MEXPAND_DEFCMATCHER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1679__MEXPAND_DEFCMATCHER.nbval = 0; /*iniobj dsym_1680__DEFCMATCHER*/ /*uniqueobj*/ if (!/*_._VALDATA___V1774*/ meltfptr[1773]) /*_._VALDATA___V1774*/ meltfptr[1773] = (melt_ptr_t )&meltcdat->dsym_1680__DEFCMATCHER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1680__DEFCMATCHER", 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_1680__DEFCMATCHER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1680__DEFCMATCHER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1680__DEFCMATCHER.obj_hash = 63669746; meltcdat->dsym_1680__DEFCMATCHER.obj_len = 3; /*inistring dstr_1681__DEFCMATCHER*/ /*_._VALSTR___V1775*/ meltfptr[1774] = (melt_ptr_t) &meltcdat->dstr_1681__DEFCMATCHER; meltcdat->dstr_1681__DEFCMATCHER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1681__DEFCMATCHER.val, "DEFCMATCHER", sizeof (meltcdat->dstr_1681__DEFCMATCHER.val)-1); meltcdat->dstr_1681__DEFCMATCHER.val[11] = (char)0 ; meltcdat->dstr_1681__DEFCMATCHER.slen = 11 ; /*inirout drout_1682__MEXPAND_DEFUNMATCHER*/ /*iniroutlocvar*/ /*_._VALROUT___V1776*/ meltfptr[1775] = (melt_ptr_t) &meltcdat->drout_1682__MEXPAND_DEFUNMATCHER; meltcdat->drout_1682__MEXPAND_DEFUNMATCHER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1682__MEXPAND_DEFUNMATCHER.routdescr, "MEXPAND_DEFUNMATCHER @warmelt-macro.melt:3549", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1682__MEXPAND_DEFUNMATCHER.nbval = 15; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1682__MEXPAND_DEFUNMATCHER, meltrout_54_WARMELTmiMACRO_MEXPAND_DEFUNMATCHER); /*iniclos dclo_1683__MEXPAND_DEFUNMATCHER*/ /*_._VALCLO___V1777*/ meltfptr[1776] = (melt_ptr_t) &meltcdat->dclo_1683__MEXPAND_DEFUNMATCHER; meltcdat->dclo_1683__MEXPAND_DEFUNMATCHER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1683__MEXPAND_DEFUNMATCHER.nbval = 0; /*iniobj dsym_1684__DEFUNMATCHER*/ /*uniqueobj*/ if (!/*_._VALDATA___V1778*/ meltfptr[1777]) /*_._VALDATA___V1778*/ meltfptr[1777] = (melt_ptr_t )&meltcdat->dsym_1684__DEFUNMATCHER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1684__DEFUNMATCHER", 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_1684__DEFUNMATCHER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1684__DEFUNMATCHER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1684__DEFUNMATCHER.obj_hash = 739727106; meltcdat->dsym_1684__DEFUNMATCHER.obj_len = 3; /*inistring dstr_1685__DEFUNMATCHER*/ /*_._VALSTR___V1779*/ meltfptr[1778] = (melt_ptr_t) &meltcdat->dstr_1685__DEFUNMATCHER; meltcdat->dstr_1685__DEFUNMATCHER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1685__DEFUNMATCHER.val, "DEFUNMATCHER", sizeof (meltcdat->dstr_1685__DEFUNMATCHER.val)-1); meltcdat->dstr_1685__DEFUNMATCHER.val[12] = (char)0 ; meltcdat->dstr_1685__DEFUNMATCHER.slen = 12 ; /*inirout drout_1686__MEXPAND_DEFUN*/ /*iniroutlocvar*/ /*_._VALROUT___V1780*/ meltfptr[1779] = (melt_ptr_t) &meltcdat->drout_1686__MEXPAND_DEFUN; meltcdat->drout_1686__MEXPAND_DEFUN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1686__MEXPAND_DEFUN.routdescr, "MEXPAND_DEFUN @warmelt-macro.melt:3694", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1686__MEXPAND_DEFUN.nbval = 18; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1686__MEXPAND_DEFUN, meltrout_55_WARMELTmiMACRO_MEXPAND_DEFUN); /*iniclos dclo_1687__MEXPAND_DEFUN*/ /*_._VALCLO___V1783*/ meltfptr[1782] = (melt_ptr_t) &meltcdat->dclo_1687__MEXPAND_DEFUN; meltcdat->dclo_1687__MEXPAND_DEFUN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1687__MEXPAND_DEFUN.nbval = 0; /*iniobj dsym_1688__CLASS_FUNCTION_BINDING*/ /*uniqueobj*/ if (!/*_._VALDATA___V1784*/ meltfptr[1783]) /*_._VALDATA___V1784*/ meltfptr[1783] = (melt_ptr_t )&meltcdat->dsym_1688__CLASS_FUNCTION_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1688__CLASS_FUNCTION_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_1688__CLASS_FUNCTION_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1688__CLASS_FUNCTION_BINDING.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1688__CLASS_FUNCTION_BINDING.obj_hash = 942362333; meltcdat->dsym_1688__CLASS_FUNCTION_BINDING.obj_len = 3; /*inistring dstr_1689__CLASS_FUNCTION_BINDING*/ /*_._VALSTR___V1785*/ meltfptr[1784] = (melt_ptr_t) &meltcdat->dstr_1689__CLASS_FUNCTION_BINDING; meltcdat->dstr_1689__CLASS_FUNCTION_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1689__CLASS_FUNCTION_BINDING.val, "CLASS_FUNCTION_BINDING", sizeof (meltcdat->dstr_1689__CLASS_FUNCTION_BINDING.val)-1); meltcdat->dstr_1689__CLASS_FUNCTION_BINDING.val[22] = (char)0 ; meltcdat->dstr_1689__CLASS_FUNCTION_BINDING.slen = 22 ; /*iniobj dsym_1690__CHECKARG*/ /*uniqueobj*/ if (!/*_._VALDATA___V1781*/ meltfptr[1780]) /*_._VALDATA___V1781*/ meltfptr[1780] = (melt_ptr_t )&meltcdat->dsym_1690__CHECKARG; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1690__CHECKARG", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1690__CHECKARG", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1690__CHECKARG.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))); meltcdat->dsym_1690__CHECKARG.obj_hash = 242718576; meltcdat->dsym_1690__CHECKARG.obj_len = 3; /*inistring dstr_1691__CHECKARG*/ /*_._VALSTR___V1782*/ meltfptr[1781] = (melt_ptr_t) &meltcdat->dstr_1691__CHECKARG; meltcdat->dstr_1691__CHECKARG.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1691__CHECKARG.val, "CHECKARG", sizeof (meltcdat->dstr_1691__CHECKARG.val)-1); meltcdat->dstr_1691__CHECKARG.val[8] = (char)0 ; meltcdat->dstr_1691__CHECKARG.slen = 8 ; /*iniobj dsym_1692__DEFUN*/ /*uniqueobj*/ if (!/*_._VALDATA___V1786*/ meltfptr[1785]) /*_._VALDATA___V1786*/ meltfptr[1785] = (melt_ptr_t )&meltcdat->dsym_1692__DEFUN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1692__DEFUN", 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_1692__DEFUN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1692__DEFUN.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1692__DEFUN.obj_hash = 98259022; meltcdat->dsym_1692__DEFUN.obj_len = 3; /*inistring dstr_1693__DEFUN*/ /*_._VALSTR___V1787*/ meltfptr[1786] = (melt_ptr_t) &meltcdat->dstr_1693__DEFUN; meltcdat->dstr_1693__DEFUN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1693__DEFUN.val, "DEFUN", sizeof (meltcdat->dstr_1693__DEFUN.val)-1); meltcdat->dstr_1693__DEFUN.val[5] = (char)0 ; meltcdat->dstr_1693__DEFUN.slen = 5 ; /*inirout drout_1694__MELT_DELAYED_MACRO_EXPANDER*/ /*iniroutlocvar*/ /*_._VALROUT___V1788*/ meltfptr[1787] = (melt_ptr_t) &meltcdat->drout_1694__MELT_DELAYED_MACRO_EXPANDER; meltcdat->drout_1694__MELT_DELAYED_MACRO_EXPANDER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1694__MELT_DELAYED_MACRO_EXPANDER.routdescr, "MELT_DELAYED_MACRO_EXPANDER @warmelt-macro.melt:3775", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1694__MELT_DELAYED_MACRO_EXPANDER.nbval = 8; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1694__MELT_DELAYED_MACRO_EXPANDER, meltrout_56_WARMELTmiMACRO_MELT_DELAYED_MACRO_EXPANDER); /*iniclos dclo_1695__MELT_DELAYED_MACRO_EXPANDER*/ /*_._VALCLO___V1789*/ meltfptr[1788] = (melt_ptr_t) &meltcdat->dclo_1695__MELT_DELAYED_MACRO_EXPANDER; meltcdat->dclo_1695__MELT_DELAYED_MACRO_EXPANDER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1695__MELT_DELAYED_MACRO_EXPANDER.nbval = 0; /*inirout drout_1696__MEXPAND_DEFMACRO*/ /*iniroutlocvar*/ /*_._VALROUT___V1790*/ meltfptr[1789] = (melt_ptr_t) &meltcdat->drout_1696__MEXPAND_DEFMACRO; meltcdat->drout_1696__MEXPAND_DEFMACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1696__MEXPAND_DEFMACRO.routdescr, "MEXPAND_DEFMACRO @warmelt-macro.melt:3802", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1696__MEXPAND_DEFMACRO.nbval = 33; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1696__MEXPAND_DEFMACRO, meltrout_57_WARMELTmiMACRO_MEXPAND_DEFMACRO); /*iniclos dclo_1697__MEXPAND_DEFMACRO*/ /*_._VALCLO___V1792*/ meltfptr[1791] = (melt_ptr_t) &meltcdat->dclo_1697__MEXPAND_DEFMACRO; meltcdat->dclo_1697__MEXPAND_DEFMACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1697__MEXPAND_DEFMACRO.nbval = 0; /*inirout drout_1698__LAMBDA_*/ /*iniroutlocvar*/ /*_._VALROUT___V1791*/ meltfptr[1790] = (melt_ptr_t) &meltcdat->drout_1698__LAMBDA_; meltcdat->drout_1698__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1698__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:3921", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1698__LAMBDA_.nbval = 9; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1698__LAMBDA_, meltrout_58_WARMELTmiMACRO_LAMBDA_cl7); /*iniobj dsym_1699__DEFMACRO*/ /*uniqueobj*/ if (!/*_._VALDATA___V1793*/ meltfptr[1792]) /*_._VALDATA___V1793*/ meltfptr[1792] = (melt_ptr_t )&meltcdat->dsym_1699__DEFMACRO; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1699__DEFMACRO", 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_1699__DEFMACRO", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1699__DEFMACRO.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1699__DEFMACRO.obj_hash = 108583634; meltcdat->dsym_1699__DEFMACRO.obj_len = 3; /*inistring dstr_1700__DEFMACRO*/ /*_._VALSTR___V1794*/ meltfptr[1793] = (melt_ptr_t) &meltcdat->dstr_1700__DEFMACRO; meltcdat->dstr_1700__DEFMACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1700__DEFMACRO.val, "DEFMACRO", sizeof (meltcdat->dstr_1700__DEFMACRO.val)-1); meltcdat->dstr_1700__DEFMACRO.val[8] = (char)0 ; meltcdat->dstr_1700__DEFMACRO.slen = 8 ; /*inihook dhook__1701__HOOK_MACRO_INSTALLER fromline 945 */ meltcdat->dhook__1701__HOOK_MACRO_INSTALLER.discr = /*fromline 947*/ (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_HOOK)))); /*inihook HOOK_MACRO_INSTALLER data fromline 953 */ meltcdat->dhook__1701__HOOK_MACRO_INSTALLER.nbval = 4 ; MELT_HOOK_SET_ROUTCODE (&meltcdat->dhook__1701__HOOK_MACRO_INSTALLER, melthook_HOOK_MACRO_INSTALLER) ; meltcdat->dhook__1701__HOOK_MACRO_INSTALLER.hookdata = /*_._VALDATA___V1796*/ meltfptr[1795]; strncpy (meltcdat->dhook__1701__HOOK_MACRO_INSTALLER.hookname, "HOOK_MACRO_INSTALLER", sizeof(meltcdat->dhook__1701__HOOK_MACRO_INSTALLER.hookname)-1); /*predefinedhook HOOK_MACRO_INSTALLER for dhook__1701__HOOK_MACRO_INSTALLER*/ if (!MELT_PREDEF(HOOK_MACRO_INSTALLER)) MELT_STORE_PREDEF(HOOK_MACRO_INSTALLER, (melt_ptr_t) &meltcdat->dhook__1701__HOOK_MACRO_INSTALLER) ; /*_._VALHOOK___V1795*/ meltfptr[1794] = /*inihooklocvar HOOK_MACRO_INSTALLER*/ (melt_ptr_t) &meltcdat->dhook__1701__HOOK_MACRO_INSTALLER ; /*done inihook dhook__1701__HOOK_MACRO_INSTALLER */ MELT_LOCATION("warmelt-macro.melt:3971:/ iniobj"); /*iniobj dobj_1702__*/ /*_._VALDATA___V1796*/ meltfptr[1795] = (melt_ptr_t )&meltcdat->dobj_1702__; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1702__", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_HOOK_DESCRIPTOR))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1702__", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_HOOK_DESCRIPTOR)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1702__.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_HOOK_DESCRIPTOR)))); meltcdat->dobj_1702__.obj_hash = 98943281; meltcdat->dobj_1702__.obj_len = 6; /*inistring dstr_1703__HOOK_MACRO_INSTALLER*/ /*_._VALSTR___V1797*/ meltfptr[1796] = (melt_ptr_t) &meltcdat->dstr_1703__HOOK_MACRO_INSTALLER; meltcdat->dstr_1703__HOOK_MACRO_INSTALLER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1703__HOOK_MACRO_INSTALLER.val, "HOOK_MACRO_INSTALLER", sizeof (meltcdat->dstr_1703__HOOK_MACRO_INSTALLER.val)-1); meltcdat->dstr_1703__HOOK_MACRO_INSTALLER.val[20] = (char)0 ; meltcdat->dstr_1703__HOOK_MACRO_INSTALLER.slen = 20 ; /*iniobj dsym_1704__MBIND*/ /*uniqueobj*/ if (!/*_._VALDATA___V1799*/ meltfptr[1798]) /*_._VALDATA___V1799*/ meltfptr[1798] = (melt_ptr_t )&meltcdat->dsym_1704__MBIND; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1704__MBIND", 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_1704__MBIND", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1704__MBIND.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1704__MBIND.obj_hash = 562921596; meltcdat->dsym_1704__MBIND.obj_len = 3; /*inistring dstr_1705__MBIND*/ /*_._VALSTR___V1800*/ meltfptr[1799] = (melt_ptr_t) &meltcdat->dstr_1705__MBIND; meltcdat->dstr_1705__MBIND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1705__MBIND.val, "MBIND", sizeof (meltcdat->dstr_1705__MBIND.val)-1); meltcdat->dstr_1705__MBIND.val[5] = (char)0 ; meltcdat->dstr_1705__MBIND.slen = 5 ; /*^iniobj*/ /*iniobj dobj_1706*/ /*_._VALDATA___V1798*/ meltfptr[1797] = (melt_ptr_t )&meltcdat->dobj_1706; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1706", 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_1706", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1706.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); meltcdat->dobj_1706.obj_num = 0; meltcdat->dobj_1706.obj_hash = 793081539; meltcdat->dobj_1706.obj_len = 2; /*iniobj dsym_1707__MEXPCLOS*/ /*uniqueobj*/ if (!/*_._VALDATA___V1802*/ meltfptr[1801]) /*_._VALDATA___V1802*/ meltfptr[1801] = (melt_ptr_t )&meltcdat->dsym_1707__MEXPCLOS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1707__MEXPCLOS", 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_1707__MEXPCLOS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1707__MEXPCLOS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1707__MEXPCLOS.obj_hash = 174301113; meltcdat->dsym_1707__MEXPCLOS.obj_len = 3; /*inistring dstr_1708__MEXPCLOS*/ /*_._VALSTR___V1803*/ meltfptr[1802] = (melt_ptr_t) &meltcdat->dstr_1708__MEXPCLOS; meltcdat->dstr_1708__MEXPCLOS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1708__MEXPCLOS.val, "MEXPCLOS", sizeof (meltcdat->dstr_1708__MEXPCLOS.val)-1); meltcdat->dstr_1708__MEXPCLOS.val[8] = (char)0 ; meltcdat->dstr_1708__MEXPCLOS.slen = 8 ; /*^iniobj*/ /*iniobj dobj_1709*/ /*_._VALDATA___V1801*/ meltfptr[1800] = (melt_ptr_t )&meltcdat->dobj_1709; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1709", 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_1709", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_1709.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); meltcdat->dobj_1709.obj_num = 1; meltcdat->dobj_1709.obj_hash = 1061807676; meltcdat->dobj_1709.obj_len = 2; /*inimult dtup_1710___HOOK_MACRO_INSTALLER*/ /*_._VALTUP___V1804*/ meltfptr[1803] = (melt_ptr_t) &meltcdat->dtup_1710___HOOK_MACRO_INSTALLER; meltcdat->dtup_1710___HOOK_MACRO_INSTALLER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_MULTIPLE)))); meltcdat->dtup_1710___HOOK_MACRO_INSTALLER.nbval = 2; /*inimult dtup_1711___HOOK_MACRO_INSTALLER*/ /*_._VALTUP___V1805*/ meltfptr[1804] = (melt_ptr_t) &meltcdat->dtup_1711___HOOK_MACRO_INSTALLER; meltcdat->dtup_1711___HOOK_MACRO_INSTALLER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_MULTIPLE)))); meltcdat->dtup_1711___HOOK_MACRO_INSTALLER.nbval = 0; /*inirout drout_1712__MEXPAND_AT_MACRO_EXPANSION*/ /*iniroutlocvar*/ /*_._VALROUT___V1806*/ meltfptr[1805] = (melt_ptr_t) &meltcdat->drout_1712__MEXPAND_AT_MACRO_EXPANSION; meltcdat->drout_1712__MEXPAND_AT_MACRO_EXPANSION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1712__MEXPAND_AT_MACRO_EXPANSION.routdescr, "MEXPAND_AT_MACRO_EXPANSION @warmelt-macro.melt:3986", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1712__MEXPAND_AT_MACRO_EXPANSION.nbval = 8; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1712__MEXPAND_AT_MACRO_EXPANSION, meltrout_60_WARMELTmiMACRO_MEXPAND_AT_MACRO_EXPANSION); /*iniclos dclo_1713__MEXPAND_AT_MACRO_EXPANSION*/ /*_._VALCLO___V1807*/ meltfptr[1806] = (melt_ptr_t) &meltcdat->dclo_1713__MEXPAND_AT_MACRO_EXPANSION; meltcdat->dclo_1713__MEXPAND_AT_MACRO_EXPANSION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1713__MEXPAND_AT_MACRO_EXPANSION.nbval = 0; /*iniobj dsym_1714__AT_MACRO_EXPANSION*/ /*uniqueobj*/ if (!/*_._VALDATA___V1808*/ meltfptr[1807]) /*_._VALDATA___V1808*/ meltfptr[1807] = (melt_ptr_t )&meltcdat->dsym_1714__AT_MACRO_EXPANSION; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1714__AT_MACRO_EXPANSION", 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_1714__AT_MACRO_EXPANSION", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1714__AT_MACRO_EXPANSION.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1714__AT_MACRO_EXPANSION.obj_hash = 584404197; meltcdat->dsym_1714__AT_MACRO_EXPANSION.obj_len = 3; /*inistring dstr_1715__AT_MACRO_EXPANSION*/ /*_._VALSTR___V1809*/ meltfptr[1808] = (melt_ptr_t) &meltcdat->dstr_1715__AT_MACRO_EXPANSION; meltcdat->dstr_1715__AT_MACRO_EXPANSION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1715__AT_MACRO_EXPANSION.val, "AT_MACRO_EXPANSION", sizeof (meltcdat->dstr_1715__AT_MACRO_EXPANSION.val)-1); meltcdat->dstr_1715__AT_MACRO_EXPANSION.val[18] = (char)0 ; meltcdat->dstr_1715__AT_MACRO_EXPANSION.slen = 18 ; /*inirout drout_1716__MEXPAND_DEFVAR*/ /*iniroutlocvar*/ /*_._VALROUT___V1810*/ meltfptr[1809] = (melt_ptr_t) &meltcdat->drout_1716__MEXPAND_DEFVAR; meltcdat->drout_1716__MEXPAND_DEFVAR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1716__MEXPAND_DEFVAR.routdescr, "MEXPAND_DEFVAR @warmelt-macro.melt:4024", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1716__MEXPAND_DEFVAR.nbval = 13; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1716__MEXPAND_DEFVAR, meltrout_61_WARMELTmiMACRO_MEXPAND_DEFVAR); /*iniclos dclo_1717__MEXPAND_DEFVAR*/ /*_._VALCLO___V1811*/ meltfptr[1810] = (melt_ptr_t) &meltcdat->dclo_1717__MEXPAND_DEFVAR; meltcdat->dclo_1717__MEXPAND_DEFVAR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1717__MEXPAND_DEFVAR.nbval = 0; /*iniobj dsym_1718__CLASS_VARIABLE_BINDING*/ /*uniqueobj*/ if (!/*_._VALDATA___V1812*/ meltfptr[1811]) /*_._VALDATA___V1812*/ meltfptr[1811] = (melt_ptr_t )&meltcdat->dsym_1718__CLASS_VARIABLE_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1718__CLASS_VARIABLE_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_1718__CLASS_VARIABLE_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1718__CLASS_VARIABLE_BINDING.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1718__CLASS_VARIABLE_BINDING.obj_hash = 926721841; meltcdat->dsym_1718__CLASS_VARIABLE_BINDING.obj_len = 3; /*inistring dstr_1719__CLASS_VARIABLE_BINDING*/ /*_._VALSTR___V1813*/ meltfptr[1812] = (melt_ptr_t) &meltcdat->dstr_1719__CLASS_VARIABLE_BINDING; meltcdat->dstr_1719__CLASS_VARIABLE_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1719__CLASS_VARIABLE_BINDING.val, "CLASS_VARIABLE_BINDING", sizeof (meltcdat->dstr_1719__CLASS_VARIABLE_BINDING.val)-1); meltcdat->dstr_1719__CLASS_VARIABLE_BINDING.val[22] = (char)0 ; meltcdat->dstr_1719__CLASS_VARIABLE_BINDING.slen = 22 ; /*iniobj dsym_1720__DEFVAR*/ /*uniqueobj*/ if (!/*_._VALDATA___V1814*/ meltfptr[1813]) /*_._VALDATA___V1814*/ meltfptr[1813] = (melt_ptr_t )&meltcdat->dsym_1720__DEFVAR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1720__DEFVAR", 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_1720__DEFVAR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1720__DEFVAR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1720__DEFVAR.obj_hash = 357770465; meltcdat->dsym_1720__DEFVAR.obj_len = 3; /*inistring dstr_1721__DEFVAR*/ /*_._VALSTR___V1815*/ meltfptr[1814] = (melt_ptr_t) &meltcdat->dstr_1721__DEFVAR; meltcdat->dstr_1721__DEFVAR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1721__DEFVAR.val, "DEFVAR", sizeof (meltcdat->dstr_1721__DEFVAR.val)-1); meltcdat->dstr_1721__DEFVAR.val[6] = (char)0 ; meltcdat->dstr_1721__DEFVAR.slen = 6 ; /*inirout drout_1722__MEXPAND_DEFHOOK*/ /*iniroutlocvar*/ /*_._VALROUT___V1816*/ meltfptr[1815] = (melt_ptr_t) &meltcdat->drout_1722__MEXPAND_DEFHOOK; meltcdat->drout_1722__MEXPAND_DEFHOOK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1722__MEXPAND_DEFHOOK.routdescr, "MEXPAND_DEFHOOK @warmelt-macro.melt:4078", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1722__MEXPAND_DEFHOOK.nbval = 25; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1722__MEXPAND_DEFHOOK, meltrout_62_WARMELTmiMACRO_MEXPAND_DEFHOOK); /*iniclos dclo_1723__MEXPAND_DEFHOOK*/ /*_._VALCLO___V1821*/ meltfptr[1820] = (melt_ptr_t) &meltcdat->dclo_1723__MEXPAND_DEFHOOK; meltcdat->dclo_1723__MEXPAND_DEFHOOK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1723__MEXPAND_DEFHOOK.nbval = 0; /*iniobj dsym_1724__SYMBOL_CNAME*/ /*uniqueobj*/ if (!/*_._VALDATA___V1822*/ meltfptr[1821]) /*_._VALDATA___V1822*/ meltfptr[1821] = (melt_ptr_t )&meltcdat->dsym_1724__SYMBOL_CNAME; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1724__SYMBOL_CNAME", 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_1724__SYMBOL_CNAME", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1724__SYMBOL_CNAME.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1724__SYMBOL_CNAME.obj_hash = 868761322; meltcdat->dsym_1724__SYMBOL_CNAME.obj_len = 3; /*inistring dstr_1725__SYMBOL_CNAME*/ /*_._VALSTR___V1823*/ meltfptr[1822] = (melt_ptr_t) &meltcdat->dstr_1725__SYMBOL_CNAME; meltcdat->dstr_1725__SYMBOL_CNAME.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1725__SYMBOL_CNAME.val, "SYMBOL_CNAME", sizeof (meltcdat->dstr_1725__SYMBOL_CNAME.val)-1); meltcdat->dstr_1725__SYMBOL_CNAME.val[12] = (char)0 ; meltcdat->dstr_1725__SYMBOL_CNAME.slen = 12 ; /*iniobj dsym_1726__PREDEF*/ /*uniqueobj*/ if (!/*_._VALDATA___V1817*/ meltfptr[1816]) /*_._VALDATA___V1817*/ meltfptr[1816] = (melt_ptr_t )&meltcdat->dsym_1726__PREDEF; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1726__PREDEF", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1726__PREDEF", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1726__PREDEF.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))); meltcdat->dsym_1726__PREDEF.obj_hash = 55393491; meltcdat->dsym_1726__PREDEF.obj_len = 3; /*inistring dstr_1727__PREDEF*/ /*_._VALSTR___V1818*/ meltfptr[1817] = (melt_ptr_t) &meltcdat->dstr_1727__PREDEF; meltcdat->dstr_1727__PREDEF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1727__PREDEF.val, "PREDEF", sizeof (meltcdat->dstr_1727__PREDEF.val)-1); meltcdat->dstr_1727__PREDEF.val[6] = (char)0 ; meltcdat->dstr_1727__PREDEF.slen = 6 ; /*iniobj dsym_1728__VAR*/ /*uniqueobj*/ if (!/*_._VALDATA___V1819*/ meltfptr[1818]) /*_._VALDATA___V1819*/ meltfptr[1818] = (melt_ptr_t )&meltcdat->dsym_1728__VAR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1728__VAR", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1728__VAR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1728__VAR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))); meltcdat->dsym_1728__VAR.obj_hash = 718380551; meltcdat->dsym_1728__VAR.obj_len = 3; /*inistring dstr_1729__VAR*/ /*_._VALSTR___V1820*/ meltfptr[1819] = (melt_ptr_t) &meltcdat->dstr_1729__VAR; meltcdat->dstr_1729__VAR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1729__VAR.val, "VAR", sizeof (meltcdat->dstr_1729__VAR.val)-1); meltcdat->dstr_1729__VAR.val[3] = (char)0 ; meltcdat->dstr_1729__VAR.slen = 3 ; /*iniobj dsym_1730__DEFHOOK*/ /*uniqueobj*/ if (!/*_._VALDATA___V1824*/ meltfptr[1823]) /*_._VALDATA___V1824*/ meltfptr[1823] = (melt_ptr_t )&meltcdat->dsym_1730__DEFHOOK; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1730__DEFHOOK", 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_1730__DEFHOOK", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1730__DEFHOOK.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1730__DEFHOOK.obj_hash = 391439421; meltcdat->dsym_1730__DEFHOOK.obj_len = 3; /*inistring dstr_1731__DEFHOOK*/ /*_._VALSTR___V1825*/ meltfptr[1824] = (melt_ptr_t) &meltcdat->dstr_1731__DEFHOOK; meltcdat->dstr_1731__DEFHOOK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1731__DEFHOOK.val, "DEFHOOK", sizeof (meltcdat->dstr_1731__DEFHOOK.val)-1); meltcdat->dstr_1731__DEFHOOK.val[7] = (char)0 ; meltcdat->dstr_1731__DEFHOOK.slen = 7 ; /*inirout drout_1732__MEXPAND_DEFINE*/ /*iniroutlocvar*/ /*_._VALROUT___V1826*/ meltfptr[1825] = (melt_ptr_t) &meltcdat->drout_1732__MEXPAND_DEFINE; meltcdat->drout_1732__MEXPAND_DEFINE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1732__MEXPAND_DEFINE.routdescr, "MEXPAND_DEFINE @warmelt-macro.melt:4252", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1732__MEXPAND_DEFINE.nbval = 21; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1732__MEXPAND_DEFINE, meltrout_63_WARMELTmiMACRO_MEXPAND_DEFINE); /*iniclos dclo_1733__MEXPAND_DEFINE*/ /*_._VALCLO___V1827*/ meltfptr[1826] = (melt_ptr_t) &meltcdat->dclo_1733__MEXPAND_DEFINE; meltcdat->dclo_1733__MEXPAND_DEFINE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1733__MEXPAND_DEFINE.nbval = 0; /*iniobj dsym_1734__CLASS_DEFINED_VALUE_BINDING*/ /*uniqueobj*/ if (!/*_._VALDATA___V1828*/ meltfptr[1827]) /*_._VALDATA___V1828*/ meltfptr[1827] = (melt_ptr_t )&meltcdat->dsym_1734__CLASS_DEFINED_VALUE_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1734__CLASS_DEFINED_VALUE_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_1734__CLASS_DEFINED_VALUE_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1734__CLASS_DEFINED_VALUE_BINDING.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1734__CLASS_DEFINED_VALUE_BINDING.obj_hash = 803081436; meltcdat->dsym_1734__CLASS_DEFINED_VALUE_BINDING.obj_len = 3; /*inistring dstr_1735__CLASS_DEFINED_VALUE_BIND*/ /*_._VALSTR___V1829*/ meltfptr[1828] = (melt_ptr_t) &meltcdat->dstr_1735__CLASS_DEFINED_VALUE_BIND; meltcdat->dstr_1735__CLASS_DEFINED_VALUE_BIND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1735__CLASS_DEFINED_VALUE_BIND.val, "CLASS_DEFINED_VALUE_BINDING", sizeof (meltcdat->dstr_1735__CLASS_DEFINED_VALUE_BIND.val)-1); meltcdat->dstr_1735__CLASS_DEFINED_VALUE_BIND.val[27] = (char)0 ; meltcdat->dstr_1735__CLASS_DEFINED_VALUE_BIND.slen = 27 ; /*iniobj dsym_1736__DEFINE*/ /*uniqueobj*/ if (!/*_._VALDATA___V1830*/ meltfptr[1829]) /*_._VALDATA___V1830*/ meltfptr[1829] = (melt_ptr_t )&meltcdat->dsym_1736__DEFINE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1736__DEFINE", 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_1736__DEFINE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1736__DEFINE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1736__DEFINE.obj_hash = 264523154; meltcdat->dsym_1736__DEFINE.obj_len = 3; /*inistring dstr_1737__DEFINE*/ /*_._VALSTR___V1831*/ meltfptr[1830] = (melt_ptr_t) &meltcdat->dstr_1737__DEFINE; meltcdat->dstr_1737__DEFINE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1737__DEFINE.val, "DEFINE", sizeof (meltcdat->dstr_1737__DEFINE.val)-1); meltcdat->dstr_1737__DEFINE.val[6] = (char)0 ; meltcdat->dstr_1737__DEFINE.slen = 6 ; /*inirout drout_1738__SCAN_DEFCLASS*/ /*iniroutlocvar*/ /*_._VALROUT___V1832*/ meltfptr[1831] = (melt_ptr_t) &meltcdat->drout_1738__SCAN_DEFCLASS; meltcdat->drout_1738__SCAN_DEFCLASS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1738__SCAN_DEFCLASS.routdescr, "SCAN_DEFCLASS @warmelt-macro.melt:4373", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1738__SCAN_DEFCLASS.nbval = 16; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1738__SCAN_DEFCLASS, meltrout_64_WARMELTmiMACRO_SCAN_DEFCLASS); /*iniclos dclo_1739__SCAN_DEFCLASS*/ /*_._VALCLO___V1837*/ meltfptr[1836] = (melt_ptr_t) &meltcdat->dclo_1739__SCAN_DEFCLASS; meltcdat->dclo_1739__SCAN_DEFCLASS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1739__SCAN_DEFCLASS.nbval = 0; /*iniobj dsym_1740__SUPER*/ /*uniqueobj*/ if (!/*_._VALDATA___V1833*/ meltfptr[1832]) /*_._VALDATA___V1833*/ meltfptr[1832] = (melt_ptr_t )&meltcdat->dsym_1740__SUPER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1740__SUPER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1740__SUPER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1740__SUPER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))); meltcdat->dsym_1740__SUPER.obj_hash = 103938843; meltcdat->dsym_1740__SUPER.obj_len = 3; /*inistring dstr_1741__SUPER*/ /*_._VALSTR___V1834*/ meltfptr[1833] = (melt_ptr_t) &meltcdat->dstr_1741__SUPER; meltcdat->dstr_1741__SUPER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1741__SUPER.val, "SUPER", sizeof (meltcdat->dstr_1741__SUPER.val)-1); meltcdat->dstr_1741__SUPER.val[5] = (char)0 ; meltcdat->dstr_1741__SUPER.slen = 5 ; /*iniobj dsym_1742__CLASS_CLASS_BINDING*/ /*uniqueobj*/ if (!/*_._VALDATA___V1838*/ meltfptr[1837]) /*_._VALDATA___V1838*/ meltfptr[1837] = (melt_ptr_t )&meltcdat->dsym_1742__CLASS_CLASS_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1742__CLASS_CLASS_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_1742__CLASS_CLASS_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1742__CLASS_CLASS_BINDING.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1742__CLASS_CLASS_BINDING.obj_hash = 848133131; meltcdat->dsym_1742__CLASS_CLASS_BINDING.obj_len = 3; /*inistring dstr_1743__CLASS_CLASS_BINDING*/ /*_._VALSTR___V1839*/ meltfptr[1838] = (melt_ptr_t) &meltcdat->dstr_1743__CLASS_CLASS_BINDING; meltcdat->dstr_1743__CLASS_CLASS_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1743__CLASS_CLASS_BINDING.val, "CLASS_CLASS_BINDING", sizeof (meltcdat->dstr_1743__CLASS_CLASS_BINDING.val)-1); meltcdat->dstr_1743__CLASS_CLASS_BINDING.val[19] = (char)0 ; meltcdat->dstr_1743__CLASS_CLASS_BINDING.slen = 19 ; /*iniobj dsym_1744__CLASS_CLASS*/ /*uniqueobj*/ if (!/*_._VALDATA___V1840*/ meltfptr[1839]) /*_._VALDATA___V1840*/ meltfptr[1839] = (melt_ptr_t )&meltcdat->dsym_1744__CLASS_CLASS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1744__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_1744__CLASS_CLASS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1744__CLASS_CLASS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1744__CLASS_CLASS.obj_hash = 60141292; meltcdat->dsym_1744__CLASS_CLASS.obj_len = 3; /*inistring dstr_1745__CLASS_CLASS*/ /*_._VALSTR___V1841*/ meltfptr[1840] = (melt_ptr_t) &meltcdat->dstr_1745__CLASS_CLASS; meltcdat->dstr_1745__CLASS_CLASS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1745__CLASS_CLASS.val, "CLASS_CLASS", sizeof (meltcdat->dstr_1745__CLASS_CLASS.val)-1); meltcdat->dstr_1745__CLASS_CLASS.val[11] = (char)0 ; meltcdat->dstr_1745__CLASS_CLASS.slen = 11 ; /*iniobj dsym_1746__FIELDS*/ /*uniqueobj*/ if (!/*_._VALDATA___V1835*/ meltfptr[1834]) /*_._VALDATA___V1835*/ meltfptr[1834] = (melt_ptr_t )&meltcdat->dsym_1746__FIELDS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1746__FIELDS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1746__FIELDS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1746__FIELDS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))); meltcdat->dsym_1746__FIELDS.obj_hash = 63787385; meltcdat->dsym_1746__FIELDS.obj_len = 3; /*inistring dstr_1747__FIELDS*/ /*_._VALSTR___V1836*/ meltfptr[1835] = (melt_ptr_t) &meltcdat->dstr_1747__FIELDS; meltcdat->dstr_1747__FIELDS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1747__FIELDS.val, "FIELDS", sizeof (meltcdat->dstr_1747__FIELDS.val)-1); meltcdat->dstr_1747__FIELDS.val[6] = (char)0 ; meltcdat->dstr_1747__FIELDS.slen = 6 ; /*inirout drout_1748__MEXPAND_DEFCLASS*/ /*iniroutlocvar*/ /*_._VALROUT___V1842*/ meltfptr[1841] = (melt_ptr_t) &meltcdat->drout_1748__MEXPAND_DEFCLASS; meltcdat->drout_1748__MEXPAND_DEFCLASS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1748__MEXPAND_DEFCLASS.routdescr, "MEXPAND_DEFCLASS @warmelt-macro.melt:4488", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1748__MEXPAND_DEFCLASS.nbval = 24; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1748__MEXPAND_DEFCLASS, meltrout_65_WARMELTmiMACRO_MEXPAND_DEFCLASS); /*iniclos dclo_1749__MEXPAND_DEFCLASS*/ /*_._VALCLO___V1843*/ meltfptr[1842] = (melt_ptr_t) &meltcdat->dclo_1749__MEXPAND_DEFCLASS; meltcdat->dclo_1749__MEXPAND_DEFCLASS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1749__MEXPAND_DEFCLASS.nbval = 0; /*iniobj dsym_1750__DISCR_CLASS_SEQUENCE*/ /*uniqueobj*/ if (!/*_._VALDATA___V1844*/ meltfptr[1843]) /*_._VALDATA___V1844*/ meltfptr[1843] = (melt_ptr_t )&meltcdat->dsym_1750__DISCR_CLASS_SEQUENCE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1750__DISCR_CLASS_SEQUENCE", 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_1750__DISCR_CLASS_SEQUENCE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1750__DISCR_CLASS_SEQUENCE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1750__DISCR_CLASS_SEQUENCE.obj_hash = 751197907; meltcdat->dsym_1750__DISCR_CLASS_SEQUENCE.obj_len = 3; /*inistring dstr_1751__DISCR_CLASS_SEQUENCE*/ /*_._VALSTR___V1845*/ meltfptr[1844] = (melt_ptr_t) &meltcdat->dstr_1751__DISCR_CLASS_SEQUENCE; meltcdat->dstr_1751__DISCR_CLASS_SEQUENCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1751__DISCR_CLASS_SEQUENCE.val, "DISCR_CLASS_SEQUENCE", sizeof (meltcdat->dstr_1751__DISCR_CLASS_SEQUENCE.val)-1); meltcdat->dstr_1751__DISCR_CLASS_SEQUENCE.val[20] = (char)0 ; meltcdat->dstr_1751__DISCR_CLASS_SEQUENCE.slen = 20 ; /*iniobj dsym_1752__DISCR_MAP_STRINGS*/ /*uniqueobj*/ if (!/*_._VALDATA___V1846*/ meltfptr[1845]) /*_._VALDATA___V1846*/ meltfptr[1845] = (melt_ptr_t )&meltcdat->dsym_1752__DISCR_MAP_STRINGS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1752__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_1752__DISCR_MAP_STRINGS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1752__DISCR_MAP_STRINGS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1752__DISCR_MAP_STRINGS.obj_hash = 344609662; meltcdat->dsym_1752__DISCR_MAP_STRINGS.obj_len = 3; /*inistring dstr_1753__DISCR_MAP_STRINGS*/ /*_._VALSTR___V1847*/ meltfptr[1846] = (melt_ptr_t) &meltcdat->dstr_1753__DISCR_MAP_STRINGS; meltcdat->dstr_1753__DISCR_MAP_STRINGS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1753__DISCR_MAP_STRINGS.val, "DISCR_MAP_STRINGS", sizeof (meltcdat->dstr_1753__DISCR_MAP_STRINGS.val)-1); meltcdat->dstr_1753__DISCR_MAP_STRINGS.val[17] = (char)0 ; meltcdat->dstr_1753__DISCR_MAP_STRINGS.slen = 17 ; /*iniobj dsym_1754__DISCR_FIELD_SEQUENCE*/ /*uniqueobj*/ if (!/*_._VALDATA___V1848*/ meltfptr[1847]) /*_._VALDATA___V1848*/ meltfptr[1847] = (melt_ptr_t )&meltcdat->dsym_1754__DISCR_FIELD_SEQUENCE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1754__DISCR_FIELD_SEQUENCE", 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_1754__DISCR_FIELD_SEQUENCE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1754__DISCR_FIELD_SEQUENCE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1754__DISCR_FIELD_SEQUENCE.obj_hash = 95370221; meltcdat->dsym_1754__DISCR_FIELD_SEQUENCE.obj_len = 3; /*inistring dstr_1755__DISCR_FIELD_SEQUENCE*/ /*_._VALSTR___V1849*/ meltfptr[1848] = (melt_ptr_t) &meltcdat->dstr_1755__DISCR_FIELD_SEQUENCE; meltcdat->dstr_1755__DISCR_FIELD_SEQUENCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1755__DISCR_FIELD_SEQUENCE.val, "DISCR_FIELD_SEQUENCE", sizeof (meltcdat->dstr_1755__DISCR_FIELD_SEQUENCE.val)-1); meltcdat->dstr_1755__DISCR_FIELD_SEQUENCE.val[20] = (char)0 ; meltcdat->dstr_1755__DISCR_FIELD_SEQUENCE.slen = 20 ; /*iniobj dsym_1756__DEFCLASS*/ /*uniqueobj*/ if (!/*_._VALDATA___V1850*/ meltfptr[1849]) /*_._VALDATA___V1850*/ meltfptr[1849] = (melt_ptr_t )&meltcdat->dsym_1756__DEFCLASS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1756__DEFCLASS", 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_1756__DEFCLASS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1756__DEFCLASS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1756__DEFCLASS.obj_hash = 67702184; meltcdat->dsym_1756__DEFCLASS.obj_len = 3; /*inistring dstr_1757__DEFCLASS*/ /*_._VALSTR___V1851*/ meltfptr[1850] = (melt_ptr_t) &meltcdat->dstr_1757__DEFCLASS; meltcdat->dstr_1757__DEFCLASS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1757__DEFCLASS.val, "DEFCLASS", sizeof (meltcdat->dstr_1757__DEFCLASS.val)-1); meltcdat->dstr_1757__DEFCLASS.val[8] = (char)0 ; meltcdat->dstr_1757__DEFCLASS.slen = 8 ; /*inirout drout_1758__PARSE_FIELD_ASSIGNMENT*/ /*iniroutlocvar*/ /*_._VALROUT___V1852*/ meltfptr[1851] = (melt_ptr_t) &meltcdat->drout_1758__PARSE_FIELD_ASSIGNMENT; meltcdat->drout_1758__PARSE_FIELD_ASSIGNMENT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1758__PARSE_FIELD_ASSIGNMENT.routdescr, "PARSE_FIELD_ASSIGNMENT @warmelt-macro.melt:4637", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1758__PARSE_FIELD_ASSIGNMENT.nbval = 19; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1758__PARSE_FIELD_ASSIGNMENT, meltrout_66_WARMELTmiMACRO_PARSE_FIELD_ASSIGNMENT); /*iniclos dclo_1759__PARSE_FIELD_ASSIGNMENT*/ /*_._VALCLO___V1854*/ meltfptr[1853] = (melt_ptr_t) &meltcdat->dclo_1759__PARSE_FIELD_ASSIGNMENT; meltcdat->dclo_1759__PARSE_FIELD_ASSIGNMENT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1759__PARSE_FIELD_ASSIGNMENT.nbval = 0; /*iniobj dsym_1760__MULTIPLE_ITERATE_TEST*/ /*uniqueobj*/ if (!/*_._VALDATA___V1855*/ meltfptr[1854]) /*_._VALDATA___V1855*/ meltfptr[1854] = (melt_ptr_t )&meltcdat->dsym_1760__MULTIPLE_ITERATE_TEST; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1760__MULTIPLE_ITERATE_TEST", 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_1760__MULTIPLE_ITERATE_TEST", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1760__MULTIPLE_ITERATE_TEST.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1760__MULTIPLE_ITERATE_TEST.obj_hash = 823464346; meltcdat->dsym_1760__MULTIPLE_ITERATE_TEST.obj_len = 3; /*inistring dstr_1761__MULTIPLE_ITERATE_TEST*/ /*_._VALSTR___V1856*/ meltfptr[1855] = (melt_ptr_t) &meltcdat->dstr_1761__MULTIPLE_ITERATE_TEST; meltcdat->dstr_1761__MULTIPLE_ITERATE_TEST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1761__MULTIPLE_ITERATE_TEST.val, "MULTIPLE_ITERATE_TEST", sizeof (meltcdat->dstr_1761__MULTIPLE_ITERATE_TEST.val)-1); meltcdat->dstr_1761__MULTIPLE_ITERATE_TEST.val[21] = (char)0 ; meltcdat->dstr_1761__MULTIPLE_ITERATE_TEST.slen = 21 ; /*inirout drout_1762__LAMBDA_*/ /*iniroutlocvar*/ /*_._VALROUT___V1853*/ meltfptr[1852] = (melt_ptr_t) &meltcdat->drout_1762__LAMBDA_; meltcdat->drout_1762__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1762__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:4662", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1762__LAMBDA_.nbval = 4; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1762__LAMBDA_, meltrout_67_WARMELTmiMACRO_LAMBDA_cl8); /*inirout drout_1763__MEXPAND_DEFINSTANCE*/ /*iniroutlocvar*/ /*_._VALROUT___V1857*/ meltfptr[1856] = (melt_ptr_t) &meltcdat->drout_1763__MEXPAND_DEFINSTANCE; meltcdat->drout_1763__MEXPAND_DEFINSTANCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1763__MEXPAND_DEFINSTANCE.routdescr, "MEXPAND_DEFINSTANCE @warmelt-macro.melt:4733", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1763__MEXPAND_DEFINSTANCE.nbval = 23; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1763__MEXPAND_DEFINSTANCE, meltrout_68_WARMELTmiMACRO_MEXPAND_DEFINSTANCE); /*iniclos dclo_1764__MEXPAND_DEFINSTANCE*/ /*_._VALCLO___V1860*/ meltfptr[1859] = (melt_ptr_t) &meltcdat->dclo_1764__MEXPAND_DEFINSTANCE; meltcdat->dclo_1764__MEXPAND_DEFINSTANCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1764__MEXPAND_DEFINSTANCE.nbval = 0; /*iniobj dsym_1765__CLASS_INSTANCE_BINDING*/ /*uniqueobj*/ if (!/*_._VALDATA___V1861*/ meltfptr[1860]) /*_._VALDATA___V1861*/ meltfptr[1860] = (melt_ptr_t )&meltcdat->dsym_1765__CLASS_INSTANCE_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1765__CLASS_INSTANCE_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_1765__CLASS_INSTANCE_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1765__CLASS_INSTANCE_BINDING.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1765__CLASS_INSTANCE_BINDING.obj_hash = 401143458; meltcdat->dsym_1765__CLASS_INSTANCE_BINDING.obj_len = 3; /*inistring dstr_1766__CLASS_INSTANCE_BINDING*/ /*_._VALSTR___V1862*/ meltfptr[1861] = (melt_ptr_t) &meltcdat->dstr_1766__CLASS_INSTANCE_BINDING; meltcdat->dstr_1766__CLASS_INSTANCE_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1766__CLASS_INSTANCE_BINDING.val, "CLASS_INSTANCE_BINDING", sizeof (meltcdat->dstr_1766__CLASS_INSTANCE_BINDING.val)-1); meltcdat->dstr_1766__CLASS_INSTANCE_BINDING.val[22] = (char)0 ; meltcdat->dstr_1766__CLASS_INSTANCE_BINDING.slen = 22 ; /*iniobj dsym_1767__OBJ_NUM*/ /*uniqueobj*/ if (!/*_._VALDATA___V1858*/ meltfptr[1857]) /*_._VALDATA___V1858*/ meltfptr[1857] = (melt_ptr_t )&meltcdat->dsym_1767__OBJ_NUM; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1767__OBJ_NUM", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1767__OBJ_NUM", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1767__OBJ_NUM.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))); meltcdat->dsym_1767__OBJ_NUM.obj_hash = 56861275; meltcdat->dsym_1767__OBJ_NUM.obj_len = 3; /*inistring dstr_1768__OBJ_NUM*/ /*_._VALSTR___V1859*/ meltfptr[1858] = (melt_ptr_t) &meltcdat->dstr_1768__OBJ_NUM; meltcdat->dstr_1768__OBJ_NUM.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1768__OBJ_NUM.val, "OBJ_NUM", sizeof (meltcdat->dstr_1768__OBJ_NUM.val)-1); meltcdat->dstr_1768__OBJ_NUM.val[7] = (char)0 ; meltcdat->dstr_1768__OBJ_NUM.slen = 7 ; /*iniobj dsym_1769__DEFINSTANCE*/ /*uniqueobj*/ if (!/*_._VALDATA___V1863*/ meltfptr[1862]) /*_._VALDATA___V1863*/ meltfptr[1862] = (melt_ptr_t )&meltcdat->dsym_1769__DEFINSTANCE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1769__DEFINSTANCE", 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_1769__DEFINSTANCE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1769__DEFINSTANCE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1769__DEFINSTANCE.obj_hash = 28184141; meltcdat->dsym_1769__DEFINSTANCE.obj_len = 3; /*inistring dstr_1770__DEFINSTANCE*/ /*_._VALSTR___V1864*/ meltfptr[1863] = (melt_ptr_t) &meltcdat->dstr_1770__DEFINSTANCE; meltcdat->dstr_1770__DEFINSTANCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1770__DEFINSTANCE.val, "DEFINSTANCE", sizeof (meltcdat->dstr_1770__DEFINSTANCE.val)-1); meltcdat->dstr_1770__DEFINSTANCE.val[11] = (char)0 ; meltcdat->dstr_1770__DEFINSTANCE.slen = 11 ; /*inirout drout_1771__MEXPAND_DEFSELECTOR*/ /*iniroutlocvar*/ /*_._VALROUT___V1865*/ meltfptr[1864] = (melt_ptr_t) &meltcdat->drout_1771__MEXPAND_DEFSELECTOR; meltcdat->drout_1771__MEXPAND_DEFSELECTOR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1771__MEXPAND_DEFSELECTOR.routdescr, "MEXPAND_DEFSELECTOR @warmelt-macro.melt:4849", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1771__MEXPAND_DEFSELECTOR.nbval = 31; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1771__MEXPAND_DEFSELECTOR, meltrout_69_WARMELTmiMACRO_MEXPAND_DEFSELECTOR); /*iniclos dclo_1772__MEXPAND_DEFSELECTOR*/ /*_._VALCLO___V1868*/ meltfptr[1867] = (melt_ptr_t) &meltcdat->dclo_1772__MEXPAND_DEFSELECTOR; meltcdat->dclo_1772__MEXPAND_DEFSELECTOR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1772__MEXPAND_DEFSELECTOR.nbval = 0; /*iniobj dsym_1773__FORMALS*/ /*uniqueobj*/ if (!/*_._VALDATA___V1866*/ meltfptr[1865]) /*_._VALDATA___V1866*/ meltfptr[1865] = (melt_ptr_t )&meltcdat->dsym_1773__FORMALS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1773__FORMALS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1773__FORMALS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1773__FORMALS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))); meltcdat->dsym_1773__FORMALS.obj_hash = 499105813; meltcdat->dsym_1773__FORMALS.obj_len = 3; /*inistring dstr_1774__FORMALS*/ /*_._VALSTR___V1867*/ meltfptr[1866] = (melt_ptr_t) &meltcdat->dstr_1774__FORMALS; meltcdat->dstr_1774__FORMALS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1774__FORMALS.val, "FORMALS", sizeof (meltcdat->dstr_1774__FORMALS.val)-1); meltcdat->dstr_1774__FORMALS.val[7] = (char)0 ; meltcdat->dstr_1774__FORMALS.slen = 7 ; /*iniobj dsym_1775__DEFSELECTOR*/ /*uniqueobj*/ if (!/*_._VALDATA___V1869*/ meltfptr[1868]) /*_._VALDATA___V1869*/ meltfptr[1868] = (melt_ptr_t )&meltcdat->dsym_1775__DEFSELECTOR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1775__DEFSELECTOR", 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_1775__DEFSELECTOR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1775__DEFSELECTOR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1775__DEFSELECTOR.obj_hash = 34255542; meltcdat->dsym_1775__DEFSELECTOR.obj_len = 3; /*inistring dstr_1776__DEFSELECTOR*/ /*_._VALSTR___V1870*/ meltfptr[1869] = (melt_ptr_t) &meltcdat->dstr_1776__DEFSELECTOR; meltcdat->dstr_1776__DEFSELECTOR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1776__DEFSELECTOR.val, "DEFSELECTOR", sizeof (meltcdat->dstr_1776__DEFSELECTOR.val)-1); meltcdat->dstr_1776__DEFSELECTOR.val[11] = (char)0 ; meltcdat->dstr_1776__DEFSELECTOR.slen = 11 ; /*inirout drout_1777__MEXPAND_INSTANCE*/ /*iniroutlocvar*/ /*_._VALROUT___V1871*/ meltfptr[1870] = (melt_ptr_t) &meltcdat->drout_1777__MEXPAND_INSTANCE; meltcdat->drout_1777__MEXPAND_INSTANCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1777__MEXPAND_INSTANCE.routdescr, "MEXPAND_INSTANCE @warmelt-macro.melt:4994", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1777__MEXPAND_INSTANCE.nbval = 17; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1777__MEXPAND_INSTANCE, meltrout_70_WARMELTmiMACRO_MEXPAND_INSTANCE); /*iniclos dclo_1778__MEXPAND_INSTANCE*/ /*_._VALCLO___V1872*/ meltfptr[1871] = (melt_ptr_t) &meltcdat->dclo_1778__MEXPAND_INSTANCE; meltcdat->dclo_1778__MEXPAND_INSTANCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1778__MEXPAND_INSTANCE.nbval = 0; /*inirout drout_1779__MEXPAND_LOAD*/ /*iniroutlocvar*/ /*_._VALROUT___V1873*/ meltfptr[1872] = (melt_ptr_t) &meltcdat->drout_1779__MEXPAND_LOAD; meltcdat->drout_1779__MEXPAND_LOAD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1779__MEXPAND_LOAD.routdescr, "MEXPAND_LOAD @warmelt-macro.melt:5059", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1779__MEXPAND_LOAD.nbval = 8; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1779__MEXPAND_LOAD, meltrout_71_WARMELTmiMACRO_MEXPAND_LOAD); /*iniclos dclo_1780__MEXPAND_LOAD*/ /*_._VALCLO___V1874*/ meltfptr[1873] = (melt_ptr_t) &meltcdat->dclo_1780__MEXPAND_LOAD; meltcdat->dclo_1780__MEXPAND_LOAD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1780__MEXPAND_LOAD.nbval = 0; /*iniobj dsym_1781__LOAD*/ /*uniqueobj*/ if (!/*_._VALDATA___V1875*/ meltfptr[1874]) /*_._VALDATA___V1875*/ meltfptr[1874] = (melt_ptr_t )&meltcdat->dsym_1781__LOAD; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1781__LOAD", 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_1781__LOAD", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1781__LOAD.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1781__LOAD.obj_hash = 801185878; meltcdat->dsym_1781__LOAD.obj_len = 3; /*inistring dstr_1782__LOAD*/ /*_._VALSTR___V1876*/ meltfptr[1875] = (melt_ptr_t) &meltcdat->dstr_1782__LOAD; meltcdat->dstr_1782__LOAD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1782__LOAD.val, "LOAD", sizeof (meltcdat->dstr_1782__LOAD.val)-1); meltcdat->dstr_1782__LOAD.val[4] = (char)0 ; meltcdat->dstr_1782__LOAD.slen = 4 ; /*inirout drout_1783__MEXPAND_SKIP_NIL*/ /*iniroutlocvar*/ /*_._VALROUT___V1877*/ meltfptr[1876] = (melt_ptr_t) &meltcdat->drout_1783__MEXPAND_SKIP_NIL; meltcdat->drout_1783__MEXPAND_SKIP_NIL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1783__MEXPAND_SKIP_NIL.routdescr, "MEXPAND_SKIP_NIL @warmelt-macro.melt:5104", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1783__MEXPAND_SKIP_NIL.nbval = 8; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1783__MEXPAND_SKIP_NIL, meltrout_72_WARMELTmiMACRO_MEXPAND_SKIP_NIL); /*iniclos dclo_1784__MEXPAND_SKIP_NIL*/ /*_._VALCLO___V1878*/ meltfptr[1877] = (melt_ptr_t) &meltcdat->dclo_1784__MEXPAND_SKIP_NIL; meltcdat->dclo_1784__MEXPAND_SKIP_NIL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1784__MEXPAND_SKIP_NIL.nbval = 0; /*iniobj dsym_1785__SKIP_NIL*/ /*uniqueobj*/ if (!/*_._VALDATA___V1879*/ meltfptr[1878]) /*_._VALDATA___V1879*/ meltfptr[1878] = (melt_ptr_t )&meltcdat->dsym_1785__SKIP_NIL; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1785__SKIP_NIL", 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_1785__SKIP_NIL", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1785__SKIP_NIL.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1785__SKIP_NIL.obj_hash = 302539662; meltcdat->dsym_1785__SKIP_NIL.obj_len = 3; /*inistring dstr_1786__SKIP_NIL*/ /*_._VALSTR___V1880*/ meltfptr[1879] = (melt_ptr_t) &meltcdat->dstr_1786__SKIP_NIL; meltcdat->dstr_1786__SKIP_NIL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1786__SKIP_NIL.val, "SKIP_NIL", sizeof (meltcdat->dstr_1786__SKIP_NIL.val)-1); meltcdat->dstr_1786__SKIP_NIL.val[8] = (char)0 ; meltcdat->dstr_1786__SKIP_NIL.slen = 8 ; /*inirout drout_1787__PARSE_FIELD_PATTERN*/ /*iniroutlocvar*/ /*_._VALROUT___V1881*/ meltfptr[1880] = (melt_ptr_t) &meltcdat->drout_1787__PARSE_FIELD_PATTERN; meltcdat->drout_1787__PARSE_FIELD_PATTERN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1787__PARSE_FIELD_PATTERN.routdescr, "PARSE_FIELD_PATTERN @warmelt-macro.melt:5138", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1787__PARSE_FIELD_PATTERN.nbval = 16; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1787__PARSE_FIELD_PATTERN, meltrout_73_WARMELTmiMACRO_PARSE_FIELD_PATTERN); /*iniclos dclo_1788__PARSE_FIELD_PATTERN*/ /*_._VALCLO___V1883*/ meltfptr[1882] = (melt_ptr_t) &meltcdat->dclo_1788__PARSE_FIELD_PATTERN; meltcdat->dclo_1788__PARSE_FIELD_PATTERN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1788__PARSE_FIELD_PATTERN.nbval = 0; /*inirout drout_1789__LAMBDA_*/ /*iniroutlocvar*/ /*_._VALROUT___V1882*/ meltfptr[1881] = (melt_ptr_t) &meltcdat->drout_1789__LAMBDA_; meltcdat->drout_1789__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1789__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:5153", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1789__LAMBDA_.nbval = 3; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1789__LAMBDA_, meltrout_74_WARMELTmiMACRO_LAMBDA_cl9); /*inirout drout_1790__PATEXPAND_INSTANCE*/ /*iniroutlocvar*/ /*_._VALROUT___V1884*/ meltfptr[1883] = (melt_ptr_t) &meltcdat->drout_1790__PATEXPAND_INSTANCE; meltcdat->drout_1790__PATEXPAND_INSTANCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1790__PATEXPAND_INSTANCE.routdescr, "PATEXPAND_INSTANCE @warmelt-macro.melt:5181", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1790__PATEXPAND_INSTANCE.nbval = 23; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1790__PATEXPAND_INSTANCE, meltrout_75_WARMELTmiMACRO_PATEXPAND_INSTANCE); /*iniclos dclo_1791__PATEXPAND_INSTANCE*/ /*_._VALCLO___V1886*/ meltfptr[1885] = (melt_ptr_t) &meltcdat->dclo_1791__PATEXPAND_INSTANCE; meltcdat->dclo_1791__PATEXPAND_INSTANCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1791__PATEXPAND_INSTANCE.nbval = 0; /*inirout drout_1792__LAMBDA_*/ /*iniroutlocvar*/ /*_._VALROUT___V1885*/ meltfptr[1884] = (melt_ptr_t) &meltcdat->drout_1792__LAMBDA_; meltcdat->drout_1792__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1792__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:5240", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1792__LAMBDA_.nbval = 1; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1792__LAMBDA_, meltrout_76_WARMELTmiMACRO_LAMBDA_cl10); /*inirout drout_1793__PATEXPAND_OBJECT*/ /*iniroutlocvar*/ /*_._VALROUT___V1887*/ meltfptr[1886] = (melt_ptr_t) &meltcdat->drout_1793__PATEXPAND_OBJECT; meltcdat->drout_1793__PATEXPAND_OBJECT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1793__PATEXPAND_OBJECT.routdescr, "PATEXPAND_OBJECT @warmelt-macro.melt:5276", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1793__PATEXPAND_OBJECT.nbval = 23; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1793__PATEXPAND_OBJECT, meltrout_77_WARMELTmiMACRO_PATEXPAND_OBJECT); /*iniclos dclo_1794__PATEXPAND_OBJECT*/ /*_._VALCLO___V1889*/ meltfptr[1888] = (melt_ptr_t) &meltcdat->dclo_1794__PATEXPAND_OBJECT; meltcdat->dclo_1794__PATEXPAND_OBJECT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1794__PATEXPAND_OBJECT.nbval = 0; /*inirout drout_1795__LAMBDA_*/ /*iniroutlocvar*/ /*_._VALROUT___V1888*/ meltfptr[1887] = (melt_ptr_t) &meltcdat->drout_1795__LAMBDA_; meltcdat->drout_1795__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1795__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:5335", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1795__LAMBDA_.nbval = 1; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1795__LAMBDA_, meltrout_78_WARMELTmiMACRO_LAMBDA_cl11); /*inirout drout_1796__MEXPAND_OBJECT*/ /*iniroutlocvar*/ /*_._VALROUT___V1890*/ meltfptr[1889] = (melt_ptr_t) &meltcdat->drout_1796__MEXPAND_OBJECT; meltcdat->drout_1796__MEXPAND_OBJECT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1796__MEXPAND_OBJECT.routdescr, "MEXPAND_OBJECT @warmelt-macro.melt:5354", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1796__MEXPAND_OBJECT.nbval = 4; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1796__MEXPAND_OBJECT, meltrout_79_WARMELTmiMACRO_MEXPAND_OBJECT); /*iniclos dclo_1797__MEXPAND_OBJECT*/ /*_._VALCLO___V1891*/ meltfptr[1890] = (melt_ptr_t) &meltcdat->dclo_1797__MEXPAND_OBJECT; meltcdat->dclo_1797__MEXPAND_OBJECT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1797__MEXPAND_OBJECT.nbval = 0; /*iniobj dsym_1798__OBJECT*/ /*uniqueobj*/ if (!/*_._VALDATA___V1892*/ meltfptr[1891]) /*_._VALDATA___V1892*/ meltfptr[1891] = (melt_ptr_t )&meltcdat->dsym_1798__OBJECT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1798__OBJECT", 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_1798__OBJECT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1798__OBJECT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1798__OBJECT.obj_hash = 680382828; meltcdat->dsym_1798__OBJECT.obj_len = 3; /*inistring dstr_1799__OBJECT*/ /*_._VALSTR___V1893*/ meltfptr[1892] = (melt_ptr_t) &meltcdat->dstr_1799__OBJECT; meltcdat->dstr_1799__OBJECT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1799__OBJECT.val, "OBJECT", sizeof (meltcdat->dstr_1799__OBJECT.val)-1); meltcdat->dstr_1799__OBJECT.val[6] = (char)0 ; meltcdat->dstr_1799__OBJECT.slen = 6 ; /*inirout drout_1800__EXPAND_MACROSTRING_PAIRS*/ /*iniroutlocvar*/ /*_._VALROUT___V1894*/ meltfptr[1893] = (melt_ptr_t) &meltcdat->drout_1800__EXPAND_MACROSTRING_PAIRS; meltcdat->drout_1800__EXPAND_MACROSTRING_PAIRS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1800__EXPAND_MACROSTRING_PAIRS.routdescr, "EXPAND_MACROSTRING_PAIRS @warmelt-macro.melt:5379", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1800__EXPAND_MACROSTRING_PAIRS.nbval = 12; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1800__EXPAND_MACROSTRING_PAIRS, meltrout_80_WARMELTmiMACRO_EXPAND_MACROSTRING_PAIRS); /*iniclos dclo_1801__EXPAND_MACROSTRING_PAIRS*/ /*_._VALCLO___V1896*/ meltfptr[1895] = (melt_ptr_t) &meltcdat->dclo_1801__EXPAND_MACROSTRING_PAIRS; meltcdat->dclo_1801__EXPAND_MACROSTRING_PAIRS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1801__EXPAND_MACROSTRING_PAIRS.nbval = 0; /*inirout drout_1802__LAMBDA_*/ /*iniroutlocvar*/ /*_._VALROUT___V1895*/ meltfptr[1894] = (melt_ptr_t) &meltcdat->drout_1802__LAMBDA_; meltcdat->drout_1802__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1802__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:5387", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1802__LAMBDA_.nbval = 5; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1802__LAMBDA_, meltrout_81_WARMELTmiMACRO_LAMBDA_cl12); /*iniobj dsym_1803__CLASS_SEXPR_MACROSTRING*/ /*uniqueobj*/ if (!/*_._VALDATA___V1897*/ meltfptr[1896]) /*_._VALDATA___V1897*/ meltfptr[1896] = (melt_ptr_t )&meltcdat->dsym_1803__CLASS_SEXPR_MACROSTRING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1803__CLASS_SEXPR_MACROSTRING", 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_1803__CLASS_SEXPR_MACROSTRING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1803__CLASS_SEXPR_MACROSTRING.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1803__CLASS_SEXPR_MACROSTRING.obj_hash = 576848661; meltcdat->dsym_1803__CLASS_SEXPR_MACROSTRING.obj_len = 3; /*inistring dstr_1804__CLASS_SEXPR_MACROSTRING*/ /*_._VALSTR___V1898*/ meltfptr[1897] = (melt_ptr_t) &meltcdat->dstr_1804__CLASS_SEXPR_MACROSTRING; meltcdat->dstr_1804__CLASS_SEXPR_MACROSTRING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1804__CLASS_SEXPR_MACROSTRING.val, "CLASS_SEXPR_MACROSTRING", sizeof (meltcdat->dstr_1804__CLASS_SEXPR_MACROSTRING.val)-1); meltcdat->dstr_1804__CLASS_SEXPR_MACROSTRING.val[23] = (char)0 ; meltcdat->dstr_1804__CLASS_SEXPR_MACROSTRING.slen = 23 ; /*inirout drout_1805__MEXPAND_CODE_CHUNK*/ /*iniroutlocvar*/ /*_._VALROUT___V1899*/ meltfptr[1898] = (melt_ptr_t) &meltcdat->drout_1805__MEXPAND_CODE_CHUNK; meltcdat->drout_1805__MEXPAND_CODE_CHUNK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1805__MEXPAND_CODE_CHUNK.routdescr, "MEXPAND_CODE_CHUNK @warmelt-macro.melt:5429", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1805__MEXPAND_CODE_CHUNK.nbval = 7; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1805__MEXPAND_CODE_CHUNK, meltrout_82_WARMELTmiMACRO_MEXPAND_CODE_CHUNK); /*iniclos dclo_1806__MEXPAND_CODE_CHUNK*/ /*_._VALCLO___V1900*/ meltfptr[1899] = (melt_ptr_t) &meltcdat->dclo_1806__MEXPAND_CODE_CHUNK; meltcdat->dclo_1806__MEXPAND_CODE_CHUNK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1806__MEXPAND_CODE_CHUNK.nbval = 0; /*iniobj dsym_1807__CODE_CHUNK*/ /*uniqueobj*/ if (!/*_._VALDATA___V1901*/ meltfptr[1900]) /*_._VALDATA___V1901*/ meltfptr[1900] = (melt_ptr_t )&meltcdat->dsym_1807__CODE_CHUNK; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1807__CODE_CHUNK", 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_1807__CODE_CHUNK", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1807__CODE_CHUNK.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1807__CODE_CHUNK.obj_hash = 744676025; meltcdat->dsym_1807__CODE_CHUNK.obj_len = 3; /*inistring dstr_1808__CODE_CHUNK*/ /*_._VALSTR___V1902*/ meltfptr[1901] = (melt_ptr_t) &meltcdat->dstr_1808__CODE_CHUNK; meltcdat->dstr_1808__CODE_CHUNK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1808__CODE_CHUNK.val, "CODE_CHUNK", sizeof (meltcdat->dstr_1808__CODE_CHUNK.val)-1); meltcdat->dstr_1808__CODE_CHUNK.val[10] = (char)0 ; meltcdat->dstr_1808__CODE_CHUNK.slen = 10 ; /*inirout drout_1809__MEXPAND_EXPR_CHUNK*/ /*iniroutlocvar*/ /*_._VALROUT___V1903*/ meltfptr[1902] = (melt_ptr_t) &meltcdat->drout_1809__MEXPAND_EXPR_CHUNK; meltcdat->drout_1809__MEXPAND_EXPR_CHUNK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1809__MEXPAND_EXPR_CHUNK.routdescr, "MEXPAND_EXPR_CHUNK @warmelt-macro.melt:5468", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1809__MEXPAND_EXPR_CHUNK.nbval = 13; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1809__MEXPAND_EXPR_CHUNK, meltrout_83_WARMELTmiMACRO_MEXPAND_EXPR_CHUNK); /*iniclos dclo_1810__MEXPAND_EXPR_CHUNK*/ /*_._VALCLO___V1904*/ meltfptr[1903] = (melt_ptr_t) &meltcdat->dclo_1810__MEXPAND_EXPR_CHUNK; meltcdat->dclo_1810__MEXPAND_EXPR_CHUNK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1810__MEXPAND_EXPR_CHUNK.nbval = 0; /*iniobj dsym_1811__EXPR_CHUNK*/ /*uniqueobj*/ if (!/*_._VALDATA___V1905*/ meltfptr[1904]) /*_._VALDATA___V1905*/ meltfptr[1904] = (melt_ptr_t )&meltcdat->dsym_1811__EXPR_CHUNK; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1811__EXPR_CHUNK", 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_1811__EXPR_CHUNK", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1811__EXPR_CHUNK.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1811__EXPR_CHUNK.obj_hash = 1069244397; meltcdat->dsym_1811__EXPR_CHUNK.obj_len = 3; /*inistring dstr_1812__EXPR_CHUNK*/ /*_._VALSTR___V1906*/ meltfptr[1905] = (melt_ptr_t) &meltcdat->dstr_1812__EXPR_CHUNK; meltcdat->dstr_1812__EXPR_CHUNK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1812__EXPR_CHUNK.val, "EXPR_CHUNK", sizeof (meltcdat->dstr_1812__EXPR_CHUNK.val)-1); meltcdat->dstr_1812__EXPR_CHUNK.val[10] = (char)0 ; meltcdat->dstr_1812__EXPR_CHUNK.slen = 10 ; /*inirout drout_1813__MEXPAND_UNSAFE_PUT_FIELDS*/ /*iniroutlocvar*/ /*_._VALROUT___V1907*/ meltfptr[1906] = (melt_ptr_t) &meltcdat->drout_1813__MEXPAND_UNSAFE_PUT_FIELDS; meltcdat->drout_1813__MEXPAND_UNSAFE_PUT_FIELDS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1813__MEXPAND_UNSAFE_PUT_FIELDS.routdescr, "MEXPAND_UNSAFE_PUT_FIELDS @warmelt-macro.melt:5537", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1813__MEXPAND_UNSAFE_PUT_FIELDS.nbval = 10; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1813__MEXPAND_UNSAFE_PUT_FIELDS, meltrout_84_WARMELTmiMACRO_MEXPAND_UNSAFE_PUT_FIELDS); /*iniclos dclo_1814__MEXPAND_UNSAFE_PUT_FIELDS*/ /*_._VALCLO___V1908*/ meltfptr[1907] = (melt_ptr_t) &meltcdat->dclo_1814__MEXPAND_UNSAFE_PUT_FIELDS; meltcdat->dclo_1814__MEXPAND_UNSAFE_PUT_FIELDS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1814__MEXPAND_UNSAFE_PUT_FIELDS.nbval = 0; /*iniobj dsym_1815__UNSAFE_PUT_FIELDS*/ /*uniqueobj*/ if (!/*_._VALDATA___V1909*/ meltfptr[1908]) /*_._VALDATA___V1909*/ meltfptr[1908] = (melt_ptr_t )&meltcdat->dsym_1815__UNSAFE_PUT_FIELDS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1815__UNSAFE_PUT_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_1815__UNSAFE_PUT_FIELDS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1815__UNSAFE_PUT_FIELDS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1815__UNSAFE_PUT_FIELDS.obj_hash = 2805843; meltcdat->dsym_1815__UNSAFE_PUT_FIELDS.obj_len = 3; /*inistring dstr_1816__UNSAFE_PUT_FIELDS*/ /*_._VALSTR___V1910*/ meltfptr[1909] = (melt_ptr_t) &meltcdat->dstr_1816__UNSAFE_PUT_FIELDS; meltcdat->dstr_1816__UNSAFE_PUT_FIELDS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1816__UNSAFE_PUT_FIELDS.val, "UNSAFE_PUT_FIELDS", sizeof (meltcdat->dstr_1816__UNSAFE_PUT_FIELDS.val)-1); meltcdat->dstr_1816__UNSAFE_PUT_FIELDS.val[17] = (char)0 ; meltcdat->dstr_1816__UNSAFE_PUT_FIELDS.slen = 17 ; /*inirout drout_1817__MEXPAND_PUT_FIELDS*/ /*iniroutlocvar*/ /*_._VALROUT___V1911*/ meltfptr[1910] = (melt_ptr_t) &meltcdat->drout_1817__MEXPAND_PUT_FIELDS; meltcdat->drout_1817__MEXPAND_PUT_FIELDS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1817__MEXPAND_PUT_FIELDS.routdescr, "MEXPAND_PUT_FIELDS @warmelt-macro.melt:5585", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1817__MEXPAND_PUT_FIELDS.nbval = 10; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1817__MEXPAND_PUT_FIELDS, meltrout_85_WARMELTmiMACRO_MEXPAND_PUT_FIELDS); /*iniclos dclo_1818__MEXPAND_PUT_FIELDS*/ /*_._VALCLO___V1912*/ meltfptr[1911] = (melt_ptr_t) &meltcdat->dclo_1818__MEXPAND_PUT_FIELDS; meltcdat->dclo_1818__MEXPAND_PUT_FIELDS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1818__MEXPAND_PUT_FIELDS.nbval = 0; /*iniobj dsym_1819__PUT_FIELDS*/ /*uniqueobj*/ if (!/*_._VALDATA___V1913*/ meltfptr[1912]) /*_._VALDATA___V1913*/ meltfptr[1912] = (melt_ptr_t )&meltcdat->dsym_1819__PUT_FIELDS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1819__PUT_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_1819__PUT_FIELDS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1819__PUT_FIELDS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1819__PUT_FIELDS.obj_hash = 370297609; meltcdat->dsym_1819__PUT_FIELDS.obj_len = 3; /*inistring dstr_1820__PUT_FIELDS*/ /*_._VALSTR___V1914*/ meltfptr[1913] = (melt_ptr_t) &meltcdat->dstr_1820__PUT_FIELDS; meltcdat->dstr_1820__PUT_FIELDS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1820__PUT_FIELDS.val, "PUT_FIELDS", sizeof (meltcdat->dstr_1820__PUT_FIELDS.val)-1); meltcdat->dstr_1820__PUT_FIELDS.val[10] = (char)0 ; meltcdat->dstr_1820__PUT_FIELDS.slen = 10 ; /*inirout drout_1821__MEXPAND_UNSAFE_GET_FIELD*/ /*iniroutlocvar*/ /*_._VALROUT___V1915*/ meltfptr[1914] = (melt_ptr_t) &meltcdat->drout_1821__MEXPAND_UNSAFE_GET_FIELD; meltcdat->drout_1821__MEXPAND_UNSAFE_GET_FIELD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1821__MEXPAND_UNSAFE_GET_FIELD.routdescr, "MEXPAND_UNSAFE_GET_FIELD @warmelt-macro.melt:5632", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1821__MEXPAND_UNSAFE_GET_FIELD.nbval = 7; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1821__MEXPAND_UNSAFE_GET_FIELD, meltrout_86_WARMELTmiMACRO_MEXPAND_UNSAFE_GET_FIELD); /*iniclos dclo_1822__MEXPAND_UNSAFE_GET_FIELD*/ /*_._VALCLO___V1916*/ meltfptr[1915] = (melt_ptr_t) &meltcdat->dclo_1822__MEXPAND_UNSAFE_GET_FIELD; meltcdat->dclo_1822__MEXPAND_UNSAFE_GET_FIELD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1822__MEXPAND_UNSAFE_GET_FIELD.nbval = 0; /*inirout drout_1823__MEXPAND_GET_FIELD*/ /*iniroutlocvar*/ /*_._VALROUT___V1917*/ meltfptr[1916] = (melt_ptr_t) &meltcdat->drout_1823__MEXPAND_GET_FIELD; meltcdat->drout_1823__MEXPAND_GET_FIELD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1823__MEXPAND_GET_FIELD.routdescr, "MEXPAND_GET_FIELD @warmelt-macro.melt:5673", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1823__MEXPAND_GET_FIELD.nbval = 7; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1823__MEXPAND_GET_FIELD, meltrout_87_WARMELTmiMACRO_MEXPAND_GET_FIELD); /*iniclos dclo_1824__MEXPAND_GET_FIELD*/ /*_._VALCLO___V1918*/ meltfptr[1917] = (melt_ptr_t) &meltcdat->dclo_1824__MEXPAND_GET_FIELD; meltcdat->dclo_1824__MEXPAND_GET_FIELD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1824__MEXPAND_GET_FIELD.nbval = 0; /*inirout drout_1825__PAIRLIST_TO_PROGN*/ /*iniroutlocvar*/ /*_._VALROUT___V1919*/ meltfptr[1918] = (melt_ptr_t) &meltcdat->drout_1825__PAIRLIST_TO_PROGN; meltcdat->drout_1825__PAIRLIST_TO_PROGN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1825__PAIRLIST_TO_PROGN.routdescr, "PAIRLIST_TO_PROGN @warmelt-macro.melt:5714", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1825__PAIRLIST_TO_PROGN.nbval = 5; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1825__PAIRLIST_TO_PROGN, meltrout_88_WARMELTmiMACRO_PAIRLIST_TO_PROGN); /*iniclos dclo_1826__PAIRLIST_TO_PROGN*/ /*_._VALCLO___V1920*/ meltfptr[1919] = (melt_ptr_t) &meltcdat->dclo_1826__PAIRLIST_TO_PROGN; meltcdat->dclo_1826__PAIRLIST_TO_PROGN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1826__PAIRLIST_TO_PROGN.nbval = 0; /*inirout drout_1827__MEXPAND_SETQ*/ /*iniroutlocvar*/ /*_._VALROUT___V1921*/ meltfptr[1920] = (melt_ptr_t) &meltcdat->drout_1827__MEXPAND_SETQ; meltcdat->drout_1827__MEXPAND_SETQ.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1827__MEXPAND_SETQ.routdescr, "MEXPAND_SETQ @warmelt-macro.melt:5730", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1827__MEXPAND_SETQ.nbval = 6; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1827__MEXPAND_SETQ, meltrout_89_WARMELTmiMACRO_MEXPAND_SETQ); /*iniclos dclo_1828__MEXPAND_SETQ*/ /*_._VALCLO___V1922*/ meltfptr[1921] = (melt_ptr_t) &meltcdat->dclo_1828__MEXPAND_SETQ; meltcdat->dclo_1828__MEXPAND_SETQ.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1828__MEXPAND_SETQ.nbval = 0; /*inirout drout_1829__MEXPAND_IF*/ /*iniroutlocvar*/ /*_._VALROUT___V1923*/ meltfptr[1922] = (melt_ptr_t) &meltcdat->drout_1829__MEXPAND_IF; meltcdat->drout_1829__MEXPAND_IF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1829__MEXPAND_IF.routdescr, "MEXPAND_IF @warmelt-macro.melt:5761", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1829__MEXPAND_IF.nbval = 7; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1829__MEXPAND_IF, meltrout_90_WARMELTmiMACRO_MEXPAND_IF); /*iniclos dclo_1830__MEXPAND_IF*/ /*_._VALCLO___V1924*/ meltfptr[1923] = (melt_ptr_t) &meltcdat->dclo_1830__MEXPAND_IF; meltcdat->dclo_1830__MEXPAND_IF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1830__MEXPAND_IF.nbval = 0; /*iniobj dsym_1831__IF*/ /*uniqueobj*/ if (!/*_._VALDATA___V1925*/ meltfptr[1924]) /*_._VALDATA___V1925*/ meltfptr[1924] = (melt_ptr_t )&meltcdat->dsym_1831__IF; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1831__IF", 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_1831__IF", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1831__IF.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1831__IF.obj_hash = 117586816; meltcdat->dsym_1831__IF.obj_len = 3; /*inistring dstr_1832__IF*/ /*_._VALSTR___V1926*/ meltfptr[1925] = (melt_ptr_t) &meltcdat->dstr_1832__IF; meltcdat->dstr_1832__IF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1832__IF.val, "IF", sizeof (meltcdat->dstr_1832__IF.val)-1); meltcdat->dstr_1832__IF.val[2] = (char)0 ; meltcdat->dstr_1832__IF.slen = 2 ; /*inirout drout_1833__MEXPAND_WHEN*/ /*iniroutlocvar*/ /*_._VALROUT___V1927*/ meltfptr[1926] = (melt_ptr_t) &meltcdat->drout_1833__MEXPAND_WHEN; meltcdat->drout_1833__MEXPAND_WHEN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1833__MEXPAND_WHEN.routdescr, "MEXPAND_WHEN @warmelt-macro.melt:5815", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1833__MEXPAND_WHEN.nbval = 7; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1833__MEXPAND_WHEN, meltrout_91_WARMELTmiMACRO_MEXPAND_WHEN); /*iniclos dclo_1834__MEXPAND_WHEN*/ /*_._VALCLO___V1928*/ meltfptr[1927] = (melt_ptr_t) &meltcdat->dclo_1834__MEXPAND_WHEN; meltcdat->dclo_1834__MEXPAND_WHEN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1834__MEXPAND_WHEN.nbval = 0; /*iniobj dsym_1835__WHEN*/ /*uniqueobj*/ if (!/*_._VALDATA___V1929*/ meltfptr[1928]) /*_._VALDATA___V1929*/ meltfptr[1928] = (melt_ptr_t )&meltcdat->dsym_1835__WHEN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1835__WHEN", 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_1835__WHEN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1835__WHEN.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1835__WHEN.obj_hash = 10073847; meltcdat->dsym_1835__WHEN.obj_len = 3; /*inistring dstr_1836__WHEN*/ /*_._VALSTR___V1930*/ meltfptr[1929] = (melt_ptr_t) &meltcdat->dstr_1836__WHEN; meltcdat->dstr_1836__WHEN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1836__WHEN.val, "WHEN", sizeof (meltcdat->dstr_1836__WHEN.val)-1); meltcdat->dstr_1836__WHEN.val[4] = (char)0 ; meltcdat->dstr_1836__WHEN.slen = 4 ; /*inirout drout_1837__MEXPAND_UNLESS*/ /*iniroutlocvar*/ /*_._VALROUT___V1931*/ meltfptr[1930] = (melt_ptr_t) &meltcdat->drout_1837__MEXPAND_UNLESS; meltcdat->drout_1837__MEXPAND_UNLESS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1837__MEXPAND_UNLESS.routdescr, "MEXPAND_UNLESS @warmelt-macro.melt:5851", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1837__MEXPAND_UNLESS.nbval = 7; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1837__MEXPAND_UNLESS, meltrout_92_WARMELTmiMACRO_MEXPAND_UNLESS); /*iniclos dclo_1838__MEXPAND_UNLESS*/ /*_._VALCLO___V1932*/ meltfptr[1931] = (melt_ptr_t) &meltcdat->dclo_1838__MEXPAND_UNLESS; meltcdat->dclo_1838__MEXPAND_UNLESS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1838__MEXPAND_UNLESS.nbval = 0; /*iniobj dsym_1839__UNLESS*/ /*uniqueobj*/ if (!/*_._VALDATA___V1933*/ meltfptr[1932]) /*_._VALDATA___V1933*/ meltfptr[1932] = (melt_ptr_t )&meltcdat->dsym_1839__UNLESS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1839__UNLESS", 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_1839__UNLESS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1839__UNLESS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1839__UNLESS.obj_hash = 409627047; meltcdat->dsym_1839__UNLESS.obj_len = 3; /*inistring dstr_1840__UNLESS*/ /*_._VALSTR___V1934*/ meltfptr[1933] = (melt_ptr_t) &meltcdat->dstr_1840__UNLESS; meltcdat->dstr_1840__UNLESS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1840__UNLESS.val, "UNLESS", sizeof (meltcdat->dstr_1840__UNLESS.val)-1); meltcdat->dstr_1840__UNLESS.val[6] = (char)0 ; meltcdat->dstr_1840__UNLESS.slen = 6 ; /*inirout drout_1841__MEXPAND_WITH_CLONED_SYMB*/ /*iniroutlocvar*/ /*_._VALROUT___V1935*/ meltfptr[1934] = (melt_ptr_t) &meltcdat->drout_1841__MEXPAND_WITH_CLONED_SYMB; meltcdat->drout_1841__MEXPAND_WITH_CLONED_SYMB.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1841__MEXPAND_WITH_CLONED_SYMB.routdescr, "MEXPAND_WITH_CLONED_SYMB @warmelt-macro.melt:5890", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1841__MEXPAND_WITH_CLONED_SYMB.nbval = 25; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1841__MEXPAND_WITH_CLONED_SYMB, meltrout_93_WARMELTmiMACRO_MEXPAND_WITH_CLONED_SYMB); /*iniclos dclo_1842__MEXPAND_WITH_CLONED_SYMB*/ /*_._VALCLO___V1939*/ meltfptr[1938] = (melt_ptr_t) &meltcdat->dclo_1842__MEXPAND_WITH_CLONED_SYMB; meltcdat->dclo_1842__MEXPAND_WITH_CLONED_SYMB.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1842__MEXPAND_WITH_CLONED_SYMB.nbval = 0; /*inirout drout_1843__LAMBDA_*/ /*iniroutlocvar*/ /*_._VALROUT___V1936*/ meltfptr[1935] = (melt_ptr_t) &meltcdat->drout_1843__LAMBDA_; meltcdat->drout_1843__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1843__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:5905", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1843__LAMBDA_.nbval = 13; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1843__LAMBDA_, meltrout_94_WARMELTmiMACRO_LAMBDA_cl13); /*iniobj dsym_1844__CLONE_SYMBOL*/ /*uniqueobj*/ if (!/*_._VALDATA___V1937*/ meltfptr[1936]) /*_._VALDATA___V1937*/ meltfptr[1936] = (melt_ptr_t )&meltcdat->dsym_1844__CLONE_SYMBOL; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1844__CLONE_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_1844__CLONE_SYMBOL", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1844__CLONE_SYMBOL.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1844__CLONE_SYMBOL.obj_hash = 213258240; meltcdat->dsym_1844__CLONE_SYMBOL.obj_len = 3; /*inistring dstr_1845__CLONE_SYMBOL*/ /*_._VALSTR___V1938*/ meltfptr[1937] = (melt_ptr_t) &meltcdat->dstr_1845__CLONE_SYMBOL; meltcdat->dstr_1845__CLONE_SYMBOL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1845__CLONE_SYMBOL.val, "CLONE_SYMBOL", sizeof (meltcdat->dstr_1845__CLONE_SYMBOL.val)-1); meltcdat->dstr_1845__CLONE_SYMBOL.val[12] = (char)0 ; meltcdat->dstr_1845__CLONE_SYMBOL.slen = 12 ; /*iniobj dsym_1846__MULTIPLE_TO_LIST*/ /*uniqueobj*/ if (!/*_._VALDATA___V1940*/ meltfptr[1939]) /*_._VALDATA___V1940*/ meltfptr[1939] = (melt_ptr_t )&meltcdat->dsym_1846__MULTIPLE_TO_LIST; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1846__MULTIPLE_TO_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_1846__MULTIPLE_TO_LIST", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1846__MULTIPLE_TO_LIST.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1846__MULTIPLE_TO_LIST.obj_hash = 622139769; meltcdat->dsym_1846__MULTIPLE_TO_LIST.obj_len = 3; /*inistring dstr_1847__MULTIPLE_TO_LIST*/ /*_._VALSTR___V1941*/ meltfptr[1940] = (melt_ptr_t) &meltcdat->dstr_1847__MULTIPLE_TO_LIST; meltcdat->dstr_1847__MULTIPLE_TO_LIST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1847__MULTIPLE_TO_LIST.val, "MULTIPLE_TO_LIST", sizeof (meltcdat->dstr_1847__MULTIPLE_TO_LIST.val)-1); meltcdat->dstr_1847__MULTIPLE_TO_LIST.val[16] = (char)0 ; meltcdat->dstr_1847__MULTIPLE_TO_LIST.slen = 16 ; /*iniobj dsym_1848__WITH_CLONED_SYMB*/ /*uniqueobj*/ if (!/*_._VALDATA___V1942*/ meltfptr[1941]) /*_._VALDATA___V1942*/ meltfptr[1941] = (melt_ptr_t )&meltcdat->dsym_1848__WITH_CLONED_SYMB; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1848__WITH_CLONED_SYMB", 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_1848__WITH_CLONED_SYMB", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1848__WITH_CLONED_SYMB.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1848__WITH_CLONED_SYMB.obj_hash = 621707536; meltcdat->dsym_1848__WITH_CLONED_SYMB.obj_len = 3; /*inistring dstr_1849__WITH_CLONED_SYMB*/ /*_._VALSTR___V1943*/ meltfptr[1942] = (melt_ptr_t) &meltcdat->dstr_1849__WITH_CLONED_SYMB; meltcdat->dstr_1849__WITH_CLONED_SYMB.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1849__WITH_CLONED_SYMB.val, "WITH_CLONED_SYMB", sizeof (meltcdat->dstr_1849__WITH_CLONED_SYMB.val)-1); meltcdat->dstr_1849__WITH_CLONED_SYMB.val[16] = (char)0 ; meltcdat->dstr_1849__WITH_CLONED_SYMB.slen = 16 ; /*inirout drout_1850__MEXPAND_CPPIF*/ /*iniroutlocvar*/ /*_._VALROUT___V1944*/ meltfptr[1943] = (melt_ptr_t) &meltcdat->drout_1850__MEXPAND_CPPIF; meltcdat->drout_1850__MEXPAND_CPPIF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1850__MEXPAND_CPPIF.routdescr, "MEXPAND_CPPIF @warmelt-macro.melt:5991", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1850__MEXPAND_CPPIF.nbval = 7; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1850__MEXPAND_CPPIF, meltrout_95_WARMELTmiMACRO_MEXPAND_CPPIF); /*iniclos dclo_1851__MEXPAND_CPPIF*/ /*_._VALCLO___V1945*/ meltfptr[1944] = (melt_ptr_t) &meltcdat->dclo_1851__MEXPAND_CPPIF; meltcdat->dclo_1851__MEXPAND_CPPIF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1851__MEXPAND_CPPIF.nbval = 0; /*iniobj dsym_1852__CPPIF*/ /*uniqueobj*/ if (!/*_._VALDATA___V1946*/ meltfptr[1945]) /*_._VALDATA___V1946*/ meltfptr[1945] = (melt_ptr_t )&meltcdat->dsym_1852__CPPIF; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1852__CPPIF", 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_1852__CPPIF", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1852__CPPIF.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1852__CPPIF.obj_hash = 829409177; meltcdat->dsym_1852__CPPIF.obj_len = 3; /*inistring dstr_1853__CPPIF*/ /*_._VALSTR___V1947*/ meltfptr[1946] = (melt_ptr_t) &meltcdat->dstr_1853__CPPIF; meltcdat->dstr_1853__CPPIF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1853__CPPIF.val, "CPPIF", sizeof (meltcdat->dstr_1853__CPPIF.val)-1); meltcdat->dstr_1853__CPPIF.val[5] = (char)0 ; meltcdat->dstr_1853__CPPIF.slen = 5 ; /*inirout drout_1854__MEXPAND_COND*/ /*iniroutlocvar*/ /*_._VALROUT___V1948*/ meltfptr[1947] = (melt_ptr_t) &meltcdat->drout_1854__MEXPAND_COND; meltcdat->drout_1854__MEXPAND_COND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1854__MEXPAND_COND.routdescr, "MEXPAND_COND @warmelt-macro.melt:6047", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1854__MEXPAND_COND.nbval = 12; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1854__MEXPAND_COND, meltrout_96_WARMELTmiMACRO_MEXPAND_COND); /*iniclos dclo_1855__MEXPAND_COND*/ /*_._VALCLO___V1950*/ meltfptr[1949] = (melt_ptr_t) &meltcdat->dclo_1855__MEXPAND_COND; meltcdat->dclo_1855__MEXPAND_COND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1855__MEXPAND_COND.nbval = 0; /*inirout drout_1856__LAMBDA_*/ /*iniroutlocvar*/ /*_._VALROUT___V1949*/ meltfptr[1948] = (melt_ptr_t) &meltcdat->drout_1856__LAMBDA_; meltcdat->drout_1856__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1856__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:6057", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1856__LAMBDA_.nbval = 1; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1856__LAMBDA_, meltrout_97_WARMELTmiMACRO_LAMBDA_cl14); /*inirout drout_1857__MEXPAND_AND*/ /*iniroutlocvar*/ /*_._VALROUT___V1951*/ meltfptr[1950] = (melt_ptr_t) &meltcdat->drout_1857__MEXPAND_AND; meltcdat->drout_1857__MEXPAND_AND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1857__MEXPAND_AND.routdescr, "MEXPAND_AND @warmelt-macro.melt:6152", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1857__MEXPAND_AND.nbval = 7; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1857__MEXPAND_AND, meltrout_98_WARMELTmiMACRO_MEXPAND_AND); /*iniclos dclo_1858__MEXPAND_AND*/ /*_._VALCLO___V1952*/ meltfptr[1951] = (melt_ptr_t) &meltcdat->dclo_1858__MEXPAND_AND; meltcdat->dclo_1858__MEXPAND_AND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1858__MEXPAND_AND.nbval = 0; /*inirout drout_1859__PATEXPAND_AS*/ /*iniroutlocvar*/ /*_._VALROUT___V1953*/ meltfptr[1952] = (melt_ptr_t) &meltcdat->drout_1859__PATEXPAND_AS; meltcdat->drout_1859__PATEXPAND_AS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1859__PATEXPAND_AS.routdescr, "PATEXPAND_AS @warmelt-macro.melt:6188", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1859__PATEXPAND_AS.nbval = 11; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1859__PATEXPAND_AS, meltrout_99_WARMELTmiMACRO_PATEXPAND_AS); /*iniclos dclo_1860__PATEXPAND_AS*/ /*_._VALCLO___V1954*/ meltfptr[1953] = (melt_ptr_t) &meltcdat->dclo_1860__PATEXPAND_AS; meltcdat->dclo_1860__PATEXPAND_AS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1860__PATEXPAND_AS.nbval = 0; /*inirout drout_1861__MEXPAND_AS*/ /*iniroutlocvar*/ /*_._VALROUT___V1955*/ meltfptr[1954] = (melt_ptr_t) &meltcdat->drout_1861__MEXPAND_AS; meltcdat->drout_1861__MEXPAND_AS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1861__MEXPAND_AS.routdescr, "MEXPAND_AS @warmelt-macro.melt:6226", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1861__MEXPAND_AS.nbval = 4; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1861__MEXPAND_AS, meltrout_100_WARMELTmiMACRO_MEXPAND_AS); /*iniclos dclo_1862__MEXPAND_AS*/ /*_._VALCLO___V1956*/ meltfptr[1955] = (melt_ptr_t) &meltcdat->dclo_1862__MEXPAND_AS; meltcdat->dclo_1862__MEXPAND_AS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1862__MEXPAND_AS.nbval = 0; /*iniobj dsym_1863__AS*/ /*uniqueobj*/ if (!/*_._VALDATA___V1957*/ meltfptr[1956]) /*_._VALDATA___V1957*/ meltfptr[1956] = (melt_ptr_t )&meltcdat->dsym_1863__AS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1863__AS", 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_1863__AS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1863__AS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1863__AS.obj_hash = 76496773; meltcdat->dsym_1863__AS.obj_len = 3; /*inistring dstr_1864__AS*/ /*_._VALSTR___V1958*/ meltfptr[1957] = (melt_ptr_t) &meltcdat->dstr_1864__AS; meltcdat->dstr_1864__AS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1864__AS.val, "AS", sizeof (meltcdat->dstr_1864__AS.val)-1); meltcdat->dstr_1864__AS.val[2] = (char)0 ; meltcdat->dstr_1864__AS.slen = 2 ; /*inirout drout_1865__PATEXPAND_WHEN*/ /*iniroutlocvar*/ /*_._VALROUT___V1959*/ meltfptr[1958] = (melt_ptr_t) &meltcdat->drout_1865__PATEXPAND_WHEN; meltcdat->drout_1865__PATEXPAND_WHEN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1865__PATEXPAND_WHEN.routdescr, "PATEXPAND_WHEN @warmelt-macro.melt:6240", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1865__PATEXPAND_WHEN.nbval = 5; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1865__PATEXPAND_WHEN, meltrout_101_WARMELTmiMACRO_PATEXPAND_WHEN); /*iniclos dclo_1866__PATEXPAND_WHEN*/ /*_._VALCLO___V1960*/ meltfptr[1959] = (melt_ptr_t) &meltcdat->dclo_1866__PATEXPAND_WHEN; meltcdat->dclo_1866__PATEXPAND_WHEN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1866__PATEXPAND_WHEN.nbval = 0; /*inirout drout_1867__PATEXPAND_AND*/ /*iniroutlocvar*/ /*_._VALROUT___V1961*/ meltfptr[1960] = (melt_ptr_t) &meltcdat->drout_1867__PATEXPAND_AND; meltcdat->drout_1867__PATEXPAND_AND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1867__PATEXPAND_AND.routdescr, "PATEXPAND_AND @warmelt-macro.melt:6260", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1867__PATEXPAND_AND.nbval = 9; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1867__PATEXPAND_AND, meltrout_102_WARMELTmiMACRO_PATEXPAND_AND); /*iniclos dclo_1868__PATEXPAND_AND*/ /*_._VALCLO___V1962*/ meltfptr[1961] = (melt_ptr_t) &meltcdat->dclo_1868__PATEXPAND_AND; meltcdat->dclo_1868__PATEXPAND_AND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1868__PATEXPAND_AND.nbval = 0; /*inirout drout_1869__MEXPAND_OR*/ /*iniroutlocvar*/ /*_._VALROUT___V1963*/ meltfptr[1962] = (melt_ptr_t) &meltcdat->drout_1869__MEXPAND_OR; meltcdat->drout_1869__MEXPAND_OR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1869__MEXPAND_OR.routdescr, "MEXPAND_OR @warmelt-macro.melt:6296", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1869__MEXPAND_OR.nbval = 7; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1869__MEXPAND_OR, meltrout_103_WARMELTmiMACRO_MEXPAND_OR); /*iniclos dclo_1870__MEXPAND_OR*/ /*_._VALCLO___V1964*/ meltfptr[1963] = (melt_ptr_t) &meltcdat->dclo_1870__MEXPAND_OR; meltcdat->dclo_1870__MEXPAND_OR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1870__MEXPAND_OR.nbval = 0; /*inirout drout_1871__PATEXPAND_OR*/ /*iniroutlocvar*/ /*_._VALROUT___V1965*/ meltfptr[1964] = (melt_ptr_t) &meltcdat->drout_1871__PATEXPAND_OR; meltcdat->drout_1871__PATEXPAND_OR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1871__PATEXPAND_OR.routdescr, "PATEXPAND_OR @warmelt-macro.melt:6321", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1871__PATEXPAND_OR.nbval = 9; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1871__PATEXPAND_OR, meltrout_104_WARMELTmiMACRO_PATEXPAND_OR); /*iniclos dclo_1872__PATEXPAND_OR*/ /*_._VALCLO___V1966*/ meltfptr[1965] = (melt_ptr_t) &meltcdat->dclo_1872__PATEXPAND_OR; meltcdat->dclo_1872__PATEXPAND_OR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1872__PATEXPAND_OR.nbval = 0; /*iniobj dsym_1873__OR*/ /*uniqueobj*/ if (!/*_._VALDATA___V1967*/ meltfptr[1966]) /*_._VALDATA___V1967*/ meltfptr[1966] = (melt_ptr_t )&meltcdat->dsym_1873__OR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1873__OR", 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_1873__OR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1873__OR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1873__OR.obj_hash = 44588765; meltcdat->dsym_1873__OR.obj_len = 3; /*inistring dstr_1874__OR*/ /*_._VALSTR___V1968*/ meltfptr[1967] = (melt_ptr_t) &meltcdat->dstr_1874__OR; meltcdat->dstr_1874__OR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1874__OR.val, "OR", sizeof (meltcdat->dstr_1874__OR.val)-1); meltcdat->dstr_1874__OR.val[2] = (char)0 ; meltcdat->dstr_1874__OR.slen = 2 ; /*inirout drout_1875__MEXPAND_REFERENCE*/ /*iniroutlocvar*/ /*_._VALROUT___V1969*/ meltfptr[1968] = (melt_ptr_t) &meltcdat->drout_1875__MEXPAND_REFERENCE; meltcdat->drout_1875__MEXPAND_REFERENCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1875__MEXPAND_REFERENCE.routdescr, "MEXPAND_REFERENCE @warmelt-macro.melt:6358", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1875__MEXPAND_REFERENCE.nbval = 16; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1875__MEXPAND_REFERENCE, meltrout_105_WARMELTmiMACRO_MEXPAND_REFERENCE); /*iniclos dclo_1876__MEXPAND_REFERENCE*/ /*_._VALCLO___V1972*/ meltfptr[1971] = (melt_ptr_t) &meltcdat->dclo_1876__MEXPAND_REFERENCE; meltcdat->dclo_1876__MEXPAND_REFERENCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1876__MEXPAND_REFERENCE.nbval = 0; /*iniobj dsym_1877__CLASS_FIELDS*/ /*uniqueobj*/ if (!/*_._VALDATA___V1973*/ meltfptr[1972]) /*_._VALDATA___V1973*/ meltfptr[1972] = (melt_ptr_t )&meltcdat->dsym_1877__CLASS_FIELDS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1877__CLASS_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_1877__CLASS_FIELDS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1877__CLASS_FIELDS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1877__CLASS_FIELDS.obj_hash = 405169432; meltcdat->dsym_1877__CLASS_FIELDS.obj_len = 3; /*inistring dstr_1878__CLASS_FIELDS*/ /*_._VALSTR___V1974*/ meltfptr[1973] = (melt_ptr_t) &meltcdat->dstr_1878__CLASS_FIELDS; meltcdat->dstr_1878__CLASS_FIELDS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1878__CLASS_FIELDS.val, "CLASS_FIELDS", sizeof (meltcdat->dstr_1878__CLASS_FIELDS.val)-1); meltcdat->dstr_1878__CLASS_FIELDS.val[12] = (char)0 ; meltcdat->dstr_1878__CLASS_FIELDS.slen = 12 ; /*iniobj dsym_1879__REFERENCED_VALUE*/ /*uniqueobj*/ if (!/*_._VALDATA___V1970*/ meltfptr[1969]) /*_._VALDATA___V1970*/ meltfptr[1969] = (melt_ptr_t )&meltcdat->dsym_1879__REFERENCED_VALUE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1879__REFERENCED_VALUE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1879__REFERENCED_VALUE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1879__REFERENCED_VALUE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))); meltcdat->dsym_1879__REFERENCED_VALUE.obj_hash = 206937792; meltcdat->dsym_1879__REFERENCED_VALUE.obj_len = 3; /*inistring dstr_1880__REFERENCED_VALUE*/ /*_._VALSTR___V1971*/ meltfptr[1970] = (melt_ptr_t) &meltcdat->dstr_1880__REFERENCED_VALUE; meltcdat->dstr_1880__REFERENCED_VALUE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1880__REFERENCED_VALUE.val, "REFERENCED_VALUE", sizeof (meltcdat->dstr_1880__REFERENCED_VALUE.val)-1); meltcdat->dstr_1880__REFERENCED_VALUE.val[16] = (char)0 ; meltcdat->dstr_1880__REFERENCED_VALUE.slen = 16 ; /*inirout drout_1881__PATEXPAND_REFERENCE*/ /*iniroutlocvar*/ /*_._VALROUT___V1975*/ meltfptr[1974] = (melt_ptr_t) &meltcdat->drout_1881__PATEXPAND_REFERENCE; meltcdat->drout_1881__PATEXPAND_REFERENCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1881__PATEXPAND_REFERENCE.routdescr, "PATEXPAND_REFERENCE @warmelt-macro.melt:6402", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1881__PATEXPAND_REFERENCE.nbval = 11; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1881__PATEXPAND_REFERENCE, meltrout_106_WARMELTmiMACRO_PATEXPAND_REFERENCE); /*iniclos dclo_1882__PATEXPAND_REFERENCE*/ /*_._VALCLO___V1977*/ meltfptr[1976] = (melt_ptr_t) &meltcdat->dclo_1882__PATEXPAND_REFERENCE; meltcdat->dclo_1882__PATEXPAND_REFERENCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1882__PATEXPAND_REFERENCE.nbval = 0; /*iniboxint dint_1883__*/ /*_._VALBXINT___V1976*/ meltfptr[1975] = (melt_ptr_t) &meltcdat->dint_1883__; meltcdat->dint_1883__.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CONSTANT_INTEGER)))); meltcdat->dint_1883__.val = 1; /*iniobj dsym_1884__REFERENCE*/ /*uniqueobj*/ if (!/*_._VALDATA___V1978*/ meltfptr[1977]) /*_._VALDATA___V1978*/ meltfptr[1977] = (melt_ptr_t )&meltcdat->dsym_1884__REFERENCE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1884__REFERENCE", 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_1884__REFERENCE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1884__REFERENCE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1884__REFERENCE.obj_hash = 615372739; meltcdat->dsym_1884__REFERENCE.obj_len = 3; /*inistring dstr_1885__REFERENCE*/ /*_._VALSTR___V1979*/ meltfptr[1978] = (melt_ptr_t) &meltcdat->dstr_1885__REFERENCE; meltcdat->dstr_1885__REFERENCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1885__REFERENCE.val, "REFERENCE", sizeof (meltcdat->dstr_1885__REFERENCE.val)-1); meltcdat->dstr_1885__REFERENCE.val[9] = (char)0 ; meltcdat->dstr_1885__REFERENCE.slen = 9 ; /*inirout drout_1886__MEXPAND_DEREF*/ /*iniroutlocvar*/ /*_._VALROUT___V1980*/ meltfptr[1979] = (melt_ptr_t) &meltcdat->drout_1886__MEXPAND_DEREF; meltcdat->drout_1886__MEXPAND_DEREF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1886__MEXPAND_DEREF.routdescr, "MEXPAND_DEREF @warmelt-macro.melt:6442", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1886__MEXPAND_DEREF.nbval = 14; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1886__MEXPAND_DEREF, meltrout_107_WARMELTmiMACRO_MEXPAND_DEREF); /*iniclos dclo_1887__MEXPAND_DEREF*/ /*_._VALCLO___V1981*/ meltfptr[1980] = (melt_ptr_t) &meltcdat->dclo_1887__MEXPAND_DEREF; meltcdat->dclo_1887__MEXPAND_DEREF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1887__MEXPAND_DEREF.nbval = 0; /*iniobj dsym_1888__REFERENCED_VALUE*/ /*uniqueobj*/ if (!/*_._VALDATA___V1982*/ meltfptr[1981]) /*_._VALDATA___V1982*/ meltfptr[1981] = (melt_ptr_t )&meltcdat->dsym_1888__REFERENCED_VALUE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1888__REFERENCED_VALUE", 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_1888__REFERENCED_VALUE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1888__REFERENCED_VALUE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1888__REFERENCED_VALUE.obj_hash = 333195267; meltcdat->dsym_1888__REFERENCED_VALUE.obj_len = 3; /*inistring dstr_1889__REFERENCED_VALUE*/ /*_._VALSTR___V1983*/ meltfptr[1982] = (melt_ptr_t) &meltcdat->dstr_1889__REFERENCED_VALUE; meltcdat->dstr_1889__REFERENCED_VALUE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1889__REFERENCED_VALUE.val, "REFERENCED_VALUE", sizeof (meltcdat->dstr_1889__REFERENCED_VALUE.val)-1); meltcdat->dstr_1889__REFERENCED_VALUE.val[16] = (char)0 ; meltcdat->dstr_1889__REFERENCED_VALUE.slen = 16 ; /*iniobj dsym_1890__DEREF*/ /*uniqueobj*/ if (!/*_._VALDATA___V1984*/ meltfptr[1983]) /*_._VALDATA___V1984*/ meltfptr[1983] = (melt_ptr_t )&meltcdat->dsym_1890__DEREF; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1890__DEREF", 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_1890__DEREF", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1890__DEREF.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1890__DEREF.obj_hash = 113361694; meltcdat->dsym_1890__DEREF.obj_len = 3; /*inistring dstr_1891__DEREF*/ /*_._VALSTR___V1985*/ meltfptr[1984] = (melt_ptr_t) &meltcdat->dstr_1891__DEREF; meltcdat->dstr_1891__DEREF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1891__DEREF.val, "DEREF", sizeof (meltcdat->dstr_1891__DEREF.val)-1); meltcdat->dstr_1891__DEREF.val[5] = (char)0 ; meltcdat->dstr_1891__DEREF.slen = 5 ; /*inirout drout_1892__MEXPANDOBSOLETE_CONTENT*/ /*iniroutlocvar*/ /*_._VALROUT___V1986*/ meltfptr[1985] = (melt_ptr_t) &meltcdat->drout_1892__MEXPANDOBSOLETE_CONTENT; meltcdat->drout_1892__MEXPANDOBSOLETE_CONTENT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1892__MEXPANDOBSOLETE_CONTENT.routdescr, "MEXPANDOBSOLETE_CONTENT @warmelt-macro.melt:6487", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1892__MEXPANDOBSOLETE_CONTENT.nbval = 5; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1892__MEXPANDOBSOLETE_CONTENT, meltrout_108_WARMELTmiMACRO_MEXPANDOBSOLETE_CONTENT); /*iniclos dclo_1893__MEXPANDOBSOLETE_CONTENT*/ /*_._VALCLO___V1987*/ meltfptr[1986] = (melt_ptr_t) &meltcdat->dclo_1893__MEXPANDOBSOLETE_CONTENT; meltcdat->dclo_1893__MEXPANDOBSOLETE_CONTENT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1893__MEXPANDOBSOLETE_CONTENT.nbval = 0; /*iniobj dsym_1894__CONTENT*/ /*uniqueobj*/ if (!/*_._VALDATA___V1988*/ meltfptr[1987]) /*_._VALDATA___V1988*/ meltfptr[1987] = (melt_ptr_t )&meltcdat->dsym_1894__CONTENT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1894__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_1894__CONTENT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1894__CONTENT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1894__CONTENT.obj_hash = 1008043694; meltcdat->dsym_1894__CONTENT.obj_len = 3; /*inistring dstr_1895__CONTENT*/ /*_._VALSTR___V1989*/ meltfptr[1988] = (melt_ptr_t) &meltcdat->dstr_1895__CONTENT; meltcdat->dstr_1895__CONTENT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1895__CONTENT.val, "CONTENT", sizeof (meltcdat->dstr_1895__CONTENT.val)-1); meltcdat->dstr_1895__CONTENT.val[7] = (char)0 ; meltcdat->dstr_1895__CONTENT.slen = 7 ; /*iniobj dsym_1896__EXCLAIM*/ /*uniqueobj*/ if (!/*_._VALDATA___V1990*/ meltfptr[1989]) /*_._VALDATA___V1990*/ meltfptr[1989] = (melt_ptr_t )&meltcdat->dsym_1896__EXCLAIM; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1896__EXCLAIM", 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_1896__EXCLAIM", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1896__EXCLAIM.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1896__EXCLAIM.obj_hash = 415490856; meltcdat->dsym_1896__EXCLAIM.obj_len = 3; /*inistring dstr_1897__EXCLAIM*/ /*_._VALSTR___V1991*/ meltfptr[1990] = (melt_ptr_t) &meltcdat->dstr_1897__EXCLAIM; meltcdat->dstr_1897__EXCLAIM.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1897__EXCLAIM.val, "EXCLAIM", sizeof (meltcdat->dstr_1897__EXCLAIM.val)-1); meltcdat->dstr_1897__EXCLAIM.val[7] = (char)0 ; meltcdat->dstr_1897__EXCLAIM.slen = 7 ; /*inirout drout_1898__MEXPAND_SET_REF*/ /*iniroutlocvar*/ /*_._VALROUT___V1992*/ meltfptr[1991] = (melt_ptr_t) &meltcdat->drout_1898__MEXPAND_SET_REF; meltcdat->drout_1898__MEXPAND_SET_REF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1898__MEXPAND_SET_REF.routdescr, "MEXPAND_SET_REF @warmelt-macro.melt:6509", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1898__MEXPAND_SET_REF.nbval = 15; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1898__MEXPAND_SET_REF, meltrout_109_WARMELTmiMACRO_MEXPAND_SET_REF); /*iniclos dclo_1899__MEXPAND_SET_REF*/ /*_._VALCLO___V1993*/ meltfptr[1992] = (melt_ptr_t) &meltcdat->dclo_1899__MEXPAND_SET_REF; meltcdat->dclo_1899__MEXPAND_SET_REF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1899__MEXPAND_SET_REF.nbval = 0; /*iniobj dsym_1900__SET_REF*/ /*uniqueobj*/ if (!/*_._VALDATA___V1994*/ meltfptr[1993]) /*_._VALDATA___V1994*/ meltfptr[1993] = (melt_ptr_t )&meltcdat->dsym_1900__SET_REF; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1900__SET_REF", 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_1900__SET_REF", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1900__SET_REF.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1900__SET_REF.obj_hash = 647948259; meltcdat->dsym_1900__SET_REF.obj_len = 3; /*inistring dstr_1901__SET_REF*/ /*_._VALSTR___V1995*/ meltfptr[1994] = (melt_ptr_t) &meltcdat->dstr_1901__SET_REF; meltcdat->dstr_1901__SET_REF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1901__SET_REF.val, "SET_REF", sizeof (meltcdat->dstr_1901__SET_REF.val)-1); meltcdat->dstr_1901__SET_REF.val[7] = (char)0 ; meltcdat->dstr_1901__SET_REF.slen = 7 ; /*inirout drout_1902__MEXPAND_PLUS*/ /*iniroutlocvar*/ /*_._VALROUT___V1996*/ meltfptr[1995] = (melt_ptr_t) &meltcdat->drout_1902__MEXPAND_PLUS; meltcdat->drout_1902__MEXPAND_PLUS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1902__MEXPAND_PLUS.routdescr, "MEXPAND_PLUS @warmelt-macro.melt:6562", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1902__MEXPAND_PLUS.nbval = 8; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1902__MEXPAND_PLUS, meltrout_110_WARMELTmiMACRO_MEXPAND_PLUS); /*iniclos dclo_1903__MEXPAND_PLUS*/ /*_._VALCLO___V1998*/ meltfptr[1997] = (melt_ptr_t) &meltcdat->dclo_1903__MEXPAND_PLUS; meltcdat->dclo_1903__MEXPAND_PLUS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1903__MEXPAND_PLUS.nbval = 0; /*iniboxint dint_1904__*/ /*_._VALBXINT___V1997*/ meltfptr[1996] = (melt_ptr_t) &meltcdat->dint_1904__; meltcdat->dint_1904__.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CONSTANT_INTEGER)))); meltcdat->dint_1904__.val = 0; /*iniobj dsym_1905__plI*/ /*uniqueobj*/ if (!/*_._VALDATA___V1999*/ meltfptr[1998]) /*_._VALDATA___V1999*/ meltfptr[1998] = (melt_ptr_t )&meltcdat->dsym_1905__plI; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1905__plI", 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_1905__plI", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1905__plI.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1905__plI.obj_hash = 970899945; meltcdat->dsym_1905__plI.obj_len = 3; /*inistring dstr_1906__I*/ /*_._VALSTR___V2000*/ meltfptr[1999] = (melt_ptr_t) &meltcdat->dstr_1906__I; meltcdat->dstr_1906__I.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1906__I.val, "+I", sizeof (meltcdat->dstr_1906__I.val)-1); meltcdat->dstr_1906__I.val[2] = (char)0 ; meltcdat->dstr_1906__I.slen = 2 ; /*inirout drout_1907__MEXPAND_MINUS*/ /*iniroutlocvar*/ /*_._VALROUT___V2001*/ meltfptr[2000] = (melt_ptr_t) &meltcdat->drout_1907__MEXPAND_MINUS; meltcdat->drout_1907__MEXPAND_MINUS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1907__MEXPAND_MINUS.routdescr, "MEXPAND_MINUS @warmelt-macro.melt:6591", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1907__MEXPAND_MINUS.nbval = 8; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1907__MEXPAND_MINUS, meltrout_111_WARMELTmiMACRO_MEXPAND_MINUS); /*iniclos dclo_1908__MEXPAND_MINUS*/ /*_._VALCLO___V2003*/ meltfptr[2002] = (melt_ptr_t) &meltcdat->dclo_1908__MEXPAND_MINUS; meltcdat->dclo_1908__MEXPAND_MINUS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1908__MEXPAND_MINUS.nbval = 0; /*iniboxint dint_1909__*/ /*_._VALBXINT___V2002*/ meltfptr[2001] = (melt_ptr_t) &meltcdat->dint_1909__; meltcdat->dint_1909__.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CONSTANT_INTEGER)))); meltcdat->dint_1909__.val = 0; /*iniobj dsym_1910__miI*/ /*uniqueobj*/ if (!/*_._VALDATA___V2004*/ meltfptr[2003]) /*_._VALDATA___V2004*/ meltfptr[2003] = (melt_ptr_t )&meltcdat->dsym_1910__miI; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1910__miI", 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_1910__miI", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1910__miI.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1910__miI.obj_hash = 200978817; meltcdat->dsym_1910__miI.obj_len = 3; /*inistring dstr_1911__I*/ /*_._VALSTR___V2005*/ meltfptr[2004] = (melt_ptr_t) &meltcdat->dstr_1911__I; meltcdat->dstr_1911__I.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1911__I.val, "-I", sizeof (meltcdat->dstr_1911__I.val)-1); meltcdat->dstr_1911__I.val[2] = (char)0 ; meltcdat->dstr_1911__I.slen = 2 ; /*iniobj dsym_1912__mi*/ /*uniqueobj*/ if (!/*_._VALDATA___V2006*/ meltfptr[2005]) /*_._VALDATA___V2006*/ meltfptr[2005] = (melt_ptr_t )&meltcdat->dsym_1912__mi; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1912__mi", 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_1912__mi", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1912__mi.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1912__mi.obj_hash = 213747076; meltcdat->dsym_1912__mi.obj_len = 3; /*inistring dstr_1913__*/ /*_._VALSTR___V2007*/ meltfptr[2006] = (melt_ptr_t) &meltcdat->dstr_1913__; meltcdat->dstr_1913__.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1913__.val, "-", sizeof (meltcdat->dstr_1913__.val)-1); meltcdat->dstr_1913__.val[1] = (char)0 ; meltcdat->dstr_1913__.slen = 1 ; /*inirout drout_1914__MEXPAND_TIMES*/ /*iniroutlocvar*/ /*_._VALROUT___V2008*/ meltfptr[2007] = (melt_ptr_t) &meltcdat->drout_1914__MEXPAND_TIMES; meltcdat->drout_1914__MEXPAND_TIMES.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1914__MEXPAND_TIMES.routdescr, "MEXPAND_TIMES @warmelt-macro.melt:6620", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1914__MEXPAND_TIMES.nbval = 8; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1914__MEXPAND_TIMES, meltrout_112_WARMELTmiMACRO_MEXPAND_TIMES); /*iniclos dclo_1915__MEXPAND_TIMES*/ /*_._VALCLO___V2010*/ meltfptr[2009] = (melt_ptr_t) &meltcdat->dclo_1915__MEXPAND_TIMES; meltcdat->dclo_1915__MEXPAND_TIMES.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1915__MEXPAND_TIMES.nbval = 0; /*iniboxint dint_1916__*/ /*_._VALBXINT___V2009*/ meltfptr[2008] = (melt_ptr_t) &meltcdat->dint_1916__; meltcdat->dint_1916__.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CONSTANT_INTEGER)))); meltcdat->dint_1916__.val = 1; /*iniobj dsym_1917__stI*/ /*uniqueobj*/ if (!/*_._VALDATA___V2011*/ meltfptr[2010]) /*_._VALDATA___V2011*/ meltfptr[2010] = (melt_ptr_t )&meltcdat->dsym_1917__stI; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1917__stI", 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_1917__stI", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1917__stI.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1917__stI.obj_hash = 974283096; meltcdat->dsym_1917__stI.obj_len = 3; /*inistring dstr_1918__I*/ /*_._VALSTR___V2012*/ meltfptr[2011] = (melt_ptr_t) &meltcdat->dstr_1918__I; meltcdat->dstr_1918__I.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1918__I.val, "*I", sizeof (meltcdat->dstr_1918__I.val)-1); meltcdat->dstr_1918__I.val[2] = (char)0 ; meltcdat->dstr_1918__I.slen = 2 ; /*iniobj dsym_1919__st*/ /*uniqueobj*/ if (!/*_._VALDATA___V2013*/ meltfptr[2012]) /*_._VALDATA___V2013*/ meltfptr[2012] = (melt_ptr_t )&meltcdat->dsym_1919__st; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1919__st", 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_1919__st", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1919__st.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1919__st.obj_hash = 207765579; meltcdat->dsym_1919__st.obj_len = 3; /*inistring dstr_1920__*/ /*_._VALSTR___V2014*/ meltfptr[2013] = (melt_ptr_t) &meltcdat->dstr_1920__; meltcdat->dstr_1920__.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1920__.val, "*", sizeof (meltcdat->dstr_1920__.val)-1); meltcdat->dstr_1920__.val[1] = (char)0 ; meltcdat->dstr_1920__.slen = 1 ; /*inirout drout_1921__MEXPAND_DIV*/ /*iniroutlocvar*/ /*_._VALROUT___V2015*/ meltfptr[2014] = (melt_ptr_t) &meltcdat->drout_1921__MEXPAND_DIV; meltcdat->drout_1921__MEXPAND_DIV.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1921__MEXPAND_DIV.routdescr, "MEXPAND_DIV @warmelt-macro.melt:6649", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1921__MEXPAND_DIV.nbval = 8; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1921__MEXPAND_DIV, meltrout_113_WARMELTmiMACRO_MEXPAND_DIV); /*iniclos dclo_1922__MEXPAND_DIV*/ /*_._VALCLO___V2017*/ meltfptr[2016] = (melt_ptr_t) &meltcdat->dclo_1922__MEXPAND_DIV; meltcdat->dclo_1922__MEXPAND_DIV.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1922__MEXPAND_DIV.nbval = 0; /*iniboxint dint_1923__*/ /*_._VALBXINT___V2016*/ meltfptr[2015] = (melt_ptr_t) &meltcdat->dint_1923__; meltcdat->dint_1923__.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CONSTANT_INTEGER)))); meltcdat->dint_1923__.val = 1; /*iniobj dsym_1924__diI*/ /*uniqueobj*/ if (!/*_._VALDATA___V2018*/ meltfptr[2017]) /*_._VALDATA___V2018*/ meltfptr[2017] = (melt_ptr_t )&meltcdat->dsym_1924__diI; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1924__diI", 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_1924__diI", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1924__diI.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1924__diI.obj_hash = 748620818; meltcdat->dsym_1924__diI.obj_len = 3; /*inistring dstr_1925__I*/ /*_._VALSTR___V2019*/ meltfptr[2018] = (melt_ptr_t) &meltcdat->dstr_1925__I; meltcdat->dstr_1925__I.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1925__I.val, "/I", sizeof (meltcdat->dstr_1925__I.val)-1); meltcdat->dstr_1925__I.val[2] = (char)0 ; meltcdat->dstr_1925__I.slen = 2 ; /*iniobj dsym_1926__di*/ /*uniqueobj*/ if (!/*_._VALDATA___V2020*/ meltfptr[2019]) /*_._VALDATA___V2020*/ meltfptr[2019] = (melt_ptr_t )&meltcdat->dsym_1926__di; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1926__di", 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_1926__di", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1926__di.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1926__di.obj_hash = 932665467; meltcdat->dsym_1926__di.obj_len = 3; /*inistring dstr_1927__*/ /*_._VALSTR___V2021*/ meltfptr[2020] = (melt_ptr_t) &meltcdat->dstr_1927__; meltcdat->dstr_1927__.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1927__.val, "/", sizeof (meltcdat->dstr_1927__.val)-1); meltcdat->dstr_1927__.val[1] = (char)0 ; meltcdat->dstr_1927__.slen = 1 ; /*inirout drout_1928__MEXPAND_TUPLE*/ /*iniroutlocvar*/ /*_._VALROUT___V2022*/ meltfptr[2021] = (melt_ptr_t) &meltcdat->drout_1928__MEXPAND_TUPLE; meltcdat->drout_1928__MEXPAND_TUPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1928__MEXPAND_TUPLE.routdescr, "MEXPAND_TUPLE @warmelt-macro.melt:6678", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1928__MEXPAND_TUPLE.nbval = 6; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1928__MEXPAND_TUPLE, meltrout_114_WARMELTmiMACRO_MEXPAND_TUPLE); /*iniclos dclo_1929__MEXPAND_TUPLE*/ /*_._VALCLO___V2023*/ meltfptr[2022] = (melt_ptr_t) &meltcdat->dclo_1929__MEXPAND_TUPLE; meltcdat->dclo_1929__MEXPAND_TUPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1929__MEXPAND_TUPLE.nbval = 0; /*inirout drout_1930__PATEXPAND_TUPLE*/ /*iniroutlocvar*/ /*_._VALROUT___V2024*/ meltfptr[2023] = (melt_ptr_t) &meltcdat->drout_1930__PATEXPAND_TUPLE; meltcdat->drout_1930__PATEXPAND_TUPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1930__PATEXPAND_TUPLE.routdescr, "PATEXPAND_TUPLE @warmelt-macro.melt:6695", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1930__PATEXPAND_TUPLE.nbval = 7; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1930__PATEXPAND_TUPLE, meltrout_115_WARMELTmiMACRO_PATEXPAND_TUPLE); /*iniclos dclo_1931__PATEXPAND_TUPLE*/ /*_._VALCLO___V2025*/ meltfptr[2024] = (melt_ptr_t) &meltcdat->dclo_1931__PATEXPAND_TUPLE; meltcdat->dclo_1931__PATEXPAND_TUPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1931__PATEXPAND_TUPLE.nbval = 0; /*iniobj dsym_1932__TUPLE*/ /*uniqueobj*/ if (!/*_._VALDATA___V2026*/ meltfptr[2025]) /*_._VALDATA___V2026*/ meltfptr[2025] = (melt_ptr_t )&meltcdat->dsym_1932__TUPLE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1932__TUPLE", 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_1932__TUPLE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1932__TUPLE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1932__TUPLE.obj_hash = 507871921; meltcdat->dsym_1932__TUPLE.obj_len = 3; /*inistring dstr_1933__TUPLE*/ /*_._VALSTR___V2027*/ meltfptr[2026] = (melt_ptr_t) &meltcdat->dstr_1933__TUPLE; meltcdat->dstr_1933__TUPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1933__TUPLE.val, "TUPLE", sizeof (meltcdat->dstr_1933__TUPLE.val)-1); meltcdat->dstr_1933__TUPLE.val[5] = (char)0 ; meltcdat->dstr_1933__TUPLE.slen = 5 ; /*inirout drout_1934__MEXPAND_LIST*/ /*iniroutlocvar*/ /*_._VALROUT___V2028*/ meltfptr[2027] = (melt_ptr_t) &meltcdat->drout_1934__MEXPAND_LIST; meltcdat->drout_1934__MEXPAND_LIST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1934__MEXPAND_LIST.routdescr, "MEXPAND_LIST @warmelt-macro.melt:6724", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1934__MEXPAND_LIST.nbval = 6; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1934__MEXPAND_LIST, meltrout_116_WARMELTmiMACRO_MEXPAND_LIST); /*iniclos dclo_1935__MEXPAND_LIST*/ /*_._VALCLO___V2029*/ meltfptr[2028] = (melt_ptr_t) &meltcdat->dclo_1935__MEXPAND_LIST; meltcdat->dclo_1935__MEXPAND_LIST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1935__MEXPAND_LIST.nbval = 0; /*inirout drout_1936__PATEXPAND_LIST*/ /*iniroutlocvar*/ /*_._VALROUT___V2030*/ meltfptr[2029] = (melt_ptr_t) &meltcdat->drout_1936__PATEXPAND_LIST; meltcdat->drout_1936__PATEXPAND_LIST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1936__PATEXPAND_LIST.routdescr, "PATEXPAND_LIST @warmelt-macro.melt:6741", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1936__PATEXPAND_LIST.nbval = 7; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1936__PATEXPAND_LIST, meltrout_117_WARMELTmiMACRO_PATEXPAND_LIST); /*iniclos dclo_1937__PATEXPAND_LIST*/ /*_._VALCLO___V2031*/ meltfptr[2030] = (melt_ptr_t) &meltcdat->dclo_1937__PATEXPAND_LIST; meltcdat->dclo_1937__PATEXPAND_LIST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1937__PATEXPAND_LIST.nbval = 0; /*iniobj dsym_1938__LIST*/ /*uniqueobj*/ if (!/*_._VALDATA___V2032*/ meltfptr[2031]) /*_._VALDATA___V2032*/ meltfptr[2031] = (melt_ptr_t )&meltcdat->dsym_1938__LIST; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1938__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_1938__LIST", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1938__LIST.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1938__LIST.obj_hash = 120854873; meltcdat->dsym_1938__LIST.obj_len = 3; /*inistring dstr_1939__LIST*/ /*_._VALSTR___V2033*/ meltfptr[2032] = (melt_ptr_t) &meltcdat->dstr_1939__LIST; meltcdat->dstr_1939__LIST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1939__LIST.val, "LIST", sizeof (meltcdat->dstr_1939__LIST.val)-1); meltcdat->dstr_1939__LIST.val[4] = (char)0 ; meltcdat->dstr_1939__LIST.slen = 4 ; /*inirout drout_1940__MEXPAND_MATCH*/ /*iniroutlocvar*/ /*_._VALROUT___V2034*/ meltfptr[2033] = (melt_ptr_t) &meltcdat->drout_1940__MEXPAND_MATCH; meltcdat->drout_1940__MEXPAND_MATCH.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1940__MEXPAND_MATCH.routdescr, "MEXPAND_MATCH @warmelt-macro.melt:6771", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1940__MEXPAND_MATCH.nbval = 18; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1940__MEXPAND_MATCH, meltrout_118_WARMELTmiMACRO_MEXPAND_MATCH); /*iniclos dclo_1941__MEXPAND_MATCH*/ /*_._VALCLO___V2036*/ meltfptr[2035] = (melt_ptr_t) &meltcdat->dclo_1941__MEXPAND_MATCH; meltcdat->dclo_1941__MEXPAND_MATCH.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1941__MEXPAND_MATCH.nbval = 0; /*inirout drout_1942__LAMBDA_*/ /*iniroutlocvar*/ /*_._VALROUT___V2035*/ meltfptr[2034] = (melt_ptr_t) &meltcdat->drout_1942__LAMBDA_; meltcdat->drout_1942__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1942__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:6785", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1942__LAMBDA_.nbval = 1; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1942__LAMBDA_, meltrout_119_WARMELTmiMACRO_LAMBDA_cl15); /*iniobj dsym_1943__MATCH*/ /*uniqueobj*/ if (!/*_._VALDATA___V2037*/ meltfptr[2036]) /*_._VALDATA___V2037*/ meltfptr[2036] = (melt_ptr_t )&meltcdat->dsym_1943__MATCH; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1943__MATCH", 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_1943__MATCH", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1943__MATCH.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1943__MATCH.obj_hash = 996778084; meltcdat->dsym_1943__MATCH.obj_len = 3; /*inistring dstr_1944__MATCH*/ /*_._VALSTR___V2038*/ meltfptr[2037] = (melt_ptr_t) &meltcdat->dstr_1944__MATCH; meltcdat->dstr_1944__MATCH.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1944__MATCH.val, "MATCH", sizeof (meltcdat->dstr_1944__MATCH.val)-1); meltcdat->dstr_1944__MATCH.val[5] = (char)0 ; meltcdat->dstr_1944__MATCH.slen = 5 ; /*inirout drout_1945__MEXPAND_MATCHALT*/ /*iniroutlocvar*/ /*_._VALROUT___V2039*/ meltfptr[2038] = (melt_ptr_t) &meltcdat->drout_1945__MEXPAND_MATCHALT; meltcdat->drout_1945__MEXPAND_MATCHALT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1945__MEXPAND_MATCHALT.routdescr, "MEXPAND_MATCHALT @warmelt-macro.melt:6865", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1945__MEXPAND_MATCHALT.nbval = 18; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1945__MEXPAND_MATCHALT, meltrout_120_WARMELTmiMACRO_MEXPAND_MATCHALT); /*iniclos dclo_1946__MEXPAND_MATCHALT*/ /*_._VALCLO___V2041*/ meltfptr[2040] = (melt_ptr_t) &meltcdat->dclo_1946__MEXPAND_MATCHALT; meltcdat->dclo_1946__MEXPAND_MATCHALT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1946__MEXPAND_MATCHALT.nbval = 0; /*inirout drout_1947__LAMBDA_*/ /*iniroutlocvar*/ /*_._VALROUT___V2040*/ meltfptr[2039] = (melt_ptr_t) &meltcdat->drout_1947__LAMBDA_; meltcdat->drout_1947__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1947__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:6879", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1947__LAMBDA_.nbval = 1; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1947__LAMBDA_, meltrout_121_WARMELTmiMACRO_LAMBDA_cl16); /*iniobj dsym_1948__MATCHALT*/ /*uniqueobj*/ if (!/*_._VALDATA___V2042*/ meltfptr[2041]) /*_._VALDATA___V2042*/ meltfptr[2041] = (melt_ptr_t )&meltcdat->dsym_1948__MATCHALT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1948__MATCHALT", 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_1948__MATCHALT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1948__MATCHALT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1948__MATCHALT.obj_hash = 268966582; meltcdat->dsym_1948__MATCHALT.obj_len = 3; /*inistring dstr_1949__MATCHALT*/ /*_._VALSTR___V2043*/ meltfptr[2042] = (melt_ptr_t) &meltcdat->dstr_1949__MATCHALT; meltcdat->dstr_1949__MATCHALT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1949__MATCHALT.val, "MATCHALT", sizeof (meltcdat->dstr_1949__MATCHALT.val)-1); meltcdat->dstr_1949__MATCHALT.val[8] = (char)0 ; meltcdat->dstr_1949__MATCHALT.slen = 8 ; /*inirout drout_1950__MEXPAND_LETBINDING*/ /*iniroutlocvar*/ /*_._VALROUT___V2044*/ meltfptr[2043] = (melt_ptr_t) &meltcdat->drout_1950__MEXPAND_LETBINDING; meltcdat->drout_1950__MEXPAND_LETBINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1950__MEXPAND_LETBINDING.routdescr, "MEXPAND_LETBINDING @warmelt-macro.melt:6957", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1950__MEXPAND_LETBINDING.nbval = 28; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1950__MEXPAND_LETBINDING, meltrout_122_WARMELTmiMACRO_MEXPAND_LETBINDING); /*iniclos dclo_1951__MEXPAND_LETBINDING*/ /*_._VALCLO___V2045*/ meltfptr[2044] = (melt_ptr_t) &meltcdat->dclo_1951__MEXPAND_LETBINDING; meltcdat->dclo_1951__MEXPAND_LETBINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1951__MEXPAND_LETBINDING.nbval = 0; /*iniobj dsym_1952__QUASI_CTYPE_AUTO*/ /*uniqueobj*/ if (!/*_._VALDATA___V2046*/ meltfptr[2045]) /*_._VALDATA___V2046*/ meltfptr[2045] = (melt_ptr_t )&meltcdat->dsym_1952__QUASI_CTYPE_AUTO; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1952__QUASI_CTYPE_AUTO", 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_1952__QUASI_CTYPE_AUTO", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1952__QUASI_CTYPE_AUTO.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1952__QUASI_CTYPE_AUTO.obj_hash = 120079630; meltcdat->dsym_1952__QUASI_CTYPE_AUTO.obj_len = 3; /*inistring dstr_1953__QUASI_CTYPE_AUTO*/ /*_._VALSTR___V2047*/ meltfptr[2046] = (melt_ptr_t) &meltcdat->dstr_1953__QUASI_CTYPE_AUTO; meltcdat->dstr_1953__QUASI_CTYPE_AUTO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1953__QUASI_CTYPE_AUTO.val, "QUASI_CTYPE_AUTO", sizeof (meltcdat->dstr_1953__QUASI_CTYPE_AUTO.val)-1); meltcdat->dstr_1953__QUASI_CTYPE_AUTO.val[16] = (char)0 ; meltcdat->dstr_1953__QUASI_CTYPE_AUTO.slen = 16 ; /*iniobj dsym_1954__QUASI_CTYPE_MACRO*/ /*uniqueobj*/ if (!/*_._VALDATA___V2048*/ meltfptr[2047]) /*_._VALDATA___V2048*/ meltfptr[2047] = (melt_ptr_t )&meltcdat->dsym_1954__QUASI_CTYPE_MACRO; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1954__QUASI_CTYPE_MACRO", 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_1954__QUASI_CTYPE_MACRO", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1954__QUASI_CTYPE_MACRO.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1954__QUASI_CTYPE_MACRO.obj_hash = 875525993; meltcdat->dsym_1954__QUASI_CTYPE_MACRO.obj_len = 3; /*inistring dstr_1955__QUASI_CTYPE_MACRO*/ /*_._VALSTR___V2049*/ meltfptr[2048] = (melt_ptr_t) &meltcdat->dstr_1955__QUASI_CTYPE_MACRO; meltcdat->dstr_1955__QUASI_CTYPE_MACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1955__QUASI_CTYPE_MACRO.val, "QUASI_CTYPE_MACRO", sizeof (meltcdat->dstr_1955__QUASI_CTYPE_MACRO.val)-1); meltcdat->dstr_1955__QUASI_CTYPE_MACRO.val[17] = (char)0 ; meltcdat->dstr_1955__QUASI_CTYPE_MACRO.slen = 17 ; /*iniobj dsym_1956__CLASS_FIXED_BINDING*/ /*uniqueobj*/ if (!/*_._VALDATA___V2050*/ meltfptr[2049]) /*_._VALDATA___V2050*/ meltfptr[2049] = (melt_ptr_t )&meltcdat->dsym_1956__CLASS_FIXED_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1956__CLASS_FIXED_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_1956__CLASS_FIXED_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1956__CLASS_FIXED_BINDING.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1956__CLASS_FIXED_BINDING.obj_hash = 179808938; meltcdat->dsym_1956__CLASS_FIXED_BINDING.obj_len = 3; /*inistring dstr_1957__CLASS_FIXED_BINDING*/ /*_._VALSTR___V2051*/ meltfptr[2050] = (melt_ptr_t) &meltcdat->dstr_1957__CLASS_FIXED_BINDING; meltcdat->dstr_1957__CLASS_FIXED_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1957__CLASS_FIXED_BINDING.val, "CLASS_FIXED_BINDING", sizeof (meltcdat->dstr_1957__CLASS_FIXED_BINDING.val)-1); meltcdat->dstr_1957__CLASS_FIXED_BINDING.val[19] = (char)0 ; meltcdat->dstr_1957__CLASS_FIXED_BINDING.slen = 19 ; /*inirout drout_1958__MEXPAND_LET*/ /*iniroutlocvar*/ /*_._VALROUT___V2052*/ meltfptr[2051] = (melt_ptr_t) &meltcdat->drout_1958__MEXPAND_LET; meltcdat->drout_1958__MEXPAND_LET.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1958__MEXPAND_LET.routdescr, "MEXPAND_LET @warmelt-macro.melt:7085", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1958__MEXPAND_LET.nbval = 37; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1958__MEXPAND_LET, meltrout_123_WARMELTmiMACRO_MEXPAND_LET); /*iniclos dclo_1959__MEXPAND_LET*/ /*_._VALCLO___V2056*/ meltfptr[2055] = (melt_ptr_t) &meltcdat->dclo_1959__MEXPAND_LET; meltcdat->dclo_1959__MEXPAND_LET.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1959__MEXPAND_LET.nbval = 0; /*iniobj dsym_1960__EXPAND*/ /*uniqueobj*/ if (!/*_._VALDATA___V2053*/ meltfptr[2052]) /*_._VALDATA___V2053*/ meltfptr[2052] = (melt_ptr_t )&meltcdat->dsym_1960__EXPAND; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1960__EXPAND", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1960__EXPAND", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1960__EXPAND.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))); meltcdat->dsym_1960__EXPAND.obj_hash = 28607145; meltcdat->dsym_1960__EXPAND.obj_len = 3; /*inistring dstr_1961__EXPAND*/ /*_._VALSTR___V2054*/ meltfptr[2053] = (melt_ptr_t) &meltcdat->dstr_1961__EXPAND; meltcdat->dstr_1961__EXPAND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1961__EXPAND.val, "EXPAND", sizeof (meltcdat->dstr_1961__EXPAND.val)-1); meltcdat->dstr_1961__EXPAND.val[6] = (char)0 ; meltcdat->dstr_1961__EXPAND.slen = 6 ; /*inirout drout_1962__LAMBDA_*/ /*iniroutlocvar*/ /*_._VALROUT___V2055*/ meltfptr[2054] = (melt_ptr_t) &meltcdat->drout_1962__LAMBDA_; meltcdat->drout_1962__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1962__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:7208", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1962__LAMBDA_.nbval = 8; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1962__LAMBDA_, meltrout_124_WARMELTmiMACRO_LAMBDA_cl17); /*inirout drout_1963__YES_RECURSIVELY_CONSTRUCTIBLE*/ /*iniroutlocvar*/ /*_._VALROUT___V2057*/ meltfptr[2056] = (melt_ptr_t) &meltcdat->drout_1963__YES_RECURSIVELY_CONSTRUCTIBLE; meltcdat->drout_1963__YES_RECURSIVELY_CONSTRUCTIBLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1963__YES_RECURSIVELY_CONSTRUCTIBLE.routdescr, "YES_RECURSIVELY_CONSTRUCTIBLE @warmelt-macro.melt:7307", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1963__YES_RECURSIVELY_CONSTRUCTIBLE.nbval = 1; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1963__YES_RECURSIVELY_CONSTRUCTIBLE, meltrout_125_WARMELTmiMACRO_YES_RECURSIVELY_CONSTRUCTIBLE); /*iniclos dclo_1964__YES_RECURSIVELY_CONSTRUCTIBLE*/ /*_._VALCLO___V2058*/ meltfptr[2057] = (melt_ptr_t) &meltcdat->dclo_1964__YES_RECURSIVELY_CONSTRUCTIBLE; meltcdat->dclo_1964__YES_RECURSIVELY_CONSTRUCTIBLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1964__YES_RECURSIVELY_CONSTRUCTIBLE.nbval = 0; /*iniobj dsym_1965__INSTALL_METHOD*/ /*uniqueobj*/ if (!/*_._VALDATA___V2059*/ meltfptr[2058]) /*_._VALDATA___V2059*/ meltfptr[2058] = (melt_ptr_t )&meltcdat->dsym_1965__INSTALL_METHOD; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1965__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_1965__INSTALL_METHOD", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1965__INSTALL_METHOD.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1965__INSTALL_METHOD.obj_hash = 680699224; meltcdat->dsym_1965__INSTALL_METHOD.obj_len = 3; /*inistring dstr_1966__INSTALL_METHOD*/ /*_._VALSTR___V2060*/ meltfptr[2059] = (melt_ptr_t) &meltcdat->dstr_1966__INSTALL_METHOD; meltcdat->dstr_1966__INSTALL_METHOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1966__INSTALL_METHOD.val, "INSTALL_METHOD", sizeof (meltcdat->dstr_1966__INSTALL_METHOD.val)-1); meltcdat->dstr_1966__INSTALL_METHOD.val[14] = (char)0 ; meltcdat->dstr_1966__INSTALL_METHOD.slen = 14 ; /*inirout drout_1967__MEXPAND_LETREC*/ /*iniroutlocvar*/ /*_._VALROUT___V2061*/ meltfptr[2060] = (melt_ptr_t) &meltcdat->drout_1967__MEXPAND_LETREC; meltcdat->drout_1967__MEXPAND_LETREC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1967__MEXPAND_LETREC.routdescr, "MEXPAND_LETREC @warmelt-macro.melt:7320", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1967__MEXPAND_LETREC.nbval = 24; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1967__MEXPAND_LETREC, meltrout_126_WARMELTmiMACRO_MEXPAND_LETREC); /*iniclos dclo_1968__MEXPAND_LETREC*/ /*_._VALCLO___V2063*/ meltfptr[2062] = (melt_ptr_t) &meltcdat->dclo_1968__MEXPAND_LETREC; meltcdat->dclo_1968__MEXPAND_LETREC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1968__MEXPAND_LETREC.nbval = 0; /*iniobj dsym_1969__CLASS_LETREC_BINDING*/ /*uniqueobj*/ if (!/*_._VALDATA___V2064*/ meltfptr[2063]) /*_._VALDATA___V2064*/ meltfptr[2063] = (melt_ptr_t )&meltcdat->dsym_1969__CLASS_LETREC_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1969__CLASS_LETREC_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_1969__CLASS_LETREC_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1969__CLASS_LETREC_BINDING.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1969__CLASS_LETREC_BINDING.obj_hash = 61769779; meltcdat->dsym_1969__CLASS_LETREC_BINDING.obj_len = 3; /*inistring dstr_1970__CLASS_LETREC_BINDING*/ /*_._VALSTR___V2065*/ meltfptr[2064] = (melt_ptr_t) &meltcdat->dstr_1970__CLASS_LETREC_BINDING; meltcdat->dstr_1970__CLASS_LETREC_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1970__CLASS_LETREC_BINDING.val, "CLASS_LETREC_BINDING", sizeof (meltcdat->dstr_1970__CLASS_LETREC_BINDING.val)-1); meltcdat->dstr_1970__CLASS_LETREC_BINDING.val[20] = (char)0 ; meltcdat->dstr_1970__CLASS_LETREC_BINDING.slen = 20 ; /*inirout drout_1971__LAMBDA_*/ /*iniroutlocvar*/ /*_._VALROUT___V2062*/ meltfptr[2061] = (melt_ptr_t) &meltcdat->drout_1971__LAMBDA_; meltcdat->drout_1971__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1971__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:7460", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1971__LAMBDA_.nbval = 1; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1971__LAMBDA_, meltrout_127_WARMELTmiMACRO_LAMBDA_cl18); /*iniobj dsym_1972__LETREC*/ /*uniqueobj*/ if (!/*_._VALDATA___V2066*/ meltfptr[2065]) /*_._VALDATA___V2066*/ meltfptr[2065] = (melt_ptr_t )&meltcdat->dsym_1972__LETREC; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1972__LETREC", 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_1972__LETREC", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1972__LETREC.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1972__LETREC.obj_hash = 270027731; meltcdat->dsym_1972__LETREC.obj_len = 3; /*inistring dstr_1973__LETREC*/ /*_._VALSTR___V2067*/ meltfptr[2066] = (melt_ptr_t) &meltcdat->dstr_1973__LETREC; meltcdat->dstr_1973__LETREC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1973__LETREC.val, "LETREC", sizeof (meltcdat->dstr_1973__LETREC.val)-1); meltcdat->dstr_1973__LETREC.val[6] = (char)0 ; meltcdat->dstr_1973__LETREC.slen = 6 ; /*inirout drout_1974__MEXPAND_LAMBDA*/ /*iniroutlocvar*/ /*_._VALROUT___V2068*/ meltfptr[2067] = (melt_ptr_t) &meltcdat->drout_1974__MEXPAND_LAMBDA; meltcdat->drout_1974__MEXPAND_LAMBDA.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1974__MEXPAND_LAMBDA.routdescr, "MEXPAND_LAMBDA @warmelt-macro.melt:7590", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1974__MEXPAND_LAMBDA.nbval = 11; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1974__MEXPAND_LAMBDA, meltrout_128_WARMELTmiMACRO_MEXPAND_LAMBDA); /*iniclos dclo_1975__MEXPAND_LAMBDA*/ /*_._VALCLO___V2069*/ meltfptr[2068] = (melt_ptr_t) &meltcdat->dclo_1975__MEXPAND_LAMBDA; meltcdat->dclo_1975__MEXPAND_LAMBDA.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1975__MEXPAND_LAMBDA.nbval = 0; /*iniobj dsym_1976__LAMBDA*/ /*uniqueobj*/ if (!/*_._VALDATA___V2070*/ meltfptr[2069]) /*_._VALDATA___V2070*/ meltfptr[2069] = (melt_ptr_t )&meltcdat->dsym_1976__LAMBDA; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1976__LAMBDA", 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_1976__LAMBDA", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1976__LAMBDA.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1976__LAMBDA.obj_hash = 15346448; meltcdat->dsym_1976__LAMBDA.obj_len = 3; /*inistring dstr_1977__LAMBDA*/ /*_._VALSTR___V2071*/ meltfptr[2070] = (melt_ptr_t) &meltcdat->dstr_1977__LAMBDA; meltcdat->dstr_1977__LAMBDA.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1977__LAMBDA.val, "LAMBDA", sizeof (meltcdat->dstr_1977__LAMBDA.val)-1); meltcdat->dstr_1977__LAMBDA.val[6] = (char)0 ; meltcdat->dstr_1977__LAMBDA.slen = 6 ; /*inirout drout_1978__MEXPAND_VARIADIC*/ /*iniroutlocvar*/ /*_._VALROUT___V2072*/ meltfptr[2071] = (melt_ptr_t) &meltcdat->drout_1978__MEXPAND_VARIADIC; meltcdat->drout_1978__MEXPAND_VARIADIC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1978__MEXPAND_VARIADIC.routdescr, "MEXPAND_VARIADIC @warmelt-macro.melt:7640", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1978__MEXPAND_VARIADIC.nbval = 24; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1978__MEXPAND_VARIADIC, meltrout_129_WARMELTmiMACRO_MEXPAND_VARIADIC); /*iniclos dclo_1979__MEXPAND_VARIADIC*/ /*_._VALCLO___V2075*/ meltfptr[2074] = (melt_ptr_t) &meltcdat->dclo_1979__MEXPAND_VARIADIC; meltcdat->dclo_1979__MEXPAND_VARIADIC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1979__MEXPAND_VARIADIC.nbval = 0; /*inirout drout_1980__LAMBDA_*/ /*iniroutlocvar*/ /*_._VALROUT___V2073*/ meltfptr[2072] = (melt_ptr_t) &meltcdat->drout_1980__LAMBDA_; meltcdat->drout_1980__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1980__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:7650", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1980__LAMBDA_.nbval = 2; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1980__LAMBDA_, meltrout_130_WARMELTmiMACRO_LAMBDA_cl19); /*inirout drout_1981__LAMBDA_*/ /*iniroutlocvar*/ /*_._VALROUT___V2074*/ meltfptr[2073] = (melt_ptr_t) &meltcdat->drout_1981__LAMBDA_; meltcdat->drout_1981__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1981__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:7720", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1981__LAMBDA_.nbval = 2; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1981__LAMBDA_, meltrout_131_WARMELTmiMACRO_LAMBDA_cl20); /*inirout drout_1982__MEXPAND_MULTICALL*/ /*iniroutlocvar*/ /*_._VALROUT___V2076*/ meltfptr[2075] = (melt_ptr_t) &meltcdat->drout_1982__MEXPAND_MULTICALL; meltcdat->drout_1982__MEXPAND_MULTICALL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1982__MEXPAND_MULTICALL.routdescr, "MEXPAND_MULTICALL @warmelt-macro.melt:7762", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1982__MEXPAND_MULTICALL.nbval = 15; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1982__MEXPAND_MULTICALL, meltrout_132_WARMELTmiMACRO_MEXPAND_MULTICALL); /*iniclos dclo_1983__MEXPAND_MULTICALL*/ /*_._VALCLO___V2078*/ meltfptr[2077] = (melt_ptr_t) &meltcdat->dclo_1983__MEXPAND_MULTICALL; meltcdat->dclo_1983__MEXPAND_MULTICALL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1983__MEXPAND_MULTICALL.nbval = 0; /*iniobj dsym_1984__MULTIPLE_EVERY*/ /*uniqueobj*/ if (!/*_._VALDATA___V2079*/ meltfptr[2078]) /*_._VALDATA___V2079*/ meltfptr[2078] = (melt_ptr_t )&meltcdat->dsym_1984__MULTIPLE_EVERY; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1984__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_1984__MULTIPLE_EVERY", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1984__MULTIPLE_EVERY.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1984__MULTIPLE_EVERY.obj_hash = 130098745; meltcdat->dsym_1984__MULTIPLE_EVERY.obj_len = 3; /*inistring dstr_1985__MULTIPLE_EVERY*/ /*_._VALSTR___V2080*/ meltfptr[2079] = (melt_ptr_t) &meltcdat->dstr_1985__MULTIPLE_EVERY; meltcdat->dstr_1985__MULTIPLE_EVERY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1985__MULTIPLE_EVERY.val, "MULTIPLE_EVERY", sizeof (meltcdat->dstr_1985__MULTIPLE_EVERY.val)-1); meltcdat->dstr_1985__MULTIPLE_EVERY.val[14] = (char)0 ; meltcdat->dstr_1985__MULTIPLE_EVERY.slen = 14 ; /*inirout drout_1986__LAMBDA_*/ /*iniroutlocvar*/ /*_._VALROUT___V2077*/ meltfptr[2076] = (melt_ptr_t) &meltcdat->drout_1986__LAMBDA_; meltcdat->drout_1986__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1986__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:7796", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1986__LAMBDA_.nbval = 1; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1986__LAMBDA_, meltrout_133_WARMELTmiMACRO_LAMBDA_cl21); /*iniobj dsym_1987__MULTICALL*/ /*uniqueobj*/ if (!/*_._VALDATA___V2081*/ meltfptr[2080]) /*_._VALDATA___V2081*/ meltfptr[2080] = (melt_ptr_t )&meltcdat->dsym_1987__MULTICALL; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1987__MULTICALL", 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_1987__MULTICALL", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1987__MULTICALL.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1987__MULTICALL.obj_hash = 128361181; meltcdat->dsym_1987__MULTICALL.obj_len = 3; /*inistring dstr_1988__MULTICALL*/ /*_._VALSTR___V2082*/ meltfptr[2081] = (melt_ptr_t) &meltcdat->dstr_1988__MULTICALL; meltcdat->dstr_1988__MULTICALL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1988__MULTICALL.val, "MULTICALL", sizeof (meltcdat->dstr_1988__MULTICALL.val)-1); meltcdat->dstr_1988__MULTICALL.val[9] = (char)0 ; meltcdat->dstr_1988__MULTICALL.slen = 9 ; /*inirout drout_1989__MEXPAND_BOX*/ /*iniroutlocvar*/ /*_._VALROUT___V2083*/ meltfptr[2082] = (melt_ptr_t) &meltcdat->drout_1989__MEXPAND_BOX; meltcdat->drout_1989__MEXPAND_BOX.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1989__MEXPAND_BOX.routdescr, "MEXPAND_BOX @warmelt-macro.melt:7823", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1989__MEXPAND_BOX.nbval = 5; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1989__MEXPAND_BOX, meltrout_134_WARMELTmiMACRO_MEXPAND_BOX); /*iniclos dclo_1990__MEXPAND_BOX*/ /*_._VALCLO___V2084*/ meltfptr[2083] = (melt_ptr_t) &meltcdat->dclo_1990__MEXPAND_BOX; meltcdat->dclo_1990__MEXPAND_BOX.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1990__MEXPAND_BOX.nbval = 0; /*inirout drout_1991__MEXPAND_CONSTANT_BOX*/ /*iniroutlocvar*/ /*_._VALROUT___V2085*/ meltfptr[2084] = (melt_ptr_t) &meltcdat->drout_1991__MEXPAND_CONSTANT_BOX; meltcdat->drout_1991__MEXPAND_CONSTANT_BOX.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1991__MEXPAND_CONSTANT_BOX.routdescr, "MEXPAND_CONSTANT_BOX @warmelt-macro.melt:7855", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1991__MEXPAND_CONSTANT_BOX.nbval = 5; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1991__MEXPAND_CONSTANT_BOX, meltrout_135_WARMELTmiMACRO_MEXPAND_CONSTANT_BOX); /*iniclos dclo_1992__MEXPAND_CONSTANT_BOX*/ /*_._VALCLO___V2086*/ meltfptr[2085] = (melt_ptr_t) &meltcdat->dclo_1992__MEXPAND_CONSTANT_BOX; meltcdat->dclo_1992__MEXPAND_CONSTANT_BOX.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1992__MEXPAND_CONSTANT_BOX.nbval = 0; /*inirout drout_1993__MEXPAND_UNBOX*/ /*iniroutlocvar*/ /*_._VALROUT___V2087*/ meltfptr[2086] = (melt_ptr_t) &meltcdat->drout_1993__MEXPAND_UNBOX; meltcdat->drout_1993__MEXPAND_UNBOX.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1993__MEXPAND_UNBOX.routdescr, "MEXPAND_UNBOX @warmelt-macro.melt:7887", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1993__MEXPAND_UNBOX.nbval = 8; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1993__MEXPAND_UNBOX, meltrout_136_WARMELTmiMACRO_MEXPAND_UNBOX); /*iniclos dclo_1994__MEXPAND_UNBOX*/ /*_._VALCLO___V2088*/ meltfptr[2087] = (melt_ptr_t) &meltcdat->dclo_1994__MEXPAND_UNBOX; meltcdat->dclo_1994__MEXPAND_UNBOX.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1994__MEXPAND_UNBOX.nbval = 0; /*iniobj dsym_1995__UNBOX*/ /*uniqueobj*/ if (!/*_._VALDATA___V2089*/ meltfptr[2088]) /*_._VALDATA___V2089*/ meltfptr[2088] = (melt_ptr_t )&meltcdat->dsym_1995__UNBOX; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1995__UNBOX", 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_1995__UNBOX", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1995__UNBOX.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1995__UNBOX.obj_hash = 527598469; meltcdat->dsym_1995__UNBOX.obj_len = 3; /*inistring dstr_1996__UNBOX*/ /*_._VALSTR___V2090*/ meltfptr[2089] = (melt_ptr_t) &meltcdat->dstr_1996__UNBOX; meltcdat->dstr_1996__UNBOX.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_1996__UNBOX.val, "UNBOX", sizeof (meltcdat->dstr_1996__UNBOX.val)-1); meltcdat->dstr_1996__UNBOX.val[5] = (char)0 ; meltcdat->dstr_1996__UNBOX.slen = 5 ; /*inirout drout_1997__MEXPAND_COMMENT*/ /*iniroutlocvar*/ /*_._VALROUT___V2091*/ meltfptr[2090] = (melt_ptr_t) &meltcdat->drout_1997__MEXPAND_COMMENT; meltcdat->drout_1997__MEXPAND_COMMENT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_1997__MEXPAND_COMMENT.routdescr, "MEXPAND_COMMENT @warmelt-macro.melt:7933", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_1997__MEXPAND_COMMENT.nbval = 4; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_1997__MEXPAND_COMMENT, meltrout_137_WARMELTmiMACRO_MEXPAND_COMMENT); /*iniclos dclo_1998__MEXPAND_COMMENT*/ /*_._VALCLO___V2092*/ meltfptr[2091] = (melt_ptr_t) &meltcdat->dclo_1998__MEXPAND_COMMENT; meltcdat->dclo_1998__MEXPAND_COMMENT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_1998__MEXPAND_COMMENT.nbval = 0; /*iniobj dsym_1999__COMMENT*/ /*uniqueobj*/ if (!/*_._VALDATA___V2093*/ meltfptr[2092]) /*_._VALDATA___V2093*/ meltfptr[2092] = (melt_ptr_t )&meltcdat->dsym_1999__COMMENT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1999__COMMENT", 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_1999__COMMENT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_1999__COMMENT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_1999__COMMENT.obj_hash = 922859745; meltcdat->dsym_1999__COMMENT.obj_len = 3; /*inistring dstr_2000__COMMENT*/ /*_._VALSTR___V2094*/ meltfptr[2093] = (melt_ptr_t) &meltcdat->dstr_2000__COMMENT; meltcdat->dstr_2000__COMMENT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_2000__COMMENT.val, "COMMENT", sizeof (meltcdat->dstr_2000__COMMENT.val)-1); meltcdat->dstr_2000__COMMENT.val[7] = (char)0 ; meltcdat->dstr_2000__COMMENT.slen = 7 ; /*inirout drout_2001__MEXPAND_CHEADER*/ /*iniroutlocvar*/ /*_._VALROUT___V2095*/ meltfptr[2094] = (melt_ptr_t) &meltcdat->drout_2001__MEXPAND_CHEADER; meltcdat->drout_2001__MEXPAND_CHEADER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_2001__MEXPAND_CHEADER.routdescr, "MEXPAND_CHEADER @warmelt-macro.melt:7963", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_2001__MEXPAND_CHEADER.nbval = 11; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_2001__MEXPAND_CHEADER, meltrout_138_WARMELTmiMACRO_MEXPAND_CHEADER); /*iniclos dclo_2002__MEXPAND_CHEADER*/ /*_._VALCLO___V2096*/ meltfptr[2095] = (melt_ptr_t) &meltcdat->dclo_2002__MEXPAND_CHEADER; meltcdat->dclo_2002__MEXPAND_CHEADER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_2002__MEXPAND_CHEADER.nbval = 0; /*iniobj dsym_2003__CHEADER*/ /*uniqueobj*/ if (!/*_._VALDATA___V2097*/ meltfptr[2096]) /*_._VALDATA___V2097*/ meltfptr[2096] = (melt_ptr_t )&meltcdat->dsym_2003__CHEADER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2003__CHEADER", 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_2003__CHEADER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_2003__CHEADER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_2003__CHEADER.obj_hash = 78795358; meltcdat->dsym_2003__CHEADER.obj_len = 3; /*inistring dstr_2004__CHEADER*/ /*_._VALSTR___V2098*/ meltfptr[2097] = (melt_ptr_t) &meltcdat->dstr_2004__CHEADER; meltcdat->dstr_2004__CHEADER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_2004__CHEADER.val, "CHEADER", sizeof (meltcdat->dstr_2004__CHEADER.val)-1); meltcdat->dstr_2004__CHEADER.val[7] = (char)0 ; meltcdat->dstr_2004__CHEADER.slen = 7 ; /*inirout drout_2005__MEXPAND_CIMPLEMENT*/ /*iniroutlocvar*/ /*_._VALROUT___V2099*/ meltfptr[2098] = (melt_ptr_t) &meltcdat->drout_2005__MEXPAND_CIMPLEMENT; meltcdat->drout_2005__MEXPAND_CIMPLEMENT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_2005__MEXPAND_CIMPLEMENT.routdescr, "MEXPAND_CIMPLEMENT @warmelt-macro.melt:8012", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_2005__MEXPAND_CIMPLEMENT.nbval = 10; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_2005__MEXPAND_CIMPLEMENT, meltrout_139_WARMELTmiMACRO_MEXPAND_CIMPLEMENT); /*iniclos dclo_2006__MEXPAND_CIMPLEMENT*/ /*_._VALCLO___V2100*/ meltfptr[2099] = (melt_ptr_t) &meltcdat->dclo_2006__MEXPAND_CIMPLEMENT; meltcdat->dclo_2006__MEXPAND_CIMPLEMENT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_2006__MEXPAND_CIMPLEMENT.nbval = 0; /*iniobj dsym_2007__CIMPLEMENT*/ /*uniqueobj*/ if (!/*_._VALDATA___V2101*/ meltfptr[2100]) /*_._VALDATA___V2101*/ meltfptr[2100] = (melt_ptr_t )&meltcdat->dsym_2007__CIMPLEMENT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2007__CIMPLEMENT", 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_2007__CIMPLEMENT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_2007__CIMPLEMENT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_2007__CIMPLEMENT.obj_hash = 52545819; meltcdat->dsym_2007__CIMPLEMENT.obj_len = 3; /*inistring dstr_2008__CIMPLEMENT*/ /*_._VALSTR___V2102*/ meltfptr[2101] = (melt_ptr_t) &meltcdat->dstr_2008__CIMPLEMENT; meltcdat->dstr_2008__CIMPLEMENT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_2008__CIMPLEMENT.val, "CIMPLEMENT", sizeof (meltcdat->dstr_2008__CIMPLEMENT.val)-1); meltcdat->dstr_2008__CIMPLEMENT.val[10] = (char)0 ; meltcdat->dstr_2008__CIMPLEMENT.slen = 10 ; /*inirout drout_2009__MEXPAND_MODULE_IS_GPL_COMPATIBLE*/ /*iniroutlocvar*/ /*_._VALROUT___V2103*/ meltfptr[2102] = (melt_ptr_t) &meltcdat->drout_2009__MEXPAND_MODULE_IS_GPL_COMPATIBLE; meltcdat->drout_2009__MEXPAND_MODULE_IS_GPL_COMPATIBLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_2009__MEXPAND_MODULE_IS_GPL_COMPATIBLE.routdescr, "MEXPAND_MODULE_IS_GPL_COMPATIBLE @warmelt-macro.melt:8060", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_2009__MEXPAND_MODULE_IS_GPL_COMPATIBLE.nbval = 12; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_2009__MEXPAND_MODULE_IS_GPL_COMPATIBLE, meltrout_140_WARMELTmiMACRO_MEXPAND_MODULE_IS_GPL_COMPATIBLE); /*iniclos dclo_2010__MEXPAND_MODULE_IS_GPL_COMPATIBLE*/ /*_._VALCLO___V2104*/ meltfptr[2103] = (melt_ptr_t) &meltcdat->dclo_2010__MEXPAND_MODULE_IS_GPL_COMPATIBLE; meltcdat->dclo_2010__MEXPAND_MODULE_IS_GPL_COMPATIBLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_2010__MEXPAND_MODULE_IS_GPL_COMPATIBLE.nbval = 0; /*iniobj dsym_2011__MODULE_IS_GPL_COMPATIBLE*/ /*uniqueobj*/ if (!/*_._VALDATA___V2105*/ meltfptr[2104]) /*_._VALDATA___V2105*/ meltfptr[2104] = (melt_ptr_t )&meltcdat->dsym_2011__MODULE_IS_GPL_COMPATIBLE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2011__MODULE_IS_GPL_COMPATIBLE", 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_2011__MODULE_IS_GPL_COMPATIBLE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_2011__MODULE_IS_GPL_COMPATIBLE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_2011__MODULE_IS_GPL_COMPATIBLE.obj_hash = 694216979; meltcdat->dsym_2011__MODULE_IS_GPL_COMPATIBLE.obj_len = 3; /*inistring dstr_2012__MODULE_IS_GPL_COMPATIBLE*/ /*_._VALSTR___V2106*/ meltfptr[2105] = (melt_ptr_t) &meltcdat->dstr_2012__MODULE_IS_GPL_COMPATIBLE; meltcdat->dstr_2012__MODULE_IS_GPL_COMPATIBLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_2012__MODULE_IS_GPL_COMPATIBLE.val, "MODULE_IS_GPL_COMPATIBLE", sizeof (meltcdat->dstr_2012__MODULE_IS_GPL_COMPATIBLE.val)-1); meltcdat->dstr_2012__MODULE_IS_GPL_COMPATIBLE.val[24] = (char)0 ; meltcdat->dstr_2012__MODULE_IS_GPL_COMPATIBLE.slen = 24 ; /*inirout drout_2013__MEXPAND_USE_PACKAGE_FROM_PKG_CONFIG*/ /*iniroutlocvar*/ /*_._VALROUT___V2107*/ meltfptr[2106] = (melt_ptr_t) &meltcdat->drout_2013__MEXPAND_USE_PACKAGE_FROM_PKG_CONFIG; meltcdat->drout_2013__MEXPAND_USE_PACKAGE_FROM_PKG_CONFIG.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_2013__MEXPAND_USE_PACKAGE_FROM_PKG_CONFIG.routdescr, "MEXPAND_USE_PACKAGE_FROM_PKG_CONFIG @warmelt-macro.melt:8115", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_2013__MEXPAND_USE_PACKAGE_FROM_PKG_CONFIG.nbval = 10; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_2013__MEXPAND_USE_PACKAGE_FROM_PKG_CONFIG, meltrout_141_WARMELTmiMACRO_MEXPAND_USE_PACKAGE_FROM_PKG_CONFIG); /*iniclos dclo_2014__MEXPAND_USE_PACKAGE_FROM_PKG_CONFIG*/ /*_._VALCLO___V2108*/ meltfptr[2107] = (melt_ptr_t) &meltcdat->dclo_2014__MEXPAND_USE_PACKAGE_FROM_PKG_CONFIG; meltcdat->dclo_2014__MEXPAND_USE_PACKAGE_FROM_PKG_CONFIG.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_2014__MEXPAND_USE_PACKAGE_FROM_PKG_CONFIG.nbval = 0; /*iniobj dsym_2015__USE_PACKAGE_FROM_PKG_CONFIG*/ /*uniqueobj*/ if (!/*_._VALDATA___V2109*/ meltfptr[2108]) /*_._VALDATA___V2109*/ meltfptr[2108] = (melt_ptr_t )&meltcdat->dsym_2015__USE_PACKAGE_FROM_PKG_CONFIG; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2015__USE_PACKAGE_FROM_PKG_CONFIG", 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_2015__USE_PACKAGE_FROM_PKG_CONFIG", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_2015__USE_PACKAGE_FROM_PKG_CONFIG.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_2015__USE_PACKAGE_FROM_PKG_CONFIG.obj_hash = 1069066195; meltcdat->dsym_2015__USE_PACKAGE_FROM_PKG_CONFIG.obj_len = 3; /*inistring dstr_2016__USE_PACKAGE_FROM_PKG_CON*/ /*_._VALSTR___V2110*/ meltfptr[2109] = (melt_ptr_t) &meltcdat->dstr_2016__USE_PACKAGE_FROM_PKG_CON; meltcdat->dstr_2016__USE_PACKAGE_FROM_PKG_CON.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_2016__USE_PACKAGE_FROM_PKG_CON.val, "USE_PACKAGE_FROM_PKG_CONFIG", sizeof (meltcdat->dstr_2016__USE_PACKAGE_FROM_PKG_CON.val)-1); meltcdat->dstr_2016__USE_PACKAGE_FROM_PKG_CON.val[27] = (char)0 ; meltcdat->dstr_2016__USE_PACKAGE_FROM_PKG_CON.slen = 27 ; /*iniobj dsym_2017__USEmiPACKAGEmiFROMmiPKGmiCONFIG*/ /*uniqueobj*/ if (!/*_._VALDATA___V2111*/ meltfptr[2110]) /*_._VALDATA___V2111*/ meltfptr[2110] = (melt_ptr_t )&meltcdat->dsym_2017__USEmiPACKAGEmiFROMmiPKGmiCONFIG; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2017__USEmiPACKAGEmiFROMmiPKGmiCONFIG", 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_2017__USEmiPACKAGEmiFROMmiPKGmiCONFIG", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_2017__USEmiPACKAGEmiFROMmiPKGmiCONFIG.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_2017__USEmiPACKAGEmiFROMmiPKGmiCONFIG.obj_hash = 973887417; meltcdat->dsym_2017__USEmiPACKAGEmiFROMmiPKGmiCONFIG.obj_len = 3; /*inistring dstr_2018__USE_PACKAGE_FROM_PKG_CON*/ /*_._VALSTR___V2112*/ meltfptr[2111] = (melt_ptr_t) &meltcdat->dstr_2018__USE_PACKAGE_FROM_PKG_CON; meltcdat->dstr_2018__USE_PACKAGE_FROM_PKG_CON.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_2018__USE_PACKAGE_FROM_PKG_CON.val, "USE-PACKAGE-FROM-PKG-CONFIG", sizeof (meltcdat->dstr_2018__USE_PACKAGE_FROM_PKG_CON.val)-1); meltcdat->dstr_2018__USE_PACKAGE_FROM_PKG_CON.val[27] = (char)0 ; meltcdat->dstr_2018__USE_PACKAGE_FROM_PKG_CON.slen = 27 ; /*inirout drout_2019__PAIRLIST_TO_RETURN*/ /*iniroutlocvar*/ /*_._VALROUT___V2113*/ meltfptr[2112] = (melt_ptr_t) &meltcdat->drout_2019__PAIRLIST_TO_RETURN; meltcdat->drout_2019__PAIRLIST_TO_RETURN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_2019__PAIRLIST_TO_RETURN.routdescr, "PAIRLIST_TO_RETURN @warmelt-macro.melt:8205", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_2019__PAIRLIST_TO_RETURN.nbval = 4; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_2019__PAIRLIST_TO_RETURN, meltrout_142_WARMELTmiMACRO_PAIRLIST_TO_RETURN); /*iniclos dclo_2020__PAIRLIST_TO_RETURN*/ /*_._VALCLO___V2114*/ meltfptr[2113] = (melt_ptr_t) &meltcdat->dclo_2020__PAIRLIST_TO_RETURN; meltcdat->dclo_2020__PAIRLIST_TO_RETURN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_2020__PAIRLIST_TO_RETURN.nbval = 0; /*inirout drout_2021__MEXPAND_PROGN*/ /*iniroutlocvar*/ /*_._VALROUT___V2115*/ meltfptr[2114] = (melt_ptr_t) &meltcdat->drout_2021__MEXPAND_PROGN; meltcdat->drout_2021__MEXPAND_PROGN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_2021__MEXPAND_PROGN.routdescr, "MEXPAND_PROGN @warmelt-macro.melt:8218", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_2021__MEXPAND_PROGN.nbval = 4; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_2021__MEXPAND_PROGN, meltrout_143_WARMELTmiMACRO_MEXPAND_PROGN); /*iniclos dclo_2022__MEXPAND_PROGN*/ /*_._VALCLO___V2116*/ meltfptr[2115] = (melt_ptr_t) &meltcdat->dclo_2022__MEXPAND_PROGN; meltcdat->dclo_2022__MEXPAND_PROGN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_2022__MEXPAND_PROGN.nbval = 0; /*iniobj dsym_2023__PROGN*/ /*uniqueobj*/ if (!/*_._VALDATA___V2117*/ meltfptr[2116]) /*_._VALDATA___V2117*/ meltfptr[2116] = (melt_ptr_t )&meltcdat->dsym_2023__PROGN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2023__PROGN", 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_2023__PROGN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_2023__PROGN.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_2023__PROGN.obj_hash = 98153540; meltcdat->dsym_2023__PROGN.obj_len = 3; /*inistring dstr_2024__PROGN*/ /*_._VALSTR___V2118*/ meltfptr[2117] = (melt_ptr_t) &meltcdat->dstr_2024__PROGN; meltcdat->dstr_2024__PROGN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_2024__PROGN.val, "PROGN", sizeof (meltcdat->dstr_2024__PROGN.val)-1); meltcdat->dstr_2024__PROGN.val[5] = (char)0 ; meltcdat->dstr_2024__PROGN.slen = 5 ; /*inirout drout_2025__MEXPAND_RETURN*/ /*iniroutlocvar*/ /*_._VALROUT___V2119*/ meltfptr[2118] = (melt_ptr_t) &meltcdat->drout_2025__MEXPAND_RETURN; meltcdat->drout_2025__MEXPAND_RETURN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_2025__MEXPAND_RETURN.routdescr, "MEXPAND_RETURN @warmelt-macro.melt:8244", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_2025__MEXPAND_RETURN.nbval = 4; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_2025__MEXPAND_RETURN, meltrout_144_WARMELTmiMACRO_MEXPAND_RETURN); /*iniclos dclo_2026__MEXPAND_RETURN*/ /*_._VALCLO___V2120*/ meltfptr[2119] = (melt_ptr_t) &meltcdat->dclo_2026__MEXPAND_RETURN; meltcdat->dclo_2026__MEXPAND_RETURN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_2026__MEXPAND_RETURN.nbval = 0; /*iniobj dsym_2027__RETURN*/ /*uniqueobj*/ if (!/*_._VALDATA___V2121*/ meltfptr[2120]) /*_._VALDATA___V2121*/ meltfptr[2120] = (melt_ptr_t )&meltcdat->dsym_2027__RETURN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2027__RETURN", 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_2027__RETURN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_2027__RETURN.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_2027__RETURN.obj_hash = 94541761; meltcdat->dsym_2027__RETURN.obj_len = 3; /*inistring dstr_2028__RETURN*/ /*_._VALSTR___V2122*/ meltfptr[2121] = (melt_ptr_t) &meltcdat->dstr_2028__RETURN; meltcdat->dstr_2028__RETURN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_2028__RETURN.val, "RETURN", sizeof (meltcdat->dstr_2028__RETURN.val)-1); meltcdat->dstr_2028__RETURN.val[6] = (char)0 ; meltcdat->dstr_2028__RETURN.slen = 6 ; /*inirout drout_2029__MEXPAND_FOREVER*/ /*iniroutlocvar*/ /*_._VALROUT___V2123*/ meltfptr[2122] = (melt_ptr_t) &meltcdat->drout_2029__MEXPAND_FOREVER; meltcdat->drout_2029__MEXPAND_FOREVER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_2029__MEXPAND_FOREVER.routdescr, "MEXPAND_FOREVER @warmelt-macro.melt:8267", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_2029__MEXPAND_FOREVER.nbval = 9; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_2029__MEXPAND_FOREVER, meltrout_145_WARMELTmiMACRO_MEXPAND_FOREVER); /*iniclos dclo_2030__MEXPAND_FOREVER*/ /*_._VALCLO___V2124*/ meltfptr[2123] = (melt_ptr_t) &meltcdat->dclo_2030__MEXPAND_FOREVER; meltcdat->dclo_2030__MEXPAND_FOREVER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_2030__MEXPAND_FOREVER.nbval = 0; /*iniobj dsym_2031__CLASS_LABEL_BINDING*/ /*uniqueobj*/ if (!/*_._VALDATA___V2125*/ meltfptr[2124]) /*_._VALDATA___V2125*/ meltfptr[2124] = (melt_ptr_t )&meltcdat->dsym_2031__CLASS_LABEL_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2031__CLASS_LABEL_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_2031__CLASS_LABEL_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_2031__CLASS_LABEL_BINDING.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_2031__CLASS_LABEL_BINDING.obj_hash = 513737494; meltcdat->dsym_2031__CLASS_LABEL_BINDING.obj_len = 3; /*inistring dstr_2032__CLASS_LABEL_BINDING*/ /*_._VALSTR___V2126*/ meltfptr[2125] = (melt_ptr_t) &meltcdat->dstr_2032__CLASS_LABEL_BINDING; meltcdat->dstr_2032__CLASS_LABEL_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_2032__CLASS_LABEL_BINDING.val, "CLASS_LABEL_BINDING", sizeof (meltcdat->dstr_2032__CLASS_LABEL_BINDING.val)-1); meltcdat->dstr_2032__CLASS_LABEL_BINDING.val[19] = (char)0 ; meltcdat->dstr_2032__CLASS_LABEL_BINDING.slen = 19 ; /*inirout drout_2033__MEXPAND_EXIT*/ /*iniroutlocvar*/ /*_._VALROUT___V2127*/ meltfptr[2126] = (melt_ptr_t) &meltcdat->drout_2033__MEXPAND_EXIT; meltcdat->drout_2033__MEXPAND_EXIT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_2033__MEXPAND_EXIT.routdescr, "MEXPAND_EXIT @warmelt-macro.melt:8307", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_2033__MEXPAND_EXIT.nbval = 10; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_2033__MEXPAND_EXIT, meltrout_146_WARMELTmiMACRO_MEXPAND_EXIT); /*iniclos dclo_2034__MEXPAND_EXIT*/ /*_._VALCLO___V2128*/ meltfptr[2127] = (melt_ptr_t) &meltcdat->dclo_2034__MEXPAND_EXIT; meltcdat->dclo_2034__MEXPAND_EXIT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_2034__MEXPAND_EXIT.nbval = 0; /*inirout drout_2035__MEXPAND_AGAIN*/ /*iniroutlocvar*/ /*_._VALROUT___V2129*/ meltfptr[2128] = (melt_ptr_t) &meltcdat->drout_2035__MEXPAND_AGAIN; meltcdat->drout_2035__MEXPAND_AGAIN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_2035__MEXPAND_AGAIN.routdescr, "MEXPAND_AGAIN @warmelt-macro.melt:8346", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_2035__MEXPAND_AGAIN.nbval = 8; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_2035__MEXPAND_AGAIN, meltrout_147_WARMELTmiMACRO_MEXPAND_AGAIN); /*iniclos dclo_2036__MEXPAND_AGAIN*/ /*_._VALCLO___V2130*/ meltfptr[2129] = (melt_ptr_t) &meltcdat->dclo_2036__MEXPAND_AGAIN; meltcdat->dclo_2036__MEXPAND_AGAIN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_2036__MEXPAND_AGAIN.nbval = 0; /*iniobj dsym_2037__AGAIN*/ /*uniqueobj*/ if (!/*_._VALDATA___V2131*/ meltfptr[2130]) /*_._VALDATA___V2131*/ meltfptr[2130] = (melt_ptr_t )&meltcdat->dsym_2037__AGAIN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2037__AGAIN", 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_2037__AGAIN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_2037__AGAIN.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_2037__AGAIN.obj_hash = 247154639; meltcdat->dsym_2037__AGAIN.obj_len = 3; /*inistring dstr_2038__AGAIN*/ /*_._VALSTR___V2132*/ meltfptr[2131] = (melt_ptr_t) &meltcdat->dstr_2038__AGAIN; meltcdat->dstr_2038__AGAIN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_2038__AGAIN.val, "AGAIN", sizeof (meltcdat->dstr_2038__AGAIN.val)-1); meltcdat->dstr_2038__AGAIN.val[5] = (char)0 ; meltcdat->dstr_2038__AGAIN.slen = 5 ; /*inirout drout_2039__MEXPAND_COMPILE_WARNING*/ /*iniroutlocvar*/ /*_._VALROUT___V2133*/ meltfptr[2132] = (melt_ptr_t) &meltcdat->drout_2039__MEXPAND_COMPILE_WARNING; meltcdat->drout_2039__MEXPAND_COMPILE_WARNING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_2039__MEXPAND_COMPILE_WARNING.routdescr, "MEXPAND_COMPILE_WARNING @warmelt-macro.melt:8387", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_2039__MEXPAND_COMPILE_WARNING.nbval = 6; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_2039__MEXPAND_COMPILE_WARNING, meltrout_148_WARMELTmiMACRO_MEXPAND_COMPILE_WARNING); /*iniclos dclo_2040__MEXPAND_COMPILE_WARNING*/ /*_._VALCLO___V2134*/ meltfptr[2133] = (melt_ptr_t) &meltcdat->dclo_2040__MEXPAND_COMPILE_WARNING; meltcdat->dclo_2040__MEXPAND_COMPILE_WARNING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_2040__MEXPAND_COMPILE_WARNING.nbval = 0; /*iniobj dsym_2041__COMPILE_WARNING*/ /*uniqueobj*/ if (!/*_._VALDATA___V2135*/ meltfptr[2134]) /*_._VALDATA___V2135*/ meltfptr[2134] = (melt_ptr_t )&meltcdat->dsym_2041__COMPILE_WARNING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2041__COMPILE_WARNING", 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_2041__COMPILE_WARNING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_2041__COMPILE_WARNING.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_2041__COMPILE_WARNING.obj_hash = 87862926; meltcdat->dsym_2041__COMPILE_WARNING.obj_len = 3; /*inistring dstr_2042__COMPILE_WARNING*/ /*_._VALSTR___V2136*/ meltfptr[2135] = (melt_ptr_t) &meltcdat->dstr_2042__COMPILE_WARNING; meltcdat->dstr_2042__COMPILE_WARNING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_2042__COMPILE_WARNING.val, "COMPILE_WARNING", sizeof (meltcdat->dstr_2042__COMPILE_WARNING.val)-1); meltcdat->dstr_2042__COMPILE_WARNING.val[15] = (char)0 ; meltcdat->dstr_2042__COMPILE_WARNING.slen = 15 ; /*inirout drout_2043__MEXPAND_COMPILE_ERROR*/ /*iniroutlocvar*/ /*_._VALROUT___V2137*/ meltfptr[2136] = (melt_ptr_t) &meltcdat->drout_2043__MEXPAND_COMPILE_ERROR; meltcdat->drout_2043__MEXPAND_COMPILE_ERROR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_2043__MEXPAND_COMPILE_ERROR.routdescr, "MEXPAND_COMPILE_ERROR @warmelt-macro.melt:8426", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_2043__MEXPAND_COMPILE_ERROR.nbval = 6; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_2043__MEXPAND_COMPILE_ERROR, meltrout_149_WARMELTmiMACRO_MEXPAND_COMPILE_ERROR); /*iniclos dclo_2044__MEXPAND_COMPILE_ERROR*/ /*_._VALCLO___V2138*/ meltfptr[2137] = (melt_ptr_t) &meltcdat->dclo_2044__MEXPAND_COMPILE_ERROR; meltcdat->dclo_2044__MEXPAND_COMPILE_ERROR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_2044__MEXPAND_COMPILE_ERROR.nbval = 0; /*iniobj dsym_2045__COMPILE_ERROR*/ /*uniqueobj*/ if (!/*_._VALDATA___V2139*/ meltfptr[2138]) /*_._VALDATA___V2139*/ meltfptr[2138] = (melt_ptr_t )&meltcdat->dsym_2045__COMPILE_ERROR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2045__COMPILE_ERROR", 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_2045__COMPILE_ERROR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_2045__COMPILE_ERROR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_2045__COMPILE_ERROR.obj_hash = 843211947; meltcdat->dsym_2045__COMPILE_ERROR.obj_len = 3; /*inistring dstr_2046__COMPILE_ERROR*/ /*_._VALSTR___V2140*/ meltfptr[2139] = (melt_ptr_t) &meltcdat->dstr_2046__COMPILE_ERROR; meltcdat->dstr_2046__COMPILE_ERROR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_2046__COMPILE_ERROR.val, "COMPILE_ERROR", sizeof (meltcdat->dstr_2046__COMPILE_ERROR.val)-1); meltcdat->dstr_2046__COMPILE_ERROR.val[13] = (char)0 ; meltcdat->dstr_2046__COMPILE_ERROR.slen = 13 ; /*inirout drout_2047__MEXPAND_ASSERT_MSG*/ /*iniroutlocvar*/ /*_._VALROUT___V2141*/ meltfptr[2140] = (melt_ptr_t) &meltcdat->drout_2047__MEXPAND_ASSERT_MSG; meltcdat->drout_2047__MEXPAND_ASSERT_MSG.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_2047__MEXPAND_ASSERT_MSG.routdescr, "MEXPAND_ASSERT_MSG @warmelt-macro.melt:8470", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_2047__MEXPAND_ASSERT_MSG.nbval = 21; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_2047__MEXPAND_ASSERT_MSG, meltrout_150_WARMELTmiMACRO_MEXPAND_ASSERT_MSG); /*iniclos dclo_2048__MEXPAND_ASSERT_MSG*/ /*_._VALCLO___V2143*/ meltfptr[2142] = (melt_ptr_t) &meltcdat->dclo_2048__MEXPAND_ASSERT_MSG; meltcdat->dclo_2048__MEXPAND_ASSERT_MSG.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_2048__MEXPAND_ASSERT_MSG.nbval = 0; /*iniobj dsym_2049__FIND_ENV_DEBUG*/ /*uniqueobj*/ if (!/*_._VALDATA___V2144*/ meltfptr[2143]) /*_._VALDATA___V2144*/ meltfptr[2143] = (melt_ptr_t )&meltcdat->dsym_2049__FIND_ENV_DEBUG; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2049__FIND_ENV_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_2049__FIND_ENV_DEBUG", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_2049__FIND_ENV_DEBUG.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_2049__FIND_ENV_DEBUG.obj_hash = 670001916; meltcdat->dsym_2049__FIND_ENV_DEBUG.obj_len = 3; /*inistring dstr_2050__FIND_ENV_DEBUG*/ /*_._VALSTR___V2145*/ meltfptr[2144] = (melt_ptr_t) &meltcdat->dstr_2050__FIND_ENV_DEBUG; meltcdat->dstr_2050__FIND_ENV_DEBUG.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_2050__FIND_ENV_DEBUG.val, "FIND_ENV_DEBUG", sizeof (meltcdat->dstr_2050__FIND_ENV_DEBUG.val)-1); meltcdat->dstr_2050__FIND_ENV_DEBUG.val[14] = (char)0 ; meltcdat->dstr_2050__FIND_ENV_DEBUG.slen = 14 ; /*inistring dstr_2051__MELT_HAVE_DEBUG_0*/ /*_._VALSTR___V2142*/ meltfptr[2141] = (melt_ptr_t) &meltcdat->dstr_2051__MELT_HAVE_DEBUG_0; meltcdat->dstr_2051__MELT_HAVE_DEBUG_0.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_2051__MELT_HAVE_DEBUG_0.val, "MELT_HAVE_DEBUG>0", sizeof (meltcdat->dstr_2051__MELT_HAVE_DEBUG_0.val)-1); meltcdat->dstr_2051__MELT_HAVE_DEBUG_0.val[17] = (char)0 ; meltcdat->dstr_2051__MELT_HAVE_DEBUG_0.slen = 17 ; /*inirout drout_2052__MEXPAND_THIS_LINE*/ /*iniroutlocvar*/ /*_._VALROUT___V2146*/ meltfptr[2145] = (melt_ptr_t) &meltcdat->drout_2052__MEXPAND_THIS_LINE; meltcdat->drout_2052__MEXPAND_THIS_LINE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_2052__MEXPAND_THIS_LINE.routdescr, "MEXPAND_THIS_LINE @warmelt-macro.melt:8564", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_2052__MEXPAND_THIS_LINE.nbval = 4; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_2052__MEXPAND_THIS_LINE, meltrout_151_WARMELTmiMACRO_MEXPAND_THIS_LINE); /*iniclos dclo_2053__MEXPAND_THIS_LINE*/ /*_._VALCLO___V2147*/ meltfptr[2146] = (melt_ptr_t) &meltcdat->dclo_2053__MEXPAND_THIS_LINE; meltcdat->dclo_2053__MEXPAND_THIS_LINE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_2053__MEXPAND_THIS_LINE.nbval = 0; /*iniobj dsym_2054__THIS_LINE*/ /*uniqueobj*/ if (!/*_._VALDATA___V2148*/ meltfptr[2147]) /*_._VALDATA___V2148*/ meltfptr[2147] = (melt_ptr_t )&meltcdat->dsym_2054__THIS_LINE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2054__THIS_LINE", 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_2054__THIS_LINE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_2054__THIS_LINE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_2054__THIS_LINE.obj_hash = 143669556; meltcdat->dsym_2054__THIS_LINE.obj_len = 3; /*inistring dstr_2055__THIS_LINE*/ /*_._VALSTR___V2149*/ meltfptr[2148] = (melt_ptr_t) &meltcdat->dstr_2055__THIS_LINE; meltcdat->dstr_2055__THIS_LINE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_2055__THIS_LINE.val, "THIS_LINE", sizeof (meltcdat->dstr_2055__THIS_LINE.val)-1); meltcdat->dstr_2055__THIS_LINE.val[9] = (char)0 ; meltcdat->dstr_2055__THIS_LINE.slen = 9 ; /*inirout drout_2056__MEXPAND_THIS_FILE*/ /*iniroutlocvar*/ /*_._VALROUT___V2150*/ meltfptr[2149] = (melt_ptr_t) &meltcdat->drout_2056__MEXPAND_THIS_FILE; meltcdat->drout_2056__MEXPAND_THIS_FILE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_2056__MEXPAND_THIS_FILE.routdescr, "MEXPAND_THIS_FILE @warmelt-macro.melt:8588", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_2056__MEXPAND_THIS_FILE.nbval = 4; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_2056__MEXPAND_THIS_FILE, meltrout_152_WARMELTmiMACRO_MEXPAND_THIS_FILE); /*iniclos dclo_2057__MEXPAND_THIS_FILE*/ /*_._VALCLO___V2151*/ meltfptr[2150] = (melt_ptr_t) &meltcdat->dclo_2057__MEXPAND_THIS_FILE; meltcdat->dclo_2057__MEXPAND_THIS_FILE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_2057__MEXPAND_THIS_FILE.nbval = 0; /*iniobj dsym_2058__THIS_FILE*/ /*uniqueobj*/ if (!/*_._VALDATA___V2152*/ meltfptr[2151]) /*_._VALDATA___V2152*/ meltfptr[2151] = (melt_ptr_t )&meltcdat->dsym_2058__THIS_FILE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2058__THIS_FILE", 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_2058__THIS_FILE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_2058__THIS_FILE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_2058__THIS_FILE.obj_hash = 681984575; meltcdat->dsym_2058__THIS_FILE.obj_len = 3; /*inistring dstr_2059__THIS_FILE*/ /*_._VALSTR___V2153*/ meltfptr[2152] = (melt_ptr_t) &meltcdat->dstr_2059__THIS_FILE; meltcdat->dstr_2059__THIS_FILE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_2059__THIS_FILE.val, "THIS_FILE", sizeof (meltcdat->dstr_2059__THIS_FILE.val)-1); meltcdat->dstr_2059__THIS_FILE.val[9] = (char)0 ; meltcdat->dstr_2059__THIS_FILE.slen = 9 ; /*inirout drout_2060__MEXPAND_DEBUG*/ /*iniroutlocvar*/ /*_._VALROUT___V2154*/ meltfptr[2153] = (melt_ptr_t) &meltcdat->drout_2060__MEXPAND_DEBUG; meltcdat->drout_2060__MEXPAND_DEBUG.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_2060__MEXPAND_DEBUG.routdescr, "MEXPAND_DEBUG @warmelt-macro.melt:8614", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_2060__MEXPAND_DEBUG.nbval = 29; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_2060__MEXPAND_DEBUG, meltrout_153_WARMELTmiMACRO_MEXPAND_DEBUG); /*iniclos dclo_2061__MEXPAND_DEBUG*/ /*_._VALCLO___V2163*/ meltfptr[2162] = (melt_ptr_t) &meltcdat->dclo_2061__MEXPAND_DEBUG; meltcdat->dclo_2061__MEXPAND_DEBUG.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_2061__MEXPAND_DEBUG.nbval = 0; /*iniobj dsym_2062__MELT_CALLCOUNT*/ /*uniqueobj*/ if (!/*_._VALDATA___V2155*/ meltfptr[2154]) /*_._VALDATA___V2155*/ meltfptr[2154] = (melt_ptr_t )&meltcdat->dsym_2062__MELT_CALLCOUNT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2062__MELT_CALLCOUNT", 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_2062__MELT_CALLCOUNT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_2062__MELT_CALLCOUNT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_2062__MELT_CALLCOUNT.obj_hash = 833971291; meltcdat->dsym_2062__MELT_CALLCOUNT.obj_len = 3; /*inistring dstr_2063__MELT_CALLCOUNT*/ /*_._VALSTR___V2156*/ meltfptr[2155] = (melt_ptr_t) &meltcdat->dstr_2063__MELT_CALLCOUNT; meltcdat->dstr_2063__MELT_CALLCOUNT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_2063__MELT_CALLCOUNT.val, "MELT_CALLCOUNT", sizeof (meltcdat->dstr_2063__MELT_CALLCOUNT.val)-1); meltcdat->dstr_2063__MELT_CALLCOUNT.val[14] = (char)0 ; meltcdat->dstr_2063__MELT_CALLCOUNT.slen = 14 ; /*iniobj dsym_2064__MELT_NEED_DBG*/ /*uniqueobj*/ if (!/*_._VALDATA___V2157*/ meltfptr[2156]) /*_._VALDATA___V2157*/ meltfptr[2156] = (melt_ptr_t )&meltcdat->dsym_2064__MELT_NEED_DBG; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2064__MELT_NEED_DBG", 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_2064__MELT_NEED_DBG", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_2064__MELT_NEED_DBG.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_2064__MELT_NEED_DBG.obj_hash = 95427033; meltcdat->dsym_2064__MELT_NEED_DBG.obj_len = 3; /*inistring dstr_2065__MELT_NEED_DBG*/ /*_._VALSTR___V2158*/ meltfptr[2157] = (melt_ptr_t) &meltcdat->dstr_2065__MELT_NEED_DBG; meltcdat->dstr_2065__MELT_NEED_DBG.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_2065__MELT_NEED_DBG.val, "MELT_NEED_DBG", sizeof (meltcdat->dstr_2065__MELT_NEED_DBG.val)-1); meltcdat->dstr_2065__MELT_NEED_DBG.val[13] = (char)0 ; meltcdat->dstr_2065__MELT_NEED_DBG.slen = 13 ; /*iniobj dsym_2066__MELT_INCREMENT_DBGCOUNTER*/ /*uniqueobj*/ if (!/*_._VALDATA___V2159*/ meltfptr[2158]) /*_._VALDATA___V2159*/ meltfptr[2158] = (melt_ptr_t )&meltcdat->dsym_2066__MELT_INCREMENT_DBGCOUNTER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2066__MELT_INCREMENT_DBGCOUNTER", 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_2066__MELT_INCREMENT_DBGCOUNTER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_2066__MELT_INCREMENT_DBGCOUNTER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_2066__MELT_INCREMENT_DBGCOUNTER.obj_hash = 74344851; meltcdat->dsym_2066__MELT_INCREMENT_DBGCOUNTER.obj_len = 3; /*inistring dstr_2067__MELT_INCREMENT_DBGCOUNTE*/ /*_._VALSTR___V2160*/ meltfptr[2159] = (melt_ptr_t) &meltcdat->dstr_2067__MELT_INCREMENT_DBGCOUNTE; meltcdat->dstr_2067__MELT_INCREMENT_DBGCOUNTE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_2067__MELT_INCREMENT_DBGCOUNTE.val, "MELT_INCREMENT_DBGCOUNTER", sizeof (meltcdat->dstr_2067__MELT_INCREMENT_DBGCOUNTE.val)-1); meltcdat->dstr_2067__MELT_INCREMENT_DBGCOUNTE.val[25] = (char)0 ; meltcdat->dstr_2067__MELT_INCREMENT_DBGCOUNTE.slen = 25 ; /*iniboxint dint_2068__*/ /*_._VALBXINT___V2161*/ meltfptr[2160] = (melt_ptr_t) &meltcdat->dint_2068__; meltcdat->dint_2068__.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CONSTANT_INTEGER)))); meltcdat->dint_2068__.val = 0; /*inistring dstr_2069__MELT_HAVE_DEBUG_0*/ /*_._VALSTR___V2162*/ meltfptr[2161] = (melt_ptr_t) &meltcdat->dstr_2069__MELT_HAVE_DEBUG_0; meltcdat->dstr_2069__MELT_HAVE_DEBUG_0.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_2069__MELT_HAVE_DEBUG_0.val, "MELT_HAVE_DEBUG>0", sizeof (meltcdat->dstr_2069__MELT_HAVE_DEBUG_0.val)-1); meltcdat->dstr_2069__MELT_HAVE_DEBUG_0.val[17] = (char)0 ; meltcdat->dstr_2069__MELT_HAVE_DEBUG_0.slen = 17 ; /*iniobj dsym_2070__DEBUG*/ /*uniqueobj*/ if (!/*_._VALDATA___V2164*/ meltfptr[2163]) /*_._VALDATA___V2164*/ meltfptr[2163] = (melt_ptr_t )&meltcdat->dsym_2070__DEBUG; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2070__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_2070__DEBUG", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_2070__DEBUG.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_2070__DEBUG.obj_hash = 237202636; meltcdat->dsym_2070__DEBUG.obj_len = 3; /*inistring dstr_2071__DEBUG*/ /*_._VALSTR___V2165*/ meltfptr[2164] = (melt_ptr_t) &meltcdat->dstr_2071__DEBUG; meltcdat->dstr_2071__DEBUG.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_2071__DEBUG.val, "DEBUG", sizeof (meltcdat->dstr_2071__DEBUG.val)-1); meltcdat->dstr_2071__DEBUG.val[5] = (char)0 ; meltcdat->dstr_2071__DEBUG.slen = 5 ; /*inirout drout_2072__MEXPAND_EXPORT_VALUES*/ /*iniroutlocvar*/ /*_._VALROUT___V2166*/ meltfptr[2165] = (melt_ptr_t) &meltcdat->drout_2072__MEXPAND_EXPORT_VALUES; meltcdat->drout_2072__MEXPAND_EXPORT_VALUES.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_2072__MEXPAND_EXPORT_VALUES.routdescr, "MEXPAND_EXPORT_VALUES @warmelt-macro.melt:8754", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_2072__MEXPAND_EXPORT_VALUES.nbval = 8; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_2072__MEXPAND_EXPORT_VALUES, meltrout_154_WARMELTmiMACRO_MEXPAND_EXPORT_VALUES); /*iniclos dclo_2073__MEXPAND_EXPORT_VALUES*/ /*_._VALCLO___V2167*/ meltfptr[2166] = (melt_ptr_t) &meltcdat->dclo_2073__MEXPAND_EXPORT_VALUES; meltcdat->dclo_2073__MEXPAND_EXPORT_VALUES.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_2073__MEXPAND_EXPORT_VALUES.nbval = 0; /*iniobj dsym_2074__EXPORT_VALUES*/ /*uniqueobj*/ if (!/*_._VALDATA___V2168*/ meltfptr[2167]) /*_._VALDATA___V2168*/ meltfptr[2167] = (melt_ptr_t )&meltcdat->dsym_2074__EXPORT_VALUES; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2074__EXPORT_VALUES", 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_2074__EXPORT_VALUES", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_2074__EXPORT_VALUES.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_2074__EXPORT_VALUES.obj_hash = 967501408; meltcdat->dsym_2074__EXPORT_VALUES.obj_len = 3; /*inistring dstr_2075__EXPORT_VALUES*/ /*_._VALSTR___V2169*/ meltfptr[2168] = (melt_ptr_t) &meltcdat->dstr_2075__EXPORT_VALUES; meltcdat->dstr_2075__EXPORT_VALUES.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_2075__EXPORT_VALUES.val, "EXPORT_VALUES", sizeof (meltcdat->dstr_2075__EXPORT_VALUES.val)-1); meltcdat->dstr_2075__EXPORT_VALUES.val[13] = (char)0 ; meltcdat->dstr_2075__EXPORT_VALUES.slen = 13 ; /*inirout drout_2076__MEXPAND_EXPORT_MACRO*/ /*iniroutlocvar*/ /*_._VALROUT___V2170*/ meltfptr[2169] = (melt_ptr_t) &meltcdat->drout_2076__MEXPAND_EXPORT_MACRO; meltcdat->drout_2076__MEXPAND_EXPORT_MACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_2076__MEXPAND_EXPORT_MACRO.routdescr, "MEXPAND_EXPORT_MACRO @warmelt-macro.melt:8789", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_2076__MEXPAND_EXPORT_MACRO.nbval = 12; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_2076__MEXPAND_EXPORT_MACRO, meltrout_155_WARMELTmiMACRO_MEXPAND_EXPORT_MACRO); /*iniclos dclo_2077__MEXPAND_EXPORT_MACRO*/ /*_._VALCLO___V2171*/ meltfptr[2170] = (melt_ptr_t) &meltcdat->dclo_2077__MEXPAND_EXPORT_MACRO; meltcdat->dclo_2077__MEXPAND_EXPORT_MACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_2077__MEXPAND_EXPORT_MACRO.nbval = 0; /*iniobj dsym_2078__EXPORT_MACRO*/ /*uniqueobj*/ if (!/*_._VALDATA___V2172*/ meltfptr[2171]) /*_._VALDATA___V2172*/ meltfptr[2171] = (melt_ptr_t )&meltcdat->dsym_2078__EXPORT_MACRO; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2078__EXPORT_MACRO", 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_2078__EXPORT_MACRO", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_2078__EXPORT_MACRO.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_2078__EXPORT_MACRO.obj_hash = 539749464; meltcdat->dsym_2078__EXPORT_MACRO.obj_len = 3; /*inistring dstr_2079__EXPORT_MACRO*/ /*_._VALSTR___V2173*/ meltfptr[2172] = (melt_ptr_t) &meltcdat->dstr_2079__EXPORT_MACRO; meltcdat->dstr_2079__EXPORT_MACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_2079__EXPORT_MACRO.val, "EXPORT_MACRO", sizeof (meltcdat->dstr_2079__EXPORT_MACRO.val)-1); meltcdat->dstr_2079__EXPORT_MACRO.val[12] = (char)0 ; meltcdat->dstr_2079__EXPORT_MACRO.slen = 12 ; /*inirout drout_2080__MEXPAND_EXPORT_PATMACRO*/ /*iniroutlocvar*/ /*_._VALROUT___V2174*/ meltfptr[2173] = (melt_ptr_t) &meltcdat->drout_2080__MEXPAND_EXPORT_PATMACRO; meltcdat->drout_2080__MEXPAND_EXPORT_PATMACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_2080__MEXPAND_EXPORT_PATMACRO.routdescr, "MEXPAND_EXPORT_PATMACRO @warmelt-macro.melt:8857", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_2080__MEXPAND_EXPORT_PATMACRO.nbval = 7; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_2080__MEXPAND_EXPORT_PATMACRO, meltrout_156_WARMELTmiMACRO_MEXPAND_EXPORT_PATMACRO); /*iniclos dclo_2081__MEXPAND_EXPORT_PATMACRO*/ /*_._VALCLO___V2175*/ meltfptr[2174] = (melt_ptr_t) &meltcdat->dclo_2081__MEXPAND_EXPORT_PATMACRO; meltcdat->dclo_2081__MEXPAND_EXPORT_PATMACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_2081__MEXPAND_EXPORT_PATMACRO.nbval = 0; /*iniobj dsym_2082__EXPORT_PATMACRO*/ /*uniqueobj*/ if (!/*_._VALDATA___V2176*/ meltfptr[2175]) /*_._VALDATA___V2176*/ meltfptr[2175] = (melt_ptr_t )&meltcdat->dsym_2082__EXPORT_PATMACRO; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2082__EXPORT_PATMACRO", 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_2082__EXPORT_PATMACRO", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_2082__EXPORT_PATMACRO.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_2082__EXPORT_PATMACRO.obj_hash = 363095059; meltcdat->dsym_2082__EXPORT_PATMACRO.obj_len = 3; /*inistring dstr_2083__EXPORT_PATMACRO*/ /*_._VALSTR___V2177*/ meltfptr[2176] = (melt_ptr_t) &meltcdat->dstr_2083__EXPORT_PATMACRO; meltcdat->dstr_2083__EXPORT_PATMACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_2083__EXPORT_PATMACRO.val, "EXPORT_PATMACRO", sizeof (meltcdat->dstr_2083__EXPORT_PATMACRO.val)-1); meltcdat->dstr_2083__EXPORT_PATMACRO.val[15] = (char)0 ; meltcdat->dstr_2083__EXPORT_PATMACRO.slen = 15 ; /*inirout drout_2084__MEXPAND_EXPORT_CLASS*/ /*iniroutlocvar*/ /*_._VALROUT___V2178*/ meltfptr[2177] = (melt_ptr_t) &meltcdat->drout_2084__MEXPAND_EXPORT_CLASS; meltcdat->drout_2084__MEXPAND_EXPORT_CLASS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_2084__MEXPAND_EXPORT_CLASS.routdescr, "MEXPAND_EXPORT_CLASS @warmelt-macro.melt:8907", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_2084__MEXPAND_EXPORT_CLASS.nbval = 9; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_2084__MEXPAND_EXPORT_CLASS, meltrout_157_WARMELTmiMACRO_MEXPAND_EXPORT_CLASS); /*iniclos dclo_2085__MEXPAND_EXPORT_CLASS*/ /*_._VALCLO___V2179*/ meltfptr[2178] = (melt_ptr_t) &meltcdat->dclo_2085__MEXPAND_EXPORT_CLASS; meltcdat->dclo_2085__MEXPAND_EXPORT_CLASS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_2085__MEXPAND_EXPORT_CLASS.nbval = 0; /*iniobj dsym_2086__EXPORT_CLASS*/ /*uniqueobj*/ if (!/*_._VALDATA___V2180*/ meltfptr[2179]) /*_._VALDATA___V2180*/ meltfptr[2179] = (melt_ptr_t )&meltcdat->dsym_2086__EXPORT_CLASS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2086__EXPORT_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_2086__EXPORT_CLASS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_2086__EXPORT_CLASS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_2086__EXPORT_CLASS.obj_hash = 352628427; meltcdat->dsym_2086__EXPORT_CLASS.obj_len = 3; /*inistring dstr_2087__EXPORT_CLASS*/ /*_._VALSTR___V2181*/ meltfptr[2180] = (melt_ptr_t) &meltcdat->dstr_2087__EXPORT_CLASS; meltcdat->dstr_2087__EXPORT_CLASS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_2087__EXPORT_CLASS.val, "EXPORT_CLASS", sizeof (meltcdat->dstr_2087__EXPORT_CLASS.val)-1); meltcdat->dstr_2087__EXPORT_CLASS.val[12] = (char)0 ; meltcdat->dstr_2087__EXPORT_CLASS.slen = 12 ; /*inirout drout_2088__MEXPAND_EXPORT_SYNONYM*/ /*iniroutlocvar*/ /*_._VALROUT___V2182*/ meltfptr[2181] = (melt_ptr_t) &meltcdat->drout_2088__MEXPAND_EXPORT_SYNONYM; meltcdat->drout_2088__MEXPAND_EXPORT_SYNONYM.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_2088__MEXPAND_EXPORT_SYNONYM.routdescr, "MEXPAND_EXPORT_SYNONYM @warmelt-macro.melt:8937", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_2088__MEXPAND_EXPORT_SYNONYM.nbval = 8; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_2088__MEXPAND_EXPORT_SYNONYM, meltrout_158_WARMELTmiMACRO_MEXPAND_EXPORT_SYNONYM); /*iniclos dclo_2089__MEXPAND_EXPORT_SYNONYM*/ /*_._VALCLO___V2183*/ meltfptr[2182] = (melt_ptr_t) &meltcdat->dclo_2089__MEXPAND_EXPORT_SYNONYM; meltcdat->dclo_2089__MEXPAND_EXPORT_SYNONYM.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_2089__MEXPAND_EXPORT_SYNONYM.nbval = 0; /*iniobj dsym_2090__EXPORT_SYNONYM*/ /*uniqueobj*/ if (!/*_._VALDATA___V2184*/ meltfptr[2183]) /*_._VALDATA___V2184*/ meltfptr[2183] = (melt_ptr_t )&meltcdat->dsym_2090__EXPORT_SYNONYM; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2090__EXPORT_SYNONYM", 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_2090__EXPORT_SYNONYM", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_2090__EXPORT_SYNONYM.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_2090__EXPORT_SYNONYM.obj_hash = 585099698; meltcdat->dsym_2090__EXPORT_SYNONYM.obj_len = 3; /*inistring dstr_2091__EXPORT_SYNONYM*/ /*_._VALSTR___V2185*/ meltfptr[2184] = (melt_ptr_t) &meltcdat->dstr_2091__EXPORT_SYNONYM; meltcdat->dstr_2091__EXPORT_SYNONYM.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_2091__EXPORT_SYNONYM.val, "EXPORT_SYNONYM", sizeof (meltcdat->dstr_2091__EXPORT_SYNONYM.val)-1); meltcdat->dstr_2091__EXPORT_SYNONYM.val[14] = (char)0 ; meltcdat->dstr_2091__EXPORT_SYNONYM.slen = 14 ; /*inirout drout_2092__MEXPAND_CURRENT_MODULE_ENVIRONMENT_REFERENCE*/ /*iniroutlocvar*/ /*_._VALROUT___V2186*/ meltfptr[2185] = (melt_ptr_t) &meltcdat->drout_2092__MEXPAND_CURRENT_MODULE_ENVIRONMENT_REFERENCE; meltcdat->drout_2092__MEXPAND_CURRENT_MODULE_ENVIRONMENT_REFERENCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_2092__MEXPAND_CURRENT_MODULE_ENVIRONMENT_REFERENCE.routdescr, "MEXPAND_CURRENT_MODULE_ENVIRONMENT_REFERENCE @warmelt-macro.melt:8989", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_2092__MEXPAND_CURRENT_MODULE_ENVIRONMENT_REFERENCE.nbval = 5; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_2092__MEXPAND_CURRENT_MODULE_ENVIRONMENT_REFERENCE, meltrout_159_WARMELTmiMACRO_MEXPAND_CURRENT_MODULE_ENVIRONMENT_REFERENCE); /*iniclos dclo_2093__MEXPAND_CURRENT_MODULE_ENVIRONMENT_REFERENCE*/ /*_._VALCLO___V2187*/ meltfptr[2186] = (melt_ptr_t) &meltcdat->dclo_2093__MEXPAND_CURRENT_MODULE_ENVIRONMENT_REFERENCE; meltcdat->dclo_2093__MEXPAND_CURRENT_MODULE_ENVIRONMENT_REFERENCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_2093__MEXPAND_CURRENT_MODULE_ENVIRONMENT_REFERENCE.nbval = 0; /*iniobj dsym_2094__CURRENT_MODULE_ENVIRONMENT_REFERENCE*/ /*uniqueobj*/ if (!/*_._VALDATA___V2188*/ meltfptr[2187]) /*_._VALDATA___V2188*/ meltfptr[2187] = (melt_ptr_t )&meltcdat->dsym_2094__CURRENT_MODULE_ENVIRONMENT_REFERENCE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2094__CURRENT_MODULE_ENVIRONMENT_REFERENCE", 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_2094__CURRENT_MODULE_ENVIRONMENT_REFERENCE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_2094__CURRENT_MODULE_ENVIRONMENT_REFERENCE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_2094__CURRENT_MODULE_ENVIRONMENT_REFERENCE.obj_hash = 649645132; meltcdat->dsym_2094__CURRENT_MODULE_ENVIRONMENT_REFERENCE.obj_len = 3; /*inistring dstr_2095__CURRENT_MODULE_ENVIRONME*/ /*_._VALSTR___V2189*/ meltfptr[2188] = (melt_ptr_t) &meltcdat->dstr_2095__CURRENT_MODULE_ENVIRONME; meltcdat->dstr_2095__CURRENT_MODULE_ENVIRONME.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_2095__CURRENT_MODULE_ENVIRONME.val, "CURRENT_MODULE_ENVIRONMENT_REFERENCE", sizeof (meltcdat->dstr_2095__CURRENT_MODULE_ENVIRONME.val)-1); meltcdat->dstr_2095__CURRENT_MODULE_ENVIRONME.val[36] = (char)0 ; meltcdat->dstr_2095__CURRENT_MODULE_ENVIRONME.slen = 36 ; /*iniobj dsym_2096__CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ /*uniqueobj*/ if (!/*_._VALDATA___V2190*/ meltfptr[2189]) /*_._VALDATA___V2190*/ meltfptr[2189] = (melt_ptr_t )&meltcdat->dsym_2096__CURRENT_MODULE_ENVIRONMENT_CONTAINER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2096__CURRENT_MODULE_ENVIRONMENT_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_2096__CURRENT_MODULE_ENVIRONMENT_CONTAINER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_2096__CURRENT_MODULE_ENVIRONMENT_CONTAINER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_2096__CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 714873699; meltcdat->dsym_2096__CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_len = 3; /*inistring dstr_2097__CURRENT_MODULE_ENVIRONME*/ /*_._VALSTR___V2191*/ meltfptr[2190] = (melt_ptr_t) &meltcdat->dstr_2097__CURRENT_MODULE_ENVIRONME; meltcdat->dstr_2097__CURRENT_MODULE_ENVIRONME.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_2097__CURRENT_MODULE_ENVIRONME.val, "CURRENT_MODULE_ENVIRONMENT_CONTAINER", sizeof (meltcdat->dstr_2097__CURRENT_MODULE_ENVIRONME.val)-1); meltcdat->dstr_2097__CURRENT_MODULE_ENVIRONME.val[36] = (char)0 ; meltcdat->dstr_2097__CURRENT_MODULE_ENVIRONME.slen = 36 ; /*inirout drout_2098__MEXPAND_PARENT_MODULE_ENVIRONMENT*/ /*iniroutlocvar*/ /*_._VALROUT___V2192*/ meltfptr[2191] = (melt_ptr_t) &meltcdat->drout_2098__MEXPAND_PARENT_MODULE_ENVIRONMENT; meltcdat->drout_2098__MEXPAND_PARENT_MODULE_ENVIRONMENT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_2098__MEXPAND_PARENT_MODULE_ENVIRONMENT.routdescr, "MEXPAND_PARENT_MODULE_ENVIRONMENT @warmelt-macro.melt:9023", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_2098__MEXPAND_PARENT_MODULE_ENVIRONMENT.nbval = 6; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_2098__MEXPAND_PARENT_MODULE_ENVIRONMENT, meltrout_160_WARMELTmiMACRO_MEXPAND_PARENT_MODULE_ENVIRONMENT); /*iniclos dclo_2099__MEXPAND_PARENT_MODULE_ENVIRONMENT*/ /*_._VALCLO___V2193*/ meltfptr[2192] = (melt_ptr_t) &meltcdat->dclo_2099__MEXPAND_PARENT_MODULE_ENVIRONMENT; meltcdat->dclo_2099__MEXPAND_PARENT_MODULE_ENVIRONMENT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_2099__MEXPAND_PARENT_MODULE_ENVIRONMENT.nbval = 0; /*iniobj dsym_2100__PARENT_MODULE_ENVIRONMENT*/ /*uniqueobj*/ if (!/*_._VALDATA___V2194*/ meltfptr[2193]) /*_._VALDATA___V2194*/ meltfptr[2193] = (melt_ptr_t )&meltcdat->dsym_2100__PARENT_MODULE_ENVIRONMENT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2100__PARENT_MODULE_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_2100__PARENT_MODULE_ENVIRONMENT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_2100__PARENT_MODULE_ENVIRONMENT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_2100__PARENT_MODULE_ENVIRONMENT.obj_hash = 315808274; meltcdat->dsym_2100__PARENT_MODULE_ENVIRONMENT.obj_len = 3; /*inistring dstr_2101__PARENT_MODULE_ENVIRONMEN*/ /*_._VALSTR___V2195*/ meltfptr[2194] = (melt_ptr_t) &meltcdat->dstr_2101__PARENT_MODULE_ENVIRONMEN; meltcdat->dstr_2101__PARENT_MODULE_ENVIRONMEN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_2101__PARENT_MODULE_ENVIRONMEN.val, "PARENT_MODULE_ENVIRONMENT", sizeof (meltcdat->dstr_2101__PARENT_MODULE_ENVIRONMEN.val)-1); meltcdat->dstr_2101__PARENT_MODULE_ENVIRONMEN.val[25] = (char)0 ; meltcdat->dstr_2101__PARENT_MODULE_ENVIRONMEN.slen = 25 ; /*inirout drout_2102__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE*/ /*iniroutlocvar*/ /*_._VALROUT___V2196*/ meltfptr[2195] = (melt_ptr_t) &meltcdat->drout_2102__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE; meltcdat->drout_2102__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_2102__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE.routdescr, "MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE @warmelt-macro.melt:9053", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_2102__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE.nbval = 5; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_2102__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE, meltrout_161_WARMELTmiMACRO_MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE); /*iniclos dclo_2103__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE*/ /*_._VALCLO___V2197*/ meltfptr[2196] = (melt_ptr_t) &meltcdat->dclo_2103__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE; meltcdat->dclo_2103__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_2103__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE.nbval = 0; /*iniobj dsym_2104__UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE*/ /*uniqueobj*/ if (!/*_._VALDATA___V2198*/ meltfptr[2197]) /*_._VALDATA___V2198*/ meltfptr[2197] = (melt_ptr_t )&meltcdat->dsym_2104__UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2104__UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE", 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_2104__UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_2104__UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_2104__UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE.obj_hash = 321648560; meltcdat->dsym_2104__UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE.obj_len = 3; /*inistring dstr_2105__UPDATE_CURRENT_MODULE_EN*/ /*_._VALSTR___V2199*/ meltfptr[2198] = (melt_ptr_t) &meltcdat->dstr_2105__UPDATE_CURRENT_MODULE_EN; meltcdat->dstr_2105__UPDATE_CURRENT_MODULE_EN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_2105__UPDATE_CURRENT_MODULE_EN.val, "UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE", sizeof (meltcdat->dstr_2105__UPDATE_CURRENT_MODULE_EN.val)-1); meltcdat->dstr_2105__UPDATE_CURRENT_MODULE_EN.val[43] = (char)0 ; meltcdat->dstr_2105__UPDATE_CURRENT_MODULE_EN.slen = 43 ; /*iniobj dsym_2106__UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ /*uniqueobj*/ if (!/*_._VALDATA___V2200*/ meltfptr[2199]) /*_._VALDATA___V2200*/ meltfptr[2199] = (melt_ptr_t )&meltcdat->dsym_2106__UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2106__UPDATE_CURRENT_MODULE_ENVIRONMENT_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_2106__UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_2106__UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_2106__UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 540992734; meltcdat->dsym_2106__UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_len = 3; /*inistring dstr_2107__UPDATE_CURRENT_MODULE_EN*/ /*_._VALSTR___V2201*/ meltfptr[2200] = (melt_ptr_t) &meltcdat->dstr_2107__UPDATE_CURRENT_MODULE_EN; meltcdat->dstr_2107__UPDATE_CURRENT_MODULE_EN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_2107__UPDATE_CURRENT_MODULE_EN.val, "UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", sizeof (meltcdat->dstr_2107__UPDATE_CURRENT_MODULE_EN.val)-1); meltcdat->dstr_2107__UPDATE_CURRENT_MODULE_EN.val[43] = (char)0 ; meltcdat->dstr_2107__UPDATE_CURRENT_MODULE_EN.slen = 43 ; /*inirout drout_2108__MEXPAND_FETCH_PREDEFINED*/ /*iniroutlocvar*/ /*_._VALROUT___V2202*/ meltfptr[2201] = (melt_ptr_t) &meltcdat->drout_2108__MEXPAND_FETCH_PREDEFINED; meltcdat->drout_2108__MEXPAND_FETCH_PREDEFINED.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_2108__MEXPAND_FETCH_PREDEFINED.routdescr, "MEXPAND_FETCH_PREDEFINED @warmelt-macro.melt:9088", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_2108__MEXPAND_FETCH_PREDEFINED.nbval = 7; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_2108__MEXPAND_FETCH_PREDEFINED, meltrout_162_WARMELTmiMACRO_MEXPAND_FETCH_PREDEFINED); /*iniclos dclo_2109__MEXPAND_FETCH_PREDEFINED*/ /*_._VALCLO___V2203*/ meltfptr[2202] = (melt_ptr_t) &meltcdat->dclo_2109__MEXPAND_FETCH_PREDEFINED; meltcdat->dclo_2109__MEXPAND_FETCH_PREDEFINED.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_2109__MEXPAND_FETCH_PREDEFINED.nbval = 0; /*iniobj dsym_2110__FETCH_PREDEFINED*/ /*uniqueobj*/ if (!/*_._VALDATA___V2204*/ meltfptr[2203]) /*_._VALDATA___V2204*/ meltfptr[2203] = (melt_ptr_t )&meltcdat->dsym_2110__FETCH_PREDEFINED; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2110__FETCH_PREDEFINED", 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_2110__FETCH_PREDEFINED", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_2110__FETCH_PREDEFINED.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_2110__FETCH_PREDEFINED.obj_hash = 951904659; meltcdat->dsym_2110__FETCH_PREDEFINED.obj_len = 3; /*inistring dstr_2111__FETCH_PREDEFINED*/ /*_._VALSTR___V2205*/ meltfptr[2204] = (melt_ptr_t) &meltcdat->dstr_2111__FETCH_PREDEFINED; meltcdat->dstr_2111__FETCH_PREDEFINED.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_2111__FETCH_PREDEFINED.val, "FETCH_PREDEFINED", sizeof (meltcdat->dstr_2111__FETCH_PREDEFINED.val)-1); meltcdat->dstr_2111__FETCH_PREDEFINED.val[16] = (char)0 ; meltcdat->dstr_2111__FETCH_PREDEFINED.slen = 16 ; /*inirout drout_2112__MEXPAND_STORE_PREDEFINED*/ /*iniroutlocvar*/ /*_._VALROUT___V2206*/ meltfptr[2205] = (melt_ptr_t) &meltcdat->drout_2112__MEXPAND_STORE_PREDEFINED; meltcdat->drout_2112__MEXPAND_STORE_PREDEFINED.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_2112__MEXPAND_STORE_PREDEFINED.routdescr, "MEXPAND_STORE_PREDEFINED @warmelt-macro.melt:9117", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_2112__MEXPAND_STORE_PREDEFINED.nbval = 7; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_2112__MEXPAND_STORE_PREDEFINED, meltrout_163_WARMELTmiMACRO_MEXPAND_STORE_PREDEFINED); /*iniclos dclo_2113__MEXPAND_STORE_PREDEFINED*/ /*_._VALCLO___V2207*/ meltfptr[2206] = (melt_ptr_t) &meltcdat->dclo_2113__MEXPAND_STORE_PREDEFINED; meltcdat->dclo_2113__MEXPAND_STORE_PREDEFINED.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_2113__MEXPAND_STORE_PREDEFINED.nbval = 0; /*iniobj dsym_2114__STORE_PREDEFINED*/ /*uniqueobj*/ if (!/*_._VALDATA___V2208*/ meltfptr[2207]) /*_._VALDATA___V2208*/ meltfptr[2207] = (melt_ptr_t )&meltcdat->dsym_2114__STORE_PREDEFINED; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2114__STORE_PREDEFINED", 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_2114__STORE_PREDEFINED", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_2114__STORE_PREDEFINED.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_2114__STORE_PREDEFINED.obj_hash = 8509317; meltcdat->dsym_2114__STORE_PREDEFINED.obj_len = 3; /*inistring dstr_2115__STORE_PREDEFINED*/ /*_._VALSTR___V2209*/ meltfptr[2208] = (melt_ptr_t) &meltcdat->dstr_2115__STORE_PREDEFINED; meltcdat->dstr_2115__STORE_PREDEFINED.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_2115__STORE_PREDEFINED.val, "STORE_PREDEFINED", sizeof (meltcdat->dstr_2115__STORE_PREDEFINED.val)-1); meltcdat->dstr_2115__STORE_PREDEFINED.val[16] = (char)0 ; meltcdat->dstr_2115__STORE_PREDEFINED.slen = 16 ; /*iniobj dsym_2116__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ /*uniqueobj*/ if (!/*_._VALDATA___V2210*/ meltfptr[2209]) /*_._VALDATA___V2210*/ meltfptr[2209] = (melt_ptr_t )&meltcdat->dsym_2116__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2116__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_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_2116__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_2116__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_2116__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 670629834; meltcdat->dsym_2116__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_len = 3; /*inistring dstr_2117__CLASS_SOURCE_UPDATE_CURR*/ /*_._VALSTR___V2211*/ meltfptr[2210] = (melt_ptr_t) &meltcdat->dstr_2117__CLASS_SOURCE_UPDATE_CURR; meltcdat->dstr_2117__CLASS_SOURCE_UPDATE_CURR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_2117__CLASS_SOURCE_UPDATE_CURR.val, "CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", sizeof (meltcdat->dstr_2117__CLASS_SOURCE_UPDATE_CURR.val)-1); meltcdat->dstr_2117__CLASS_SOURCE_UPDATE_CURR.val[56] = (char)0 ; meltcdat->dstr_2117__CLASS_SOURCE_UPDATE_CURR.slen = 56 ; /*iniobj dsym_2118__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ /*uniqueobj*/ if (!/*_._VALDATA___V2212*/ meltfptr[2211]) /*_._VALDATA___V2212*/ meltfptr[2211] = (melt_ptr_t )&meltcdat->dsym_2118__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2118__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_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_2118__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_2118__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_2118__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 483365704; meltcdat->dsym_2118__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_len = 3; /*inistring dstr_2119__CLASS_SOURCE_CURRENT_MOD*/ /*_._VALSTR___V2213*/ meltfptr[2212] = (melt_ptr_t) &meltcdat->dstr_2119__CLASS_SOURCE_CURRENT_MOD; meltcdat->dstr_2119__CLASS_SOURCE_CURRENT_MOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_2119__CLASS_SOURCE_CURRENT_MOD.val, "CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", sizeof (meltcdat->dstr_2119__CLASS_SOURCE_CURRENT_MOD.val)-1); meltcdat->dstr_2119__CLASS_SOURCE_CURRENT_MOD.val[49] = (char)0 ; meltcdat->dstr_2119__CLASS_SOURCE_CURRENT_MOD.slen = 49 ; /*iniobj dsym_2120__EXPAND_APPLY*/ /*uniqueobj*/ if (!/*_._VALDATA___V2214*/ meltfptr[2213]) /*_._VALDATA___V2214*/ meltfptr[2213] = (melt_ptr_t )&meltcdat->dsym_2120__EXPAND_APPLY; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2120__EXPAND_APPLY", 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_2120__EXPAND_APPLY", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_2120__EXPAND_APPLY.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_2120__EXPAND_APPLY.obj_hash = 57901779; meltcdat->dsym_2120__EXPAND_APPLY.obj_len = 3; /*inistring dstr_2121__EXPAND_APPLY*/ /*_._VALSTR___V2215*/ meltfptr[2214] = (melt_ptr_t) &meltcdat->dstr_2121__EXPAND_APPLY; meltcdat->dstr_2121__EXPAND_APPLY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_2121__EXPAND_APPLY.val, "EXPAND_APPLY", sizeof (meltcdat->dstr_2121__EXPAND_APPLY.val)-1); meltcdat->dstr_2121__EXPAND_APPLY.val[12] = (char)0 ; meltcdat->dstr_2121__EXPAND_APPLY.slen = 12 ; /*iniobj dsym_2122__EXPAND_MSEND*/ /*uniqueobj*/ if (!/*_._VALDATA___V2216*/ meltfptr[2215]) /*_._VALDATA___V2216*/ meltfptr[2215] = (melt_ptr_t )&meltcdat->dsym_2122__EXPAND_MSEND; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2122__EXPAND_MSEND", 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_2122__EXPAND_MSEND", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_2122__EXPAND_MSEND.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_2122__EXPAND_MSEND.obj_hash = 624621035; meltcdat->dsym_2122__EXPAND_MSEND.obj_len = 3; /*inistring dstr_2123__EXPAND_MSEND*/ /*_._VALSTR___V2217*/ meltfptr[2216] = (melt_ptr_t) &meltcdat->dstr_2123__EXPAND_MSEND; meltcdat->dstr_2123__EXPAND_MSEND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_2123__EXPAND_MSEND.val, "EXPAND_MSEND", sizeof (meltcdat->dstr_2123__EXPAND_MSEND.val)-1); meltcdat->dstr_2123__EXPAND_MSEND.val[12] = (char)0 ; meltcdat->dstr_2123__EXPAND_MSEND.slen = 12 ; /*iniobj dsym_2124__EXPAND_PAIRLIST_AS_TUPLE*/ /*uniqueobj*/ if (!/*_._VALDATA___V2218*/ meltfptr[2217]) /*_._VALDATA___V2218*/ meltfptr[2217] = (melt_ptr_t )&meltcdat->dsym_2124__EXPAND_PAIRLIST_AS_TUPLE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2124__EXPAND_PAIRLIST_AS_TUPLE", 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_2124__EXPAND_PAIRLIST_AS_TUPLE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_2124__EXPAND_PAIRLIST_AS_TUPLE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_2124__EXPAND_PAIRLIST_AS_TUPLE.obj_hash = 953849859; meltcdat->dsym_2124__EXPAND_PAIRLIST_AS_TUPLE.obj_len = 3; /*inistring dstr_2125__EXPAND_PAIRLIST_AS_TUPLE*/ /*_._VALSTR___V2219*/ meltfptr[2218] = (melt_ptr_t) &meltcdat->dstr_2125__EXPAND_PAIRLIST_AS_TUPLE; meltcdat->dstr_2125__EXPAND_PAIRLIST_AS_TUPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_2125__EXPAND_PAIRLIST_AS_TUPLE.val, "EXPAND_PAIRLIST_AS_TUPLE", sizeof (meltcdat->dstr_2125__EXPAND_PAIRLIST_AS_TUPLE.val)-1); meltcdat->dstr_2125__EXPAND_PAIRLIST_AS_TUPLE.val[24] = (char)0 ; meltcdat->dstr_2125__EXPAND_PAIRLIST_AS_TUPLE.slen = 24 ; /*iniobj dsym_2126__EXPAND_PAIRLIST_AS_LIST*/ /*uniqueobj*/ if (!/*_._VALDATA___V2220*/ meltfptr[2219]) /*_._VALDATA___V2220*/ meltfptr[2219] = (melt_ptr_t )&meltcdat->dsym_2126__EXPAND_PAIRLIST_AS_LIST; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2126__EXPAND_PAIRLIST_AS_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_2126__EXPAND_PAIRLIST_AS_LIST", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_2126__EXPAND_PAIRLIST_AS_LIST.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_2126__EXPAND_PAIRLIST_AS_LIST.obj_hash = 1046865288; meltcdat->dsym_2126__EXPAND_PAIRLIST_AS_LIST.obj_len = 3; /*inistring dstr_2127__EXPAND_PAIRLIST_AS_LIST*/ /*_._VALSTR___V2221*/ meltfptr[2220] = (melt_ptr_t) &meltcdat->dstr_2127__EXPAND_PAIRLIST_AS_LIST; meltcdat->dstr_2127__EXPAND_PAIRLIST_AS_LIST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_2127__EXPAND_PAIRLIST_AS_LIST.val, "EXPAND_PAIRLIST_AS_LIST", sizeof (meltcdat->dstr_2127__EXPAND_PAIRLIST_AS_LIST.val)-1); meltcdat->dstr_2127__EXPAND_PAIRLIST_AS_LIST.val[23] = (char)0 ; meltcdat->dstr_2127__EXPAND_PAIRLIST_AS_LIST.slen = 23 ; /*iniobj dsym_2128__EXPAND_RESTLIST_AS_LIST*/ /*uniqueobj*/ if (!/*_._VALDATA___V2222*/ meltfptr[2221]) /*_._VALDATA___V2222*/ meltfptr[2221] = (melt_ptr_t )&meltcdat->dsym_2128__EXPAND_RESTLIST_AS_LIST; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2128__EXPAND_RESTLIST_AS_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_2128__EXPAND_RESTLIST_AS_LIST", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_2128__EXPAND_RESTLIST_AS_LIST.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_2128__EXPAND_RESTLIST_AS_LIST.obj_hash = 268116437; meltcdat->dsym_2128__EXPAND_RESTLIST_AS_LIST.obj_len = 3; /*inistring dstr_2129__EXPAND_RESTLIST_AS_LIST*/ /*_._VALSTR___V2223*/ meltfptr[2222] = (melt_ptr_t) &meltcdat->dstr_2129__EXPAND_RESTLIST_AS_LIST; meltcdat->dstr_2129__EXPAND_RESTLIST_AS_LIST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_2129__EXPAND_RESTLIST_AS_LIST.val, "EXPAND_RESTLIST_AS_LIST", sizeof (meltcdat->dstr_2129__EXPAND_RESTLIST_AS_LIST.val)-1); meltcdat->dstr_2129__EXPAND_RESTLIST_AS_LIST.val[23] = (char)0 ; meltcdat->dstr_2129__EXPAND_RESTLIST_AS_LIST.slen = 23 ; /*iniobj dsym_2130__EXPAND_RESTLIST_AS_TUPLE*/ /*uniqueobj*/ if (!/*_._VALDATA___V2224*/ meltfptr[2223]) /*_._VALDATA___V2224*/ meltfptr[2223] = (melt_ptr_t )&meltcdat->dsym_2130__EXPAND_RESTLIST_AS_TUPLE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2130__EXPAND_RESTLIST_AS_TUPLE", 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_2130__EXPAND_RESTLIST_AS_TUPLE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_2130__EXPAND_RESTLIST_AS_TUPLE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_2130__EXPAND_RESTLIST_AS_TUPLE.obj_hash = 738325133; meltcdat->dsym_2130__EXPAND_RESTLIST_AS_TUPLE.obj_len = 3; /*inistring dstr_2131__EXPAND_RESTLIST_AS_TUPLE*/ /*_._VALSTR___V2225*/ meltfptr[2224] = (melt_ptr_t) &meltcdat->dstr_2131__EXPAND_RESTLIST_AS_TUPLE; meltcdat->dstr_2131__EXPAND_RESTLIST_AS_TUPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_2131__EXPAND_RESTLIST_AS_TUPLE.val, "EXPAND_RESTLIST_AS_TUPLE", sizeof (meltcdat->dstr_2131__EXPAND_RESTLIST_AS_TUPLE.val)-1); meltcdat->dstr_2131__EXPAND_RESTLIST_AS_TUPLE.val[24] = (char)0 ; meltcdat->dstr_2131__EXPAND_RESTLIST_AS_TUPLE.slen = 24 ; /*iniobj dsym_2132__EXPAND_TUPLE_SLICE_AS_TUPLE*/ /*uniqueobj*/ if (!/*_._VALDATA___V2226*/ meltfptr[2225]) /*_._VALDATA___V2226*/ meltfptr[2225] = (melt_ptr_t )&meltcdat->dsym_2132__EXPAND_TUPLE_SLICE_AS_TUPLE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2132__EXPAND_TUPLE_SLICE_AS_TUPLE", 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_2132__EXPAND_TUPLE_SLICE_AS_TUPLE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_2132__EXPAND_TUPLE_SLICE_AS_TUPLE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_2132__EXPAND_TUPLE_SLICE_AS_TUPLE.obj_hash = 746513982; meltcdat->dsym_2132__EXPAND_TUPLE_SLICE_AS_TUPLE.obj_len = 3; /*inistring dstr_2133__EXPAND_TUPLE_SLICE_AS_TU*/ /*_._VALSTR___V2227*/ meltfptr[2226] = (melt_ptr_t) &meltcdat->dstr_2133__EXPAND_TUPLE_SLICE_AS_TU; meltcdat->dstr_2133__EXPAND_TUPLE_SLICE_AS_TU.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_2133__EXPAND_TUPLE_SLICE_AS_TU.val, "EXPAND_TUPLE_SLICE_AS_TUPLE", sizeof (meltcdat->dstr_2133__EXPAND_TUPLE_SLICE_AS_TU.val)-1); meltcdat->dstr_2133__EXPAND_TUPLE_SLICE_AS_TU.val[27] = (char)0 ; meltcdat->dstr_2133__EXPAND_TUPLE_SLICE_AS_TU.slen = 27 ; /*iniobj dsym_2134__EXPAND_PRIMITIVE*/ /*uniqueobj*/ if (!/*_._VALDATA___V2228*/ meltfptr[2227]) /*_._VALDATA___V2228*/ meltfptr[2227] = (melt_ptr_t )&meltcdat->dsym_2134__EXPAND_PRIMITIVE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2134__EXPAND_PRIMITIVE", 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_2134__EXPAND_PRIMITIVE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_2134__EXPAND_PRIMITIVE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_2134__EXPAND_PRIMITIVE.obj_hash = 489692488; meltcdat->dsym_2134__EXPAND_PRIMITIVE.obj_len = 3; /*inistring dstr_2135__EXPAND_PRIMITIVE*/ /*_._VALSTR___V2229*/ meltfptr[2228] = (melt_ptr_t) &meltcdat->dstr_2135__EXPAND_PRIMITIVE; meltcdat->dstr_2135__EXPAND_PRIMITIVE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_2135__EXPAND_PRIMITIVE.val, "EXPAND_PRIMITIVE", sizeof (meltcdat->dstr_2135__EXPAND_PRIMITIVE.val)-1); meltcdat->dstr_2135__EXPAND_PRIMITIVE.val[16] = (char)0 ; meltcdat->dstr_2135__EXPAND_PRIMITIVE.slen = 16 ; /*iniobj dsym_2136__HOOK_MACRO_INSTALLER*/ /*uniqueobj*/ if (!/*_._VALDATA___V2230*/ meltfptr[2229]) /*_._VALDATA___V2230*/ meltfptr[2229] = (melt_ptr_t )&meltcdat->dsym_2136__HOOK_MACRO_INSTALLER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2136__HOOK_MACRO_INSTALLER", 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_2136__HOOK_MACRO_INSTALLER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_2136__HOOK_MACRO_INSTALLER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_2136__HOOK_MACRO_INSTALLER.obj_hash = 770807576; meltcdat->dsym_2136__HOOK_MACRO_INSTALLER.obj_len = 3; /*inistring dstr_2137__HOOK_MACRO_INSTALLER*/ /*_._VALSTR___V2231*/ meltfptr[2230] = (melt_ptr_t) &meltcdat->dstr_2137__HOOK_MACRO_INSTALLER; meltcdat->dstr_2137__HOOK_MACRO_INSTALLER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_2137__HOOK_MACRO_INSTALLER.val, "HOOK_MACRO_INSTALLER", sizeof (meltcdat->dstr_2137__HOOK_MACRO_INSTALLER.val)-1); meltcdat->dstr_2137__HOOK_MACRO_INSTALLER.val[20] = (char)0 ; meltcdat->dstr_2137__HOOK_MACRO_INSTALLER.slen = 20 ; /*iniobj dsym_2138__INSTALL_INITIAL_MACRO*/ /*uniqueobj*/ if (!/*_._VALDATA___V2232*/ meltfptr[2231]) /*_._VALDATA___V2232*/ meltfptr[2231] = (melt_ptr_t )&meltcdat->dsym_2138__INSTALL_INITIAL_MACRO; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2138__INSTALL_INITIAL_MACRO", 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_2138__INSTALL_INITIAL_MACRO", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_2138__INSTALL_INITIAL_MACRO.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_2138__INSTALL_INITIAL_MACRO.obj_hash = 101362976; meltcdat->dsym_2138__INSTALL_INITIAL_MACRO.obj_len = 3; /*inistring dstr_2139__INSTALL_INITIAL_MACRO*/ /*_._VALSTR___V2233*/ meltfptr[2232] = (melt_ptr_t) &meltcdat->dstr_2139__INSTALL_INITIAL_MACRO; meltcdat->dstr_2139__INSTALL_INITIAL_MACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_2139__INSTALL_INITIAL_MACRO.val, "INSTALL_INITIAL_MACRO", sizeof (meltcdat->dstr_2139__INSTALL_INITIAL_MACRO.val)-1); meltcdat->dstr_2139__INSTALL_INITIAL_MACRO.val[21] = (char)0 ; meltcdat->dstr_2139__INSTALL_INITIAL_MACRO.slen = 21 ; /*iniobj dsym_2140__INSTALL_INITIAL_PATMACRO*/ /*uniqueobj*/ if (!/*_._VALDATA___V2234*/ meltfptr[2233]) /*_._VALDATA___V2234*/ meltfptr[2233] = (melt_ptr_t )&meltcdat->dsym_2140__INSTALL_INITIAL_PATMACRO; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2140__INSTALL_INITIAL_PATMACRO", 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_2140__INSTALL_INITIAL_PATMACRO", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_2140__INSTALL_INITIAL_PATMACRO.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_2140__INSTALL_INITIAL_PATMACRO.obj_hash = 959787197; meltcdat->dsym_2140__INSTALL_INITIAL_PATMACRO.obj_len = 3; /*inistring dstr_2141__INSTALL_INITIAL_PATMACRO*/ /*_._VALSTR___V2235*/ meltfptr[2234] = (melt_ptr_t) &meltcdat->dstr_2141__INSTALL_INITIAL_PATMACRO; meltcdat->dstr_2141__INSTALL_INITIAL_PATMACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_2141__INSTALL_INITIAL_PATMACRO.val, "INSTALL_INITIAL_PATMACRO", sizeof (meltcdat->dstr_2141__INSTALL_INITIAL_PATMACRO.val)-1); meltcdat->dstr_2141__INSTALL_INITIAL_PATMACRO.val[24] = (char)0 ; meltcdat->dstr_2141__INSTALL_INITIAL_PATMACRO.slen = 24 ; /*iniobj dsym_2142__INSTALL_GLOBAL_DEFINITION_BINDING*/ /*uniqueobj*/ if (!/*_._VALDATA___V2236*/ meltfptr[2235]) /*_._VALDATA___V2236*/ meltfptr[2235] = (melt_ptr_t )&meltcdat->dsym_2142__INSTALL_GLOBAL_DEFINITION_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2142__INSTALL_GLOBAL_DEFINITION_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_2142__INSTALL_GLOBAL_DEFINITION_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_2142__INSTALL_GLOBAL_DEFINITION_BINDING.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_2142__INSTALL_GLOBAL_DEFINITION_BINDING.obj_hash = 566511063; meltcdat->dsym_2142__INSTALL_GLOBAL_DEFINITION_BINDING.obj_len = 3; /*inistring dstr_2143__INSTALL_GLOBAL_DEFINITIO*/ /*_._VALSTR___V2237*/ meltfptr[2236] = (melt_ptr_t) &meltcdat->dstr_2143__INSTALL_GLOBAL_DEFINITIO; meltcdat->dstr_2143__INSTALL_GLOBAL_DEFINITIO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_2143__INSTALL_GLOBAL_DEFINITIO.val, "INSTALL_GLOBAL_DEFINITION_BINDING", sizeof (meltcdat->dstr_2143__INSTALL_GLOBAL_DEFINITIO.val)-1); meltcdat->dstr_2143__INSTALL_GLOBAL_DEFINITIO.val[33] = (char)0 ; meltcdat->dstr_2143__INSTALL_GLOBAL_DEFINITIO.slen = 33 ; /*iniobj dsym_2144__LAMBDA_ARG_BINDINGS*/ /*uniqueobj*/ if (!/*_._VALDATA___V2238*/ meltfptr[2237]) /*_._VALDATA___V2238*/ meltfptr[2237] = (melt_ptr_t )&meltcdat->dsym_2144__LAMBDA_ARG_BINDINGS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2144__LAMBDA_ARG_BINDINGS", 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_2144__LAMBDA_ARG_BINDINGS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_2144__LAMBDA_ARG_BINDINGS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_2144__LAMBDA_ARG_BINDINGS.obj_hash = 242170999; meltcdat->dsym_2144__LAMBDA_ARG_BINDINGS.obj_len = 3; /*inistring dstr_2145__LAMBDA_ARG_BINDINGS*/ /*_._VALSTR___V2239*/ meltfptr[2238] = (melt_ptr_t) &meltcdat->dstr_2145__LAMBDA_ARG_BINDINGS; meltcdat->dstr_2145__LAMBDA_ARG_BINDINGS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_2145__LAMBDA_ARG_BINDINGS.val, "LAMBDA_ARG_BINDINGS", sizeof (meltcdat->dstr_2145__LAMBDA_ARG_BINDINGS.val)-1); meltcdat->dstr_2145__LAMBDA_ARG_BINDINGS.val[19] = (char)0 ; meltcdat->dstr_2145__LAMBDA_ARG_BINDINGS.slen = 19 ; /*iniobj dsym_2146__MACROEXPAND_1*/ /*uniqueobj*/ if (!/*_._VALDATA___V2240*/ meltfptr[2239]) /*_._VALDATA___V2240*/ meltfptr[2239] = (melt_ptr_t )&meltcdat->dsym_2146__MACROEXPAND_1; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2146__MACROEXPAND_1", 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_2146__MACROEXPAND_1", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_2146__MACROEXPAND_1.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_2146__MACROEXPAND_1.obj_hash = 858793911; meltcdat->dsym_2146__MACROEXPAND_1.obj_len = 3; /*inistring dstr_2147__MACROEXPAND_1*/ /*_._VALSTR___V2241*/ meltfptr[2240] = (melt_ptr_t) &meltcdat->dstr_2147__MACROEXPAND_1; meltcdat->dstr_2147__MACROEXPAND_1.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_2147__MACROEXPAND_1.val, "MACROEXPAND_1", sizeof (meltcdat->dstr_2147__MACROEXPAND_1.val)-1); meltcdat->dstr_2147__MACROEXPAND_1.val[13] = (char)0 ; meltcdat->dstr_2147__MACROEXPAND_1.slen = 13 ; /*iniobj dsym_2148__MACROEXPAND_TOPLEVEL_LIST*/ /*uniqueobj*/ if (!/*_._VALDATA___V2242*/ meltfptr[2241]) /*_._VALDATA___V2242*/ meltfptr[2241] = (melt_ptr_t )&meltcdat->dsym_2148__MACROEXPAND_TOPLEVEL_LIST; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2148__MACROEXPAND_TOPLEVEL_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_2148__MACROEXPAND_TOPLEVEL_LIST", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_2148__MACROEXPAND_TOPLEVEL_LIST.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_2148__MACROEXPAND_TOPLEVEL_LIST.obj_hash = 973794411; meltcdat->dsym_2148__MACROEXPAND_TOPLEVEL_LIST.obj_len = 3; /*inistring dstr_2149__MACROEXPAND_TOPLEVEL_LIS*/ /*_._VALSTR___V2243*/ meltfptr[2242] = (melt_ptr_t) &meltcdat->dstr_2149__MACROEXPAND_TOPLEVEL_LIS; meltcdat->dstr_2149__MACROEXPAND_TOPLEVEL_LIS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_2149__MACROEXPAND_TOPLEVEL_LIS.val, "MACROEXPAND_TOPLEVEL_LIST", sizeof (meltcdat->dstr_2149__MACROEXPAND_TOPLEVEL_LIS.val)-1); meltcdat->dstr_2149__MACROEXPAND_TOPLEVEL_LIS.val[25] = (char)0 ; meltcdat->dstr_2149__MACROEXPAND_TOPLEVEL_LIS.slen = 25 ; /*iniobj dsym_2150__MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS*/ /*uniqueobj*/ if (!/*_._VALDATA___V2244*/ meltfptr[2243]) /*_._VALDATA___V2244*/ meltfptr[2243] = (melt_ptr_t )&meltcdat->dsym_2150__MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2150__MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS", 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_2150__MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_2150__MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_2150__MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS.obj_hash = 235050317; meltcdat->dsym_2150__MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS.obj_len = 3; /*inistring dstr_2151__MELT_REGISTER_TRANSLATOR*/ /*_._VALSTR___V2245*/ meltfptr[2244] = (melt_ptr_t) &meltcdat->dstr_2151__MELT_REGISTER_TRANSLATOR; meltcdat->dstr_2151__MELT_REGISTER_TRANSLATOR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_2151__MELT_REGISTER_TRANSLATOR.val, "MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS", sizeof (meltcdat->dstr_2151__MELT_REGISTER_TRANSLATOR.val)-1); meltcdat->dstr_2151__MELT_REGISTER_TRANSLATOR.val[47] = (char)0 ; meltcdat->dstr_2151__MELT_REGISTER_TRANSLATOR.slen = 47 ; /*iniobj dsym_2152__PATMACEXPAND_FOR_MATCHER*/ /*uniqueobj*/ if (!/*_._VALDATA___V2246*/ meltfptr[2245]) /*_._VALDATA___V2246*/ meltfptr[2245] = (melt_ptr_t )&meltcdat->dsym_2152__PATMACEXPAND_FOR_MATCHER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2152__PATMACEXPAND_FOR_MATCHER", 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_2152__PATMACEXPAND_FOR_MATCHER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_2152__PATMACEXPAND_FOR_MATCHER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_2152__PATMACEXPAND_FOR_MATCHER.obj_hash = 884956845; meltcdat->dsym_2152__PATMACEXPAND_FOR_MATCHER.obj_len = 3; /*inistring dstr_2153__PATMACEXPAND_FOR_MATCHER*/ /*_._VALSTR___V2247*/ meltfptr[2246] = (melt_ptr_t) &meltcdat->dstr_2153__PATMACEXPAND_FOR_MATCHER; meltcdat->dstr_2153__PATMACEXPAND_FOR_MATCHER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_2153__PATMACEXPAND_FOR_MATCHER.val, "PATMACEXPAND_FOR_MATCHER", sizeof (meltcdat->dstr_2153__PATMACEXPAND_FOR_MATCHER.val)-1); meltcdat->dstr_2153__PATMACEXPAND_FOR_MATCHER.val[24] = (char)0 ; meltcdat->dstr_2153__PATMACEXPAND_FOR_MATCHER.slen = 24 ; /*iniobj dsym_2154__PATTERNEXPAND_1*/ /*uniqueobj*/ if (!/*_._VALDATA___V2248*/ meltfptr[2247]) /*_._VALDATA___V2248*/ meltfptr[2247] = (melt_ptr_t )&meltcdat->dsym_2154__PATTERNEXPAND_1; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2154__PATTERNEXPAND_1", 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_2154__PATTERNEXPAND_1", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_2154__PATTERNEXPAND_1.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_2154__PATTERNEXPAND_1.obj_hash = 263501284; meltcdat->dsym_2154__PATTERNEXPAND_1.obj_len = 3; /*inistring dstr_2155__PATTERNEXPAND_1*/ /*_._VALSTR___V2249*/ meltfptr[2248] = (melt_ptr_t) &meltcdat->dstr_2155__PATTERNEXPAND_1; meltcdat->dstr_2155__PATTERNEXPAND_1.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_2155__PATTERNEXPAND_1.val, "PATTERNEXPAND_1", sizeof (meltcdat->dstr_2155__PATTERNEXPAND_1.val)-1); meltcdat->dstr_2155__PATTERNEXPAND_1.val[15] = (char)0 ; meltcdat->dstr_2155__PATTERNEXPAND_1.slen = 15 ; /*iniobj dsym_2156__PATTERNEXPAND_EXPR*/ /*uniqueobj*/ if (!/*_._VALDATA___V2250*/ meltfptr[2249]) /*_._VALDATA___V2250*/ meltfptr[2249] = (melt_ptr_t )&meltcdat->dsym_2156__PATTERNEXPAND_EXPR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2156__PATTERNEXPAND_EXPR", 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_2156__PATTERNEXPAND_EXPR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_2156__PATTERNEXPAND_EXPR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_2156__PATTERNEXPAND_EXPR.obj_hash = 842722016; meltcdat->dsym_2156__PATTERNEXPAND_EXPR.obj_len = 3; /*inistring dstr_2157__PATTERNEXPAND_EXPR*/ /*_._VALSTR___V2251*/ meltfptr[2250] = (melt_ptr_t) &meltcdat->dstr_2157__PATTERNEXPAND_EXPR; meltcdat->dstr_2157__PATTERNEXPAND_EXPR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_2157__PATTERNEXPAND_EXPR.val, "PATTERNEXPAND_EXPR", sizeof (meltcdat->dstr_2157__PATTERNEXPAND_EXPR.val)-1); meltcdat->dstr_2157__PATTERNEXPAND_EXPR.val[18] = (char)0 ; meltcdat->dstr_2157__PATTERNEXPAND_EXPR.slen = 18 ; /*iniobj dsym_2158__PATTERNEXPAND_PAIRLIST_AS_TUPLE*/ /*uniqueobj*/ if (!/*_._VALDATA___V2252*/ meltfptr[2251]) /*_._VALDATA___V2252*/ meltfptr[2251] = (melt_ptr_t )&meltcdat->dsym_2158__PATTERNEXPAND_PAIRLIST_AS_TUPLE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2158__PATTERNEXPAND_PAIRLIST_AS_TUPLE", 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_2158__PATTERNEXPAND_PAIRLIST_AS_TUPLE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_2158__PATTERNEXPAND_PAIRLIST_AS_TUPLE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_2158__PATTERNEXPAND_PAIRLIST_AS_TUPLE.obj_hash = 551172859; meltcdat->dsym_2158__PATTERNEXPAND_PAIRLIST_AS_TUPLE.obj_len = 3; /*inistring dstr_2159__PATTERNEXPAND_PAIRLIST_A*/ /*_._VALSTR___V2253*/ meltfptr[2252] = (melt_ptr_t) &meltcdat->dstr_2159__PATTERNEXPAND_PAIRLIST_A; meltcdat->dstr_2159__PATTERNEXPAND_PAIRLIST_A.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_2159__PATTERNEXPAND_PAIRLIST_A.val, "PATTERNEXPAND_PAIRLIST_AS_TUPLE", sizeof (meltcdat->dstr_2159__PATTERNEXPAND_PAIRLIST_A.val)-1); meltcdat->dstr_2159__PATTERNEXPAND_PAIRLIST_A.val[31] = (char)0 ; meltcdat->dstr_2159__PATTERNEXPAND_PAIRLIST_A.slen = 31 ; /*iniobj dsym_2160__PATTERN_WEIGHT_TUPLE*/ /*uniqueobj*/ if (!/*_._VALDATA___V2254*/ meltfptr[2253]) /*_._VALDATA___V2254*/ meltfptr[2253] = (melt_ptr_t )&meltcdat->dsym_2160__PATTERN_WEIGHT_TUPLE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2160__PATTERN_WEIGHT_TUPLE", 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_2160__PATTERN_WEIGHT_TUPLE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_2160__PATTERN_WEIGHT_TUPLE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_2160__PATTERN_WEIGHT_TUPLE.obj_hash = 239554717; meltcdat->dsym_2160__PATTERN_WEIGHT_TUPLE.obj_len = 3; /*inistring dstr_2161__PATTERN_WEIGHT_TUPLE*/ /*_._VALSTR___V2255*/ meltfptr[2254] = (melt_ptr_t) &meltcdat->dstr_2161__PATTERN_WEIGHT_TUPLE; meltcdat->dstr_2161__PATTERN_WEIGHT_TUPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_2161__PATTERN_WEIGHT_TUPLE.val, "PATTERN_WEIGHT_TUPLE", sizeof (meltcdat->dstr_2161__PATTERN_WEIGHT_TUPLE.val)-1); meltcdat->dstr_2161__PATTERN_WEIGHT_TUPLE.val[20] = (char)0 ; meltcdat->dstr_2161__PATTERN_WEIGHT_TUPLE.slen = 20 ; /*iniobj dsym_2162__REGISTER_GENERATOR_DEVICE*/ /*uniqueobj*/ if (!/*_._VALDATA___V2256*/ meltfptr[2255]) /*_._VALDATA___V2256*/ meltfptr[2255] = (melt_ptr_t )&meltcdat->dsym_2162__REGISTER_GENERATOR_DEVICE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2162__REGISTER_GENERATOR_DEVICE", 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_2162__REGISTER_GENERATOR_DEVICE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_2162__REGISTER_GENERATOR_DEVICE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_2162__REGISTER_GENERATOR_DEVICE.obj_hash = 805123873; meltcdat->dsym_2162__REGISTER_GENERATOR_DEVICE.obj_len = 3; /*inistring dstr_2163__REGISTER_GENERATOR_DEVIC*/ /*_._VALSTR___V2257*/ meltfptr[2256] = (melt_ptr_t) &meltcdat->dstr_2163__REGISTER_GENERATOR_DEVIC; meltcdat->dstr_2163__REGISTER_GENERATOR_DEVIC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_2163__REGISTER_GENERATOR_DEVIC.val, "REGISTER_GENERATOR_DEVICE", sizeof (meltcdat->dstr_2163__REGISTER_GENERATOR_DEVIC.val)-1); meltcdat->dstr_2163__REGISTER_GENERATOR_DEVIC.val[25] = (char)0 ; meltcdat->dstr_2163__REGISTER_GENERATOR_DEVIC.slen = 25 ; /*iniobj dsym_2164__S_EXPR_WEIGHT*/ /*uniqueobj*/ if (!/*_._VALDATA___V2258*/ meltfptr[2257]) /*_._VALDATA___V2258*/ meltfptr[2257] = (melt_ptr_t )&meltcdat->dsym_2164__S_EXPR_WEIGHT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2164__S_EXPR_WEIGHT", 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_2164__S_EXPR_WEIGHT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_2164__S_EXPR_WEIGHT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_2164__S_EXPR_WEIGHT.obj_hash = 703606185; meltcdat->dsym_2164__S_EXPR_WEIGHT.obj_len = 3; /*inistring dstr_2165__S_EXPR_WEIGHT*/ /*_._VALSTR___V2259*/ meltfptr[2258] = (melt_ptr_t) &meltcdat->dstr_2165__S_EXPR_WEIGHT; meltcdat->dstr_2165__S_EXPR_WEIGHT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_2165__S_EXPR_WEIGHT.val, "S_EXPR_WEIGHT", sizeof (meltcdat->dstr_2165__S_EXPR_WEIGHT.val)-1); meltcdat->dstr_2165__S_EXPR_WEIGHT.val[13] = (char)0 ; meltcdat->dstr_2165__S_EXPR_WEIGHT.slen = 13 ; /*iniobj dsym_2166__MEXPAND_REFERENCE*/ /*uniqueobj*/ if (!/*_._VALDATA___V2260*/ meltfptr[2259]) /*_._VALDATA___V2260*/ meltfptr[2259] = (melt_ptr_t )&meltcdat->dsym_2166__MEXPAND_REFERENCE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2166__MEXPAND_REFERENCE", 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_2166__MEXPAND_REFERENCE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_2166__MEXPAND_REFERENCE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_2166__MEXPAND_REFERENCE.obj_hash = 454324238; meltcdat->dsym_2166__MEXPAND_REFERENCE.obj_len = 3; /*inistring dstr_2167__MEXPAND_REFERENCE*/ /*_._VALSTR___V2261*/ meltfptr[2260] = (melt_ptr_t) &meltcdat->dstr_2167__MEXPAND_REFERENCE; meltcdat->dstr_2167__MEXPAND_REFERENCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_2167__MEXPAND_REFERENCE.val, "MEXPAND_REFERENCE", sizeof (meltcdat->dstr_2167__MEXPAND_REFERENCE.val)-1); meltcdat->dstr_2167__MEXPAND_REFERENCE.val[17] = (char)0 ; meltcdat->dstr_2167__MEXPAND_REFERENCE.slen = 17 ; /*iniobj dsym_2168__PATEXPAND_REFERENCE*/ /*uniqueobj*/ if (!/*_._VALDATA___V2262*/ meltfptr[2261]) /*_._VALDATA___V2262*/ meltfptr[2261] = (melt_ptr_t )&meltcdat->dsym_2168__PATEXPAND_REFERENCE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_2168__PATEXPAND_REFERENCE", 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_2168__PATEXPAND_REFERENCE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_2168__PATEXPAND_REFERENCE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_2168__PATEXPAND_REFERENCE.obj_hash = 929282371; meltcdat->dsym_2168__PATEXPAND_REFERENCE.obj_len = 3; /*inistring dstr_2169__PATEXPAND_REFERENCE*/ /*_._VALSTR___V2263*/ meltfptr[2262] = (melt_ptr_t) &meltcdat->dstr_2169__PATEXPAND_REFERENCE; meltcdat->dstr_2169__PATEXPAND_REFERENCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_2169__PATEXPAND_REFERENCE.val, "PATEXPAND_REFERENCE", sizeof (meltcdat->dstr_2169__PATEXPAND_REFERENCE.val)-1); meltcdat->dstr_2169__PATEXPAND_REFERENCE.val[19] = (char)0 ; meltcdat->dstr_2169__PATEXPAND_REFERENCE.slen = 19 ; meltcdat = NULL; melt_prohibit_garbcoll = FALSE; #undef meltfram__ } /*end melt_initialize_module_meltdata_WARMELTmiMACRO*/ #if MELT_HAVE_DEBUG > 0 const char meltmodule_WARMELTmiMACRO__melt_have_debug_enabled[] = "MELT module warmelt-macro have debug enabled"; #else /*!MELT_HAVE_DEBUG*/ const char meltmodule_WARMELTmiMACRO__melt_have_debug_disabled[] = "MELT module warmelt-macro have debug disabled"; #endif /*MELT_HAVE_DEBUG*/ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) { char meltpredefinited[MELTGLOB__LASTGLOB+8]; #if MELT_HAVE_DEBUG > 0 static long melt_call_counter__; long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__; #undef meltcallcount #define meltcallcount melt_thiscallcounter__ #else #undef meltcallcount #define meltcallcount 0L #endif //// emitted by output_curframe_declstruct_init using LAMBDA_ @warmelt-outobj.melt:2263 /* start of frame for routine melt_start_this_module fromline 1752 */ /*startiniframdecl*/ /* end of frame for routine melt_start_this_module fromline 1756 */ melt_debugeprintf("sizeof Melt_InitialFrame in melt_start_this_module=%d", (int) sizeof(Melt_InitialFrame)); /* classy initial frame melt_start_this_module fromline 1775*/ Melt_InitialFrame meltfram__ /*declfrastruct fromline 1782*/ /*classyinitroutinearg melt_start_this_module fromline 1821*/ #if MELT_HAVE_DEBUG > 0 /*classyinitroutfram fromline 1825:*/ (__FILE__, __LINE__) #endif /*MELT_HAVE_DEBUG fromline1827*/ ; #define meltframe meltfram__ /**initial routine prologue**/ melt_debugeprintf("initial routine begin WARMELTmiMACRO meltfram=%p-%p sized %d", (void*)&meltfram__, (void*)(((char*)&meltfram__)+sizeof(meltfram__)), (int)sizeof(meltfram__)); /**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]) /*then*/ { } else /*^cond.else*/ { /*^compute*/ /* compile2obj_initproc emitted initialization of environment reference for warmelt-macro */ if (/*_._PREVENV___V4*/ meltfptr[3]) { /*_._CONTENV___V2*/ meltfptr[1] = melthookproc_HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER ((melt_ptr_t) /*_._PREVENV___V4*/ meltfptr[3], "warmelt-macro") ; } else /* no prevenv */ { #if MELT_HAS_INITIAL_ENVIRONMENT>0 if (!melt_flag_bootstrapping) warning(0, "MELT is not creating a fresh environment reference for warmelt-macro without parent env.") ; #endif /* MELT_HAS_INITIAL_ENVIRONMENT>0 */ } ;; } /*^comment*/ /**COMMENT: get symbols & keywords for initial procedure **/; /*^getnamedsymbol*/ /*getnamedsym:HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER*/ if (NULL == /*_._VALDATA___V95*/ meltfptr[94]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER = melthookproc_HOOK_NAMED_SYMBOL ("HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER", (long) MELT_GET); /*_._VALDATA___V95*/ meltfptr[94] = (melt_ptr_t) meltsy_HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER; } /*endgetnamedsym HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_DIAGNOSTIC_STATE*/ if (NULL == /*_._VALDATA___V107*/ meltfptr[106]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_DIAGNOSTIC_STATE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_DIAGNOSTIC_STATE = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_DIAGNOSTIC_STATE", (long) MELT_GET); /*_._VALDATA___V107*/ meltfptr[106] = (melt_ptr_t) meltsy_CLASS_DIAGNOSTIC_STATE; } /*endgetnamedsym CLASS_DIAGNOSTIC_STATE*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_LOCATED*/ if (NULL == /*_._VALDATA___V109*/ meltfptr[108]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_LOCATED without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_LOCATED = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_LOCATED", (long) MELT_GET); /*_._VALDATA___V109*/ meltfptr[108] = (melt_ptr_t) meltsy_CLASS_LOCATED; } /*endgetnamedsym CLASS_LOCATED*/ /*^getnamedsymbol*/ /*getnamedsym:DIAG_VECT*/ if (NULL == /*_._VALDATA___V121*/ meltfptr[120]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol DIAG_VECT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DIAG_VECT = melthookproc_HOOK_NAMED_SYMBOL ("DIAG_VECT", (long) MELT_GET); /*_._VALDATA___V121*/ meltfptr[120] = (melt_ptr_t) meltsy_DIAG_VECT; } /*endgetnamedsym DIAG_VECT*/ /*^getnamedsymbol*/ /*getnamedsym:DIAG_POSITION*/ if (NULL == /*_._VALDATA___V123*/ meltfptr[122]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol DIAG_POSITION without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DIAG_POSITION = melthookproc_HOOK_NAMED_SYMBOL ("DIAG_POSITION", (long) MELT_GET); /*_._VALDATA___V123*/ meltfptr[122] = (melt_ptr_t) meltsy_DIAG_POSITION; } /*endgetnamedsym DIAG_POSITION*/ /*^getnamedsymbol*/ /*getnamedsym:DIAG_STATE*/ if (NULL == /*_._VALDATA___V125*/ meltfptr[124]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol DIAG_STATE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DIAG_STATE = melthookproc_HOOK_NAMED_SYMBOL ("DIAG_STATE", (long) MELT_GET); /*_._VALDATA___V125*/ meltfptr[124] = (melt_ptr_t) meltsy_DIAG_STATE; } /*endgetnamedsym DIAG_STATE*/ /*^getnamedsymbol*/ /*getnamedsym:DISCR_DIAGNOSTIC_CLOSURE*/ if (NULL == /*_._VALDATA___V127*/ meltfptr[126]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol DISCR_DIAGNOSTIC_CLOSURE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DISCR_DIAGNOSTIC_CLOSURE = melthookproc_HOOK_NAMED_SYMBOL ("DISCR_DIAGNOSTIC_CLOSURE", (long) MELT_GET); /*_._VALDATA___V127*/ meltfptr[126] = (melt_ptr_t) meltsy_DISCR_DIAGNOSTIC_CLOSURE; } /*endgetnamedsym DISCR_DIAGNOSTIC_CLOSURE*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_DISCRIMINANT*/ if (NULL == /*_._VALDATA___V129*/ meltfptr[128]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_DISCRIMINANT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_DISCRIMINANT = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_DISCRIMINANT", (long) MELT_GET); /*_._VALDATA___V129*/ meltfptr[128] = (melt_ptr_t) meltsy_CLASS_DISCRIMINANT; } /*endgetnamedsym CLASS_DISCRIMINANT*/ /*^getnamedsymbol*/ /*getnamedsym:DISCR_CLOSURE*/ if (NULL == /*_._VALDATA___V133*/ meltfptr[132]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol DISCR_CLOSURE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DISCR_CLOSURE = melthookproc_HOOK_NAMED_SYMBOL ("DISCR_CLOSURE", (long) MELT_GET); /*_._VALDATA___V133*/ meltfptr[132] = (melt_ptr_t) meltsy_DISCR_CLOSURE; } /*endgetnamedsym DISCR_CLOSURE*/ /*^getnamedsymbol*/ /*getnamedsym:MELT_DEBUG_FUN*/ if (NULL == /*_._VALDATA___V269*/ meltfptr[268]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol MELT_DEBUG_FUN without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MELT_DEBUG_FUN = melthookproc_HOOK_NAMED_SYMBOL ("MELT_DEBUG_FUN", (long) MELT_GET); /*_._VALDATA___V269*/ meltfptr[268] = (melt_ptr_t) meltsy_MELT_DEBUG_FUN; } /*endgetnamedsym MELT_DEBUG_FUN*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SEXPR*/ if (NULL == /*_._VALDATA___V271*/ meltfptr[270]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SEXPR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SEXPR = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SEXPR", (long) MELT_GET); /*_._VALDATA___V271*/ meltfptr[270] = (melt_ptr_t) meltsy_CLASS_SEXPR; } /*endgetnamedsym CLASS_SEXPR*/ /*^getnamedsymbol*/ /*getnamedsym:MELT_ASSERT_FAILURE_FUN*/ if (NULL == /*_._VALDATA___V273*/ meltfptr[272]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol MELT_ASSERT_FAILURE_FUN without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MELT_ASSERT_FAILURE_FUN = melthookproc_HOOK_NAMED_SYMBOL ("MELT_ASSERT_FAILURE_FUN", (long) MELT_GET); /*_._VALDATA___V273*/ meltfptr[272] = (melt_ptr_t) meltsy_MELT_ASSERT_FAILURE_FUN; } /*endgetnamedsym MELT_ASSERT_FAILURE_FUN*/ /*^getnamedsymbol*/ /*getnamedsym:LIST_TO_MULTIPLE*/ if (NULL == /*_._VALDATA___V275*/ meltfptr[274]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol LIST_TO_MULTIPLE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_LIST_TO_MULTIPLE = melthookproc_HOOK_NAMED_SYMBOL ("LIST_TO_MULTIPLE", (long) MELT_GET); /*_._VALDATA___V275*/ meltfptr[274] = (melt_ptr_t) meltsy_LIST_TO_MULTIPLE; } /*endgetnamedsym LIST_TO_MULTIPLE*/ /*^getnamedsymbol*/ /*getnamedsym:DISCR_MULTIPLE*/ if (NULL == /*_._VALDATA___V277*/ meltfptr[276]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol DISCR_MULTIPLE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DISCR_MULTIPLE = melthookproc_HOOK_NAMED_SYMBOL ("DISCR_MULTIPLE", (long) MELT_GET); /*_._VALDATA___V277*/ meltfptr[276] = (melt_ptr_t) meltsy_DISCR_MULTIPLE; } /*endgetnamedsym DISCR_MULTIPLE*/ /*^getnamedsymbol*/ /*getnamedsym:STRING4OUT*/ if (NULL == /*_._VALDATA___V190*/ meltfptr[189]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol STRING4OUT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_STRING4OUT = melthookproc_HOOK_NAMED_SYMBOL ("STRING4OUT", (long) MELT_GET); /*_._VALDATA___V190*/ meltfptr[189] = (melt_ptr_t) meltsy_STRING4OUT; } /*endgetnamedsym STRING4OUT*/ /*^getnamedsymbol*/ /*getnamedsym:DISCR_STRING*/ if (NULL == /*_._VALDATA___V192*/ meltfptr[191]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol DISCR_STRING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DISCR_STRING = melthookproc_HOOK_NAMED_SYMBOL ("DISCR_STRING", (long) MELT_GET); /*_._VALDATA___V192*/ meltfptr[191] = (melt_ptr_t) meltsy_DISCR_STRING; } /*endgetnamedsym DISCR_STRING*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SYMBOL*/ if (NULL == /*_._VALDATA___V279*/ meltfptr[278]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SYMBOL without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SYMBOL = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SYMBOL", (long) MELT_GET); /*_._VALDATA___V279*/ meltfptr[278] = (melt_ptr_t) meltsy_CLASS_SYMBOL; } /*endgetnamedsym CLASS_SYMBOL*/ /*^getnamedsymbol*/ /*getnamedsym:MELT_MAKE_SEXPR*/ if (NULL == /*_._VALDATA___V281*/ meltfptr[280]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol MELT_MAKE_SEXPR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MELT_MAKE_SEXPR = melthookproc_HOOK_NAMED_SYMBOL ("MELT_MAKE_SEXPR", (long) MELT_GET); /*_._VALDATA___V281*/ meltfptr[280] = (melt_ptr_t) meltsy_MELT_MAKE_SEXPR; } /*endgetnamedsym MELT_MAKE_SEXPR*/ /*^getnamedsymbol*/ /*getnamedsym:HOOK_MELT_MAKE_LOCATION*/ if (NULL == /*_._VALDATA___V283*/ meltfptr[282]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol HOOK_MELT_MAKE_LOCATION without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_HOOK_MELT_MAKE_LOCATION = melthookproc_HOOK_NAMED_SYMBOL ("HOOK_MELT_MAKE_LOCATION", (long) MELT_GET); /*_._VALDATA___V283*/ meltfptr[282] = (melt_ptr_t) meltsy_HOOK_MELT_MAKE_LOCATION; } /*endgetnamedsym HOOK_MELT_MAKE_LOCATION*/ /*^getnamedsymbol*/ /*getnamedsym:LET*/ if (NULL == /*_._VALDATA___V136*/ meltfptr[135]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol LET without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_LET = melthookproc_HOOK_NAMED_SYMBOL ("LET", (long) MELT_GET); /*_._VALDATA___V136*/ meltfptr[135] = (melt_ptr_t) meltsy_LET; } /*endgetnamedsym LET*/ /*^getnamedsymbol*/ /*getnamedsym:DIAGPOSBOX*/ if (NULL == /*_._VALDATA___V138*/ meltfptr[137]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol DIAGPOSBOX without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DIAGPOSBOX = melthookproc_HOOK_NAMED_SYMBOL ("DIAGPOSBOX", (long) MELT_GET); /*_._VALDATA___V138*/ meltfptr[137] = (melt_ptr_t) meltsy_DIAGPOSBOX; } /*endgetnamedsym DIAGPOSBOX*/ /*^getnamedsymbol*/ /*getnamedsym:BOX*/ if (NULL == /*_._VALDATA___V140*/ meltfptr[139]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol BOX without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_BOX = melthookproc_HOOK_NAMED_SYMBOL ("BOX", (long) MELT_GET); /*_._VALDATA___V140*/ meltfptr[139] = (melt_ptr_t) meltsy_BOX; } /*endgetnamedsym BOX*/ /*^getnamedsymbol*/ /*getnamedsym:DIAGSTATE*/ if (NULL == /*_._VALDATA___V142*/ meltfptr[141]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol DIAGSTATE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DIAGSTATE = melthookproc_HOOK_NAMED_SYMBOL ("DIAGSTATE", (long) MELT_GET); /*_._VALDATA___V142*/ meltfptr[141] = (melt_ptr_t) meltsy_DIAGSTATE; } /*endgetnamedsym DIAGSTATE*/ /*^getnamedsymbol*/ /*getnamedsym:INSTANCE*/ if (NULL == /*_._VALDATA___V144*/ meltfptr[143]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol INSTANCE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_INSTANCE = melthookproc_HOOK_NAMED_SYMBOL ("INSTANCE", (long) MELT_GET); /*_._VALDATA___V144*/ meltfptr[143] = (melt_ptr_t) meltsy_INSTANCE; } /*endgetnamedsym INSTANCE*/ /*^getnamedkeyword*/ /*getnamedkeyw:LOCA_LOCATION*/ { melt_ptr_t kw_LOCA_LOCATION = melthookproc_HOOK_NAMED_KEYWORD ("LOCA_LOCATION", (long) MELT_GET); if (kw_LOCA_LOCATION) /*_._VALDATA___V146*/ meltfptr[145] = (melt_ptr_t) kw_LOCA_LOCATION; } /*^getnamedkeyword*/ /*getnamedkeyw:DIAG_VECT*/ { melt_ptr_t kw_DIAG_VECT = melthookproc_HOOK_NAMED_KEYWORD ("DIAG_VECT", (long) MELT_GET); if (kw_DIAG_VECT) /*_._VALDATA___V148*/ meltfptr[147] = (melt_ptr_t) kw_DIAG_VECT; } /*^getnamedkeyword*/ /*getnamedkeyw:DIAG_POSITION*/ { melt_ptr_t kw_DIAG_POSITION = melthookproc_HOOK_NAMED_KEYWORD ("DIAG_POSITION", (long) MELT_GET); if (kw_DIAG_POSITION) /*_._VALDATA___V150*/ meltfptr[149] = (melt_ptr_t) kw_DIAG_POSITION; } /*^getnamedkeyword*/ /*getnamedkeyw:DIAG_STATE*/ { melt_ptr_t kw_DIAG_STATE = melthookproc_HOOK_NAMED_KEYWORD ("DIAG_STATE", (long) MELT_GET); if (kw_DIAG_STATE) /*_._VALDATA___V152*/ meltfptr[151] = (melt_ptr_t) kw_DIAG_STATE; } /*^getnamedsymbol*/ /*getnamedsym:MAKE_MAPOBJECT*/ if (NULL == /*_._VALDATA___V154*/ meltfptr[153]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol MAKE_MAPOBJECT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MAKE_MAPOBJECT = melthookproc_HOOK_NAMED_SYMBOL ("MAKE_MAPOBJECT", (long) MELT_GET); /*_._VALDATA___V154*/ meltfptr[153] = (melt_ptr_t) meltsy_MAKE_MAPOBJECT; } /*endgetnamedsym MAKE_MAPOBJECT*/ /*^getnamedsymbol*/ /*getnamedsym:DISCR_MAP_OBJECTS*/ if (NULL == /*_._VALDATA___V156*/ meltfptr[155]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol DISCR_MAP_OBJECTS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DISCR_MAP_OBJECTS = melthookproc_HOOK_NAMED_SYMBOL ("DISCR_MAP_OBJECTS", (long) MELT_GET); /*_._VALDATA___V156*/ meltfptr[155] = (melt_ptr_t) meltsy_DISCR_MAP_OBJECTS; } /*endgetnamedsym DISCR_MAP_OBJECTS*/ /*^getnamedsymbol*/ /*getnamedsym:SETQ*/ if (NULL == /*_._VALDATA___V158*/ meltfptr[157]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SETQ without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SETQ = melthookproc_HOOK_NAMED_SYMBOL ("SETQ", (long) MELT_GET); /*_._VALDATA___V158*/ meltfptr[157] = (melt_ptr_t) meltsy_SETQ; } /*endgetnamedsym SETQ*/ /*^getnamedsymbol*/ /*getnamedsym:FOREVER*/ if (NULL == /*_._VALDATA___V160*/ meltfptr[159]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol FOREVER without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_FOREVER = melthookproc_HOOK_NAMED_SYMBOL ("FOREVER", (long) MELT_GET); /*_._VALDATA___V160*/ meltfptr[159] = (melt_ptr_t) meltsy_FOREVER; } /*endgetnamedsym FOREVER*/ /*^getnamedsymbol*/ /*getnamedsym:ARGLOOP*/ if (NULL == /*_._VALDATA___V162*/ meltfptr[161]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol ARGLOOP without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_ARGLOOP = melthookproc_HOOK_NAMED_SYMBOL ("ARGLOOP", (long) MELT_GET); /*_._VALDATA___V162*/ meltfptr[161] = (melt_ptr_t) meltsy_ARGLOOP; } /*endgetnamedsym ARGLOOP*/ /*^getnamedsymbol*/ /*getnamedsym:PUT_INT*/ if (NULL == /*_._VALDATA___V164*/ meltfptr[163]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol PUT_INT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_PUT_INT = melthookproc_HOOK_NAMED_SYMBOL ("PUT_INT", (long) MELT_GET); /*_._VALDATA___V164*/ meltfptr[163] = (melt_ptr_t) meltsy_PUT_INT; } /*endgetnamedsym PUT_INT*/ /*^getnamedsymbol*/ /*getnamedsym:VARIADIC*/ if (NULL == /*_._VALDATA___V166*/ meltfptr[165]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol VARIADIC without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_VARIADIC = melthookproc_HOOK_NAMED_SYMBOL ("VARIADIC", (long) MELT_GET); /*_._VALDATA___V166*/ meltfptr[165] = (melt_ptr_t) meltsy_VARIADIC; } /*endgetnamedsym VARIADIC*/ /*^getnamedsymbol*/ /*getnamedsym:EXIT*/ if (NULL == /*_._VALDATA___V168*/ meltfptr[167]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol EXIT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_EXIT = melthookproc_HOOK_NAMED_SYMBOL ("EXIT", (long) MELT_GET); /*_._VALDATA___V168*/ meltfptr[167] = (melt_ptr_t) meltsy_EXIT; } /*endgetnamedsym EXIT*/ /*^getnamedkeyword*/ /*getnamedkeyw:CSTRING*/ { melt_ptr_t kw_CSTRING = melthookproc_HOOK_NAMED_KEYWORD ("CSTRING", (long) MELT_GET); if (kw_CSTRING) /*_._VALDATA___V170*/ meltfptr[169] = (melt_ptr_t) kw_CSTRING; } /*^getnamedsymbol*/ /*getnamedsym:STR*/ if (NULL == /*_._VALDATA___V172*/ meltfptr[171]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol STR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_STR = melthookproc_HOOK_NAMED_SYMBOL ("STR", (long) MELT_GET); /*_._VALDATA___V172*/ meltfptr[171] = (melt_ptr_t) meltsy_STR; } /*endgetnamedsym STR*/ /*^getnamedsymbol*/ /*getnamedsym:BS*/ if (NULL == /*_._VALDATA___V174*/ meltfptr[173]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol BS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_BS = melthookproc_HOOK_NAMED_SYMBOL ("BS", (long) MELT_GET); /*_._VALDATA___V174*/ meltfptr[173] = (melt_ptr_t) meltsy_BS; } /*endgetnamedsym BS*/ /*^getnamedsymbol*/ /*getnamedsym:CONSTANT_BOX*/ if (NULL == /*_._VALDATA___V176*/ meltfptr[175]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CONSTANT_BOX without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CONSTANT_BOX = melthookproc_HOOK_NAMED_SYMBOL ("CONSTANT_BOX", (long) MELT_GET); /*_._VALDATA___V176*/ meltfptr[175] = (melt_ptr_t) meltsy_CONSTANT_BOX; } /*endgetnamedsym CONSTANT_BOX*/ /*^getnamedsymbol*/ /*getnamedsym:+*/ if (NULL == /*_._VALDATA___V178*/ meltfptr[177]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol + without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_pl = melthookproc_HOOK_NAMED_SYMBOL ("+", (long) MELT_GET); /*_._VALDATA___V178*/ meltfptr[177] = (melt_ptr_t) meltsy_pl; } /*endgetnamedsym +*/ /*^getnamedsymbol*/ /*getnamedsym:MULTIPLE_PUT_NTH*/ if (NULL == /*_._VALDATA___V180*/ meltfptr[179]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol MULTIPLE_PUT_NTH without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MULTIPLE_PUT_NTH = melthookproc_HOOK_NAMED_SYMBOL ("MULTIPLE_PUT_NTH", (long) MELT_GET); /*_._VALDATA___V180*/ meltfptr[179] = (melt_ptr_t) meltsy_MULTIPLE_PUT_NTH; } /*endgetnamedsym MULTIPLE_PUT_NTH*/ /*^getnamedsymbol*/ /*getnamedsym:VOID*/ if (NULL == /*_._VALDATA___V182*/ meltfptr[181]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol VOID without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_VOID = melthookproc_HOOK_NAMED_SYMBOL ("VOID", (long) MELT_GET); /*_._VALDATA___V182*/ meltfptr[181] = (melt_ptr_t) meltsy_VOID; } /*endgetnamedsym VOID*/ /*^getnamedkeyword*/ /*getnamedkeyw:LONG*/ { melt_ptr_t kw_LONG = melthookproc_HOOK_NAMED_KEYWORD ("LONG", (long) MELT_GET); if (kw_LONG) /*_._VALDATA___V184*/ meltfptr[183] = (melt_ptr_t) kw_LONG; } /*^getnamedsymbol*/ /*getnamedsym:L*/ if (NULL == /*_._VALDATA___V186*/ meltfptr[185]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol L without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_L = melthookproc_HOOK_NAMED_SYMBOL ("L", (long) MELT_GET); /*_._VALDATA___V186*/ meltfptr[185] = (melt_ptr_t) meltsy_L; } /*endgetnamedsym L*/ /*^getnamedsymbol*/ /*getnamedsym:SN*/ if (NULL == /*_._VALDATA___V188*/ meltfptr[187]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SN without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SN = melthookproc_HOOK_NAMED_SYMBOL ("SN", (long) MELT_GET); /*_._VALDATA___V188*/ meltfptr[187] = (melt_ptr_t) meltsy_SN; } /*endgetnamedsym SN*/ /*^getnamedkeyword*/ /*getnamedkeyw:TREE*/ { melt_ptr_t kw_TREE = melthookproc_HOOK_NAMED_KEYWORD ("TREE", (long) MELT_GET); if (kw_TREE) /*_._VALDATA___V194*/ meltfptr[193] = (melt_ptr_t) kw_TREE; } /*^getnamedsymbol*/ /*getnamedsym:TR*/ if (NULL == /*_._VALDATA___V196*/ meltfptr[195]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol TR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_TR = melthookproc_HOOK_NAMED_SYMBOL ("TR", (long) MELT_GET); /*_._VALDATA___V196*/ meltfptr[195] = (melt_ptr_t) meltsy_TR; } /*endgetnamedsym TR*/ /*^getnamedsymbol*/ /*getnamedsym:ASSERT_MSG*/ if (NULL == /*_._VALDATA___V198*/ meltfptr[197]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol ASSERT_MSG without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_ASSERT_MSG = melthookproc_HOOK_NAMED_SYMBOL ("ASSERT_MSG", (long) MELT_GET); /*_._VALDATA___V198*/ meltfptr[197] = (melt_ptr_t) meltsy_ASSERT_MSG; } /*endgetnamedsym ASSERT_MSG*/ /*^getnamedsymbol*/ /*getnamedsym:IS_CLOSURE*/ if (NULL == /*_._VALDATA___V200*/ meltfptr[199]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol IS_CLOSURE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_IS_CLOSURE = melthookproc_HOOK_NAMED_SYMBOL ("IS_CLOSURE", (long) MELT_GET); /*_._VALDATA___V200*/ meltfptr[199] = (melt_ptr_t) meltsy_IS_CLOSURE; } /*endgetnamedsym IS_CLOSURE*/ /*^getnamedsymbol*/ /*getnamedsym:DIAGV_TREE*/ if (NULL == /*_._VALDATA___V202*/ meltfptr[201]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol DIAGV_TREE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DIAGV_TREE = melthookproc_HOOK_NAMED_SYMBOL ("DIAGV_TREE", (long) MELT_GET); /*_._VALDATA___V202*/ meltfptr[201] = (melt_ptr_t) meltsy_DIAGV_TREE; } /*endgetnamedsym DIAGV_TREE*/ /*^getnamedsymbol*/ /*getnamedsym:S*/ if (NULL == /*_._VALDATA___V204*/ meltfptr[203]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol S without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_S = melthookproc_HOOK_NAMED_SYMBOL ("S", (long) MELT_GET); /*_._VALDATA___V204*/ meltfptr[203] = (melt_ptr_t) meltsy_S; } /*endgetnamedsym S*/ /*^getnamedkeyword*/ /*getnamedkeyw:GIMPLE*/ { melt_ptr_t kw_GIMPLE = melthookproc_HOOK_NAMED_KEYWORD ("GIMPLE", (long) MELT_GET); if (kw_GIMPLE) /*_._VALDATA___V206*/ meltfptr[205] = (melt_ptr_t) kw_GIMPLE; } /*^getnamedsymbol*/ /*getnamedsym:GI*/ if (NULL == /*_._VALDATA___V208*/ meltfptr[207]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol GI without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_GI = melthookproc_HOOK_NAMED_SYMBOL ("GI", (long) MELT_GET); /*_._VALDATA___V208*/ meltfptr[207] = (melt_ptr_t) meltsy_GI; } /*endgetnamedsym GI*/ /*^getnamedsymbol*/ /*getnamedsym:DIAGV_GIMPLE*/ if (NULL == /*_._VALDATA___V210*/ meltfptr[209]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol DIAGV_GIMPLE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DIAGV_GIMPLE = melthookproc_HOOK_NAMED_SYMBOL ("DIAGV_GIMPLE", (long) MELT_GET); /*_._VALDATA___V210*/ meltfptr[209] = (melt_ptr_t) meltsy_DIAGV_GIMPLE; } /*endgetnamedsym DIAGV_GIMPLE*/ /*^getnamedkeyword*/ /*getnamedkeyw:GIMPLE_SEQ*/ { melt_ptr_t kw_GIMPLE_SEQ = melthookproc_HOOK_NAMED_KEYWORD ("GIMPLE_SEQ", (long) MELT_GET); if (kw_GIMPLE_SEQ) /*_._VALDATA___V212*/ meltfptr[211] = (melt_ptr_t) kw_GIMPLE_SEQ; } /*^getnamedsymbol*/ /*getnamedsym:GS*/ if (NULL == /*_._VALDATA___V214*/ meltfptr[213]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol GS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_GS = melthookproc_HOOK_NAMED_SYMBOL ("GS", (long) MELT_GET); /*_._VALDATA___V214*/ meltfptr[213] = (melt_ptr_t) meltsy_GS; } /*endgetnamedsym GS*/ /*^getnamedsymbol*/ /*getnamedsym:DIAGV_GIMPLE_SEQ*/ if (NULL == /*_._VALDATA___V216*/ meltfptr[215]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol DIAGV_GIMPLE_SEQ without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DIAGV_GIMPLE_SEQ = melthookproc_HOOK_NAMED_SYMBOL ("DIAGV_GIMPLE_SEQ", (long) MELT_GET); /*_._VALDATA___V216*/ meltfptr[215] = (melt_ptr_t) meltsy_DIAGV_GIMPLE_SEQ; } /*endgetnamedsym DIAGV_GIMPLE_SEQ*/ /*^getnamedkeyword*/ /*getnamedkeyw:BASIC_BLOCK*/ { melt_ptr_t kw_BASIC_BLOCK = melthookproc_HOOK_NAMED_KEYWORD ("BASIC_BLOCK", (long) MELT_GET); if (kw_BASIC_BLOCK) /*_._VALDATA___V218*/ meltfptr[217] = (melt_ptr_t) kw_BASIC_BLOCK; } /*^getnamedsymbol*/ /*getnamedsym:BB*/ if (NULL == /*_._VALDATA___V220*/ meltfptr[219]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol BB without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_BB = melthookproc_HOOK_NAMED_SYMBOL ("BB", (long) MELT_GET); /*_._VALDATA___V220*/ meltfptr[219] = (melt_ptr_t) meltsy_BB; } /*endgetnamedsym BB*/ /*^getnamedsymbol*/ /*getnamedsym:DIAGV_BASIC_BLOCK*/ if (NULL == /*_._VALDATA___V222*/ meltfptr[221]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol DIAGV_BASIC_BLOCK without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DIAGV_BASIC_BLOCK = melthookproc_HOOK_NAMED_SYMBOL ("DIAGV_BASIC_BLOCK", (long) MELT_GET); /*_._VALDATA___V222*/ meltfptr[221] = (melt_ptr_t) meltsy_DIAGV_BASIC_BLOCK; } /*endgetnamedsym DIAGV_BASIC_BLOCK*/ /*^getnamedkeyword*/ /*getnamedkeyw:EDGE*/ { melt_ptr_t kw_EDGE = melthookproc_HOOK_NAMED_KEYWORD ("EDGE", (long) MELT_GET); if (kw_EDGE) /*_._VALDATA___V224*/ meltfptr[223] = (melt_ptr_t) kw_EDGE; } /*^getnamedsymbol*/ /*getnamedsym:ED*/ if (NULL == /*_._VALDATA___V226*/ meltfptr[225]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol ED without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_ED = melthookproc_HOOK_NAMED_SYMBOL ("ED", (long) MELT_GET); /*_._VALDATA___V226*/ meltfptr[225] = (melt_ptr_t) meltsy_ED; } /*endgetnamedsym ED*/ /*^getnamedsymbol*/ /*getnamedsym:DIAGV_EDGE*/ if (NULL == /*_._VALDATA___V228*/ meltfptr[227]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol DIAGV_EDGE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DIAGV_EDGE = melthookproc_HOOK_NAMED_SYMBOL ("DIAGV_EDGE", (long) MELT_GET); /*_._VALDATA___V228*/ meltfptr[227] = (melt_ptr_t) meltsy_DIAGV_EDGE; } /*endgetnamedsym DIAGV_EDGE*/ /*^getnamedkeyword*/ /*getnamedkeyw:VALUE*/ { melt_ptr_t kw_VALUE = melthookproc_HOOK_NAMED_KEYWORD ("VALUE", (long) MELT_GET); if (kw_VALUE) /*_._VALDATA___V230*/ meltfptr[229] = (melt_ptr_t) kw_VALUE; } /*^getnamedsymbol*/ /*getnamedsym:V*/ if (NULL == /*_._VALDATA___V232*/ meltfptr[231]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol V without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_V = melthookproc_HOOK_NAMED_SYMBOL ("V", (long) MELT_GET); /*_._VALDATA___V232*/ meltfptr[231] = (melt_ptr_t) meltsy_V; } /*endgetnamedsym V*/ /*^getnamedsymbol*/ /*getnamedsym:COND*/ if (NULL == /*_._VALDATA___V234*/ meltfptr[233]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol COND without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_COND = melthookproc_HOOK_NAMED_SYMBOL ("COND", (long) MELT_GET); /*_._VALDATA___V234*/ meltfptr[233] = (melt_ptr_t) meltsy_COND; } /*endgetnamedsym COND*/ /*^getnamedsymbol*/ /*getnamedsym:IS_INTEGERBOX*/ if (NULL == /*_._VALDATA___V236*/ meltfptr[235]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol IS_INTEGERBOX without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_IS_INTEGERBOX = melthookproc_HOOK_NAMED_SYMBOL ("IS_INTEGERBOX", (long) MELT_GET); /*_._VALDATA___V236*/ meltfptr[235] = (melt_ptr_t) meltsy_IS_INTEGERBOX; } /*endgetnamedsym IS_INTEGERBOX*/ /*^getnamedsymbol*/ /*getnamedsym:GET_INT*/ if (NULL == /*_._VALDATA___V238*/ meltfptr[237]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol GET_INT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_GET_INT = melthookproc_HOOK_NAMED_SYMBOL ("GET_INT", (long) MELT_GET); /*_._VALDATA___V238*/ meltfptr[237] = (melt_ptr_t) meltsy_GET_INT; } /*endgetnamedsym GET_INT*/ /*^getnamedsymbol*/ /*getnamedsym:IS_STRING*/ if (NULL == /*_._VALDATA___V240*/ meltfptr[239]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol IS_STRING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_IS_STRING = melthookproc_HOOK_NAMED_SYMBOL ("IS_STRING", (long) MELT_GET); /*_._VALDATA___V240*/ meltfptr[239] = (melt_ptr_t) meltsy_IS_STRING; } /*endgetnamedsym IS_STRING*/ /*^getnamedsymbol*/ /*getnamedsym:IS_A*/ if (NULL == /*_._VALDATA___V242*/ meltfptr[241]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol IS_A without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_IS_A = melthookproc_HOOK_NAMED_SYMBOL ("IS_A", (long) MELT_GET); /*_._VALDATA___V242*/ meltfptr[241] = (melt_ptr_t) meltsy_IS_A; } /*endgetnamedsym IS_A*/ /*^getnamedsymbol*/ /*getnamedsym:AND*/ if (NULL == /*_._VALDATA___V244*/ meltfptr[243]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol AND without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_AND = melthookproc_HOOK_NAMED_SYMBOL ("AND", (long) MELT_GET); /*_._VALDATA___V244*/ meltfptr[243] = (melt_ptr_t) meltsy_AND; } /*endgetnamedsym AND*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_KEYWORD*/ if (NULL == /*_._VALDATA___V246*/ meltfptr[245]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_KEYWORD without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_KEYWORD = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_KEYWORD", (long) MELT_GET); /*_._VALDATA___V246*/ meltfptr[245] = (melt_ptr_t) meltsy_CLASS_KEYWORD; } /*endgetnamedsym CLASS_KEYWORD*/ /*^getnamedsymbol*/ /*getnamedsym:GET_FIELD*/ if (NULL == /*_._VALDATA___V248*/ meltfptr[247]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol GET_FIELD without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_GET_FIELD = melthookproc_HOOK_NAMED_SYMBOL ("GET_FIELD", (long) MELT_GET); /*_._VALDATA___V248*/ meltfptr[247] = (melt_ptr_t) meltsy_GET_FIELD; } /*endgetnamedsym GET_FIELD*/ /*^getnamedkeyword*/ /*getnamedkeyw:SYMB_DATA*/ { melt_ptr_t kw_SYMB_DATA = melthookproc_HOOK_NAMED_KEYWORD ("SYMB_DATA", (long) MELT_GET); if (kw_SYMB_DATA) /*_._VALDATA___V250*/ meltfptr[249] = (melt_ptr_t) kw_SYMB_DATA; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_NAMED*/ if (NULL == /*_._VALDATA___V252*/ meltfptr[251]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_NAMED without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_NAMED = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_NAMED", (long) MELT_GET); /*_._VALDATA___V252*/ meltfptr[251] = (melt_ptr_t) meltsy_CLASS_NAMED; } /*endgetnamedsym CLASS_NAMED*/ /*^getnamedsymbol*/ /*getnamedsym:NAM*/ if (NULL == /*_._VALDATA___V254*/ meltfptr[253]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol NAM without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_NAM = melthookproc_HOOK_NAMED_SYMBOL ("NAM", (long) MELT_GET); /*_._VALDATA___V254*/ meltfptr[253] = (melt_ptr_t) meltsy_NAM; } /*endgetnamedsym NAM*/ /*^getnamedsymbol*/ /*getnamedsym:UNSAFE_GET_FIELD*/ if (NULL == /*_._VALDATA___V256*/ meltfptr[255]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol UNSAFE_GET_FIELD without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_UNSAFE_GET_FIELD = melthookproc_HOOK_NAMED_SYMBOL ("UNSAFE_GET_FIELD", (long) MELT_GET); /*_._VALDATA___V256*/ meltfptr[255] = (melt_ptr_t) meltsy_UNSAFE_GET_FIELD; } /*endgetnamedsym UNSAFE_GET_FIELD*/ /*^getnamedkeyword*/ /*getnamedkeyw:NAMED_NAME*/ { melt_ptr_t kw_NAMED_NAME = melthookproc_HOOK_NAMED_KEYWORD ("NAMED_NAME", (long) MELT_GET); if (kw_NAMED_NAME) /*_._VALDATA___V258*/ meltfptr[257] = (melt_ptr_t) kw_NAMED_NAME; } /*^getnamedkeyword*/ /*getnamedkeyw:ELSE*/ { melt_ptr_t kw_ELSE = melthookproc_HOOK_NAMED_KEYWORD ("ELSE", (long) MELT_GET); if (kw_ELSE) /*_._VALDATA___V260*/ meltfptr[259] = (melt_ptr_t) kw_ELSE; } /*^getnamedsymbol*/ /*getnamedsym:VCTY*/ if (NULL == /*_._VALDATA___V262*/ meltfptr[261]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol VCTY without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_VCTY = melthookproc_HOOK_NAMED_SYMBOL ("VCTY", (long) MELT_GET); /*_._VALDATA___V262*/ meltfptr[261] = (melt_ptr_t) meltsy_VCTY; } /*endgetnamedsym VCTY*/ /*^getnamedsymbol*/ /*getnamedsym:VARIADIC_CTYPE*/ if (NULL == /*_._VALDATA___V264*/ meltfptr[263]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol VARIADIC_CTYPE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_VARIADIC_CTYPE = melthookproc_HOOK_NAMED_SYMBOL ("VARIADIC_CTYPE", (long) MELT_GET); /*_._VALDATA___V264*/ meltfptr[263] = (melt_ptr_t) meltsy_VARIADIC_CTYPE; } /*endgetnamedsym VARIADIC_CTYPE*/ /*^getnamedsymbol*/ /*getnamedsym:ERRORMSG_STRV*/ if (NULL == /*_._VALDATA___V266*/ meltfptr[265]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol ERRORMSG_STRV without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_ERRORMSG_STRV = melthookproc_HOOK_NAMED_SYMBOL ("ERRORMSG_STRV", (long) MELT_GET); /*_._VALDATA___V266*/ meltfptr[265] = (melt_ptr_t) meltsy_ERRORMSG_STRV; } /*endgetnamedsym ERRORMSG_STRV*/ /*^getnamedsymbol*/ /*getnamedsym:DIAGNOSTIC_ARGS_MACRO*/ if (NULL == /*_._VALDATA___V285*/ meltfptr[284]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol DIAGNOSTIC_ARGS_MACRO without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DIAGNOSTIC_ARGS_MACRO = melthookproc_HOOK_NAMED_SYMBOL ("DIAGNOSTIC_ARGS_MACRO", (long) MELT_GET); /*_._VALDATA___V285*/ meltfptr[284] = (melt_ptr_t) meltsy_DIAGNOSTIC_ARGS_MACRO; } /*endgetnamedsym DIAGNOSTIC_ARGS_MACRO*/ /*^getnamedsymbol*/ /*getnamedsym:DISCR_STRBUF*/ if (NULL == /*_._VALDATA___V289*/ meltfptr[288]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol DISCR_STRBUF without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DISCR_STRBUF = melthookproc_HOOK_NAMED_SYMBOL ("DISCR_STRBUF", (long) MELT_GET); /*_._VALDATA___V289*/ meltfptr[288] = (melt_ptr_t) meltsy_DISCR_STRBUF; } /*endgetnamedsym DISCR_STRBUF*/ /*^getnamedsymbol*/ /*getnamedsym:ADD2OUT*/ if (NULL == /*_._VALDATA___V291*/ meltfptr[290]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol ADD2OUT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_ADD2OUT = melthookproc_HOOK_NAMED_SYMBOL ("ADD2OUT", (long) MELT_GET); /*_._VALDATA___V291*/ meltfptr[290] = (melt_ptr_t) meltsy_ADD2OUT; } /*endgetnamedsym ADD2OUT*/ /*^getnamedsymbol*/ /*getnamedsym:DIAGNOSTIC_EXPAND_MESSAGE*/ if (NULL == /*_._VALDATA___V293*/ meltfptr[292]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol DIAGNOSTIC_EXPAND_MESSAGE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DIAGNOSTIC_EXPAND_MESSAGE = melthookproc_HOOK_NAMED_SYMBOL ("DIAGNOSTIC_EXPAND_MESSAGE", (long) MELT_GET); /*_._VALDATA___V293*/ meltfptr[292] = (melt_ptr_t) meltsy_DIAGNOSTIC_EXPAND_MESSAGE; } /*endgetnamedsym DIAGNOSTIC_EXPAND_MESSAGE*/ /*^getnamedsymbol*/ /*getnamedsym:REGISTER_DIAG_BASIC_BLOCK*/ if (NULL == /*_._VALDATA___V295*/ meltfptr[294]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol REGISTER_DIAG_BASIC_BLOCK without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_REGISTER_DIAG_BASIC_BLOCK = melthookproc_HOOK_NAMED_SYMBOL ("REGISTER_DIAG_BASIC_BLOCK", (long) MELT_GET); /*_._VALDATA___V295*/ meltfptr[294] = (melt_ptr_t) meltsy_REGISTER_DIAG_BASIC_BLOCK; } /*endgetnamedsym REGISTER_DIAG_BASIC_BLOCK*/ /*^getnamedsymbol*/ /*getnamedsym:REGISTER_DIAG_EDGE*/ if (NULL == /*_._VALDATA___V297*/ meltfptr[296]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol REGISTER_DIAG_EDGE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_REGISTER_DIAG_EDGE = melthookproc_HOOK_NAMED_SYMBOL ("REGISTER_DIAG_EDGE", (long) MELT_GET); /*_._VALDATA___V297*/ meltfptr[296] = (melt_ptr_t) meltsy_REGISTER_DIAG_EDGE; } /*endgetnamedsym REGISTER_DIAG_EDGE*/ /*^getnamedsymbol*/ /*getnamedsym:REGISTER_DIAG_GIMPLE*/ if (NULL == /*_._VALDATA___V299*/ meltfptr[298]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol REGISTER_DIAG_GIMPLE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_REGISTER_DIAG_GIMPLE = melthookproc_HOOK_NAMED_SYMBOL ("REGISTER_DIAG_GIMPLE", (long) MELT_GET); /*_._VALDATA___V299*/ meltfptr[298] = (melt_ptr_t) meltsy_REGISTER_DIAG_GIMPLE; } /*endgetnamedsym REGISTER_DIAG_GIMPLE*/ /*^getnamedsymbol*/ /*getnamedsym:REGISTER_DIAG_GIMPLE_SEQ*/ if (NULL == /*_._VALDATA___V301*/ meltfptr[300]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol REGISTER_DIAG_GIMPLE_SEQ without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_REGISTER_DIAG_GIMPLE_SEQ = melthookproc_HOOK_NAMED_SYMBOL ("REGISTER_DIAG_GIMPLE_SEQ", (long) MELT_GET); /*_._VALDATA___V301*/ meltfptr[300] = (melt_ptr_t) meltsy_REGISTER_DIAG_GIMPLE_SEQ; } /*endgetnamedsym REGISTER_DIAG_GIMPLE_SEQ*/ /*^getnamedsymbol*/ /*getnamedsym:REGISTER_DIAG_TREE*/ if (NULL == /*_._VALDATA___V303*/ meltfptr[302]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol REGISTER_DIAG_TREE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_REGISTER_DIAG_TREE = melthookproc_HOOK_NAMED_SYMBOL ("REGISTER_DIAG_TREE", (long) MELT_GET); /*_._VALDATA___V303*/ meltfptr[302] = (melt_ptr_t) meltsy_REGISTER_DIAG_TREE; } /*endgetnamedsym REGISTER_DIAG_TREE*/ /*^getnamedsymbol*/ /*getnamedsym:ERROR_AT*/ if (NULL == /*_._VALDATA___V313*/ meltfptr[312]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol ERROR_AT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_ERROR_AT = melthookproc_HOOK_NAMED_SYMBOL ("ERROR_AT", (long) MELT_GET); /*_._VALDATA___V313*/ meltfptr[312] = (melt_ptr_t) meltsy_ERROR_AT; } /*endgetnamedsym ERROR_AT*/ /*^getnamedsymbol*/ /*getnamedsym:FATAL_ERROR_AT*/ if (NULL == /*_._VALDATA___V315*/ meltfptr[314]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol FATAL_ERROR_AT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_FATAL_ERROR_AT = melthookproc_HOOK_NAMED_SYMBOL ("FATAL_ERROR_AT", (long) MELT_GET); /*_._VALDATA___V315*/ meltfptr[314] = (melt_ptr_t) meltsy_FATAL_ERROR_AT; } /*endgetnamedsym FATAL_ERROR_AT*/ /*^getnamedsymbol*/ /*getnamedsym:WARNING_AT*/ if (NULL == /*_._VALDATA___V317*/ meltfptr[316]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol WARNING_AT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_WARNING_AT = melthookproc_HOOK_NAMED_SYMBOL ("WARNING_AT", (long) MELT_GET); /*_._VALDATA___V317*/ meltfptr[316] = (melt_ptr_t) meltsy_WARNING_AT; } /*endgetnamedsym WARNING_AT*/ /*^getnamedsymbol*/ /*getnamedsym:INFORM_AT*/ if (NULL == /*_._VALDATA___V319*/ meltfptr[318]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol INFORM_AT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_INFORM_AT = melthookproc_HOOK_NAMED_SYMBOL ("INFORM_AT", (long) MELT_GET); /*_._VALDATA___V319*/ meltfptr[318] = (melt_ptr_t) meltsy_INFORM_AT; } /*endgetnamedsym INFORM_AT*/ /*^getnamedsymbol*/ /*getnamedsym:IS_RECURSIVELY_CONSTRUCTIBLE*/ if (NULL == /*_._VALDATA___V321*/ meltfptr[320]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol IS_RECURSIVELY_CONSTRUCTIBLE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_IS_RECURSIVELY_CONSTRUCTIBLE = melthookproc_HOOK_NAMED_SYMBOL ("IS_RECURSIVELY_CONSTRUCTIBLE", (long) MELT_GET); /*_._VALDATA___V321*/ meltfptr[320] = (melt_ptr_t) meltsy_IS_RECURSIVELY_CONSTRUCTIBLE; } /*endgetnamedsym IS_RECURSIVELY_CONSTRUCTIBLE*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SELECTOR*/ if (NULL == /*_._VALDATA___V323*/ meltfptr[322]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SELECTOR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SELECTOR = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SELECTOR", (long) MELT_GET); /*_._VALDATA___V323*/ meltfptr[322] = (melt_ptr_t) meltsy_CLASS_SELECTOR; } /*endgetnamedsym CLASS_SELECTOR*/ /*^getnamedsymbol*/ /*getnamedsym:RECV*/ if (NULL == /*_._VALDATA___V325*/ meltfptr[324]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol RECV without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_RECV = melthookproc_HOOK_NAMED_SYMBOL ("RECV", (long) MELT_GET); /*_._VALDATA___V325*/ meltfptr[324] = (melt_ptr_t) meltsy_RECV; } /*endgetnamedsym RECV*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_GENERATOR_DEVICE*/ if (NULL == /*_._VALDATA___V331*/ meltfptr[330]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_GENERATOR_DEVICE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_GENERATOR_DEVICE = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_GENERATOR_DEVICE", (long) MELT_GET); /*_._VALDATA___V331*/ meltfptr[330] = (melt_ptr_t) meltsy_CLASS_SOURCE_GENERATOR_DEVICE; } /*endgetnamedsym CLASS_SOURCE_GENERATOR_DEVICE*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE*/ if (NULL == /*_._VALDATA___V333*/ meltfptr[332]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE", (long) MELT_GET); /*_._VALDATA___V333*/ meltfptr[332] = (melt_ptr_t) meltsy_CLASS_SOURCE; } /*endgetnamedsym CLASS_SOURCE*/ /*^getnamedsymbol*/ /*getnamedsym:SRCGEN_DEFIN*/ if (NULL == /*_._VALDATA___V343*/ meltfptr[342]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SRCGEN_DEFIN without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SRCGEN_DEFIN = melthookproc_HOOK_NAMED_SYMBOL ("SRCGEN_DEFIN", (long) MELT_GET); /*_._VALDATA___V343*/ meltfptr[342] = (melt_ptr_t) meltsy_SRCGEN_DEFIN; } /*endgetnamedsym SRCGEN_DEFIN*/ /*^getnamedsymbol*/ /*getnamedsym:SRCGEN_REPR*/ if (NULL == /*_._VALDATA___V345*/ meltfptr[344]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SRCGEN_REPR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SRCGEN_REPR = melthookproc_HOOK_NAMED_SYMBOL ("SRCGEN_REPR", (long) MELT_GET); /*_._VALDATA___V345*/ meltfptr[344] = (melt_ptr_t) meltsy_SRCGEN_REPR; } /*endgetnamedsym SRCGEN_REPR*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_LAZY_MACRO_EXPANSION*/ if (NULL == /*_._VALDATA___V347*/ meltfptr[346]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_LAZY_MACRO_EXPANSION without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_LAZY_MACRO_EXPANSION = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_LAZY_MACRO_EXPANSION", (long) MELT_GET); /*_._VALDATA___V347*/ meltfptr[346] = (melt_ptr_t) meltsy_CLASS_SOURCE_LAZY_MACRO_EXPANSION; } /*endgetnamedsym CLASS_SOURCE_LAZY_MACRO_EXPANSION*/ /*^getnamedsymbol*/ /*getnamedsym:SLAZYMACRO_FUN*/ if (NULL == /*_._VALDATA___V357*/ meltfptr[356]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SLAZYMACRO_FUN without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SLAZYMACRO_FUN = melthookproc_HOOK_NAMED_SYMBOL ("SLAZYMACRO_FUN", (long) MELT_GET); /*_._VALDATA___V357*/ meltfptr[356] = (melt_ptr_t) meltsy_SLAZYMACRO_FUN; } /*endgetnamedsym SLAZYMACRO_FUN*/ /*^getnamedsymbol*/ /*getnamedsym:SLAZYMACRO_OPER*/ if (NULL == /*_._VALDATA___V359*/ meltfptr[358]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SLAZYMACRO_OPER without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SLAZYMACRO_OPER = melthookproc_HOOK_NAMED_SYMBOL ("SLAZYMACRO_OPER", (long) MELT_GET); /*_._VALDATA___V359*/ meltfptr[358] = (melt_ptr_t) meltsy_SLAZYMACRO_OPER; } /*endgetnamedsym SLAZYMACRO_OPER*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_ARGUMENTED_OPERATOR*/ if (NULL == /*_._VALDATA___V361*/ meltfptr[360]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_ARGUMENTED_OPERATOR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_ARGUMENTED_OPERATOR = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_ARGUMENTED_OPERATOR", (long) MELT_GET); /*_._VALDATA___V361*/ meltfptr[360] = (melt_ptr_t) meltsy_CLASS_SOURCE_ARGUMENTED_OPERATOR; } /*endgetnamedsym CLASS_SOURCE_ARGUMENTED_OPERATOR*/ /*^getnamedsymbol*/ /*getnamedsym:SARGOP_ARGS*/ if (NULL == /*_._VALDATA___V369*/ meltfptr[368]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SARGOP_ARGS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SARGOP_ARGS = melthookproc_HOOK_NAMED_SYMBOL ("SARGOP_ARGS", (long) MELT_GET); /*_._VALDATA___V369*/ meltfptr[368] = (melt_ptr_t) meltsy_SARGOP_ARGS; } /*endgetnamedsym SARGOP_ARGS*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_APPLY*/ if (NULL == /*_._VALDATA___V371*/ meltfptr[370]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_APPLY without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_APPLY = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_APPLY", (long) MELT_GET); /*_._VALDATA___V371*/ meltfptr[370] = (melt_ptr_t) meltsy_CLASS_SOURCE_APPLY; } /*endgetnamedsym CLASS_SOURCE_APPLY*/ /*^getnamedsymbol*/ /*getnamedsym:SAPP_FUN*/ if (NULL == /*_._VALDATA___V379*/ meltfptr[378]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SAPP_FUN without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SAPP_FUN = melthookproc_HOOK_NAMED_SYMBOL ("SAPP_FUN", (long) MELT_GET); /*_._VALDATA___V379*/ meltfptr[378] = (melt_ptr_t) meltsy_SAPP_FUN; } /*endgetnamedsym SAPP_FUN*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_MSEND*/ if (NULL == /*_._VALDATA___V381*/ meltfptr[380]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_MSEND without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_MSEND = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_MSEND", (long) MELT_GET); /*_._VALDATA___V381*/ meltfptr[380] = (melt_ptr_t) meltsy_CLASS_SOURCE_MSEND; } /*endgetnamedsym CLASS_SOURCE_MSEND*/ /*^getnamedsymbol*/ /*getnamedsym:MSEND_SELSYMB*/ if (NULL == /*_._VALDATA___V391*/ meltfptr[390]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol MSEND_SELSYMB without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MSEND_SELSYMB = melthookproc_HOOK_NAMED_SYMBOL ("MSEND_SELSYMB", (long) MELT_GET); /*_._VALDATA___V391*/ meltfptr[390] = (melt_ptr_t) meltsy_MSEND_SELSYMB; } /*endgetnamedsym MSEND_SELSYMB*/ /*^getnamedsymbol*/ /*getnamedsym:MSEND_RECV*/ if (NULL == /*_._VALDATA___V393*/ meltfptr[392]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol MSEND_RECV without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MSEND_RECV = melthookproc_HOOK_NAMED_SYMBOL ("MSEND_RECV", (long) MELT_GET); /*_._VALDATA___V393*/ meltfptr[392] = (melt_ptr_t) meltsy_MSEND_RECV; } /*endgetnamedsym MSEND_RECV*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_PRIMITIVE*/ if (NULL == /*_._VALDATA___V395*/ meltfptr[394]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_PRIMITIVE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_PRIMITIVE = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_PRIMITIVE", (long) MELT_GET); /*_._VALDATA___V395*/ meltfptr[394] = (melt_ptr_t) meltsy_CLASS_SOURCE_PRIMITIVE; } /*endgetnamedsym CLASS_SOURCE_PRIMITIVE*/ /*^getnamedsymbol*/ /*getnamedsym:SPRIM_OPER*/ if (NULL == /*_._VALDATA___V403*/ meltfptr[402]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SPRIM_OPER without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SPRIM_OPER = melthookproc_HOOK_NAMED_SYMBOL ("SPRIM_OPER", (long) MELT_GET); /*_._VALDATA___V403*/ meltfptr[402] = (melt_ptr_t) meltsy_SPRIM_OPER; } /*endgetnamedsym SPRIM_OPER*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_HOOK_CALL*/ if (NULL == /*_._VALDATA___V405*/ meltfptr[404]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_HOOK_CALL without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_HOOK_CALL = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_HOOK_CALL", (long) MELT_GET); /*_._VALDATA___V405*/ meltfptr[404] = (melt_ptr_t) meltsy_CLASS_SOURCE_HOOK_CALL; } /*endgetnamedsym CLASS_SOURCE_HOOK_CALL*/ /*^getnamedsymbol*/ /*getnamedsym:SHOOK_CALLED*/ if (NULL == /*_._VALDATA___V413*/ meltfptr[412]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SHOOK_CALLED without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SHOOK_CALLED = melthookproc_HOOK_NAMED_SYMBOL ("SHOOK_CALLED", (long) MELT_GET); /*_._VALDATA___V413*/ meltfptr[412] = (melt_ptr_t) meltsy_SHOOK_CALLED; } /*endgetnamedsym SHOOK_CALLED*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION*/ if (NULL == /*_._VALDATA___V415*/ meltfptr[414]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION", (long) MELT_GET); /*_._VALDATA___V415*/ meltfptr[414] = (melt_ptr_t) meltsy_CLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION; } /*endgetnamedsym CLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION*/ /*^getnamedsymbol*/ /*getnamedsym:SARITHVAR_NEUTRAL*/ if (NULL == /*_._VALDATA___V425*/ meltfptr[424]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SARITHVAR_NEUTRAL without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SARITHVAR_NEUTRAL = melthookproc_HOOK_NAMED_SYMBOL ("SARITHVAR_NEUTRAL", (long) MELT_GET); /*_._VALDATA___V425*/ meltfptr[424] = (melt_ptr_t) meltsy_SARITHVAR_NEUTRAL; } /*endgetnamedsym SARITHVAR_NEUTRAL*/ /*^getnamedsymbol*/ /*getnamedsym:SARITHVAR_PRIMITIVE*/ if (NULL == /*_._VALDATA___V427*/ meltfptr[426]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SARITHVAR_PRIMITIVE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SARITHVAR_PRIMITIVE = melthookproc_HOOK_NAMED_SYMBOL ("SARITHVAR_PRIMITIVE", (long) MELT_GET); /*_._VALDATA___V427*/ meltfptr[426] = (melt_ptr_t) meltsy_SARITHVAR_PRIMITIVE; } /*endgetnamedsym SARITHVAR_PRIMITIVE*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_CITERATION*/ if (NULL == /*_._VALDATA___V429*/ meltfptr[428]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_CITERATION without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_CITERATION = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_CITERATION", (long) MELT_GET); /*_._VALDATA___V429*/ meltfptr[428] = (melt_ptr_t) meltsy_CLASS_SOURCE_CITERATION; } /*endgetnamedsym CLASS_SOURCE_CITERATION*/ /*^getnamedsymbol*/ /*getnamedsym:SCITER_OPER*/ if (NULL == /*_._VALDATA___V441*/ meltfptr[440]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SCITER_OPER without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SCITER_OPER = melthookproc_HOOK_NAMED_SYMBOL ("SCITER_OPER", (long) MELT_GET); /*_._VALDATA___V441*/ meltfptr[440] = (melt_ptr_t) meltsy_SCITER_OPER; } /*endgetnamedsym SCITER_OPER*/ /*^getnamedsymbol*/ /*getnamedsym:SCITER_VARBIND*/ if (NULL == /*_._VALDATA___V443*/ meltfptr[442]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SCITER_VARBIND without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SCITER_VARBIND = melthookproc_HOOK_NAMED_SYMBOL ("SCITER_VARBIND", (long) MELT_GET); /*_._VALDATA___V443*/ meltfptr[442] = (melt_ptr_t) meltsy_SCITER_VARBIND; } /*endgetnamedsym SCITER_VARBIND*/ /*^getnamedsymbol*/ /*getnamedsym:SCITER_BODY*/ if (NULL == /*_._VALDATA___V445*/ meltfptr[444]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SCITER_BODY without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SCITER_BODY = melthookproc_HOOK_NAMED_SYMBOL ("SCITER_BODY", (long) MELT_GET); /*_._VALDATA___V445*/ meltfptr[444] = (melt_ptr_t) meltsy_SCITER_BODY; } /*endgetnamedsym SCITER_BODY*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_CMATCHEXPR*/ if (NULL == /*_._VALDATA___V447*/ meltfptr[446]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_CMATCHEXPR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_CMATCHEXPR = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_CMATCHEXPR", (long) MELT_GET); /*_._VALDATA___V447*/ meltfptr[446] = (melt_ptr_t) meltsy_CLASS_SOURCE_CMATCHEXPR; } /*endgetnamedsym CLASS_SOURCE_CMATCHEXPR*/ /*^getnamedsymbol*/ /*getnamedsym:SCMATX_CMATCHER*/ if (NULL == /*_._VALDATA___V455*/ meltfptr[454]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SCMATX_CMATCHER without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SCMATX_CMATCHER = melthookproc_HOOK_NAMED_SYMBOL ("SCMATX_CMATCHER", (long) MELT_GET); /*_._VALDATA___V455*/ meltfptr[454] = (melt_ptr_t) meltsy_SCMATX_CMATCHER; } /*endgetnamedsym SCMATX_CMATCHER*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_FUNMATCHEXPR*/ if (NULL == /*_._VALDATA___V457*/ meltfptr[456]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_FUNMATCHEXPR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_FUNMATCHEXPR = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_FUNMATCHEXPR", (long) MELT_GET); /*_._VALDATA___V457*/ meltfptr[456] = (melt_ptr_t) meltsy_CLASS_SOURCE_FUNMATCHEXPR; } /*endgetnamedsym CLASS_SOURCE_FUNMATCHEXPR*/ /*^getnamedsymbol*/ /*getnamedsym:SFMATX_FMATCHER*/ if (NULL == /*_._VALDATA___V467*/ meltfptr[466]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SFMATX_FMATCHER without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SFMATX_FMATCHER = melthookproc_HOOK_NAMED_SYMBOL ("SFMATX_FMATCHER", (long) MELT_GET); /*_._VALDATA___V467*/ meltfptr[466] = (melt_ptr_t) meltsy_SFMATX_FMATCHER; } /*endgetnamedsym SFMATX_FMATCHER*/ /*^getnamedsymbol*/ /*getnamedsym:SFMATX_FMATBIND*/ if (NULL == /*_._VALDATA___V469*/ meltfptr[468]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SFMATX_FMATBIND without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SFMATX_FMATBIND = melthookproc_HOOK_NAMED_SYMBOL ("SFMATX_FMATBIND", (long) MELT_GET); /*_._VALDATA___V469*/ meltfptr[468] = (melt_ptr_t) meltsy_SFMATX_FMATBIND; } /*endgetnamedsym SFMATX_FMATBIND*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_TUPLE*/ if (NULL == /*_._VALDATA___V471*/ meltfptr[470]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_TUPLE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_TUPLE = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_TUPLE", (long) MELT_GET); /*_._VALDATA___V471*/ meltfptr[470] = (melt_ptr_t) meltsy_CLASS_SOURCE_TUPLE; } /*endgetnamedsym CLASS_SOURCE_TUPLE*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_LIST*/ if (NULL == /*_._VALDATA___V477*/ meltfptr[476]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_LIST without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_LIST = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_LIST", (long) MELT_GET); /*_._VALDATA___V477*/ meltfptr[476] = (melt_ptr_t) meltsy_CLASS_SOURCE_LIST; } /*endgetnamedsym CLASS_SOURCE_LIST*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_PROGN*/ if (NULL == /*_._VALDATA___V483*/ meltfptr[482]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_PROGN without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_PROGN = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_PROGN", (long) MELT_GET); /*_._VALDATA___V483*/ meltfptr[482] = (melt_ptr_t) meltsy_CLASS_SOURCE_PROGN; } /*endgetnamedsym CLASS_SOURCE_PROGN*/ /*^getnamedsymbol*/ /*getnamedsym:SPROGN_BODY*/ if (NULL == /*_._VALDATA___V491*/ meltfptr[490]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SPROGN_BODY without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SPROGN_BODY = melthookproc_HOOK_NAMED_SYMBOL ("SPROGN_BODY", (long) MELT_GET); /*_._VALDATA___V491*/ meltfptr[490] = (melt_ptr_t) meltsy_SPROGN_BODY; } /*endgetnamedsym SPROGN_BODY*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_RETURN*/ if (NULL == /*_._VALDATA___V493*/ meltfptr[492]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_RETURN without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_RETURN = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_RETURN", (long) MELT_GET); /*_._VALDATA___V493*/ meltfptr[492] = (melt_ptr_t) meltsy_CLASS_SOURCE_RETURN; } /*endgetnamedsym CLASS_SOURCE_RETURN*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_SETQ*/ if (NULL == /*_._VALDATA___V499*/ meltfptr[498]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_SETQ without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_SETQ = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_SETQ", (long) MELT_GET); /*_._VALDATA___V499*/ meltfptr[498] = (melt_ptr_t) meltsy_CLASS_SOURCE_SETQ; } /*endgetnamedsym CLASS_SOURCE_SETQ*/ /*^getnamedsymbol*/ /*getnamedsym:SSTQ_VAR*/ if (NULL == /*_._VALDATA___V509*/ meltfptr[508]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SSTQ_VAR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SSTQ_VAR = melthookproc_HOOK_NAMED_SYMBOL ("SSTQ_VAR", (long) MELT_GET); /*_._VALDATA___V509*/ meltfptr[508] = (melt_ptr_t) meltsy_SSTQ_VAR; } /*endgetnamedsym SSTQ_VAR*/ /*^getnamedsymbol*/ /*getnamedsym:SSTQ_EXPR*/ if (NULL == /*_._VALDATA___V511*/ meltfptr[510]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SSTQ_EXPR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SSTQ_EXPR = melthookproc_HOOK_NAMED_SYMBOL ("SSTQ_EXPR", (long) MELT_GET); /*_._VALDATA___V511*/ meltfptr[510] = (melt_ptr_t) meltsy_SSTQ_EXPR; } /*endgetnamedsym SSTQ_EXPR*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_COMMENT*/ if (NULL == /*_._VALDATA___V513*/ meltfptr[512]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_COMMENT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_COMMENT = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_COMMENT", (long) MELT_GET); /*_._VALDATA___V513*/ meltfptr[512] = (melt_ptr_t) meltsy_CLASS_SOURCE_COMMENT; } /*endgetnamedsym CLASS_SOURCE_COMMENT*/ /*^getnamedsymbol*/ /*getnamedsym:SCOMM_STR*/ if (NULL == /*_._VALDATA___V521*/ meltfptr[520]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SCOMM_STR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SCOMM_STR = melthookproc_HOOK_NAMED_SYMBOL ("SCOMM_STR", (long) MELT_GET); /*_._VALDATA___V521*/ meltfptr[520] = (melt_ptr_t) meltsy_SCOMM_STR; } /*endgetnamedsym SCOMM_STR*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_CODE_STRING*/ if (NULL == /*_._VALDATA___V523*/ meltfptr[522]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_CODE_STRING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_CODE_STRING = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_CODE_STRING", (long) MELT_GET); /*_._VALDATA___V523*/ meltfptr[522] = (melt_ptr_t) meltsy_CLASS_SOURCE_CODE_STRING; } /*endgetnamedsym CLASS_SOURCE_CODE_STRING*/ /*^getnamedsymbol*/ /*getnamedsym:SC_CODESTRING*/ if (NULL == /*_._VALDATA___V531*/ meltfptr[530]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SC_CODESTRING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SC_CODESTRING = melthookproc_HOOK_NAMED_SYMBOL ("SC_CODESTRING", (long) MELT_GET); /*_._VALDATA___V531*/ meltfptr[530] = (melt_ptr_t) meltsy_SC_CODESTRING; } /*endgetnamedsym SC_CODESTRING*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE*/ if (NULL == /*_._VALDATA___V533*/ meltfptr[532]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE", (long) MELT_GET); /*_._VALDATA___V533*/ meltfptr[532] = (melt_ptr_t) meltsy_CLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE; } /*endgetnamedsym CLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_CHEADER*/ if (NULL == /*_._VALDATA___V539*/ meltfptr[538]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_CHEADER without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_CHEADER = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_CHEADER", (long) MELT_GET); /*_._VALDATA___V539*/ meltfptr[538] = (melt_ptr_t) meltsy_CLASS_SOURCE_CHEADER; } /*endgetnamedsym CLASS_SOURCE_CHEADER*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_CIMPLEMENT*/ if (NULL == /*_._VALDATA___V545*/ meltfptr[544]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_CIMPLEMENT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_CIMPLEMENT = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_CIMPLEMENT", (long) MELT_GET); /*_._VALDATA___V545*/ meltfptr[544] = (melt_ptr_t) meltsy_CLASS_SOURCE_CIMPLEMENT; } /*endgetnamedsym CLASS_SOURCE_CIMPLEMENT*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG*/ if (NULL == /*_._VALDATA___V551*/ meltfptr[550]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG", (long) MELT_GET); /*_._VALDATA___V551*/ meltfptr[550] = (melt_ptr_t) meltsy_CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG; } /*endgetnamedsym CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG*/ /*^getnamedsymbol*/ /*getnamedsym:SUSEPACKAGE_PKGTUPLE*/ if (NULL == /*_._VALDATA___V559*/ meltfptr[558]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SUSEPACKAGE_PKGTUPLE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SUSEPACKAGE_PKGTUPLE = melthookproc_HOOK_NAMED_SYMBOL ("SUSEPACKAGE_PKGTUPLE", (long) MELT_GET); /*_._VALDATA___V559*/ meltfptr[558] = (melt_ptr_t) meltsy_SUSEPACKAGE_PKGTUPLE; } /*endgetnamedsym SUSEPACKAGE_PKGTUPLE*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_QUOTE*/ if (NULL == /*_._VALDATA___V561*/ meltfptr[560]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_QUOTE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_QUOTE = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_QUOTE", (long) MELT_GET); /*_._VALDATA___V561*/ meltfptr[560] = (melt_ptr_t) meltsy_CLASS_SOURCE_QUOTE; } /*endgetnamedsym CLASS_SOURCE_QUOTE*/ /*^getnamedsymbol*/ /*getnamedsym:SQUOTED*/ if (NULL == /*_._VALDATA___V569*/ meltfptr[568]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SQUOTED without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SQUOTED = melthookproc_HOOK_NAMED_SYMBOL ("SQUOTED", (long) MELT_GET); /*_._VALDATA___V569*/ meltfptr[568] = (melt_ptr_t) meltsy_SQUOTED; } /*endgetnamedsym SQUOTED*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_QUASI_BOX*/ if (NULL == /*_._VALDATA___V571*/ meltfptr[570]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_QUASI_BOX without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_QUASI_BOX = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_QUASI_BOX", (long) MELT_GET); /*_._VALDATA___V571*/ meltfptr[570] = (melt_ptr_t) meltsy_CLASS_SOURCE_QUASI_BOX; } /*endgetnamedsym CLASS_SOURCE_QUASI_BOX*/ /*^getnamedsymbol*/ /*getnamedsym:SBOXED*/ if (NULL == /*_._VALDATA___V579*/ meltfptr[578]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SBOXED without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SBOXED = melthookproc_HOOK_NAMED_SYMBOL ("SBOXED", (long) MELT_GET); /*_._VALDATA___V579*/ meltfptr[578] = (melt_ptr_t) meltsy_SBOXED; } /*endgetnamedsym SBOXED*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_BOX*/ if (NULL == /*_._VALDATA___V581*/ meltfptr[580]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_BOX without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_BOX = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_BOX", (long) MELT_GET); /*_._VALDATA___V581*/ meltfptr[580] = (melt_ptr_t) meltsy_CLASS_SOURCE_BOX; } /*endgetnamedsym CLASS_SOURCE_BOX*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_CONSTANT_BOX*/ if (NULL == /*_._VALDATA___V587*/ meltfptr[586]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_CONSTANT_BOX without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_CONSTANT_BOX = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_CONSTANT_BOX", (long) MELT_GET); /*_._VALDATA___V587*/ meltfptr[586] = (melt_ptr_t) meltsy_CLASS_SOURCE_CONSTANT_BOX; } /*endgetnamedsym CLASS_SOURCE_CONSTANT_BOX*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_UNBOX*/ if (NULL == /*_._VALDATA___V593*/ meltfptr[592]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_UNBOX without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_UNBOX = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_UNBOX", (long) MELT_GET); /*_._VALDATA___V593*/ meltfptr[592] = (melt_ptr_t) meltsy_CLASS_SOURCE_UNBOX; } /*endgetnamedsym CLASS_SOURCE_UNBOX*/ /*^getnamedsymbol*/ /*getnamedsym:SUNBOX_CTYPE*/ if (NULL == /*_._VALDATA___V603*/ meltfptr[602]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SUNBOX_CTYPE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SUNBOX_CTYPE = melthookproc_HOOK_NAMED_SYMBOL ("SUNBOX_CTYPE", (long) MELT_GET); /*_._VALDATA___V603*/ meltfptr[602] = (melt_ptr_t) meltsy_SUNBOX_CTYPE; } /*endgetnamedsym SUNBOX_CTYPE*/ /*^getnamedsymbol*/ /*getnamedsym:SUNBOX_EXPR*/ if (NULL == /*_._VALDATA___V605*/ meltfptr[604]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SUNBOX_EXPR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SUNBOX_EXPR = melthookproc_HOOK_NAMED_SYMBOL ("SUNBOX_EXPR", (long) MELT_GET); /*_._VALDATA___V605*/ meltfptr[604] = (melt_ptr_t) meltsy_SUNBOX_EXPR; } /*endgetnamedsym SUNBOX_EXPR*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_EXPORTCOMMON*/ if (NULL == /*_._VALDATA___V607*/ meltfptr[606]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_EXPORTCOMMON without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_EXPORTCOMMON = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_EXPORTCOMMON", (long) MELT_GET); /*_._VALDATA___V607*/ meltfptr[606] = (melt_ptr_t) meltsy_CLASS_SOURCE_EXPORTCOMMON; } /*endgetnamedsym CLASS_SOURCE_EXPORTCOMMON*/ /*^getnamedsymbol*/ /*getnamedsym:SEXPORT_NAMES*/ if (NULL == /*_._VALDATA___V615*/ meltfptr[614]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SEXPORT_NAMES without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SEXPORT_NAMES = melthookproc_HOOK_NAMED_SYMBOL ("SEXPORT_NAMES", (long) MELT_GET); /*_._VALDATA___V615*/ meltfptr[614] = (melt_ptr_t) meltsy_SEXPORT_NAMES; } /*endgetnamedsym SEXPORT_NAMES*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_EXPORT_VALUES*/ if (NULL == /*_._VALDATA___V617*/ meltfptr[616]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_EXPORT_VALUES without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_EXPORT_VALUES = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_EXPORT_VALUES", (long) MELT_GET); /*_._VALDATA___V617*/ meltfptr[616] = (melt_ptr_t) meltsy_CLASS_SOURCE_EXPORT_VALUES; } /*endgetnamedsym CLASS_SOURCE_EXPORT_VALUES*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_EXPORT_CLASS*/ if (NULL == /*_._VALDATA___V623*/ meltfptr[622]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_EXPORT_CLASS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_EXPORT_CLASS = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_EXPORT_CLASS", (long) MELT_GET); /*_._VALDATA___V623*/ meltfptr[622] = (melt_ptr_t) meltsy_CLASS_SOURCE_EXPORT_CLASS; } /*endgetnamedsym CLASS_SOURCE_EXPORT_CLASS*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_EXPORT_ANY_MACRO*/ if (NULL == /*_._VALDATA___V629*/ meltfptr[628]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_EXPORT_ANY_MACRO without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_EXPORT_ANY_MACRO = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_EXPORT_ANY_MACRO", (long) MELT_GET); /*_._VALDATA___V629*/ meltfptr[628] = (melt_ptr_t) meltsy_CLASS_SOURCE_EXPORT_ANY_MACRO; } /*endgetnamedsym CLASS_SOURCE_EXPORT_ANY_MACRO*/ /*^getnamedsymbol*/ /*getnamedsym:SEXPMAC_MNAME*/ if (NULL == /*_._VALDATA___V639*/ meltfptr[638]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SEXPMAC_MNAME without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SEXPMAC_MNAME = melthookproc_HOOK_NAMED_SYMBOL ("SEXPMAC_MNAME", (long) MELT_GET); /*_._VALDATA___V639*/ meltfptr[638] = (melt_ptr_t) meltsy_SEXPMAC_MNAME; } /*endgetnamedsym SEXPMAC_MNAME*/ /*^getnamedsymbol*/ /*getnamedsym:SEXPMAC_DOC*/ if (NULL == /*_._VALDATA___V641*/ meltfptr[640]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SEXPMAC_DOC without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SEXPMAC_DOC = melthookproc_HOOK_NAMED_SYMBOL ("SEXPMAC_DOC", (long) MELT_GET); /*_._VALDATA___V641*/ meltfptr[640] = (melt_ptr_t) meltsy_SEXPMAC_DOC; } /*endgetnamedsym SEXPMAC_DOC*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_EXPORT_MACRO*/ if (NULL == /*_._VALDATA___V643*/ meltfptr[642]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_EXPORT_MACRO without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_EXPORT_MACRO = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_EXPORT_MACRO", (long) MELT_GET); /*_._VALDATA___V643*/ meltfptr[642] = (melt_ptr_t) meltsy_CLASS_SOURCE_EXPORT_MACRO; } /*endgetnamedsym CLASS_SOURCE_EXPORT_MACRO*/ /*^getnamedsymbol*/ /*getnamedsym:SEXPMAC_MVAL*/ if (NULL == /*_._VALDATA___V651*/ meltfptr[650]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SEXPMAC_MVAL without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SEXPMAC_MVAL = melthookproc_HOOK_NAMED_SYMBOL ("SEXPMAC_MVAL", (long) MELT_GET); /*_._VALDATA___V651*/ meltfptr[650] = (melt_ptr_t) meltsy_SEXPMAC_MVAL; } /*endgetnamedsym SEXPMAC_MVAL*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_EXPORT_DEFMACRO*/ if (NULL == /*_._VALDATA___V653*/ meltfptr[652]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_EXPORT_DEFMACRO without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_EXPORT_DEFMACRO = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_EXPORT_DEFMACRO", (long) MELT_GET); /*_._VALDATA___V653*/ meltfptr[652] = (melt_ptr_t) meltsy_CLASS_SOURCE_EXPORT_DEFMACRO; } /*endgetnamedsym CLASS_SOURCE_EXPORT_DEFMACRO*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_EXPORT_PATMACRO*/ if (NULL == /*_._VALDATA___V659*/ meltfptr[658]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_EXPORT_PATMACRO without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_EXPORT_PATMACRO = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_EXPORT_PATMACRO", (long) MELT_GET); /*_._VALDATA___V659*/ meltfptr[658] = (melt_ptr_t) meltsy_CLASS_SOURCE_EXPORT_PATMACRO; } /*endgetnamedsym CLASS_SOURCE_EXPORT_PATMACRO*/ /*^getnamedsymbol*/ /*getnamedsym:SEXPPAT_PVAL*/ if (NULL == /*_._VALDATA___V667*/ meltfptr[666]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SEXPPAT_PVAL without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SEXPPAT_PVAL = melthookproc_HOOK_NAMED_SYMBOL ("SEXPPAT_PVAL", (long) MELT_GET); /*_._VALDATA___V667*/ meltfptr[666] = (melt_ptr_t) meltsy_SEXPPAT_PVAL; } /*endgetnamedsym SEXPPAT_PVAL*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_EXPORT_SYNONYM*/ if (NULL == /*_._VALDATA___V669*/ meltfptr[668]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_EXPORT_SYNONYM without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_EXPORT_SYNONYM = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_EXPORT_SYNONYM", (long) MELT_GET); /*_._VALDATA___V669*/ meltfptr[668] = (melt_ptr_t) meltsy_CLASS_SOURCE_EXPORT_SYNONYM; } /*endgetnamedsym CLASS_SOURCE_EXPORT_SYNONYM*/ /*^getnamedsymbol*/ /*getnamedsym:SEXPSYN_NEWNAME*/ if (NULL == /*_._VALDATA___V681*/ meltfptr[680]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SEXPSYN_NEWNAME without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SEXPSYN_NEWNAME = melthookproc_HOOK_NAMED_SYMBOL ("SEXPSYN_NEWNAME", (long) MELT_GET); /*_._VALDATA___V681*/ meltfptr[680] = (melt_ptr_t) meltsy_SEXPSYN_NEWNAME; } /*endgetnamedsym SEXPSYN_NEWNAME*/ /*^getnamedsymbol*/ /*getnamedsym:SEXPSYN_OLDNAME*/ if (NULL == /*_._VALDATA___V683*/ meltfptr[682]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SEXPSYN_OLDNAME without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SEXPSYN_OLDNAME = melthookproc_HOOK_NAMED_SYMBOL ("SEXPSYN_OLDNAME", (long) MELT_GET); /*_._VALDATA___V683*/ meltfptr[682] = (melt_ptr_t) meltsy_SEXPSYN_OLDNAME; } /*endgetnamedsym SEXPSYN_OLDNAME*/ /*^getnamedsymbol*/ /*getnamedsym:SEXPSYN_DOC*/ if (NULL == /*_._VALDATA___V685*/ meltfptr[684]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SEXPSYN_DOC without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SEXPSYN_DOC = melthookproc_HOOK_NAMED_SYMBOL ("SEXPSYN_DOC", (long) MELT_GET); /*_._VALDATA___V685*/ meltfptr[684] = (melt_ptr_t) meltsy_SEXPSYN_DOC; } /*endgetnamedsym SEXPSYN_DOC*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_DEFINITION*/ if (NULL == /*_._VALDATA___V687*/ meltfptr[686]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_DEFINITION without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_DEFINITION = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_DEFINITION", (long) MELT_GET); /*_._VALDATA___V687*/ meltfptr[686] = (melt_ptr_t) meltsy_CLASS_SOURCE_DEFINITION; } /*endgetnamedsym CLASS_SOURCE_DEFINITION*/ /*^getnamedsymbol*/ /*getnamedsym:SDEF_NAME*/ if (NULL == /*_._VALDATA___V697*/ meltfptr[696]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SDEF_NAME without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SDEF_NAME = melthookproc_HOOK_NAMED_SYMBOL ("SDEF_NAME", (long) MELT_GET); /*_._VALDATA___V697*/ meltfptr[696] = (melt_ptr_t) meltsy_SDEF_NAME; } /*endgetnamedsym SDEF_NAME*/ /*^getnamedsymbol*/ /*getnamedsym:SDEF_DOC*/ if (NULL == /*_._VALDATA___V699*/ meltfptr[698]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SDEF_DOC without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SDEF_DOC = melthookproc_HOOK_NAMED_SYMBOL ("SDEF_DOC", (long) MELT_GET); /*_._VALDATA___V699*/ meltfptr[698] = (melt_ptr_t) meltsy_SDEF_DOC; } /*endgetnamedsym SDEF_DOC*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_DEFVAR*/ if (NULL == /*_._VALDATA___V701*/ meltfptr[700]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_DEFVAR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_DEFVAR = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_DEFVAR", (long) MELT_GET); /*_._VALDATA___V701*/ meltfptr[700] = (melt_ptr_t) meltsy_CLASS_SOURCE_DEFVAR; } /*endgetnamedsym CLASS_SOURCE_DEFVAR*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_DEFINE*/ if (NULL == /*_._VALDATA___V707*/ meltfptr[706]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_DEFINE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_DEFINE = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_DEFINE", (long) MELT_GET); /*_._VALDATA___V707*/ meltfptr[706] = (melt_ptr_t) meltsy_CLASS_SOURCE_DEFINE; } /*endgetnamedsym CLASS_SOURCE_DEFINE*/ /*^getnamedsymbol*/ /*getnamedsym:SDEFINE_BODY*/ if (NULL == /*_._VALDATA___V715*/ meltfptr[714]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SDEFINE_BODY without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SDEFINE_BODY = melthookproc_HOOK_NAMED_SYMBOL ("SDEFINE_BODY", (long) MELT_GET); /*_._VALDATA___V715*/ meltfptr[714] = (melt_ptr_t) meltsy_SDEFINE_BODY; } /*endgetnamedsym SDEFINE_BODY*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_DEFINITION_FORMAL*/ if (NULL == /*_._VALDATA___V717*/ meltfptr[716]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_DEFINITION_FORMAL without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_DEFINITION_FORMAL = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_DEFINITION_FORMAL", (long) MELT_GET); /*_._VALDATA___V717*/ meltfptr[716] = (melt_ptr_t) meltsy_CLASS_SOURCE_DEFINITION_FORMAL; } /*endgetnamedsym CLASS_SOURCE_DEFINITION_FORMAL*/ /*^getnamedsymbol*/ /*getnamedsym:SFORMAL_ARGS*/ if (NULL == /*_._VALDATA___V725*/ meltfptr[724]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SFORMAL_ARGS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SFORMAL_ARGS = melthookproc_HOOK_NAMED_SYMBOL ("SFORMAL_ARGS", (long) MELT_GET); /*_._VALDATA___V725*/ meltfptr[724] = (melt_ptr_t) meltsy_SFORMAL_ARGS; } /*endgetnamedsym SFORMAL_ARGS*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_DEFUN*/ if (NULL == /*_._VALDATA___V727*/ meltfptr[726]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_DEFUN without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_DEFUN = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_DEFUN", (long) MELT_GET); /*_._VALDATA___V727*/ meltfptr[726] = (melt_ptr_t) meltsy_CLASS_SOURCE_DEFUN; } /*endgetnamedsym CLASS_SOURCE_DEFUN*/ /*^getnamedsymbol*/ /*getnamedsym:SFUN_BODY*/ if (NULL == /*_._VALDATA___V735*/ meltfptr[734]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SFUN_BODY without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SFUN_BODY = melthookproc_HOOK_NAMED_SYMBOL ("SFUN_BODY", (long) MELT_GET); /*_._VALDATA___V735*/ meltfptr[734] = (melt_ptr_t) meltsy_SFUN_BODY; } /*endgetnamedsym SFUN_BODY*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_DEFMACRO*/ if (NULL == /*_._VALDATA___V737*/ meltfptr[736]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_DEFMACRO without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_DEFMACRO = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_DEFMACRO", (long) MELT_GET); /*_._VALDATA___V737*/ meltfptr[736] = (melt_ptr_t) meltsy_CLASS_SOURCE_DEFMACRO; } /*endgetnamedsym CLASS_SOURCE_DEFMACRO*/ /*^getnamedsymbol*/ /*getnamedsym:SMACRO_BINDING*/ if (NULL == /*_._VALDATA___V745*/ meltfptr[744]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SMACRO_BINDING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SMACRO_BINDING = melthookproc_HOOK_NAMED_SYMBOL ("SMACRO_BINDING", (long) MELT_GET); /*_._VALDATA___V745*/ meltfptr[744] = (melt_ptr_t) meltsy_SMACRO_BINDING; } /*endgetnamedsym SMACRO_BINDING*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_DEFMACRO_IN_LET*/ if (NULL == /*_._VALDATA___V747*/ meltfptr[746]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_DEFMACRO_IN_LET without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_DEFMACRO_IN_LET = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_DEFMACRO_IN_LET", (long) MELT_GET); /*_._VALDATA___V747*/ meltfptr[746] = (melt_ptr_t) meltsy_CLASS_SOURCE_DEFMACRO_IN_LET; } /*endgetnamedsym CLASS_SOURCE_DEFMACRO_IN_LET*/ /*^getnamedsymbol*/ /*getnamedsym:SMACRO_SOURCELETBINDING*/ if (NULL == /*_._VALDATA___V755*/ meltfptr[754]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SMACRO_SOURCELETBINDING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SMACRO_SOURCELETBINDING = melthookproc_HOOK_NAMED_SYMBOL ("SMACRO_SOURCELETBINDING", (long) MELT_GET); /*_._VALDATA___V755*/ meltfptr[754] = (melt_ptr_t) meltsy_SMACRO_SOURCELETBINDING; } /*endgetnamedsym SMACRO_SOURCELETBINDING*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_DEFINED_MACRO_BINDING*/ if (NULL == /*_._VALDATA___V757*/ meltfptr[756]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_DEFINED_MACRO_BINDING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_DEFINED_MACRO_BINDING = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_DEFINED_MACRO_BINDING", (long) MELT_GET); /*_._VALDATA___V757*/ meltfptr[756] = (melt_ptr_t) meltsy_CLASS_DEFINED_MACRO_BINDING; } /*endgetnamedsym CLASS_DEFINED_MACRO_BINDING*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_MACRO_BINDING*/ if (NULL == /*_._VALDATA___V759*/ meltfptr[758]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_MACRO_BINDING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_MACRO_BINDING = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_MACRO_BINDING", (long) MELT_GET); /*_._VALDATA___V759*/ meltfptr[758] = (melt_ptr_t) meltsy_CLASS_MACRO_BINDING; } /*endgetnamedsym CLASS_MACRO_BINDING*/ /*^getnamedsymbol*/ /*getnamedsym:MBIND_DEFMACRO*/ if (NULL == /*_._VALDATA___V769*/ meltfptr[768]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol MBIND_DEFMACRO without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MBIND_DEFMACRO = melthookproc_HOOK_NAMED_SYMBOL ("MBIND_DEFMACRO", (long) MELT_GET); /*_._VALDATA___V769*/ meltfptr[768] = (melt_ptr_t) meltsy_MBIND_DEFMACRO; } /*endgetnamedsym MBIND_DEFMACRO*/ /*^getnamedsymbol*/ /*getnamedsym:MBIND_DATA*/ if (NULL == /*_._VALDATA___V771*/ meltfptr[770]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol MBIND_DATA without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MBIND_DATA = melthookproc_HOOK_NAMED_SYMBOL ("MBIND_DATA", (long) MELT_GET); /*_._VALDATA___V771*/ meltfptr[770] = (melt_ptr_t) meltsy_MBIND_DATA; } /*endgetnamedsym MBIND_DATA*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_MACRO_INSTALLATION*/ if (NULL == /*_._VALDATA___V773*/ meltfptr[772]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_MACRO_INSTALLATION without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_MACRO_INSTALLATION = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_MACRO_INSTALLATION", (long) MELT_GET); /*_._VALDATA___V773*/ meltfptr[772] = (melt_ptr_t) meltsy_CLASS_SOURCE_MACRO_INSTALLATION; } /*endgetnamedsym CLASS_SOURCE_MACRO_INSTALLATION*/ /*^getnamedsymbol*/ /*getnamedsym:SMACINST_DEFMACRO*/ if (NULL == /*_._VALDATA___V783*/ meltfptr[782]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SMACINST_DEFMACRO without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SMACINST_DEFMACRO = melthookproc_HOOK_NAMED_SYMBOL ("SMACINST_DEFMACRO", (long) MELT_GET); /*_._VALDATA___V783*/ meltfptr[782] = (melt_ptr_t) meltsy_SMACINST_DEFMACRO; } /*endgetnamedsym SMACINST_DEFMACRO*/ /*^getnamedsymbol*/ /*getnamedsym:SMACINST_ENV*/ if (NULL == /*_._VALDATA___V785*/ meltfptr[784]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SMACINST_ENV without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SMACINST_ENV = melthookproc_HOOK_NAMED_SYMBOL ("SMACINST_ENV", (long) MELT_GET); /*_._VALDATA___V785*/ meltfptr[784] = (melt_ptr_t) meltsy_SMACINST_ENV; } /*endgetnamedsym SMACINST_ENV*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_DEFPRIMITIVE*/ if (NULL == /*_._VALDATA___V787*/ meltfptr[786]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_DEFPRIMITIVE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_DEFPRIMITIVE = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_DEFPRIMITIVE", (long) MELT_GET); /*_._VALDATA___V787*/ meltfptr[786] = (melt_ptr_t) meltsy_CLASS_SOURCE_DEFPRIMITIVE; } /*endgetnamedsym CLASS_SOURCE_DEFPRIMITIVE*/ /*^getnamedsymbol*/ /*getnamedsym:SPRIM_TYPE*/ if (NULL == /*_._VALDATA___V799*/ meltfptr[798]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SPRIM_TYPE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SPRIM_TYPE = melthookproc_HOOK_NAMED_SYMBOL ("SPRIM_TYPE", (long) MELT_GET); /*_._VALDATA___V799*/ meltfptr[798] = (melt_ptr_t) meltsy_SPRIM_TYPE; } /*endgetnamedsym SPRIM_TYPE*/ /*^getnamedsymbol*/ /*getnamedsym:SPRIM_EXPANSION*/ if (NULL == /*_._VALDATA___V801*/ meltfptr[800]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SPRIM_EXPANSION without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SPRIM_EXPANSION = melthookproc_HOOK_NAMED_SYMBOL ("SPRIM_EXPANSION", (long) MELT_GET); /*_._VALDATA___V801*/ meltfptr[800] = (melt_ptr_t) meltsy_SPRIM_EXPANSION; } /*endgetnamedsym SPRIM_EXPANSION*/ /*^getnamedsymbol*/ /*getnamedsym:SPRIM_EXPLOC*/ if (NULL == /*_._VALDATA___V803*/ meltfptr[802]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SPRIM_EXPLOC without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SPRIM_EXPLOC = melthookproc_HOOK_NAMED_SYMBOL ("SPRIM_EXPLOC", (long) MELT_GET); /*_._VALDATA___V803*/ meltfptr[802] = (melt_ptr_t) meltsy_SPRIM_EXPLOC; } /*endgetnamedsym SPRIM_EXPLOC*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_DEFHOOK*/ if (NULL == /*_._VALDATA___V805*/ meltfptr[804]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_DEFHOOK without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_DEFHOOK = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_DEFHOOK", (long) MELT_GET); /*_._VALDATA___V805*/ meltfptr[804] = (melt_ptr_t) meltsy_CLASS_SOURCE_DEFHOOK; } /*endgetnamedsym CLASS_SOURCE_DEFHOOK*/ /*^getnamedsymbol*/ /*getnamedsym:SHOOK_OUT_FORMALS*/ if (NULL == /*_._VALDATA___V821*/ meltfptr[820]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SHOOK_OUT_FORMALS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SHOOK_OUT_FORMALS = melthookproc_HOOK_NAMED_SYMBOL ("SHOOK_OUT_FORMALS", (long) MELT_GET); /*_._VALDATA___V821*/ meltfptr[820] = (melt_ptr_t) meltsy_SHOOK_OUT_FORMALS; } /*endgetnamedsym SHOOK_OUT_FORMALS*/ /*^getnamedsymbol*/ /*getnamedsym:SHOOK_CTYPE*/ if (NULL == /*_._VALDATA___V823*/ meltfptr[822]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SHOOK_CTYPE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SHOOK_CTYPE = melthookproc_HOOK_NAMED_SYMBOL ("SHOOK_CTYPE", (long) MELT_GET); /*_._VALDATA___V823*/ meltfptr[822] = (melt_ptr_t) meltsy_SHOOK_CTYPE; } /*endgetnamedsym SHOOK_CTYPE*/ /*^getnamedsymbol*/ /*getnamedsym:SHOOK_PREDEF*/ if (NULL == /*_._VALDATA___V825*/ meltfptr[824]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SHOOK_PREDEF without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SHOOK_PREDEF = melthookproc_HOOK_NAMED_SYMBOL ("SHOOK_PREDEF", (long) MELT_GET); /*_._VALDATA___V825*/ meltfptr[824] = (melt_ptr_t) meltsy_SHOOK_PREDEF; } /*endgetnamedsym SHOOK_PREDEF*/ /*^getnamedsymbol*/ /*getnamedsym:SHOOK_VARIABLE*/ if (NULL == /*_._VALDATA___V827*/ meltfptr[826]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SHOOK_VARIABLE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SHOOK_VARIABLE = melthookproc_HOOK_NAMED_SYMBOL ("SHOOK_VARIABLE", (long) MELT_GET); /*_._VALDATA___V827*/ meltfptr[826] = (melt_ptr_t) meltsy_SHOOK_VARIABLE; } /*endgetnamedsym SHOOK_VARIABLE*/ /*^getnamedsymbol*/ /*getnamedsym:SHOOK_BODY*/ if (NULL == /*_._VALDATA___V829*/ meltfptr[828]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SHOOK_BODY without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SHOOK_BODY = melthookproc_HOOK_NAMED_SYMBOL ("SHOOK_BODY", (long) MELT_GET); /*_._VALDATA___V829*/ meltfptr[828] = (melt_ptr_t) meltsy_SHOOK_BODY; } /*endgetnamedsym SHOOK_BODY*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_DEFCITERATOR*/ if (NULL == /*_._VALDATA___V831*/ meltfptr[830]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_DEFCITERATOR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_DEFCITERATOR = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_DEFCITERATOR", (long) MELT_GET); /*_._VALDATA___V831*/ meltfptr[830] = (melt_ptr_t) meltsy_CLASS_SOURCE_DEFCITERATOR; } /*endgetnamedsym CLASS_SOURCE_DEFCITERATOR*/ /*^getnamedsymbol*/ /*getnamedsym:SCITERDEF_CITERATOR*/ if (NULL == /*_._VALDATA___V843*/ meltfptr[842]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SCITERDEF_CITERATOR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SCITERDEF_CITERATOR = melthookproc_HOOK_NAMED_SYMBOL ("SCITERDEF_CITERATOR", (long) MELT_GET); /*_._VALDATA___V843*/ meltfptr[842] = (melt_ptr_t) meltsy_SCITERDEF_CITERATOR; } /*endgetnamedsym SCITERDEF_CITERATOR*/ /*^getnamedsymbol*/ /*getnamedsym:SCITERDEF_BEFORELOC*/ if (NULL == /*_._VALDATA___V845*/ meltfptr[844]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SCITERDEF_BEFORELOC without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SCITERDEF_BEFORELOC = melthookproc_HOOK_NAMED_SYMBOL ("SCITERDEF_BEFORELOC", (long) MELT_GET); /*_._VALDATA___V845*/ meltfptr[844] = (melt_ptr_t) meltsy_SCITERDEF_BEFORELOC; } /*endgetnamedsym SCITERDEF_BEFORELOC*/ /*^getnamedsymbol*/ /*getnamedsym:SCITERDEF_AFTERLOC*/ if (NULL == /*_._VALDATA___V847*/ meltfptr[846]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SCITERDEF_AFTERLOC without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SCITERDEF_AFTERLOC = melthookproc_HOOK_NAMED_SYMBOL ("SCITERDEF_AFTERLOC", (long) MELT_GET); /*_._VALDATA___V847*/ meltfptr[846] = (melt_ptr_t) meltsy_SCITERDEF_AFTERLOC; } /*endgetnamedsym SCITERDEF_AFTERLOC*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_DEFCMATCHER*/ if (NULL == /*_._VALDATA___V849*/ meltfptr[848]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_DEFCMATCHER without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_DEFCMATCHER = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_DEFCMATCHER", (long) MELT_GET); /*_._VALDATA___V849*/ meltfptr[848] = (melt_ptr_t) meltsy_CLASS_SOURCE_DEFCMATCHER; } /*endgetnamedsym CLASS_SOURCE_DEFCMATCHER*/ /*^getnamedsymbol*/ /*getnamedsym:SCMATDEF_CMATCHER*/ if (NULL == /*_._VALDATA___V863*/ meltfptr[862]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SCMATDEF_CMATCHER without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SCMATDEF_CMATCHER = melthookproc_HOOK_NAMED_SYMBOL ("SCMATDEF_CMATCHER", (long) MELT_GET); /*_._VALDATA___V863*/ meltfptr[862] = (melt_ptr_t) meltsy_SCMATDEF_CMATCHER; } /*endgetnamedsym SCMATDEF_CMATCHER*/ /*^getnamedsymbol*/ /*getnamedsym:SCMATDEF_TESTLOC*/ if (NULL == /*_._VALDATA___V865*/ meltfptr[864]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SCMATDEF_TESTLOC without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SCMATDEF_TESTLOC = melthookproc_HOOK_NAMED_SYMBOL ("SCMATDEF_TESTLOC", (long) MELT_GET); /*_._VALDATA___V865*/ meltfptr[864] = (melt_ptr_t) meltsy_SCMATDEF_TESTLOC; } /*endgetnamedsym SCMATDEF_TESTLOC*/ /*^getnamedsymbol*/ /*getnamedsym:SCMATDEF_FILLLOC*/ if (NULL == /*_._VALDATA___V867*/ meltfptr[866]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SCMATDEF_FILLLOC without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SCMATDEF_FILLLOC = melthookproc_HOOK_NAMED_SYMBOL ("SCMATDEF_FILLLOC", (long) MELT_GET); /*_._VALDATA___V867*/ meltfptr[866] = (melt_ptr_t) meltsy_SCMATDEF_FILLLOC; } /*endgetnamedsym SCMATDEF_FILLLOC*/ /*^getnamedsymbol*/ /*getnamedsym:SCMATDEF_OPERLOC*/ if (NULL == /*_._VALDATA___V869*/ meltfptr[868]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SCMATDEF_OPERLOC without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SCMATDEF_OPERLOC = melthookproc_HOOK_NAMED_SYMBOL ("SCMATDEF_OPERLOC", (long) MELT_GET); /*_._VALDATA___V869*/ meltfptr[868] = (melt_ptr_t) meltsy_SCMATDEF_OPERLOC; } /*endgetnamedsym SCMATDEF_OPERLOC*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_DEFUNMATCHER*/ if (NULL == /*_._VALDATA___V871*/ meltfptr[870]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_DEFUNMATCHER without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_DEFUNMATCHER = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_DEFUNMATCHER", (long) MELT_GET); /*_._VALDATA___V871*/ meltfptr[870] = (melt_ptr_t) meltsy_CLASS_SOURCE_DEFUNMATCHER; } /*endgetnamedsym CLASS_SOURCE_DEFUNMATCHER*/ /*^getnamedsymbol*/ /*getnamedsym:SFUMATDEF_INS*/ if (NULL == /*_._VALDATA___V887*/ meltfptr[886]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SFUMATDEF_INS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SFUMATDEF_INS = melthookproc_HOOK_NAMED_SYMBOL ("SFUMATDEF_INS", (long) MELT_GET); /*_._VALDATA___V887*/ meltfptr[886] = (melt_ptr_t) meltsy_SFUMATDEF_INS; } /*endgetnamedsym SFUMATDEF_INS*/ /*^getnamedsymbol*/ /*getnamedsym:SFUMATDEF_OUTS*/ if (NULL == /*_._VALDATA___V889*/ meltfptr[888]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SFUMATDEF_OUTS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SFUMATDEF_OUTS = melthookproc_HOOK_NAMED_SYMBOL ("SFUMATDEF_OUTS", (long) MELT_GET); /*_._VALDATA___V889*/ meltfptr[888] = (melt_ptr_t) meltsy_SFUMATDEF_OUTS; } /*endgetnamedsym SFUMATDEF_OUTS*/ /*^getnamedsymbol*/ /*getnamedsym:SFUMATDEF_MATCHF*/ if (NULL == /*_._VALDATA___V891*/ meltfptr[890]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SFUMATDEF_MATCHF without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SFUMATDEF_MATCHF = melthookproc_HOOK_NAMED_SYMBOL ("SFUMATDEF_MATCHF", (long) MELT_GET); /*_._VALDATA___V891*/ meltfptr[890] = (melt_ptr_t) meltsy_SFUMATDEF_MATCHF; } /*endgetnamedsym SFUMATDEF_MATCHF*/ /*^getnamedsymbol*/ /*getnamedsym:SFUMATDEF_APPLYF*/ if (NULL == /*_._VALDATA___V893*/ meltfptr[892]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SFUMATDEF_APPLYF without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SFUMATDEF_APPLYF = melthookproc_HOOK_NAMED_SYMBOL ("SFUMATDEF_APPLYF", (long) MELT_GET); /*_._VALDATA___V893*/ meltfptr[892] = (melt_ptr_t) meltsy_SFUMATDEF_APPLYF; } /*endgetnamedsym SFUMATDEF_APPLYF*/ /*^getnamedsymbol*/ /*getnamedsym:SFUMATDEF_DATA*/ if (NULL == /*_._VALDATA___V895*/ meltfptr[894]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SFUMATDEF_DATA without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SFUMATDEF_DATA = melthookproc_HOOK_NAMED_SYMBOL ("SFUMATDEF_DATA", (long) MELT_GET); /*_._VALDATA___V895*/ meltfptr[894] = (melt_ptr_t) meltsy_SFUMATDEF_DATA; } /*endgetnamedsym SFUMATDEF_DATA*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_DEFOBJCOMMON*/ if (NULL == /*_._VALDATA___V897*/ meltfptr[896]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_DEFOBJCOMMON without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_DEFOBJCOMMON = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_DEFOBJCOMMON", (long) MELT_GET); /*_._VALDATA___V897*/ meltfptr[896] = (melt_ptr_t) meltsy_CLASS_SOURCE_DEFOBJCOMMON; } /*endgetnamedsym CLASS_SOURCE_DEFOBJCOMMON*/ /*^getnamedsymbol*/ /*getnamedsym:SOBJ_PREDEF*/ if (NULL == /*_._VALDATA___V905*/ meltfptr[904]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SOBJ_PREDEF without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SOBJ_PREDEF = melthookproc_HOOK_NAMED_SYMBOL ("SOBJ_PREDEF", (long) MELT_GET); /*_._VALDATA___V905*/ meltfptr[904] = (melt_ptr_t) meltsy_SOBJ_PREDEF; } /*endgetnamedsym SOBJ_PREDEF*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_DEFCLASS*/ if (NULL == /*_._VALDATA___V907*/ meltfptr[906]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_DEFCLASS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_DEFCLASS = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_DEFCLASS", (long) MELT_GET); /*_._VALDATA___V907*/ meltfptr[906] = (melt_ptr_t) meltsy_CLASS_SOURCE_DEFCLASS; } /*endgetnamedsym CLASS_SOURCE_DEFCLASS*/ /*^getnamedsymbol*/ /*getnamedsym:SCLASS_CLABIND*/ if (NULL == /*_._VALDATA___V919*/ meltfptr[918]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SCLASS_CLABIND without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SCLASS_CLABIND = melthookproc_HOOK_NAMED_SYMBOL ("SCLASS_CLABIND", (long) MELT_GET); /*_._VALDATA___V919*/ meltfptr[918] = (melt_ptr_t) meltsy_SCLASS_CLABIND; } /*endgetnamedsym SCLASS_CLABIND*/ /*^getnamedsymbol*/ /*getnamedsym:SCLASS_SUPERBIND*/ if (NULL == /*_._VALDATA___V921*/ meltfptr[920]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SCLASS_SUPERBIND without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SCLASS_SUPERBIND = melthookproc_HOOK_NAMED_SYMBOL ("SCLASS_SUPERBIND", (long) MELT_GET); /*_._VALDATA___V921*/ meltfptr[920] = (melt_ptr_t) meltsy_SCLASS_SUPERBIND; } /*endgetnamedsym SCLASS_SUPERBIND*/ /*^getnamedsymbol*/ /*getnamedsym:SCLASS_FLDBINDS*/ if (NULL == /*_._VALDATA___V923*/ meltfptr[922]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SCLASS_FLDBINDS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SCLASS_FLDBINDS = melthookproc_HOOK_NAMED_SYMBOL ("SCLASS_FLDBINDS", (long) MELT_GET); /*_._VALDATA___V923*/ meltfptr[922] = (melt_ptr_t) meltsy_SCLASS_FLDBINDS; } /*endgetnamedsym SCLASS_FLDBINDS*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_DEFINSTANCE*/ if (NULL == /*_._VALDATA___V925*/ meltfptr[924]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_DEFINSTANCE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_DEFINSTANCE = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_DEFINSTANCE", (long) MELT_GET); /*_._VALDATA___V925*/ meltfptr[924] = (melt_ptr_t) meltsy_CLASS_SOURCE_DEFINSTANCE; } /*endgetnamedsym CLASS_SOURCE_DEFINSTANCE*/ /*^getnamedsymbol*/ /*getnamedsym:SINST_CLASS*/ if (NULL == /*_._VALDATA___V939*/ meltfptr[938]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SINST_CLASS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SINST_CLASS = melthookproc_HOOK_NAMED_SYMBOL ("SINST_CLASS", (long) MELT_GET); /*_._VALDATA___V939*/ meltfptr[938] = (melt_ptr_t) meltsy_SINST_CLASS; } /*endgetnamedsym SINST_CLASS*/ /*^getnamedsymbol*/ /*getnamedsym:SINST_CLABIND*/ if (NULL == /*_._VALDATA___V941*/ meltfptr[940]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SINST_CLABIND without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SINST_CLABIND = melthookproc_HOOK_NAMED_SYMBOL ("SINST_CLABIND", (long) MELT_GET); /*_._VALDATA___V941*/ meltfptr[940] = (melt_ptr_t) meltsy_SINST_CLABIND; } /*endgetnamedsym SINST_CLABIND*/ /*^getnamedsymbol*/ /*getnamedsym:SINST_OBJNUM*/ if (NULL == /*_._VALDATA___V943*/ meltfptr[942]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SINST_OBJNUM without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SINST_OBJNUM = melthookproc_HOOK_NAMED_SYMBOL ("SINST_OBJNUM", (long) MELT_GET); /*_._VALDATA___V943*/ meltfptr[942] = (melt_ptr_t) meltsy_SINST_OBJNUM; } /*endgetnamedsym SINST_OBJNUM*/ /*^getnamedsymbol*/ /*getnamedsym:SINST_FIELDS*/ if (NULL == /*_._VALDATA___V945*/ meltfptr[944]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SINST_FIELDS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SINST_FIELDS = melthookproc_HOOK_NAMED_SYMBOL ("SINST_FIELDS", (long) MELT_GET); /*_._VALDATA___V945*/ meltfptr[944] = (melt_ptr_t) meltsy_SINST_FIELDS; } /*endgetnamedsym SINST_FIELDS*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_DEFSELECTOR*/ if (NULL == /*_._VALDATA___V947*/ meltfptr[946]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_DEFSELECTOR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_DEFSELECTOR = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_DEFSELECTOR", (long) MELT_GET); /*_._VALDATA___V947*/ meltfptr[946] = (melt_ptr_t) meltsy_CLASS_SOURCE_DEFSELECTOR; } /*endgetnamedsym CLASS_SOURCE_DEFSELECTOR*/ /*^getnamedsymbol*/ /*getnamedsym:SDEFSEL_FORMALS*/ if (NULL == /*_._VALDATA___V955*/ meltfptr[954]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SDEFSEL_FORMALS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SDEFSEL_FORMALS = melthookproc_HOOK_NAMED_SYMBOL ("SDEFSEL_FORMALS", (long) MELT_GET); /*_._VALDATA___V955*/ meltfptr[954] = (melt_ptr_t) meltsy_SDEFSEL_FORMALS; } /*endgetnamedsym SDEFSEL_FORMALS*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_FIELDASSIGN*/ if (NULL == /*_._VALDATA___V957*/ meltfptr[956]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_FIELDASSIGN without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_FIELDASSIGN = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_FIELDASSIGN", (long) MELT_GET); /*_._VALDATA___V957*/ meltfptr[956] = (melt_ptr_t) meltsy_CLASS_SOURCE_FIELDASSIGN; } /*endgetnamedsym CLASS_SOURCE_FIELDASSIGN*/ /*^getnamedsymbol*/ /*getnamedsym:SFLA_FIELD*/ if (NULL == /*_._VALDATA___V967*/ meltfptr[966]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SFLA_FIELD without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SFLA_FIELD = melthookproc_HOOK_NAMED_SYMBOL ("SFLA_FIELD", (long) MELT_GET); /*_._VALDATA___V967*/ meltfptr[966] = (melt_ptr_t) meltsy_SFLA_FIELD; } /*endgetnamedsym SFLA_FIELD*/ /*^getnamedsymbol*/ /*getnamedsym:SFLA_EXPR*/ if (NULL == /*_._VALDATA___V969*/ meltfptr[968]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SFLA_EXPR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SFLA_EXPR = melthookproc_HOOK_NAMED_SYMBOL ("SFLA_EXPR", (long) MELT_GET); /*_._VALDATA___V969*/ meltfptr[968] = (melt_ptr_t) meltsy_SFLA_EXPR; } /*endgetnamedsym SFLA_EXPR*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_INSTANCE*/ if (NULL == /*_._VALDATA___V971*/ meltfptr[970]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_INSTANCE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_INSTANCE = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_INSTANCE", (long) MELT_GET); /*_._VALDATA___V971*/ meltfptr[970] = (melt_ptr_t) meltsy_CLASS_SOURCE_INSTANCE; } /*endgetnamedsym CLASS_SOURCE_INSTANCE*/ /*^getnamedsymbol*/ /*getnamedsym:SMINS_CLASS*/ if (NULL == /*_._VALDATA___V983*/ meltfptr[982]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SMINS_CLASS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SMINS_CLASS = melthookproc_HOOK_NAMED_SYMBOL ("SMINS_CLASS", (long) MELT_GET); /*_._VALDATA___V983*/ meltfptr[982] = (melt_ptr_t) meltsy_SMINS_CLASS; } /*endgetnamedsym SMINS_CLASS*/ /*^getnamedsymbol*/ /*getnamedsym:SMINS_CLABIND*/ if (NULL == /*_._VALDATA___V985*/ meltfptr[984]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SMINS_CLABIND without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SMINS_CLABIND = melthookproc_HOOK_NAMED_SYMBOL ("SMINS_CLABIND", (long) MELT_GET); /*_._VALDATA___V985*/ meltfptr[984] = (melt_ptr_t) meltsy_SMINS_CLABIND; } /*endgetnamedsym SMINS_CLABIND*/ /*^getnamedsymbol*/ /*getnamedsym:SMINS_FIELDS*/ if (NULL == /*_._VALDATA___V987*/ meltfptr[986]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SMINS_FIELDS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SMINS_FIELDS = melthookproc_HOOK_NAMED_SYMBOL ("SMINS_FIELDS", (long) MELT_GET); /*_._VALDATA___V987*/ meltfptr[986] = (melt_ptr_t) meltsy_SMINS_FIELDS; } /*endgetnamedsym SMINS_FIELDS*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_GET_FIELD*/ if (NULL == /*_._VALDATA___V989*/ meltfptr[988]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_GET_FIELD without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_GET_FIELD = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_GET_FIELD", (long) MELT_GET); /*_._VALDATA___V989*/ meltfptr[988] = (melt_ptr_t) meltsy_CLASS_SOURCE_GET_FIELD; } /*endgetnamedsym CLASS_SOURCE_GET_FIELD*/ /*^getnamedsymbol*/ /*getnamedsym:SUGET_OBJ*/ if (NULL == /*_._VALDATA___V999*/ meltfptr[998]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SUGET_OBJ without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SUGET_OBJ = melthookproc_HOOK_NAMED_SYMBOL ("SUGET_OBJ", (long) MELT_GET); /*_._VALDATA___V999*/ meltfptr[998] = (melt_ptr_t) meltsy_SUGET_OBJ; } /*endgetnamedsym SUGET_OBJ*/ /*^getnamedsymbol*/ /*getnamedsym:SUGET_FIELD*/ if (NULL == /*_._VALDATA___V1001*/ meltfptr[1000]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SUGET_FIELD without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SUGET_FIELD = melthookproc_HOOK_NAMED_SYMBOL ("SUGET_FIELD", (long) MELT_GET); /*_._VALDATA___V1001*/ meltfptr[1000] = (melt_ptr_t) meltsy_SUGET_FIELD; } /*endgetnamedsym SUGET_FIELD*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_UNSAFE_GET_FIELD*/ if (NULL == /*_._VALDATA___V1003*/ meltfptr[1002]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_UNSAFE_GET_FIELD without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_UNSAFE_GET_FIELD = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_UNSAFE_GET_FIELD", (long) MELT_GET); /*_._VALDATA___V1003*/ meltfptr[1002] = (melt_ptr_t) meltsy_CLASS_SOURCE_UNSAFE_GET_FIELD; } /*endgetnamedsym CLASS_SOURCE_UNSAFE_GET_FIELD*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_PUT_FIELDS*/ if (NULL == /*_._VALDATA___V1009*/ meltfptr[1008]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_PUT_FIELDS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_PUT_FIELDS = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_PUT_FIELDS", (long) MELT_GET); /*_._VALDATA___V1009*/ meltfptr[1008] = (melt_ptr_t) meltsy_CLASS_SOURCE_PUT_FIELDS; } /*endgetnamedsym CLASS_SOURCE_PUT_FIELDS*/ /*^getnamedsymbol*/ /*getnamedsym:SUPUT_OBJ*/ if (NULL == /*_._VALDATA___V1019*/ meltfptr[1018]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SUPUT_OBJ without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SUPUT_OBJ = melthookproc_HOOK_NAMED_SYMBOL ("SUPUT_OBJ", (long) MELT_GET); /*_._VALDATA___V1019*/ meltfptr[1018] = (melt_ptr_t) meltsy_SUPUT_OBJ; } /*endgetnamedsym SUPUT_OBJ*/ /*^getnamedsymbol*/ /*getnamedsym:SUPUT_FIELDS*/ if (NULL == /*_._VALDATA___V1021*/ meltfptr[1020]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SUPUT_FIELDS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SUPUT_FIELDS = melthookproc_HOOK_NAMED_SYMBOL ("SUPUT_FIELDS", (long) MELT_GET); /*_._VALDATA___V1021*/ meltfptr[1020] = (melt_ptr_t) meltsy_SUPUT_FIELDS; } /*endgetnamedsym SUPUT_FIELDS*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_UNSAFE_PUT_FIELDS*/ if (NULL == /*_._VALDATA___V1023*/ meltfptr[1022]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_UNSAFE_PUT_FIELDS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_UNSAFE_PUT_FIELDS = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_UNSAFE_PUT_FIELDS", (long) MELT_GET); /*_._VALDATA___V1023*/ meltfptr[1022] = (melt_ptr_t) meltsy_CLASS_SOURCE_UNSAFE_PUT_FIELDS; } /*endgetnamedsym CLASS_SOURCE_UNSAFE_PUT_FIELDS*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_IF*/ if (NULL == /*_._VALDATA___V1029*/ meltfptr[1028]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_IF without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_IF = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_IF", (long) MELT_GET); /*_._VALDATA___V1029*/ meltfptr[1028] = (melt_ptr_t) meltsy_CLASS_SOURCE_IF; } /*endgetnamedsym CLASS_SOURCE_IF*/ /*^getnamedsymbol*/ /*getnamedsym:SIF_TEST*/ if (NULL == /*_._VALDATA___V1039*/ meltfptr[1038]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SIF_TEST without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SIF_TEST = melthookproc_HOOK_NAMED_SYMBOL ("SIF_TEST", (long) MELT_GET); /*_._VALDATA___V1039*/ meltfptr[1038] = (melt_ptr_t) meltsy_SIF_TEST; } /*endgetnamedsym SIF_TEST*/ /*^getnamedsymbol*/ /*getnamedsym:SIF_THEN*/ if (NULL == /*_._VALDATA___V1041*/ meltfptr[1040]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SIF_THEN without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SIF_THEN = melthookproc_HOOK_NAMED_SYMBOL ("SIF_THEN", (long) MELT_GET); /*_._VALDATA___V1041*/ meltfptr[1040] = (melt_ptr_t) meltsy_SIF_THEN; } /*endgetnamedsym SIF_THEN*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_IFELSE*/ if (NULL == /*_._VALDATA___V1043*/ meltfptr[1042]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_IFELSE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_IFELSE = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_IFELSE", (long) MELT_GET); /*_._VALDATA___V1043*/ meltfptr[1042] = (melt_ptr_t) meltsy_CLASS_SOURCE_IFELSE; } /*endgetnamedsym CLASS_SOURCE_IFELSE*/ /*^getnamedsymbol*/ /*getnamedsym:SIF_ELSE*/ if (NULL == /*_._VALDATA___V1051*/ meltfptr[1050]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SIF_ELSE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SIF_ELSE = melthookproc_HOOK_NAMED_SYMBOL ("SIF_ELSE", (long) MELT_GET); /*_._VALDATA___V1051*/ meltfptr[1050] = (melt_ptr_t) meltsy_SIF_ELSE; } /*endgetnamedsym SIF_ELSE*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_OR*/ if (NULL == /*_._VALDATA___V1053*/ meltfptr[1052]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_OR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_OR = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_OR", (long) MELT_GET); /*_._VALDATA___V1053*/ meltfptr[1052] = (melt_ptr_t) meltsy_CLASS_SOURCE_OR; } /*endgetnamedsym CLASS_SOURCE_OR*/ /*^getnamedsymbol*/ /*getnamedsym:SOR_DISJ*/ if (NULL == /*_._VALDATA___V1061*/ meltfptr[1060]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SOR_DISJ without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SOR_DISJ = melthookproc_HOOK_NAMED_SYMBOL ("SOR_DISJ", (long) MELT_GET); /*_._VALDATA___V1061*/ meltfptr[1060] = (melt_ptr_t) meltsy_SOR_DISJ; } /*endgetnamedsym SOR_DISJ*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_CPPIF*/ if (NULL == /*_._VALDATA___V1063*/ meltfptr[1062]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_CPPIF without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_CPPIF = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_CPPIF", (long) MELT_GET); /*_._VALDATA___V1063*/ meltfptr[1062] = (melt_ptr_t) meltsy_CLASS_SOURCE_CPPIF; } /*endgetnamedsym CLASS_SOURCE_CPPIF*/ /*^getnamedsymbol*/ /*getnamedsym:SIFP_COND*/ if (NULL == /*_._VALDATA___V1075*/ meltfptr[1074]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SIFP_COND without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SIFP_COND = melthookproc_HOOK_NAMED_SYMBOL ("SIFP_COND", (long) MELT_GET); /*_._VALDATA___V1075*/ meltfptr[1074] = (melt_ptr_t) meltsy_SIFP_COND; } /*endgetnamedsym SIFP_COND*/ /*^getnamedsymbol*/ /*getnamedsym:SIFP_THEN*/ if (NULL == /*_._VALDATA___V1077*/ meltfptr[1076]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SIFP_THEN without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SIFP_THEN = melthookproc_HOOK_NAMED_SYMBOL ("SIFP_THEN", (long) MELT_GET); /*_._VALDATA___V1077*/ meltfptr[1076] = (melt_ptr_t) meltsy_SIFP_THEN; } /*endgetnamedsym SIFP_THEN*/ /*^getnamedsymbol*/ /*getnamedsym:SIFP_ELSE*/ if (NULL == /*_._VALDATA___V1079*/ meltfptr[1078]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SIFP_ELSE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SIFP_ELSE = melthookproc_HOOK_NAMED_SYMBOL ("SIFP_ELSE", (long) MELT_GET); /*_._VALDATA___V1079*/ meltfptr[1078] = (melt_ptr_t) meltsy_SIFP_ELSE; } /*endgetnamedsym SIFP_ELSE*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_MATCH*/ if (NULL == /*_._VALDATA___V1081*/ meltfptr[1080]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_MATCH without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_MATCH = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_MATCH", (long) MELT_GET); /*_._VALDATA___V1081*/ meltfptr[1080] = (melt_ptr_t) meltsy_CLASS_SOURCE_MATCH; } /*endgetnamedsym CLASS_SOURCE_MATCH*/ /*^getnamedsymbol*/ /*getnamedsym:SMAT_MATCHEDX*/ if (NULL == /*_._VALDATA___V1091*/ meltfptr[1090]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SMAT_MATCHEDX without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SMAT_MATCHEDX = melthookproc_HOOK_NAMED_SYMBOL ("SMAT_MATCHEDX", (long) MELT_GET); /*_._VALDATA___V1091*/ meltfptr[1090] = (melt_ptr_t) meltsy_SMAT_MATCHEDX; } /*endgetnamedsym SMAT_MATCHEDX*/ /*^getnamedsymbol*/ /*getnamedsym:SMAT_CASES*/ if (NULL == /*_._VALDATA___V1093*/ meltfptr[1092]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SMAT_CASES without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SMAT_CASES = melthookproc_HOOK_NAMED_SYMBOL ("SMAT_CASES", (long) MELT_GET); /*_._VALDATA___V1093*/ meltfptr[1092] = (melt_ptr_t) meltsy_SMAT_CASES; } /*endgetnamedsym SMAT_CASES*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_MATCHALT*/ if (NULL == /*_._VALDATA___V1095*/ meltfptr[1094]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_MATCHALT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_MATCHALT = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_MATCHALT", (long) MELT_GET); /*_._VALDATA___V1095*/ meltfptr[1094] = (melt_ptr_t) meltsy_CLASS_SOURCE_MATCHALT; } /*endgetnamedsym CLASS_SOURCE_MATCHALT*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_MATCH_CASE*/ if (NULL == /*_._VALDATA___V1101*/ meltfptr[1100]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_MATCH_CASE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_MATCH_CASE = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_MATCH_CASE", (long) MELT_GET); /*_._VALDATA___V1101*/ meltfptr[1100] = (melt_ptr_t) meltsy_CLASS_SOURCE_MATCH_CASE; } /*endgetnamedsym CLASS_SOURCE_MATCH_CASE*/ /*^getnamedsymbol*/ /*getnamedsym:SCAM_PATT*/ if (NULL == /*_._VALDATA___V1111*/ meltfptr[1110]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SCAM_PATT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SCAM_PATT = melthookproc_HOOK_NAMED_SYMBOL ("SCAM_PATT", (long) MELT_GET); /*_._VALDATA___V1111*/ meltfptr[1110] = (melt_ptr_t) meltsy_SCAM_PATT; } /*endgetnamedsym SCAM_PATT*/ /*^getnamedsymbol*/ /*getnamedsym:SCAM_BODY*/ if (NULL == /*_._VALDATA___V1113*/ meltfptr[1112]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SCAM_BODY without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SCAM_BODY = melthookproc_HOOK_NAMED_SYMBOL ("SCAM_BODY", (long) MELT_GET); /*_._VALDATA___V1113*/ meltfptr[1112] = (melt_ptr_t) meltsy_SCAM_BODY; } /*endgetnamedsym SCAM_BODY*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_ANY_LET_BINDING*/ if (NULL == /*_._VALDATA___V1115*/ meltfptr[1114]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_ANY_LET_BINDING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_ANY_LET_BINDING = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_ANY_LET_BINDING", (long) MELT_GET); /*_._VALDATA___V1115*/ meltfptr[1114] = (melt_ptr_t) meltsy_CLASS_SOURCE_ANY_LET_BINDING; } /*endgetnamedsym CLASS_SOURCE_ANY_LET_BINDING*/ /*^getnamedsymbol*/ /*getnamedsym:SLETB_BINDER*/ if (NULL == /*_._VALDATA___V1123*/ meltfptr[1122]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SLETB_BINDER without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SLETB_BINDER = melthookproc_HOOK_NAMED_SYMBOL ("SLETB_BINDER", (long) MELT_GET); /*_._VALDATA___V1123*/ meltfptr[1122] = (melt_ptr_t) meltsy_SLETB_BINDER; } /*endgetnamedsym SLETB_BINDER*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_MACRO_LET_BINDING*/ if (NULL == /*_._VALDATA___V1125*/ meltfptr[1124]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_MACRO_LET_BINDING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_MACRO_LET_BINDING = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_MACRO_LET_BINDING", (long) MELT_GET); /*_._VALDATA___V1125*/ meltfptr[1124] = (melt_ptr_t) meltsy_CLASS_SOURCE_MACRO_LET_BINDING; } /*endgetnamedsym CLASS_SOURCE_MACRO_LET_BINDING*/ /*^getnamedsymbol*/ /*getnamedsym:SLETM_MACRO_FORMALS*/ if (NULL == /*_._VALDATA___V1135*/ meltfptr[1134]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SLETM_MACRO_FORMALS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SLETM_MACRO_FORMALS = melthookproc_HOOK_NAMED_SYMBOL ("SLETM_MACRO_FORMALS", (long) MELT_GET); /*_._VALDATA___V1135*/ meltfptr[1134] = (melt_ptr_t) meltsy_SLETM_MACRO_FORMALS; } /*endgetnamedsym SLETM_MACRO_FORMALS*/ /*^getnamedsymbol*/ /*getnamedsym:SLETM_MACRO_BODY*/ if (NULL == /*_._VALDATA___V1137*/ meltfptr[1136]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SLETM_MACRO_BODY without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SLETM_MACRO_BODY = melthookproc_HOOK_NAMED_SYMBOL ("SLETM_MACRO_BODY", (long) MELT_GET); /*_._VALDATA___V1137*/ meltfptr[1136] = (melt_ptr_t) meltsy_SLETM_MACRO_BODY; } /*endgetnamedsym SLETM_MACRO_BODY*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_LET_BINDING*/ if (NULL == /*_._VALDATA___V1139*/ meltfptr[1138]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_LET_BINDING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_LET_BINDING = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_LET_BINDING", (long) MELT_GET); /*_._VALDATA___V1139*/ meltfptr[1138] = (melt_ptr_t) meltsy_CLASS_SOURCE_LET_BINDING; } /*endgetnamedsym CLASS_SOURCE_LET_BINDING*/ /*^getnamedsymbol*/ /*getnamedsym:SLETB_TYPE*/ if (NULL == /*_._VALDATA___V1149*/ meltfptr[1148]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SLETB_TYPE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SLETB_TYPE = melthookproc_HOOK_NAMED_SYMBOL ("SLETB_TYPE", (long) MELT_GET); /*_._VALDATA___V1149*/ meltfptr[1148] = (melt_ptr_t) meltsy_SLETB_TYPE; } /*endgetnamedsym SLETB_TYPE*/ /*^getnamedsymbol*/ /*getnamedsym:SLETB_EXPR*/ if (NULL == /*_._VALDATA___V1151*/ meltfptr[1150]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SLETB_EXPR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SLETB_EXPR = melthookproc_HOOK_NAMED_SYMBOL ("SLETB_EXPR", (long) MELT_GET); /*_._VALDATA___V1151*/ meltfptr[1150] = (melt_ptr_t) meltsy_SLETB_EXPR; } /*endgetnamedsym SLETB_EXPR*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_LET_BINDING_FOR_MACRO*/ if (NULL == /*_._VALDATA___V1153*/ meltfptr[1152]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_LET_BINDING_FOR_MACRO without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_LET_BINDING_FOR_MACRO = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_LET_BINDING_FOR_MACRO", (long) MELT_GET); /*_._VALDATA___V1153*/ meltfptr[1152] = (melt_ptr_t) meltsy_CLASS_SOURCE_LET_BINDING_FOR_MACRO; } /*endgetnamedsym CLASS_SOURCE_LET_BINDING_FOR_MACRO*/ /*^getnamedsymbol*/ /*getnamedsym:SLETFM_MACROLETBIND*/ if (NULL == /*_._VALDATA___V1161*/ meltfptr[1160]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SLETFM_MACROLETBIND without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SLETFM_MACROLETBIND = melthookproc_HOOK_NAMED_SYMBOL ("SLETFM_MACROLETBIND", (long) MELT_GET); /*_._VALDATA___V1161*/ meltfptr[1160] = (melt_ptr_t) meltsy_SLETFM_MACROLETBIND; } /*endgetnamedsym SLETFM_MACROLETBIND*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_LETREC_BINDING*/ if (NULL == /*_._VALDATA___V1163*/ meltfptr[1162]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_LETREC_BINDING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_LETREC_BINDING = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_LETREC_BINDING", (long) MELT_GET); /*_._VALDATA___V1163*/ meltfptr[1162] = (melt_ptr_t) meltsy_CLASS_SOURCE_LETREC_BINDING; } /*endgetnamedsym CLASS_SOURCE_LETREC_BINDING*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_LET*/ if (NULL == /*_._VALDATA___V1169*/ meltfptr[1168]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_LET without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_LET = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_LET", (long) MELT_GET); /*_._VALDATA___V1169*/ meltfptr[1168] = (melt_ptr_t) meltsy_CLASS_SOURCE_LET; } /*endgetnamedsym CLASS_SOURCE_LET*/ /*^getnamedsymbol*/ /*getnamedsym:SLET_BINDINGS*/ if (NULL == /*_._VALDATA___V1179*/ meltfptr[1178]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SLET_BINDINGS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SLET_BINDINGS = melthookproc_HOOK_NAMED_SYMBOL ("SLET_BINDINGS", (long) MELT_GET); /*_._VALDATA___V1179*/ meltfptr[1178] = (melt_ptr_t) meltsy_SLET_BINDINGS; } /*endgetnamedsym SLET_BINDINGS*/ /*^getnamedsymbol*/ /*getnamedsym:SLET_BODY*/ if (NULL == /*_._VALDATA___V1181*/ meltfptr[1180]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SLET_BODY without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SLET_BODY = melthookproc_HOOK_NAMED_SYMBOL ("SLET_BODY", (long) MELT_GET); /*_._VALDATA___V1181*/ meltfptr[1180] = (melt_ptr_t) meltsy_SLET_BODY; } /*endgetnamedsym SLET_BODY*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_LETREC*/ if (NULL == /*_._VALDATA___V1183*/ meltfptr[1182]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_LETREC without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_LETREC = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_LETREC", (long) MELT_GET); /*_._VALDATA___V1183*/ meltfptr[1182] = (melt_ptr_t) meltsy_CLASS_SOURCE_LETREC; } /*endgetnamedsym CLASS_SOURCE_LETREC*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_LAMBDA*/ if (NULL == /*_._VALDATA___V1189*/ meltfptr[1188]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_LAMBDA without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_LAMBDA = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_LAMBDA", (long) MELT_GET); /*_._VALDATA___V1189*/ meltfptr[1188] = (melt_ptr_t) meltsy_CLASS_SOURCE_LAMBDA; } /*endgetnamedsym CLASS_SOURCE_LAMBDA*/ /*^getnamedsymbol*/ /*getnamedsym:SLAM_ARGBIND*/ if (NULL == /*_._VALDATA___V1199*/ meltfptr[1198]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SLAM_ARGBIND without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SLAM_ARGBIND = melthookproc_HOOK_NAMED_SYMBOL ("SLAM_ARGBIND", (long) MELT_GET); /*_._VALDATA___V1199*/ meltfptr[1198] = (melt_ptr_t) meltsy_SLAM_ARGBIND; } /*endgetnamedsym SLAM_ARGBIND*/ /*^getnamedsymbol*/ /*getnamedsym:SLAM_BODY*/ if (NULL == /*_._VALDATA___V1201*/ meltfptr[1200]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SLAM_BODY without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SLAM_BODY = melthookproc_HOOK_NAMED_SYMBOL ("SLAM_BODY", (long) MELT_GET); /*_._VALDATA___V1201*/ meltfptr[1200] = (melt_ptr_t) meltsy_SLAM_BODY; } /*endgetnamedsym SLAM_BODY*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_LAMBDA_FOR_MACRO*/ if (NULL == /*_._VALDATA___V1203*/ meltfptr[1202]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_LAMBDA_FOR_MACRO without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_LAMBDA_FOR_MACRO = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_LAMBDA_FOR_MACRO", (long) MELT_GET); /*_._VALDATA___V1203*/ meltfptr[1202] = (melt_ptr_t) meltsy_CLASS_SOURCE_LAMBDA_FOR_MACRO; } /*endgetnamedsym CLASS_SOURCE_LAMBDA_FOR_MACRO*/ /*^getnamedsymbol*/ /*getnamedsym:SLAM_ORIGMACRO*/ if (NULL == /*_._VALDATA___V1211*/ meltfptr[1210]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SLAM_ORIGMACRO without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SLAM_ORIGMACRO = melthookproc_HOOK_NAMED_SYMBOL ("SLAM_ORIGMACRO", (long) MELT_GET); /*_._VALDATA___V1211*/ meltfptr[1210] = (melt_ptr_t) meltsy_SLAM_ORIGMACRO; } /*endgetnamedsym SLAM_ORIGMACRO*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_IFVARIADIC*/ if (NULL == /*_._VALDATA___V1213*/ meltfptr[1212]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_IFVARIADIC without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_IFVARIADIC = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_IFVARIADIC", (long) MELT_GET); /*_._VALDATA___V1213*/ meltfptr[1212] = (melt_ptr_t) meltsy_CLASS_SOURCE_IFVARIADIC; } /*endgetnamedsym CLASS_SOURCE_IFVARIADIC*/ /*^getnamedsymbol*/ /*getnamedsym:SIFVARIADIC_ARGBIND*/ if (NULL == /*_._VALDATA___V1225*/ meltfptr[1224]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SIFVARIADIC_ARGBIND without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SIFVARIADIC_ARGBIND = melthookproc_HOOK_NAMED_SYMBOL ("SIFVARIADIC_ARGBIND", (long) MELT_GET); /*_._VALDATA___V1225*/ meltfptr[1224] = (melt_ptr_t) meltsy_SIFVARIADIC_ARGBIND; } /*endgetnamedsym SIFVARIADIC_ARGBIND*/ /*^getnamedsymbol*/ /*getnamedsym:SIFVARIADIC_THEN*/ if (NULL == /*_._VALDATA___V1227*/ meltfptr[1226]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SIFVARIADIC_THEN without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SIFVARIADIC_THEN = melthookproc_HOOK_NAMED_SYMBOL ("SIFVARIADIC_THEN", (long) MELT_GET); /*_._VALDATA___V1227*/ meltfptr[1226] = (melt_ptr_t) meltsy_SIFVARIADIC_THEN; } /*endgetnamedsym SIFVARIADIC_THEN*/ /*^getnamedsymbol*/ /*getnamedsym:SIFVARIADIC_ELSE*/ if (NULL == /*_._VALDATA___V1229*/ meltfptr[1228]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SIFVARIADIC_ELSE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SIFVARIADIC_ELSE = melthookproc_HOOK_NAMED_SYMBOL ("SIFVARIADIC_ELSE", (long) MELT_GET); /*_._VALDATA___V1229*/ meltfptr[1228] = (melt_ptr_t) meltsy_SIFVARIADIC_ELSE; } /*endgetnamedsym SIFVARIADIC_ELSE*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_MULTICALL*/ if (NULL == /*_._VALDATA___V1231*/ meltfptr[1230]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_MULTICALL without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_MULTICALL = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_MULTICALL", (long) MELT_GET); /*_._VALDATA___V1231*/ meltfptr[1230] = (melt_ptr_t) meltsy_CLASS_SOURCE_MULTICALL; } /*endgetnamedsym CLASS_SOURCE_MULTICALL*/ /*^getnamedsymbol*/ /*getnamedsym:SMULC_RESBIND*/ if (NULL == /*_._VALDATA___V1243*/ meltfptr[1242]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SMULC_RESBIND without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SMULC_RESBIND = melthookproc_HOOK_NAMED_SYMBOL ("SMULC_RESBIND", (long) MELT_GET); /*_._VALDATA___V1243*/ meltfptr[1242] = (melt_ptr_t) meltsy_SMULC_RESBIND; } /*endgetnamedsym SMULC_RESBIND*/ /*^getnamedsymbol*/ /*getnamedsym:SMULC_CALL*/ if (NULL == /*_._VALDATA___V1245*/ meltfptr[1244]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SMULC_CALL without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SMULC_CALL = melthookproc_HOOK_NAMED_SYMBOL ("SMULC_CALL", (long) MELT_GET); /*_._VALDATA___V1245*/ meltfptr[1244] = (melt_ptr_t) meltsy_SMULC_CALL; } /*endgetnamedsym SMULC_CALL*/ /*^getnamedsymbol*/ /*getnamedsym:SMULC_BODY*/ if (NULL == /*_._VALDATA___V1247*/ meltfptr[1246]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SMULC_BODY without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SMULC_BODY = melthookproc_HOOK_NAMED_SYMBOL ("SMULC_BODY", (long) MELT_GET); /*_._VALDATA___V1247*/ meltfptr[1246] = (melt_ptr_t) meltsy_SMULC_BODY; } /*endgetnamedsym SMULC_BODY*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_LABELLED*/ if (NULL == /*_._VALDATA___V1249*/ meltfptr[1248]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_LABELLED without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_LABELLED = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_LABELLED", (long) MELT_GET); /*_._VALDATA___V1249*/ meltfptr[1248] = (melt_ptr_t) meltsy_CLASS_SOURCE_LABELLED; } /*endgetnamedsym CLASS_SOURCE_LABELLED*/ /*^getnamedsymbol*/ /*getnamedsym:SLABEL_BIND*/ if (NULL == /*_._VALDATA___V1257*/ meltfptr[1256]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SLABEL_BIND without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SLABEL_BIND = melthookproc_HOOK_NAMED_SYMBOL ("SLABEL_BIND", (long) MELT_GET); /*_._VALDATA___V1257*/ meltfptr[1256] = (melt_ptr_t) meltsy_SLABEL_BIND; } /*endgetnamedsym SLABEL_BIND*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_FOREVER*/ if (NULL == /*_._VALDATA___V1259*/ meltfptr[1258]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_FOREVER without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_FOREVER = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_FOREVER", (long) MELT_GET); /*_._VALDATA___V1259*/ meltfptr[1258] = (melt_ptr_t) meltsy_CLASS_SOURCE_FOREVER; } /*endgetnamedsym CLASS_SOURCE_FOREVER*/ /*^getnamedsymbol*/ /*getnamedsym:SFRV_BODY*/ if (NULL == /*_._VALDATA___V1267*/ meltfptr[1266]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SFRV_BODY without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SFRV_BODY = melthookproc_HOOK_NAMED_SYMBOL ("SFRV_BODY", (long) MELT_GET); /*_._VALDATA___V1267*/ meltfptr[1266] = (melt_ptr_t) meltsy_SFRV_BODY; } /*endgetnamedsym SFRV_BODY*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_AGAIN*/ if (NULL == /*_._VALDATA___V1269*/ meltfptr[1268]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_AGAIN without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_AGAIN = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_AGAIN", (long) MELT_GET); /*_._VALDATA___V1269*/ meltfptr[1268] = (melt_ptr_t) meltsy_CLASS_SOURCE_AGAIN; } /*endgetnamedsym CLASS_SOURCE_AGAIN*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_EXIT*/ if (NULL == /*_._VALDATA___V1275*/ meltfptr[1274]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_EXIT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_EXIT = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_EXIT", (long) MELT_GET); /*_._VALDATA___V1275*/ meltfptr[1274] = (melt_ptr_t) meltsy_CLASS_SOURCE_EXIT; } /*endgetnamedsym CLASS_SOURCE_EXIT*/ /*^getnamedsymbol*/ /*getnamedsym:SEXI_BODY*/ if (NULL == /*_._VALDATA___V1283*/ meltfptr[1282]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SEXI_BODY without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SEXI_BODY = melthookproc_HOOK_NAMED_SYMBOL ("SEXI_BODY", (long) MELT_GET); /*_._VALDATA___V1283*/ meltfptr[1282] = (melt_ptr_t) meltsy_SEXI_BODY; } /*endgetnamedsym SEXI_BODY*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_COMPILE_DIAGNOSTIC*/ if (NULL == /*_._VALDATA___V1285*/ meltfptr[1284]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_COMPILE_DIAGNOSTIC without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_COMPILE_DIAGNOSTIC = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_COMPILE_DIAGNOSTIC", (long) MELT_GET); /*_._VALDATA___V1285*/ meltfptr[1284] = (melt_ptr_t) meltsy_CLASS_SOURCE_COMPILE_DIAGNOSTIC; } /*endgetnamedsym CLASS_SOURCE_COMPILE_DIAGNOSTIC*/ /*^getnamedsymbol*/ /*getnamedsym:SCDIAG_MSG*/ if (NULL == /*_._VALDATA___V1295*/ meltfptr[1294]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SCDIAG_MSG without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SCDIAG_MSG = melthookproc_HOOK_NAMED_SYMBOL ("SCDIAG_MSG", (long) MELT_GET); /*_._VALDATA___V1295*/ meltfptr[1294] = (melt_ptr_t) meltsy_SCDIAG_MSG; } /*endgetnamedsym SCDIAG_MSG*/ /*^getnamedsymbol*/ /*getnamedsym:SCDIAG_EXPR*/ if (NULL == /*_._VALDATA___V1297*/ meltfptr[1296]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SCDIAG_EXPR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SCDIAG_EXPR = melthookproc_HOOK_NAMED_SYMBOL ("SCDIAG_EXPR", (long) MELT_GET); /*_._VALDATA___V1297*/ meltfptr[1296] = (melt_ptr_t) meltsy_SCDIAG_EXPR; } /*endgetnamedsym SCDIAG_EXPR*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_COMPILE_WARNING*/ if (NULL == /*_._VALDATA___V1299*/ meltfptr[1298]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_COMPILE_WARNING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_COMPILE_WARNING = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_COMPILE_WARNING", (long) MELT_GET); /*_._VALDATA___V1299*/ meltfptr[1298] = (melt_ptr_t) meltsy_CLASS_SOURCE_COMPILE_WARNING; } /*endgetnamedsym CLASS_SOURCE_COMPILE_WARNING*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_COMPILEWARNING*/ if (NULL == /*_._VALDATA___V1305*/ meltfptr[1304]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_COMPILEWARNING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_COMPILEWARNING = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_COMPILEWARNING", (long) MELT_GET); /*_._VALDATA___V1305*/ meltfptr[1304] = (melt_ptr_t) meltsy_CLASS_SOURCE_COMPILEWARNING; } /*endgetnamedsym CLASS_SOURCE_COMPILEWARNING*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_COMPILE_ERROR*/ if (NULL == /*_._VALDATA___V1307*/ meltfptr[1306]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_COMPILE_ERROR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_COMPILE_ERROR = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_COMPILE_ERROR", (long) MELT_GET); /*_._VALDATA___V1307*/ meltfptr[1306] = (melt_ptr_t) meltsy_CLASS_SOURCE_COMPILE_ERROR; } /*endgetnamedsym CLASS_SOURCE_COMPILE_ERROR*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE*/ if (NULL == /*_._VALDATA___V1313*/ meltfptr[1312]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE", (long) MELT_GET); /*_._VALDATA___V1313*/ meltfptr[1312] = (melt_ptr_t) meltsy_CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE; } /*endgetnamedsym CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE*/ /*^getnamedsymbol*/ /*getnamedsym:CMEC_COMMENT*/ if (NULL == /*_._VALDATA___V1321*/ meltfptr[1320]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CMEC_COMMENT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CMEC_COMMENT = melthookproc_HOOK_NAMED_SYMBOL ("CMEC_COMMENT", (long) MELT_GET); /*_._VALDATA___V1321*/ meltfptr[1320] = (melt_ptr_t) meltsy_CMEC_COMMENT; } /*endgetnamedsym CMEC_COMMENT*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT*/ if (NULL == /*_._VALDATA___V1323*/ meltfptr[1322]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT", (long) MELT_GET); /*_._VALDATA___V1323*/ meltfptr[1322] = (melt_ptr_t) meltsy_CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT; } /*endgetnamedsym CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE*/ if (NULL == /*_._VALDATA___V1329*/ meltfptr[1328]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE", (long) MELT_GET); /*_._VALDATA___V1329*/ meltfptr[1328] = (melt_ptr_t) meltsy_CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE; } /*endgetnamedsym CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE*/ /*^getnamedsymbol*/ /*getnamedsym:SUCME_COMMENT*/ if (NULL == /*_._VALDATA___V1337*/ meltfptr[1336]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SUCME_COMMENT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SUCME_COMMENT = melthookproc_HOOK_NAMED_SYMBOL ("SUCME_COMMENT", (long) MELT_GET); /*_._VALDATA___V1337*/ meltfptr[1336] = (melt_ptr_t) meltsy_SUCME_COMMENT; } /*endgetnamedsym SUCME_COMMENT*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_FETCH_PREDEFINED*/ if (NULL == /*_._VALDATA___V1339*/ meltfptr[1338]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_FETCH_PREDEFINED without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_FETCH_PREDEFINED = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_FETCH_PREDEFINED", (long) MELT_GET); /*_._VALDATA___V1339*/ meltfptr[1338] = (melt_ptr_t) meltsy_CLASS_SOURCE_FETCH_PREDEFINED; } /*endgetnamedsym CLASS_SOURCE_FETCH_PREDEFINED*/ /*^getnamedsymbol*/ /*getnamedsym:SFEPD_PREDEF*/ if (NULL == /*_._VALDATA___V1347*/ meltfptr[1346]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SFEPD_PREDEF without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SFEPD_PREDEF = melthookproc_HOOK_NAMED_SYMBOL ("SFEPD_PREDEF", (long) MELT_GET); /*_._VALDATA___V1347*/ meltfptr[1346] = (melt_ptr_t) meltsy_SFEPD_PREDEF; } /*endgetnamedsym SFEPD_PREDEF*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_STORE_PREDEFINED*/ if (NULL == /*_._VALDATA___V1349*/ meltfptr[1348]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_STORE_PREDEFINED without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_STORE_PREDEFINED = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_STORE_PREDEFINED", (long) MELT_GET); /*_._VALDATA___V1349*/ meltfptr[1348] = (melt_ptr_t) meltsy_CLASS_SOURCE_STORE_PREDEFINED; } /*endgetnamedsym CLASS_SOURCE_STORE_PREDEFINED*/ /*^getnamedsymbol*/ /*getnamedsym:SSTPD_PREDEF*/ if (NULL == /*_._VALDATA___V1359*/ meltfptr[1358]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SSTPD_PREDEF without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SSTPD_PREDEF = melthookproc_HOOK_NAMED_SYMBOL ("SSTPD_PREDEF", (long) MELT_GET); /*_._VALDATA___V1359*/ meltfptr[1358] = (melt_ptr_t) meltsy_SSTPD_PREDEF; } /*endgetnamedsym SSTPD_PREDEF*/ /*^getnamedsymbol*/ /*getnamedsym:SSTPD_VALUE*/ if (NULL == /*_._VALDATA___V1361*/ meltfptr[1360]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SSTPD_VALUE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SSTPD_VALUE = melthookproc_HOOK_NAMED_SYMBOL ("SSTPD_VALUE", (long) MELT_GET); /*_._VALDATA___V1361*/ meltfptr[1360] = (melt_ptr_t) meltsy_SSTPD_VALUE; } /*endgetnamedsym SSTPD_VALUE*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_PROTOCHUNK*/ if (NULL == /*_._VALDATA___V1363*/ meltfptr[1362]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_PROTOCHUNK without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_PROTOCHUNK = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_PROTOCHUNK", (long) MELT_GET); /*_._VALDATA___V1363*/ meltfptr[1362] = (melt_ptr_t) meltsy_CLASS_SOURCE_PROTOCHUNK; } /*endgetnamedsym CLASS_SOURCE_PROTOCHUNK*/ /*^getnamedsymbol*/ /*getnamedsym:SCH_GENSYM*/ if (NULL == /*_._VALDATA___V1373*/ meltfptr[1372]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SCH_GENSYM without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SCH_GENSYM = melthookproc_HOOK_NAMED_SYMBOL ("SCH_GENSYM", (long) MELT_GET); /*_._VALDATA___V1373*/ meltfptr[1372] = (melt_ptr_t) meltsy_SCH_GENSYM; } /*endgetnamedsym SCH_GENSYM*/ /*^getnamedsymbol*/ /*getnamedsym:SCH_CHUNKS*/ if (NULL == /*_._VALDATA___V1375*/ meltfptr[1374]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SCH_CHUNKS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SCH_CHUNKS = melthookproc_HOOK_NAMED_SYMBOL ("SCH_CHUNKS", (long) MELT_GET); /*_._VALDATA___V1375*/ meltfptr[1374] = (melt_ptr_t) meltsy_SCH_CHUNKS; } /*endgetnamedsym SCH_CHUNKS*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_CODECHUNK*/ if (NULL == /*_._VALDATA___V1377*/ meltfptr[1376]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_CODECHUNK without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_CODECHUNK = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_CODECHUNK", (long) MELT_GET); /*_._VALDATA___V1377*/ meltfptr[1376] = (melt_ptr_t) meltsy_CLASS_SOURCE_CODECHUNK; } /*endgetnamedsym CLASS_SOURCE_CODECHUNK*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_EXPRCHUNK*/ if (NULL == /*_._VALDATA___V1383*/ meltfptr[1382]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_EXPRCHUNK without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_EXPRCHUNK = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_EXPRCHUNK", (long) MELT_GET); /*_._VALDATA___V1383*/ meltfptr[1382] = (melt_ptr_t) meltsy_CLASS_SOURCE_EXPRCHUNK; } /*endgetnamedsym CLASS_SOURCE_EXPRCHUNK*/ /*^getnamedsymbol*/ /*getnamedsym:SXCH_CTYPE*/ if (NULL == /*_._VALDATA___V1391*/ meltfptr[1390]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SXCH_CTYPE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SXCH_CTYPE = melthookproc_HOOK_NAMED_SYMBOL ("SXCH_CTYPE", (long) MELT_GET); /*_._VALDATA___V1391*/ meltfptr[1390] = (melt_ptr_t) meltsy_SXCH_CTYPE; } /*endgetnamedsym SXCH_CTYPE*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_PATTERN*/ if (NULL == /*_._VALDATA___V1393*/ meltfptr[1392]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_PATTERN without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_PATTERN = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_PATTERN", (long) MELT_GET); /*_._VALDATA___V1393*/ meltfptr[1392] = (melt_ptr_t) meltsy_CLASS_SOURCE_PATTERN; } /*endgetnamedsym CLASS_SOURCE_PATTERN*/ /*^getnamedsymbol*/ /*getnamedsym:PAT_WEIGHT*/ if (NULL == /*_._VALDATA___V1401*/ meltfptr[1400]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol PAT_WEIGHT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_PAT_WEIGHT = melthookproc_HOOK_NAMED_SYMBOL ("PAT_WEIGHT", (long) MELT_GET); /*_._VALDATA___V1401*/ meltfptr[1400] = (melt_ptr_t) meltsy_PAT_WEIGHT; } /*endgetnamedsym PAT_WEIGHT*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_PATTERN_OR*/ if (NULL == /*_._VALDATA___V1403*/ meltfptr[1402]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_PATTERN_OR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_PATTERN_OR = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_PATTERN_OR", (long) MELT_GET); /*_._VALDATA___V1403*/ meltfptr[1402] = (melt_ptr_t) meltsy_CLASS_SOURCE_PATTERN_OR; } /*endgetnamedsym CLASS_SOURCE_PATTERN_OR*/ /*^getnamedsymbol*/ /*getnamedsym:ORPAT_DISJ*/ if (NULL == /*_._VALDATA___V1411*/ meltfptr[1410]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol ORPAT_DISJ without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_ORPAT_DISJ = melthookproc_HOOK_NAMED_SYMBOL ("ORPAT_DISJ", (long) MELT_GET); /*_._VALDATA___V1411*/ meltfptr[1410] = (melt_ptr_t) meltsy_ORPAT_DISJ; } /*endgetnamedsym ORPAT_DISJ*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_PATTERN_AND*/ if (NULL == /*_._VALDATA___V1413*/ meltfptr[1412]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_PATTERN_AND without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_PATTERN_AND = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_PATTERN_AND", (long) MELT_GET); /*_._VALDATA___V1413*/ meltfptr[1412] = (melt_ptr_t) meltsy_CLASS_SOURCE_PATTERN_AND; } /*endgetnamedsym CLASS_SOURCE_PATTERN_AND*/ /*^getnamedsymbol*/ /*getnamedsym:ANDPAT_CONJ*/ if (NULL == /*_._VALDATA___V1421*/ meltfptr[1420]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol ANDPAT_CONJ without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_ANDPAT_CONJ = melthookproc_HOOK_NAMED_SYMBOL ("ANDPAT_CONJ", (long) MELT_GET); /*_._VALDATA___V1421*/ meltfptr[1420] = (melt_ptr_t) meltsy_ANDPAT_CONJ; } /*endgetnamedsym ANDPAT_CONJ*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_PATTERN_WHEN*/ if (NULL == /*_._VALDATA___V1423*/ meltfptr[1422]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_PATTERN_WHEN without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_PATTERN_WHEN = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_PATTERN_WHEN", (long) MELT_GET); /*_._VALDATA___V1423*/ meltfptr[1422] = (melt_ptr_t) meltsy_CLASS_SOURCE_PATTERN_WHEN; } /*endgetnamedsym CLASS_SOURCE_PATTERN_WHEN*/ /*^getnamedsymbol*/ /*getnamedsym:WHENPAT_SUBPAT*/ if (NULL == /*_._VALDATA___V1433*/ meltfptr[1432]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol WHENPAT_SUBPAT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_WHENPAT_SUBPAT = melthookproc_HOOK_NAMED_SYMBOL ("WHENPAT_SUBPAT", (long) MELT_GET); /*_._VALDATA___V1433*/ meltfptr[1432] = (melt_ptr_t) meltsy_WHENPAT_SUBPAT; } /*endgetnamedsym WHENPAT_SUBPAT*/ /*^getnamedsymbol*/ /*getnamedsym:WHENPAT_COND*/ if (NULL == /*_._VALDATA___V1435*/ meltfptr[1434]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol WHENPAT_COND without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_WHENPAT_COND = melthookproc_HOOK_NAMED_SYMBOL ("WHENPAT_COND", (long) MELT_GET); /*_._VALDATA___V1435*/ meltfptr[1434] = (melt_ptr_t) meltsy_WHENPAT_COND; } /*endgetnamedsym WHENPAT_COND*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_PATTERN_VARIABLE*/ if (NULL == /*_._VALDATA___V1437*/ meltfptr[1436]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_PATTERN_VARIABLE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_PATTERN_VARIABLE = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_PATTERN_VARIABLE", (long) MELT_GET); /*_._VALDATA___V1437*/ meltfptr[1436] = (melt_ptr_t) meltsy_CLASS_SOURCE_PATTERN_VARIABLE; } /*endgetnamedsym CLASS_SOURCE_PATTERN_VARIABLE*/ /*^getnamedsymbol*/ /*getnamedsym:SPATVAR_SYMB*/ if (NULL == /*_._VALDATA___V1447*/ meltfptr[1446]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SPATVAR_SYMB without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SPATVAR_SYMB = melthookproc_HOOK_NAMED_SYMBOL ("SPATVAR_SYMB", (long) MELT_GET); /*_._VALDATA___V1447*/ meltfptr[1446] = (melt_ptr_t) meltsy_SPATVAR_SYMB; } /*endgetnamedsym SPATVAR_SYMB*/ /*^getnamedsymbol*/ /*getnamedsym:SPATVAR_NBOCC*/ if (NULL == /*_._VALDATA___V1449*/ meltfptr[1448]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SPATVAR_NBOCC without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SPATVAR_NBOCC = melthookproc_HOOK_NAMED_SYMBOL ("SPATVAR_NBOCC", (long) MELT_GET); /*_._VALDATA___V1449*/ meltfptr[1448] = (melt_ptr_t) meltsy_SPATVAR_NBOCC; } /*endgetnamedsym SPATVAR_NBOCC*/ /*^getnamedsymbol*/ /*getnamedsym:SPAT_VAR*/ if (NULL == /*_._VALDATA___V1451*/ meltfptr[1450]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SPAT_VAR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SPAT_VAR = melthookproc_HOOK_NAMED_SYMBOL ("SPAT_VAR", (long) MELT_GET); /*_._VALDATA___V1451*/ meltfptr[1450] = (melt_ptr_t) meltsy_SPAT_VAR; } /*endgetnamedsym SPAT_VAR*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_PATTERN_JOKER_VARIABLE*/ if (NULL == /*_._VALDATA___V1453*/ meltfptr[1452]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_PATTERN_JOKER_VARIABLE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_PATTERN_JOKER_VARIABLE = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_PATTERN_JOKER_VARIABLE", (long) MELT_GET); /*_._VALDATA___V1453*/ meltfptr[1452] = (melt_ptr_t) meltsy_CLASS_SOURCE_PATTERN_JOKER_VARIABLE; } /*endgetnamedsym CLASS_SOURCE_PATTERN_JOKER_VARIABLE*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_PATTERN_CONSTANT*/ if (NULL == /*_._VALDATA___V1459*/ meltfptr[1458]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_PATTERN_CONSTANT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_PATTERN_CONSTANT = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_PATTERN_CONSTANT", (long) MELT_GET); /*_._VALDATA___V1459*/ meltfptr[1458] = (melt_ptr_t) meltsy_CLASS_SOURCE_PATTERN_CONSTANT; } /*endgetnamedsym CLASS_SOURCE_PATTERN_CONSTANT*/ /*^getnamedsymbol*/ /*getnamedsym:SPAT_CONSTX*/ if (NULL == /*_._VALDATA___V1467*/ meltfptr[1466]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SPAT_CONSTX without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SPAT_CONSTX = melthookproc_HOOK_NAMED_SYMBOL ("SPAT_CONSTX", (long) MELT_GET); /*_._VALDATA___V1467*/ meltfptr[1466] = (melt_ptr_t) meltsy_SPAT_CONSTX; } /*endgetnamedsym SPAT_CONSTX*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_PATTERN_CONSTRUCT*/ if (NULL == /*_._VALDATA___V1469*/ meltfptr[1468]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_PATTERN_CONSTRUCT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_PATTERN_CONSTRUCT = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_PATTERN_CONSTRUCT", (long) MELT_GET); /*_._VALDATA___V1469*/ meltfptr[1468] = (melt_ptr_t) meltsy_CLASS_SOURCE_PATTERN_CONSTRUCT; } /*endgetnamedsym CLASS_SOURCE_PATTERN_CONSTRUCT*/ /*^getnamedsymbol*/ /*getnamedsym:CTPAT_SUBPA*/ if (NULL == /*_._VALDATA___V1477*/ meltfptr[1476]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CTPAT_SUBPA without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CTPAT_SUBPA = melthookproc_HOOK_NAMED_SYMBOL ("CTPAT_SUBPA", (long) MELT_GET); /*_._VALDATA___V1477*/ meltfptr[1476] = (melt_ptr_t) meltsy_CTPAT_SUBPA; } /*endgetnamedsym CTPAT_SUBPA*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_PATTERN_TUPLE*/ if (NULL == /*_._VALDATA___V1479*/ meltfptr[1478]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_PATTERN_TUPLE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_PATTERN_TUPLE = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_PATTERN_TUPLE", (long) MELT_GET); /*_._VALDATA___V1479*/ meltfptr[1478] = (melt_ptr_t) meltsy_CLASS_SOURCE_PATTERN_TUPLE; } /*endgetnamedsym CLASS_SOURCE_PATTERN_TUPLE*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_PATTERN_LIST*/ if (NULL == /*_._VALDATA___V1485*/ meltfptr[1484]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_PATTERN_LIST without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_PATTERN_LIST = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_PATTERN_LIST", (long) MELT_GET); /*_._VALDATA___V1485*/ meltfptr[1484] = (melt_ptr_t) meltsy_CLASS_SOURCE_PATTERN_LIST; } /*endgetnamedsym CLASS_SOURCE_PATTERN_LIST*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_PATTERN_OBJECT*/ if (NULL == /*_._VALDATA___V1491*/ meltfptr[1490]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_PATTERN_OBJECT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_PATTERN_OBJECT = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_PATTERN_OBJECT", (long) MELT_GET); /*_._VALDATA___V1491*/ meltfptr[1490] = (melt_ptr_t) meltsy_CLASS_SOURCE_PATTERN_OBJECT; } /*endgetnamedsym CLASS_SOURCE_PATTERN_OBJECT*/ /*^getnamedsymbol*/ /*getnamedsym:SPAT_CLASS*/ if (NULL == /*_._VALDATA___V1501*/ meltfptr[1500]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SPAT_CLASS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SPAT_CLASS = melthookproc_HOOK_NAMED_SYMBOL ("SPAT_CLASS", (long) MELT_GET); /*_._VALDATA___V1501*/ meltfptr[1500] = (melt_ptr_t) meltsy_SPAT_CLASS; } /*endgetnamedsym SPAT_CLASS*/ /*^getnamedsymbol*/ /*getnamedsym:SPAT_FIELDS*/ if (NULL == /*_._VALDATA___V1503*/ meltfptr[1502]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SPAT_FIELDS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SPAT_FIELDS = melthookproc_HOOK_NAMED_SYMBOL ("SPAT_FIELDS", (long) MELT_GET); /*_._VALDATA___V1503*/ meltfptr[1502] = (melt_ptr_t) meltsy_SPAT_FIELDS; } /*endgetnamedsym SPAT_FIELDS*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_PATTERN_INSTANCE*/ if (NULL == /*_._VALDATA___V1505*/ meltfptr[1504]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_PATTERN_INSTANCE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_PATTERN_INSTANCE = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_PATTERN_INSTANCE", (long) MELT_GET); /*_._VALDATA___V1505*/ meltfptr[1504] = (melt_ptr_t) meltsy_CLASS_SOURCE_PATTERN_INSTANCE; } /*endgetnamedsym CLASS_SOURCE_PATTERN_INSTANCE*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_FIELD_PATTERN*/ if (NULL == /*_._VALDATA___V1511*/ meltfptr[1510]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_FIELD_PATTERN without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_FIELD_PATTERN = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_FIELD_PATTERN", (long) MELT_GET); /*_._VALDATA___V1511*/ meltfptr[1510] = (melt_ptr_t) meltsy_CLASS_SOURCE_FIELD_PATTERN; } /*endgetnamedsym CLASS_SOURCE_FIELD_PATTERN*/ /*^getnamedsymbol*/ /*getnamedsym:SPAF_FIELD*/ if (NULL == /*_._VALDATA___V1521*/ meltfptr[1520]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SPAF_FIELD without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SPAF_FIELD = melthookproc_HOOK_NAMED_SYMBOL ("SPAF_FIELD", (long) MELT_GET); /*_._VALDATA___V1521*/ meltfptr[1520] = (melt_ptr_t) meltsy_SPAF_FIELD; } /*endgetnamedsym SPAF_FIELD*/ /*^getnamedsymbol*/ /*getnamedsym:SPAF_PATTERN*/ if (NULL == /*_._VALDATA___V1523*/ meltfptr[1522]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SPAF_PATTERN without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SPAF_PATTERN = melthookproc_HOOK_NAMED_SYMBOL ("SPAF_PATTERN", (long) MELT_GET); /*_._VALDATA___V1523*/ meltfptr[1522] = (melt_ptr_t) meltsy_SPAF_PATTERN; } /*endgetnamedsym SPAF_PATTERN*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_PATTERN_COMPOSITE*/ if (NULL == /*_._VALDATA___V1525*/ meltfptr[1524]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_PATTERN_COMPOSITE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_PATTERN_COMPOSITE = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_PATTERN_COMPOSITE", (long) MELT_GET); /*_._VALDATA___V1525*/ meltfptr[1524] = (melt_ptr_t) meltsy_CLASS_SOURCE_PATTERN_COMPOSITE; } /*endgetnamedsym CLASS_SOURCE_PATTERN_COMPOSITE*/ /*^getnamedsymbol*/ /*getnamedsym:SPAC_OPERATOR*/ if (NULL == /*_._VALDATA___V1539*/ meltfptr[1538]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SPAC_OPERATOR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SPAC_OPERATOR = melthookproc_HOOK_NAMED_SYMBOL ("SPAC_OPERATOR", (long) MELT_GET); /*_._VALDATA___V1539*/ meltfptr[1538] = (melt_ptr_t) meltsy_SPAC_OPERATOR; } /*endgetnamedsym SPAC_OPERATOR*/ /*^getnamedsymbol*/ /*getnamedsym:SPAC_OPERBIND*/ if (NULL == /*_._VALDATA___V1541*/ meltfptr[1540]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SPAC_OPERBIND without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SPAC_OPERBIND = melthookproc_HOOK_NAMED_SYMBOL ("SPAC_OPERBIND", (long) MELT_GET); /*_._VALDATA___V1541*/ meltfptr[1540] = (melt_ptr_t) meltsy_SPAC_OPERBIND; } /*endgetnamedsym SPAC_OPERBIND*/ /*^getnamedsymbol*/ /*getnamedsym:SPAC_INARGS*/ if (NULL == /*_._VALDATA___V1543*/ meltfptr[1542]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SPAC_INARGS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SPAC_INARGS = melthookproc_HOOK_NAMED_SYMBOL ("SPAC_INARGS", (long) MELT_GET); /*_._VALDATA___V1543*/ meltfptr[1542] = (melt_ptr_t) meltsy_SPAC_INARGS; } /*endgetnamedsym SPAC_INARGS*/ /*^getnamedsymbol*/ /*getnamedsym:SPAC_OUTARGS*/ if (NULL == /*_._VALDATA___V1545*/ meltfptr[1544]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SPAC_OUTARGS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SPAC_OUTARGS = melthookproc_HOOK_NAMED_SYMBOL ("SPAC_OUTARGS", (long) MELT_GET); /*_._VALDATA___V1545*/ meltfptr[1544] = (melt_ptr_t) meltsy_SPAC_OUTARGS; } /*endgetnamedsym SPAC_OUTARGS*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_PATTERN_MATCHER*/ if (NULL == /*_._VALDATA___V1547*/ meltfptr[1546]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_PATTERN_MATCHER without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_PATTERN_MATCHER = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_PATTERN_MATCHER", (long) MELT_GET); /*_._VALDATA___V1547*/ meltfptr[1546] = (melt_ptr_t) meltsy_CLASS_SOURCE_PATTERN_MATCHER; } /*endgetnamedsym CLASS_SOURCE_PATTERN_MATCHER*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_PATTERN_C_MATCH*/ if (NULL == /*_._VALDATA___V1553*/ meltfptr[1552]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_PATTERN_C_MATCH without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_PATTERN_C_MATCH = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_PATTERN_C_MATCH", (long) MELT_GET); /*_._VALDATA___V1553*/ meltfptr[1552] = (melt_ptr_t) meltsy_CLASS_SOURCE_PATTERN_C_MATCH; } /*endgetnamedsym CLASS_SOURCE_PATTERN_C_MATCH*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_PATTERN_FUN_MATCH*/ if (NULL == /*_._VALDATA___V1559*/ meltfptr[1558]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_PATTERN_FUN_MATCH without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_PATTERN_FUN_MATCH = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_PATTERN_FUN_MATCH", (long) MELT_GET); /*_._VALDATA___V1559*/ meltfptr[1558] = (melt_ptr_t) meltsy_CLASS_SOURCE_PATTERN_FUN_MATCH; } /*endgetnamedsym CLASS_SOURCE_PATTERN_FUN_MATCH*/ /*^getnamedkeyword*/ /*getnamedkeyw:TRUE*/ { melt_ptr_t kw_TRUE = melthookproc_HOOK_NAMED_KEYWORD ("TRUE", (long) MELT_GET); if (kw_TRUE) /*_._VALDATA___V1567*/ meltfptr[1566] = (melt_ptr_t) kw_TRUE; } /*^getnamedsymbol*/ /*getnamedsym:DISCR_CONSTANT_INTEGER*/ if (NULL == /*_._VALDATA___V1570*/ meltfptr[1569]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol DISCR_CONSTANT_INTEGER without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DISCR_CONSTANT_INTEGER = melthookproc_HOOK_NAMED_SYMBOL ("DISCR_CONSTANT_INTEGER", (long) MELT_GET); /*_._VALDATA___V1570*/ meltfptr[1569] = (melt_ptr_t) meltsy_DISCR_CONSTANT_INTEGER; } /*endgetnamedsym DISCR_CONSTANT_INTEGER*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_ANY_BINDING*/ if (NULL == /*_._VALDATA___V1574*/ meltfptr[1573]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_ANY_BINDING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_ANY_BINDING = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_ANY_BINDING", (long) MELT_GET); /*_._VALDATA___V1574*/ meltfptr[1573] = (melt_ptr_t) meltsy_CLASS_ANY_BINDING; } /*endgetnamedsym CLASS_ANY_BINDING*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_ENVIRONMENT*/ if (NULL == /*_._VALDATA___V1576*/ meltfptr[1575]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_ENVIRONMENT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_ENVIRONMENT = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_ENVIRONMENT", (long) MELT_GET); /*_._VALDATA___V1576*/ meltfptr[1575] = (melt_ptr_t) meltsy_CLASS_ENVIRONMENT; } /*endgetnamedsym CLASS_ENVIRONMENT*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_ANY_MODULE_CONTEXT*/ if (NULL == /*_._VALDATA___V1578*/ meltfptr[1577]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_ANY_MODULE_CONTEXT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_ANY_MODULE_CONTEXT = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_ANY_MODULE_CONTEXT", (long) MELT_GET); /*_._VALDATA___V1578*/ meltfptr[1577] = (melt_ptr_t) meltsy_CLASS_ANY_MODULE_CONTEXT; } /*endgetnamedsym CLASS_ANY_MODULE_CONTEXT*/ /*^getnamedsymbol*/ /*getnamedsym:FIND_ENV*/ if (NULL == /*_._VALDATA___V1580*/ meltfptr[1579]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol FIND_ENV without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_FIND_ENV = melthookproc_HOOK_NAMED_SYMBOL ("FIND_ENV", (long) MELT_GET); /*_._VALDATA___V1580*/ meltfptr[1579] = (melt_ptr_t) meltsy_FIND_ENV; } /*endgetnamedsym FIND_ENV*/ /*^getnamedsymbol*/ /*getnamedsym:PUT_ENV*/ if (NULL == /*_._VALDATA___V1582*/ meltfptr[1581]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol PUT_ENV without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_PUT_ENV = melthookproc_HOOK_NAMED_SYMBOL ("PUT_ENV", (long) MELT_GET); /*_._VALDATA___V1582*/ meltfptr[1581] = (melt_ptr_t) meltsy_PUT_ENV; } /*endgetnamedsym PUT_ENV*/ /*^getnamedsymbol*/ /*getnamedsym:LIST_APPEND2LIST*/ if (NULL == /*_._VALDATA___V1586*/ meltfptr[1585]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol LIST_APPEND2LIST without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_LIST_APPEND2LIST = melthookproc_HOOK_NAMED_SYMBOL ("LIST_APPEND2LIST", (long) MELT_GET); /*_._VALDATA___V1586*/ meltfptr[1585] = (melt_ptr_t) meltsy_LIST_APPEND2LIST; } /*endgetnamedsym LIST_APPEND2LIST*/ /*^getnamedsymbol*/ /*getnamedsym:DISCR_LIST*/ if (NULL == /*_._VALDATA___V1596*/ meltfptr[1595]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol DISCR_LIST without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DISCR_LIST = melthookproc_HOOK_NAMED_SYMBOL ("DISCR_LIST", (long) MELT_GET); /*_._VALDATA___V1596*/ meltfptr[1595] = (melt_ptr_t) meltsy_DISCR_LIST; } /*endgetnamedsym DISCR_LIST*/ /*^getnamedsymbol*/ /*getnamedsym:DEBUG_LESS*/ if (NULL == /*_._VALDATA___V1602*/ meltfptr[1601]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol DEBUG_LESS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DEBUG_LESS = melthookproc_HOOK_NAMED_SYMBOL ("DEBUG_LESS", (long) MELT_GET); /*_._VALDATA___V1602*/ meltfptr[1601] = (melt_ptr_t) meltsy_DEBUG_LESS; } /*endgetnamedsym DEBUG_LESS*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_FIELD*/ if (NULL == /*_._VALDATA___V1608*/ meltfptr[1607]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_FIELD without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_FIELD = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_FIELD", (long) MELT_GET); /*_._VALDATA___V1608*/ meltfptr[1607] = (melt_ptr_t) meltsy_CLASS_FIELD; } /*endgetnamedsym CLASS_FIELD*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_CITERATOR*/ if (NULL == /*_._VALDATA___V1620*/ meltfptr[1619]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_CITERATOR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_CITERATOR = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_CITERATOR", (long) MELT_GET); /*_._VALDATA___V1620*/ meltfptr[1619] = (melt_ptr_t) meltsy_CLASS_CITERATOR; } /*endgetnamedsym CLASS_CITERATOR*/ /*^getnamedsymbol*/ /*getnamedsym:FRESH_ENV*/ if (NULL == /*_._VALDATA___V1622*/ meltfptr[1621]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol FRESH_ENV without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_FRESH_ENV = melthookproc_HOOK_NAMED_SYMBOL ("FRESH_ENV", (long) MELT_GET); /*_._VALDATA___V1622*/ meltfptr[1621] = (melt_ptr_t) meltsy_FRESH_ENV; } /*endgetnamedsym FRESH_ENV*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_CMATCHER*/ if (NULL == /*_._VALDATA___V1626*/ meltfptr[1625]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_CMATCHER without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_CMATCHER = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_CMATCHER", (long) MELT_GET); /*_._VALDATA___V1626*/ meltfptr[1625] = (melt_ptr_t) meltsy_CLASS_CMATCHER; } /*endgetnamedsym CLASS_CMATCHER*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_ANY_MATCHER*/ if (NULL == /*_._VALDATA___V1628*/ meltfptr[1627]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_ANY_MATCHER without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_ANY_MATCHER = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_ANY_MATCHER", (long) MELT_GET); /*_._VALDATA___V1628*/ meltfptr[1627] = (melt_ptr_t) meltsy_CLASS_ANY_MATCHER; } /*endgetnamedsym CLASS_ANY_MATCHER*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_FUNMATCHER*/ if (NULL == /*_._VALDATA___V1632*/ meltfptr[1631]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_FUNMATCHER without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_FUNMATCHER = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_FUNMATCHER", (long) MELT_GET); /*_._VALDATA___V1632*/ meltfptr[1631] = (melt_ptr_t) meltsy_CLASS_FUNMATCHER; } /*endgetnamedsym CLASS_FUNMATCHER*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SELECTOR_BINDING*/ if (NULL == /*_._VALDATA___V1643*/ meltfptr[1642]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SELECTOR_BINDING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SELECTOR_BINDING = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SELECTOR_BINDING", (long) MELT_GET); /*_._VALDATA___V1643*/ meltfptr[1642] = (melt_ptr_t) meltsy_CLASS_SELECTOR_BINDING; } /*endgetnamedsym CLASS_SELECTOR_BINDING*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_PRIMITIVE_BINDING*/ if (NULL == /*_._VALDATA___V1645*/ meltfptr[1644]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_PRIMITIVE_BINDING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_PRIMITIVE_BINDING = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_PRIMITIVE_BINDING", (long) MELT_GET); /*_._VALDATA___V1645*/ meltfptr[1644] = (melt_ptr_t) meltsy_CLASS_PRIMITIVE_BINDING; } /*endgetnamedsym CLASS_PRIMITIVE_BINDING*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_CITERATOR_BINDING*/ if (NULL == /*_._VALDATA___V1647*/ meltfptr[1646]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_CITERATOR_BINDING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_CITERATOR_BINDING = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_CITERATOR_BINDING", (long) MELT_GET); /*_._VALDATA___V1647*/ meltfptr[1646] = (melt_ptr_t) meltsy_CLASS_CITERATOR_BINDING; } /*endgetnamedsym CLASS_CITERATOR_BINDING*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_HOOK_BINDING*/ if (NULL == /*_._VALDATA___V1649*/ meltfptr[1648]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_HOOK_BINDING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_HOOK_BINDING = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_HOOK_BINDING", (long) MELT_GET); /*_._VALDATA___V1649*/ meltfptr[1648] = (melt_ptr_t) meltsy_CLASS_HOOK_BINDING; } /*endgetnamedsym CLASS_HOOK_BINDING*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_CMATCHER_BINDING*/ if (NULL == /*_._VALDATA___V1651*/ meltfptr[1650]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_CMATCHER_BINDING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_CMATCHER_BINDING = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_CMATCHER_BINDING", (long) MELT_GET); /*_._VALDATA___V1651*/ meltfptr[1650] = (melt_ptr_t) meltsy_CLASS_CMATCHER_BINDING; } /*endgetnamedsym CLASS_CMATCHER_BINDING*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_FUNMATCHER_BINDING*/ if (NULL == /*_._VALDATA___V1653*/ meltfptr[1652]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_FUNMATCHER_BINDING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_FUNMATCHER_BINDING = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_FUNMATCHER_BINDING", (long) MELT_GET); /*_._VALDATA___V1653*/ meltfptr[1652] = (melt_ptr_t) meltsy_CLASS_FUNMATCHER_BINDING; } /*endgetnamedsym CLASS_FUNMATCHER_BINDING*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_FIELD_BINDING*/ if (NULL == /*_._VALDATA___V1655*/ meltfptr[1654]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_FIELD_BINDING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_FIELD_BINDING = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_FIELD_BINDING", (long) MELT_GET); /*_._VALDATA___V1655*/ meltfptr[1654] = (melt_ptr_t) meltsy_CLASS_FIELD_BINDING; } /*endgetnamedsym CLASS_FIELD_BINDING*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_FORMAL_BINDING*/ if (NULL == /*_._VALDATA___V1657*/ meltfptr[1656]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_FORMAL_BINDING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_FORMAL_BINDING = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_FORMAL_BINDING", (long) MELT_GET); /*_._VALDATA___V1657*/ meltfptr[1656] = (melt_ptr_t) meltsy_CLASS_FORMAL_BINDING; } /*endgetnamedsym CLASS_FORMAL_BINDING*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_LET_BINDING*/ if (NULL == /*_._VALDATA___V1659*/ meltfptr[1658]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_LET_BINDING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_LET_BINDING = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_LET_BINDING", (long) MELT_GET); /*_._VALDATA___V1659*/ meltfptr[1658] = (melt_ptr_t) meltsy_CLASS_LET_BINDING; } /*endgetnamedsym CLASS_LET_BINDING*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_VALUE_BINDING*/ if (NULL == /*_._VALDATA___V1661*/ meltfptr[1660]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_VALUE_BINDING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_VALUE_BINDING = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_VALUE_BINDING", (long) MELT_GET); /*_._VALDATA___V1661*/ meltfptr[1660] = (melt_ptr_t) meltsy_CLASS_VALUE_BINDING; } /*endgetnamedsym CLASS_VALUE_BINDING*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_PRIMITIVE*/ if (NULL == /*_._VALDATA___V1663*/ meltfptr[1662]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_PRIMITIVE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_PRIMITIVE = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_PRIMITIVE", (long) MELT_GET); /*_._VALDATA___V1663*/ meltfptr[1662] = (melt_ptr_t) meltsy_CLASS_PRIMITIVE; } /*endgetnamedsym CLASS_PRIMITIVE*/ /*^getnamedsymbol*/ /*getnamedsym:DEBUG_MORE*/ if (NULL == /*_._VALDATA___V1665*/ meltfptr[1664]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol DEBUG_MORE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DEBUG_MORE = melthookproc_HOOK_NAMED_SYMBOL ("DEBUG_MORE", (long) MELT_GET); /*_._VALDATA___V1665*/ meltfptr[1664] = (melt_ptr_t) meltsy_DEBUG_MORE; } /*endgetnamedsym DEBUG_MORE*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_PATTERN_EXPANSION_CONTEXT*/ if (NULL == /*_._VALDATA___V1667*/ meltfptr[1666]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_PATTERN_EXPANSION_CONTEXT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_PATTERN_EXPANSION_CONTEXT = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_PATTERN_EXPANSION_CONTEXT", (long) MELT_GET); /*_._VALDATA___V1667*/ meltfptr[1666] = (melt_ptr_t) meltsy_CLASS_PATTERN_EXPANSION_CONTEXT; } /*endgetnamedsym CLASS_PATTERN_EXPANSION_CONTEXT*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_ROOT*/ if (NULL == /*_._VALDATA___V1669*/ meltfptr[1668]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_ROOT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_ROOT = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_ROOT", (long) MELT_GET); /*_._VALDATA___V1669*/ meltfptr[1668] = (melt_ptr_t) meltsy_CLASS_ROOT; } /*endgetnamedsym CLASS_ROOT*/ /*^getnamedsymbol*/ /*getnamedsym:PCTX_MEXPANDER*/ if (NULL == /*_._VALDATA___V1683*/ meltfptr[1682]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol PCTX_MEXPANDER without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_PCTX_MEXPANDER = melthookproc_HOOK_NAMED_SYMBOL ("PCTX_MEXPANDER", (long) MELT_GET); /*_._VALDATA___V1683*/ meltfptr[1682] = (melt_ptr_t) meltsy_PCTX_MEXPANDER; } /*endgetnamedsym PCTX_MEXPANDER*/ /*^getnamedsymbol*/ /*getnamedsym:PCTX_PEXPANDER*/ if (NULL == /*_._VALDATA___V1685*/ meltfptr[1684]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol PCTX_PEXPANDER without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_PCTX_PEXPANDER = melthookproc_HOOK_NAMED_SYMBOL ("PCTX_PEXPANDER", (long) MELT_GET); /*_._VALDATA___V1685*/ meltfptr[1684] = (melt_ptr_t) meltsy_PCTX_PEXPANDER; } /*endgetnamedsym PCTX_PEXPANDER*/ /*^getnamedsymbol*/ /*getnamedsym:PCTX_VARMAP*/ if (NULL == /*_._VALDATA___V1687*/ meltfptr[1686]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol PCTX_VARMAP without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_PCTX_VARMAP = melthookproc_HOOK_NAMED_SYMBOL ("PCTX_VARMAP", (long) MELT_GET); /*_._VALDATA___V1687*/ meltfptr[1686] = (melt_ptr_t) meltsy_PCTX_VARMAP; } /*endgetnamedsym PCTX_VARMAP*/ /*^getnamedsymbol*/ /*getnamedsym:PCTX_MODCTX*/ if (NULL == /*_._VALDATA___V1689*/ meltfptr[1688]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol PCTX_MODCTX without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_PCTX_MODCTX = melthookproc_HOOK_NAMED_SYMBOL ("PCTX_MODCTX", (long) MELT_GET); /*_._VALDATA___V1689*/ meltfptr[1688] = (melt_ptr_t) meltsy_PCTX_MODCTX; } /*endgetnamedsym PCTX_MODCTX*/ /*^getnamedsymbol*/ /*getnamedsym:PAIRLIST_TO_MULTIPLE*/ if (NULL == /*_._VALDATA___V1713*/ meltfptr[1712]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol PAIRLIST_TO_MULTIPLE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_PAIRLIST_TO_MULTIPLE = melthookproc_HOOK_NAMED_SYMBOL ("PAIRLIST_TO_MULTIPLE", (long) MELT_GET); /*_._VALDATA___V1713*/ meltfptr[1712] = (melt_ptr_t) meltsy_PAIRLIST_TO_MULTIPLE; } /*endgetnamedsym PAIRLIST_TO_MULTIPLE*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_REFERENCE*/ if (NULL == /*_._VALDATA___V1715*/ meltfptr[1714]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_REFERENCE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_REFERENCE = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_REFERENCE", (long) MELT_GET); /*_._VALDATA___V1715*/ meltfptr[1714] = (melt_ptr_t) meltsy_CLASS_REFERENCE; } /*endgetnamedsym CLASS_REFERENCE*/ /*^getnamedsymbol*/ /*getnamedsym:MULTIPLE_MAP*/ if (NULL == /*_._VALDATA___V1717*/ meltfptr[1716]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol MULTIPLE_MAP without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MULTIPLE_MAP = melthookproc_HOOK_NAMED_SYMBOL ("MULTIPLE_MAP", (long) MELT_GET); /*_._VALDATA___V1717*/ meltfptr[1716] = (melt_ptr_t) meltsy_MULTIPLE_MAP; } /*endgetnamedsym MULTIPLE_MAP*/ /*^getnamedsymbol*/ /*getnamedsym:DISCR_INTEGER*/ if (NULL == /*_._VALDATA___V1719*/ meltfptr[1718]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol DISCR_INTEGER without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DISCR_INTEGER = melthookproc_HOOK_NAMED_SYMBOL ("DISCR_INTEGER", (long) MELT_GET); /*_._VALDATA___V1719*/ meltfptr[1718] = (melt_ptr_t) meltsy_DISCR_INTEGER; } /*endgetnamedsym DISCR_INTEGER*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_PATMACRO_BINDING*/ if (NULL == /*_._VALDATA___V1721*/ meltfptr[1720]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_PATMACRO_BINDING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_PATMACRO_BINDING = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_PATMACRO_BINDING", (long) MELT_GET); /*_._VALDATA___V1721*/ meltfptr[1720] = (melt_ptr_t) meltsy_CLASS_PATMACRO_BINDING; } /*endgetnamedsym CLASS_PATMACRO_BINDING*/ /*^getnamedsymbol*/ /*getnamedsym:QUESTION*/ if (NULL == /*_._VALDATA___V1694*/ meltfptr[1693]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol QUESTION without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_QUESTION = melthookproc_HOOK_NAMED_SYMBOL ("QUESTION", (long) MELT_GET); /*_._VALDATA___V1694*/ meltfptr[1693] = (melt_ptr_t) meltsy_QUESTION; } /*endgetnamedsym QUESTION*/ /*^getnamedsymbol*/ /*getnamedsym:_*/ if (NULL == /*_._VALDATA___V1697*/ meltfptr[1696]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol _ without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy__ = melthookproc_HOOK_NAMED_SYMBOL ("_", (long) MELT_GET); /*_._VALDATA___V1697*/ meltfptr[1696] = (melt_ptr_t) meltsy__; } /*endgetnamedsym _*/ /*^getnamedsymbol*/ /*getnamedsym:DISCR_FORMAL_SEQUENCE*/ if (NULL == /*_._VALDATA___V1725*/ meltfptr[1724]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol DISCR_FORMAL_SEQUENCE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DISCR_FORMAL_SEQUENCE = melthookproc_HOOK_NAMED_SYMBOL ("DISCR_FORMAL_SEQUENCE", (long) MELT_GET); /*_._VALDATA___V1725*/ meltfptr[1724] = (melt_ptr_t) meltsy_DISCR_FORMAL_SEQUENCE; } /*endgetnamedsym DISCR_FORMAL_SEQUENCE*/ /*^getnamedsymbol*/ /*getnamedsym:CTYPE_VALUE*/ if (NULL == /*_._VALDATA___V1727*/ meltfptr[1726]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CTYPE_VALUE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CTYPE_VALUE = melthookproc_HOOK_NAMED_SYMBOL ("CTYPE_VALUE", (long) MELT_GET); /*_._VALDATA___V1727*/ meltfptr[1726] = (melt_ptr_t) meltsy_CTYPE_VALUE; } /*endgetnamedsym CTYPE_VALUE*/ /*^getnamedkeyword*/ /*getnamedkeyw:REST*/ { melt_ptr_t kw_REST = melthookproc_HOOK_NAMED_KEYWORD ("REST", (long) MELT_GET); if (kw_REST) /*_._VALDATA___V1613*/ meltfptr[1612] = (melt_ptr_t) kw_REST; } /*^getnamedsymbol*/ /*getnamedsym:DISCR_VARIADIC_FORMAL_SEQUENCE*/ if (NULL == /*_._VALDATA___V1729*/ meltfptr[1728]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol DISCR_VARIADIC_FORMAL_SEQUENCE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DISCR_VARIADIC_FORMAL_SEQUENCE = melthookproc_HOOK_NAMED_SYMBOL ("DISCR_VARIADIC_FORMAL_SEQUENCE", (long) MELT_GET); /*_._VALDATA___V1729*/ meltfptr[1728] = (melt_ptr_t) meltsy_DISCR_VARIADIC_FORMAL_SEQUENCE; } /*endgetnamedsym DISCR_VARIADIC_FORMAL_SEQUENCE*/ /*^getnamedkeyword*/ /*getnamedkeyw:AUTO*/ { melt_ptr_t kw_AUTO = melthookproc_HOOK_NAMED_KEYWORD ("AUTO", (long) MELT_GET); if (kw_AUTO) /*_._VALDATA___V1615*/ meltfptr[1614] = (melt_ptr_t) kw_AUTO; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_CTYPE*/ if (NULL == /*_._VALDATA___V1731*/ meltfptr[1730]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_CTYPE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_CTYPE = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_CTYPE", (long) MELT_GET); /*_._VALDATA___V1731*/ meltfptr[1730] = (melt_ptr_t) meltsy_CLASS_CTYPE; } /*endgetnamedsym CLASS_CTYPE*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_QUASI_CTYPE*/ if (NULL == /*_._VALDATA___V1733*/ meltfptr[1732]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_QUASI_CTYPE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_QUASI_CTYPE = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_QUASI_CTYPE", (long) MELT_GET); /*_._VALDATA___V1733*/ meltfptr[1732] = (melt_ptr_t) meltsy_CLASS_QUASI_CTYPE; } /*endgetnamedsym CLASS_QUASI_CTYPE*/ /*^getnamedkeyword*/ /*getnamedkeyw:CHECKARGS*/ { melt_ptr_t kw_CHECKARGS = melthookproc_HOOK_NAMED_KEYWORD ("CHECKARGS", (long) MELT_GET); if (kw_CHECKARGS) /*_._VALDATA___V1617*/ meltfptr[1616] = (melt_ptr_t) kw_CHECKARGS; } /*^getnamedsymbol*/ /*getnamedsym:INITIAL_ENVIRONMENT*/ if (NULL == /*_._VALDATA___V1737*/ meltfptr[1736]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol INITIAL_ENVIRONMENT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_INITIAL_ENVIRONMENT = melthookproc_HOOK_NAMED_SYMBOL ("INITIAL_ENVIRONMENT", (long) MELT_GET); /*_._VALDATA___V1737*/ meltfptr[1736] = (melt_ptr_t) meltsy_INITIAL_ENVIRONMENT; } /*endgetnamedsym INITIAL_ENVIRONMENT*/ /*^getnamedsymbol*/ /*getnamedsym:WARN_SHADOW*/ if (NULL == /*_._VALDATA___V1741*/ meltfptr[1740]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol WARN_SHADOW without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_WARN_SHADOW = melthookproc_HOOK_NAMED_SYMBOL ("WARN_SHADOW", (long) MELT_GET); /*_._VALDATA___V1741*/ meltfptr[1740] = (melt_ptr_t) meltsy_WARN_SHADOW; } /*endgetnamedsym WARN_SHADOW*/ /*^getnamedsymbol*/ /*getnamedsym:DISCR_VERBATIM_STRING*/ if (NULL == /*_._VALDATA___V1752*/ meltfptr[1751]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol DISCR_VERBATIM_STRING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DISCR_VERBATIM_STRING = melthookproc_HOOK_NAMED_SYMBOL ("DISCR_VERBATIM_STRING", (long) MELT_GET); /*_._VALDATA___V1752*/ meltfptr[1751] = (melt_ptr_t) meltsy_DISCR_VERBATIM_STRING; } /*endgetnamedsym DISCR_VERBATIM_STRING*/ /*^getnamedkeyword*/ /*getnamedkeyw:DOC*/ { melt_ptr_t kw_DOC = melthookproc_HOOK_NAMED_KEYWORD ("DOC", (long) MELT_GET); if (kw_DOC) /*_._VALDATA___V1763*/ meltfptr[1762] = (melt_ptr_t) kw_DOC; } /*^getnamedsymbol*/ /*getnamedsym:DEFPRIMITIVE*/ if (NULL == /*_._VALDATA___V1766*/ meltfptr[1765]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol DEFPRIMITIVE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DEFPRIMITIVE = melthookproc_HOOK_NAMED_SYMBOL ("DEFPRIMITIVE", (long) MELT_GET); /*_._VALDATA___V1766*/ meltfptr[1765] = (melt_ptr_t) meltsy_DEFPRIMITIVE; } /*endgetnamedsym DEFPRIMITIVE*/ /*^getnamedsymbol*/ /*getnamedsym:DEFCITERATOR*/ if (NULL == /*_._VALDATA___V1770*/ meltfptr[1769]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol DEFCITERATOR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DEFCITERATOR = melthookproc_HOOK_NAMED_SYMBOL ("DEFCITERATOR", (long) MELT_GET); /*_._VALDATA___V1770*/ meltfptr[1769] = (melt_ptr_t) meltsy_DEFCITERATOR; } /*endgetnamedsym DEFCITERATOR*/ /*^getnamedsymbol*/ /*getnamedsym:DEFCMATCHER*/ if (NULL == /*_._VALDATA___V1774*/ meltfptr[1773]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol DEFCMATCHER without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DEFCMATCHER = melthookproc_HOOK_NAMED_SYMBOL ("DEFCMATCHER", (long) MELT_GET); /*_._VALDATA___V1774*/ meltfptr[1773] = (melt_ptr_t) meltsy_DEFCMATCHER; } /*endgetnamedsym DEFCMATCHER*/ /*^getnamedsymbol*/ /*getnamedsym:DEFUNMATCHER*/ if (NULL == /*_._VALDATA___V1778*/ meltfptr[1777]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol DEFUNMATCHER without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DEFUNMATCHER = melthookproc_HOOK_NAMED_SYMBOL ("DEFUNMATCHER", (long) MELT_GET); /*_._VALDATA___V1778*/ meltfptr[1777] = (melt_ptr_t) meltsy_DEFUNMATCHER; } /*endgetnamedsym DEFUNMATCHER*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_FUNCTION_BINDING*/ if (NULL == /*_._VALDATA___V1784*/ meltfptr[1783]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_FUNCTION_BINDING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_FUNCTION_BINDING = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_FUNCTION_BINDING", (long) MELT_GET); /*_._VALDATA___V1784*/ meltfptr[1783] = (melt_ptr_t) meltsy_CLASS_FUNCTION_BINDING; } /*endgetnamedsym CLASS_FUNCTION_BINDING*/ /*^getnamedkeyword*/ /*getnamedkeyw:CHECKARG*/ { melt_ptr_t kw_CHECKARG = melthookproc_HOOK_NAMED_KEYWORD ("CHECKARG", (long) MELT_GET); if (kw_CHECKARG) /*_._VALDATA___V1781*/ meltfptr[1780] = (melt_ptr_t) kw_CHECKARG; } /*^getnamedsymbol*/ /*getnamedsym:DEFUN*/ if (NULL == /*_._VALDATA___V1786*/ meltfptr[1785]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol DEFUN without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DEFUN = melthookproc_HOOK_NAMED_SYMBOL ("DEFUN", (long) MELT_GET); /*_._VALDATA___V1786*/ meltfptr[1785] = (melt_ptr_t) meltsy_DEFUN; } /*endgetnamedsym DEFUN*/ /*^getnamedsymbol*/ /*getnamedsym:DEFMACRO*/ if (NULL == /*_._VALDATA___V1793*/ meltfptr[1792]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol DEFMACRO without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DEFMACRO = melthookproc_HOOK_NAMED_SYMBOL ("DEFMACRO", (long) MELT_GET); /*_._VALDATA___V1793*/ meltfptr[1792] = (melt_ptr_t) meltsy_DEFMACRO; } /*endgetnamedsym DEFMACRO*/ /*^getnamedsymbol*/ /*getnamedsym:MBIND*/ if (NULL == /*_._VALDATA___V1799*/ meltfptr[1798]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol MBIND without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MBIND = melthookproc_HOOK_NAMED_SYMBOL ("MBIND", (long) MELT_GET); /*_._VALDATA___V1799*/ meltfptr[1798] = (melt_ptr_t) meltsy_MBIND; } /*endgetnamedsym MBIND*/ /*^getnamedsymbol*/ /*getnamedsym:MEXPCLOS*/ if (NULL == /*_._VALDATA___V1802*/ meltfptr[1801]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol MEXPCLOS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MEXPCLOS = melthookproc_HOOK_NAMED_SYMBOL ("MEXPCLOS", (long) MELT_GET); /*_._VALDATA___V1802*/ meltfptr[1801] = (melt_ptr_t) meltsy_MEXPCLOS; } /*endgetnamedsym MEXPCLOS*/ /*^getnamedsymbol*/ /*getnamedsym:AT_MACRO_EXPANSION*/ if (NULL == /*_._VALDATA___V1808*/ meltfptr[1807]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol AT_MACRO_EXPANSION without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_AT_MACRO_EXPANSION = melthookproc_HOOK_NAMED_SYMBOL ("AT_MACRO_EXPANSION", (long) MELT_GET); /*_._VALDATA___V1808*/ meltfptr[1807] = (melt_ptr_t) meltsy_AT_MACRO_EXPANSION; } /*endgetnamedsym AT_MACRO_EXPANSION*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_VARIABLE_BINDING*/ if (NULL == /*_._VALDATA___V1812*/ meltfptr[1811]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_VARIABLE_BINDING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_VARIABLE_BINDING = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_VARIABLE_BINDING", (long) MELT_GET); /*_._VALDATA___V1812*/ meltfptr[1811] = (melt_ptr_t) meltsy_CLASS_VARIABLE_BINDING; } /*endgetnamedsym CLASS_VARIABLE_BINDING*/ /*^getnamedsymbol*/ /*getnamedsym:DEFVAR*/ if (NULL == /*_._VALDATA___V1814*/ meltfptr[1813]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol DEFVAR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DEFVAR = melthookproc_HOOK_NAMED_SYMBOL ("DEFVAR", (long) MELT_GET); /*_._VALDATA___V1814*/ meltfptr[1813] = (melt_ptr_t) meltsy_DEFVAR; } /*endgetnamedsym DEFVAR*/ /*^getnamedsymbol*/ /*getnamedsym:SYMBOL_CNAME*/ if (NULL == /*_._VALDATA___V1822*/ meltfptr[1821]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SYMBOL_CNAME without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SYMBOL_CNAME = melthookproc_HOOK_NAMED_SYMBOL ("SYMBOL_CNAME", (long) MELT_GET); /*_._VALDATA___V1822*/ meltfptr[1821] = (melt_ptr_t) meltsy_SYMBOL_CNAME; } /*endgetnamedsym SYMBOL_CNAME*/ /*^getnamedkeyword*/ /*getnamedkeyw:PREDEF*/ { melt_ptr_t kw_PREDEF = melthookproc_HOOK_NAMED_KEYWORD ("PREDEF", (long) MELT_GET); if (kw_PREDEF) /*_._VALDATA___V1817*/ meltfptr[1816] = (melt_ptr_t) kw_PREDEF; } /*^getnamedkeyword*/ /*getnamedkeyw:VAR*/ { melt_ptr_t kw_VAR = melthookproc_HOOK_NAMED_KEYWORD ("VAR", (long) MELT_GET); if (kw_VAR) /*_._VALDATA___V1819*/ meltfptr[1818] = (melt_ptr_t) kw_VAR; } /*^getnamedsymbol*/ /*getnamedsym:DEFHOOK*/ if (NULL == /*_._VALDATA___V1824*/ meltfptr[1823]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol DEFHOOK without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DEFHOOK = melthookproc_HOOK_NAMED_SYMBOL ("DEFHOOK", (long) MELT_GET); /*_._VALDATA___V1824*/ meltfptr[1823] = (melt_ptr_t) meltsy_DEFHOOK; } /*endgetnamedsym DEFHOOK*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_DEFINED_VALUE_BINDING*/ if (NULL == /*_._VALDATA___V1828*/ meltfptr[1827]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_DEFINED_VALUE_BINDING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_DEFINED_VALUE_BINDING = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_DEFINED_VALUE_BINDING", (long) MELT_GET); /*_._VALDATA___V1828*/ meltfptr[1827] = (melt_ptr_t) meltsy_CLASS_DEFINED_VALUE_BINDING; } /*endgetnamedsym CLASS_DEFINED_VALUE_BINDING*/ /*^getnamedsymbol*/ /*getnamedsym:DEFINE*/ if (NULL == /*_._VALDATA___V1830*/ meltfptr[1829]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol DEFINE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DEFINE = melthookproc_HOOK_NAMED_SYMBOL ("DEFINE", (long) MELT_GET); /*_._VALDATA___V1830*/ meltfptr[1829] = (melt_ptr_t) meltsy_DEFINE; } /*endgetnamedsym DEFINE*/ /*^getnamedkeyword*/ /*getnamedkeyw:SUPER*/ { melt_ptr_t kw_SUPER = melthookproc_HOOK_NAMED_KEYWORD ("SUPER", (long) MELT_GET); if (kw_SUPER) /*_._VALDATA___V1833*/ meltfptr[1832] = (melt_ptr_t) kw_SUPER; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_CLASS_BINDING*/ if (NULL == /*_._VALDATA___V1838*/ meltfptr[1837]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_CLASS_BINDING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_CLASS_BINDING = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_CLASS_BINDING", (long) MELT_GET); /*_._VALDATA___V1838*/ meltfptr[1837] = (melt_ptr_t) meltsy_CLASS_CLASS_BINDING; } /*endgetnamedsym CLASS_CLASS_BINDING*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_CLASS*/ if (NULL == /*_._VALDATA___V1840*/ meltfptr[1839]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_CLASS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_CLASS = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_CLASS", (long) MELT_GET); /*_._VALDATA___V1840*/ meltfptr[1839] = (melt_ptr_t) meltsy_CLASS_CLASS; } /*endgetnamedsym CLASS_CLASS*/ /*^getnamedkeyword*/ /*getnamedkeyw:FIELDS*/ { melt_ptr_t kw_FIELDS = melthookproc_HOOK_NAMED_KEYWORD ("FIELDS", (long) MELT_GET); if (kw_FIELDS) /*_._VALDATA___V1835*/ meltfptr[1834] = (melt_ptr_t) kw_FIELDS; } /*^getnamedsymbol*/ /*getnamedsym:DISCR_CLASS_SEQUENCE*/ if (NULL == /*_._VALDATA___V1844*/ meltfptr[1843]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol DISCR_CLASS_SEQUENCE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DISCR_CLASS_SEQUENCE = melthookproc_HOOK_NAMED_SYMBOL ("DISCR_CLASS_SEQUENCE", (long) MELT_GET); /*_._VALDATA___V1844*/ meltfptr[1843] = (melt_ptr_t) meltsy_DISCR_CLASS_SEQUENCE; } /*endgetnamedsym DISCR_CLASS_SEQUENCE*/ /*^getnamedsymbol*/ /*getnamedsym:DISCR_MAP_STRINGS*/ if (NULL == /*_._VALDATA___V1846*/ meltfptr[1845]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol DISCR_MAP_STRINGS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DISCR_MAP_STRINGS = melthookproc_HOOK_NAMED_SYMBOL ("DISCR_MAP_STRINGS", (long) MELT_GET); /*_._VALDATA___V1846*/ meltfptr[1845] = (melt_ptr_t) meltsy_DISCR_MAP_STRINGS; } /*endgetnamedsym DISCR_MAP_STRINGS*/ /*^getnamedsymbol*/ /*getnamedsym:DISCR_FIELD_SEQUENCE*/ if (NULL == /*_._VALDATA___V1848*/ meltfptr[1847]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol DISCR_FIELD_SEQUENCE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DISCR_FIELD_SEQUENCE = melthookproc_HOOK_NAMED_SYMBOL ("DISCR_FIELD_SEQUENCE", (long) MELT_GET); /*_._VALDATA___V1848*/ meltfptr[1847] = (melt_ptr_t) meltsy_DISCR_FIELD_SEQUENCE; } /*endgetnamedsym DISCR_FIELD_SEQUENCE*/ /*^getnamedsymbol*/ /*getnamedsym:DEFCLASS*/ if (NULL == /*_._VALDATA___V1850*/ meltfptr[1849]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol DEFCLASS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DEFCLASS = melthookproc_HOOK_NAMED_SYMBOL ("DEFCLASS", (long) MELT_GET); /*_._VALDATA___V1850*/ meltfptr[1849] = (melt_ptr_t) meltsy_DEFCLASS; } /*endgetnamedsym DEFCLASS*/ /*^getnamedsymbol*/ /*getnamedsym:MULTIPLE_ITERATE_TEST*/ if (NULL == /*_._VALDATA___V1855*/ meltfptr[1854]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol MULTIPLE_ITERATE_TEST without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MULTIPLE_ITERATE_TEST = melthookproc_HOOK_NAMED_SYMBOL ("MULTIPLE_ITERATE_TEST", (long) MELT_GET); /*_._VALDATA___V1855*/ meltfptr[1854] = (melt_ptr_t) meltsy_MULTIPLE_ITERATE_TEST; } /*endgetnamedsym MULTIPLE_ITERATE_TEST*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_INSTANCE_BINDING*/ if (NULL == /*_._VALDATA___V1861*/ meltfptr[1860]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_INSTANCE_BINDING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_INSTANCE_BINDING = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_INSTANCE_BINDING", (long) MELT_GET); /*_._VALDATA___V1861*/ meltfptr[1860] = (melt_ptr_t) meltsy_CLASS_INSTANCE_BINDING; } /*endgetnamedsym CLASS_INSTANCE_BINDING*/ /*^getnamedkeyword*/ /*getnamedkeyw:OBJ_NUM*/ { melt_ptr_t kw_OBJ_NUM = melthookproc_HOOK_NAMED_KEYWORD ("OBJ_NUM", (long) MELT_GET); if (kw_OBJ_NUM) /*_._VALDATA___V1858*/ meltfptr[1857] = (melt_ptr_t) kw_OBJ_NUM; } /*^getnamedsymbol*/ /*getnamedsym:DEFINSTANCE*/ if (NULL == /*_._VALDATA___V1863*/ meltfptr[1862]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol DEFINSTANCE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DEFINSTANCE = melthookproc_HOOK_NAMED_SYMBOL ("DEFINSTANCE", (long) MELT_GET); /*_._VALDATA___V1863*/ meltfptr[1862] = (melt_ptr_t) meltsy_DEFINSTANCE; } /*endgetnamedsym DEFINSTANCE*/ /*^getnamedkeyword*/ /*getnamedkeyw:FORMALS*/ { melt_ptr_t kw_FORMALS = melthookproc_HOOK_NAMED_KEYWORD ("FORMALS", (long) MELT_GET); if (kw_FORMALS) /*_._VALDATA___V1866*/ meltfptr[1865] = (melt_ptr_t) kw_FORMALS; } /*^getnamedsymbol*/ /*getnamedsym:DEFSELECTOR*/ if (NULL == /*_._VALDATA___V1869*/ meltfptr[1868]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol DEFSELECTOR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DEFSELECTOR = melthookproc_HOOK_NAMED_SYMBOL ("DEFSELECTOR", (long) MELT_GET); /*_._VALDATA___V1869*/ meltfptr[1868] = (melt_ptr_t) meltsy_DEFSELECTOR; } /*endgetnamedsym DEFSELECTOR*/ /*^getnamedsymbol*/ /*getnamedsym:LOAD*/ if (NULL == /*_._VALDATA___V1875*/ meltfptr[1874]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol LOAD without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_LOAD = melthookproc_HOOK_NAMED_SYMBOL ("LOAD", (long) MELT_GET); /*_._VALDATA___V1875*/ meltfptr[1874] = (melt_ptr_t) meltsy_LOAD; } /*endgetnamedsym LOAD*/ /*^getnamedsymbol*/ /*getnamedsym:SKIP_NIL*/ if (NULL == /*_._VALDATA___V1879*/ meltfptr[1878]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SKIP_NIL without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SKIP_NIL = melthookproc_HOOK_NAMED_SYMBOL ("SKIP_NIL", (long) MELT_GET); /*_._VALDATA___V1879*/ meltfptr[1878] = (melt_ptr_t) meltsy_SKIP_NIL; } /*endgetnamedsym SKIP_NIL*/ /*^getnamedsymbol*/ /*getnamedsym:OBJECT*/ if (NULL == /*_._VALDATA___V1892*/ meltfptr[1891]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol OBJECT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_OBJECT = melthookproc_HOOK_NAMED_SYMBOL ("OBJECT", (long) MELT_GET); /*_._VALDATA___V1892*/ meltfptr[1891] = (melt_ptr_t) meltsy_OBJECT; } /*endgetnamedsym OBJECT*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SEXPR_MACROSTRING*/ if (NULL == /*_._VALDATA___V1897*/ meltfptr[1896]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SEXPR_MACROSTRING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SEXPR_MACROSTRING = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SEXPR_MACROSTRING", (long) MELT_GET); /*_._VALDATA___V1897*/ meltfptr[1896] = (melt_ptr_t) meltsy_CLASS_SEXPR_MACROSTRING; } /*endgetnamedsym CLASS_SEXPR_MACROSTRING*/ /*^getnamedsymbol*/ /*getnamedsym:CODE_CHUNK*/ if (NULL == /*_._VALDATA___V1901*/ meltfptr[1900]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CODE_CHUNK without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CODE_CHUNK = melthookproc_HOOK_NAMED_SYMBOL ("CODE_CHUNK", (long) MELT_GET); /*_._VALDATA___V1901*/ meltfptr[1900] = (melt_ptr_t) meltsy_CODE_CHUNK; } /*endgetnamedsym CODE_CHUNK*/ /*^getnamedsymbol*/ /*getnamedsym:EXPR_CHUNK*/ if (NULL == /*_._VALDATA___V1905*/ meltfptr[1904]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol EXPR_CHUNK without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_EXPR_CHUNK = melthookproc_HOOK_NAMED_SYMBOL ("EXPR_CHUNK", (long) MELT_GET); /*_._VALDATA___V1905*/ meltfptr[1904] = (melt_ptr_t) meltsy_EXPR_CHUNK; } /*endgetnamedsym EXPR_CHUNK*/ /*^getnamedsymbol*/ /*getnamedsym:UNSAFE_PUT_FIELDS*/ if (NULL == /*_._VALDATA___V1909*/ meltfptr[1908]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol UNSAFE_PUT_FIELDS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_UNSAFE_PUT_FIELDS = melthookproc_HOOK_NAMED_SYMBOL ("UNSAFE_PUT_FIELDS", (long) MELT_GET); /*_._VALDATA___V1909*/ meltfptr[1908] = (melt_ptr_t) meltsy_UNSAFE_PUT_FIELDS; } /*endgetnamedsym UNSAFE_PUT_FIELDS*/ /*^getnamedsymbol*/ /*getnamedsym:PUT_FIELDS*/ if (NULL == /*_._VALDATA___V1913*/ meltfptr[1912]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol PUT_FIELDS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_PUT_FIELDS = melthookproc_HOOK_NAMED_SYMBOL ("PUT_FIELDS", (long) MELT_GET); /*_._VALDATA___V1913*/ meltfptr[1912] = (melt_ptr_t) meltsy_PUT_FIELDS; } /*endgetnamedsym PUT_FIELDS*/ /*^getnamedsymbol*/ /*getnamedsym:IF*/ if (NULL == /*_._VALDATA___V1925*/ meltfptr[1924]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol IF without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_IF = melthookproc_HOOK_NAMED_SYMBOL ("IF", (long) MELT_GET); /*_._VALDATA___V1925*/ meltfptr[1924] = (melt_ptr_t) meltsy_IF; } /*endgetnamedsym IF*/ /*^getnamedsymbol*/ /*getnamedsym:WHEN*/ if (NULL == /*_._VALDATA___V1929*/ meltfptr[1928]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol WHEN without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_WHEN = melthookproc_HOOK_NAMED_SYMBOL ("WHEN", (long) MELT_GET); /*_._VALDATA___V1929*/ meltfptr[1928] = (melt_ptr_t) meltsy_WHEN; } /*endgetnamedsym WHEN*/ /*^getnamedsymbol*/ /*getnamedsym:UNLESS*/ if (NULL == /*_._VALDATA___V1933*/ meltfptr[1932]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol UNLESS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_UNLESS = melthookproc_HOOK_NAMED_SYMBOL ("UNLESS", (long) MELT_GET); /*_._VALDATA___V1933*/ meltfptr[1932] = (melt_ptr_t) meltsy_UNLESS; } /*endgetnamedsym UNLESS*/ /*^getnamedsymbol*/ /*getnamedsym:CLONE_SYMBOL*/ if (NULL == /*_._VALDATA___V1937*/ meltfptr[1936]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLONE_SYMBOL without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLONE_SYMBOL = melthookproc_HOOK_NAMED_SYMBOL ("CLONE_SYMBOL", (long) MELT_GET); /*_._VALDATA___V1937*/ meltfptr[1936] = (melt_ptr_t) meltsy_CLONE_SYMBOL; } /*endgetnamedsym CLONE_SYMBOL*/ /*^getnamedsymbol*/ /*getnamedsym:MULTIPLE_TO_LIST*/ if (NULL == /*_._VALDATA___V1940*/ meltfptr[1939]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol MULTIPLE_TO_LIST without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MULTIPLE_TO_LIST = melthookproc_HOOK_NAMED_SYMBOL ("MULTIPLE_TO_LIST", (long) MELT_GET); /*_._VALDATA___V1940*/ meltfptr[1939] = (melt_ptr_t) meltsy_MULTIPLE_TO_LIST; } /*endgetnamedsym MULTIPLE_TO_LIST*/ /*^getnamedsymbol*/ /*getnamedsym:WITH_CLONED_SYMB*/ if (NULL == /*_._VALDATA___V1942*/ meltfptr[1941]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol WITH_CLONED_SYMB without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_WITH_CLONED_SYMB = melthookproc_HOOK_NAMED_SYMBOL ("WITH_CLONED_SYMB", (long) MELT_GET); /*_._VALDATA___V1942*/ meltfptr[1941] = (melt_ptr_t) meltsy_WITH_CLONED_SYMB; } /*endgetnamedsym WITH_CLONED_SYMB*/ /*^getnamedsymbol*/ /*getnamedsym:CPPIF*/ if (NULL == /*_._VALDATA___V1946*/ meltfptr[1945]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CPPIF without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CPPIF = melthookproc_HOOK_NAMED_SYMBOL ("CPPIF", (long) MELT_GET); /*_._VALDATA___V1946*/ meltfptr[1945] = (melt_ptr_t) meltsy_CPPIF; } /*endgetnamedsym CPPIF*/ /*^getnamedsymbol*/ /*getnamedsym:AS*/ if (NULL == /*_._VALDATA___V1957*/ meltfptr[1956]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol AS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_AS = melthookproc_HOOK_NAMED_SYMBOL ("AS", (long) MELT_GET); /*_._VALDATA___V1957*/ meltfptr[1956] = (melt_ptr_t) meltsy_AS; } /*endgetnamedsym AS*/ /*^getnamedsymbol*/ /*getnamedsym:OR*/ if (NULL == /*_._VALDATA___V1967*/ meltfptr[1966]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol OR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_OR = melthookproc_HOOK_NAMED_SYMBOL ("OR", (long) MELT_GET); /*_._VALDATA___V1967*/ meltfptr[1966] = (melt_ptr_t) meltsy_OR; } /*endgetnamedsym OR*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_FIELDS*/ if (NULL == /*_._VALDATA___V1973*/ meltfptr[1972]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_FIELDS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_FIELDS = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_FIELDS", (long) MELT_GET); /*_._VALDATA___V1973*/ meltfptr[1972] = (melt_ptr_t) meltsy_CLASS_FIELDS; } /*endgetnamedsym CLASS_FIELDS*/ /*^getnamedkeyword*/ /*getnamedkeyw:REFERENCED_VALUE*/ { melt_ptr_t kw_REFERENCED_VALUE = melthookproc_HOOK_NAMED_KEYWORD ("REFERENCED_VALUE", (long) MELT_GET); if (kw_REFERENCED_VALUE) /*_._VALDATA___V1970*/ meltfptr[1969] = (melt_ptr_t) kw_REFERENCED_VALUE; } /*^getnamedsymbol*/ /*getnamedsym:REFERENCE*/ if (NULL == /*_._VALDATA___V1978*/ meltfptr[1977]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol REFERENCE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_REFERENCE = melthookproc_HOOK_NAMED_SYMBOL ("REFERENCE", (long) MELT_GET); /*_._VALDATA___V1978*/ meltfptr[1977] = (melt_ptr_t) meltsy_REFERENCE; } /*endgetnamedsym REFERENCE*/ /*^getnamedsymbol*/ /*getnamedsym:REFERENCED_VALUE*/ if (NULL == /*_._VALDATA___V1982*/ meltfptr[1981]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol REFERENCED_VALUE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_REFERENCED_VALUE = melthookproc_HOOK_NAMED_SYMBOL ("REFERENCED_VALUE", (long) MELT_GET); /*_._VALDATA___V1982*/ meltfptr[1981] = (melt_ptr_t) meltsy_REFERENCED_VALUE; } /*endgetnamedsym REFERENCED_VALUE*/ /*^getnamedsymbol*/ /*getnamedsym:DEREF*/ if (NULL == /*_._VALDATA___V1984*/ meltfptr[1983]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol DEREF without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DEREF = melthookproc_HOOK_NAMED_SYMBOL ("DEREF", (long) MELT_GET); /*_._VALDATA___V1984*/ meltfptr[1983] = (melt_ptr_t) meltsy_DEREF; } /*endgetnamedsym DEREF*/ /*^getnamedsymbol*/ /*getnamedsym:CONTENT*/ if (NULL == /*_._VALDATA___V1988*/ meltfptr[1987]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CONTENT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CONTENT = melthookproc_HOOK_NAMED_SYMBOL ("CONTENT", (long) MELT_GET); /*_._VALDATA___V1988*/ meltfptr[1987] = (melt_ptr_t) meltsy_CONTENT; } /*endgetnamedsym CONTENT*/ /*^getnamedsymbol*/ /*getnamedsym:EXCLAIM*/ if (NULL == /*_._VALDATA___V1990*/ meltfptr[1989]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol EXCLAIM without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_EXCLAIM = melthookproc_HOOK_NAMED_SYMBOL ("EXCLAIM", (long) MELT_GET); /*_._VALDATA___V1990*/ meltfptr[1989] = (melt_ptr_t) meltsy_EXCLAIM; } /*endgetnamedsym EXCLAIM*/ /*^getnamedsymbol*/ /*getnamedsym:SET_REF*/ if (NULL == /*_._VALDATA___V1994*/ meltfptr[1993]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SET_REF without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SET_REF = melthookproc_HOOK_NAMED_SYMBOL ("SET_REF", (long) MELT_GET); /*_._VALDATA___V1994*/ meltfptr[1993] = (melt_ptr_t) meltsy_SET_REF; } /*endgetnamedsym SET_REF*/ /*^getnamedsymbol*/ /*getnamedsym:+I*/ if (NULL == /*_._VALDATA___V1999*/ meltfptr[1998]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol +I without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_plI = melthookproc_HOOK_NAMED_SYMBOL ("+I", (long) MELT_GET); /*_._VALDATA___V1999*/ meltfptr[1998] = (melt_ptr_t) meltsy_plI; } /*endgetnamedsym +I*/ /*^getnamedsymbol*/ /*getnamedsym:-I*/ if (NULL == /*_._VALDATA___V2004*/ meltfptr[2003]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol -I without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_miI = melthookproc_HOOK_NAMED_SYMBOL ("-I", (long) MELT_GET); /*_._VALDATA___V2004*/ meltfptr[2003] = (melt_ptr_t) meltsy_miI; } /*endgetnamedsym -I*/ /*^getnamedsymbol*/ /*getnamedsym:-*/ if (NULL == /*_._VALDATA___V2006*/ meltfptr[2005]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol - without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_mi = melthookproc_HOOK_NAMED_SYMBOL ("-", (long) MELT_GET); /*_._VALDATA___V2006*/ meltfptr[2005] = (melt_ptr_t) meltsy_mi; } /*endgetnamedsym -*/ /*^getnamedsymbol*/ /*getnamedsym:*I*/ if (NULL == /*_._VALDATA___V2011*/ meltfptr[2010]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol *I without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_stI = melthookproc_HOOK_NAMED_SYMBOL ("*I", (long) MELT_GET); /*_._VALDATA___V2011*/ meltfptr[2010] = (melt_ptr_t) meltsy_stI; } /*endgetnamedsym *I*/ /*^getnamedsymbol*/ /*getnamedsym:**/ if (NULL == /*_._VALDATA___V2013*/ meltfptr[2012]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol * without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_st = melthookproc_HOOK_NAMED_SYMBOL ("*", (long) MELT_GET); /*_._VALDATA___V2013*/ meltfptr[2012] = (melt_ptr_t) meltsy_st; } /*endgetnamedsym **/ /*^getnamedsymbol*/ /*getnamedsym:/I*/ if (NULL == /*_._VALDATA___V2018*/ meltfptr[2017]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol /I without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_diI = melthookproc_HOOK_NAMED_SYMBOL ("/I", (long) MELT_GET); /*_._VALDATA___V2018*/ meltfptr[2017] = (melt_ptr_t) meltsy_diI; } /*endgetnamedsym /I*/ /*^getnamedsymbol*/ /*getnamedsym:/*/ if (NULL == /*_._VALDATA___V2020*/ meltfptr[2019]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol / without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_di = melthookproc_HOOK_NAMED_SYMBOL ("/", (long) MELT_GET); /*_._VALDATA___V2020*/ meltfptr[2019] = (melt_ptr_t) meltsy_di; } /*endgetnamedsym /*/ /*^getnamedsymbol*/ /*getnamedsym:TUPLE*/ if (NULL == /*_._VALDATA___V2026*/ meltfptr[2025]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol TUPLE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_TUPLE = melthookproc_HOOK_NAMED_SYMBOL ("TUPLE", (long) MELT_GET); /*_._VALDATA___V2026*/ meltfptr[2025] = (melt_ptr_t) meltsy_TUPLE; } /*endgetnamedsym TUPLE*/ /*^getnamedsymbol*/ /*getnamedsym:LIST*/ if (NULL == /*_._VALDATA___V2032*/ meltfptr[2031]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol LIST without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_LIST = melthookproc_HOOK_NAMED_SYMBOL ("LIST", (long) MELT_GET); /*_._VALDATA___V2032*/ meltfptr[2031] = (melt_ptr_t) meltsy_LIST; } /*endgetnamedsym LIST*/ /*^getnamedsymbol*/ /*getnamedsym:MATCH*/ if (NULL == /*_._VALDATA___V2037*/ meltfptr[2036]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol MATCH without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MATCH = melthookproc_HOOK_NAMED_SYMBOL ("MATCH", (long) MELT_GET); /*_._VALDATA___V2037*/ meltfptr[2036] = (melt_ptr_t) meltsy_MATCH; } /*endgetnamedsym MATCH*/ /*^getnamedsymbol*/ /*getnamedsym:MATCHALT*/ if (NULL == /*_._VALDATA___V2042*/ meltfptr[2041]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol MATCHALT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MATCHALT = melthookproc_HOOK_NAMED_SYMBOL ("MATCHALT", (long) MELT_GET); /*_._VALDATA___V2042*/ meltfptr[2041] = (melt_ptr_t) meltsy_MATCHALT; } /*endgetnamedsym MATCHALT*/ /*^getnamedsymbol*/ /*getnamedsym:QUASI_CTYPE_AUTO*/ if (NULL == /*_._VALDATA___V2046*/ meltfptr[2045]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol QUASI_CTYPE_AUTO without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_QUASI_CTYPE_AUTO = melthookproc_HOOK_NAMED_SYMBOL ("QUASI_CTYPE_AUTO", (long) MELT_GET); /*_._VALDATA___V2046*/ meltfptr[2045] = (melt_ptr_t) meltsy_QUASI_CTYPE_AUTO; } /*endgetnamedsym QUASI_CTYPE_AUTO*/ /*^getnamedsymbol*/ /*getnamedsym:QUASI_CTYPE_MACRO*/ if (NULL == /*_._VALDATA___V2048*/ meltfptr[2047]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol QUASI_CTYPE_MACRO without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_QUASI_CTYPE_MACRO = melthookproc_HOOK_NAMED_SYMBOL ("QUASI_CTYPE_MACRO", (long) MELT_GET); /*_._VALDATA___V2048*/ meltfptr[2047] = (melt_ptr_t) meltsy_QUASI_CTYPE_MACRO; } /*endgetnamedsym QUASI_CTYPE_MACRO*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_FIXED_BINDING*/ if (NULL == /*_._VALDATA___V2050*/ meltfptr[2049]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_FIXED_BINDING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_FIXED_BINDING = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_FIXED_BINDING", (long) MELT_GET); /*_._VALDATA___V2050*/ meltfptr[2049] = (melt_ptr_t) meltsy_CLASS_FIXED_BINDING; } /*endgetnamedsym CLASS_FIXED_BINDING*/ /*^getnamedkeyword*/ /*getnamedkeyw:EXPAND*/ { melt_ptr_t kw_EXPAND = melthookproc_HOOK_NAMED_KEYWORD ("EXPAND", (long) MELT_GET); if (kw_EXPAND) /*_._VALDATA___V2053*/ meltfptr[2052] = (melt_ptr_t) kw_EXPAND; } /*^getnamedsymbol*/ /*getnamedsym:INSTALL_METHOD*/ if (NULL == /*_._VALDATA___V2059*/ meltfptr[2058]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol INSTALL_METHOD without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_INSTALL_METHOD = melthookproc_HOOK_NAMED_SYMBOL ("INSTALL_METHOD", (long) MELT_GET); /*_._VALDATA___V2059*/ meltfptr[2058] = (melt_ptr_t) meltsy_INSTALL_METHOD; } /*endgetnamedsym INSTALL_METHOD*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_LETREC_BINDING*/ if (NULL == /*_._VALDATA___V2064*/ meltfptr[2063]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_LETREC_BINDING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_LETREC_BINDING = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_LETREC_BINDING", (long) MELT_GET); /*_._VALDATA___V2064*/ meltfptr[2063] = (melt_ptr_t) meltsy_CLASS_LETREC_BINDING; } /*endgetnamedsym CLASS_LETREC_BINDING*/ /*^getnamedsymbol*/ /*getnamedsym:LETREC*/ if (NULL == /*_._VALDATA___V2066*/ meltfptr[2065]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol LETREC without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_LETREC = melthookproc_HOOK_NAMED_SYMBOL ("LETREC", (long) MELT_GET); /*_._VALDATA___V2066*/ meltfptr[2065] = (melt_ptr_t) meltsy_LETREC; } /*endgetnamedsym LETREC*/ /*^getnamedsymbol*/ /*getnamedsym:LAMBDA*/ if (NULL == /*_._VALDATA___V2070*/ meltfptr[2069]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol LAMBDA without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_LAMBDA = melthookproc_HOOK_NAMED_SYMBOL ("LAMBDA", (long) MELT_GET); /*_._VALDATA___V2070*/ meltfptr[2069] = (melt_ptr_t) meltsy_LAMBDA; } /*endgetnamedsym LAMBDA*/ /*^getnamedsymbol*/ /*getnamedsym:MULTIPLE_EVERY*/ if (NULL == /*_._VALDATA___V2079*/ meltfptr[2078]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol MULTIPLE_EVERY without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MULTIPLE_EVERY = melthookproc_HOOK_NAMED_SYMBOL ("MULTIPLE_EVERY", (long) MELT_GET); /*_._VALDATA___V2079*/ meltfptr[2078] = (melt_ptr_t) meltsy_MULTIPLE_EVERY; } /*endgetnamedsym MULTIPLE_EVERY*/ /*^getnamedsymbol*/ /*getnamedsym:MULTICALL*/ if (NULL == /*_._VALDATA___V2081*/ meltfptr[2080]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol MULTICALL without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MULTICALL = melthookproc_HOOK_NAMED_SYMBOL ("MULTICALL", (long) MELT_GET); /*_._VALDATA___V2081*/ meltfptr[2080] = (melt_ptr_t) meltsy_MULTICALL; } /*endgetnamedsym MULTICALL*/ /*^getnamedsymbol*/ /*getnamedsym:UNBOX*/ if (NULL == /*_._VALDATA___V2089*/ meltfptr[2088]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol UNBOX without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_UNBOX = melthookproc_HOOK_NAMED_SYMBOL ("UNBOX", (long) MELT_GET); /*_._VALDATA___V2089*/ meltfptr[2088] = (melt_ptr_t) meltsy_UNBOX; } /*endgetnamedsym UNBOX*/ /*^getnamedsymbol*/ /*getnamedsym:COMMENT*/ if (NULL == /*_._VALDATA___V2093*/ meltfptr[2092]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol COMMENT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_COMMENT = melthookproc_HOOK_NAMED_SYMBOL ("COMMENT", (long) MELT_GET); /*_._VALDATA___V2093*/ meltfptr[2092] = (melt_ptr_t) meltsy_COMMENT; } /*endgetnamedsym COMMENT*/ /*^getnamedsymbol*/ /*getnamedsym:CHEADER*/ if (NULL == /*_._VALDATA___V2097*/ meltfptr[2096]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CHEADER without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CHEADER = melthookproc_HOOK_NAMED_SYMBOL ("CHEADER", (long) MELT_GET); /*_._VALDATA___V2097*/ meltfptr[2096] = (melt_ptr_t) meltsy_CHEADER; } /*endgetnamedsym CHEADER*/ /*^getnamedsymbol*/ /*getnamedsym:CIMPLEMENT*/ if (NULL == /*_._VALDATA___V2101*/ meltfptr[2100]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CIMPLEMENT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CIMPLEMENT = melthookproc_HOOK_NAMED_SYMBOL ("CIMPLEMENT", (long) MELT_GET); /*_._VALDATA___V2101*/ meltfptr[2100] = (melt_ptr_t) meltsy_CIMPLEMENT; } /*endgetnamedsym CIMPLEMENT*/ /*^getnamedsymbol*/ /*getnamedsym:MODULE_IS_GPL_COMPATIBLE*/ if (NULL == /*_._VALDATA___V2105*/ meltfptr[2104]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol MODULE_IS_GPL_COMPATIBLE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MODULE_IS_GPL_COMPATIBLE = melthookproc_HOOK_NAMED_SYMBOL ("MODULE_IS_GPL_COMPATIBLE", (long) MELT_GET); /*_._VALDATA___V2105*/ meltfptr[2104] = (melt_ptr_t) meltsy_MODULE_IS_GPL_COMPATIBLE; } /*endgetnamedsym MODULE_IS_GPL_COMPATIBLE*/ /*^getnamedsymbol*/ /*getnamedsym:USE_PACKAGE_FROM_PKG_CONFIG*/ if (NULL == /*_._VALDATA___V2109*/ meltfptr[2108]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol USE_PACKAGE_FROM_PKG_CONFIG without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_USE_PACKAGE_FROM_PKG_CONFIG = melthookproc_HOOK_NAMED_SYMBOL ("USE_PACKAGE_FROM_PKG_CONFIG", (long) MELT_GET); /*_._VALDATA___V2109*/ meltfptr[2108] = (melt_ptr_t) meltsy_USE_PACKAGE_FROM_PKG_CONFIG; } /*endgetnamedsym USE_PACKAGE_FROM_PKG_CONFIG*/ /*^getnamedsymbol*/ /*getnamedsym:USE-PACKAGE-FROM-PKG-CONFIG*/ if (NULL == /*_._VALDATA___V2111*/ meltfptr[2110]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol USE-PACKAGE-FROM-PKG-CONFIG without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_USEmiPACKAGEmiFROMmiPKGmiCONFIG = melthookproc_HOOK_NAMED_SYMBOL ("USE-PACKAGE-FROM-PKG-CONFIG", (long) MELT_GET); /*_._VALDATA___V2111*/ meltfptr[2110] = (melt_ptr_t) meltsy_USEmiPACKAGEmiFROMmiPKGmiCONFIG; } /*endgetnamedsym USE-PACKAGE-FROM-PKG-CONFIG*/ /*^getnamedsymbol*/ /*getnamedsym:PROGN*/ if (NULL == /*_._VALDATA___V2117*/ meltfptr[2116]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol PROGN without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_PROGN = melthookproc_HOOK_NAMED_SYMBOL ("PROGN", (long) MELT_GET); /*_._VALDATA___V2117*/ meltfptr[2116] = (melt_ptr_t) meltsy_PROGN; } /*endgetnamedsym PROGN*/ /*^getnamedsymbol*/ /*getnamedsym:RETURN*/ if (NULL == /*_._VALDATA___V2121*/ meltfptr[2120]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol RETURN without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_RETURN = melthookproc_HOOK_NAMED_SYMBOL ("RETURN", (long) MELT_GET); /*_._VALDATA___V2121*/ meltfptr[2120] = (melt_ptr_t) meltsy_RETURN; } /*endgetnamedsym RETURN*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_LABEL_BINDING*/ if (NULL == /*_._VALDATA___V2125*/ meltfptr[2124]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_LABEL_BINDING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_LABEL_BINDING = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_LABEL_BINDING", (long) MELT_GET); /*_._VALDATA___V2125*/ meltfptr[2124] = (melt_ptr_t) meltsy_CLASS_LABEL_BINDING; } /*endgetnamedsym CLASS_LABEL_BINDING*/ /*^getnamedsymbol*/ /*getnamedsym:AGAIN*/ if (NULL == /*_._VALDATA___V2131*/ meltfptr[2130]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol AGAIN without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_AGAIN = melthookproc_HOOK_NAMED_SYMBOL ("AGAIN", (long) MELT_GET); /*_._VALDATA___V2131*/ meltfptr[2130] = (melt_ptr_t) meltsy_AGAIN; } /*endgetnamedsym AGAIN*/ /*^getnamedsymbol*/ /*getnamedsym:COMPILE_WARNING*/ if (NULL == /*_._VALDATA___V2135*/ meltfptr[2134]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol COMPILE_WARNING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_COMPILE_WARNING = melthookproc_HOOK_NAMED_SYMBOL ("COMPILE_WARNING", (long) MELT_GET); /*_._VALDATA___V2135*/ meltfptr[2134] = (melt_ptr_t) meltsy_COMPILE_WARNING; } /*endgetnamedsym COMPILE_WARNING*/ /*^getnamedsymbol*/ /*getnamedsym:COMPILE_ERROR*/ if (NULL == /*_._VALDATA___V2139*/ meltfptr[2138]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol COMPILE_ERROR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_COMPILE_ERROR = melthookproc_HOOK_NAMED_SYMBOL ("COMPILE_ERROR", (long) MELT_GET); /*_._VALDATA___V2139*/ meltfptr[2138] = (melt_ptr_t) meltsy_COMPILE_ERROR; } /*endgetnamedsym COMPILE_ERROR*/ /*^getnamedsymbol*/ /*getnamedsym:FIND_ENV_DEBUG*/ if (NULL == /*_._VALDATA___V2144*/ meltfptr[2143]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol FIND_ENV_DEBUG without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_FIND_ENV_DEBUG = melthookproc_HOOK_NAMED_SYMBOL ("FIND_ENV_DEBUG", (long) MELT_GET); /*_._VALDATA___V2144*/ meltfptr[2143] = (melt_ptr_t) meltsy_FIND_ENV_DEBUG; } /*endgetnamedsym FIND_ENV_DEBUG*/ /*^getnamedsymbol*/ /*getnamedsym:THIS_LINE*/ if (NULL == /*_._VALDATA___V2148*/ meltfptr[2147]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol THIS_LINE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_THIS_LINE = melthookproc_HOOK_NAMED_SYMBOL ("THIS_LINE", (long) MELT_GET); /*_._VALDATA___V2148*/ meltfptr[2147] = (melt_ptr_t) meltsy_THIS_LINE; } /*endgetnamedsym THIS_LINE*/ /*^getnamedsymbol*/ /*getnamedsym:THIS_FILE*/ if (NULL == /*_._VALDATA___V2152*/ meltfptr[2151]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol THIS_FILE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_THIS_FILE = melthookproc_HOOK_NAMED_SYMBOL ("THIS_FILE", (long) MELT_GET); /*_._VALDATA___V2152*/ meltfptr[2151] = (melt_ptr_t) meltsy_THIS_FILE; } /*endgetnamedsym THIS_FILE*/ /*^getnamedsymbol*/ /*getnamedsym:MELT_CALLCOUNT*/ if (NULL == /*_._VALDATA___V2155*/ meltfptr[2154]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol MELT_CALLCOUNT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MELT_CALLCOUNT = melthookproc_HOOK_NAMED_SYMBOL ("MELT_CALLCOUNT", (long) MELT_GET); /*_._VALDATA___V2155*/ meltfptr[2154] = (melt_ptr_t) meltsy_MELT_CALLCOUNT; } /*endgetnamedsym MELT_CALLCOUNT*/ /*^getnamedsymbol*/ /*getnamedsym:MELT_NEED_DBG*/ if (NULL == /*_._VALDATA___V2157*/ meltfptr[2156]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol MELT_NEED_DBG without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MELT_NEED_DBG = melthookproc_HOOK_NAMED_SYMBOL ("MELT_NEED_DBG", (long) MELT_GET); /*_._VALDATA___V2157*/ meltfptr[2156] = (melt_ptr_t) meltsy_MELT_NEED_DBG; } /*endgetnamedsym MELT_NEED_DBG*/ /*^getnamedsymbol*/ /*getnamedsym:MELT_INCREMENT_DBGCOUNTER*/ if (NULL == /*_._VALDATA___V2159*/ meltfptr[2158]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol MELT_INCREMENT_DBGCOUNTER without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MELT_INCREMENT_DBGCOUNTER = melthookproc_HOOK_NAMED_SYMBOL ("MELT_INCREMENT_DBGCOUNTER", (long) MELT_GET); /*_._VALDATA___V2159*/ meltfptr[2158] = (melt_ptr_t) meltsy_MELT_INCREMENT_DBGCOUNTER; } /*endgetnamedsym MELT_INCREMENT_DBGCOUNTER*/ /*^getnamedsymbol*/ /*getnamedsym:DEBUG*/ if (NULL == /*_._VALDATA___V2164*/ meltfptr[2163]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol DEBUG without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DEBUG = melthookproc_HOOK_NAMED_SYMBOL ("DEBUG", (long) MELT_GET); /*_._VALDATA___V2164*/ meltfptr[2163] = (melt_ptr_t) meltsy_DEBUG; } /*endgetnamedsym DEBUG*/ /*^getnamedsymbol*/ /*getnamedsym:EXPORT_VALUES*/ if (NULL == /*_._VALDATA___V2168*/ meltfptr[2167]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol EXPORT_VALUES without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_EXPORT_VALUES = melthookproc_HOOK_NAMED_SYMBOL ("EXPORT_VALUES", (long) MELT_GET); /*_._VALDATA___V2168*/ meltfptr[2167] = (melt_ptr_t) meltsy_EXPORT_VALUES; } /*endgetnamedsym EXPORT_VALUES*/ /*^getnamedsymbol*/ /*getnamedsym:EXPORT_MACRO*/ if (NULL == /*_._VALDATA___V2172*/ meltfptr[2171]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol EXPORT_MACRO without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_EXPORT_MACRO = melthookproc_HOOK_NAMED_SYMBOL ("EXPORT_MACRO", (long) MELT_GET); /*_._VALDATA___V2172*/ meltfptr[2171] = (melt_ptr_t) meltsy_EXPORT_MACRO; } /*endgetnamedsym EXPORT_MACRO*/ /*^getnamedsymbol*/ /*getnamedsym:EXPORT_PATMACRO*/ if (NULL == /*_._VALDATA___V2176*/ meltfptr[2175]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol EXPORT_PATMACRO without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_EXPORT_PATMACRO = melthookproc_HOOK_NAMED_SYMBOL ("EXPORT_PATMACRO", (long) MELT_GET); /*_._VALDATA___V2176*/ meltfptr[2175] = (melt_ptr_t) meltsy_EXPORT_PATMACRO; } /*endgetnamedsym EXPORT_PATMACRO*/ /*^getnamedsymbol*/ /*getnamedsym:EXPORT_CLASS*/ if (NULL == /*_._VALDATA___V2180*/ meltfptr[2179]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol EXPORT_CLASS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_EXPORT_CLASS = melthookproc_HOOK_NAMED_SYMBOL ("EXPORT_CLASS", (long) MELT_GET); /*_._VALDATA___V2180*/ meltfptr[2179] = (melt_ptr_t) meltsy_EXPORT_CLASS; } /*endgetnamedsym EXPORT_CLASS*/ /*^getnamedsymbol*/ /*getnamedsym:EXPORT_SYNONYM*/ if (NULL == /*_._VALDATA___V2184*/ meltfptr[2183]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol EXPORT_SYNONYM without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_EXPORT_SYNONYM = melthookproc_HOOK_NAMED_SYMBOL ("EXPORT_SYNONYM", (long) MELT_GET); /*_._VALDATA___V2184*/ meltfptr[2183] = (melt_ptr_t) meltsy_EXPORT_SYNONYM; } /*endgetnamedsym EXPORT_SYNONYM*/ /*^getnamedsymbol*/ /*getnamedsym:CURRENT_MODULE_ENVIRONMENT_REFERENCE*/ if (NULL == /*_._VALDATA___V2188*/ meltfptr[2187]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CURRENT_MODULE_ENVIRONMENT_REFERENCE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CURRENT_MODULE_ENVIRONMENT_REFERENCE = melthookproc_HOOK_NAMED_SYMBOL ("CURRENT_MODULE_ENVIRONMENT_REFERENCE", (long) MELT_GET); /*_._VALDATA___V2188*/ meltfptr[2187] = (melt_ptr_t) meltsy_CURRENT_MODULE_ENVIRONMENT_REFERENCE; } /*endgetnamedsym CURRENT_MODULE_ENVIRONMENT_REFERENCE*/ /*^getnamedsymbol*/ /*getnamedsym:CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ if (NULL == /*_._VALDATA___V2190*/ meltfptr[2189]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CURRENT_MODULE_ENVIRONMENT_CONTAINER without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CURRENT_MODULE_ENVIRONMENT_CONTAINER = melthookproc_HOOK_NAMED_SYMBOL ("CURRENT_MODULE_ENVIRONMENT_CONTAINER", (long) MELT_GET); /*_._VALDATA___V2190*/ meltfptr[2189] = (melt_ptr_t) meltsy_CURRENT_MODULE_ENVIRONMENT_CONTAINER; } /*endgetnamedsym CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ /*^getnamedsymbol*/ /*getnamedsym:PARENT_MODULE_ENVIRONMENT*/ if (NULL == /*_._VALDATA___V2194*/ meltfptr[2193]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol PARENT_MODULE_ENVIRONMENT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_PARENT_MODULE_ENVIRONMENT = melthookproc_HOOK_NAMED_SYMBOL ("PARENT_MODULE_ENVIRONMENT", (long) MELT_GET); /*_._VALDATA___V2194*/ meltfptr[2193] = (melt_ptr_t) meltsy_PARENT_MODULE_ENVIRONMENT; } /*endgetnamedsym PARENT_MODULE_ENVIRONMENT*/ /*^getnamedsymbol*/ /*getnamedsym:UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE*/ if (NULL == /*_._VALDATA___V2198*/ meltfptr[2197]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE = melthookproc_HOOK_NAMED_SYMBOL ("UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE", (long) MELT_GET); /*_._VALDATA___V2198*/ meltfptr[2197] = (melt_ptr_t) meltsy_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE; } /*endgetnamedsym UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE*/ /*^getnamedsymbol*/ /*getnamedsym:UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ if (NULL == /*_._VALDATA___V2200*/ meltfptr[2199]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER = melthookproc_HOOK_NAMED_SYMBOL ("UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", (long) MELT_GET); /*_._VALDATA___V2200*/ meltfptr[2199] = (melt_ptr_t) meltsy_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; } /*endgetnamedsym UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ /*^getnamedsymbol*/ /*getnamedsym:FETCH_PREDEFINED*/ if (NULL == /*_._VALDATA___V2204*/ meltfptr[2203]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol FETCH_PREDEFINED without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_FETCH_PREDEFINED = melthookproc_HOOK_NAMED_SYMBOL ("FETCH_PREDEFINED", (long) MELT_GET); /*_._VALDATA___V2204*/ meltfptr[2203] = (melt_ptr_t) meltsy_FETCH_PREDEFINED; } /*endgetnamedsym FETCH_PREDEFINED*/ /*^getnamedsymbol*/ /*getnamedsym:STORE_PREDEFINED*/ if (NULL == /*_._VALDATA___V2208*/ meltfptr[2207]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol STORE_PREDEFINED without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_STORE_PREDEFINED = melthookproc_HOOK_NAMED_SYMBOL ("STORE_PREDEFINED", (long) MELT_GET); /*_._VALDATA___V2208*/ meltfptr[2207] = (melt_ptr_t) meltsy_STORE_PREDEFINED; } /*endgetnamedsym STORE_PREDEFINED*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ if (NULL == /*_._VALDATA___V2210*/ meltfptr[2209]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", (long) MELT_GET); /*_._VALDATA___V2210*/ meltfptr[2209] = (melt_ptr_t) meltsy_CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; } /*endgetnamedsym CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ if (NULL == /*_._VALDATA___V2212*/ meltfptr[2211]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", (long) MELT_GET); /*_._VALDATA___V2212*/ meltfptr[2211] = (melt_ptr_t) meltsy_CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; } /*endgetnamedsym CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ /*^getnamedsymbol*/ /*getnamedsym:EXPAND_APPLY*/ if (NULL == /*_._VALDATA___V2214*/ meltfptr[2213]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol EXPAND_APPLY without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_EXPAND_APPLY = melthookproc_HOOK_NAMED_SYMBOL ("EXPAND_APPLY", (long) MELT_GET); /*_._VALDATA___V2214*/ meltfptr[2213] = (melt_ptr_t) meltsy_EXPAND_APPLY; } /*endgetnamedsym EXPAND_APPLY*/ /*^getnamedsymbol*/ /*getnamedsym:EXPAND_MSEND*/ if (NULL == /*_._VALDATA___V2216*/ meltfptr[2215]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol EXPAND_MSEND without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_EXPAND_MSEND = melthookproc_HOOK_NAMED_SYMBOL ("EXPAND_MSEND", (long) MELT_GET); /*_._VALDATA___V2216*/ meltfptr[2215] = (melt_ptr_t) meltsy_EXPAND_MSEND; } /*endgetnamedsym EXPAND_MSEND*/ /*^getnamedsymbol*/ /*getnamedsym:EXPAND_PAIRLIST_AS_TUPLE*/ if (NULL == /*_._VALDATA___V2218*/ meltfptr[2217]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol EXPAND_PAIRLIST_AS_TUPLE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_EXPAND_PAIRLIST_AS_TUPLE = melthookproc_HOOK_NAMED_SYMBOL ("EXPAND_PAIRLIST_AS_TUPLE", (long) MELT_GET); /*_._VALDATA___V2218*/ meltfptr[2217] = (melt_ptr_t) meltsy_EXPAND_PAIRLIST_AS_TUPLE; } /*endgetnamedsym EXPAND_PAIRLIST_AS_TUPLE*/ /*^getnamedsymbol*/ /*getnamedsym:EXPAND_PAIRLIST_AS_LIST*/ if (NULL == /*_._VALDATA___V2220*/ meltfptr[2219]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol EXPAND_PAIRLIST_AS_LIST without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_EXPAND_PAIRLIST_AS_LIST = melthookproc_HOOK_NAMED_SYMBOL ("EXPAND_PAIRLIST_AS_LIST", (long) MELT_GET); /*_._VALDATA___V2220*/ meltfptr[2219] = (melt_ptr_t) meltsy_EXPAND_PAIRLIST_AS_LIST; } /*endgetnamedsym EXPAND_PAIRLIST_AS_LIST*/ /*^getnamedsymbol*/ /*getnamedsym:EXPAND_RESTLIST_AS_LIST*/ if (NULL == /*_._VALDATA___V2222*/ meltfptr[2221]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol EXPAND_RESTLIST_AS_LIST without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_EXPAND_RESTLIST_AS_LIST = melthookproc_HOOK_NAMED_SYMBOL ("EXPAND_RESTLIST_AS_LIST", (long) MELT_GET); /*_._VALDATA___V2222*/ meltfptr[2221] = (melt_ptr_t) meltsy_EXPAND_RESTLIST_AS_LIST; } /*endgetnamedsym EXPAND_RESTLIST_AS_LIST*/ /*^getnamedsymbol*/ /*getnamedsym:EXPAND_RESTLIST_AS_TUPLE*/ if (NULL == /*_._VALDATA___V2224*/ meltfptr[2223]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol EXPAND_RESTLIST_AS_TUPLE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_EXPAND_RESTLIST_AS_TUPLE = melthookproc_HOOK_NAMED_SYMBOL ("EXPAND_RESTLIST_AS_TUPLE", (long) MELT_GET); /*_._VALDATA___V2224*/ meltfptr[2223] = (melt_ptr_t) meltsy_EXPAND_RESTLIST_AS_TUPLE; } /*endgetnamedsym EXPAND_RESTLIST_AS_TUPLE*/ /*^getnamedsymbol*/ /*getnamedsym:EXPAND_TUPLE_SLICE_AS_TUPLE*/ if (NULL == /*_._VALDATA___V2226*/ meltfptr[2225]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol EXPAND_TUPLE_SLICE_AS_TUPLE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_EXPAND_TUPLE_SLICE_AS_TUPLE = melthookproc_HOOK_NAMED_SYMBOL ("EXPAND_TUPLE_SLICE_AS_TUPLE", (long) MELT_GET); /*_._VALDATA___V2226*/ meltfptr[2225] = (melt_ptr_t) meltsy_EXPAND_TUPLE_SLICE_AS_TUPLE; } /*endgetnamedsym EXPAND_TUPLE_SLICE_AS_TUPLE*/ /*^getnamedsymbol*/ /*getnamedsym:EXPAND_PRIMITIVE*/ if (NULL == /*_._VALDATA___V2228*/ meltfptr[2227]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol EXPAND_PRIMITIVE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_EXPAND_PRIMITIVE = melthookproc_HOOK_NAMED_SYMBOL ("EXPAND_PRIMITIVE", (long) MELT_GET); /*_._VALDATA___V2228*/ meltfptr[2227] = (melt_ptr_t) meltsy_EXPAND_PRIMITIVE; } /*endgetnamedsym EXPAND_PRIMITIVE*/ /*^getnamedsymbol*/ /*getnamedsym:HOOK_MACRO_INSTALLER*/ if (NULL == /*_._VALDATA___V2230*/ meltfptr[2229]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol HOOK_MACRO_INSTALLER without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_HOOK_MACRO_INSTALLER = melthookproc_HOOK_NAMED_SYMBOL ("HOOK_MACRO_INSTALLER", (long) MELT_GET); /*_._VALDATA___V2230*/ meltfptr[2229] = (melt_ptr_t) meltsy_HOOK_MACRO_INSTALLER; } /*endgetnamedsym HOOK_MACRO_INSTALLER*/ /*^getnamedsymbol*/ /*getnamedsym:INSTALL_INITIAL_MACRO*/ if (NULL == /*_._VALDATA___V2232*/ meltfptr[2231]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol INSTALL_INITIAL_MACRO without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_INSTALL_INITIAL_MACRO = melthookproc_HOOK_NAMED_SYMBOL ("INSTALL_INITIAL_MACRO", (long) MELT_GET); /*_._VALDATA___V2232*/ meltfptr[2231] = (melt_ptr_t) meltsy_INSTALL_INITIAL_MACRO; } /*endgetnamedsym INSTALL_INITIAL_MACRO*/ /*^getnamedsymbol*/ /*getnamedsym:INSTALL_INITIAL_PATMACRO*/ if (NULL == /*_._VALDATA___V2234*/ meltfptr[2233]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol INSTALL_INITIAL_PATMACRO without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_INSTALL_INITIAL_PATMACRO = melthookproc_HOOK_NAMED_SYMBOL ("INSTALL_INITIAL_PATMACRO", (long) MELT_GET); /*_._VALDATA___V2234*/ meltfptr[2233] = (melt_ptr_t) meltsy_INSTALL_INITIAL_PATMACRO; } /*endgetnamedsym INSTALL_INITIAL_PATMACRO*/ /*^getnamedsymbol*/ /*getnamedsym:INSTALL_GLOBAL_DEFINITION_BINDING*/ if (NULL == /*_._VALDATA___V2236*/ meltfptr[2235]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol INSTALL_GLOBAL_DEFINITION_BINDING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_INSTALL_GLOBAL_DEFINITION_BINDING = melthookproc_HOOK_NAMED_SYMBOL ("INSTALL_GLOBAL_DEFINITION_BINDING", (long) MELT_GET); /*_._VALDATA___V2236*/ meltfptr[2235] = (melt_ptr_t) meltsy_INSTALL_GLOBAL_DEFINITION_BINDING; } /*endgetnamedsym INSTALL_GLOBAL_DEFINITION_BINDING*/ /*^getnamedsymbol*/ /*getnamedsym:LAMBDA_ARG_BINDINGS*/ if (NULL == /*_._VALDATA___V2238*/ meltfptr[2237]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol LAMBDA_ARG_BINDINGS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_LAMBDA_ARG_BINDINGS = melthookproc_HOOK_NAMED_SYMBOL ("LAMBDA_ARG_BINDINGS", (long) MELT_GET); /*_._VALDATA___V2238*/ meltfptr[2237] = (melt_ptr_t) meltsy_LAMBDA_ARG_BINDINGS; } /*endgetnamedsym LAMBDA_ARG_BINDINGS*/ /*^getnamedsymbol*/ /*getnamedsym:MACROEXPAND_1*/ if (NULL == /*_._VALDATA___V2240*/ meltfptr[2239]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol MACROEXPAND_1 without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MACROEXPAND_1 = melthookproc_HOOK_NAMED_SYMBOL ("MACROEXPAND_1", (long) MELT_GET); /*_._VALDATA___V2240*/ meltfptr[2239] = (melt_ptr_t) meltsy_MACROEXPAND_1; } /*endgetnamedsym MACROEXPAND_1*/ /*^getnamedsymbol*/ /*getnamedsym:MACROEXPAND_TOPLEVEL_LIST*/ if (NULL == /*_._VALDATA___V2242*/ meltfptr[2241]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol MACROEXPAND_TOPLEVEL_LIST without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MACROEXPAND_TOPLEVEL_LIST = melthookproc_HOOK_NAMED_SYMBOL ("MACROEXPAND_TOPLEVEL_LIST", (long) MELT_GET); /*_._VALDATA___V2242*/ meltfptr[2241] = (melt_ptr_t) meltsy_MACROEXPAND_TOPLEVEL_LIST; } /*endgetnamedsym MACROEXPAND_TOPLEVEL_LIST*/ /*^getnamedsymbol*/ /*getnamedsym:MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS*/ if (NULL == /*_._VALDATA___V2244*/ meltfptr[2243]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS = melthookproc_HOOK_NAMED_SYMBOL ("MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS", (long) MELT_GET); /*_._VALDATA___V2244*/ meltfptr[2243] = (melt_ptr_t) meltsy_MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS; } /*endgetnamedsym MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS*/ /*^getnamedsymbol*/ /*getnamedsym:PATMACEXPAND_FOR_MATCHER*/ if (NULL == /*_._VALDATA___V2246*/ meltfptr[2245]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol PATMACEXPAND_FOR_MATCHER without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_PATMACEXPAND_FOR_MATCHER = melthookproc_HOOK_NAMED_SYMBOL ("PATMACEXPAND_FOR_MATCHER", (long) MELT_GET); /*_._VALDATA___V2246*/ meltfptr[2245] = (melt_ptr_t) meltsy_PATMACEXPAND_FOR_MATCHER; } /*endgetnamedsym PATMACEXPAND_FOR_MATCHER*/ /*^getnamedsymbol*/ /*getnamedsym:PATTERNEXPAND_1*/ if (NULL == /*_._VALDATA___V2248*/ meltfptr[2247]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol PATTERNEXPAND_1 without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_PATTERNEXPAND_1 = melthookproc_HOOK_NAMED_SYMBOL ("PATTERNEXPAND_1", (long) MELT_GET); /*_._VALDATA___V2248*/ meltfptr[2247] = (melt_ptr_t) meltsy_PATTERNEXPAND_1; } /*endgetnamedsym PATTERNEXPAND_1*/ /*^getnamedsymbol*/ /*getnamedsym:PATTERNEXPAND_EXPR*/ if (NULL == /*_._VALDATA___V2250*/ meltfptr[2249]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol PATTERNEXPAND_EXPR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_PATTERNEXPAND_EXPR = melthookproc_HOOK_NAMED_SYMBOL ("PATTERNEXPAND_EXPR", (long) MELT_GET); /*_._VALDATA___V2250*/ meltfptr[2249] = (melt_ptr_t) meltsy_PATTERNEXPAND_EXPR; } /*endgetnamedsym PATTERNEXPAND_EXPR*/ /*^getnamedsymbol*/ /*getnamedsym:PATTERNEXPAND_PAIRLIST_AS_TUPLE*/ if (NULL == /*_._VALDATA___V2252*/ meltfptr[2251]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol PATTERNEXPAND_PAIRLIST_AS_TUPLE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_PATTERNEXPAND_PAIRLIST_AS_TUPLE = melthookproc_HOOK_NAMED_SYMBOL ("PATTERNEXPAND_PAIRLIST_AS_TUPLE", (long) MELT_GET); /*_._VALDATA___V2252*/ meltfptr[2251] = (melt_ptr_t) meltsy_PATTERNEXPAND_PAIRLIST_AS_TUPLE; } /*endgetnamedsym PATTERNEXPAND_PAIRLIST_AS_TUPLE*/ /*^getnamedsymbol*/ /*getnamedsym:PATTERN_WEIGHT_TUPLE*/ if (NULL == /*_._VALDATA___V2254*/ meltfptr[2253]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol PATTERN_WEIGHT_TUPLE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_PATTERN_WEIGHT_TUPLE = melthookproc_HOOK_NAMED_SYMBOL ("PATTERN_WEIGHT_TUPLE", (long) MELT_GET); /*_._VALDATA___V2254*/ meltfptr[2253] = (melt_ptr_t) meltsy_PATTERN_WEIGHT_TUPLE; } /*endgetnamedsym PATTERN_WEIGHT_TUPLE*/ /*^getnamedsymbol*/ /*getnamedsym:REGISTER_GENERATOR_DEVICE*/ if (NULL == /*_._VALDATA___V2256*/ meltfptr[2255]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol REGISTER_GENERATOR_DEVICE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_REGISTER_GENERATOR_DEVICE = melthookproc_HOOK_NAMED_SYMBOL ("REGISTER_GENERATOR_DEVICE", (long) MELT_GET); /*_._VALDATA___V2256*/ meltfptr[2255] = (melt_ptr_t) meltsy_REGISTER_GENERATOR_DEVICE; } /*endgetnamedsym REGISTER_GENERATOR_DEVICE*/ /*^getnamedsymbol*/ /*getnamedsym:S_EXPR_WEIGHT*/ if (NULL == /*_._VALDATA___V2258*/ meltfptr[2257]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol S_EXPR_WEIGHT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_S_EXPR_WEIGHT = melthookproc_HOOK_NAMED_SYMBOL ("S_EXPR_WEIGHT", (long) MELT_GET); /*_._VALDATA___V2258*/ meltfptr[2257] = (melt_ptr_t) meltsy_S_EXPR_WEIGHT; } /*endgetnamedsym S_EXPR_WEIGHT*/ /*^getnamedsymbol*/ /*getnamedsym:MEXPAND_REFERENCE*/ if (NULL == /*_._VALDATA___V2260*/ meltfptr[2259]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol MEXPAND_REFERENCE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MEXPAND_REFERENCE = melthookproc_HOOK_NAMED_SYMBOL ("MEXPAND_REFERENCE", (long) MELT_GET); /*_._VALDATA___V2260*/ meltfptr[2259] = (melt_ptr_t) meltsy_MEXPAND_REFERENCE; } /*endgetnamedsym MEXPAND_REFERENCE*/ /*^getnamedsymbol*/ /*getnamedsym:PATEXPAND_REFERENCE*/ if (NULL == /*_._VALDATA___V2262*/ meltfptr[2261]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol PATEXPAND_REFERENCE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_PATEXPAND_REFERENCE = melthookproc_HOOK_NAMED_SYMBOL ("PATEXPAND_REFERENCE", (long) MELT_GET); /*_._VALDATA___V2262*/ meltfptr[2261] = (melt_ptr_t) meltsy_PATEXPAND_REFERENCE; } /*endgetnamedsym PATEXPAND_REFERENCE*/ /*^comment*/ /**COMMENT: before getting imported values thru hook **/; MELT_LOCATION("warmelt-macro.melt:3:/ compute"); /*_.HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER__V5*/ meltfptr[4] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:78:/ compute"); /*_.CLASS_LOCATED__V6*/ meltfptr[5] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_LOCATED", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:87:/ compute"); /*_.CLASS_DISCRIMINANT__V7*/ meltfptr[6] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_DISCRIMINANT", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; /*^compute*/ /*_.DISCR_CLOSURE__V8*/ meltfptr[7] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DISCR_CLOSURE", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:101:/ compute"); /*_.MELT_DEBUG_FUN__V9*/ meltfptr[8] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "MELT_DEBUG_FUN", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:103:/ compute"); /*_.CLASS_SEXPR__V10*/ meltfptr[9] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_SEXPR", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; /*^compute*/ /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "MELT_ASSERT_FAILURE_FUN", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:110:/ compute"); /*_.LIST_TO_MULTIPLE__V12*/ meltfptr[11] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "LIST_TO_MULTIPLE", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; /*^compute*/ /*_.DISCR_MULTIPLE__V13*/ meltfptr[12] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DISCR_MULTIPLE", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:124:/ compute"); /*_.STRING4OUT__V14*/ meltfptr[13] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "STRING4OUT", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; /*^compute*/ /*_.DISCR_STRING__V15*/ meltfptr[14] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DISCR_STRING", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:135:/ compute"); /*_.CLASS_SYMBOL__V16*/ meltfptr[15] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_SYMBOL", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:144:/ compute"); /*_.MELT_MAKE_SEXPR__V17*/ meltfptr[16] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "MELT_MAKE_SEXPR", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V18*/ meltfptr[17] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "HOOK_MELT_MAKE_LOCATION", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:292:/ compute"); /*_.DISCR_STRBUF__V19*/ meltfptr[18] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DISCR_STRBUF", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:331:/ compute"); /*_.ADD2OUT__V20*/ meltfptr[19] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "ADD2OUT", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:150:/ compute"); /*_.DISCR_MAP_OBJECTS__V21*/ meltfptr[20] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DISCR_MAP_OBJECTS", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:239:/ compute"); /*_.CLASS_KEYWORD__V22*/ meltfptr[21] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_KEYWORD", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:245:/ compute"); /*_.CLASS_NAMED__V23*/ meltfptr[22] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_NAMED", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:449:/ compute"); /*_.CLASS_SELECTOR__V24*/ meltfptr[23] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_SELECTOR", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:455:/ compute"); /*_.CLASS_SOURCE__V25*/ meltfptr[24] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_SOURCE", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:825:/ compute"); /*_.CLASS_MACRO_BINDING__V26*/ meltfptr[25] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_MACRO_BINDING", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:1502:/ compute"); /*_.DISCR_CONSTANT_INTEGER__V27*/ meltfptr[26] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DISCR_CONSTANT_INTEGER", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:1521:/ compute"); /*_.CLASS_ANY_BINDING__V28*/ meltfptr[27] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_ANY_BINDING", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:1522:/ compute"); /*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_ENVIRONMENT", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:1523:/ compute"); /*_.CLASS_ANY_MODULE_CONTEXT__V30*/ meltfptr[29] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_ANY_MODULE_CONTEXT", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:1541:/ compute"); /*_.FIND_ENV__V31*/ meltfptr[30] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "FIND_ENV", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:1544:/ compute"); /*_.PUT_ENV__V32*/ meltfptr[31] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "PUT_ENV", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:1569:/ compute"); /*_.LIST_APPEND2LIST__V33*/ meltfptr[32] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "LIST_APPEND2LIST", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:1689:/ compute"); /*_.DISCR_LIST__V34*/ meltfptr[33] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DISCR_LIST", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:1760:/ compute"); /*_.DEBUG_LESS__V35*/ meltfptr[34] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DEBUG_LESS", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:1815:/ compute"); /*_.CLASS_FIELD__V36*/ meltfptr[35] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_FIELD", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:1875:/ compute"); /*_.CLASS_CITERATOR__V37*/ meltfptr[36] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_CITERATOR", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:1883:/ compute"); /*_.FRESH_ENV__V38*/ meltfptr[37] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "FRESH_ENV", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:1939:/ compute"); /*_.CLASS_CMATCHER__V39*/ meltfptr[38] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_CMATCHER", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:1946:/ compute"); /*_.CLASS_ANY_MATCHER__V40*/ meltfptr[39] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_ANY_MATCHER", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:1987:/ compute"); /*_.CLASS_FUNMATCHER__V41*/ meltfptr[40] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_FUNMATCHER", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:2081:/ compute"); /*_.CLASS_SELECTOR_BINDING__V42*/ meltfptr[41] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_SELECTOR_BINDING", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:2086:/ compute"); /*_.CLASS_PRIMITIVE_BINDING__V43*/ meltfptr[42] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_PRIMITIVE_BINDING", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:2092:/ compute"); /*_.CLASS_CITERATOR_BINDING__V44*/ meltfptr[43] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_CITERATOR_BINDING", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:2099:/ compute"); /*_.CLASS_HOOK_BINDING__V45*/ meltfptr[44] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_HOOK_BINDING", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:2106:/ compute"); /*_.CLASS_CMATCHER_BINDING__V46*/ meltfptr[45] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_CMATCHER_BINDING", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:2113:/ compute"); /*_.CLASS_FUNMATCHER_BINDING__V47*/ meltfptr[46] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_FUNMATCHER_BINDING", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:2120:/ compute"); /*_.CLASS_FIELD_BINDING__V48*/ meltfptr[47] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_FIELD_BINDING", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:2128:/ compute"); /*_.CLASS_FORMAL_BINDING__V49*/ meltfptr[48] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_FORMAL_BINDING", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:2130:/ compute"); /*_.CLASS_LET_BINDING__V50*/ meltfptr[49] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_LET_BINDING", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:2133:/ compute"); /*_.CLASS_VALUE_BINDING__V51*/ meltfptr[50] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_VALUE_BINDING", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:2140:/ compute"); /*_.CLASS_PRIMITIVE__V52*/ meltfptr[51] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_PRIMITIVE", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:2183:/ compute"); /*_.DEBUG_MORE__V53*/ meltfptr[52] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DEBUG_MORE", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:2275:/ compute"); /*_.CLASS_ROOT__V54*/ meltfptr[53] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_ROOT", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:2290:/ compute"); /*_.PAIRLIST_TO_MULTIPLE__V55*/ meltfptr[54] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "PAIRLIST_TO_MULTIPLE", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:2322:/ compute"); /*_.CLASS_REFERENCE__V56*/ meltfptr[55] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_REFERENCE", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:2323:/ compute"); /*_.MULTIPLE_MAP__V57*/ meltfptr[56] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "MULTIPLE_MAP", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:2363:/ compute"); /*_.DISCR_INTEGER__V58*/ meltfptr[57] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DISCR_INTEGER", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:2411:/ compute"); /*_.CLASS_PATMACRO_BINDING__V59*/ meltfptr[58] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_PATMACRO_BINDING", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:2741:/ compute"); /*_.DISCR_FORMAL_SEQUENCE__V60*/ meltfptr[59] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DISCR_FORMAL_SEQUENCE", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:2744:/ compute"); /*_.CTYPE_VALUE__V61*/ meltfptr[60] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CTYPE_VALUE", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:2776:/ compute"); /*_.DISCR_VARIADIC_FORMAL_SEQUENCE__V62*/ meltfptr[61] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DISCR_VARIADIC_FORMAL_SEQUENCE", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:2791:/ compute"); /*_.CLASS_CTYPE__V63*/ meltfptr[62] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_CTYPE", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:2800:/ compute"); /*_.CLASS_QUASI_CTYPE__V64*/ meltfptr[63] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_QUASI_CTYPE", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:2884:/ compute"); /*_.INITIAL_ENVIRONMENT__V65*/ meltfptr[64] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "INITIAL_ENVIRONMENT", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:2937:/ compute"); /*_.DISCR_VERBATIM_STRING__V66*/ meltfptr[65] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DISCR_VERBATIM_STRING", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:3707:/ compute"); /*_.CLASS_FUNCTION_BINDING__V67*/ meltfptr[66] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_FUNCTION_BINDING", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:4037:/ compute"); /*_.CLASS_VARIABLE_BINDING__V68*/ meltfptr[67] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_VARIABLE_BINDING", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:4087:/ compute"); /*_.SYMBOL_CNAME__V69*/ meltfptr[68] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "SYMBOL_CNAME", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:4268:/ compute"); /*_.CLASS_DEFINED_VALUE_BINDING__V70*/ meltfptr[69] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_DEFINED_VALUE_BINDING", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:4409:/ compute"); /*_.CLASS_CLASS_BINDING__V71*/ meltfptr[70] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_CLASS_BINDING", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:4415:/ compute"); /*_.CLASS_CLASS__V72*/ meltfptr[71] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_CLASS", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:4513:/ compute"); /*_.DISCR_CLASS_SEQUENCE__V73*/ meltfptr[72] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DISCR_CLASS_SEQUENCE", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:4532:/ compute"); /*_.DISCR_MAP_STRINGS__V74*/ meltfptr[73] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DISCR_MAP_STRINGS", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:4533:/ compute"); /*_.DISCR_FIELD_SEQUENCE__V75*/ meltfptr[74] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DISCR_FIELD_SEQUENCE", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:4660:/ compute"); /*_.MULTIPLE_ITERATE_TEST__V76*/ meltfptr[75] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "MULTIPLE_ITERATE_TEST", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:4757:/ compute"); /*_.CLASS_INSTANCE_BINDING__V77*/ meltfptr[76] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_INSTANCE_BINDING", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:5392:/ compute"); /*_.CLASS_SEXPR_MACROSTRING__V78*/ meltfptr[77] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_SEXPR_MACROSTRING", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:5963:/ compute"); /*_.MULTIPLE_TO_LIST__V79*/ meltfptr[78] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "MULTIPLE_TO_LIST", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:6364:/ compute"); /*_.CLASS_FIELDS__V80*/ meltfptr[79] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_FIELDS", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:6461:/ compute"); /*_.REFERENCED_VALUE__V81*/ meltfptr[80] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "REFERENCED_VALUE", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:6570:/ compute"); /*_.plI__V82*/ meltfptr[81] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "+I", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:6599:/ compute"); /*_.miI__V83*/ meltfptr[82] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "-I", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:6628:/ compute"); /*_.stI__V84*/ meltfptr[83] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "*I", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:6657:/ compute"); /*_.diI__V85*/ meltfptr[84] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "/I", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:6967:/ compute"); /*_.QUASI_CTYPE_AUTO__V86*/ meltfptr[85] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "QUASI_CTYPE_AUTO", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:7008:/ compute"); /*_.QUASI_CTYPE_MACRO__V87*/ meltfptr[86] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "QUASI_CTYPE_MACRO", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:7067:/ compute"); /*_.CLASS_FIXED_BINDING__V88*/ meltfptr[87] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_FIXED_BINDING", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:7310:/ compute"); /*_.INSTALL_METHOD__V89*/ meltfptr[88] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "INSTALL_METHOD", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:7375:/ compute"); /*_.CLASS_LETREC_BINDING__V90*/ meltfptr[89] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_LETREC_BINDING", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:7795:/ compute"); /*_.MULTIPLE_EVERY__V91*/ meltfptr[90] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "MULTIPLE_EVERY", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:8284:/ compute"); /*_.CLASS_LABEL_BINDING__V92*/ meltfptr[91] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_LABEL_BINDING", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:8502:/ compute"); /*_.FIND_ENV_DEBUG__V93*/ meltfptr[92] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "FIND_ENV_DEBUG", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-macro.melt:8716:/ compute"); /*_.VOID__V94*/ meltfptr[93] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "VOID", "warmelt-macro", /*_._PREVENV___V4*/ meltfptr[3]) ; /**COMMENT: after getting imported values **/; /**initial routine cdata initializer**/ memset(meltpredefinited, 0, sizeof(meltpredefinited)); melt_initialize_module_meltdata_WARMELTmiMACRO (&meltfram__, meltpredefinited); /**initial routine body**/ melt_debugeprintf (" in initialization of warmelt-macro thru 57 chunk routines with frame @%p of %d bytes", /*fromline 2357*/ (void*)&meltfram__, (int) sizeof(meltfram__)); melt_debuggc_eprintf ("initialization of warmelt-macro thru 57 chunks, frame @%p of %d bytes", (void*)&meltfram__, (int) sizeof(meltfram__)); meltmod__WARMELTmiMACRO__initialmeltchunk_0 (&meltfram__, meltpredefinited); meltmod__WARMELTmiMACRO__initialmeltchunk_1 (&meltfram__, meltpredefinited); meltmod__WARMELTmiMACRO__initialmeltchunk_2 (&meltfram__, meltpredefinited); meltmod__WARMELTmiMACRO__initialmeltchunk_3 (&meltfram__, meltpredefinited); meltmod__WARMELTmiMACRO__initialmeltchunk_4 (&meltfram__, meltpredefinited); meltmod__WARMELTmiMACRO__initialmeltchunk_5 (&meltfram__, meltpredefinited); meltmod__WARMELTmiMACRO__initialmeltchunk_6 (&meltfram__, meltpredefinited); meltmod__WARMELTmiMACRO__initialmeltchunk_7 (&meltfram__, meltpredefinited); meltmod__WARMELTmiMACRO__initialmeltchunk_8 (&meltfram__, meltpredefinited); meltmod__WARMELTmiMACRO__initialmeltchunk_9 (&meltfram__, meltpredefinited); meltmod__WARMELTmiMACRO__initialmeltchunk_10 (&meltfram__, meltpredefinited); meltmod__WARMELTmiMACRO__initialmeltchunk_11 (&meltfram__, meltpredefinited); meltmod__WARMELTmiMACRO__initialmeltchunk_12 (&meltfram__, meltpredefinited); meltmod__WARMELTmiMACRO__initialmeltchunk_13 (&meltfram__, meltpredefinited); meltmod__WARMELTmiMACRO__initialmeltchunk_14 (&meltfram__, meltpredefinited); meltmod__WARMELTmiMACRO__initialmeltchunk_15 (&meltfram__, meltpredefinited); meltmod__WARMELTmiMACRO__initialmeltchunk_16 (&meltfram__, meltpredefinited); meltmod__WARMELTmiMACRO__initialmeltchunk_17 (&meltfram__, meltpredefinited); meltmod__WARMELTmiMACRO__initialmeltchunk_18 (&meltfram__, meltpredefinited); meltmod__WARMELTmiMACRO__initialmeltchunk_19 (&meltfram__, meltpredefinited); meltmod__WARMELTmiMACRO__initialmeltchunk_20 (&meltfram__, meltpredefinited); meltmod__WARMELTmiMACRO__initialmeltchunk_21 (&meltfram__, meltpredefinited); meltmod__WARMELTmiMACRO__initialmeltchunk_22 (&meltfram__, meltpredefinited); meltmod__WARMELTmiMACRO__initialmeltchunk_23 (&meltfram__, meltpredefinited); meltmod__WARMELTmiMACRO__initialmeltchunk_24 (&meltfram__, meltpredefinited); meltmod__WARMELTmiMACRO__initialmeltchunk_25 (&meltfram__, meltpredefinited); meltmod__WARMELTmiMACRO__initialmeltchunk_26 (&meltfram__, meltpredefinited); meltmod__WARMELTmiMACRO__initialmeltchunk_27 (&meltfram__, meltpredefinited); meltmod__WARMELTmiMACRO__initialmeltchunk_28 (&meltfram__, meltpredefinited); meltmod__WARMELTmiMACRO__initialmeltchunk_29 (&meltfram__, meltpredefinited); meltmod__WARMELTmiMACRO__initialmeltchunk_30 (&meltfram__, meltpredefinited); meltmod__WARMELTmiMACRO__initialmeltchunk_31 (&meltfram__, meltpredefinited); meltmod__WARMELTmiMACRO__initialmeltchunk_32 (&meltfram__, meltpredefinited); meltmod__WARMELTmiMACRO__initialmeltchunk_33 (&meltfram__, meltpredefinited); meltmod__WARMELTmiMACRO__initialmeltchunk_34 (&meltfram__, meltpredefinited); meltmod__WARMELTmiMACRO__initialmeltchunk_35 (&meltfram__, meltpredefinited); meltmod__WARMELTmiMACRO__initialmeltchunk_36 (&meltfram__, meltpredefinited); meltmod__WARMELTmiMACRO__initialmeltchunk_37 (&meltfram__, meltpredefinited); meltmod__WARMELTmiMACRO__initialmeltchunk_38 (&meltfram__, meltpredefinited); meltmod__WARMELTmiMACRO__initialmeltchunk_39 (&meltfram__, meltpredefinited); meltmod__WARMELTmiMACRO__initialmeltchunk_40 (&meltfram__, meltpredefinited); meltmod__WARMELTmiMACRO__initialmeltchunk_41 (&meltfram__, meltpredefinited); meltmod__WARMELTmiMACRO__initialmeltchunk_42 (&meltfram__, meltpredefinited); meltmod__WARMELTmiMACRO__initialmeltchunk_43 (&meltfram__, meltpredefinited); meltmod__WARMELTmiMACRO__initialmeltchunk_44 (&meltfram__, meltpredefinited); meltmod__WARMELTmiMACRO__initialmeltchunk_45 (&meltfram__, meltpredefinited); meltmod__WARMELTmiMACRO__initialmeltchunk_46 (&meltfram__, meltpredefinited); meltmod__WARMELTmiMACRO__initialmeltchunk_47 (&meltfram__, meltpredefinited); meltmod__WARMELTmiMACRO__initialmeltchunk_48 (&meltfram__, meltpredefinited); meltmod__WARMELTmiMACRO__initialmeltchunk_49 (&meltfram__, meltpredefinited); meltmod__WARMELTmiMACRO__initialmeltchunk_50 (&meltfram__, meltpredefinited); meltmod__WARMELTmiMACRO__initialmeltchunk_51 (&meltfram__, meltpredefinited); meltmod__WARMELTmiMACRO__initialmeltchunk_52 (&meltfram__, meltpredefinited); meltmod__WARMELTmiMACRO__initialmeltchunk_53 (&meltfram__, meltpredefinited); meltmod__WARMELTmiMACRO__initialmeltchunk_54 (&meltfram__, meltpredefinited); meltmod__WARMELTmiMACRO__initialmeltchunk_55 (&meltfram__, meltpredefinited); meltmod__WARMELTmiMACRO__initialmeltchunk_56 (&meltfram__, meltpredefinited);; goto meltlabend_rout; meltlabend_rout: ; { /* return out of initial fromline 2392 */ melt_ptr_t retval = /*_._RETINIT___V1*/ meltfptr[0]; melt_debugeprintf ("returning @%p from initial routine of warmelt-macro", (void*)retval); /*fromline 2400*/ return retval; } #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /* end melt_start_this_module fromline 2412 */ void meltmod__WARMELTmiMACRO__initialmeltchunk_0 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; /**COMMENT: start of oinibody **/; /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1__HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V95*/ meltfptr[94])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1__HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER @#1", (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)( /*_._VALSTR___V96*/ meltfptr[95]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V95*/ meltfptr[94]); melt_dbgtrace_written_object (/*_._VALDATA___V95*/ meltfptr[94], "new static instance"); /*putclosurout#5*/ melt_assertmsg("putclosrout#5 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V98*/ meltfptr[97])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#5 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V97*/ meltfptr[96])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V98*/ meltfptr[97])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V97*/ meltfptr[96]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V98*/ meltfptr[97]); /*putclosurout#6*/ melt_assertmsg("putclosrout#6 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V100*/ meltfptr[99])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#6 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V99*/ meltfptr[98])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V100*/ meltfptr[99])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V99*/ meltfptr[98]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V100*/ meltfptr[99]); /*putclosurout#7*/ melt_assertmsg("putclosrout#7 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V102*/ meltfptr[101])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#7 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V101*/ meltfptr[100])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V102*/ meltfptr[101])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V101*/ meltfptr[100]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V102*/ meltfptr[101]); /*putclosurout#8*/ melt_assertmsg("putclosrout#8 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V104*/ meltfptr[103])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#8 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V103*/ meltfptr[102])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V104*/ meltfptr[103])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V103*/ meltfptr[102]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V104*/ meltfptr[103]); /*putclosurout#9*/ melt_assertmsg("putclosrout#9 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V106*/ meltfptr[105])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#9 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V105*/ meltfptr[104])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V106*/ meltfptr[105])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V105*/ meltfptr[104]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V106*/ meltfptr[105]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_13__CLASS_DIAGNOSTIC_STATE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V107*/ meltfptr[106])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_13__CLASS_DIAGNOSTIC_STATE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V107*/ meltfptr[106])))); ((meltobject_ptr_t)(/*_._VALDATA___V107*/ meltfptr[106]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V108*/ meltfptr[107]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V107*/ meltfptr[106]); melt_dbgtrace_written_object (/*_._VALDATA___V107*/ meltfptr[106], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_15__CLASS_LOCATED @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V109*/ meltfptr[108])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_15__CLASS_LOCATED @#1", (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]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V109*/ meltfptr[108]); melt_dbgtrace_written_object (/*_._VALDATA___V109*/ meltfptr[108], "new static instance"); MELT_LOCATION("warmelt-macro.melt:78:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_17__CLASS_DIAGNOSTIC_STATE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V111*/ meltfptr[110])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_17__CLASS_DIAGNOSTIC_STATE @#1", (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-macro.melt:78:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_17__CLASS_DIAGNOSTIC_STATE @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V111*/ meltfptr[110])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_17__CLASS_DIAGNOSTIC_STATE @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V111*/ meltfptr[110])))); ((meltobject_ptr_t)(/*_._VALDATA___V111*/ meltfptr[110]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_LOCATED__V6*/ meltfptr[5]); /*putupl#17*/ melt_assertmsg("putupl #17 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V113*/ meltfptr[112]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #17 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V113*/ meltfptr[112])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V113*/ meltfptr[112]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V6*/ meltfptr[5]),5))), (0)))); /*putupl#18*/ melt_assertmsg("putupl #18 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V113*/ meltfptr[112]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #18 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V113*/ meltfptr[112])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V113*/ meltfptr[112]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V6*/ meltfptr[5]),5))), (1)))); /*putupl#19*/ melt_assertmsg("putupl #19 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V113*/ meltfptr[112]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #19 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V113*/ meltfptr[112])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V113*/ meltfptr[112]))->tabval[2] = (melt_ptr_t)(/*_.CLASS_LOCATED__V6*/ meltfptr[5]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V113*/ meltfptr[112]); MELT_LOCATION("warmelt-macro.melt:78:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_17__CLASS_DIAGNOSTIC_STATE @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V111*/ meltfptr[110])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_17__CLASS_DIAGNOSTIC_STATE @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V111*/ meltfptr[110])))); ((meltobject_ptr_t)(/*_._VALDATA___V111*/ meltfptr[110]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V113*/ meltfptr[112]); MELT_LOCATION("warmelt-macro.melt:78:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_23__DIAG_VECT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V114*/ meltfptr[113])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_23__DIAG_VECT @#1", (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]); MELT_LOCATION("warmelt-macro.melt:78:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_23__DIAG_VECT @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V114*/ meltfptr[113])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_23__DIAG_VECT @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V114*/ meltfptr[113])))); ((meltobject_ptr_t)(/*_._VALDATA___V114*/ meltfptr[113]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V111*/ meltfptr[110]); MELT_LOCATION("warmelt-macro.melt:78:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V114*/ meltfptr[113]); MELT_LOCATION("warmelt-macro.melt:78:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V114*/ meltfptr[113], "new static instance"); MELT_LOCATION("warmelt-macro.melt:78:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_27__DIAG_POSITION @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V116*/ meltfptr[115])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_27__DIAG_POSITION @#1", (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]); MELT_LOCATION("warmelt-macro.melt:78:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_27__DIAG_POSITION @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V116*/ meltfptr[115])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_27__DIAG_POSITION @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V116*/ meltfptr[115])))); ((meltobject_ptr_t)(/*_._VALDATA___V116*/ meltfptr[115]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V111*/ meltfptr[110]); MELT_LOCATION("warmelt-macro.melt:78:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V116*/ meltfptr[115]); MELT_LOCATION("warmelt-macro.melt:78:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V116*/ meltfptr[115], "new static instance"); MELT_LOCATION("warmelt-macro.melt:78:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_31__DIAG_STATE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V118*/ meltfptr[117])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_31__DIAG_STATE @#1", (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]); MELT_LOCATION("warmelt-macro.melt:78:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_31__DIAG_STATE @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V118*/ meltfptr[117])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_31__DIAG_STATE @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V118*/ meltfptr[117])))); ((meltobject_ptr_t)(/*_._VALDATA___V118*/ meltfptr[117]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V111*/ meltfptr[110]); MELT_LOCATION("warmelt-macro.melt:78:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V118*/ meltfptr[117]); MELT_LOCATION("warmelt-macro.melt:78:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V118*/ meltfptr[117], "new static instance"); /*putupl#20*/ melt_assertmsg("putupl #20 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V120*/ meltfptr[119]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #20 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V120*/ meltfptr[119])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V120*/ meltfptr[119]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V6*/ meltfptr[5]),6))), (0)))); /*putupl#21*/ melt_assertmsg("putupl #21 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V120*/ meltfptr[119]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #21 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V120*/ meltfptr[119])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V120*/ meltfptr[119]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_LOCATED__V6*/ meltfptr[5]),6))), (1)))); /*putupl#22*/ melt_assertmsg("putupl #22 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V120*/ meltfptr[119]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #22 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V120*/ meltfptr[119])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V120*/ meltfptr[119]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V114*/ meltfptr[113]); /*putupl#23*/ melt_assertmsg("putupl #23 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V120*/ meltfptr[119]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #23 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V120*/ meltfptr[119])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V120*/ meltfptr[119]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V116*/ meltfptr[115]); /*putupl#24*/ melt_assertmsg("putupl #24 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V120*/ meltfptr[119]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #24 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V120*/ meltfptr[119])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V120*/ meltfptr[119]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V118*/ meltfptr[117]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V120*/ meltfptr[119]); MELT_LOCATION("warmelt-macro.melt:78:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_17__CLASS_DIAGNOSTIC_STATE @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V111*/ meltfptr[110])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_17__CLASS_DIAGNOSTIC_STATE @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V111*/ meltfptr[110])))); ((meltobject_ptr_t)(/*_._VALDATA___V111*/ meltfptr[110]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V120*/ meltfptr[119]); MELT_LOCATION("warmelt-macro.melt:78:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V111*/ meltfptr[110]); MELT_LOCATION("warmelt-macro.melt:78:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V111*/ meltfptr[110], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_21__DIAG_VECT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V121*/ meltfptr[120])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_21__DIAG_VECT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V121*/ meltfptr[120])))); ((meltobject_ptr_t)(/*_._VALDATA___V121*/ meltfptr[120]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V122*/ meltfptr[121]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V121*/ meltfptr[120]); melt_dbgtrace_written_object (/*_._VALDATA___V121*/ meltfptr[120], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_25__DIAG_POSITION @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V123*/ meltfptr[122])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_25__DIAG_POSITION @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V123*/ meltfptr[122])))); ((meltobject_ptr_t)(/*_._VALDATA___V123*/ meltfptr[122]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V124*/ meltfptr[123]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V123*/ meltfptr[122]); melt_dbgtrace_written_object (/*_._VALDATA___V123*/ meltfptr[122], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_29__DIAG_STATE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V125*/ meltfptr[124])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_29__DIAG_STATE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V125*/ meltfptr[124])))); ((meltobject_ptr_t)(/*_._VALDATA___V125*/ meltfptr[124]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V126*/ meltfptr[125]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V125*/ meltfptr[124]); melt_dbgtrace_written_object (/*_._VALDATA___V125*/ meltfptr[124], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_33__DISCR_DIAGNOSTIC_CLOSURE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V127*/ meltfptr[126])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_33__DISCR_DIAGNOSTIC_CLOSURE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V127*/ meltfptr[126])))); ((meltobject_ptr_t)(/*_._VALDATA___V127*/ meltfptr[126]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V128*/ meltfptr[127]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V127*/ meltfptr[126]); melt_dbgtrace_written_object (/*_._VALDATA___V127*/ meltfptr[126], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_35__CLASS_DISCRIMINANT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V129*/ meltfptr[128])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_35__CLASS_DISCRIMINANT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V129*/ meltfptr[128])))); ((meltobject_ptr_t)(/*_._VALDATA___V129*/ meltfptr[128]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V130*/ meltfptr[129]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V129*/ meltfptr[128]); melt_dbgtrace_written_object (/*_._VALDATA___V129*/ meltfptr[128], "new static instance"); MELT_LOCATION("warmelt-macro.melt:87:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_37__DISCR_DIAGNOSTIC_CLOSURE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V131*/ meltfptr[130])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_37__DISCR_DIAGNOSTIC_CLOSURE @#1", (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]); MELT_LOCATION("warmelt-macro.melt:87:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_37__DISCR_DIAGNOSTIC_CLOSURE @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V131*/ meltfptr[130])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_37__DISCR_DIAGNOSTIC_CLOSURE @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V131*/ meltfptr[130])))); ((meltobject_ptr_t)(/*_._VALDATA___V131*/ meltfptr[130]))->obj_vartab[4] = (melt_ptr_t)( /*_.DISCR_CLOSURE__V8*/ meltfptr[7]); MELT_LOCATION("warmelt-macro.melt:87:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V131*/ meltfptr[130]); MELT_LOCATION("warmelt-macro.melt:87:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V131*/ meltfptr[130], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_38__DISCR_CLOSURE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V133*/ meltfptr[132])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_38__DISCR_CLOSURE @#1", (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)( /*_._VALSTR___V134*/ meltfptr[133]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V133*/ meltfptr[132]); melt_dbgtrace_written_object (/*_._VALDATA___V133*/ meltfptr[132], "new static instance"); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#1", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#3", NULL != (/*_.CLASS_LOCATED__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[3] = (melt_ptr_t)(/*_.CLASS_LOCATED__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#4", NULL != (/*_.LIST_TO_MULTIPLE__V12*/ meltfptr[11])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[4] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V12*/ meltfptr[11]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#5", NULL != (/*_.DISCR_MULTIPLE__V13*/ meltfptr[12])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[5] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V13*/ meltfptr[12]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#6", NULL != (/*_.STRING4OUT__V14*/ meltfptr[13])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[6] = (melt_ptr_t)(/*_.STRING4OUT__V14*/ meltfptr[13]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#7", NULL != (/*_.DISCR_STRING__V15*/ meltfptr[14])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[7] = (melt_ptr_t)(/*_.DISCR_STRING__V15*/ meltfptr[14]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#8", NULL != (/*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[8] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#9", NULL != (/*_.MELT_MAKE_SEXPR__V17*/ meltfptr[16])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[9] = (melt_ptr_t)(/*_.MELT_MAKE_SEXPR__V17*/ meltfptr[16]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#10", NULL != (/*_.HOOK_MELT_MAKE_LOCATION__V18*/ meltfptr[17])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[10] = (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V18*/ meltfptr[17]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_63__LET @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V136*/ meltfptr[135])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_63__LET @#1", (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_dbgtrace_written_object (/*_._VALDATA___V136*/ meltfptr[135], "new static instance"); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#11", NULL != (/*_._VALDATA___V136*/ meltfptr[135])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[11] = (melt_ptr_t)(/*_._VALDATA___V136*/ meltfptr[135]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_65__DIAGPOSBOX @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V138*/ meltfptr[137])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_65__DIAGPOSBOX @#1", (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)( /*_._VALSTR___V139*/ meltfptr[138]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V138*/ meltfptr[137]); melt_dbgtrace_written_object (/*_._VALDATA___V138*/ meltfptr[137], "new static instance"); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#12", NULL != (/*_._VALDATA___V138*/ meltfptr[137])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[12] = (melt_ptr_t)(/*_._VALDATA___V138*/ meltfptr[137]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_67__BOX @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V140*/ meltfptr[139])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_67__BOX @#1", (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)( /*_._VALSTR___V141*/ meltfptr[140]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V140*/ meltfptr[139]); melt_dbgtrace_written_object (/*_._VALDATA___V140*/ meltfptr[139], "new static instance"); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#13", NULL != (/*_._VALDATA___V140*/ meltfptr[139])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[13] = (melt_ptr_t)(/*_._VALDATA___V140*/ meltfptr[139]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_69__DIAGSTATE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V142*/ meltfptr[141])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_69__DIAGSTATE @#1", (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]); melt_dbgtrace_written_object (/*_._VALDATA___V142*/ meltfptr[141], "new static instance"); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#14", NULL != (/*_._VALDATA___V142*/ meltfptr[141])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[14] = (melt_ptr_t)(/*_._VALDATA___V142*/ meltfptr[141]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_71__INSTANCE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V144*/ meltfptr[143])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_71__INSTANCE @#1", (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_dbgtrace_written_object (/*_._VALDATA___V144*/ meltfptr[143], "new static instance"); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#15", NULL != (/*_._VALDATA___V144*/ meltfptr[143])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[15] = (melt_ptr_t)(/*_._VALDATA___V144*/ meltfptr[143]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#16", NULL != (/*_._VALDATA___V107*/ meltfptr[106])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[16] = (melt_ptr_t)(/*_._VALDATA___V107*/ meltfptr[106]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_73__LOCA_LOCATION @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V146*/ meltfptr[145])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_73__LOCA_LOCATION @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V146*/ meltfptr[145])))); ((meltobject_ptr_t)(/*_._VALDATA___V146*/ meltfptr[145]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V147*/ meltfptr[146]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V146*/ meltfptr[145]); melt_dbgtrace_written_object (/*_._VALDATA___V146*/ meltfptr[145], "new static instance"); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#17", NULL != (/*_._VALDATA___V146*/ meltfptr[145])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[17] = (melt_ptr_t)(/*_._VALDATA___V146*/ meltfptr[145]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_75__DIAG_VECT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V148*/ meltfptr[147])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_75__DIAG_VECT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V148*/ meltfptr[147])))); ((meltobject_ptr_t)(/*_._VALDATA___V148*/ meltfptr[147]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V149*/ meltfptr[148]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V148*/ meltfptr[147]); melt_dbgtrace_written_object (/*_._VALDATA___V148*/ meltfptr[147], "new static instance"); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#18", NULL != (/*_._VALDATA___V148*/ meltfptr[147])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[18] = (melt_ptr_t)(/*_._VALDATA___V148*/ meltfptr[147]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_77__DIAG_POSITION @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V150*/ meltfptr[149])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_77__DIAG_POSITION @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V150*/ meltfptr[149])))); ((meltobject_ptr_t)(/*_._VALDATA___V150*/ meltfptr[149]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V151*/ meltfptr[150]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V150*/ meltfptr[149]); melt_dbgtrace_written_object (/*_._VALDATA___V150*/ meltfptr[149], "new static instance"); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#19", NULL != (/*_._VALDATA___V150*/ meltfptr[149])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[19] = (melt_ptr_t)(/*_._VALDATA___V150*/ meltfptr[149]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#20", NULL != (/*_._VALDATA___V138*/ meltfptr[137])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[20] = (melt_ptr_t)(/*_._VALDATA___V138*/ meltfptr[137]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_79__DIAG_STATE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V152*/ meltfptr[151])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_79__DIAG_STATE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V152*/ meltfptr[151])))); ((meltobject_ptr_t)(/*_._VALDATA___V152*/ meltfptr[151]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V153*/ meltfptr[152]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V152*/ meltfptr[151]); melt_dbgtrace_written_object (/*_._VALDATA___V152*/ meltfptr[151], "new static instance"); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#21", NULL != (/*_._VALDATA___V152*/ meltfptr[151])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[21] = (melt_ptr_t)(/*_._VALDATA___V152*/ meltfptr[151]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_81__MAKE_MAPOBJECT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V154*/ meltfptr[153])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_81__MAKE_MAPOBJECT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V154*/ meltfptr[153])))); ((meltobject_ptr_t)(/*_._VALDATA___V154*/ meltfptr[153]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V155*/ meltfptr[154]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V154*/ meltfptr[153]); melt_dbgtrace_written_object (/*_._VALDATA___V154*/ meltfptr[153], "new static instance"); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#22", NULL != (/*_._VALDATA___V154*/ meltfptr[153])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[22] = (melt_ptr_t)(/*_._VALDATA___V154*/ meltfptr[153]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_83__DISCR_MAP_OBJECTS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V156*/ meltfptr[155])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_83__DISCR_MAP_OBJECTS @#1", (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_dbgtrace_written_object (/*_._VALDATA___V156*/ meltfptr[155], "new static instance"); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#23", NULL != (/*_._VALDATA___V156*/ meltfptr[155])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[23] = (melt_ptr_t)(/*_._VALDATA___V156*/ meltfptr[155]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_85__SETQ @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V158*/ meltfptr[157])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_85__SETQ @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V158*/ meltfptr[157])))); ((meltobject_ptr_t)(/*_._VALDATA___V158*/ meltfptr[157]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V159*/ meltfptr[158]); #undef meltfram__ } /*end of meltmod__WARMELTmiMACRO__initialmeltchunk_0*/ void meltmod__WARMELTmiMACRO__initialmeltchunk_1 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V158*/ meltfptr[157]); melt_dbgtrace_written_object (/*_._VALDATA___V158*/ meltfptr[157], "new static instance"); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#24", NULL != (/*_._VALDATA___V158*/ meltfptr[157])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[24] = (melt_ptr_t)(/*_._VALDATA___V158*/ meltfptr[157]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_87__FOREVER @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V160*/ meltfptr[159])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_87__FOREVER @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V160*/ meltfptr[159])))); ((meltobject_ptr_t)(/*_._VALDATA___V160*/ meltfptr[159]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V161*/ meltfptr[160]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V160*/ meltfptr[159]); melt_dbgtrace_written_object (/*_._VALDATA___V160*/ meltfptr[159], "new static instance"); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#25", NULL != (/*_._VALDATA___V160*/ meltfptr[159])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[25] = (melt_ptr_t)(/*_._VALDATA___V160*/ meltfptr[159]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_89__ARGLOOP @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V162*/ meltfptr[161])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_89__ARGLOOP @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V162*/ meltfptr[161])))); ((meltobject_ptr_t)(/*_._VALDATA___V162*/ meltfptr[161]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V163*/ meltfptr[162]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V162*/ meltfptr[161]); melt_dbgtrace_written_object (/*_._VALDATA___V162*/ meltfptr[161], "new static instance"); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#26", NULL != (/*_._VALDATA___V162*/ meltfptr[161])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[26] = (melt_ptr_t)(/*_._VALDATA___V162*/ meltfptr[161]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_91__PUT_INT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V164*/ meltfptr[163])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_91__PUT_INT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V164*/ meltfptr[163])))); ((meltobject_ptr_t)(/*_._VALDATA___V164*/ meltfptr[163]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V165*/ meltfptr[164]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V164*/ meltfptr[163]); melt_dbgtrace_written_object (/*_._VALDATA___V164*/ meltfptr[163], "new static instance"); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#27", NULL != (/*_._VALDATA___V164*/ meltfptr[163])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[27] = (melt_ptr_t)(/*_._VALDATA___V164*/ meltfptr[163]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#28", NULL != (/*_._VALDATA___V138*/ meltfptr[137])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[28] = (melt_ptr_t)(/*_._VALDATA___V138*/ meltfptr[137]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_93__VARIADIC @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V166*/ meltfptr[165])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_93__VARIADIC @#1", (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_dbgtrace_written_object (/*_._VALDATA___V166*/ meltfptr[165], "new static instance"); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#29", NULL != (/*_._VALDATA___V166*/ meltfptr[165])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[29] = (melt_ptr_t)(/*_._VALDATA___V166*/ meltfptr[165]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_95__EXIT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V168*/ meltfptr[167])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_95__EXIT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V168*/ meltfptr[167])))); ((meltobject_ptr_t)(/*_._VALDATA___V168*/ meltfptr[167]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V169*/ meltfptr[168]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V168*/ meltfptr[167]); melt_dbgtrace_written_object (/*_._VALDATA___V168*/ meltfptr[167], "new static instance"); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#30", NULL != (/*_._VALDATA___V168*/ meltfptr[167])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[30] = (melt_ptr_t)(/*_._VALDATA___V168*/ meltfptr[167]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#31", NULL != (/*_._VALDATA___V162*/ meltfptr[161])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[31] = (melt_ptr_t)(/*_._VALDATA___V162*/ meltfptr[161]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_97__CSTRING @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V170*/ meltfptr[169])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_97__CSTRING @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V170*/ meltfptr[169])))); ((meltobject_ptr_t)(/*_._VALDATA___V170*/ meltfptr[169]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V171*/ meltfptr[170]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V170*/ meltfptr[169]); melt_dbgtrace_written_object (/*_._VALDATA___V170*/ meltfptr[169], "new static instance"); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#32", NULL != (/*_._VALDATA___V170*/ meltfptr[169])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[32] = (melt_ptr_t)(/*_._VALDATA___V170*/ meltfptr[169]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_99__STR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V172*/ meltfptr[171])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_99__STR @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V172*/ meltfptr[171])))); ((meltobject_ptr_t)(/*_._VALDATA___V172*/ meltfptr[171]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V173*/ meltfptr[172]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V172*/ meltfptr[171]); melt_dbgtrace_written_object (/*_._VALDATA___V172*/ meltfptr[171], "new static instance"); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#33", NULL != (/*_._VALDATA___V172*/ meltfptr[171])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[33] = (melt_ptr_t)(/*_._VALDATA___V172*/ meltfptr[171]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#34", NULL != (/*_._VALDATA___V136*/ meltfptr[135])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[34] = (melt_ptr_t)(/*_._VALDATA___V136*/ meltfptr[135]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_101__BS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V174*/ meltfptr[173])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_101__BS @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V174*/ meltfptr[173])))); ((meltobject_ptr_t)(/*_._VALDATA___V174*/ meltfptr[173]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V175*/ meltfptr[174]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V174*/ meltfptr[173]); melt_dbgtrace_written_object (/*_._VALDATA___V174*/ meltfptr[173], "new static instance"); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#35", NULL != (/*_._VALDATA___V174*/ meltfptr[173])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[35] = (melt_ptr_t)(/*_._VALDATA___V174*/ meltfptr[173]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_103__CONSTANT_BOX @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V176*/ meltfptr[175])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_103__CONSTANT_BOX @#1", (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]); melt_dbgtrace_written_object (/*_._VALDATA___V176*/ meltfptr[175], "new static instance"); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#36", NULL != (/*_._VALDATA___V176*/ meltfptr[175])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[36] = (melt_ptr_t)(/*_._VALDATA___V176*/ meltfptr[175]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#37", NULL != (/*_._VALDATA___V172*/ meltfptr[171])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[37] = (melt_ptr_t)(/*_._VALDATA___V172*/ meltfptr[171]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#38", NULL != (/*_._VALDATA___V158*/ meltfptr[157])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[38] = (melt_ptr_t)(/*_._VALDATA___V158*/ meltfptr[157]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_105__pl @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V178*/ meltfptr[177])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_105__pl @#1", (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_dbgtrace_written_object (/*_._VALDATA___V178*/ meltfptr[177], "new static instance"); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#39", NULL != (/*_._VALDATA___V178*/ meltfptr[177])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[39] = (melt_ptr_t)(/*_._VALDATA___V178*/ meltfptr[177]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_107__MULTIPLE_PUT_NTH @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V180*/ meltfptr[179])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_107__MULTIPLE_PUT_NTH @#1", (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]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V180*/ meltfptr[179]); melt_dbgtrace_written_object (/*_._VALDATA___V180*/ meltfptr[179], "new static instance"); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#40", NULL != (/*_._VALDATA___V180*/ meltfptr[179])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[40] = (melt_ptr_t)(/*_._VALDATA___V180*/ meltfptr[179]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#41", NULL != (/*_._VALDATA___V174*/ meltfptr[173])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[41] = (melt_ptr_t)(/*_._VALDATA___V174*/ meltfptr[173]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_109__VOID @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V182*/ meltfptr[181])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_109__VOID @#1", (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_dbgtrace_written_object (/*_._VALDATA___V182*/ meltfptr[181], "new static instance"); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#42", NULL != (/*_._VALDATA___V182*/ meltfptr[181])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[42] = (melt_ptr_t)(/*_._VALDATA___V182*/ meltfptr[181]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_111__LONG @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V184*/ meltfptr[183])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_111__LONG @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V184*/ meltfptr[183])))); ((meltobject_ptr_t)(/*_._VALDATA___V184*/ meltfptr[183]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V185*/ meltfptr[184]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V184*/ meltfptr[183]); melt_dbgtrace_written_object (/*_._VALDATA___V184*/ meltfptr[183], "new static instance"); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#43", NULL != (/*_._VALDATA___V184*/ meltfptr[183])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[43] = (melt_ptr_t)(/*_._VALDATA___V184*/ meltfptr[183]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_113__L @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V186*/ meltfptr[185])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_113__L @#1", (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]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V186*/ meltfptr[185]); melt_dbgtrace_written_object (/*_._VALDATA___V186*/ meltfptr[185], "new static instance"); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#44", NULL != (/*_._VALDATA___V186*/ meltfptr[185])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[44] = (melt_ptr_t)(/*_._VALDATA___V186*/ meltfptr[185]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#45", NULL != (/*_._VALDATA___V136*/ meltfptr[135])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[45] = (melt_ptr_t)(/*_._VALDATA___V136*/ meltfptr[135]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_115__SN @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V188*/ meltfptr[187])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_115__SN @#1", (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]); melt_dbgtrace_written_object (/*_._VALDATA___V188*/ meltfptr[187], "new static instance"); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#46", NULL != (/*_._VALDATA___V188*/ meltfptr[187])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[46] = (melt_ptr_t)(/*_._VALDATA___V188*/ meltfptr[187]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_53__STRING4OUT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V190*/ meltfptr[189])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_53__STRING4OUT @#1", (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]); melt_dbgtrace_written_object (/*_._VALDATA___V190*/ meltfptr[189], "new static instance"); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#47", NULL != (/*_._VALDATA___V190*/ meltfptr[189])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[47] = (melt_ptr_t)(/*_._VALDATA___V190*/ meltfptr[189]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_55__DISCR_STRING @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V192*/ meltfptr[191])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_55__DISCR_STRING @#1", (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_dbgtrace_written_object (/*_._VALDATA___V192*/ meltfptr[191], "new static instance"); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#48", NULL != (/*_._VALDATA___V192*/ meltfptr[191])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[48] = (melt_ptr_t)(/*_._VALDATA___V192*/ meltfptr[191]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#49", NULL != (/*_._VALDATA___V186*/ meltfptr[185])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[49] = (melt_ptr_t)(/*_._VALDATA___V186*/ meltfptr[185]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#50", NULL != (/*_._VALDATA___V158*/ meltfptr[157])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[50] = (melt_ptr_t)(/*_._VALDATA___V158*/ meltfptr[157]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#51", NULL != (/*_._VALDATA___V178*/ meltfptr[177])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[51] = (melt_ptr_t)(/*_._VALDATA___V178*/ meltfptr[177]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#52", NULL != (/*_._VALDATA___V180*/ meltfptr[179])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[52] = (melt_ptr_t)(/*_._VALDATA___V180*/ meltfptr[179]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#53", NULL != (/*_._VALDATA___V188*/ meltfptr[187])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[53] = (melt_ptr_t)(/*_._VALDATA___V188*/ meltfptr[187]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#54", NULL != (/*_._VALDATA___V182*/ meltfptr[181])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[54] = (melt_ptr_t)(/*_._VALDATA___V182*/ meltfptr[181]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_117__TREE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V194*/ meltfptr[193])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_117__TREE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V194*/ meltfptr[193])))); ((meltobject_ptr_t)(/*_._VALDATA___V194*/ meltfptr[193]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V195*/ meltfptr[194]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V194*/ meltfptr[193]); melt_dbgtrace_written_object (/*_._VALDATA___V194*/ meltfptr[193], "new static instance"); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#55", NULL != (/*_._VALDATA___V194*/ meltfptr[193])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[55] = (melt_ptr_t)(/*_._VALDATA___V194*/ meltfptr[193]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_119__TR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V196*/ meltfptr[195])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_119__TR @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V196*/ meltfptr[195])))); ((meltobject_ptr_t)(/*_._VALDATA___V196*/ meltfptr[195]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V197*/ meltfptr[196]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V196*/ meltfptr[195]); melt_dbgtrace_written_object (/*_._VALDATA___V196*/ meltfptr[195], "new static instance"); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#56", NULL != (/*_._VALDATA___V196*/ meltfptr[195])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[56] = (melt_ptr_t)(/*_._VALDATA___V196*/ meltfptr[195]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_121__ASSERT_MSG @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V198*/ meltfptr[197])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_121__ASSERT_MSG @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V198*/ meltfptr[197])))); ((meltobject_ptr_t)(/*_._VALDATA___V198*/ meltfptr[197]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V199*/ meltfptr[198]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V198*/ meltfptr[197]); melt_dbgtrace_written_object (/*_._VALDATA___V198*/ meltfptr[197], "new static instance"); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#57", NULL != (/*_._VALDATA___V198*/ meltfptr[197])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[57] = (melt_ptr_t)(/*_._VALDATA___V198*/ meltfptr[197]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_123__IS_CLOSURE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V200*/ meltfptr[199])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_123__IS_CLOSURE @#1", (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]); melt_dbgtrace_written_object (/*_._VALDATA___V200*/ meltfptr[199], "new static instance"); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#58", NULL != (/*_._VALDATA___V200*/ meltfptr[199])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[58] = (melt_ptr_t)(/*_._VALDATA___V200*/ meltfptr[199]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_125__DIAGV_TREE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V202*/ meltfptr[201])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_125__DIAGV_TREE @#1", (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_dbgtrace_written_object (/*_._VALDATA___V202*/ meltfptr[201], "new static instance"); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#59", NULL != (/*_._VALDATA___V202*/ meltfptr[201])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[59] = (melt_ptr_t)(/*_._VALDATA___V202*/ meltfptr[201]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#60", NULL != (/*_._VALDATA___V202*/ meltfptr[201])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[60] = (melt_ptr_t)(/*_._VALDATA___V202*/ meltfptr[201]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#61", NULL != (/*_._VALDATA___V136*/ meltfptr[135])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[61] = (melt_ptr_t)(/*_._VALDATA___V136*/ meltfptr[135]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_127__S @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V204*/ meltfptr[203])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_127__S @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V204*/ meltfptr[203])))); ((meltobject_ptr_t)(/*_._VALDATA___V204*/ meltfptr[203]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V205*/ meltfptr[204]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V204*/ meltfptr[203]); melt_dbgtrace_written_object (/*_._VALDATA___V204*/ meltfptr[203], "new static instance"); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#62", NULL != (/*_._VALDATA___V204*/ meltfptr[203])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[62] = (melt_ptr_t)(/*_._VALDATA___V204*/ meltfptr[203]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#63", NULL != (/*_._VALDATA___V202*/ meltfptr[201])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[63] = (melt_ptr_t)(/*_._VALDATA___V202*/ meltfptr[201]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#64", NULL != (/*_._VALDATA___V142*/ meltfptr[141])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[64] = (melt_ptr_t)(/*_._VALDATA___V142*/ meltfptr[141]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#65", NULL != (/*_._VALDATA___V196*/ meltfptr[195])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[65] = (melt_ptr_t)(/*_._VALDATA___V196*/ meltfptr[195]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#66", NULL != (/*_._VALDATA___V158*/ meltfptr[157])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[66] = (melt_ptr_t)(/*_._VALDATA___V158*/ meltfptr[157]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#67", NULL != (/*_._VALDATA___V178*/ meltfptr[177])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[67] = (melt_ptr_t)(/*_._VALDATA___V178*/ meltfptr[177]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#68", NULL != (/*_._VALDATA___V180*/ meltfptr[179])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[68] = (melt_ptr_t)(/*_._VALDATA___V180*/ meltfptr[179]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#69", NULL != (/*_._VALDATA___V204*/ meltfptr[203])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[69] = (melt_ptr_t)(/*_._VALDATA___V204*/ meltfptr[203]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#70", NULL != (/*_._VALDATA___V182*/ meltfptr[181])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[70] = (melt_ptr_t)(/*_._VALDATA___V182*/ meltfptr[181]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_129__GIMPLE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V206*/ meltfptr[205])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_129__GIMPLE @#1", (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_dbgtrace_written_object (/*_._VALDATA___V206*/ meltfptr[205], "new static instance"); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#71", NULL != (/*_._VALDATA___V206*/ meltfptr[205])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[71] = (melt_ptr_t)(/*_._VALDATA___V206*/ meltfptr[205]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_131__GI @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V208*/ meltfptr[207])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_131__GI @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V208*/ meltfptr[207])))); ((meltobject_ptr_t)(/*_._VALDATA___V208*/ meltfptr[207]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V209*/ meltfptr[208]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V208*/ meltfptr[207]); melt_dbgtrace_written_object (/*_._VALDATA___V208*/ meltfptr[207], "new static instance"); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#72", NULL != (/*_._VALDATA___V208*/ meltfptr[207])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[72] = (melt_ptr_t)(/*_._VALDATA___V208*/ meltfptr[207]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#73", NULL != (/*_._VALDATA___V198*/ meltfptr[197])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[73] = (melt_ptr_t)(/*_._VALDATA___V198*/ meltfptr[197]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#74", NULL != (/*_._VALDATA___V200*/ meltfptr[199])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[74] = (melt_ptr_t)(/*_._VALDATA___V200*/ meltfptr[199]); #undef meltfram__ } /*end of meltmod__WARMELTmiMACRO__initialmeltchunk_1*/ void meltmod__WARMELTmiMACRO__initialmeltchunk_2 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_133__DIAGV_GIMPLE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V210*/ meltfptr[209])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_133__DIAGV_GIMPLE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V210*/ meltfptr[209])))); ((meltobject_ptr_t)(/*_._VALDATA___V210*/ meltfptr[209]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V211*/ meltfptr[210]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V210*/ meltfptr[209]); melt_dbgtrace_written_object (/*_._VALDATA___V210*/ meltfptr[209], "new static instance"); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#75", NULL != (/*_._VALDATA___V210*/ meltfptr[209])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[75] = (melt_ptr_t)(/*_._VALDATA___V210*/ meltfptr[209]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#76", NULL != (/*_._VALDATA___V210*/ meltfptr[209])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[76] = (melt_ptr_t)(/*_._VALDATA___V210*/ meltfptr[209]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#77", NULL != (/*_._VALDATA___V136*/ meltfptr[135])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[77] = (melt_ptr_t)(/*_._VALDATA___V136*/ meltfptr[135]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#78", NULL != (/*_._VALDATA___V204*/ meltfptr[203])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[78] = (melt_ptr_t)(/*_._VALDATA___V204*/ meltfptr[203]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#79", NULL != (/*_._VALDATA___V210*/ meltfptr[209])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[79] = (melt_ptr_t)(/*_._VALDATA___V210*/ meltfptr[209]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#80", NULL != (/*_._VALDATA___V142*/ meltfptr[141])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[80] = (melt_ptr_t)(/*_._VALDATA___V142*/ meltfptr[141]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#81", NULL != (/*_._VALDATA___V208*/ meltfptr[207])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[81] = (melt_ptr_t)(/*_._VALDATA___V208*/ meltfptr[207]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#82", NULL != (/*_._VALDATA___V158*/ meltfptr[157])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[82] = (melt_ptr_t)(/*_._VALDATA___V158*/ meltfptr[157]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#83", NULL != (/*_._VALDATA___V178*/ meltfptr[177])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[83] = (melt_ptr_t)(/*_._VALDATA___V178*/ meltfptr[177]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#84", NULL != (/*_._VALDATA___V180*/ meltfptr[179])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[84] = (melt_ptr_t)(/*_._VALDATA___V180*/ meltfptr[179]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#85", NULL != (/*_._VALDATA___V204*/ meltfptr[203])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[85] = (melt_ptr_t)(/*_._VALDATA___V204*/ meltfptr[203]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#86", NULL != (/*_._VALDATA___V182*/ meltfptr[181])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[86] = (melt_ptr_t)(/*_._VALDATA___V182*/ meltfptr[181]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_135__GIMPLE_SEQ @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V212*/ meltfptr[211])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_135__GIMPLE_SEQ @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V212*/ meltfptr[211])))); ((meltobject_ptr_t)(/*_._VALDATA___V212*/ meltfptr[211]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V213*/ meltfptr[212]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V212*/ meltfptr[211]); melt_dbgtrace_written_object (/*_._VALDATA___V212*/ meltfptr[211], "new static instance"); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#87", NULL != (/*_._VALDATA___V212*/ meltfptr[211])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[87] = (melt_ptr_t)(/*_._VALDATA___V212*/ meltfptr[211]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_137__GS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V214*/ meltfptr[213])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_137__GS @#1", (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_dbgtrace_written_object (/*_._VALDATA___V214*/ meltfptr[213], "new static instance"); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#88", NULL != (/*_._VALDATA___V214*/ meltfptr[213])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[88] = (melt_ptr_t)(/*_._VALDATA___V214*/ meltfptr[213]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#89", NULL != (/*_._VALDATA___V198*/ meltfptr[197])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[89] = (melt_ptr_t)(/*_._VALDATA___V198*/ meltfptr[197]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#90", NULL != (/*_._VALDATA___V200*/ meltfptr[199])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[90] = (melt_ptr_t)(/*_._VALDATA___V200*/ meltfptr[199]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_139__DIAGV_GIMPLE_SEQ @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V216*/ meltfptr[215])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_139__DIAGV_GIMPLE_SEQ @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V216*/ meltfptr[215])))); ((meltobject_ptr_t)(/*_._VALDATA___V216*/ meltfptr[215]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V217*/ meltfptr[216]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V216*/ meltfptr[215]); melt_dbgtrace_written_object (/*_._VALDATA___V216*/ meltfptr[215], "new static instance"); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#91", NULL != (/*_._VALDATA___V216*/ meltfptr[215])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[91] = (melt_ptr_t)(/*_._VALDATA___V216*/ meltfptr[215]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#92", NULL != (/*_._VALDATA___V216*/ meltfptr[215])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[92] = (melt_ptr_t)(/*_._VALDATA___V216*/ meltfptr[215]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#93", NULL != (/*_._VALDATA___V136*/ meltfptr[135])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[93] = (melt_ptr_t)(/*_._VALDATA___V136*/ meltfptr[135]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#94", NULL != (/*_._VALDATA___V204*/ meltfptr[203])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[94] = (melt_ptr_t)(/*_._VALDATA___V204*/ meltfptr[203]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#95", NULL != (/*_._VALDATA___V216*/ meltfptr[215])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[95] = (melt_ptr_t)(/*_._VALDATA___V216*/ meltfptr[215]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#96", NULL != (/*_._VALDATA___V142*/ meltfptr[141])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[96] = (melt_ptr_t)(/*_._VALDATA___V142*/ meltfptr[141]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#97", NULL != (/*_._VALDATA___V214*/ meltfptr[213])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[97] = (melt_ptr_t)(/*_._VALDATA___V214*/ meltfptr[213]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#98", NULL != (/*_._VALDATA___V158*/ meltfptr[157])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[98] = (melt_ptr_t)(/*_._VALDATA___V158*/ meltfptr[157]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#99", NULL != (/*_._VALDATA___V178*/ meltfptr[177])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[99] = (melt_ptr_t)(/*_._VALDATA___V178*/ meltfptr[177]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#100", NULL != (/*_._VALDATA___V180*/ meltfptr[179])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[100] = (melt_ptr_t)(/*_._VALDATA___V180*/ meltfptr[179]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#101", NULL != (/*_._VALDATA___V204*/ meltfptr[203])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[101] = (melt_ptr_t)(/*_._VALDATA___V204*/ meltfptr[203]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#102", NULL != (/*_._VALDATA___V182*/ meltfptr[181])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[102] = (melt_ptr_t)(/*_._VALDATA___V182*/ meltfptr[181]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_141__BASIC_BLOCK @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V218*/ meltfptr[217])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_141__BASIC_BLOCK @#1", (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_dbgtrace_written_object (/*_._VALDATA___V218*/ meltfptr[217], "new static instance"); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#103", NULL != (/*_._VALDATA___V218*/ meltfptr[217])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[103] = (melt_ptr_t)(/*_._VALDATA___V218*/ meltfptr[217]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_143__BB @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V220*/ meltfptr[219])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_143__BB @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V220*/ meltfptr[219])))); ((meltobject_ptr_t)(/*_._VALDATA___V220*/ meltfptr[219]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V221*/ meltfptr[220]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V220*/ meltfptr[219]); melt_dbgtrace_written_object (/*_._VALDATA___V220*/ meltfptr[219], "new static instance"); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#104", NULL != (/*_._VALDATA___V220*/ meltfptr[219])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[104] = (melt_ptr_t)(/*_._VALDATA___V220*/ meltfptr[219]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#105", NULL != (/*_._VALDATA___V198*/ meltfptr[197])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[105] = (melt_ptr_t)(/*_._VALDATA___V198*/ meltfptr[197]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#106", NULL != (/*_._VALDATA___V200*/ meltfptr[199])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[106] = (melt_ptr_t)(/*_._VALDATA___V200*/ meltfptr[199]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_145__DIAGV_BASIC_BLOCK @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V222*/ meltfptr[221])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_145__DIAGV_BASIC_BLOCK @#1", (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_dbgtrace_written_object (/*_._VALDATA___V222*/ meltfptr[221], "new static instance"); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#107", NULL != (/*_._VALDATA___V222*/ meltfptr[221])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[107] = (melt_ptr_t)(/*_._VALDATA___V222*/ meltfptr[221]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#108", NULL != (/*_._VALDATA___V222*/ meltfptr[221])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[108] = (melt_ptr_t)(/*_._VALDATA___V222*/ meltfptr[221]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#109", NULL != (/*_._VALDATA___V136*/ meltfptr[135])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[109] = (melt_ptr_t)(/*_._VALDATA___V136*/ meltfptr[135]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#110", NULL != (/*_._VALDATA___V204*/ meltfptr[203])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[110] = (melt_ptr_t)(/*_._VALDATA___V204*/ meltfptr[203]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#111", NULL != (/*_._VALDATA___V222*/ meltfptr[221])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[111] = (melt_ptr_t)(/*_._VALDATA___V222*/ meltfptr[221]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#112", NULL != (/*_._VALDATA___V142*/ meltfptr[141])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[112] = (melt_ptr_t)(/*_._VALDATA___V142*/ meltfptr[141]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#113", NULL != (/*_._VALDATA___V220*/ meltfptr[219])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[113] = (melt_ptr_t)(/*_._VALDATA___V220*/ meltfptr[219]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#114", NULL != (/*_._VALDATA___V158*/ meltfptr[157])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[114] = (melt_ptr_t)(/*_._VALDATA___V158*/ meltfptr[157]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#115", NULL != (/*_._VALDATA___V178*/ meltfptr[177])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[115] = (melt_ptr_t)(/*_._VALDATA___V178*/ meltfptr[177]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#116", NULL != (/*_._VALDATA___V180*/ meltfptr[179])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[116] = (melt_ptr_t)(/*_._VALDATA___V180*/ meltfptr[179]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#117", NULL != (/*_._VALDATA___V204*/ meltfptr[203])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[117] = (melt_ptr_t)(/*_._VALDATA___V204*/ meltfptr[203]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#118", NULL != (/*_._VALDATA___V182*/ meltfptr[181])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[118] = (melt_ptr_t)(/*_._VALDATA___V182*/ meltfptr[181]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_147__EDGE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V224*/ meltfptr[223])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_147__EDGE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V224*/ meltfptr[223])))); ((meltobject_ptr_t)(/*_._VALDATA___V224*/ meltfptr[223]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V225*/ meltfptr[224]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V224*/ meltfptr[223]); melt_dbgtrace_written_object (/*_._VALDATA___V224*/ meltfptr[223], "new static instance"); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#119", NULL != (/*_._VALDATA___V224*/ meltfptr[223])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[119] = (melt_ptr_t)(/*_._VALDATA___V224*/ meltfptr[223]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_149__ED @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V226*/ meltfptr[225])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_149__ED @#1", (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_dbgtrace_written_object (/*_._VALDATA___V226*/ meltfptr[225], "new static instance"); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#120", NULL != (/*_._VALDATA___V226*/ meltfptr[225])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[120] = (melt_ptr_t)(/*_._VALDATA___V226*/ meltfptr[225]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#121", NULL != (/*_._VALDATA___V198*/ meltfptr[197])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[121] = (melt_ptr_t)(/*_._VALDATA___V198*/ meltfptr[197]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#122", NULL != (/*_._VALDATA___V200*/ meltfptr[199])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[122] = (melt_ptr_t)(/*_._VALDATA___V200*/ meltfptr[199]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_151__DIAGV_EDGE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V228*/ meltfptr[227])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_151__DIAGV_EDGE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V228*/ meltfptr[227])))); ((meltobject_ptr_t)(/*_._VALDATA___V228*/ meltfptr[227]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V229*/ meltfptr[228]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V228*/ meltfptr[227]); melt_dbgtrace_written_object (/*_._VALDATA___V228*/ meltfptr[227], "new static instance"); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#123", NULL != (/*_._VALDATA___V228*/ meltfptr[227])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[123] = (melt_ptr_t)(/*_._VALDATA___V228*/ meltfptr[227]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#124", NULL != (/*_._VALDATA___V228*/ meltfptr[227])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[124] = (melt_ptr_t)(/*_._VALDATA___V228*/ meltfptr[227]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#125", NULL != (/*_._VALDATA___V136*/ meltfptr[135])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[125] = (melt_ptr_t)(/*_._VALDATA___V136*/ meltfptr[135]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#126", NULL != (/*_._VALDATA___V204*/ meltfptr[203])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[126] = (melt_ptr_t)(/*_._VALDATA___V204*/ meltfptr[203]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#127", NULL != (/*_._VALDATA___V228*/ meltfptr[227])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[127] = (melt_ptr_t)(/*_._VALDATA___V228*/ meltfptr[227]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#128", NULL != (/*_._VALDATA___V142*/ meltfptr[141])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[128] = (melt_ptr_t)(/*_._VALDATA___V142*/ meltfptr[141]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#129", NULL != (/*_._VALDATA___V226*/ meltfptr[225])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[129] = (melt_ptr_t)(/*_._VALDATA___V226*/ meltfptr[225]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#130", NULL != (/*_._VALDATA___V158*/ meltfptr[157])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[130] = (melt_ptr_t)(/*_._VALDATA___V158*/ meltfptr[157]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#131", NULL != (/*_._VALDATA___V178*/ meltfptr[177])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[131] = (melt_ptr_t)(/*_._VALDATA___V178*/ meltfptr[177]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#132", NULL != (/*_._VALDATA___V180*/ meltfptr[179])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[132] = (melt_ptr_t)(/*_._VALDATA___V180*/ meltfptr[179]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#133", NULL != (/*_._VALDATA___V204*/ meltfptr[203])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[133] = (melt_ptr_t)(/*_._VALDATA___V204*/ meltfptr[203]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#134", NULL != (/*_._VALDATA___V182*/ meltfptr[181])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[134] = (melt_ptr_t)(/*_._VALDATA___V182*/ meltfptr[181]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_153__VALUE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V230*/ meltfptr[229])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_153__VALUE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V230*/ meltfptr[229])))); ((meltobject_ptr_t)(/*_._VALDATA___V230*/ meltfptr[229]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V231*/ meltfptr[230]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V230*/ meltfptr[229]); melt_dbgtrace_written_object (/*_._VALDATA___V230*/ meltfptr[229], "new static instance"); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#135", NULL != (/*_._VALDATA___V230*/ meltfptr[229])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[135] = (melt_ptr_t)(/*_._VALDATA___V230*/ meltfptr[229]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_155__V @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V232*/ meltfptr[231])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_155__V @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V232*/ meltfptr[231])))); ((meltobject_ptr_t)(/*_._VALDATA___V232*/ meltfptr[231]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V233*/ meltfptr[232]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V232*/ meltfptr[231]); melt_dbgtrace_written_object (/*_._VALDATA___V232*/ meltfptr[231], "new static instance"); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#136", NULL != (/*_._VALDATA___V232*/ meltfptr[231])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[136] = (melt_ptr_t)(/*_._VALDATA___V232*/ meltfptr[231]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_157__COND @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V234*/ meltfptr[233])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_157__COND @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V234*/ meltfptr[233])))); ((meltobject_ptr_t)(/*_._VALDATA___V234*/ meltfptr[233]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V235*/ meltfptr[234]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V234*/ meltfptr[233]); melt_dbgtrace_written_object (/*_._VALDATA___V234*/ meltfptr[233], "new static instance"); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#137", NULL != (/*_._VALDATA___V234*/ meltfptr[233])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[137] = (melt_ptr_t)(/*_._VALDATA___V234*/ meltfptr[233]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_159__IS_INTEGERBOX @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V236*/ meltfptr[235])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_159__IS_INTEGERBOX @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V236*/ meltfptr[235])))); ((meltobject_ptr_t)(/*_._VALDATA___V236*/ meltfptr[235]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V237*/ meltfptr[236]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V236*/ meltfptr[235]); melt_dbgtrace_written_object (/*_._VALDATA___V236*/ meltfptr[235], "new static instance"); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#138", NULL != (/*_._VALDATA___V236*/ meltfptr[235])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[138] = (melt_ptr_t)(/*_._VALDATA___V236*/ meltfptr[235]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#139", NULL != (/*_._VALDATA___V232*/ meltfptr[231])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[139] = (melt_ptr_t)(/*_._VALDATA___V232*/ meltfptr[231]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#140", NULL != (/*_._VALDATA___V136*/ meltfptr[135])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[140] = (melt_ptr_t)(/*_._VALDATA___V136*/ meltfptr[135]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#141", NULL != (/*_._VALDATA___V188*/ meltfptr[187])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[141] = (melt_ptr_t)(/*_._VALDATA___V188*/ meltfptr[187]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#142", NULL != (/*_._VALDATA___V190*/ meltfptr[189])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[142] = (melt_ptr_t)(/*_._VALDATA___V190*/ meltfptr[189]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#143", NULL != (/*_._VALDATA___V192*/ meltfptr[191])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[143] = (melt_ptr_t)(/*_._VALDATA___V192*/ meltfptr[191]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_161__GET_INT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V238*/ meltfptr[237])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_161__GET_INT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V238*/ meltfptr[237])))); ((meltobject_ptr_t)(/*_._VALDATA___V238*/ meltfptr[237]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V239*/ meltfptr[238]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V238*/ meltfptr[237]); melt_dbgtrace_written_object (/*_._VALDATA___V238*/ meltfptr[237], "new static instance"); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#144", NULL != (/*_._VALDATA___V238*/ meltfptr[237])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[144] = (melt_ptr_t)(/*_._VALDATA___V238*/ meltfptr[237]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#145", NULL != (/*_._VALDATA___V232*/ meltfptr[231])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[145] = (melt_ptr_t)(/*_._VALDATA___V232*/ meltfptr[231]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#146", NULL != (/*_._VALDATA___V158*/ meltfptr[157])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[146] = (melt_ptr_t)(/*_._VALDATA___V158*/ meltfptr[157]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#147", NULL != (/*_._VALDATA___V178*/ meltfptr[177])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[147] = (melt_ptr_t)(/*_._VALDATA___V178*/ meltfptr[177]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#148", NULL != (/*_._VALDATA___V180*/ meltfptr[179])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[148] = (melt_ptr_t)(/*_._VALDATA___V180*/ meltfptr[179]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#149", NULL != (/*_._VALDATA___V188*/ meltfptr[187])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[149] = (melt_ptr_t)(/*_._VALDATA___V188*/ meltfptr[187]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#150", NULL != (/*_._VALDATA___V182*/ meltfptr[181])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[150] = (melt_ptr_t)(/*_._VALDATA___V182*/ meltfptr[181]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_163__IS_STRING @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V240*/ meltfptr[239])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_163__IS_STRING @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V240*/ meltfptr[239])))); ((meltobject_ptr_t)(/*_._VALDATA___V240*/ meltfptr[239]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V241*/ meltfptr[240]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V240*/ meltfptr[239]); melt_dbgtrace_written_object (/*_._VALDATA___V240*/ meltfptr[239], "new static instance"); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#151", NULL != (/*_._VALDATA___V240*/ meltfptr[239])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[151] = (melt_ptr_t)(/*_._VALDATA___V240*/ meltfptr[239]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#152", NULL != (/*_._VALDATA___V232*/ meltfptr[231])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[152] = (melt_ptr_t)(/*_._VALDATA___V232*/ meltfptr[231]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#153", NULL != (/*_._VALDATA___V158*/ meltfptr[157])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[153] = (melt_ptr_t)(/*_._VALDATA___V158*/ meltfptr[157]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#154", NULL != (/*_._VALDATA___V178*/ meltfptr[177])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[154] = (melt_ptr_t)(/*_._VALDATA___V178*/ meltfptr[177]); #undef meltfram__ } /*end of meltmod__WARMELTmiMACRO__initialmeltchunk_2*/ void meltmod__WARMELTmiMACRO__initialmeltchunk_3 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#155", NULL != (/*_._VALDATA___V180*/ meltfptr[179])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[155] = (melt_ptr_t)(/*_._VALDATA___V180*/ meltfptr[179]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#156", NULL != (/*_._VALDATA___V232*/ meltfptr[231])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[156] = (melt_ptr_t)(/*_._VALDATA___V232*/ meltfptr[231]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#157", NULL != (/*_._VALDATA___V182*/ meltfptr[181])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[157] = (melt_ptr_t)(/*_._VALDATA___V182*/ meltfptr[181]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_165__IS_A @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V242*/ meltfptr[241])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_165__IS_A @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V242*/ meltfptr[241])))); ((meltobject_ptr_t)(/*_._VALDATA___V242*/ meltfptr[241]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V243*/ meltfptr[242]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V242*/ meltfptr[241]); melt_dbgtrace_written_object (/*_._VALDATA___V242*/ meltfptr[241], "new static instance"); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#158", NULL != (/*_._VALDATA___V242*/ meltfptr[241])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[158] = (melt_ptr_t)(/*_._VALDATA___V242*/ meltfptr[241]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#159", NULL != (/*_._VALDATA___V232*/ meltfptr[231])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[159] = (melt_ptr_t)(/*_._VALDATA___V232*/ meltfptr[231]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#160", NULL != (/*_._VALDATA___V127*/ meltfptr[126])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[160] = (melt_ptr_t)(/*_._VALDATA___V127*/ meltfptr[126]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#161", NULL != (/*_._VALDATA___V232*/ meltfptr[231])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[161] = (melt_ptr_t)(/*_._VALDATA___V232*/ meltfptr[231]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#162", NULL != (/*_._VALDATA___V142*/ meltfptr[141])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[162] = (melt_ptr_t)(/*_._VALDATA___V142*/ meltfptr[141]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#163", NULL != (/*_._VALDATA___V182*/ meltfptr[181])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[163] = (melt_ptr_t)(/*_._VALDATA___V182*/ meltfptr[181]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_167__AND @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V244*/ meltfptr[243])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_167__AND @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V244*/ meltfptr[243])))); ((meltobject_ptr_t)(/*_._VALDATA___V244*/ meltfptr[243]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V245*/ meltfptr[244]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V244*/ meltfptr[243]); melt_dbgtrace_written_object (/*_._VALDATA___V244*/ meltfptr[243], "new static instance"); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#164", NULL != (/*_._VALDATA___V244*/ meltfptr[243])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[164] = (melt_ptr_t)(/*_._VALDATA___V244*/ meltfptr[243]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#165", NULL != (/*_._VALDATA___V242*/ meltfptr[241])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[165] = (melt_ptr_t)(/*_._VALDATA___V242*/ meltfptr[241]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#166", NULL != (/*_._VALDATA___V232*/ meltfptr[231])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[166] = (melt_ptr_t)(/*_._VALDATA___V232*/ meltfptr[231]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_169__CLASS_KEYWORD @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V246*/ meltfptr[245])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_169__CLASS_KEYWORD @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V246*/ meltfptr[245])))); ((meltobject_ptr_t)(/*_._VALDATA___V246*/ meltfptr[245]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V247*/ meltfptr[246]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V246*/ meltfptr[245]); melt_dbgtrace_written_object (/*_._VALDATA___V246*/ meltfptr[245], "new static instance"); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#167", NULL != (/*_._VALDATA___V246*/ meltfptr[245])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[167] = (melt_ptr_t)(/*_._VALDATA___V246*/ meltfptr[245]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#168", NULL != (/*_._VALDATA___V242*/ meltfptr[241])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[168] = (melt_ptr_t)(/*_._VALDATA___V242*/ meltfptr[241]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_171__GET_FIELD @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V248*/ meltfptr[247])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_171__GET_FIELD @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V248*/ meltfptr[247])))); ((meltobject_ptr_t)(/*_._VALDATA___V248*/ meltfptr[247]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V249*/ meltfptr[248]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V248*/ meltfptr[247]); melt_dbgtrace_written_object (/*_._VALDATA___V248*/ meltfptr[247], "new static instance"); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#169", NULL != (/*_._VALDATA___V248*/ meltfptr[247])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[169] = (melt_ptr_t)(/*_._VALDATA___V248*/ meltfptr[247]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_173__SYMB_DATA @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V250*/ meltfptr[249])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_173__SYMB_DATA @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V250*/ meltfptr[249])))); ((meltobject_ptr_t)(/*_._VALDATA___V250*/ meltfptr[249]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V251*/ meltfptr[250]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V250*/ meltfptr[249]); melt_dbgtrace_written_object (/*_._VALDATA___V250*/ meltfptr[249], "new static instance"); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#170", NULL != (/*_._VALDATA___V250*/ meltfptr[249])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[170] = (melt_ptr_t)(/*_._VALDATA___V250*/ meltfptr[249]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#171", NULL != (/*_._VALDATA___V232*/ meltfptr[231])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[171] = (melt_ptr_t)(/*_._VALDATA___V232*/ meltfptr[231]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#172", NULL != (/*_._VALDATA___V127*/ meltfptr[126])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[172] = (melt_ptr_t)(/*_._VALDATA___V127*/ meltfptr[126]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#173", NULL != (/*_._VALDATA___V248*/ meltfptr[247])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[173] = (melt_ptr_t)(/*_._VALDATA___V248*/ meltfptr[247]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#174", NULL != (/*_._VALDATA___V232*/ meltfptr[231])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[174] = (melt_ptr_t)(/*_._VALDATA___V232*/ meltfptr[231]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#175", NULL != (/*_._VALDATA___V142*/ meltfptr[141])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[175] = (melt_ptr_t)(/*_._VALDATA___V142*/ meltfptr[141]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#176", NULL != (/*_._VALDATA___V182*/ meltfptr[181])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[176] = (melt_ptr_t)(/*_._VALDATA___V182*/ meltfptr[181]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#177", NULL != (/*_._VALDATA___V242*/ meltfptr[241])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[177] = (melt_ptr_t)(/*_._VALDATA___V242*/ meltfptr[241]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#178", NULL != (/*_._VALDATA___V232*/ meltfptr[231])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[178] = (melt_ptr_t)(/*_._VALDATA___V232*/ meltfptr[231]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_175__CLASS_NAMED @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V252*/ meltfptr[251])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_175__CLASS_NAMED @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V252*/ meltfptr[251])))); ((meltobject_ptr_t)(/*_._VALDATA___V252*/ meltfptr[251]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V253*/ meltfptr[252]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V252*/ meltfptr[251]); melt_dbgtrace_written_object (/*_._VALDATA___V252*/ meltfptr[251], "new static instance"); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#179", NULL != (/*_._VALDATA___V252*/ meltfptr[251])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[179] = (melt_ptr_t)(/*_._VALDATA___V252*/ meltfptr[251]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#180", NULL != (/*_._VALDATA___V136*/ meltfptr[135])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[180] = (melt_ptr_t)(/*_._VALDATA___V136*/ meltfptr[135]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_177__NAM @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V254*/ meltfptr[253])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_177__NAM @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V254*/ meltfptr[253])))); ((meltobject_ptr_t)(/*_._VALDATA___V254*/ meltfptr[253]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V255*/ meltfptr[254]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V254*/ meltfptr[253]); melt_dbgtrace_written_object (/*_._VALDATA___V254*/ meltfptr[253], "new static instance"); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#181", NULL != (/*_._VALDATA___V254*/ meltfptr[253])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[181] = (melt_ptr_t)(/*_._VALDATA___V254*/ meltfptr[253]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_179__UNSAFE_GET_FIELD @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V256*/ meltfptr[255])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_179__UNSAFE_GET_FIELD @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V256*/ meltfptr[255])))); ((meltobject_ptr_t)(/*_._VALDATA___V256*/ meltfptr[255]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V257*/ meltfptr[256]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V256*/ meltfptr[255]); melt_dbgtrace_written_object (/*_._VALDATA___V256*/ meltfptr[255], "new static instance"); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#182", NULL != (/*_._VALDATA___V256*/ meltfptr[255])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[182] = (melt_ptr_t)(/*_._VALDATA___V256*/ meltfptr[255]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_181__NAMED_NAME @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V258*/ meltfptr[257])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_181__NAMED_NAME @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V258*/ meltfptr[257])))); ((meltobject_ptr_t)(/*_._VALDATA___V258*/ meltfptr[257]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V259*/ meltfptr[258]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V258*/ meltfptr[257]); melt_dbgtrace_written_object (/*_._VALDATA___V258*/ meltfptr[257], "new static instance"); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#183", NULL != (/*_._VALDATA___V258*/ meltfptr[257])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[183] = (melt_ptr_t)(/*_._VALDATA___V258*/ meltfptr[257]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#184", NULL != (/*_._VALDATA___V232*/ meltfptr[231])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[184] = (melt_ptr_t)(/*_._VALDATA___V232*/ meltfptr[231]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#185", NULL != (/*_._VALDATA___V198*/ meltfptr[197])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[185] = (melt_ptr_t)(/*_._VALDATA___V198*/ meltfptr[197]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#186", NULL != (/*_._VALDATA___V240*/ meltfptr[239])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[186] = (melt_ptr_t)(/*_._VALDATA___V240*/ meltfptr[239]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#187", NULL != (/*_._VALDATA___V254*/ meltfptr[253])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[187] = (melt_ptr_t)(/*_._VALDATA___V254*/ meltfptr[253]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#188", NULL != (/*_._VALDATA___V254*/ meltfptr[253])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[188] = (melt_ptr_t)(/*_._VALDATA___V254*/ meltfptr[253]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#189", NULL != (/*_._VALDATA___V158*/ meltfptr[157])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[189] = (melt_ptr_t)(/*_._VALDATA___V158*/ meltfptr[157]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#190", NULL != (/*_._VALDATA___V178*/ meltfptr[177])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[190] = (melt_ptr_t)(/*_._VALDATA___V178*/ meltfptr[177]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#191", NULL != (/*_._VALDATA___V180*/ meltfptr[179])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[191] = (melt_ptr_t)(/*_._VALDATA___V180*/ meltfptr[179]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#192", NULL != (/*_._VALDATA___V254*/ meltfptr[253])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[192] = (melt_ptr_t)(/*_._VALDATA___V254*/ meltfptr[253]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#193", NULL != (/*_._VALDATA___V182*/ meltfptr[181])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[193] = (melt_ptr_t)(/*_._VALDATA___V182*/ meltfptr[181]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_183__ELSE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V260*/ meltfptr[259])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_183__ELSE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V260*/ meltfptr[259])))); ((meltobject_ptr_t)(/*_._VALDATA___V260*/ meltfptr[259]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V261*/ meltfptr[260]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V260*/ meltfptr[259]); melt_dbgtrace_written_object (/*_._VALDATA___V260*/ meltfptr[259], "new static instance"); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#194", NULL != (/*_._VALDATA___V260*/ meltfptr[259])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[194] = (melt_ptr_t)(/*_._VALDATA___V260*/ meltfptr[259]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#195", NULL != (/*_._VALDATA___V136*/ meltfptr[135])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[195] = (melt_ptr_t)(/*_._VALDATA___V136*/ meltfptr[135]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_185__VCTY @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V262*/ meltfptr[261])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_185__VCTY @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V262*/ meltfptr[261])))); ((meltobject_ptr_t)(/*_._VALDATA___V262*/ meltfptr[261]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V263*/ meltfptr[262]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V262*/ meltfptr[261]); melt_dbgtrace_written_object (/*_._VALDATA___V262*/ meltfptr[261], "new static instance"); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#196", NULL != (/*_._VALDATA___V262*/ meltfptr[261])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[196] = (melt_ptr_t)(/*_._VALDATA___V262*/ meltfptr[261]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_187__VARIADIC_CTYPE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V264*/ meltfptr[263])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_187__VARIADIC_CTYPE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V264*/ meltfptr[263])))); ((meltobject_ptr_t)(/*_._VALDATA___V264*/ meltfptr[263]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V265*/ meltfptr[264]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V264*/ meltfptr[263]); melt_dbgtrace_written_object (/*_._VALDATA___V264*/ meltfptr[263], "new static instance"); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#197", NULL != (/*_._VALDATA___V264*/ meltfptr[263])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[197] = (melt_ptr_t)(/*_._VALDATA___V264*/ meltfptr[263]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_189__ERRORMSG_STRV @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V266*/ meltfptr[265])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_189__ERRORMSG_STRV @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V266*/ meltfptr[265])))); ((meltobject_ptr_t)(/*_._VALDATA___V266*/ meltfptr[265]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V267*/ meltfptr[266]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V266*/ meltfptr[265]); melt_dbgtrace_written_object (/*_._VALDATA___V266*/ meltfptr[265], "new static instance"); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#198", NULL != (/*_._VALDATA___V266*/ meltfptr[265])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[198] = (melt_ptr_t)(/*_._VALDATA___V266*/ meltfptr[265]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#199", NULL != (/*_._VALDATA___V248*/ meltfptr[247])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[199] = (melt_ptr_t)(/*_._VALDATA___V248*/ meltfptr[247]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#200", NULL != (/*_._VALDATA___V262*/ meltfptr[261])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[200] = (melt_ptr_t)(/*_._VALDATA___V262*/ meltfptr[261]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#201", NULL != (/*_._VALDATA___V198*/ meltfptr[197])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[201] = (melt_ptr_t)(/*_._VALDATA___V198*/ meltfptr[197]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#202", NULL != (/*_._VALDATA___V262*/ meltfptr[261])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[202] = (melt_ptr_t)(/*_._VALDATA___V262*/ meltfptr[261]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#203", NULL != (/*_._VALDATA___V182*/ meltfptr[181])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[203] = (melt_ptr_t)(/*_._VALDATA___V182*/ meltfptr[181]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__DIAGNOSTIC_ARGS_MACRO#204", NULL != (/*_._VALDATA___V142*/ meltfptr[141])); ((meltroutine_ptr_t)/*_._VALROUT___V135*/ meltfptr[134])->tabval[204] = (melt_ptr_t)(/*_._VALDATA___V142*/ meltfptr[141]); MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V135*/ meltfptr[134]); /*putclosurout#10*/ melt_assertmsg("putclosrout#10 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V268*/ meltfptr[267])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#10 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V135*/ meltfptr[134])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V268*/ meltfptr[267])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V135*/ meltfptr[134]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V268*/ meltfptr[267]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_43__MELT_DEBUG_FUN @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V269*/ meltfptr[268])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_43__MELT_DEBUG_FUN @#1", (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_dbgtrace_written_object (/*_._VALDATA___V269*/ meltfptr[268], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_45__CLASS_SEXPR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V271*/ meltfptr[270])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_45__CLASS_SEXPR @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V271*/ meltfptr[270])))); ((meltobject_ptr_t)(/*_._VALDATA___V271*/ meltfptr[270]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V272*/ meltfptr[271]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V271*/ meltfptr[270]); melt_dbgtrace_written_object (/*_._VALDATA___V271*/ meltfptr[270], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_47__MELT_ASSERT_FAILURE_FUN @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V273*/ meltfptr[272])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_47__MELT_ASSERT_FAILURE_FUN @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V273*/ meltfptr[272])))); ((meltobject_ptr_t)(/*_._VALDATA___V273*/ meltfptr[272]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V274*/ meltfptr[273]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V273*/ meltfptr[272]); melt_dbgtrace_written_object (/*_._VALDATA___V273*/ meltfptr[272], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_49__LIST_TO_MULTIPLE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V275*/ meltfptr[274])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_49__LIST_TO_MULTIPLE @#1", (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_dbgtrace_written_object (/*_._VALDATA___V275*/ meltfptr[274], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_51__DISCR_MULTIPLE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V277*/ meltfptr[276])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_51__DISCR_MULTIPLE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V277*/ meltfptr[276])))); ((meltobject_ptr_t)(/*_._VALDATA___V277*/ meltfptr[276]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V278*/ meltfptr[277]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V277*/ meltfptr[276]); melt_dbgtrace_written_object (/*_._VALDATA___V277*/ meltfptr[276], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_57__CLASS_SYMBOL @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V279*/ meltfptr[278])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_57__CLASS_SYMBOL @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V279*/ meltfptr[278])))); ((meltobject_ptr_t)(/*_._VALDATA___V279*/ meltfptr[278]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V280*/ meltfptr[279]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V279*/ meltfptr[278]); melt_dbgtrace_written_object (/*_._VALDATA___V279*/ meltfptr[278], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_59__MELT_MAKE_SEXPR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V281*/ meltfptr[280])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_59__MELT_MAKE_SEXPR @#1", (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_dbgtrace_written_object (/*_._VALDATA___V281*/ meltfptr[280], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_61__HOOK_MELT_MAKE_LOCATION @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V283*/ meltfptr[282])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_61__HOOK_MELT_MAKE_LOCATION @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V283*/ meltfptr[282])))); ((meltobject_ptr_t)(/*_._VALDATA___V283*/ meltfptr[282]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V284*/ meltfptr[283]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V283*/ meltfptr[282]); melt_dbgtrace_written_object (/*_._VALDATA___V283*/ meltfptr[282], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_191__DIAGNOSTIC_ARGS_MACRO @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V285*/ meltfptr[284])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_191__DIAGNOSTIC_ARGS_MACRO @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V285*/ meltfptr[284])))); ((meltobject_ptr_t)(/*_._VALDATA___V285*/ meltfptr[284]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V286*/ meltfptr[285]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V285*/ meltfptr[284]); melt_dbgtrace_written_object (/*_._VALDATA___V285*/ meltfptr[284], "new static instance"); MELT_LOCATION("warmelt-macro.melt:282:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V287*/ meltfptr[286])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V111*/ meltfptr[110]); ((meltroutine_ptr_t)/*_._VALROUT___V287*/ meltfptr[286])->tabval[0] = (melt_ptr_t)(/*_._VALDATA___V111*/ meltfptr[110]); MELT_LOCATION("warmelt-macro.melt:282:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V287*/ meltfptr[286])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_193__DIAGNOSTIC_EXPAND_MESSAGE#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V287*/ meltfptr[286])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:282:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V287*/ meltfptr[286])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_193__DIAGNOSTIC_EXPAND_MESSAGE#2", NULL != (/*_.DISCR_STRBUF__V19*/ meltfptr[18])); ((meltroutine_ptr_t)/*_._VALROUT___V287*/ meltfptr[286])->tabval[2] = (melt_ptr_t)(/*_.DISCR_STRBUF__V19*/ meltfptr[18]); MELT_LOCATION("warmelt-macro.melt:282:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V287*/ meltfptr[286])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_193__DIAGNOSTIC_EXPAND_MESSAGE#3", NULL != (/*_.ADD2OUT__V20*/ meltfptr[19])); ((meltroutine_ptr_t)/*_._VALROUT___V287*/ meltfptr[286])->tabval[3] = (melt_ptr_t)(/*_.ADD2OUT__V20*/ meltfptr[19]); MELT_LOCATION("warmelt-macro.melt:282:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V287*/ meltfptr[286])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_193__DIAGNOSTIC_EXPAND_MESSAGE#4", NULL != (/*_.DISCR_STRING__V15*/ meltfptr[14])); ((meltroutine_ptr_t)/*_._VALROUT___V287*/ meltfptr[286])->tabval[4] = (melt_ptr_t)(/*_.DISCR_STRING__V15*/ meltfptr[14]); MELT_LOCATION("warmelt-macro.melt:282:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V287*/ meltfptr[286]); /*putclosurout#11*/ melt_assertmsg("putclosrout#11 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V288*/ meltfptr[287])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#11 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V287*/ meltfptr[286])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V288*/ meltfptr[287])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V287*/ meltfptr[286]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V288*/ meltfptr[287]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_195__DISCR_STRBUF @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V289*/ meltfptr[288])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_195__DISCR_STRBUF @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V289*/ meltfptr[288])))); ((meltobject_ptr_t)(/*_._VALDATA___V289*/ meltfptr[288]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V290*/ meltfptr[289]); #undef meltfram__ } /*end of meltmod__WARMELTmiMACRO__initialmeltchunk_3*/ void meltmod__WARMELTmiMACRO__initialmeltchunk_4 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V289*/ meltfptr[288]); melt_dbgtrace_written_object (/*_._VALDATA___V289*/ meltfptr[288], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_197__ADD2OUT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V291*/ meltfptr[290])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_197__ADD2OUT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V291*/ meltfptr[290])))); ((meltobject_ptr_t)(/*_._VALDATA___V291*/ meltfptr[290]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V292*/ meltfptr[291]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V291*/ meltfptr[290]); melt_dbgtrace_written_object (/*_._VALDATA___V291*/ meltfptr[290], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_199__DIAGNOSTIC_EXPAND_MESSAGE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V293*/ meltfptr[292])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_199__DIAGNOSTIC_EXPAND_MESSAGE @#1", (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_dbgtrace_written_object (/*_._VALDATA___V293*/ meltfptr[292], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_201__REGISTER_DIAG_BASIC_BLOCK @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V295*/ meltfptr[294])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_201__REGISTER_DIAG_BASIC_BLOCK @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V295*/ meltfptr[294])))); ((meltobject_ptr_t)(/*_._VALDATA___V295*/ meltfptr[294]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V296*/ meltfptr[295]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V295*/ meltfptr[294]); melt_dbgtrace_written_object (/*_._VALDATA___V295*/ meltfptr[294], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_203__REGISTER_DIAG_EDGE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V297*/ meltfptr[296])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_203__REGISTER_DIAG_EDGE @#1", (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_dbgtrace_written_object (/*_._VALDATA___V297*/ meltfptr[296], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_205__REGISTER_DIAG_GIMPLE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V299*/ meltfptr[298])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_205__REGISTER_DIAG_GIMPLE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V299*/ meltfptr[298])))); ((meltobject_ptr_t)(/*_._VALDATA___V299*/ meltfptr[298]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V300*/ meltfptr[299]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V299*/ meltfptr[298]); melt_dbgtrace_written_object (/*_._VALDATA___V299*/ meltfptr[298], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_207__REGISTER_DIAG_GIMPLE_SEQ @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V301*/ meltfptr[300])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_207__REGISTER_DIAG_GIMPLE_SEQ @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V301*/ meltfptr[300])))); ((meltobject_ptr_t)(/*_._VALDATA___V301*/ meltfptr[300]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V302*/ meltfptr[301]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V301*/ meltfptr[300]); melt_dbgtrace_written_object (/*_._VALDATA___V301*/ meltfptr[300], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_209__REGISTER_DIAG_TREE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V303*/ meltfptr[302])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_209__REGISTER_DIAG_TREE @#1", (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_dbgtrace_written_object (/*_._VALDATA___V303*/ meltfptr[302], "new static instance"); MELT_LOCATION("warmelt-macro.melt:354:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) 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_211__ERROR_AT#0", NULL != (/*_.DISCR_MULTIPLE__V13*/ meltfptr[12])); ((meltroutine_ptr_t)/*_._VALROUT___V305*/ meltfptr[304])->tabval[0] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V13*/ meltfptr[12]); MELT_LOCATION("warmelt-macro.melt:354:/ 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___V111*/ meltfptr[110]); ((meltroutine_ptr_t)/*_._VALROUT___V305*/ meltfptr[304])->tabval[1] = (melt_ptr_t)(/*_._VALDATA___V111*/ meltfptr[110]); MELT_LOCATION("warmelt-macro.melt:354:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) 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_211__ERROR_AT#2", NULL != (/*_.HOOK_MELT_MAKE_LOCATION__V18*/ meltfptr[17])); ((meltroutine_ptr_t)/*_._VALROUT___V305*/ meltfptr[304])->tabval[2] = (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V18*/ meltfptr[17]); MELT_LOCATION("warmelt-macro.melt:354:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) 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_211__ERROR_AT#3", NULL != (/*_.DISCR_MAP_OBJECTS__V21*/ meltfptr[20])); ((meltroutine_ptr_t)/*_._VALROUT___V305*/ meltfptr[304])->tabval[3] = (melt_ptr_t)(/*_.DISCR_MAP_OBJECTS__V21*/ meltfptr[20]); MELT_LOCATION("warmelt-macro.melt:354:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) 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_211__ERROR_AT#4", NULL != (/*_.STRING4OUT__V14*/ meltfptr[13])); ((meltroutine_ptr_t)/*_._VALROUT___V305*/ meltfptr[304])->tabval[4] = (melt_ptr_t)(/*_.STRING4OUT__V14*/ meltfptr[13]); MELT_LOCATION("warmelt-macro.melt:354:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) 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_211__ERROR_AT#5", NULL != (/*_.DISCR_STRING__V15*/ meltfptr[14])); ((meltroutine_ptr_t)/*_._VALROUT___V305*/ meltfptr[304])->tabval[5] = (melt_ptr_t)(/*_.DISCR_STRING__V15*/ meltfptr[14]); MELT_LOCATION("warmelt-macro.melt:354:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) 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_211__ERROR_AT#6", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V305*/ meltfptr[304])->tabval[6] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:354:/ 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___V131*/ meltfptr[130]); ((meltroutine_ptr_t)/*_._VALROUT___V305*/ meltfptr[304])->tabval[7] = (melt_ptr_t)(/*_._VALDATA___V131*/ meltfptr[130]); MELT_LOCATION("warmelt-macro.melt:354:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) 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_211__ERROR_AT#8", NULL != (/*_.CLASS_KEYWORD__V22*/ meltfptr[21])); ((meltroutine_ptr_t)/*_._VALROUT___V305*/ meltfptr[304])->tabval[8] = (melt_ptr_t)(/*_.CLASS_KEYWORD__V22*/ meltfptr[21]); MELT_LOCATION("warmelt-macro.melt:354:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) 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_211__ERROR_AT#9", NULL != (/*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V305*/ meltfptr[304])->tabval[9] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-macro.melt:354:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) 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_211__ERROR_AT#10", NULL != (/*_.CLASS_NAMED__V23*/ meltfptr[22])); ((meltroutine_ptr_t)/*_._VALROUT___V305*/ meltfptr[304])->tabval[10] = (melt_ptr_t)(/*_.CLASS_NAMED__V23*/ meltfptr[22]); MELT_LOCATION("warmelt-macro.melt:354:/ 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___V288*/ meltfptr[287]); ((meltroutine_ptr_t)/*_._VALROUT___V305*/ meltfptr[304])->tabval[11] = (melt_ptr_t)(/*_._VALCLO___V288*/ meltfptr[287]); MELT_LOCATION("warmelt-macro.melt:354:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V305*/ meltfptr[304]); /*putclosurout#12*/ melt_assertmsg("putclosrout#12 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V306*/ meltfptr[305])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#12 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-macro.melt:376:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) 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_213__FATAL_ERROR_AT#0", NULL != (/*_.DISCR_MULTIPLE__V13*/ meltfptr[12])); ((meltroutine_ptr_t)/*_._VALROUT___V307*/ meltfptr[306])->tabval[0] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V13*/ meltfptr[12]); MELT_LOCATION("warmelt-macro.melt:376:/ 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___V111*/ meltfptr[110]); ((meltroutine_ptr_t)/*_._VALROUT___V307*/ meltfptr[306])->tabval[1] = (melt_ptr_t)(/*_._VALDATA___V111*/ meltfptr[110]); MELT_LOCATION("warmelt-macro.melt:376:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) 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_213__FATAL_ERROR_AT#2", NULL != (/*_.HOOK_MELT_MAKE_LOCATION__V18*/ meltfptr[17])); ((meltroutine_ptr_t)/*_._VALROUT___V307*/ meltfptr[306])->tabval[2] = (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V18*/ meltfptr[17]); MELT_LOCATION("warmelt-macro.melt:376:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) 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_213__FATAL_ERROR_AT#3", NULL != (/*_.DISCR_MAP_OBJECTS__V21*/ meltfptr[20])); ((meltroutine_ptr_t)/*_._VALROUT___V307*/ meltfptr[306])->tabval[3] = (melt_ptr_t)(/*_.DISCR_MAP_OBJECTS__V21*/ meltfptr[20]); MELT_LOCATION("warmelt-macro.melt:376:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) 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_213__FATAL_ERROR_AT#4", NULL != (/*_.STRING4OUT__V14*/ meltfptr[13])); ((meltroutine_ptr_t)/*_._VALROUT___V307*/ meltfptr[306])->tabval[4] = (melt_ptr_t)(/*_.STRING4OUT__V14*/ meltfptr[13]); MELT_LOCATION("warmelt-macro.melt:376:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) 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_213__FATAL_ERROR_AT#5", NULL != (/*_.DISCR_STRING__V15*/ meltfptr[14])); ((meltroutine_ptr_t)/*_._VALROUT___V307*/ meltfptr[306])->tabval[5] = (melt_ptr_t)(/*_.DISCR_STRING__V15*/ meltfptr[14]); MELT_LOCATION("warmelt-macro.melt:376:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) 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_213__FATAL_ERROR_AT#6", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V307*/ meltfptr[306])->tabval[6] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:376:/ 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___V131*/ meltfptr[130]); ((meltroutine_ptr_t)/*_._VALROUT___V307*/ meltfptr[306])->tabval[7] = (melt_ptr_t)(/*_._VALDATA___V131*/ meltfptr[130]); MELT_LOCATION("warmelt-macro.melt:376:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) 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_213__FATAL_ERROR_AT#8", NULL != (/*_.CLASS_KEYWORD__V22*/ meltfptr[21])); ((meltroutine_ptr_t)/*_._VALROUT___V307*/ meltfptr[306])->tabval[8] = (melt_ptr_t)(/*_.CLASS_KEYWORD__V22*/ meltfptr[21]); MELT_LOCATION("warmelt-macro.melt:376:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) 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_213__FATAL_ERROR_AT#9", NULL != (/*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V307*/ meltfptr[306])->tabval[9] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-macro.melt:376:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) 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_213__FATAL_ERROR_AT#10", NULL != (/*_.CLASS_NAMED__V23*/ meltfptr[22])); ((meltroutine_ptr_t)/*_._VALROUT___V307*/ meltfptr[306])->tabval[10] = (melt_ptr_t)(/*_.CLASS_NAMED__V23*/ meltfptr[22]); MELT_LOCATION("warmelt-macro.melt:376:/ 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___V288*/ meltfptr[287]); ((meltroutine_ptr_t)/*_._VALROUT___V307*/ meltfptr[306])->tabval[11] = (melt_ptr_t)(/*_._VALCLO___V288*/ meltfptr[287]); MELT_LOCATION("warmelt-macro.melt:376:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V307*/ meltfptr[306]); /*putclosurout#13*/ melt_assertmsg("putclosrout#13 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V308*/ meltfptr[307])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#13 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]); MELT_LOCATION("warmelt-macro.melt:401:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V309*/ meltfptr[308])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_215__WARNING_AT#0", NULL != (/*_.DISCR_MULTIPLE__V13*/ meltfptr[12])); ((meltroutine_ptr_t)/*_._VALROUT___V309*/ meltfptr[308])->tabval[0] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V13*/ meltfptr[12]); MELT_LOCATION("warmelt-macro.melt:401:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V309*/ meltfptr[308])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V111*/ meltfptr[110]); ((meltroutine_ptr_t)/*_._VALROUT___V309*/ meltfptr[308])->tabval[1] = (melt_ptr_t)(/*_._VALDATA___V111*/ meltfptr[110]); MELT_LOCATION("warmelt-macro.melt:401:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V309*/ meltfptr[308])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_215__WARNING_AT#2", NULL != (/*_.HOOK_MELT_MAKE_LOCATION__V18*/ meltfptr[17])); ((meltroutine_ptr_t)/*_._VALROUT___V309*/ meltfptr[308])->tabval[2] = (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V18*/ meltfptr[17]); MELT_LOCATION("warmelt-macro.melt:401:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V309*/ meltfptr[308])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_215__WARNING_AT#3", NULL != (/*_.DISCR_MAP_OBJECTS__V21*/ meltfptr[20])); ((meltroutine_ptr_t)/*_._VALROUT___V309*/ meltfptr[308])->tabval[3] = (melt_ptr_t)(/*_.DISCR_MAP_OBJECTS__V21*/ meltfptr[20]); MELT_LOCATION("warmelt-macro.melt:401:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V309*/ meltfptr[308])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_215__WARNING_AT#4", NULL != (/*_.STRING4OUT__V14*/ meltfptr[13])); ((meltroutine_ptr_t)/*_._VALROUT___V309*/ meltfptr[308])->tabval[4] = (melt_ptr_t)(/*_.STRING4OUT__V14*/ meltfptr[13]); MELT_LOCATION("warmelt-macro.melt:401:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V309*/ meltfptr[308])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_215__WARNING_AT#5", NULL != (/*_.DISCR_STRING__V15*/ meltfptr[14])); ((meltroutine_ptr_t)/*_._VALROUT___V309*/ meltfptr[308])->tabval[5] = (melt_ptr_t)(/*_.DISCR_STRING__V15*/ meltfptr[14]); MELT_LOCATION("warmelt-macro.melt:401:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V309*/ meltfptr[308])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_215__WARNING_AT#6", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V309*/ meltfptr[308])->tabval[6] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:401:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V309*/ meltfptr[308])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V131*/ meltfptr[130]); ((meltroutine_ptr_t)/*_._VALROUT___V309*/ meltfptr[308])->tabval[7] = (melt_ptr_t)(/*_._VALDATA___V131*/ meltfptr[130]); MELT_LOCATION("warmelt-macro.melt:401:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V309*/ meltfptr[308])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_215__WARNING_AT#8", NULL != (/*_.CLASS_KEYWORD__V22*/ meltfptr[21])); ((meltroutine_ptr_t)/*_._VALROUT___V309*/ meltfptr[308])->tabval[8] = (melt_ptr_t)(/*_.CLASS_KEYWORD__V22*/ meltfptr[21]); MELT_LOCATION("warmelt-macro.melt:401:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V309*/ meltfptr[308])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_215__WARNING_AT#9", NULL != (/*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V309*/ meltfptr[308])->tabval[9] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-macro.melt:401:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V309*/ meltfptr[308])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_215__WARNING_AT#10", NULL != (/*_.CLASS_NAMED__V23*/ meltfptr[22])); ((meltroutine_ptr_t)/*_._VALROUT___V309*/ meltfptr[308])->tabval[10] = (melt_ptr_t)(/*_.CLASS_NAMED__V23*/ meltfptr[22]); MELT_LOCATION("warmelt-macro.melt:401:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V309*/ meltfptr[308])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V288*/ meltfptr[287]); ((meltroutine_ptr_t)/*_._VALROUT___V309*/ meltfptr[308])->tabval[11] = (melt_ptr_t)(/*_._VALCLO___V288*/ meltfptr[287]); MELT_LOCATION("warmelt-macro.melt:401:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V309*/ meltfptr[308]); /*putclosurout#14*/ melt_assertmsg("putclosrout#14 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V310*/ meltfptr[309])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#14 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V309*/ meltfptr[308])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V310*/ meltfptr[309])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V309*/ meltfptr[308]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V310*/ meltfptr[309]); MELT_LOCATION("warmelt-macro.melt:423:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V311*/ meltfptr[310])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_217__INFORM_AT#0", NULL != (/*_.DISCR_MULTIPLE__V13*/ meltfptr[12])); ((meltroutine_ptr_t)/*_._VALROUT___V311*/ meltfptr[310])->tabval[0] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V13*/ meltfptr[12]); MELT_LOCATION("warmelt-macro.melt:423:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V311*/ meltfptr[310])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V111*/ meltfptr[110]); ((meltroutine_ptr_t)/*_._VALROUT___V311*/ meltfptr[310])->tabval[1] = (melt_ptr_t)(/*_._VALDATA___V111*/ meltfptr[110]); MELT_LOCATION("warmelt-macro.melt:423:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V311*/ meltfptr[310])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_217__INFORM_AT#2", NULL != (/*_.HOOK_MELT_MAKE_LOCATION__V18*/ meltfptr[17])); ((meltroutine_ptr_t)/*_._VALROUT___V311*/ meltfptr[310])->tabval[2] = (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V18*/ meltfptr[17]); MELT_LOCATION("warmelt-macro.melt:423:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V311*/ meltfptr[310])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_217__INFORM_AT#3", NULL != (/*_.DISCR_MAP_OBJECTS__V21*/ meltfptr[20])); ((meltroutine_ptr_t)/*_._VALROUT___V311*/ meltfptr[310])->tabval[3] = (melt_ptr_t)(/*_.DISCR_MAP_OBJECTS__V21*/ meltfptr[20]); MELT_LOCATION("warmelt-macro.melt:423:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V311*/ meltfptr[310])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_217__INFORM_AT#4", NULL != (/*_.STRING4OUT__V14*/ meltfptr[13])); ((meltroutine_ptr_t)/*_._VALROUT___V311*/ meltfptr[310])->tabval[4] = (melt_ptr_t)(/*_.STRING4OUT__V14*/ meltfptr[13]); MELT_LOCATION("warmelt-macro.melt:423:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V311*/ meltfptr[310])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_217__INFORM_AT#5", NULL != (/*_.DISCR_STRING__V15*/ meltfptr[14])); ((meltroutine_ptr_t)/*_._VALROUT___V311*/ meltfptr[310])->tabval[5] = (melt_ptr_t)(/*_.DISCR_STRING__V15*/ meltfptr[14]); MELT_LOCATION("warmelt-macro.melt:423:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V311*/ meltfptr[310])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_217__INFORM_AT#6", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V311*/ meltfptr[310])->tabval[6] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:423:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V311*/ meltfptr[310])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V131*/ meltfptr[130]); ((meltroutine_ptr_t)/*_._VALROUT___V311*/ meltfptr[310])->tabval[7] = (melt_ptr_t)(/*_._VALDATA___V131*/ meltfptr[130]); MELT_LOCATION("warmelt-macro.melt:423:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V311*/ meltfptr[310])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_217__INFORM_AT#8", NULL != (/*_.CLASS_KEYWORD__V22*/ meltfptr[21])); ((meltroutine_ptr_t)/*_._VALROUT___V311*/ meltfptr[310])->tabval[8] = (melt_ptr_t)(/*_.CLASS_KEYWORD__V22*/ meltfptr[21]); MELT_LOCATION("warmelt-macro.melt:423:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V311*/ meltfptr[310])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_217__INFORM_AT#9", NULL != (/*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V311*/ meltfptr[310])->tabval[9] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-macro.melt:423:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V311*/ meltfptr[310])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_217__INFORM_AT#10", NULL != (/*_.CLASS_NAMED__V23*/ meltfptr[22])); ((meltroutine_ptr_t)/*_._VALROUT___V311*/ meltfptr[310])->tabval[10] = (melt_ptr_t)(/*_.CLASS_NAMED__V23*/ meltfptr[22]); MELT_LOCATION("warmelt-macro.melt:423:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V311*/ meltfptr[310])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V288*/ meltfptr[287]); ((meltroutine_ptr_t)/*_._VALROUT___V311*/ meltfptr[310])->tabval[11] = (melt_ptr_t)(/*_._VALCLO___V288*/ meltfptr[287]); MELT_LOCATION("warmelt-macro.melt:423:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V311*/ meltfptr[310])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_217__INFORM_AT#12", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V311*/ meltfptr[310])->tabval[12] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:423:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V311*/ meltfptr[310]); /*putclosurout#15*/ melt_assertmsg("putclosrout#15 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V312*/ meltfptr[311])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#15 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V311*/ meltfptr[310])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V312*/ meltfptr[311])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V311*/ meltfptr[310]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V312*/ meltfptr[311]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_219__ERROR_AT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V313*/ meltfptr[312])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_219__ERROR_AT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V313*/ meltfptr[312])))); ((meltobject_ptr_t)(/*_._VALDATA___V313*/ meltfptr[312]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V314*/ meltfptr[313]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V313*/ meltfptr[312]); melt_dbgtrace_written_object (/*_._VALDATA___V313*/ meltfptr[312], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_221__FATAL_ERROR_AT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V315*/ meltfptr[314])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_221__FATAL_ERROR_AT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V315*/ meltfptr[314])))); ((meltobject_ptr_t)(/*_._VALDATA___V315*/ meltfptr[314]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V316*/ meltfptr[315]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V315*/ meltfptr[314]); melt_dbgtrace_written_object (/*_._VALDATA___V315*/ meltfptr[314], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_223__WARNING_AT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V317*/ meltfptr[316])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_223__WARNING_AT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V317*/ meltfptr[316])))); ((meltobject_ptr_t)(/*_._VALDATA___V317*/ meltfptr[316]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V318*/ meltfptr[317]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V317*/ meltfptr[316]); melt_dbgtrace_written_object (/*_._VALDATA___V317*/ meltfptr[316], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_225__INFORM_AT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V319*/ meltfptr[318])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_225__INFORM_AT @#1", (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_dbgtrace_written_object (/*_._VALDATA___V319*/ meltfptr[318], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_227__IS_RECURSIVELY_CONSTRUCTIBLE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V321*/ meltfptr[320])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_227__IS_RECURSIVELY_CONSTRUCTIBLE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V321*/ meltfptr[320])))); ((meltobject_ptr_t)(/*_._VALDATA___V321*/ meltfptr[320]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V322*/ meltfptr[321]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V321*/ meltfptr[320]); melt_dbgtrace_written_object (/*_._VALDATA___V321*/ meltfptr[320], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_229__CLASS_SELECTOR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V323*/ meltfptr[322])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_229__CLASS_SELECTOR @#1", (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]); melt_dbgtrace_written_object (/*_._VALDATA___V323*/ meltfptr[322], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_231__RECV @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V325*/ meltfptr[324])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_231__RECV @#1", (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]); melt_dbgtrace_written_object (/*_._VALDATA___V325*/ meltfptr[324], "new static instance"); MELT_LOCATION("warmelt-macro.melt:449:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_233 @#0", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V327*/ meltfptr[326])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_233 @#0", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_._VALDATA___V327*/ meltfptr[326])))); ((meltobject_ptr_t)(/*_._VALDATA___V327*/ meltfptr[326]))->obj_vartab[0] = (melt_ptr_t)( /*_._VALDATA___V325*/ meltfptr[324]); MELT_LOCATION("warmelt-macro.melt:449:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_233 @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V327*/ meltfptr[326])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_233 @#1", (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)( ((melt_ptr_t)(MELT_PREDEF(CTYPE_VALUE)))); MELT_LOCATION("warmelt-macro.melt:449:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V327*/ meltfptr[326]); MELT_LOCATION("warmelt-macro.melt:449:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V327*/ meltfptr[326], "new static instance"); /*putupl#25*/ melt_assertmsg("putupl #25 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V328*/ meltfptr[327]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #25 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V328*/ meltfptr[327])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V328*/ meltfptr[327]))->tabval[0] = (melt_ptr_t)(/*_._VALDATA___V327*/ meltfptr[326]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V328*/ meltfptr[327]); MELT_LOCATION("warmelt-macro.melt:449:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_235__IS_RECURSIVELY_CONSTRUCTIBLE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V329*/ meltfptr[328])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_235__IS_RECURSIVELY_CONSTRUCTIBLE @#1", (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]); MELT_LOCATION("warmelt-macro.melt:449:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V329*/ meltfptr[328]); MELT_LOCATION("warmelt-macro.melt:449:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V329*/ meltfptr[328], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_237__CLASS_SOURCE_GENERATOR_DEVICE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V331*/ meltfptr[330])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_237__CLASS_SOURCE_GENERATOR_DEVICE @#1", (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]); melt_dbgtrace_written_object (/*_._VALDATA___V331*/ meltfptr[330], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_239__CLASS_SOURCE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V333*/ meltfptr[332])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_239__CLASS_SOURCE @#1", (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]); melt_dbgtrace_written_object (/*_._VALDATA___V333*/ meltfptr[332], "new static instance"); MELT_LOCATION("warmelt-macro.melt:455:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_241__CLASS_SOURCE_GENERATOR_DEVICE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V335*/ meltfptr[334])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_241__CLASS_SOURCE_GENERATOR_DEVICE @#1", (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]); MELT_LOCATION("warmelt-macro.melt:455:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_241__CLASS_SOURCE_GENERATOR_DEVICE @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V335*/ meltfptr[334])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_241__CLASS_SOURCE_GENERATOR_DEVICE @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V335*/ meltfptr[334])))); ((meltobject_ptr_t)(/*_._VALDATA___V335*/ meltfptr[334]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#26*/ melt_assertmsg("putupl #26 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V337*/ meltfptr[336]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #26 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V337*/ meltfptr[336])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V337*/ meltfptr[336]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#27*/ melt_assertmsg("putupl #27 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V337*/ meltfptr[336]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #27 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V337*/ meltfptr[336])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V337*/ meltfptr[336]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#28*/ melt_assertmsg("putupl #28 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V337*/ meltfptr[336]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #28 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V337*/ meltfptr[336])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V337*/ meltfptr[336]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#29*/ melt_assertmsg("putupl #29 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V337*/ meltfptr[336]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #29 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V337*/ meltfptr[336])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V337*/ meltfptr[336]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V337*/ meltfptr[336]); MELT_LOCATION("warmelt-macro.melt:455:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_241__CLASS_SOURCE_GENERATOR_DEVICE @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V335*/ meltfptr[334])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_241__CLASS_SOURCE_GENERATOR_DEVICE @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V335*/ meltfptr[334])))); ((meltobject_ptr_t)(/*_._VALDATA___V335*/ meltfptr[334]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V337*/ meltfptr[336]); #undef meltfram__ } /*end of meltmod__WARMELTmiMACRO__initialmeltchunk_4*/ void meltmod__WARMELTmiMACRO__initialmeltchunk_5 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; MELT_LOCATION("warmelt-macro.melt:455:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_247__SRCGEN_DEFIN @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V338*/ meltfptr[337])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_247__SRCGEN_DEFIN @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V338*/ meltfptr[337])))); ((meltobject_ptr_t)(/*_._VALDATA___V338*/ meltfptr[337]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V339*/ meltfptr[338]); MELT_LOCATION("warmelt-macro.melt:455:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_247__SRCGEN_DEFIN @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V338*/ meltfptr[337])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_247__SRCGEN_DEFIN @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V338*/ meltfptr[337])))); ((meltobject_ptr_t)(/*_._VALDATA___V338*/ meltfptr[337]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V335*/ meltfptr[334]); MELT_LOCATION("warmelt-macro.melt:455:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V338*/ meltfptr[337]); MELT_LOCATION("warmelt-macro.melt:455:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V338*/ meltfptr[337], "new static instance"); MELT_LOCATION("warmelt-macro.melt:455:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_251__SRCGEN_REPR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V340*/ meltfptr[339])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_251__SRCGEN_REPR @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V340*/ meltfptr[339])))); ((meltobject_ptr_t)(/*_._VALDATA___V340*/ meltfptr[339]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V341*/ meltfptr[340]); MELT_LOCATION("warmelt-macro.melt:455:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_251__SRCGEN_REPR @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V340*/ meltfptr[339])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_251__SRCGEN_REPR @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V340*/ meltfptr[339])))); ((meltobject_ptr_t)(/*_._VALDATA___V340*/ meltfptr[339]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V335*/ meltfptr[334]); MELT_LOCATION("warmelt-macro.melt:455:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V340*/ meltfptr[339]); MELT_LOCATION("warmelt-macro.melt:455:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V340*/ meltfptr[339], "new static instance"); /*putupl#30*/ melt_assertmsg("putupl #30 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V342*/ meltfptr[341]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #30 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V342*/ meltfptr[341])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V342*/ meltfptr[341]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#31*/ melt_assertmsg("putupl #31 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V342*/ meltfptr[341]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #31 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V342*/ meltfptr[341])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V342*/ meltfptr[341]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#32*/ melt_assertmsg("putupl #32 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V342*/ meltfptr[341]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #32 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V342*/ meltfptr[341])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V342*/ meltfptr[341]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V338*/ meltfptr[337]); /*putupl#33*/ melt_assertmsg("putupl #33 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V342*/ meltfptr[341]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #33 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V342*/ meltfptr[341])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V342*/ meltfptr[341]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V340*/ meltfptr[339]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V342*/ meltfptr[341]); MELT_LOCATION("warmelt-macro.melt:455:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_241__CLASS_SOURCE_GENERATOR_DEVICE @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V335*/ meltfptr[334])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_241__CLASS_SOURCE_GENERATOR_DEVICE @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V335*/ meltfptr[334])))); ((meltobject_ptr_t)(/*_._VALDATA___V335*/ meltfptr[334]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V342*/ meltfptr[341]); MELT_LOCATION("warmelt-macro.melt:455:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V335*/ meltfptr[334]); MELT_LOCATION("warmelt-macro.melt:455:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V335*/ meltfptr[334], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_245__SRCGEN_DEFIN @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V343*/ meltfptr[342])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_245__SRCGEN_DEFIN @#1", (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]); melt_dbgtrace_written_object (/*_._VALDATA___V343*/ meltfptr[342], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_249__SRCGEN_REPR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V345*/ meltfptr[344])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_249__SRCGEN_REPR @#1", (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]); melt_dbgtrace_written_object (/*_._VALDATA___V345*/ meltfptr[344], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_253__CLASS_SOURCE_LAZY_MACRO_EXPANSION @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V347*/ meltfptr[346])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_253__CLASS_SOURCE_LAZY_MACRO_EXPANSION @#1", (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]); melt_dbgtrace_written_object (/*_._VALDATA___V347*/ meltfptr[346], "new static instance"); MELT_LOCATION("warmelt-macro.melt:464:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_255__CLASS_SOURCE_LAZY_MACRO_EXPANSION @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V349*/ meltfptr[348])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_255__CLASS_SOURCE_LAZY_MACRO_EXPANSION @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V349*/ meltfptr[348])))); ((meltobject_ptr_t)(/*_._VALDATA___V349*/ meltfptr[348]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V350*/ meltfptr[349]); MELT_LOCATION("warmelt-macro.melt:464:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_255__CLASS_SOURCE_LAZY_MACRO_EXPANSION @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V349*/ meltfptr[348])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_255__CLASS_SOURCE_LAZY_MACRO_EXPANSION @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V349*/ meltfptr[348])))); ((meltobject_ptr_t)(/*_._VALDATA___V349*/ meltfptr[348]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#34*/ melt_assertmsg("putupl #34 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V351*/ meltfptr[350]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #34 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V351*/ meltfptr[350])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V351*/ meltfptr[350]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#35*/ melt_assertmsg("putupl #35 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V351*/ meltfptr[350]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #35 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V351*/ meltfptr[350])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V351*/ meltfptr[350]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#36*/ melt_assertmsg("putupl #36 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V351*/ meltfptr[350]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #36 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V351*/ meltfptr[350])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V351*/ meltfptr[350]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#37*/ melt_assertmsg("putupl #37 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V351*/ meltfptr[350]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #37 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V351*/ meltfptr[350])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V351*/ meltfptr[350]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V351*/ meltfptr[350]); MELT_LOCATION("warmelt-macro.melt:464:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_255__CLASS_SOURCE_LAZY_MACRO_EXPANSION @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V349*/ meltfptr[348])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_255__CLASS_SOURCE_LAZY_MACRO_EXPANSION @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V349*/ meltfptr[348])))); ((meltobject_ptr_t)(/*_._VALDATA___V349*/ meltfptr[348]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V351*/ meltfptr[350]); MELT_LOCATION("warmelt-macro.melt:464:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_261__SLAZYMACRO_FUN @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V352*/ meltfptr[351])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_261__SLAZYMACRO_FUN @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V352*/ meltfptr[351])))); ((meltobject_ptr_t)(/*_._VALDATA___V352*/ meltfptr[351]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V353*/ meltfptr[352]); MELT_LOCATION("warmelt-macro.melt:464:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_261__SLAZYMACRO_FUN @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V352*/ meltfptr[351])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_261__SLAZYMACRO_FUN @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V352*/ meltfptr[351])))); ((meltobject_ptr_t)(/*_._VALDATA___V352*/ meltfptr[351]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V349*/ meltfptr[348]); MELT_LOCATION("warmelt-macro.melt:464:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V352*/ meltfptr[351]); MELT_LOCATION("warmelt-macro.melt:464:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V352*/ meltfptr[351], "new static instance"); MELT_LOCATION("warmelt-macro.melt:464:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_265__SLAZYMACRO_OPER @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V354*/ meltfptr[353])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_265__SLAZYMACRO_OPER @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V354*/ meltfptr[353])))); ((meltobject_ptr_t)(/*_._VALDATA___V354*/ meltfptr[353]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V355*/ meltfptr[354]); MELT_LOCATION("warmelt-macro.melt:464:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_265__SLAZYMACRO_OPER @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V354*/ meltfptr[353])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_265__SLAZYMACRO_OPER @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V354*/ meltfptr[353])))); ((meltobject_ptr_t)(/*_._VALDATA___V354*/ meltfptr[353]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V349*/ meltfptr[348]); MELT_LOCATION("warmelt-macro.melt:464:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V354*/ meltfptr[353]); MELT_LOCATION("warmelt-macro.melt:464:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V354*/ meltfptr[353], "new static instance"); /*putupl#38*/ melt_assertmsg("putupl #38 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V356*/ meltfptr[355]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #38 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V356*/ meltfptr[355])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V356*/ meltfptr[355]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#39*/ melt_assertmsg("putupl #39 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V356*/ meltfptr[355]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #39 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V356*/ meltfptr[355])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V356*/ meltfptr[355]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#40*/ melt_assertmsg("putupl #40 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V356*/ meltfptr[355]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #40 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V356*/ meltfptr[355])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V356*/ meltfptr[355]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V352*/ meltfptr[351]); /*putupl#41*/ melt_assertmsg("putupl #41 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V356*/ meltfptr[355]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #41 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V356*/ meltfptr[355])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V356*/ meltfptr[355]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V354*/ meltfptr[353]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V356*/ meltfptr[355]); MELT_LOCATION("warmelt-macro.melt:464:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_255__CLASS_SOURCE_LAZY_MACRO_EXPANSION @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V349*/ meltfptr[348])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_255__CLASS_SOURCE_LAZY_MACRO_EXPANSION @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V349*/ meltfptr[348])))); ((meltobject_ptr_t)(/*_._VALDATA___V349*/ meltfptr[348]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V356*/ meltfptr[355]); MELT_LOCATION("warmelt-macro.melt:464:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V349*/ meltfptr[348]); MELT_LOCATION("warmelt-macro.melt:464:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V349*/ meltfptr[348], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_259__SLAZYMACRO_FUN @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V357*/ meltfptr[356])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_259__SLAZYMACRO_FUN @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V357*/ meltfptr[356])))); ((meltobject_ptr_t)(/*_._VALDATA___V357*/ meltfptr[356]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V358*/ meltfptr[357]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V357*/ meltfptr[356]); melt_dbgtrace_written_object (/*_._VALDATA___V357*/ meltfptr[356], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_263__SLAZYMACRO_OPER @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V359*/ meltfptr[358])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_263__SLAZYMACRO_OPER @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V359*/ meltfptr[358])))); ((meltobject_ptr_t)(/*_._VALDATA___V359*/ meltfptr[358]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V360*/ meltfptr[359]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V359*/ meltfptr[358]); melt_dbgtrace_written_object (/*_._VALDATA___V359*/ meltfptr[358], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_267__CLASS_SOURCE_ARGUMENTED_OPERATOR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V361*/ meltfptr[360])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_267__CLASS_SOURCE_ARGUMENTED_OPERATOR @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V361*/ meltfptr[360])))); ((meltobject_ptr_t)(/*_._VALDATA___V361*/ meltfptr[360]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V362*/ meltfptr[361]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V361*/ meltfptr[360]); melt_dbgtrace_written_object (/*_._VALDATA___V361*/ meltfptr[360], "new static instance"); MELT_LOCATION("warmelt-macro.melt:477:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_269__CLASS_SOURCE_ARGUMENTED_OPERATOR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V363*/ meltfptr[362])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_269__CLASS_SOURCE_ARGUMENTED_OPERATOR @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V363*/ meltfptr[362])))); ((meltobject_ptr_t)(/*_._VALDATA___V363*/ meltfptr[362]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V364*/ meltfptr[363]); MELT_LOCATION("warmelt-macro.melt:477:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_269__CLASS_SOURCE_ARGUMENTED_OPERATOR @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V363*/ meltfptr[362])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_269__CLASS_SOURCE_ARGUMENTED_OPERATOR @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V363*/ meltfptr[362])))); ((meltobject_ptr_t)(/*_._VALDATA___V363*/ meltfptr[362]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#42*/ melt_assertmsg("putupl #42 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V365*/ meltfptr[364]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #42 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V365*/ meltfptr[364])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V365*/ meltfptr[364]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#43*/ melt_assertmsg("putupl #43 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V365*/ meltfptr[364]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #43 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V365*/ meltfptr[364])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V365*/ meltfptr[364]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#44*/ melt_assertmsg("putupl #44 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V365*/ meltfptr[364]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #44 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V365*/ meltfptr[364])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V365*/ meltfptr[364]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#45*/ melt_assertmsg("putupl #45 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V365*/ meltfptr[364]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #45 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V365*/ meltfptr[364])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V365*/ meltfptr[364]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V365*/ meltfptr[364]); MELT_LOCATION("warmelt-macro.melt:477:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_269__CLASS_SOURCE_ARGUMENTED_OPERATOR @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V363*/ meltfptr[362])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_269__CLASS_SOURCE_ARGUMENTED_OPERATOR @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V363*/ meltfptr[362])))); ((meltobject_ptr_t)(/*_._VALDATA___V363*/ meltfptr[362]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V365*/ meltfptr[364]); MELT_LOCATION("warmelt-macro.melt:477:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_275__SARGOP_ARGS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V366*/ meltfptr[365])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_275__SARGOP_ARGS @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V366*/ meltfptr[365])))); ((meltobject_ptr_t)(/*_._VALDATA___V366*/ meltfptr[365]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V367*/ meltfptr[366]); MELT_LOCATION("warmelt-macro.melt:477:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_275__SARGOP_ARGS @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V366*/ meltfptr[365])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_275__SARGOP_ARGS @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V366*/ meltfptr[365])))); ((meltobject_ptr_t)(/*_._VALDATA___V366*/ meltfptr[365]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V363*/ meltfptr[362]); MELT_LOCATION("warmelt-macro.melt:477:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V366*/ meltfptr[365]); MELT_LOCATION("warmelt-macro.melt:477:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V366*/ meltfptr[365], "new static instance"); /*putupl#46*/ melt_assertmsg("putupl #46 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V368*/ meltfptr[367]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #46 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V368*/ meltfptr[367])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V368*/ meltfptr[367]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#47*/ melt_assertmsg("putupl #47 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V368*/ meltfptr[367]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #47 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V368*/ meltfptr[367])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V368*/ meltfptr[367]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#48*/ melt_assertmsg("putupl #48 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V368*/ meltfptr[367]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #48 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V368*/ meltfptr[367])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V368*/ meltfptr[367]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V366*/ meltfptr[365]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V368*/ meltfptr[367]); MELT_LOCATION("warmelt-macro.melt:477:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_269__CLASS_SOURCE_ARGUMENTED_OPERATOR @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V363*/ meltfptr[362])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_269__CLASS_SOURCE_ARGUMENTED_OPERATOR @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V363*/ meltfptr[362])))); ((meltobject_ptr_t)(/*_._VALDATA___V363*/ meltfptr[362]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V368*/ meltfptr[367]); MELT_LOCATION("warmelt-macro.melt:477:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V363*/ meltfptr[362]); MELT_LOCATION("warmelt-macro.melt:477:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V363*/ meltfptr[362], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_273__SARGOP_ARGS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V369*/ meltfptr[368])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_273__SARGOP_ARGS @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V369*/ meltfptr[368])))); ((meltobject_ptr_t)(/*_._VALDATA___V369*/ meltfptr[368]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V370*/ meltfptr[369]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V369*/ meltfptr[368]); melt_dbgtrace_written_object (/*_._VALDATA___V369*/ meltfptr[368], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_277__CLASS_SOURCE_APPLY @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V371*/ meltfptr[370])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_277__CLASS_SOURCE_APPLY @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V371*/ meltfptr[370])))); ((meltobject_ptr_t)(/*_._VALDATA___V371*/ meltfptr[370]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V372*/ meltfptr[371]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V371*/ meltfptr[370]); melt_dbgtrace_written_object (/*_._VALDATA___V371*/ meltfptr[370], "new static instance"); MELT_LOCATION("warmelt-macro.melt:485:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_279__CLASS_SOURCE_APPLY @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V373*/ meltfptr[372])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_279__CLASS_SOURCE_APPLY @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V373*/ meltfptr[372])))); ((meltobject_ptr_t)(/*_._VALDATA___V373*/ meltfptr[372]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V374*/ meltfptr[373]); MELT_LOCATION("warmelt-macro.melt:485:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_279__CLASS_SOURCE_APPLY @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V373*/ meltfptr[372])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_279__CLASS_SOURCE_APPLY @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V373*/ meltfptr[372])))); ((meltobject_ptr_t)(/*_._VALDATA___V373*/ meltfptr[372]))->obj_vartab[4] = (melt_ptr_t)( /*_._VALDATA___V363*/ meltfptr[362]); /*putupl#49*/ melt_assertmsg("putupl #49 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V375*/ meltfptr[374]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #49 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V375*/ meltfptr[374])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V375*/ meltfptr[374]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#50*/ melt_assertmsg("putupl #50 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V375*/ meltfptr[374]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #50 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V375*/ meltfptr[374])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V375*/ meltfptr[374]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#51*/ melt_assertmsg("putupl #51 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V375*/ meltfptr[374]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #51 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V375*/ meltfptr[374])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V375*/ meltfptr[374]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#52*/ melt_assertmsg("putupl #52 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V375*/ meltfptr[374]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #52 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V375*/ meltfptr[374])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V375*/ meltfptr[374]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#53*/ melt_assertmsg("putupl #53 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V375*/ meltfptr[374]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #53 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V375*/ meltfptr[374])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V375*/ meltfptr[374]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V363*/ meltfptr[362]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V375*/ meltfptr[374]); MELT_LOCATION("warmelt-macro.melt:485:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_279__CLASS_SOURCE_APPLY @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V373*/ meltfptr[372])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_279__CLASS_SOURCE_APPLY @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V373*/ meltfptr[372])))); ((meltobject_ptr_t)(/*_._VALDATA___V373*/ meltfptr[372]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V375*/ meltfptr[374]); MELT_LOCATION("warmelt-macro.melt:485:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_285__SAPP_FUN @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V376*/ meltfptr[375])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_285__SAPP_FUN @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V376*/ meltfptr[375])))); ((meltobject_ptr_t)(/*_._VALDATA___V376*/ meltfptr[375]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V377*/ meltfptr[376]); MELT_LOCATION("warmelt-macro.melt:485:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_285__SAPP_FUN @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V376*/ meltfptr[375])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_285__SAPP_FUN @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V376*/ meltfptr[375])))); ((meltobject_ptr_t)(/*_._VALDATA___V376*/ meltfptr[375]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V373*/ meltfptr[372]); MELT_LOCATION("warmelt-macro.melt:485:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V376*/ meltfptr[375]); MELT_LOCATION("warmelt-macro.melt:485:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V376*/ meltfptr[375], "new static instance"); /*putupl#54*/ melt_assertmsg("putupl #54 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V378*/ meltfptr[377]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #54 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V378*/ meltfptr[377])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V378*/ meltfptr[377]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#55*/ melt_assertmsg("putupl #55 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V378*/ meltfptr[377]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #55 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V378*/ meltfptr[377])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V378*/ meltfptr[377]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#56*/ melt_assertmsg("putupl #56 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V378*/ meltfptr[377]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #56 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V378*/ meltfptr[377])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V378*/ meltfptr[377]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V366*/ meltfptr[365]); /*putupl#57*/ melt_assertmsg("putupl #57 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V378*/ meltfptr[377]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #57 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V378*/ meltfptr[377])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V378*/ meltfptr[377]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V376*/ meltfptr[375]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V378*/ meltfptr[377]); MELT_LOCATION("warmelt-macro.melt:485:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_279__CLASS_SOURCE_APPLY @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V373*/ meltfptr[372])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_279__CLASS_SOURCE_APPLY @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V373*/ meltfptr[372])))); ((meltobject_ptr_t)(/*_._VALDATA___V373*/ meltfptr[372]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V378*/ meltfptr[377]); MELT_LOCATION("warmelt-macro.melt:485:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V373*/ meltfptr[372]); MELT_LOCATION("warmelt-macro.melt:485:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V373*/ meltfptr[372], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_283__SAPP_FUN @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V379*/ meltfptr[378])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_283__SAPP_FUN @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V379*/ meltfptr[378])))); ((meltobject_ptr_t)(/*_._VALDATA___V379*/ meltfptr[378]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V380*/ meltfptr[379]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V379*/ meltfptr[378]); melt_dbgtrace_written_object (/*_._VALDATA___V379*/ meltfptr[378], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_287__CLASS_SOURCE_MSEND @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V381*/ meltfptr[380])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_287__CLASS_SOURCE_MSEND @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V381*/ meltfptr[380])))); ((meltobject_ptr_t)(/*_._VALDATA___V381*/ meltfptr[380]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V382*/ meltfptr[381]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V381*/ meltfptr[380]); melt_dbgtrace_written_object (/*_._VALDATA___V381*/ meltfptr[380], "new static instance"); MELT_LOCATION("warmelt-macro.melt:494:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_289__CLASS_SOURCE_MSEND @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V383*/ meltfptr[382])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_289__CLASS_SOURCE_MSEND @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V383*/ meltfptr[382])))); ((meltobject_ptr_t)(/*_._VALDATA___V383*/ meltfptr[382]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V384*/ meltfptr[383]); MELT_LOCATION("warmelt-macro.melt:494:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_289__CLASS_SOURCE_MSEND @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V383*/ meltfptr[382])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_289__CLASS_SOURCE_MSEND @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V383*/ meltfptr[382])))); ((meltobject_ptr_t)(/*_._VALDATA___V383*/ meltfptr[382]))->obj_vartab[4] = (melt_ptr_t)( /*_._VALDATA___V363*/ meltfptr[362]); /*putupl#58*/ melt_assertmsg("putupl #58 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V385*/ meltfptr[384]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #58 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V385*/ meltfptr[384])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V385*/ meltfptr[384]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#59*/ melt_assertmsg("putupl #59 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V385*/ meltfptr[384]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #59 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V385*/ meltfptr[384])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V385*/ meltfptr[384]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#60*/ melt_assertmsg("putupl #60 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V385*/ meltfptr[384]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #60 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V385*/ meltfptr[384])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V385*/ meltfptr[384]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#61*/ melt_assertmsg("putupl #61 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V385*/ meltfptr[384]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #61 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V385*/ meltfptr[384])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V385*/ meltfptr[384]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#62*/ melt_assertmsg("putupl #62 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V385*/ meltfptr[384]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #62 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V385*/ meltfptr[384])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V385*/ meltfptr[384]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V363*/ meltfptr[362]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V385*/ meltfptr[384]); MELT_LOCATION("warmelt-macro.melt:494:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_289__CLASS_SOURCE_MSEND @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V383*/ meltfptr[382])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_289__CLASS_SOURCE_MSEND @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V383*/ meltfptr[382])))); ((meltobject_ptr_t)(/*_._VALDATA___V383*/ meltfptr[382]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V385*/ meltfptr[384]); MELT_LOCATION("warmelt-macro.melt:494:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_295__MSEND_SELSYMB @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V386*/ meltfptr[385])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_295__MSEND_SELSYMB @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V386*/ meltfptr[385])))); ((meltobject_ptr_t)(/*_._VALDATA___V386*/ meltfptr[385]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V387*/ meltfptr[386]); MELT_LOCATION("warmelt-macro.melt:494:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_295__MSEND_SELSYMB @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V386*/ meltfptr[385])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_295__MSEND_SELSYMB @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V386*/ meltfptr[385])))); ((meltobject_ptr_t)(/*_._VALDATA___V386*/ meltfptr[385]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V383*/ meltfptr[382]); MELT_LOCATION("warmelt-macro.melt:494:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V386*/ meltfptr[385]); MELT_LOCATION("warmelt-macro.melt:494:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V386*/ meltfptr[385], "new static instance"); MELT_LOCATION("warmelt-macro.melt:494:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_299__MSEND_RECV @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V388*/ meltfptr[387])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_299__MSEND_RECV @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V388*/ meltfptr[387])))); ((meltobject_ptr_t)(/*_._VALDATA___V388*/ meltfptr[387]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V389*/ meltfptr[388]); MELT_LOCATION("warmelt-macro.melt:494:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_299__MSEND_RECV @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V388*/ meltfptr[387])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_299__MSEND_RECV @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V388*/ meltfptr[387])))); ((meltobject_ptr_t)(/*_._VALDATA___V388*/ meltfptr[387]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V383*/ meltfptr[382]); MELT_LOCATION("warmelt-macro.melt:494:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V388*/ meltfptr[387]); MELT_LOCATION("warmelt-macro.melt:494:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V388*/ meltfptr[387], "new static instance"); /*putupl#63*/ melt_assertmsg("putupl #63 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V390*/ meltfptr[389]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #63 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V390*/ meltfptr[389])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V390*/ meltfptr[389]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); #undef meltfram__ } /*end of meltmod__WARMELTmiMACRO__initialmeltchunk_5*/ void meltmod__WARMELTmiMACRO__initialmeltchunk_6 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; /*putupl#64*/ melt_assertmsg("putupl #64 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V390*/ meltfptr[389]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #64 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V390*/ meltfptr[389])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V390*/ meltfptr[389]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#65*/ melt_assertmsg("putupl #65 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V390*/ meltfptr[389]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #65 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V390*/ meltfptr[389])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V390*/ meltfptr[389]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V366*/ meltfptr[365]); /*putupl#66*/ melt_assertmsg("putupl #66 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V390*/ meltfptr[389]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #66 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V390*/ meltfptr[389])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V390*/ meltfptr[389]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V386*/ meltfptr[385]); /*putupl#67*/ melt_assertmsg("putupl #67 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V390*/ meltfptr[389]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #67 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V390*/ meltfptr[389])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V390*/ meltfptr[389]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V388*/ meltfptr[387]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V390*/ meltfptr[389]); MELT_LOCATION("warmelt-macro.melt:494:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_289__CLASS_SOURCE_MSEND @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V383*/ meltfptr[382])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_289__CLASS_SOURCE_MSEND @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V383*/ meltfptr[382])))); ((meltobject_ptr_t)(/*_._VALDATA___V383*/ meltfptr[382]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V390*/ meltfptr[389]); MELT_LOCATION("warmelt-macro.melt:494:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V383*/ meltfptr[382]); MELT_LOCATION("warmelt-macro.melt:494:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V383*/ meltfptr[382], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_293__MSEND_SELSYMB @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V391*/ meltfptr[390])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_293__MSEND_SELSYMB @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V391*/ meltfptr[390])))); ((meltobject_ptr_t)(/*_._VALDATA___V391*/ meltfptr[390]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V392*/ meltfptr[391]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V391*/ meltfptr[390]); melt_dbgtrace_written_object (/*_._VALDATA___V391*/ meltfptr[390], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_297__MSEND_RECV @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V393*/ meltfptr[392])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_297__MSEND_RECV @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V393*/ meltfptr[392])))); ((meltobject_ptr_t)(/*_._VALDATA___V393*/ meltfptr[392]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V394*/ meltfptr[393]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V393*/ meltfptr[392]); melt_dbgtrace_written_object (/*_._VALDATA___V393*/ meltfptr[392], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_301__CLASS_SOURCE_PRIMITIVE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V395*/ meltfptr[394])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_301__CLASS_SOURCE_PRIMITIVE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V395*/ meltfptr[394])))); ((meltobject_ptr_t)(/*_._VALDATA___V395*/ meltfptr[394]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V396*/ meltfptr[395]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V395*/ meltfptr[394]); melt_dbgtrace_written_object (/*_._VALDATA___V395*/ meltfptr[394], "new static instance"); MELT_LOCATION("warmelt-macro.melt:505:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_303__CLASS_SOURCE_PRIMITIVE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V397*/ meltfptr[396])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_303__CLASS_SOURCE_PRIMITIVE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V397*/ meltfptr[396])))); ((meltobject_ptr_t)(/*_._VALDATA___V397*/ meltfptr[396]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V398*/ meltfptr[397]); MELT_LOCATION("warmelt-macro.melt:505:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_303__CLASS_SOURCE_PRIMITIVE @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V397*/ meltfptr[396])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_303__CLASS_SOURCE_PRIMITIVE @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V397*/ meltfptr[396])))); ((meltobject_ptr_t)(/*_._VALDATA___V397*/ meltfptr[396]))->obj_vartab[4] = (melt_ptr_t)( /*_._VALDATA___V363*/ meltfptr[362]); /*putupl#68*/ melt_assertmsg("putupl #68 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V399*/ meltfptr[398]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #68 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V399*/ meltfptr[398])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V399*/ meltfptr[398]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#69*/ melt_assertmsg("putupl #69 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V399*/ meltfptr[398]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #69 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V399*/ meltfptr[398])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V399*/ meltfptr[398]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#70*/ melt_assertmsg("putupl #70 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V399*/ meltfptr[398]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #70 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V399*/ meltfptr[398])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V399*/ meltfptr[398]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#71*/ melt_assertmsg("putupl #71 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V399*/ meltfptr[398]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #71 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V399*/ meltfptr[398])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V399*/ meltfptr[398]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#72*/ melt_assertmsg("putupl #72 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V399*/ meltfptr[398]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #72 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V399*/ meltfptr[398])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V399*/ meltfptr[398]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V363*/ meltfptr[362]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V399*/ meltfptr[398]); MELT_LOCATION("warmelt-macro.melt:505:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_303__CLASS_SOURCE_PRIMITIVE @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V397*/ meltfptr[396])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_303__CLASS_SOURCE_PRIMITIVE @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V397*/ meltfptr[396])))); ((meltobject_ptr_t)(/*_._VALDATA___V397*/ meltfptr[396]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V399*/ meltfptr[398]); MELT_LOCATION("warmelt-macro.melt:505:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_309__SPRIM_OPER @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V400*/ meltfptr[399])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_309__SPRIM_OPER @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V400*/ meltfptr[399])))); ((meltobject_ptr_t)(/*_._VALDATA___V400*/ meltfptr[399]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V401*/ meltfptr[400]); MELT_LOCATION("warmelt-macro.melt:505:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_309__SPRIM_OPER @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V400*/ meltfptr[399])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_309__SPRIM_OPER @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V400*/ meltfptr[399])))); ((meltobject_ptr_t)(/*_._VALDATA___V400*/ meltfptr[399]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V397*/ meltfptr[396]); MELT_LOCATION("warmelt-macro.melt:505:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V400*/ meltfptr[399]); MELT_LOCATION("warmelt-macro.melt:505:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V400*/ meltfptr[399], "new static instance"); /*putupl#73*/ melt_assertmsg("putupl #73 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V402*/ meltfptr[401]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #73 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V402*/ meltfptr[401])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V402*/ meltfptr[401]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#74*/ melt_assertmsg("putupl #74 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V402*/ meltfptr[401]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #74 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V402*/ meltfptr[401])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V402*/ meltfptr[401]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#75*/ melt_assertmsg("putupl #75 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V402*/ meltfptr[401]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #75 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V402*/ meltfptr[401])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V402*/ meltfptr[401]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V366*/ meltfptr[365]); /*putupl#76*/ melt_assertmsg("putupl #76 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V402*/ meltfptr[401]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #76 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V402*/ meltfptr[401])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V402*/ meltfptr[401]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V400*/ meltfptr[399]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V402*/ meltfptr[401]); MELT_LOCATION("warmelt-macro.melt:505:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_303__CLASS_SOURCE_PRIMITIVE @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V397*/ meltfptr[396])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_303__CLASS_SOURCE_PRIMITIVE @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V397*/ meltfptr[396])))); ((meltobject_ptr_t)(/*_._VALDATA___V397*/ meltfptr[396]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V402*/ meltfptr[401]); MELT_LOCATION("warmelt-macro.melt:505:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V397*/ meltfptr[396]); MELT_LOCATION("warmelt-macro.melt:505:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V397*/ meltfptr[396], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_307__SPRIM_OPER @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V403*/ meltfptr[402])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_307__SPRIM_OPER @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V403*/ meltfptr[402])))); ((meltobject_ptr_t)(/*_._VALDATA___V403*/ meltfptr[402]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V404*/ meltfptr[403]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V403*/ meltfptr[402]); melt_dbgtrace_written_object (/*_._VALDATA___V403*/ meltfptr[402], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_311__CLASS_SOURCE_HOOK_CALL @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V405*/ meltfptr[404])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_311__CLASS_SOURCE_HOOK_CALL @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V405*/ meltfptr[404])))); ((meltobject_ptr_t)(/*_._VALDATA___V405*/ meltfptr[404]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V406*/ meltfptr[405]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V405*/ meltfptr[404]); melt_dbgtrace_written_object (/*_._VALDATA___V405*/ meltfptr[404], "new static instance"); MELT_LOCATION("warmelt-macro.melt:513:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_313__CLASS_SOURCE_HOOK_CALL @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V407*/ meltfptr[406])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_313__CLASS_SOURCE_HOOK_CALL @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V407*/ meltfptr[406])))); ((meltobject_ptr_t)(/*_._VALDATA___V407*/ meltfptr[406]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V408*/ meltfptr[407]); MELT_LOCATION("warmelt-macro.melt:513:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_313__CLASS_SOURCE_HOOK_CALL @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V407*/ meltfptr[406])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_313__CLASS_SOURCE_HOOK_CALL @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V407*/ meltfptr[406])))); ((meltobject_ptr_t)(/*_._VALDATA___V407*/ meltfptr[406]))->obj_vartab[4] = (melt_ptr_t)( /*_._VALDATA___V363*/ meltfptr[362]); /*putupl#77*/ melt_assertmsg("putupl #77 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V409*/ meltfptr[408]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #77 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V409*/ meltfptr[408])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V409*/ meltfptr[408]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#78*/ melt_assertmsg("putupl #78 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V409*/ meltfptr[408]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #78 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V409*/ meltfptr[408])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V409*/ meltfptr[408]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#79*/ melt_assertmsg("putupl #79 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V409*/ meltfptr[408]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #79 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V409*/ meltfptr[408])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V409*/ meltfptr[408]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#80*/ melt_assertmsg("putupl #80 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V409*/ meltfptr[408]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #80 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V409*/ meltfptr[408])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V409*/ meltfptr[408]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#81*/ melt_assertmsg("putupl #81 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V409*/ meltfptr[408]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #81 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V409*/ meltfptr[408])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V409*/ meltfptr[408]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V363*/ meltfptr[362]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V409*/ meltfptr[408]); MELT_LOCATION("warmelt-macro.melt:513:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_313__CLASS_SOURCE_HOOK_CALL @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V407*/ meltfptr[406])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_313__CLASS_SOURCE_HOOK_CALL @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V407*/ meltfptr[406])))); ((meltobject_ptr_t)(/*_._VALDATA___V407*/ meltfptr[406]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V409*/ meltfptr[408]); MELT_LOCATION("warmelt-macro.melt:513:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_319__SHOOK_CALLED @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V410*/ meltfptr[409])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_319__SHOOK_CALLED @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V410*/ meltfptr[409])))); ((meltobject_ptr_t)(/*_._VALDATA___V410*/ meltfptr[409]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V411*/ meltfptr[410]); MELT_LOCATION("warmelt-macro.melt:513:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_319__SHOOK_CALLED @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V410*/ meltfptr[409])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_319__SHOOK_CALLED @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V410*/ meltfptr[409])))); ((meltobject_ptr_t)(/*_._VALDATA___V410*/ meltfptr[409]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V407*/ meltfptr[406]); MELT_LOCATION("warmelt-macro.melt:513:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V410*/ meltfptr[409]); MELT_LOCATION("warmelt-macro.melt:513:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V410*/ meltfptr[409], "new static instance"); /*putupl#82*/ melt_assertmsg("putupl #82 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V412*/ meltfptr[411]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #82 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V412*/ meltfptr[411])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V412*/ meltfptr[411]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#83*/ melt_assertmsg("putupl #83 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V412*/ meltfptr[411]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #83 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V412*/ meltfptr[411])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V412*/ meltfptr[411]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#84*/ melt_assertmsg("putupl #84 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V412*/ meltfptr[411]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #84 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V412*/ meltfptr[411])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V412*/ meltfptr[411]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V366*/ meltfptr[365]); /*putupl#85*/ melt_assertmsg("putupl #85 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V412*/ meltfptr[411]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #85 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V412*/ meltfptr[411])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V412*/ meltfptr[411]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V410*/ meltfptr[409]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V412*/ meltfptr[411]); MELT_LOCATION("warmelt-macro.melt:513:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_313__CLASS_SOURCE_HOOK_CALL @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V407*/ meltfptr[406])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_313__CLASS_SOURCE_HOOK_CALL @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V407*/ meltfptr[406])))); ((meltobject_ptr_t)(/*_._VALDATA___V407*/ meltfptr[406]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V412*/ meltfptr[411]); MELT_LOCATION("warmelt-macro.melt:513:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V407*/ meltfptr[406]); MELT_LOCATION("warmelt-macro.melt:513:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V407*/ meltfptr[406], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_317__SHOOK_CALLED @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V413*/ meltfptr[412])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_317__SHOOK_CALLED @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V413*/ meltfptr[412])))); ((meltobject_ptr_t)(/*_._VALDATA___V413*/ meltfptr[412]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V414*/ meltfptr[413]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V413*/ meltfptr[412]); melt_dbgtrace_written_object (/*_._VALDATA___V413*/ meltfptr[412], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_321__CLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V415*/ meltfptr[414])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_321__CLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V415*/ meltfptr[414])))); ((meltobject_ptr_t)(/*_._VALDATA___V415*/ meltfptr[414]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V416*/ meltfptr[415]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V415*/ meltfptr[414]); melt_dbgtrace_written_object (/*_._VALDATA___V415*/ meltfptr[414], "new static instance"); MELT_LOCATION("warmelt-macro.melt:523:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_323__CLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V417*/ meltfptr[416])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_323__CLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V417*/ meltfptr[416])))); ((meltobject_ptr_t)(/*_._VALDATA___V417*/ meltfptr[416]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V418*/ meltfptr[417]); MELT_LOCATION("warmelt-macro.melt:523:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_323__CLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V417*/ meltfptr[416])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_323__CLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V417*/ meltfptr[416])))); ((meltobject_ptr_t)(/*_._VALDATA___V417*/ meltfptr[416]))->obj_vartab[4] = (melt_ptr_t)( /*_._VALDATA___V363*/ meltfptr[362]); /*putupl#86*/ melt_assertmsg("putupl #86 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V419*/ meltfptr[418]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #86 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V419*/ meltfptr[418])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V419*/ meltfptr[418]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#87*/ melt_assertmsg("putupl #87 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V419*/ meltfptr[418]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #87 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V419*/ meltfptr[418])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V419*/ meltfptr[418]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#88*/ melt_assertmsg("putupl #88 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V419*/ meltfptr[418]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #88 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V419*/ meltfptr[418])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V419*/ meltfptr[418]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#89*/ melt_assertmsg("putupl #89 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V419*/ meltfptr[418]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #89 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V419*/ meltfptr[418])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V419*/ meltfptr[418]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#90*/ melt_assertmsg("putupl #90 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V419*/ meltfptr[418]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #90 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V419*/ meltfptr[418])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V419*/ meltfptr[418]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V363*/ meltfptr[362]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V419*/ meltfptr[418]); MELT_LOCATION("warmelt-macro.melt:523:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_323__CLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V417*/ meltfptr[416])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_323__CLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V417*/ meltfptr[416])))); ((meltobject_ptr_t)(/*_._VALDATA___V417*/ meltfptr[416]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V419*/ meltfptr[418]); MELT_LOCATION("warmelt-macro.melt:523:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_329__SARITHVAR_NEUTRAL @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V420*/ meltfptr[419])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_329__SARITHVAR_NEUTRAL @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V420*/ meltfptr[419])))); ((meltobject_ptr_t)(/*_._VALDATA___V420*/ meltfptr[419]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V421*/ meltfptr[420]); MELT_LOCATION("warmelt-macro.melt:523:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_329__SARITHVAR_NEUTRAL @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V420*/ meltfptr[419])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_329__SARITHVAR_NEUTRAL @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V420*/ meltfptr[419])))); ((meltobject_ptr_t)(/*_._VALDATA___V420*/ meltfptr[419]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V417*/ meltfptr[416]); MELT_LOCATION("warmelt-macro.melt:523:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V420*/ meltfptr[419]); MELT_LOCATION("warmelt-macro.melt:523:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V420*/ meltfptr[419], "new static instance"); MELT_LOCATION("warmelt-macro.melt:523:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_333__SARITHVAR_PRIMITIVE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V422*/ meltfptr[421])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_333__SARITHVAR_PRIMITIVE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V422*/ meltfptr[421])))); ((meltobject_ptr_t)(/*_._VALDATA___V422*/ meltfptr[421]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V423*/ meltfptr[422]); MELT_LOCATION("warmelt-macro.melt:523:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_333__SARITHVAR_PRIMITIVE @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V422*/ meltfptr[421])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_333__SARITHVAR_PRIMITIVE @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V422*/ meltfptr[421])))); ((meltobject_ptr_t)(/*_._VALDATA___V422*/ meltfptr[421]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V417*/ meltfptr[416]); MELT_LOCATION("warmelt-macro.melt:523:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V422*/ meltfptr[421]); MELT_LOCATION("warmelt-macro.melt:523:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V422*/ meltfptr[421], "new static instance"); /*putupl#91*/ melt_assertmsg("putupl #91 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V424*/ meltfptr[423]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #91 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V424*/ meltfptr[423])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V424*/ meltfptr[423]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#92*/ melt_assertmsg("putupl #92 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V424*/ meltfptr[423]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #92 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V424*/ meltfptr[423])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V424*/ meltfptr[423]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#93*/ melt_assertmsg("putupl #93 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V424*/ meltfptr[423]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #93 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V424*/ meltfptr[423])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V424*/ meltfptr[423]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V366*/ meltfptr[365]); /*putupl#94*/ melt_assertmsg("putupl #94 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V424*/ meltfptr[423]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #94 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V424*/ meltfptr[423])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V424*/ meltfptr[423]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V420*/ meltfptr[419]); /*putupl#95*/ melt_assertmsg("putupl #95 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V424*/ meltfptr[423]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #95 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V424*/ meltfptr[423])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V424*/ meltfptr[423]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V422*/ meltfptr[421]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V424*/ meltfptr[423]); MELT_LOCATION("warmelt-macro.melt:523:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_323__CLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V417*/ meltfptr[416])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_323__CLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V417*/ meltfptr[416])))); ((meltobject_ptr_t)(/*_._VALDATA___V417*/ meltfptr[416]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V424*/ meltfptr[423]); MELT_LOCATION("warmelt-macro.melt:523:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V417*/ meltfptr[416]); MELT_LOCATION("warmelt-macro.melt:523:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V417*/ meltfptr[416], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_327__SARITHVAR_NEUTRAL @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V425*/ meltfptr[424])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_327__SARITHVAR_NEUTRAL @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V425*/ meltfptr[424])))); ((meltobject_ptr_t)(/*_._VALDATA___V425*/ meltfptr[424]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V426*/ meltfptr[425]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V425*/ meltfptr[424]); melt_dbgtrace_written_object (/*_._VALDATA___V425*/ meltfptr[424], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_331__SARITHVAR_PRIMITIVE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V427*/ meltfptr[426])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_331__SARITHVAR_PRIMITIVE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V427*/ meltfptr[426])))); ((meltobject_ptr_t)(/*_._VALDATA___V427*/ meltfptr[426]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V428*/ meltfptr[427]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V427*/ meltfptr[426]); melt_dbgtrace_written_object (/*_._VALDATA___V427*/ meltfptr[426], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_335__CLASS_SOURCE_CITERATION @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V429*/ meltfptr[428])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_335__CLASS_SOURCE_CITERATION @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V429*/ meltfptr[428])))); ((meltobject_ptr_t)(/*_._VALDATA___V429*/ meltfptr[428]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V430*/ meltfptr[429]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V429*/ meltfptr[428]); melt_dbgtrace_written_object (/*_._VALDATA___V429*/ meltfptr[428], "new static instance"); MELT_LOCATION("warmelt-macro.melt:532:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_337__CLASS_SOURCE_CITERATION @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V431*/ meltfptr[430])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_337__CLASS_SOURCE_CITERATION @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V431*/ meltfptr[430])))); ((meltobject_ptr_t)(/*_._VALDATA___V431*/ meltfptr[430]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V432*/ meltfptr[431]); MELT_LOCATION("warmelt-macro.melt:532:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_337__CLASS_SOURCE_CITERATION @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V431*/ meltfptr[430])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_337__CLASS_SOURCE_CITERATION @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V431*/ meltfptr[430])))); ((meltobject_ptr_t)(/*_._VALDATA___V431*/ meltfptr[430]))->obj_vartab[4] = (melt_ptr_t)( /*_._VALDATA___V363*/ meltfptr[362]); /*putupl#96*/ melt_assertmsg("putupl #96 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V433*/ meltfptr[432]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #96 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V433*/ meltfptr[432])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V433*/ meltfptr[432]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#97*/ melt_assertmsg("putupl #97 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V433*/ meltfptr[432]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #97 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V433*/ meltfptr[432])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V433*/ meltfptr[432]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#98*/ melt_assertmsg("putupl #98 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V433*/ meltfptr[432]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #98 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V433*/ meltfptr[432])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V433*/ meltfptr[432]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#99*/ melt_assertmsg("putupl #99 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V433*/ meltfptr[432]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #99 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V433*/ meltfptr[432])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V433*/ meltfptr[432]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#100*/ melt_assertmsg("putupl #100 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V433*/ meltfptr[432]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #100 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V433*/ meltfptr[432])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V433*/ meltfptr[432]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V363*/ meltfptr[362]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V433*/ meltfptr[432]); MELT_LOCATION("warmelt-macro.melt:532:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_337__CLASS_SOURCE_CITERATION @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V431*/ meltfptr[430])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_337__CLASS_SOURCE_CITERATION @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V431*/ meltfptr[430])))); ((meltobject_ptr_t)(/*_._VALDATA___V431*/ meltfptr[430]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V433*/ meltfptr[432]); MELT_LOCATION("warmelt-macro.melt:532:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_343__SCITER_OPER @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V434*/ meltfptr[433])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_343__SCITER_OPER @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V434*/ meltfptr[433])))); ((meltobject_ptr_t)(/*_._VALDATA___V434*/ meltfptr[433]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V435*/ meltfptr[434]); MELT_LOCATION("warmelt-macro.melt:532:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_343__SCITER_OPER @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V434*/ meltfptr[433])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_343__SCITER_OPER @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V434*/ meltfptr[433])))); ((meltobject_ptr_t)(/*_._VALDATA___V434*/ meltfptr[433]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V431*/ meltfptr[430]); MELT_LOCATION("warmelt-macro.melt:532:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V434*/ meltfptr[433]); MELT_LOCATION("warmelt-macro.melt:532:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V434*/ meltfptr[433], "new static instance"); MELT_LOCATION("warmelt-macro.melt:532:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_347__SCITER_VARBIND @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V436*/ meltfptr[435])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_347__SCITER_VARBIND @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V436*/ meltfptr[435])))); ((meltobject_ptr_t)(/*_._VALDATA___V436*/ meltfptr[435]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V437*/ meltfptr[436]); MELT_LOCATION("warmelt-macro.melt:532:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_347__SCITER_VARBIND @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V436*/ meltfptr[435])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_347__SCITER_VARBIND @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V436*/ meltfptr[435])))); ((meltobject_ptr_t)(/*_._VALDATA___V436*/ meltfptr[435]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V431*/ meltfptr[430]); MELT_LOCATION("warmelt-macro.melt:532:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V436*/ meltfptr[435]); MELT_LOCATION("warmelt-macro.melt:532:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V436*/ meltfptr[435], "new static instance"); MELT_LOCATION("warmelt-macro.melt:532:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_351__SCITER_BODY @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V438*/ meltfptr[437])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_351__SCITER_BODY @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V438*/ meltfptr[437])))); ((meltobject_ptr_t)(/*_._VALDATA___V438*/ meltfptr[437]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V439*/ meltfptr[438]); MELT_LOCATION("warmelt-macro.melt:532:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_351__SCITER_BODY @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V438*/ meltfptr[437])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_351__SCITER_BODY @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V438*/ meltfptr[437])))); ((meltobject_ptr_t)(/*_._VALDATA___V438*/ meltfptr[437]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V431*/ meltfptr[430]); MELT_LOCATION("warmelt-macro.melt:532:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V438*/ meltfptr[437]); MELT_LOCATION("warmelt-macro.melt:532:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V438*/ meltfptr[437], "new static instance"); /*putupl#101*/ melt_assertmsg("putupl #101 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V440*/ meltfptr[439]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #101 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V440*/ meltfptr[439])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V440*/ meltfptr[439]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); #undef meltfram__ } /*end of meltmod__WARMELTmiMACRO__initialmeltchunk_6*/ void meltmod__WARMELTmiMACRO__initialmeltchunk_7 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; /*putupl#102*/ melt_assertmsg("putupl #102 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V440*/ meltfptr[439]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #102 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V440*/ meltfptr[439])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V440*/ meltfptr[439]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#103*/ melt_assertmsg("putupl #103 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V440*/ meltfptr[439]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #103 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V440*/ meltfptr[439])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V440*/ meltfptr[439]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V366*/ meltfptr[365]); /*putupl#104*/ melt_assertmsg("putupl #104 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V440*/ meltfptr[439]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #104 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V440*/ meltfptr[439])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V440*/ meltfptr[439]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V434*/ meltfptr[433]); /*putupl#105*/ melt_assertmsg("putupl #105 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V440*/ meltfptr[439]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #105 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V440*/ meltfptr[439])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V440*/ meltfptr[439]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V436*/ meltfptr[435]); /*putupl#106*/ melt_assertmsg("putupl #106 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V440*/ meltfptr[439]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #106 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V440*/ meltfptr[439])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V440*/ meltfptr[439]))->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V438*/ meltfptr[437]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V440*/ meltfptr[439]); MELT_LOCATION("warmelt-macro.melt:532:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_337__CLASS_SOURCE_CITERATION @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V431*/ meltfptr[430])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_337__CLASS_SOURCE_CITERATION @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V431*/ meltfptr[430])))); ((meltobject_ptr_t)(/*_._VALDATA___V431*/ meltfptr[430]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V440*/ meltfptr[439]); MELT_LOCATION("warmelt-macro.melt:532:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V431*/ meltfptr[430]); MELT_LOCATION("warmelt-macro.melt:532:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V431*/ meltfptr[430], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_341__SCITER_OPER @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V441*/ meltfptr[440])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_341__SCITER_OPER @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V441*/ meltfptr[440])))); ((meltobject_ptr_t)(/*_._VALDATA___V441*/ meltfptr[440]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V442*/ meltfptr[441]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V441*/ meltfptr[440]); melt_dbgtrace_written_object (/*_._VALDATA___V441*/ meltfptr[440], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_345__SCITER_VARBIND @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V443*/ meltfptr[442])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_345__SCITER_VARBIND @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V443*/ meltfptr[442])))); ((meltobject_ptr_t)(/*_._VALDATA___V443*/ meltfptr[442]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V444*/ meltfptr[443]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V443*/ meltfptr[442]); melt_dbgtrace_written_object (/*_._VALDATA___V443*/ meltfptr[442], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_349__SCITER_BODY @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V445*/ meltfptr[444])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_349__SCITER_BODY @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V445*/ meltfptr[444])))); ((meltobject_ptr_t)(/*_._VALDATA___V445*/ meltfptr[444]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V446*/ meltfptr[445]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V445*/ meltfptr[444]); melt_dbgtrace_written_object (/*_._VALDATA___V445*/ meltfptr[444], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_353__CLASS_SOURCE_CMATCHEXPR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V447*/ meltfptr[446])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_353__CLASS_SOURCE_CMATCHEXPR @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V447*/ meltfptr[446])))); ((meltobject_ptr_t)(/*_._VALDATA___V447*/ meltfptr[446]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V448*/ meltfptr[447]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V447*/ meltfptr[446]); melt_dbgtrace_written_object (/*_._VALDATA___V447*/ meltfptr[446], "new static instance"); MELT_LOCATION("warmelt-macro.melt:544:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_355__CLASS_SOURCE_CMATCHEXPR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V449*/ meltfptr[448])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_355__CLASS_SOURCE_CMATCHEXPR @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V449*/ meltfptr[448])))); ((meltobject_ptr_t)(/*_._VALDATA___V449*/ meltfptr[448]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V450*/ meltfptr[449]); MELT_LOCATION("warmelt-macro.melt:544:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_355__CLASS_SOURCE_CMATCHEXPR @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V449*/ meltfptr[448])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_355__CLASS_SOURCE_CMATCHEXPR @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V449*/ meltfptr[448])))); ((meltobject_ptr_t)(/*_._VALDATA___V449*/ meltfptr[448]))->obj_vartab[4] = (melt_ptr_t)( /*_._VALDATA___V363*/ meltfptr[362]); /*putupl#107*/ melt_assertmsg("putupl #107 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V451*/ meltfptr[450]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #107 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V451*/ meltfptr[450])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V451*/ meltfptr[450]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#108*/ melt_assertmsg("putupl #108 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V451*/ meltfptr[450]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #108 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V451*/ meltfptr[450])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V451*/ meltfptr[450]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#109*/ melt_assertmsg("putupl #109 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V451*/ meltfptr[450]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #109 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V451*/ meltfptr[450])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V451*/ meltfptr[450]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#110*/ melt_assertmsg("putupl #110 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V451*/ meltfptr[450]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #110 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V451*/ meltfptr[450])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V451*/ meltfptr[450]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#111*/ melt_assertmsg("putupl #111 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V451*/ meltfptr[450]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #111 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V451*/ meltfptr[450])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V451*/ meltfptr[450]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V363*/ meltfptr[362]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V451*/ meltfptr[450]); MELT_LOCATION("warmelt-macro.melt:544:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_355__CLASS_SOURCE_CMATCHEXPR @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V449*/ meltfptr[448])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_355__CLASS_SOURCE_CMATCHEXPR @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V449*/ meltfptr[448])))); ((meltobject_ptr_t)(/*_._VALDATA___V449*/ meltfptr[448]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V451*/ meltfptr[450]); MELT_LOCATION("warmelt-macro.melt:544:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_361__SCMATX_CMATCHER @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V452*/ meltfptr[451])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_361__SCMATX_CMATCHER @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V452*/ meltfptr[451])))); ((meltobject_ptr_t)(/*_._VALDATA___V452*/ meltfptr[451]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V453*/ meltfptr[452]); MELT_LOCATION("warmelt-macro.melt:544:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_361__SCMATX_CMATCHER @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V452*/ meltfptr[451])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_361__SCMATX_CMATCHER @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V452*/ meltfptr[451])))); ((meltobject_ptr_t)(/*_._VALDATA___V452*/ meltfptr[451]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V449*/ meltfptr[448]); MELT_LOCATION("warmelt-macro.melt:544:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V452*/ meltfptr[451]); MELT_LOCATION("warmelt-macro.melt:544:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V452*/ meltfptr[451], "new static instance"); /*putupl#112*/ melt_assertmsg("putupl #112 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V454*/ meltfptr[453]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #112 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V454*/ meltfptr[453])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V454*/ meltfptr[453]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#113*/ melt_assertmsg("putupl #113 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V454*/ meltfptr[453]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #113 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V454*/ meltfptr[453])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V454*/ meltfptr[453]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#114*/ melt_assertmsg("putupl #114 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V454*/ meltfptr[453]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #114 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V454*/ meltfptr[453])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V454*/ meltfptr[453]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V366*/ meltfptr[365]); /*putupl#115*/ melt_assertmsg("putupl #115 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V454*/ meltfptr[453]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #115 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V454*/ meltfptr[453])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V454*/ meltfptr[453]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V452*/ meltfptr[451]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V454*/ meltfptr[453]); MELT_LOCATION("warmelt-macro.melt:544:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_355__CLASS_SOURCE_CMATCHEXPR @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V449*/ meltfptr[448])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_355__CLASS_SOURCE_CMATCHEXPR @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V449*/ meltfptr[448])))); ((meltobject_ptr_t)(/*_._VALDATA___V449*/ meltfptr[448]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V454*/ meltfptr[453]); MELT_LOCATION("warmelt-macro.melt:544:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V449*/ meltfptr[448]); MELT_LOCATION("warmelt-macro.melt:544:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V449*/ meltfptr[448], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_359__SCMATX_CMATCHER @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V455*/ meltfptr[454])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_359__SCMATX_CMATCHER @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V455*/ meltfptr[454])))); ((meltobject_ptr_t)(/*_._VALDATA___V455*/ meltfptr[454]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V456*/ meltfptr[455]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V455*/ meltfptr[454]); melt_dbgtrace_written_object (/*_._VALDATA___V455*/ meltfptr[454], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_363__CLASS_SOURCE_FUNMATCHEXPR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V457*/ meltfptr[456])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_363__CLASS_SOURCE_FUNMATCHEXPR @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V457*/ meltfptr[456])))); ((meltobject_ptr_t)(/*_._VALDATA___V457*/ meltfptr[456]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V458*/ meltfptr[457]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V457*/ meltfptr[456]); melt_dbgtrace_written_object (/*_._VALDATA___V457*/ meltfptr[456], "new static instance"); MELT_LOCATION("warmelt-macro.melt:553:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_365__CLASS_SOURCE_FUNMATCHEXPR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V459*/ meltfptr[458])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_365__CLASS_SOURCE_FUNMATCHEXPR @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V459*/ meltfptr[458])))); ((meltobject_ptr_t)(/*_._VALDATA___V459*/ meltfptr[458]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V460*/ meltfptr[459]); MELT_LOCATION("warmelt-macro.melt:553:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_365__CLASS_SOURCE_FUNMATCHEXPR @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V459*/ meltfptr[458])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_365__CLASS_SOURCE_FUNMATCHEXPR @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V459*/ meltfptr[458])))); ((meltobject_ptr_t)(/*_._VALDATA___V459*/ meltfptr[458]))->obj_vartab[4] = (melt_ptr_t)( /*_._VALDATA___V363*/ meltfptr[362]); /*putupl#116*/ melt_assertmsg("putupl #116 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V461*/ meltfptr[460]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #116 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V461*/ meltfptr[460])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V461*/ meltfptr[460]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#117*/ melt_assertmsg("putupl #117 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V461*/ meltfptr[460]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #117 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V461*/ meltfptr[460])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V461*/ meltfptr[460]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#118*/ melt_assertmsg("putupl #118 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V461*/ meltfptr[460]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #118 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V461*/ meltfptr[460])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V461*/ meltfptr[460]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#119*/ melt_assertmsg("putupl #119 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V461*/ meltfptr[460]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #119 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V461*/ meltfptr[460])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V461*/ meltfptr[460]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#120*/ melt_assertmsg("putupl #120 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V461*/ meltfptr[460]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #120 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V461*/ meltfptr[460])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V461*/ meltfptr[460]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V363*/ meltfptr[362]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V461*/ meltfptr[460]); MELT_LOCATION("warmelt-macro.melt:553:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_365__CLASS_SOURCE_FUNMATCHEXPR @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V459*/ meltfptr[458])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_365__CLASS_SOURCE_FUNMATCHEXPR @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V459*/ meltfptr[458])))); ((meltobject_ptr_t)(/*_._VALDATA___V459*/ meltfptr[458]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V461*/ meltfptr[460]); MELT_LOCATION("warmelt-macro.melt:553:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_371__SFMATX_FMATCHER @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V462*/ meltfptr[461])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_371__SFMATX_FMATCHER @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V462*/ meltfptr[461])))); ((meltobject_ptr_t)(/*_._VALDATA___V462*/ meltfptr[461]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V463*/ meltfptr[462]); MELT_LOCATION("warmelt-macro.melt:553:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_371__SFMATX_FMATCHER @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V462*/ meltfptr[461])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_371__SFMATX_FMATCHER @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V462*/ meltfptr[461])))); ((meltobject_ptr_t)(/*_._VALDATA___V462*/ meltfptr[461]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V459*/ meltfptr[458]); MELT_LOCATION("warmelt-macro.melt:553:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V462*/ meltfptr[461]); MELT_LOCATION("warmelt-macro.melt:553:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V462*/ meltfptr[461], "new static instance"); MELT_LOCATION("warmelt-macro.melt:553:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_375__SFMATX_FMATBIND @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V464*/ meltfptr[463])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_375__SFMATX_FMATBIND @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V464*/ meltfptr[463])))); ((meltobject_ptr_t)(/*_._VALDATA___V464*/ meltfptr[463]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V465*/ meltfptr[464]); MELT_LOCATION("warmelt-macro.melt:553:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_375__SFMATX_FMATBIND @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V464*/ meltfptr[463])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_375__SFMATX_FMATBIND @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V464*/ meltfptr[463])))); ((meltobject_ptr_t)(/*_._VALDATA___V464*/ meltfptr[463]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V459*/ meltfptr[458]); MELT_LOCATION("warmelt-macro.melt:553:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V464*/ meltfptr[463]); MELT_LOCATION("warmelt-macro.melt:553:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V464*/ meltfptr[463], "new static instance"); /*putupl#121*/ melt_assertmsg("putupl #121 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V466*/ meltfptr[465]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #121 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V466*/ meltfptr[465])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V466*/ meltfptr[465]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#122*/ melt_assertmsg("putupl #122 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V466*/ meltfptr[465]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #122 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V466*/ meltfptr[465])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V466*/ meltfptr[465]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#123*/ melt_assertmsg("putupl #123 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V466*/ meltfptr[465]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #123 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V466*/ meltfptr[465])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V466*/ meltfptr[465]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V366*/ meltfptr[365]); /*putupl#124*/ melt_assertmsg("putupl #124 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V466*/ meltfptr[465]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #124 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V466*/ meltfptr[465])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V466*/ meltfptr[465]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V462*/ meltfptr[461]); /*putupl#125*/ melt_assertmsg("putupl #125 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V466*/ meltfptr[465]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #125 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V466*/ meltfptr[465])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V466*/ meltfptr[465]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V464*/ meltfptr[463]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V466*/ meltfptr[465]); MELT_LOCATION("warmelt-macro.melt:553:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_365__CLASS_SOURCE_FUNMATCHEXPR @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V459*/ meltfptr[458])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_365__CLASS_SOURCE_FUNMATCHEXPR @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V459*/ meltfptr[458])))); ((meltobject_ptr_t)(/*_._VALDATA___V459*/ meltfptr[458]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V466*/ meltfptr[465]); MELT_LOCATION("warmelt-macro.melt:553:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V459*/ meltfptr[458]); MELT_LOCATION("warmelt-macro.melt:553:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V459*/ meltfptr[458], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_369__SFMATX_FMATCHER @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V467*/ meltfptr[466])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_369__SFMATX_FMATCHER @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V467*/ meltfptr[466])))); ((meltobject_ptr_t)(/*_._VALDATA___V467*/ meltfptr[466]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V468*/ meltfptr[467]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V467*/ meltfptr[466]); melt_dbgtrace_written_object (/*_._VALDATA___V467*/ meltfptr[466], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_373__SFMATX_FMATBIND @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V469*/ meltfptr[468])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_373__SFMATX_FMATBIND @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V469*/ meltfptr[468])))); ((meltobject_ptr_t)(/*_._VALDATA___V469*/ meltfptr[468]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V470*/ meltfptr[469]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V469*/ meltfptr[468]); melt_dbgtrace_written_object (/*_._VALDATA___V469*/ meltfptr[468], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_377__CLASS_SOURCE_TUPLE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V471*/ meltfptr[470])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_377__CLASS_SOURCE_TUPLE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V471*/ meltfptr[470])))); ((meltobject_ptr_t)(/*_._VALDATA___V471*/ meltfptr[470]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V472*/ meltfptr[471]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V471*/ meltfptr[470]); melt_dbgtrace_written_object (/*_._VALDATA___V471*/ meltfptr[470], "new static instance"); MELT_LOCATION("warmelt-macro.melt:564:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_379__CLASS_SOURCE_TUPLE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V473*/ meltfptr[472])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_379__CLASS_SOURCE_TUPLE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V473*/ meltfptr[472])))); ((meltobject_ptr_t)(/*_._VALDATA___V473*/ meltfptr[472]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V474*/ meltfptr[473]); MELT_LOCATION("warmelt-macro.melt:564:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_379__CLASS_SOURCE_TUPLE @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V473*/ meltfptr[472])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_379__CLASS_SOURCE_TUPLE @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V473*/ meltfptr[472])))); ((meltobject_ptr_t)(/*_._VALDATA___V473*/ meltfptr[472]))->obj_vartab[4] = (melt_ptr_t)( /*_._VALDATA___V363*/ meltfptr[362]); /*putupl#126*/ melt_assertmsg("putupl #126 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V475*/ meltfptr[474]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #126 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V475*/ meltfptr[474])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V475*/ meltfptr[474]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#127*/ melt_assertmsg("putupl #127 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V475*/ meltfptr[474]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #127 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V475*/ meltfptr[474])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V475*/ meltfptr[474]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#128*/ melt_assertmsg("putupl #128 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V475*/ meltfptr[474]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #128 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V475*/ meltfptr[474])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V475*/ meltfptr[474]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#129*/ melt_assertmsg("putupl #129 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V475*/ meltfptr[474]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #129 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V475*/ meltfptr[474])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V475*/ meltfptr[474]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#130*/ melt_assertmsg("putupl #130 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V475*/ meltfptr[474]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #130 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V475*/ meltfptr[474])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V475*/ meltfptr[474]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V363*/ meltfptr[362]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V475*/ meltfptr[474]); MELT_LOCATION("warmelt-macro.melt:564:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_379__CLASS_SOURCE_TUPLE @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V473*/ meltfptr[472])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_379__CLASS_SOURCE_TUPLE @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V473*/ meltfptr[472])))); ((meltobject_ptr_t)(/*_._VALDATA___V473*/ meltfptr[472]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V475*/ meltfptr[474]); /*putupl#131*/ melt_assertmsg("putupl #131 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V476*/ meltfptr[475]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #131 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V476*/ meltfptr[475])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V476*/ meltfptr[475]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#132*/ melt_assertmsg("putupl #132 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V476*/ meltfptr[475]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #132 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V476*/ meltfptr[475])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V476*/ meltfptr[475]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#133*/ melt_assertmsg("putupl #133 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V476*/ meltfptr[475]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #133 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V476*/ meltfptr[475])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V476*/ meltfptr[475]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V366*/ meltfptr[365]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V476*/ meltfptr[475]); MELT_LOCATION("warmelt-macro.melt:564:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_379__CLASS_SOURCE_TUPLE @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V473*/ meltfptr[472])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_379__CLASS_SOURCE_TUPLE @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V473*/ meltfptr[472])))); ((meltobject_ptr_t)(/*_._VALDATA___V473*/ meltfptr[472]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V476*/ meltfptr[475]); MELT_LOCATION("warmelt-macro.melt:564:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V473*/ meltfptr[472]); MELT_LOCATION("warmelt-macro.melt:564:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V473*/ meltfptr[472], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_383__CLASS_SOURCE_LIST @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V477*/ meltfptr[476])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_383__CLASS_SOURCE_LIST @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V477*/ meltfptr[476])))); ((meltobject_ptr_t)(/*_._VALDATA___V477*/ meltfptr[476]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V478*/ meltfptr[477]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V477*/ meltfptr[476]); melt_dbgtrace_written_object (/*_._VALDATA___V477*/ meltfptr[476], "new static instance"); MELT_LOCATION("warmelt-macro.melt:571:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_385__CLASS_SOURCE_LIST @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V479*/ meltfptr[478])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_385__CLASS_SOURCE_LIST @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V479*/ meltfptr[478])))); ((meltobject_ptr_t)(/*_._VALDATA___V479*/ meltfptr[478]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V480*/ meltfptr[479]); MELT_LOCATION("warmelt-macro.melt:571:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_385__CLASS_SOURCE_LIST @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V479*/ meltfptr[478])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_385__CLASS_SOURCE_LIST @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V479*/ meltfptr[478])))); ((meltobject_ptr_t)(/*_._VALDATA___V479*/ meltfptr[478]))->obj_vartab[4] = (melt_ptr_t)( /*_._VALDATA___V363*/ meltfptr[362]); /*putupl#134*/ melt_assertmsg("putupl #134 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V481*/ meltfptr[480]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #134 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V481*/ meltfptr[480])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V481*/ meltfptr[480]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#135*/ melt_assertmsg("putupl #135 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V481*/ meltfptr[480]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #135 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V481*/ meltfptr[480])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V481*/ meltfptr[480]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#136*/ melt_assertmsg("putupl #136 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V481*/ meltfptr[480]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #136 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V481*/ meltfptr[480])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V481*/ meltfptr[480]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#137*/ melt_assertmsg("putupl #137 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V481*/ meltfptr[480]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #137 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V481*/ meltfptr[480])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V481*/ meltfptr[480]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#138*/ melt_assertmsg("putupl #138 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V481*/ meltfptr[480]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #138 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V481*/ meltfptr[480])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V481*/ meltfptr[480]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V363*/ meltfptr[362]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V481*/ meltfptr[480]); MELT_LOCATION("warmelt-macro.melt:571:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_385__CLASS_SOURCE_LIST @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V479*/ meltfptr[478])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_385__CLASS_SOURCE_LIST @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V479*/ meltfptr[478])))); ((meltobject_ptr_t)(/*_._VALDATA___V479*/ meltfptr[478]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V481*/ meltfptr[480]); /*putupl#139*/ melt_assertmsg("putupl #139 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V482*/ meltfptr[481]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #139 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V482*/ meltfptr[481])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V482*/ meltfptr[481]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#140*/ melt_assertmsg("putupl #140 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V482*/ meltfptr[481]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #140 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V482*/ meltfptr[481])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V482*/ meltfptr[481]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#141*/ melt_assertmsg("putupl #141 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V482*/ meltfptr[481]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #141 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V482*/ meltfptr[481])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V482*/ meltfptr[481]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V366*/ meltfptr[365]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V482*/ meltfptr[481]); MELT_LOCATION("warmelt-macro.melt:571:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_385__CLASS_SOURCE_LIST @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V479*/ meltfptr[478])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_385__CLASS_SOURCE_LIST @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V479*/ meltfptr[478])))); ((meltobject_ptr_t)(/*_._VALDATA___V479*/ meltfptr[478]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V482*/ meltfptr[481]); MELT_LOCATION("warmelt-macro.melt:571:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V479*/ meltfptr[478]); MELT_LOCATION("warmelt-macro.melt:571:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V479*/ meltfptr[478], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_389__CLASS_SOURCE_PROGN @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V483*/ meltfptr[482])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_389__CLASS_SOURCE_PROGN @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V483*/ meltfptr[482])))); ((meltobject_ptr_t)(/*_._VALDATA___V483*/ meltfptr[482]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V484*/ meltfptr[483]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V483*/ meltfptr[482]); melt_dbgtrace_written_object (/*_._VALDATA___V483*/ meltfptr[482], "new static instance"); MELT_LOCATION("warmelt-macro.melt:578:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_391__CLASS_SOURCE_PROGN @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V485*/ meltfptr[484])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_391__CLASS_SOURCE_PROGN @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V485*/ meltfptr[484])))); ((meltobject_ptr_t)(/*_._VALDATA___V485*/ meltfptr[484]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V486*/ meltfptr[485]); MELT_LOCATION("warmelt-macro.melt:578:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_391__CLASS_SOURCE_PROGN @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V485*/ meltfptr[484])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_391__CLASS_SOURCE_PROGN @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V485*/ meltfptr[484])))); ((meltobject_ptr_t)(/*_._VALDATA___V485*/ meltfptr[484]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#142*/ melt_assertmsg("putupl #142 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V487*/ meltfptr[486]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #142 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V487*/ meltfptr[486])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V487*/ meltfptr[486]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#143*/ melt_assertmsg("putupl #143 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V487*/ meltfptr[486]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #143 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V487*/ meltfptr[486])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V487*/ meltfptr[486]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#144*/ melt_assertmsg("putupl #144 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V487*/ meltfptr[486]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #144 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V487*/ meltfptr[486])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V487*/ meltfptr[486]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#145*/ melt_assertmsg("putupl #145 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V487*/ meltfptr[486]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #145 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V487*/ meltfptr[486])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V487*/ meltfptr[486]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V487*/ meltfptr[486]); #undef meltfram__ } /*end of meltmod__WARMELTmiMACRO__initialmeltchunk_7*/ void meltmod__WARMELTmiMACRO__initialmeltchunk_8 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; MELT_LOCATION("warmelt-macro.melt:578:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_391__CLASS_SOURCE_PROGN @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V485*/ meltfptr[484])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_391__CLASS_SOURCE_PROGN @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V485*/ meltfptr[484])))); ((meltobject_ptr_t)(/*_._VALDATA___V485*/ meltfptr[484]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V487*/ meltfptr[486]); MELT_LOCATION("warmelt-macro.melt:578:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_397__SPROGN_BODY @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V488*/ meltfptr[487])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_397__SPROGN_BODY @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V488*/ meltfptr[487])))); ((meltobject_ptr_t)(/*_._VALDATA___V488*/ meltfptr[487]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V489*/ meltfptr[488]); MELT_LOCATION("warmelt-macro.melt:578:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_397__SPROGN_BODY @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V488*/ meltfptr[487])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_397__SPROGN_BODY @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V488*/ meltfptr[487])))); ((meltobject_ptr_t)(/*_._VALDATA___V488*/ meltfptr[487]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V485*/ meltfptr[484]); MELT_LOCATION("warmelt-macro.melt:578:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V488*/ meltfptr[487]); MELT_LOCATION("warmelt-macro.melt:578:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V488*/ meltfptr[487], "new static instance"); /*putupl#146*/ melt_assertmsg("putupl #146 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V490*/ meltfptr[489]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #146 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V490*/ meltfptr[489])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V490*/ meltfptr[489]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#147*/ melt_assertmsg("putupl #147 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V490*/ meltfptr[489]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #147 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V490*/ meltfptr[489])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V490*/ meltfptr[489]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#148*/ melt_assertmsg("putupl #148 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V490*/ meltfptr[489]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #148 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V490*/ meltfptr[489])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V490*/ meltfptr[489]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V488*/ meltfptr[487]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V490*/ meltfptr[489]); MELT_LOCATION("warmelt-macro.melt:578:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_391__CLASS_SOURCE_PROGN @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V485*/ meltfptr[484])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_391__CLASS_SOURCE_PROGN @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V485*/ meltfptr[484])))); ((meltobject_ptr_t)(/*_._VALDATA___V485*/ meltfptr[484]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V490*/ meltfptr[489]); MELT_LOCATION("warmelt-macro.melt:578:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V485*/ meltfptr[484]); MELT_LOCATION("warmelt-macro.melt:578:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V485*/ meltfptr[484], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_395__SPROGN_BODY @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V491*/ meltfptr[490])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_395__SPROGN_BODY @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V491*/ meltfptr[490])))); ((meltobject_ptr_t)(/*_._VALDATA___V491*/ meltfptr[490]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V492*/ meltfptr[491]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V491*/ meltfptr[490]); melt_dbgtrace_written_object (/*_._VALDATA___V491*/ meltfptr[490], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_399__CLASS_SOURCE_RETURN @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V493*/ meltfptr[492])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_399__CLASS_SOURCE_RETURN @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V493*/ meltfptr[492])))); ((meltobject_ptr_t)(/*_._VALDATA___V493*/ meltfptr[492]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V494*/ meltfptr[493]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V493*/ meltfptr[492]); melt_dbgtrace_written_object (/*_._VALDATA___V493*/ meltfptr[492], "new static instance"); MELT_LOCATION("warmelt-macro.melt:586:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_401__CLASS_SOURCE_RETURN @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V495*/ meltfptr[494])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_401__CLASS_SOURCE_RETURN @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V495*/ meltfptr[494])))); ((meltobject_ptr_t)(/*_._VALDATA___V495*/ meltfptr[494]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V496*/ meltfptr[495]); MELT_LOCATION("warmelt-macro.melt:586:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_401__CLASS_SOURCE_RETURN @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V495*/ meltfptr[494])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_401__CLASS_SOURCE_RETURN @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V495*/ meltfptr[494])))); ((meltobject_ptr_t)(/*_._VALDATA___V495*/ meltfptr[494]))->obj_vartab[4] = (melt_ptr_t)( /*_._VALDATA___V363*/ meltfptr[362]); /*putupl#149*/ melt_assertmsg("putupl #149 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V497*/ meltfptr[496]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #149 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V497*/ meltfptr[496])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V497*/ meltfptr[496]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#150*/ melt_assertmsg("putupl #150 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V497*/ meltfptr[496]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #150 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V497*/ meltfptr[496])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V497*/ meltfptr[496]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#151*/ melt_assertmsg("putupl #151 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V497*/ meltfptr[496]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #151 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V497*/ meltfptr[496])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V497*/ meltfptr[496]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#152*/ melt_assertmsg("putupl #152 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V497*/ meltfptr[496]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #152 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V497*/ meltfptr[496])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V497*/ meltfptr[496]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#153*/ melt_assertmsg("putupl #153 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V497*/ meltfptr[496]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #153 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V497*/ meltfptr[496])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V497*/ meltfptr[496]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V363*/ meltfptr[362]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V497*/ meltfptr[496]); MELT_LOCATION("warmelt-macro.melt:586:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_401__CLASS_SOURCE_RETURN @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V495*/ meltfptr[494])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_401__CLASS_SOURCE_RETURN @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V495*/ meltfptr[494])))); ((meltobject_ptr_t)(/*_._VALDATA___V495*/ meltfptr[494]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V497*/ meltfptr[496]); /*putupl#154*/ melt_assertmsg("putupl #154 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V498*/ meltfptr[497]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #154 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V498*/ meltfptr[497])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V498*/ meltfptr[497]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#155*/ melt_assertmsg("putupl #155 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V498*/ meltfptr[497]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #155 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V498*/ meltfptr[497])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V498*/ meltfptr[497]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#156*/ melt_assertmsg("putupl #156 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V498*/ meltfptr[497]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #156 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V498*/ meltfptr[497])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V498*/ meltfptr[497]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V366*/ meltfptr[365]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V498*/ meltfptr[497]); MELT_LOCATION("warmelt-macro.melt:586:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_401__CLASS_SOURCE_RETURN @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V495*/ meltfptr[494])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_401__CLASS_SOURCE_RETURN @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V495*/ meltfptr[494])))); ((meltobject_ptr_t)(/*_._VALDATA___V495*/ meltfptr[494]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V498*/ meltfptr[497]); MELT_LOCATION("warmelt-macro.melt:586:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V495*/ meltfptr[494]); MELT_LOCATION("warmelt-macro.melt:586:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V495*/ meltfptr[494], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_405__CLASS_SOURCE_SETQ @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V499*/ meltfptr[498])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_405__CLASS_SOURCE_SETQ @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V499*/ meltfptr[498])))); ((meltobject_ptr_t)(/*_._VALDATA___V499*/ meltfptr[498]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V500*/ meltfptr[499]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V499*/ meltfptr[498]); melt_dbgtrace_written_object (/*_._VALDATA___V499*/ meltfptr[498], "new static instance"); MELT_LOCATION("warmelt-macro.melt:593:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_407__CLASS_SOURCE_SETQ @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V501*/ meltfptr[500])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_407__CLASS_SOURCE_SETQ @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V501*/ meltfptr[500])))); ((meltobject_ptr_t)(/*_._VALDATA___V501*/ meltfptr[500]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V502*/ meltfptr[501]); MELT_LOCATION("warmelt-macro.melt:593:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_407__CLASS_SOURCE_SETQ @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V501*/ meltfptr[500])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_407__CLASS_SOURCE_SETQ @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V501*/ meltfptr[500])))); ((meltobject_ptr_t)(/*_._VALDATA___V501*/ meltfptr[500]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#157*/ melt_assertmsg("putupl #157 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V503*/ meltfptr[502]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #157 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V503*/ meltfptr[502])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V503*/ meltfptr[502]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#158*/ melt_assertmsg("putupl #158 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V503*/ meltfptr[502]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #158 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V503*/ meltfptr[502])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V503*/ meltfptr[502]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#159*/ melt_assertmsg("putupl #159 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V503*/ meltfptr[502]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #159 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V503*/ meltfptr[502])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V503*/ meltfptr[502]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#160*/ melt_assertmsg("putupl #160 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V503*/ meltfptr[502]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #160 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V503*/ meltfptr[502])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V503*/ meltfptr[502]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V503*/ meltfptr[502]); MELT_LOCATION("warmelt-macro.melt:593:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_407__CLASS_SOURCE_SETQ @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V501*/ meltfptr[500])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_407__CLASS_SOURCE_SETQ @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V501*/ meltfptr[500])))); ((meltobject_ptr_t)(/*_._VALDATA___V501*/ meltfptr[500]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V503*/ meltfptr[502]); MELT_LOCATION("warmelt-macro.melt:593:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_413__SSTQ_VAR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V504*/ meltfptr[503])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_413__SSTQ_VAR @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V504*/ meltfptr[503])))); ((meltobject_ptr_t)(/*_._VALDATA___V504*/ meltfptr[503]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V505*/ meltfptr[504]); MELT_LOCATION("warmelt-macro.melt:593:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_413__SSTQ_VAR @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V504*/ meltfptr[503])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_413__SSTQ_VAR @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V504*/ meltfptr[503])))); ((meltobject_ptr_t)(/*_._VALDATA___V504*/ meltfptr[503]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V501*/ meltfptr[500]); MELT_LOCATION("warmelt-macro.melt:593:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V504*/ meltfptr[503]); MELT_LOCATION("warmelt-macro.melt:593:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V504*/ meltfptr[503], "new static instance"); MELT_LOCATION("warmelt-macro.melt:593:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_417__SSTQ_EXPR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V506*/ meltfptr[505])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_417__SSTQ_EXPR @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V506*/ meltfptr[505])))); ((meltobject_ptr_t)(/*_._VALDATA___V506*/ meltfptr[505]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V507*/ meltfptr[506]); MELT_LOCATION("warmelt-macro.melt:593:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_417__SSTQ_EXPR @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V506*/ meltfptr[505])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_417__SSTQ_EXPR @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V506*/ meltfptr[505])))); ((meltobject_ptr_t)(/*_._VALDATA___V506*/ meltfptr[505]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V501*/ meltfptr[500]); MELT_LOCATION("warmelt-macro.melt:593:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V506*/ meltfptr[505]); MELT_LOCATION("warmelt-macro.melt:593:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V506*/ meltfptr[505], "new static instance"); /*putupl#161*/ melt_assertmsg("putupl #161 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V508*/ meltfptr[507]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #161 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V508*/ meltfptr[507])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V508*/ meltfptr[507]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#162*/ melt_assertmsg("putupl #162 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V508*/ meltfptr[507]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #162 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V508*/ meltfptr[507])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V508*/ meltfptr[507]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#163*/ melt_assertmsg("putupl #163 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V508*/ meltfptr[507]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #163 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V508*/ meltfptr[507])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V508*/ meltfptr[507]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V504*/ meltfptr[503]); /*putupl#164*/ melt_assertmsg("putupl #164 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V508*/ meltfptr[507]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #164 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V508*/ meltfptr[507])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V508*/ meltfptr[507]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V506*/ meltfptr[505]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V508*/ meltfptr[507]); MELT_LOCATION("warmelt-macro.melt:593:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_407__CLASS_SOURCE_SETQ @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V501*/ meltfptr[500])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_407__CLASS_SOURCE_SETQ @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V501*/ meltfptr[500])))); ((meltobject_ptr_t)(/*_._VALDATA___V501*/ meltfptr[500]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V508*/ meltfptr[507]); MELT_LOCATION("warmelt-macro.melt:593:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V501*/ meltfptr[500]); MELT_LOCATION("warmelt-macro.melt:593:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V501*/ meltfptr[500], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_411__SSTQ_VAR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V509*/ meltfptr[508])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_411__SSTQ_VAR @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V509*/ meltfptr[508])))); ((meltobject_ptr_t)(/*_._VALDATA___V509*/ meltfptr[508]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V510*/ meltfptr[509]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V509*/ meltfptr[508]); melt_dbgtrace_written_object (/*_._VALDATA___V509*/ meltfptr[508], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_415__SSTQ_EXPR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V511*/ meltfptr[510])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_415__SSTQ_EXPR @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V511*/ meltfptr[510])))); ((meltobject_ptr_t)(/*_._VALDATA___V511*/ meltfptr[510]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V512*/ meltfptr[511]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V511*/ meltfptr[510]); melt_dbgtrace_written_object (/*_._VALDATA___V511*/ meltfptr[510], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_419__CLASS_SOURCE_COMMENT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V513*/ meltfptr[512])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_419__CLASS_SOURCE_COMMENT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V513*/ meltfptr[512])))); ((meltobject_ptr_t)(/*_._VALDATA___V513*/ meltfptr[512]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V514*/ meltfptr[513]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V513*/ meltfptr[512]); melt_dbgtrace_written_object (/*_._VALDATA___V513*/ meltfptr[512], "new static instance"); MELT_LOCATION("warmelt-macro.melt:602:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_421__CLASS_SOURCE_COMMENT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V515*/ meltfptr[514])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_421__CLASS_SOURCE_COMMENT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V515*/ meltfptr[514])))); ((meltobject_ptr_t)(/*_._VALDATA___V515*/ meltfptr[514]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V516*/ meltfptr[515]); MELT_LOCATION("warmelt-macro.melt:602:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_421__CLASS_SOURCE_COMMENT @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V515*/ meltfptr[514])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_421__CLASS_SOURCE_COMMENT @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V515*/ meltfptr[514])))); ((meltobject_ptr_t)(/*_._VALDATA___V515*/ meltfptr[514]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#165*/ melt_assertmsg("putupl #165 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V517*/ meltfptr[516]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #165 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V517*/ meltfptr[516])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V517*/ meltfptr[516]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#166*/ melt_assertmsg("putupl #166 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V517*/ meltfptr[516]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #166 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V517*/ meltfptr[516])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V517*/ meltfptr[516]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#167*/ melt_assertmsg("putupl #167 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V517*/ meltfptr[516]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #167 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V517*/ meltfptr[516])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V517*/ meltfptr[516]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#168*/ melt_assertmsg("putupl #168 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V517*/ meltfptr[516]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #168 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V517*/ meltfptr[516])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V517*/ meltfptr[516]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V517*/ meltfptr[516]); MELT_LOCATION("warmelt-macro.melt:602:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_421__CLASS_SOURCE_COMMENT @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V515*/ meltfptr[514])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_421__CLASS_SOURCE_COMMENT @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V515*/ meltfptr[514])))); ((meltobject_ptr_t)(/*_._VALDATA___V515*/ meltfptr[514]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V517*/ meltfptr[516]); MELT_LOCATION("warmelt-macro.melt:602:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_427__SCOMM_STR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V518*/ meltfptr[517])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_427__SCOMM_STR @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V518*/ meltfptr[517])))); ((meltobject_ptr_t)(/*_._VALDATA___V518*/ meltfptr[517]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V519*/ meltfptr[518]); MELT_LOCATION("warmelt-macro.melt:602:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_427__SCOMM_STR @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V518*/ meltfptr[517])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_427__SCOMM_STR @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V518*/ meltfptr[517])))); ((meltobject_ptr_t)(/*_._VALDATA___V518*/ meltfptr[517]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V515*/ meltfptr[514]); MELT_LOCATION("warmelt-macro.melt:602:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V518*/ meltfptr[517]); MELT_LOCATION("warmelt-macro.melt:602:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V518*/ meltfptr[517], "new static instance"); /*putupl#169*/ melt_assertmsg("putupl #169 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V520*/ meltfptr[519]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #169 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V520*/ meltfptr[519])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V520*/ meltfptr[519]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#170*/ melt_assertmsg("putupl #170 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V520*/ meltfptr[519]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #170 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V520*/ meltfptr[519])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V520*/ meltfptr[519]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#171*/ melt_assertmsg("putupl #171 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V520*/ meltfptr[519]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #171 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V520*/ meltfptr[519])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V520*/ meltfptr[519]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V518*/ meltfptr[517]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V520*/ meltfptr[519]); MELT_LOCATION("warmelt-macro.melt:602:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_421__CLASS_SOURCE_COMMENT @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V515*/ meltfptr[514])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_421__CLASS_SOURCE_COMMENT @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V515*/ meltfptr[514])))); ((meltobject_ptr_t)(/*_._VALDATA___V515*/ meltfptr[514]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V520*/ meltfptr[519]); MELT_LOCATION("warmelt-macro.melt:602:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V515*/ meltfptr[514]); MELT_LOCATION("warmelt-macro.melt:602:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V515*/ meltfptr[514], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_425__SCOMM_STR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V521*/ meltfptr[520])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_425__SCOMM_STR @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V521*/ meltfptr[520])))); ((meltobject_ptr_t)(/*_._VALDATA___V521*/ meltfptr[520]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V522*/ meltfptr[521]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V521*/ meltfptr[520]); melt_dbgtrace_written_object (/*_._VALDATA___V521*/ meltfptr[520], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_429__CLASS_SOURCE_CODE_STRING @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V523*/ meltfptr[522])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_429__CLASS_SOURCE_CODE_STRING @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V523*/ meltfptr[522])))); ((meltobject_ptr_t)(/*_._VALDATA___V523*/ meltfptr[522]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V524*/ meltfptr[523]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V523*/ meltfptr[522]); melt_dbgtrace_written_object (/*_._VALDATA___V523*/ meltfptr[522], "new static instance"); MELT_LOCATION("warmelt-macro.melt:611:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_431__CLASS_SOURCE_CODE_STRING @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V525*/ meltfptr[524])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_431__CLASS_SOURCE_CODE_STRING @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V525*/ meltfptr[524])))); ((meltobject_ptr_t)(/*_._VALDATA___V525*/ meltfptr[524]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V526*/ meltfptr[525]); MELT_LOCATION("warmelt-macro.melt:611:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_431__CLASS_SOURCE_CODE_STRING @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V525*/ meltfptr[524])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_431__CLASS_SOURCE_CODE_STRING @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V525*/ meltfptr[524])))); ((meltobject_ptr_t)(/*_._VALDATA___V525*/ meltfptr[524]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#172*/ melt_assertmsg("putupl #172 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V527*/ meltfptr[526]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #172 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V527*/ meltfptr[526])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V527*/ meltfptr[526]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#173*/ melt_assertmsg("putupl #173 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V527*/ meltfptr[526]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #173 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V527*/ meltfptr[526])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V527*/ meltfptr[526]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#174*/ melt_assertmsg("putupl #174 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V527*/ meltfptr[526]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #174 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V527*/ meltfptr[526])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V527*/ meltfptr[526]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#175*/ melt_assertmsg("putupl #175 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V527*/ meltfptr[526]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #175 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V527*/ meltfptr[526])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V527*/ meltfptr[526]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V527*/ meltfptr[526]); MELT_LOCATION("warmelt-macro.melt:611:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_431__CLASS_SOURCE_CODE_STRING @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V525*/ meltfptr[524])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_431__CLASS_SOURCE_CODE_STRING @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V525*/ meltfptr[524])))); ((meltobject_ptr_t)(/*_._VALDATA___V525*/ meltfptr[524]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V527*/ meltfptr[526]); MELT_LOCATION("warmelt-macro.melt:611:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_437__SC_CODESTRING @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V528*/ meltfptr[527])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_437__SC_CODESTRING @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V528*/ meltfptr[527])))); ((meltobject_ptr_t)(/*_._VALDATA___V528*/ meltfptr[527]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V529*/ meltfptr[528]); MELT_LOCATION("warmelt-macro.melt:611:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_437__SC_CODESTRING @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V528*/ meltfptr[527])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_437__SC_CODESTRING @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V528*/ meltfptr[527])))); ((meltobject_ptr_t)(/*_._VALDATA___V528*/ meltfptr[527]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V525*/ meltfptr[524]); MELT_LOCATION("warmelt-macro.melt:611:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V528*/ meltfptr[527]); MELT_LOCATION("warmelt-macro.melt:611:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V528*/ meltfptr[527], "new static instance"); /*putupl#176*/ melt_assertmsg("putupl #176 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V530*/ meltfptr[529]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #176 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V530*/ meltfptr[529])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V530*/ meltfptr[529]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#177*/ melt_assertmsg("putupl #177 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V530*/ meltfptr[529]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #177 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V530*/ meltfptr[529])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V530*/ meltfptr[529]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#178*/ melt_assertmsg("putupl #178 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V530*/ meltfptr[529]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #178 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V530*/ meltfptr[529])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V530*/ meltfptr[529]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V528*/ meltfptr[527]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V530*/ meltfptr[529]); MELT_LOCATION("warmelt-macro.melt:611:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_431__CLASS_SOURCE_CODE_STRING @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V525*/ meltfptr[524])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_431__CLASS_SOURCE_CODE_STRING @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V525*/ meltfptr[524])))); ((meltobject_ptr_t)(/*_._VALDATA___V525*/ meltfptr[524]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V530*/ meltfptr[529]); MELT_LOCATION("warmelt-macro.melt:611:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V525*/ meltfptr[524]); MELT_LOCATION("warmelt-macro.melt:611:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V525*/ meltfptr[524], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_435__SC_CODESTRING @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V531*/ meltfptr[530])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_435__SC_CODESTRING @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V531*/ meltfptr[530])))); ((meltobject_ptr_t)(/*_._VALDATA___V531*/ meltfptr[530]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V532*/ meltfptr[531]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V531*/ meltfptr[530]); melt_dbgtrace_written_object (/*_._VALDATA___V531*/ meltfptr[530], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_439__CLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V533*/ meltfptr[532])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_439__CLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V533*/ meltfptr[532])))); ((meltobject_ptr_t)(/*_._VALDATA___V533*/ meltfptr[532]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V534*/ meltfptr[533]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V533*/ meltfptr[532]); melt_dbgtrace_written_object (/*_._VALDATA___V533*/ meltfptr[532], "new static instance"); MELT_LOCATION("warmelt-macro.melt:619:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_441__CLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V535*/ meltfptr[534])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_441__CLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V535*/ meltfptr[534])))); ((meltobject_ptr_t)(/*_._VALDATA___V535*/ meltfptr[534]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V536*/ meltfptr[535]); MELT_LOCATION("warmelt-macro.melt:619:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_441__CLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V535*/ meltfptr[534])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_441__CLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V535*/ meltfptr[534])))); ((meltobject_ptr_t)(/*_._VALDATA___V535*/ meltfptr[534]))->obj_vartab[4] = (melt_ptr_t)( /*_._VALDATA___V525*/ meltfptr[524]); /*putupl#179*/ melt_assertmsg("putupl #179 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V537*/ meltfptr[536]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #179 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V537*/ meltfptr[536])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V537*/ meltfptr[536]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#180*/ melt_assertmsg("putupl #180 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V537*/ meltfptr[536]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #180 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V537*/ meltfptr[536])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V537*/ meltfptr[536]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#181*/ melt_assertmsg("putupl #181 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V537*/ meltfptr[536]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #181 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V537*/ meltfptr[536])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V537*/ meltfptr[536]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#182*/ melt_assertmsg("putupl #182 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V537*/ meltfptr[536]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #182 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V537*/ meltfptr[536])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V537*/ meltfptr[536]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#183*/ melt_assertmsg("putupl #183 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V537*/ meltfptr[536]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #183 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V537*/ meltfptr[536])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V537*/ meltfptr[536]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V525*/ meltfptr[524]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V537*/ meltfptr[536]); #undef meltfram__ } /*end of meltmod__WARMELTmiMACRO__initialmeltchunk_8*/ void meltmod__WARMELTmiMACRO__initialmeltchunk_9 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; MELT_LOCATION("warmelt-macro.melt:619:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_441__CLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V535*/ meltfptr[534])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_441__CLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V535*/ meltfptr[534])))); ((meltobject_ptr_t)(/*_._VALDATA___V535*/ meltfptr[534]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V537*/ meltfptr[536]); /*putupl#184*/ melt_assertmsg("putupl #184 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V538*/ meltfptr[537]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #184 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V538*/ meltfptr[537])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V538*/ meltfptr[537]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#185*/ melt_assertmsg("putupl #185 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V538*/ meltfptr[537]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #185 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V538*/ meltfptr[537])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V538*/ meltfptr[537]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#186*/ melt_assertmsg("putupl #186 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V538*/ meltfptr[537]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #186 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V538*/ meltfptr[537])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V538*/ meltfptr[537]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V528*/ meltfptr[527]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V538*/ meltfptr[537]); MELT_LOCATION("warmelt-macro.melt:619:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_441__CLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V535*/ meltfptr[534])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_441__CLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V535*/ meltfptr[534])))); ((meltobject_ptr_t)(/*_._VALDATA___V535*/ meltfptr[534]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V538*/ meltfptr[537]); MELT_LOCATION("warmelt-macro.melt:619:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V535*/ meltfptr[534]); MELT_LOCATION("warmelt-macro.melt:619:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V535*/ meltfptr[534], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_445__CLASS_SOURCE_CHEADER @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V539*/ meltfptr[538])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_445__CLASS_SOURCE_CHEADER @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V539*/ meltfptr[538])))); ((meltobject_ptr_t)(/*_._VALDATA___V539*/ meltfptr[538]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V540*/ meltfptr[539]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V539*/ meltfptr[538]); melt_dbgtrace_written_object (/*_._VALDATA___V539*/ meltfptr[538], "new static instance"); MELT_LOCATION("warmelt-macro.melt:627:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_447__CLASS_SOURCE_CHEADER @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V541*/ meltfptr[540])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_447__CLASS_SOURCE_CHEADER @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V541*/ meltfptr[540])))); ((meltobject_ptr_t)(/*_._VALDATA___V541*/ meltfptr[540]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V542*/ meltfptr[541]); MELT_LOCATION("warmelt-macro.melt:627:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_447__CLASS_SOURCE_CHEADER @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V541*/ meltfptr[540])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_447__CLASS_SOURCE_CHEADER @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V541*/ meltfptr[540])))); ((meltobject_ptr_t)(/*_._VALDATA___V541*/ meltfptr[540]))->obj_vartab[4] = (melt_ptr_t)( /*_._VALDATA___V525*/ meltfptr[524]); /*putupl#187*/ melt_assertmsg("putupl #187 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V543*/ meltfptr[542]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #187 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V543*/ meltfptr[542])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V543*/ meltfptr[542]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#188*/ melt_assertmsg("putupl #188 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V543*/ meltfptr[542]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #188 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V543*/ meltfptr[542])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V543*/ meltfptr[542]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#189*/ melt_assertmsg("putupl #189 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V543*/ meltfptr[542]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #189 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V543*/ meltfptr[542])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V543*/ meltfptr[542]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#190*/ melt_assertmsg("putupl #190 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V543*/ meltfptr[542]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #190 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V543*/ meltfptr[542])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V543*/ meltfptr[542]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#191*/ melt_assertmsg("putupl #191 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V543*/ meltfptr[542]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #191 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V543*/ meltfptr[542])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V543*/ meltfptr[542]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V525*/ meltfptr[524]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V543*/ meltfptr[542]); MELT_LOCATION("warmelt-macro.melt:627:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_447__CLASS_SOURCE_CHEADER @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V541*/ meltfptr[540])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_447__CLASS_SOURCE_CHEADER @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V541*/ meltfptr[540])))); ((meltobject_ptr_t)(/*_._VALDATA___V541*/ meltfptr[540]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V543*/ meltfptr[542]); /*putupl#192*/ melt_assertmsg("putupl #192 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V544*/ meltfptr[543]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #192 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V544*/ meltfptr[543])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V544*/ meltfptr[543]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#193*/ melt_assertmsg("putupl #193 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V544*/ meltfptr[543]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #193 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V544*/ meltfptr[543])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V544*/ meltfptr[543]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#194*/ melt_assertmsg("putupl #194 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V544*/ meltfptr[543]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #194 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V544*/ meltfptr[543])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V544*/ meltfptr[543]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V528*/ meltfptr[527]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V544*/ meltfptr[543]); MELT_LOCATION("warmelt-macro.melt:627:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_447__CLASS_SOURCE_CHEADER @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V541*/ meltfptr[540])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_447__CLASS_SOURCE_CHEADER @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V541*/ meltfptr[540])))); ((meltobject_ptr_t)(/*_._VALDATA___V541*/ meltfptr[540]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V544*/ meltfptr[543]); MELT_LOCATION("warmelt-macro.melt:627:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V541*/ meltfptr[540]); MELT_LOCATION("warmelt-macro.melt:627:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V541*/ meltfptr[540], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_451__CLASS_SOURCE_CIMPLEMENT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V545*/ meltfptr[544])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_451__CLASS_SOURCE_CIMPLEMENT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V545*/ meltfptr[544])))); ((meltobject_ptr_t)(/*_._VALDATA___V545*/ meltfptr[544]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V546*/ meltfptr[545]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V545*/ meltfptr[544]); melt_dbgtrace_written_object (/*_._VALDATA___V545*/ meltfptr[544], "new static instance"); MELT_LOCATION("warmelt-macro.melt:635:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_453__CLASS_SOURCE_CIMPLEMENT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V547*/ meltfptr[546])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_453__CLASS_SOURCE_CIMPLEMENT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V547*/ meltfptr[546])))); ((meltobject_ptr_t)(/*_._VALDATA___V547*/ meltfptr[546]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V548*/ meltfptr[547]); MELT_LOCATION("warmelt-macro.melt:635:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_453__CLASS_SOURCE_CIMPLEMENT @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V547*/ meltfptr[546])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_453__CLASS_SOURCE_CIMPLEMENT @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V547*/ meltfptr[546])))); ((meltobject_ptr_t)(/*_._VALDATA___V547*/ meltfptr[546]))->obj_vartab[4] = (melt_ptr_t)( /*_._VALDATA___V525*/ meltfptr[524]); /*putupl#195*/ melt_assertmsg("putupl #195 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V549*/ meltfptr[548]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #195 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V549*/ meltfptr[548])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V549*/ meltfptr[548]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#196*/ melt_assertmsg("putupl #196 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V549*/ meltfptr[548]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #196 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V549*/ meltfptr[548])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V549*/ meltfptr[548]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#197*/ melt_assertmsg("putupl #197 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V549*/ meltfptr[548]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #197 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V549*/ meltfptr[548])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V549*/ meltfptr[548]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#198*/ melt_assertmsg("putupl #198 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V549*/ meltfptr[548]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #198 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V549*/ meltfptr[548])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V549*/ meltfptr[548]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#199*/ melt_assertmsg("putupl #199 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V549*/ meltfptr[548]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #199 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V549*/ meltfptr[548])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V549*/ meltfptr[548]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V525*/ meltfptr[524]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V549*/ meltfptr[548]); MELT_LOCATION("warmelt-macro.melt:635:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_453__CLASS_SOURCE_CIMPLEMENT @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V547*/ meltfptr[546])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_453__CLASS_SOURCE_CIMPLEMENT @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V547*/ meltfptr[546])))); ((meltobject_ptr_t)(/*_._VALDATA___V547*/ meltfptr[546]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V549*/ meltfptr[548]); /*putupl#200*/ melt_assertmsg("putupl #200 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V550*/ meltfptr[549]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #200 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V550*/ meltfptr[549])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V550*/ meltfptr[549]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#201*/ melt_assertmsg("putupl #201 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V550*/ meltfptr[549]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #201 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V550*/ meltfptr[549])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V550*/ meltfptr[549]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#202*/ melt_assertmsg("putupl #202 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V550*/ meltfptr[549]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #202 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V550*/ meltfptr[549])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V550*/ meltfptr[549]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V528*/ meltfptr[527]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V550*/ meltfptr[549]); MELT_LOCATION("warmelt-macro.melt:635:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_453__CLASS_SOURCE_CIMPLEMENT @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V547*/ meltfptr[546])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_453__CLASS_SOURCE_CIMPLEMENT @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V547*/ meltfptr[546])))); ((meltobject_ptr_t)(/*_._VALDATA___V547*/ meltfptr[546]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V550*/ meltfptr[549]); MELT_LOCATION("warmelt-macro.melt:635:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V547*/ meltfptr[546]); MELT_LOCATION("warmelt-macro.melt:635:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V547*/ meltfptr[546], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_457__CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V551*/ meltfptr[550])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_457__CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V551*/ meltfptr[550])))); ((meltobject_ptr_t)(/*_._VALDATA___V551*/ meltfptr[550]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V552*/ meltfptr[551]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V551*/ meltfptr[550]); melt_dbgtrace_written_object (/*_._VALDATA___V551*/ meltfptr[550], "new static instance"); MELT_LOCATION("warmelt-macro.melt:645:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_459__CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V553*/ meltfptr[552])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_459__CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V553*/ meltfptr[552])))); ((meltobject_ptr_t)(/*_._VALDATA___V553*/ meltfptr[552]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V554*/ meltfptr[553]); MELT_LOCATION("warmelt-macro.melt:645:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_459__CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V553*/ meltfptr[552])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_459__CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V553*/ meltfptr[552])))); ((meltobject_ptr_t)(/*_._VALDATA___V553*/ meltfptr[552]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#203*/ melt_assertmsg("putupl #203 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V555*/ meltfptr[554]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #203 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V555*/ meltfptr[554])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V555*/ meltfptr[554]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#204*/ melt_assertmsg("putupl #204 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V555*/ meltfptr[554]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #204 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V555*/ meltfptr[554])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V555*/ meltfptr[554]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#205*/ melt_assertmsg("putupl #205 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V555*/ meltfptr[554]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #205 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V555*/ meltfptr[554])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V555*/ meltfptr[554]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#206*/ melt_assertmsg("putupl #206 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V555*/ meltfptr[554]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #206 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V555*/ meltfptr[554])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V555*/ meltfptr[554]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V555*/ meltfptr[554]); MELT_LOCATION("warmelt-macro.melt:645:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_459__CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V553*/ meltfptr[552])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_459__CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V553*/ meltfptr[552])))); ((meltobject_ptr_t)(/*_._VALDATA___V553*/ meltfptr[552]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V555*/ meltfptr[554]); MELT_LOCATION("warmelt-macro.melt:645:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_465__SUSEPACKAGE_PKGTUPLE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V556*/ meltfptr[555])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_465__SUSEPACKAGE_PKGTUPLE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V556*/ meltfptr[555])))); ((meltobject_ptr_t)(/*_._VALDATA___V556*/ meltfptr[555]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V557*/ meltfptr[556]); MELT_LOCATION("warmelt-macro.melt:645:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_465__SUSEPACKAGE_PKGTUPLE @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V556*/ meltfptr[555])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_465__SUSEPACKAGE_PKGTUPLE @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V556*/ meltfptr[555])))); ((meltobject_ptr_t)(/*_._VALDATA___V556*/ meltfptr[555]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V553*/ meltfptr[552]); MELT_LOCATION("warmelt-macro.melt:645:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V556*/ meltfptr[555]); MELT_LOCATION("warmelt-macro.melt:645:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V556*/ meltfptr[555], "new static instance"); /*putupl#207*/ melt_assertmsg("putupl #207 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V558*/ meltfptr[557]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #207 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V558*/ meltfptr[557])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V558*/ meltfptr[557]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#208*/ melt_assertmsg("putupl #208 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V558*/ meltfptr[557]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #208 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V558*/ meltfptr[557])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V558*/ meltfptr[557]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#209*/ melt_assertmsg("putupl #209 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V558*/ meltfptr[557]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #209 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V558*/ meltfptr[557])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V558*/ meltfptr[557]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V556*/ meltfptr[555]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V558*/ meltfptr[557]); MELT_LOCATION("warmelt-macro.melt:645:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_459__CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V553*/ meltfptr[552])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_459__CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V553*/ meltfptr[552])))); ((meltobject_ptr_t)(/*_._VALDATA___V553*/ meltfptr[552]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V558*/ meltfptr[557]); MELT_LOCATION("warmelt-macro.melt:645:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V553*/ meltfptr[552]); MELT_LOCATION("warmelt-macro.melt:645:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V553*/ meltfptr[552], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_463__SUSEPACKAGE_PKGTUPLE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V559*/ meltfptr[558])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_463__SUSEPACKAGE_PKGTUPLE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V559*/ meltfptr[558])))); ((meltobject_ptr_t)(/*_._VALDATA___V559*/ meltfptr[558]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V560*/ meltfptr[559]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V559*/ meltfptr[558]); melt_dbgtrace_written_object (/*_._VALDATA___V559*/ meltfptr[558], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_467__CLASS_SOURCE_QUOTE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V561*/ meltfptr[560])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_467__CLASS_SOURCE_QUOTE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V561*/ meltfptr[560])))); ((meltobject_ptr_t)(/*_._VALDATA___V561*/ meltfptr[560]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V562*/ meltfptr[561]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V561*/ meltfptr[560]); melt_dbgtrace_written_object (/*_._VALDATA___V561*/ meltfptr[560], "new static instance"); MELT_LOCATION("warmelt-macro.melt:655:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_469__CLASS_SOURCE_QUOTE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V563*/ meltfptr[562])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_469__CLASS_SOURCE_QUOTE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V563*/ meltfptr[562])))); ((meltobject_ptr_t)(/*_._VALDATA___V563*/ meltfptr[562]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V564*/ meltfptr[563]); MELT_LOCATION("warmelt-macro.melt:655:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_469__CLASS_SOURCE_QUOTE @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V563*/ meltfptr[562])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_469__CLASS_SOURCE_QUOTE @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V563*/ meltfptr[562])))); ((meltobject_ptr_t)(/*_._VALDATA___V563*/ meltfptr[562]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#210*/ melt_assertmsg("putupl #210 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V565*/ meltfptr[564]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #210 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V565*/ meltfptr[564])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V565*/ meltfptr[564]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#211*/ melt_assertmsg("putupl #211 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V565*/ meltfptr[564]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #211 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V565*/ meltfptr[564])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V565*/ meltfptr[564]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#212*/ melt_assertmsg("putupl #212 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V565*/ meltfptr[564]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #212 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V565*/ meltfptr[564])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V565*/ meltfptr[564]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#213*/ melt_assertmsg("putupl #213 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V565*/ meltfptr[564]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #213 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V565*/ meltfptr[564])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V565*/ meltfptr[564]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V565*/ meltfptr[564]); MELT_LOCATION("warmelt-macro.melt:655:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_469__CLASS_SOURCE_QUOTE @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V563*/ meltfptr[562])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_469__CLASS_SOURCE_QUOTE @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V563*/ meltfptr[562])))); ((meltobject_ptr_t)(/*_._VALDATA___V563*/ meltfptr[562]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V565*/ meltfptr[564]); MELT_LOCATION("warmelt-macro.melt:655:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_475__SQUOTED @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V566*/ meltfptr[565])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_475__SQUOTED @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V566*/ meltfptr[565])))); ((meltobject_ptr_t)(/*_._VALDATA___V566*/ meltfptr[565]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V567*/ meltfptr[566]); MELT_LOCATION("warmelt-macro.melt:655:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_475__SQUOTED @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V566*/ meltfptr[565])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_475__SQUOTED @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V566*/ meltfptr[565])))); ((meltobject_ptr_t)(/*_._VALDATA___V566*/ meltfptr[565]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V563*/ meltfptr[562]); MELT_LOCATION("warmelt-macro.melt:655:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V566*/ meltfptr[565]); MELT_LOCATION("warmelt-macro.melt:655:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V566*/ meltfptr[565], "new static instance"); /*putupl#214*/ melt_assertmsg("putupl #214 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V568*/ meltfptr[567]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #214 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V568*/ meltfptr[567])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V568*/ meltfptr[567]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#215*/ melt_assertmsg("putupl #215 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V568*/ meltfptr[567]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #215 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V568*/ meltfptr[567])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V568*/ meltfptr[567]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#216*/ melt_assertmsg("putupl #216 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V568*/ meltfptr[567]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #216 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V568*/ meltfptr[567])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V568*/ meltfptr[567]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V566*/ meltfptr[565]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V568*/ meltfptr[567]); MELT_LOCATION("warmelt-macro.melt:655:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_469__CLASS_SOURCE_QUOTE @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V563*/ meltfptr[562])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_469__CLASS_SOURCE_QUOTE @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V563*/ meltfptr[562])))); ((meltobject_ptr_t)(/*_._VALDATA___V563*/ meltfptr[562]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V568*/ meltfptr[567]); MELT_LOCATION("warmelt-macro.melt:655:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V563*/ meltfptr[562]); MELT_LOCATION("warmelt-macro.melt:655:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V563*/ meltfptr[562], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_473__SQUOTED @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V569*/ meltfptr[568])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_473__SQUOTED @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V569*/ meltfptr[568])))); ((meltobject_ptr_t)(/*_._VALDATA___V569*/ meltfptr[568]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V570*/ meltfptr[569]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V569*/ meltfptr[568]); melt_dbgtrace_written_object (/*_._VALDATA___V569*/ meltfptr[568], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_477__CLASS_SOURCE_QUASI_BOX @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V571*/ meltfptr[570])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_477__CLASS_SOURCE_QUASI_BOX @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V571*/ meltfptr[570])))); ((meltobject_ptr_t)(/*_._VALDATA___V571*/ meltfptr[570]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V572*/ meltfptr[571]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V571*/ meltfptr[570]); melt_dbgtrace_written_object (/*_._VALDATA___V571*/ meltfptr[570], "new static instance"); MELT_LOCATION("warmelt-macro.melt:662:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_479__CLASS_SOURCE_QUASI_BOX @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V573*/ meltfptr[572])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_479__CLASS_SOURCE_QUASI_BOX @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V573*/ meltfptr[572])))); ((meltobject_ptr_t)(/*_._VALDATA___V573*/ meltfptr[572]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V574*/ meltfptr[573]); MELT_LOCATION("warmelt-macro.melt:662:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_479__CLASS_SOURCE_QUASI_BOX @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V573*/ meltfptr[572])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_479__CLASS_SOURCE_QUASI_BOX @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V573*/ meltfptr[572])))); ((meltobject_ptr_t)(/*_._VALDATA___V573*/ meltfptr[572]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#217*/ melt_assertmsg("putupl #217 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V575*/ meltfptr[574]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #217 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V575*/ meltfptr[574])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V575*/ meltfptr[574]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#218*/ melt_assertmsg("putupl #218 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V575*/ meltfptr[574]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #218 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V575*/ meltfptr[574])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V575*/ meltfptr[574]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#219*/ melt_assertmsg("putupl #219 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V575*/ meltfptr[574]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #219 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V575*/ meltfptr[574])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V575*/ meltfptr[574]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#220*/ melt_assertmsg("putupl #220 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V575*/ meltfptr[574]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #220 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V575*/ meltfptr[574])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V575*/ meltfptr[574]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V575*/ meltfptr[574]); MELT_LOCATION("warmelt-macro.melt:662:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_479__CLASS_SOURCE_QUASI_BOX @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V573*/ meltfptr[572])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_479__CLASS_SOURCE_QUASI_BOX @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V573*/ meltfptr[572])))); ((meltobject_ptr_t)(/*_._VALDATA___V573*/ meltfptr[572]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V575*/ meltfptr[574]); MELT_LOCATION("warmelt-macro.melt:662:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_485__SBOXED @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V576*/ meltfptr[575])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_485__SBOXED @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V576*/ meltfptr[575])))); ((meltobject_ptr_t)(/*_._VALDATA___V576*/ meltfptr[575]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V577*/ meltfptr[576]); MELT_LOCATION("warmelt-macro.melt:662:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_485__SBOXED @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V576*/ meltfptr[575])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_485__SBOXED @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V576*/ meltfptr[575])))); ((meltobject_ptr_t)(/*_._VALDATA___V576*/ meltfptr[575]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V573*/ meltfptr[572]); MELT_LOCATION("warmelt-macro.melt:662:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V576*/ meltfptr[575]); MELT_LOCATION("warmelt-macro.melt:662:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V576*/ meltfptr[575], "new static instance"); /*putupl#221*/ melt_assertmsg("putupl #221 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V578*/ meltfptr[577]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #221 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V578*/ meltfptr[577])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V578*/ meltfptr[577]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#222*/ melt_assertmsg("putupl #222 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V578*/ meltfptr[577]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #222 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V578*/ meltfptr[577])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V578*/ meltfptr[577]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#223*/ melt_assertmsg("putupl #223 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V578*/ meltfptr[577]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #223 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V578*/ meltfptr[577])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V578*/ meltfptr[577]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V576*/ meltfptr[575]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V578*/ meltfptr[577]); MELT_LOCATION("warmelt-macro.melt:662:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_479__CLASS_SOURCE_QUASI_BOX @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V573*/ meltfptr[572])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_479__CLASS_SOURCE_QUASI_BOX @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V573*/ meltfptr[572])))); ((meltobject_ptr_t)(/*_._VALDATA___V573*/ meltfptr[572]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V578*/ meltfptr[577]); MELT_LOCATION("warmelt-macro.melt:662:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V573*/ meltfptr[572]); MELT_LOCATION("warmelt-macro.melt:662:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V573*/ meltfptr[572], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_483__SBOXED @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V579*/ meltfptr[578])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_483__SBOXED @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V579*/ meltfptr[578])))); ((meltobject_ptr_t)(/*_._VALDATA___V579*/ meltfptr[578]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V580*/ meltfptr[579]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V579*/ meltfptr[578]); melt_dbgtrace_written_object (/*_._VALDATA___V579*/ meltfptr[578], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_487__CLASS_SOURCE_BOX @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V581*/ meltfptr[580])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_487__CLASS_SOURCE_BOX @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V581*/ meltfptr[580])))); ((meltobject_ptr_t)(/*_._VALDATA___V581*/ meltfptr[580]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V582*/ meltfptr[581]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V581*/ meltfptr[580]); melt_dbgtrace_written_object (/*_._VALDATA___V581*/ meltfptr[580], "new static instance"); MELT_LOCATION("warmelt-macro.melt:668:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_489__CLASS_SOURCE_BOX @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V583*/ meltfptr[582])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_489__CLASS_SOURCE_BOX @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V583*/ meltfptr[582])))); ((meltobject_ptr_t)(/*_._VALDATA___V583*/ meltfptr[582]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V584*/ meltfptr[583]); MELT_LOCATION("warmelt-macro.melt:668:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_489__CLASS_SOURCE_BOX @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V583*/ meltfptr[582])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_489__CLASS_SOURCE_BOX @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V583*/ meltfptr[582])))); ((meltobject_ptr_t)(/*_._VALDATA___V583*/ meltfptr[582]))->obj_vartab[4] = (melt_ptr_t)( /*_._VALDATA___V573*/ meltfptr[572]); /*putupl#224*/ melt_assertmsg("putupl #224 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V585*/ meltfptr[584]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #224 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V585*/ meltfptr[584])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V585*/ meltfptr[584]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#225*/ melt_assertmsg("putupl #225 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V585*/ meltfptr[584]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #225 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V585*/ meltfptr[584])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V585*/ meltfptr[584]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); #undef meltfram__ } /*end of meltmod__WARMELTmiMACRO__initialmeltchunk_9*/ void meltmod__WARMELTmiMACRO__initialmeltchunk_10 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; /*putupl#226*/ melt_assertmsg("putupl #226 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V585*/ meltfptr[584]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #226 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V585*/ meltfptr[584])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V585*/ meltfptr[584]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#227*/ melt_assertmsg("putupl #227 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V585*/ meltfptr[584]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #227 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V585*/ meltfptr[584])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V585*/ meltfptr[584]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#228*/ melt_assertmsg("putupl #228 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V585*/ meltfptr[584]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #228 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V585*/ meltfptr[584])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V585*/ meltfptr[584]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V573*/ meltfptr[572]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V585*/ meltfptr[584]); MELT_LOCATION("warmelt-macro.melt:668:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_489__CLASS_SOURCE_BOX @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V583*/ meltfptr[582])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_489__CLASS_SOURCE_BOX @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V583*/ meltfptr[582])))); ((meltobject_ptr_t)(/*_._VALDATA___V583*/ meltfptr[582]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V585*/ meltfptr[584]); /*putupl#229*/ melt_assertmsg("putupl #229 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V586*/ meltfptr[585]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #229 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V586*/ meltfptr[585])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V586*/ meltfptr[585]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#230*/ melt_assertmsg("putupl #230 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V586*/ meltfptr[585]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #230 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V586*/ meltfptr[585])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V586*/ meltfptr[585]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#231*/ melt_assertmsg("putupl #231 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V586*/ meltfptr[585]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #231 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V586*/ meltfptr[585])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V586*/ meltfptr[585]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V576*/ meltfptr[575]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V586*/ meltfptr[585]); MELT_LOCATION("warmelt-macro.melt:668:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_489__CLASS_SOURCE_BOX @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V583*/ meltfptr[582])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_489__CLASS_SOURCE_BOX @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V583*/ meltfptr[582])))); ((meltobject_ptr_t)(/*_._VALDATA___V583*/ meltfptr[582]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V586*/ meltfptr[585]); MELT_LOCATION("warmelt-macro.melt:668:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V583*/ meltfptr[582]); MELT_LOCATION("warmelt-macro.melt:668:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V583*/ meltfptr[582], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_493__CLASS_SOURCE_CONSTANT_BOX @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V587*/ meltfptr[586])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_493__CLASS_SOURCE_CONSTANT_BOX @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V587*/ meltfptr[586])))); ((meltobject_ptr_t)(/*_._VALDATA___V587*/ meltfptr[586]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V588*/ meltfptr[587]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V587*/ meltfptr[586]); melt_dbgtrace_written_object (/*_._VALDATA___V587*/ meltfptr[586], "new static instance"); MELT_LOCATION("warmelt-macro.melt:673:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_495__CLASS_SOURCE_CONSTANT_BOX @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V589*/ meltfptr[588])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_495__CLASS_SOURCE_CONSTANT_BOX @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V589*/ meltfptr[588])))); ((meltobject_ptr_t)(/*_._VALDATA___V589*/ meltfptr[588]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V590*/ meltfptr[589]); MELT_LOCATION("warmelt-macro.melt:673:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_495__CLASS_SOURCE_CONSTANT_BOX @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V589*/ meltfptr[588])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_495__CLASS_SOURCE_CONSTANT_BOX @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V589*/ meltfptr[588])))); ((meltobject_ptr_t)(/*_._VALDATA___V589*/ meltfptr[588]))->obj_vartab[4] = (melt_ptr_t)( /*_._VALDATA___V573*/ meltfptr[572]); /*putupl#232*/ melt_assertmsg("putupl #232 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V591*/ meltfptr[590]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #232 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V591*/ meltfptr[590])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V591*/ meltfptr[590]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#233*/ melt_assertmsg("putupl #233 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V591*/ meltfptr[590]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #233 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V591*/ meltfptr[590])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V591*/ meltfptr[590]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#234*/ melt_assertmsg("putupl #234 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V591*/ meltfptr[590]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #234 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V591*/ meltfptr[590])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V591*/ meltfptr[590]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#235*/ melt_assertmsg("putupl #235 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V591*/ meltfptr[590]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #235 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V591*/ meltfptr[590])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V591*/ meltfptr[590]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#236*/ melt_assertmsg("putupl #236 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V591*/ meltfptr[590]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #236 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V591*/ meltfptr[590])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V591*/ meltfptr[590]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V573*/ meltfptr[572]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V591*/ meltfptr[590]); MELT_LOCATION("warmelt-macro.melt:673:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_495__CLASS_SOURCE_CONSTANT_BOX @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V589*/ meltfptr[588])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_495__CLASS_SOURCE_CONSTANT_BOX @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V589*/ meltfptr[588])))); ((meltobject_ptr_t)(/*_._VALDATA___V589*/ meltfptr[588]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V591*/ meltfptr[590]); /*putupl#237*/ melt_assertmsg("putupl #237 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V592*/ meltfptr[591]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #237 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V592*/ meltfptr[591])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V592*/ meltfptr[591]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#238*/ melt_assertmsg("putupl #238 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V592*/ meltfptr[591]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #238 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V592*/ meltfptr[591])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V592*/ meltfptr[591]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#239*/ melt_assertmsg("putupl #239 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V592*/ meltfptr[591]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #239 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V592*/ meltfptr[591])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V592*/ meltfptr[591]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V576*/ meltfptr[575]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V592*/ meltfptr[591]); MELT_LOCATION("warmelt-macro.melt:673:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_495__CLASS_SOURCE_CONSTANT_BOX @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V589*/ meltfptr[588])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_495__CLASS_SOURCE_CONSTANT_BOX @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V589*/ meltfptr[588])))); ((meltobject_ptr_t)(/*_._VALDATA___V589*/ meltfptr[588]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V592*/ meltfptr[591]); MELT_LOCATION("warmelt-macro.melt:673:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V589*/ meltfptr[588]); MELT_LOCATION("warmelt-macro.melt:673:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V589*/ meltfptr[588], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_499__CLASS_SOURCE_UNBOX @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V593*/ meltfptr[592])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_499__CLASS_SOURCE_UNBOX @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V593*/ meltfptr[592])))); ((meltobject_ptr_t)(/*_._VALDATA___V593*/ meltfptr[592]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V594*/ meltfptr[593]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V593*/ meltfptr[592]); melt_dbgtrace_written_object (/*_._VALDATA___V593*/ meltfptr[592], "new static instance"); MELT_LOCATION("warmelt-macro.melt:680:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_501__CLASS_SOURCE_UNBOX @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V595*/ meltfptr[594])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_501__CLASS_SOURCE_UNBOX @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V595*/ meltfptr[594])))); ((meltobject_ptr_t)(/*_._VALDATA___V595*/ meltfptr[594]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V596*/ meltfptr[595]); MELT_LOCATION("warmelt-macro.melt:680:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_501__CLASS_SOURCE_UNBOX @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V595*/ meltfptr[594])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_501__CLASS_SOURCE_UNBOX @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V595*/ meltfptr[594])))); ((meltobject_ptr_t)(/*_._VALDATA___V595*/ meltfptr[594]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#240*/ melt_assertmsg("putupl #240 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V597*/ meltfptr[596]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #240 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V597*/ meltfptr[596])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V597*/ meltfptr[596]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#241*/ melt_assertmsg("putupl #241 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V597*/ meltfptr[596]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #241 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V597*/ meltfptr[596])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V597*/ meltfptr[596]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#242*/ melt_assertmsg("putupl #242 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V597*/ meltfptr[596]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #242 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V597*/ meltfptr[596])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V597*/ meltfptr[596]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#243*/ melt_assertmsg("putupl #243 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V597*/ meltfptr[596]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #243 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V597*/ meltfptr[596])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V597*/ meltfptr[596]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V597*/ meltfptr[596]); MELT_LOCATION("warmelt-macro.melt:680:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_501__CLASS_SOURCE_UNBOX @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V595*/ meltfptr[594])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_501__CLASS_SOURCE_UNBOX @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V595*/ meltfptr[594])))); ((meltobject_ptr_t)(/*_._VALDATA___V595*/ meltfptr[594]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V597*/ meltfptr[596]); MELT_LOCATION("warmelt-macro.melt:680:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_507__SUNBOX_CTYPE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V598*/ meltfptr[597])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_507__SUNBOX_CTYPE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V598*/ meltfptr[597])))); ((meltobject_ptr_t)(/*_._VALDATA___V598*/ meltfptr[597]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V599*/ meltfptr[598]); MELT_LOCATION("warmelt-macro.melt:680:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_507__SUNBOX_CTYPE @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V598*/ meltfptr[597])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_507__SUNBOX_CTYPE @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V598*/ meltfptr[597])))); ((meltobject_ptr_t)(/*_._VALDATA___V598*/ meltfptr[597]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V595*/ meltfptr[594]); MELT_LOCATION("warmelt-macro.melt:680:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V598*/ meltfptr[597]); MELT_LOCATION("warmelt-macro.melt:680:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V598*/ meltfptr[597], "new static instance"); MELT_LOCATION("warmelt-macro.melt:680:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_511__SUNBOX_EXPR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V600*/ meltfptr[599])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_511__SUNBOX_EXPR @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V600*/ meltfptr[599])))); ((meltobject_ptr_t)(/*_._VALDATA___V600*/ meltfptr[599]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V601*/ meltfptr[600]); MELT_LOCATION("warmelt-macro.melt:680:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_511__SUNBOX_EXPR @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V600*/ meltfptr[599])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_511__SUNBOX_EXPR @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V600*/ meltfptr[599])))); ((meltobject_ptr_t)(/*_._VALDATA___V600*/ meltfptr[599]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V595*/ meltfptr[594]); MELT_LOCATION("warmelt-macro.melt:680:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V600*/ meltfptr[599]); MELT_LOCATION("warmelt-macro.melt:680:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V600*/ meltfptr[599], "new static instance"); /*putupl#244*/ melt_assertmsg("putupl #244 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V602*/ meltfptr[601]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #244 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V602*/ meltfptr[601])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V602*/ meltfptr[601]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#245*/ melt_assertmsg("putupl #245 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V602*/ meltfptr[601]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #245 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V602*/ meltfptr[601])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V602*/ meltfptr[601]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#246*/ melt_assertmsg("putupl #246 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V602*/ meltfptr[601]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #246 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V602*/ meltfptr[601])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V602*/ meltfptr[601]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V598*/ meltfptr[597]); /*putupl#247*/ melt_assertmsg("putupl #247 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V602*/ meltfptr[601]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #247 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V602*/ meltfptr[601])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V602*/ meltfptr[601]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V600*/ meltfptr[599]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V602*/ meltfptr[601]); MELT_LOCATION("warmelt-macro.melt:680:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_501__CLASS_SOURCE_UNBOX @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V595*/ meltfptr[594])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_501__CLASS_SOURCE_UNBOX @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V595*/ meltfptr[594])))); ((meltobject_ptr_t)(/*_._VALDATA___V595*/ meltfptr[594]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V602*/ meltfptr[601]); MELT_LOCATION("warmelt-macro.melt:680:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V595*/ meltfptr[594]); MELT_LOCATION("warmelt-macro.melt:680:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V595*/ meltfptr[594], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_505__SUNBOX_CTYPE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V603*/ meltfptr[602])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_505__SUNBOX_CTYPE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V603*/ meltfptr[602])))); ((meltobject_ptr_t)(/*_._VALDATA___V603*/ meltfptr[602]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V604*/ meltfptr[603]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V603*/ meltfptr[602]); melt_dbgtrace_written_object (/*_._VALDATA___V603*/ meltfptr[602], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_509__SUNBOX_EXPR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V605*/ meltfptr[604])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_509__SUNBOX_EXPR @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V605*/ meltfptr[604])))); ((meltobject_ptr_t)(/*_._VALDATA___V605*/ meltfptr[604]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V606*/ meltfptr[605]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V605*/ meltfptr[604]); melt_dbgtrace_written_object (/*_._VALDATA___V605*/ meltfptr[604], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_513__CLASS_SOURCE_EXPORTCOMMON @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V607*/ meltfptr[606])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_513__CLASS_SOURCE_EXPORTCOMMON @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V607*/ meltfptr[606])))); ((meltobject_ptr_t)(/*_._VALDATA___V607*/ meltfptr[606]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V608*/ meltfptr[607]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V607*/ meltfptr[606]); melt_dbgtrace_written_object (/*_._VALDATA___V607*/ meltfptr[606], "new static instance"); MELT_LOCATION("warmelt-macro.melt:693:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_515__CLASS_SOURCE_EXPORTCOMMON @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V609*/ meltfptr[608])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_515__CLASS_SOURCE_EXPORTCOMMON @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V609*/ meltfptr[608])))); ((meltobject_ptr_t)(/*_._VALDATA___V609*/ meltfptr[608]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V610*/ meltfptr[609]); MELT_LOCATION("warmelt-macro.melt:693:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_515__CLASS_SOURCE_EXPORTCOMMON @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V609*/ meltfptr[608])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_515__CLASS_SOURCE_EXPORTCOMMON @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V609*/ meltfptr[608])))); ((meltobject_ptr_t)(/*_._VALDATA___V609*/ meltfptr[608]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#248*/ melt_assertmsg("putupl #248 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V611*/ meltfptr[610]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #248 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V611*/ meltfptr[610])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V611*/ meltfptr[610]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#249*/ melt_assertmsg("putupl #249 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V611*/ meltfptr[610]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #249 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V611*/ meltfptr[610])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V611*/ meltfptr[610]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#250*/ melt_assertmsg("putupl #250 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V611*/ meltfptr[610]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #250 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V611*/ meltfptr[610])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V611*/ meltfptr[610]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#251*/ melt_assertmsg("putupl #251 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V611*/ meltfptr[610]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #251 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V611*/ meltfptr[610])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V611*/ meltfptr[610]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V611*/ meltfptr[610]); MELT_LOCATION("warmelt-macro.melt:693:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_515__CLASS_SOURCE_EXPORTCOMMON @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V609*/ meltfptr[608])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_515__CLASS_SOURCE_EXPORTCOMMON @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V609*/ meltfptr[608])))); ((meltobject_ptr_t)(/*_._VALDATA___V609*/ meltfptr[608]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V611*/ meltfptr[610]); MELT_LOCATION("warmelt-macro.melt:693:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_521__SEXPORT_NAMES @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V612*/ meltfptr[611])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_521__SEXPORT_NAMES @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V612*/ meltfptr[611])))); ((meltobject_ptr_t)(/*_._VALDATA___V612*/ meltfptr[611]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V613*/ meltfptr[612]); MELT_LOCATION("warmelt-macro.melt:693:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_521__SEXPORT_NAMES @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V612*/ meltfptr[611])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_521__SEXPORT_NAMES @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V612*/ meltfptr[611])))); ((meltobject_ptr_t)(/*_._VALDATA___V612*/ meltfptr[611]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V609*/ meltfptr[608]); MELT_LOCATION("warmelt-macro.melt:693:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V612*/ meltfptr[611]); MELT_LOCATION("warmelt-macro.melt:693:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V612*/ meltfptr[611], "new static instance"); /*putupl#252*/ melt_assertmsg("putupl #252 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V614*/ meltfptr[613]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #252 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V614*/ meltfptr[613])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V614*/ meltfptr[613]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#253*/ melt_assertmsg("putupl #253 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V614*/ meltfptr[613]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #253 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V614*/ meltfptr[613])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V614*/ meltfptr[613]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#254*/ melt_assertmsg("putupl #254 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V614*/ meltfptr[613]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #254 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V614*/ meltfptr[613])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V614*/ meltfptr[613]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V612*/ meltfptr[611]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V614*/ meltfptr[613]); MELT_LOCATION("warmelt-macro.melt:693:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_515__CLASS_SOURCE_EXPORTCOMMON @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V609*/ meltfptr[608])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_515__CLASS_SOURCE_EXPORTCOMMON @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V609*/ meltfptr[608])))); ((meltobject_ptr_t)(/*_._VALDATA___V609*/ meltfptr[608]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V614*/ meltfptr[613]); MELT_LOCATION("warmelt-macro.melt:693:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V609*/ meltfptr[608]); MELT_LOCATION("warmelt-macro.melt:693:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V609*/ meltfptr[608], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_519__SEXPORT_NAMES @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V615*/ meltfptr[614])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_519__SEXPORT_NAMES @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V615*/ meltfptr[614])))); ((meltobject_ptr_t)(/*_._VALDATA___V615*/ meltfptr[614]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V616*/ meltfptr[615]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V615*/ meltfptr[614]); melt_dbgtrace_written_object (/*_._VALDATA___V615*/ meltfptr[614], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_523__CLASS_SOURCE_EXPORT_VALUES @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V617*/ meltfptr[616])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_523__CLASS_SOURCE_EXPORT_VALUES @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V617*/ meltfptr[616])))); ((meltobject_ptr_t)(/*_._VALDATA___V617*/ meltfptr[616]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V618*/ meltfptr[617]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V617*/ meltfptr[616]); melt_dbgtrace_written_object (/*_._VALDATA___V617*/ meltfptr[616], "new static instance"); MELT_LOCATION("warmelt-macro.melt:702:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_525__CLASS_SOURCE_EXPORT_VALUES @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V619*/ meltfptr[618])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_525__CLASS_SOURCE_EXPORT_VALUES @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V619*/ meltfptr[618])))); ((meltobject_ptr_t)(/*_._VALDATA___V619*/ meltfptr[618]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V620*/ meltfptr[619]); MELT_LOCATION("warmelt-macro.melt:702:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_525__CLASS_SOURCE_EXPORT_VALUES @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V619*/ meltfptr[618])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_525__CLASS_SOURCE_EXPORT_VALUES @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V619*/ meltfptr[618])))); ((meltobject_ptr_t)(/*_._VALDATA___V619*/ meltfptr[618]))->obj_vartab[4] = (melt_ptr_t)( /*_._VALDATA___V609*/ meltfptr[608]); /*putupl#255*/ melt_assertmsg("putupl #255 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V621*/ meltfptr[620]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #255 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V621*/ meltfptr[620])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V621*/ meltfptr[620]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#256*/ melt_assertmsg("putupl #256 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V621*/ meltfptr[620]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #256 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V621*/ meltfptr[620])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V621*/ meltfptr[620]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#257*/ melt_assertmsg("putupl #257 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V621*/ meltfptr[620]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #257 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V621*/ meltfptr[620])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V621*/ meltfptr[620]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#258*/ melt_assertmsg("putupl #258 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V621*/ meltfptr[620]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #258 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V621*/ meltfptr[620])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V621*/ meltfptr[620]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#259*/ melt_assertmsg("putupl #259 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V621*/ meltfptr[620]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #259 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V621*/ meltfptr[620])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V621*/ meltfptr[620]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V609*/ meltfptr[608]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V621*/ meltfptr[620]); MELT_LOCATION("warmelt-macro.melt:702:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_525__CLASS_SOURCE_EXPORT_VALUES @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V619*/ meltfptr[618])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_525__CLASS_SOURCE_EXPORT_VALUES @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V619*/ meltfptr[618])))); ((meltobject_ptr_t)(/*_._VALDATA___V619*/ meltfptr[618]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V621*/ meltfptr[620]); /*putupl#260*/ melt_assertmsg("putupl #260 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V622*/ meltfptr[621]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #260 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V622*/ meltfptr[621])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V622*/ meltfptr[621]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#261*/ melt_assertmsg("putupl #261 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V622*/ meltfptr[621]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #261 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V622*/ meltfptr[621])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V622*/ meltfptr[621]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#262*/ melt_assertmsg("putupl #262 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V622*/ meltfptr[621]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #262 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V622*/ meltfptr[621])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V622*/ meltfptr[621]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V612*/ meltfptr[611]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V622*/ meltfptr[621]); MELT_LOCATION("warmelt-macro.melt:702:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_525__CLASS_SOURCE_EXPORT_VALUES @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V619*/ meltfptr[618])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_525__CLASS_SOURCE_EXPORT_VALUES @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V619*/ meltfptr[618])))); ((meltobject_ptr_t)(/*_._VALDATA___V619*/ meltfptr[618]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V622*/ meltfptr[621]); MELT_LOCATION("warmelt-macro.melt:702:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V619*/ meltfptr[618]); MELT_LOCATION("warmelt-macro.melt:702:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V619*/ meltfptr[618], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_529__CLASS_SOURCE_EXPORT_CLASS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V623*/ meltfptr[622])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_529__CLASS_SOURCE_EXPORT_CLASS @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V623*/ meltfptr[622])))); ((meltobject_ptr_t)(/*_._VALDATA___V623*/ meltfptr[622]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V624*/ meltfptr[623]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V623*/ meltfptr[622]); melt_dbgtrace_written_object (/*_._VALDATA___V623*/ meltfptr[622], "new static instance"); MELT_LOCATION("warmelt-macro.melt:709:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_531__CLASS_SOURCE_EXPORT_CLASS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V625*/ meltfptr[624])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_531__CLASS_SOURCE_EXPORT_CLASS @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V625*/ meltfptr[624])))); ((meltobject_ptr_t)(/*_._VALDATA___V625*/ meltfptr[624]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V626*/ meltfptr[625]); MELT_LOCATION("warmelt-macro.melt:709:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_531__CLASS_SOURCE_EXPORT_CLASS @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V625*/ meltfptr[624])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_531__CLASS_SOURCE_EXPORT_CLASS @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V625*/ meltfptr[624])))); ((meltobject_ptr_t)(/*_._VALDATA___V625*/ meltfptr[624]))->obj_vartab[4] = (melt_ptr_t)( /*_._VALDATA___V609*/ meltfptr[608]); /*putupl#263*/ melt_assertmsg("putupl #263 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V627*/ meltfptr[626]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #263 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V627*/ meltfptr[626])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V627*/ meltfptr[626]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#264*/ melt_assertmsg("putupl #264 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V627*/ meltfptr[626]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #264 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V627*/ meltfptr[626])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V627*/ meltfptr[626]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#265*/ melt_assertmsg("putupl #265 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V627*/ meltfptr[626]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #265 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V627*/ meltfptr[626])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V627*/ meltfptr[626]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#266*/ melt_assertmsg("putupl #266 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V627*/ meltfptr[626]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #266 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V627*/ meltfptr[626])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V627*/ meltfptr[626]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#267*/ melt_assertmsg("putupl #267 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V627*/ meltfptr[626]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #267 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V627*/ meltfptr[626])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V627*/ meltfptr[626]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V609*/ meltfptr[608]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V627*/ meltfptr[626]); MELT_LOCATION("warmelt-macro.melt:709:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_531__CLASS_SOURCE_EXPORT_CLASS @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V625*/ meltfptr[624])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_531__CLASS_SOURCE_EXPORT_CLASS @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V625*/ meltfptr[624])))); ((meltobject_ptr_t)(/*_._VALDATA___V625*/ meltfptr[624]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V627*/ meltfptr[626]); /*putupl#268*/ melt_assertmsg("putupl #268 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V628*/ meltfptr[627]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #268 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V628*/ meltfptr[627])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V628*/ meltfptr[627]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#269*/ melt_assertmsg("putupl #269 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V628*/ meltfptr[627]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #269 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V628*/ meltfptr[627])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V628*/ meltfptr[627]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#270*/ melt_assertmsg("putupl #270 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V628*/ meltfptr[627]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #270 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V628*/ meltfptr[627])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V628*/ meltfptr[627]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V612*/ meltfptr[611]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V628*/ meltfptr[627]); MELT_LOCATION("warmelt-macro.melt:709:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_531__CLASS_SOURCE_EXPORT_CLASS @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V625*/ meltfptr[624])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_531__CLASS_SOURCE_EXPORT_CLASS @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V625*/ meltfptr[624])))); ((meltobject_ptr_t)(/*_._VALDATA___V625*/ meltfptr[624]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V628*/ meltfptr[627]); MELT_LOCATION("warmelt-macro.melt:709:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V625*/ meltfptr[624]); MELT_LOCATION("warmelt-macro.melt:709:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V625*/ meltfptr[624], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_535__CLASS_SOURCE_EXPORT_ANY_MACRO @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V629*/ meltfptr[628])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_535__CLASS_SOURCE_EXPORT_ANY_MACRO @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V629*/ meltfptr[628])))); ((meltobject_ptr_t)(/*_._VALDATA___V629*/ meltfptr[628]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V630*/ meltfptr[629]); #undef meltfram__ } /*end of meltmod__WARMELTmiMACRO__initialmeltchunk_10*/ void meltmod__WARMELTmiMACRO__initialmeltchunk_11 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V629*/ meltfptr[628]); melt_dbgtrace_written_object (/*_._VALDATA___V629*/ meltfptr[628], "new static instance"); MELT_LOCATION("warmelt-macro.melt:717:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_537__CLASS_SOURCE_EXPORT_ANY_MACRO @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V631*/ meltfptr[630])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_537__CLASS_SOURCE_EXPORT_ANY_MACRO @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V631*/ meltfptr[630])))); ((meltobject_ptr_t)(/*_._VALDATA___V631*/ meltfptr[630]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V632*/ meltfptr[631]); MELT_LOCATION("warmelt-macro.melt:717:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_537__CLASS_SOURCE_EXPORT_ANY_MACRO @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V631*/ meltfptr[630])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_537__CLASS_SOURCE_EXPORT_ANY_MACRO @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V631*/ meltfptr[630])))); ((meltobject_ptr_t)(/*_._VALDATA___V631*/ meltfptr[630]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#271*/ melt_assertmsg("putupl #271 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V633*/ meltfptr[632]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #271 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V633*/ meltfptr[632])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V633*/ meltfptr[632]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#272*/ melt_assertmsg("putupl #272 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V633*/ meltfptr[632]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #272 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V633*/ meltfptr[632])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V633*/ meltfptr[632]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#273*/ melt_assertmsg("putupl #273 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V633*/ meltfptr[632]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #273 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V633*/ meltfptr[632])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V633*/ meltfptr[632]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#274*/ melt_assertmsg("putupl #274 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V633*/ meltfptr[632]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #274 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V633*/ meltfptr[632])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V633*/ meltfptr[632]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V633*/ meltfptr[632]); MELT_LOCATION("warmelt-macro.melt:717:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_537__CLASS_SOURCE_EXPORT_ANY_MACRO @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V631*/ meltfptr[630])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_537__CLASS_SOURCE_EXPORT_ANY_MACRO @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V631*/ meltfptr[630])))); ((meltobject_ptr_t)(/*_._VALDATA___V631*/ meltfptr[630]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V633*/ meltfptr[632]); MELT_LOCATION("warmelt-macro.melt:717:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_543__SEXPMAC_MNAME @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V634*/ meltfptr[633])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_543__SEXPMAC_MNAME @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V634*/ meltfptr[633])))); ((meltobject_ptr_t)(/*_._VALDATA___V634*/ meltfptr[633]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V635*/ meltfptr[634]); MELT_LOCATION("warmelt-macro.melt:717:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_543__SEXPMAC_MNAME @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V634*/ meltfptr[633])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_543__SEXPMAC_MNAME @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V634*/ meltfptr[633])))); ((meltobject_ptr_t)(/*_._VALDATA___V634*/ meltfptr[633]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V631*/ meltfptr[630]); MELT_LOCATION("warmelt-macro.melt:717:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V634*/ meltfptr[633]); MELT_LOCATION("warmelt-macro.melt:717:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V634*/ meltfptr[633], "new static instance"); MELT_LOCATION("warmelt-macro.melt:717:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_547__SEXPMAC_DOC @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V636*/ meltfptr[635])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_547__SEXPMAC_DOC @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V636*/ meltfptr[635])))); ((meltobject_ptr_t)(/*_._VALDATA___V636*/ meltfptr[635]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V637*/ meltfptr[636]); MELT_LOCATION("warmelt-macro.melt:717:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_547__SEXPMAC_DOC @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V636*/ meltfptr[635])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_547__SEXPMAC_DOC @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V636*/ meltfptr[635])))); ((meltobject_ptr_t)(/*_._VALDATA___V636*/ meltfptr[635]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V631*/ meltfptr[630]); MELT_LOCATION("warmelt-macro.melt:717:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V636*/ meltfptr[635]); MELT_LOCATION("warmelt-macro.melt:717:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V636*/ meltfptr[635], "new static instance"); /*putupl#275*/ melt_assertmsg("putupl #275 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V638*/ meltfptr[637]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #275 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V638*/ meltfptr[637])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V638*/ meltfptr[637]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#276*/ melt_assertmsg("putupl #276 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V638*/ meltfptr[637]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #276 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V638*/ meltfptr[637])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V638*/ meltfptr[637]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#277*/ melt_assertmsg("putupl #277 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V638*/ meltfptr[637]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #277 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V638*/ meltfptr[637])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V638*/ meltfptr[637]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V634*/ meltfptr[633]); /*putupl#278*/ melt_assertmsg("putupl #278 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V638*/ meltfptr[637]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #278 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V638*/ meltfptr[637])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V638*/ meltfptr[637]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V636*/ meltfptr[635]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V638*/ meltfptr[637]); MELT_LOCATION("warmelt-macro.melt:717:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_537__CLASS_SOURCE_EXPORT_ANY_MACRO @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V631*/ meltfptr[630])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_537__CLASS_SOURCE_EXPORT_ANY_MACRO @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V631*/ meltfptr[630])))); ((meltobject_ptr_t)(/*_._VALDATA___V631*/ meltfptr[630]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V638*/ meltfptr[637]); MELT_LOCATION("warmelt-macro.melt:717:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V631*/ meltfptr[630]); MELT_LOCATION("warmelt-macro.melt:717:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V631*/ meltfptr[630], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_541__SEXPMAC_MNAME @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V639*/ meltfptr[638])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_541__SEXPMAC_MNAME @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V639*/ meltfptr[638])))); ((meltobject_ptr_t)(/*_._VALDATA___V639*/ meltfptr[638]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V640*/ meltfptr[639]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V639*/ meltfptr[638]); melt_dbgtrace_written_object (/*_._VALDATA___V639*/ meltfptr[638], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_545__SEXPMAC_DOC @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V641*/ meltfptr[640])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_545__SEXPMAC_DOC @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V641*/ meltfptr[640])))); ((meltobject_ptr_t)(/*_._VALDATA___V641*/ meltfptr[640]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V642*/ meltfptr[641]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V641*/ meltfptr[640]); melt_dbgtrace_written_object (/*_._VALDATA___V641*/ meltfptr[640], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_549__CLASS_SOURCE_EXPORT_MACRO @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V643*/ meltfptr[642])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_549__CLASS_SOURCE_EXPORT_MACRO @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V643*/ meltfptr[642])))); ((meltobject_ptr_t)(/*_._VALDATA___V643*/ meltfptr[642]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V644*/ meltfptr[643]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V643*/ meltfptr[642]); melt_dbgtrace_written_object (/*_._VALDATA___V643*/ meltfptr[642], "new static instance"); MELT_LOCATION("warmelt-macro.melt:729:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_551__CLASS_SOURCE_EXPORT_MACRO @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V645*/ meltfptr[644])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_551__CLASS_SOURCE_EXPORT_MACRO @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V645*/ meltfptr[644])))); ((meltobject_ptr_t)(/*_._VALDATA___V645*/ meltfptr[644]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V646*/ meltfptr[645]); MELT_LOCATION("warmelt-macro.melt:729:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_551__CLASS_SOURCE_EXPORT_MACRO @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V645*/ meltfptr[644])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_551__CLASS_SOURCE_EXPORT_MACRO @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V645*/ meltfptr[644])))); ((meltobject_ptr_t)(/*_._VALDATA___V645*/ meltfptr[644]))->obj_vartab[4] = (melt_ptr_t)( /*_._VALDATA___V631*/ meltfptr[630]); /*putupl#279*/ melt_assertmsg("putupl #279 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V647*/ meltfptr[646]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #279 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V647*/ meltfptr[646])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V647*/ meltfptr[646]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#280*/ melt_assertmsg("putupl #280 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V647*/ meltfptr[646]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #280 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V647*/ meltfptr[646])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V647*/ meltfptr[646]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#281*/ melt_assertmsg("putupl #281 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V647*/ meltfptr[646]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #281 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V647*/ meltfptr[646])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V647*/ meltfptr[646]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#282*/ melt_assertmsg("putupl #282 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V647*/ meltfptr[646]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #282 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V647*/ meltfptr[646])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V647*/ meltfptr[646]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#283*/ melt_assertmsg("putupl #283 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V647*/ meltfptr[646]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #283 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V647*/ meltfptr[646])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V647*/ meltfptr[646]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V631*/ meltfptr[630]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V647*/ meltfptr[646]); MELT_LOCATION("warmelt-macro.melt:729:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_551__CLASS_SOURCE_EXPORT_MACRO @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V645*/ meltfptr[644])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_551__CLASS_SOURCE_EXPORT_MACRO @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V645*/ meltfptr[644])))); ((meltobject_ptr_t)(/*_._VALDATA___V645*/ meltfptr[644]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V647*/ meltfptr[646]); MELT_LOCATION("warmelt-macro.melt:729:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_557__SEXPMAC_MVAL @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V648*/ meltfptr[647])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_557__SEXPMAC_MVAL @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V648*/ meltfptr[647])))); ((meltobject_ptr_t)(/*_._VALDATA___V648*/ meltfptr[647]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V649*/ meltfptr[648]); MELT_LOCATION("warmelt-macro.melt:729:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_557__SEXPMAC_MVAL @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V648*/ meltfptr[647])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_557__SEXPMAC_MVAL @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V648*/ meltfptr[647])))); ((meltobject_ptr_t)(/*_._VALDATA___V648*/ meltfptr[647]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V645*/ meltfptr[644]); MELT_LOCATION("warmelt-macro.melt:729:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V648*/ meltfptr[647]); MELT_LOCATION("warmelt-macro.melt:729:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V648*/ meltfptr[647], "new static instance"); /*putupl#284*/ melt_assertmsg("putupl #284 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V650*/ meltfptr[649]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #284 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V650*/ meltfptr[649])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V650*/ meltfptr[649]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#285*/ melt_assertmsg("putupl #285 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V650*/ meltfptr[649]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #285 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V650*/ meltfptr[649])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V650*/ meltfptr[649]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#286*/ melt_assertmsg("putupl #286 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V650*/ meltfptr[649]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #286 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V650*/ meltfptr[649])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V650*/ meltfptr[649]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V634*/ meltfptr[633]); /*putupl#287*/ melt_assertmsg("putupl #287 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V650*/ meltfptr[649]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #287 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V650*/ meltfptr[649])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V650*/ meltfptr[649]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V636*/ meltfptr[635]); /*putupl#288*/ melt_assertmsg("putupl #288 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V650*/ meltfptr[649]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #288 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V650*/ meltfptr[649])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V650*/ meltfptr[649]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V648*/ meltfptr[647]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V650*/ meltfptr[649]); MELT_LOCATION("warmelt-macro.melt:729:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_551__CLASS_SOURCE_EXPORT_MACRO @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V645*/ meltfptr[644])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_551__CLASS_SOURCE_EXPORT_MACRO @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V645*/ meltfptr[644])))); ((meltobject_ptr_t)(/*_._VALDATA___V645*/ meltfptr[644]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V650*/ meltfptr[649]); MELT_LOCATION("warmelt-macro.melt:729:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V645*/ meltfptr[644]); MELT_LOCATION("warmelt-macro.melt:729:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V645*/ meltfptr[644], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_555__SEXPMAC_MVAL @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V651*/ meltfptr[650])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_555__SEXPMAC_MVAL @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V651*/ meltfptr[650])))); ((meltobject_ptr_t)(/*_._VALDATA___V651*/ meltfptr[650]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V652*/ meltfptr[651]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V651*/ meltfptr[650]); melt_dbgtrace_written_object (/*_._VALDATA___V651*/ meltfptr[650], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_559__CLASS_SOURCE_EXPORT_DEFMACRO @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V653*/ meltfptr[652])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_559__CLASS_SOURCE_EXPORT_DEFMACRO @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V653*/ meltfptr[652])))); ((meltobject_ptr_t)(/*_._VALDATA___V653*/ meltfptr[652]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V654*/ meltfptr[653]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V653*/ meltfptr[652]); melt_dbgtrace_written_object (/*_._VALDATA___V653*/ meltfptr[652], "new static instance"); MELT_LOCATION("warmelt-macro.melt:739:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_561__CLASS_SOURCE_EXPORT_DEFMACRO @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V655*/ meltfptr[654])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_561__CLASS_SOURCE_EXPORT_DEFMACRO @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V655*/ meltfptr[654])))); ((meltobject_ptr_t)(/*_._VALDATA___V655*/ meltfptr[654]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V656*/ meltfptr[655]); MELT_LOCATION("warmelt-macro.melt:739:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_561__CLASS_SOURCE_EXPORT_DEFMACRO @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V655*/ meltfptr[654])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_561__CLASS_SOURCE_EXPORT_DEFMACRO @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V655*/ meltfptr[654])))); ((meltobject_ptr_t)(/*_._VALDATA___V655*/ meltfptr[654]))->obj_vartab[4] = (melt_ptr_t)( /*_._VALDATA___V631*/ meltfptr[630]); /*putupl#289*/ melt_assertmsg("putupl #289 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V657*/ meltfptr[656]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #289 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V657*/ meltfptr[656])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V657*/ meltfptr[656]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#290*/ melt_assertmsg("putupl #290 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V657*/ meltfptr[656]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #290 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V657*/ meltfptr[656])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V657*/ meltfptr[656]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#291*/ melt_assertmsg("putupl #291 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V657*/ meltfptr[656]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #291 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V657*/ meltfptr[656])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V657*/ meltfptr[656]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#292*/ melt_assertmsg("putupl #292 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V657*/ meltfptr[656]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #292 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V657*/ meltfptr[656])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V657*/ meltfptr[656]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#293*/ melt_assertmsg("putupl #293 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V657*/ meltfptr[656]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #293 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V657*/ meltfptr[656])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V657*/ meltfptr[656]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V631*/ meltfptr[630]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V657*/ meltfptr[656]); MELT_LOCATION("warmelt-macro.melt:739:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_561__CLASS_SOURCE_EXPORT_DEFMACRO @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V655*/ meltfptr[654])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_561__CLASS_SOURCE_EXPORT_DEFMACRO @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V655*/ meltfptr[654])))); ((meltobject_ptr_t)(/*_._VALDATA___V655*/ meltfptr[654]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V657*/ meltfptr[656]); /*putupl#294*/ melt_assertmsg("putupl #294 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V658*/ meltfptr[657]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #294 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V658*/ meltfptr[657])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V658*/ meltfptr[657]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#295*/ melt_assertmsg("putupl #295 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V658*/ meltfptr[657]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #295 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V658*/ meltfptr[657])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V658*/ meltfptr[657]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#296*/ melt_assertmsg("putupl #296 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V658*/ meltfptr[657]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #296 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V658*/ meltfptr[657])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V658*/ meltfptr[657]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V634*/ meltfptr[633]); /*putupl#297*/ melt_assertmsg("putupl #297 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V658*/ meltfptr[657]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #297 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V658*/ meltfptr[657])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V658*/ meltfptr[657]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V636*/ meltfptr[635]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V658*/ meltfptr[657]); MELT_LOCATION("warmelt-macro.melt:739:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_561__CLASS_SOURCE_EXPORT_DEFMACRO @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V655*/ meltfptr[654])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_561__CLASS_SOURCE_EXPORT_DEFMACRO @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V655*/ meltfptr[654])))); ((meltobject_ptr_t)(/*_._VALDATA___V655*/ meltfptr[654]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V658*/ meltfptr[657]); MELT_LOCATION("warmelt-macro.melt:739:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V655*/ meltfptr[654]); MELT_LOCATION("warmelt-macro.melt:739:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V655*/ meltfptr[654], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_565__CLASS_SOURCE_EXPORT_PATMACRO @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V659*/ meltfptr[658])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_565__CLASS_SOURCE_EXPORT_PATMACRO @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V659*/ meltfptr[658])))); ((meltobject_ptr_t)(/*_._VALDATA___V659*/ meltfptr[658]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V660*/ meltfptr[659]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V659*/ meltfptr[658]); melt_dbgtrace_written_object (/*_._VALDATA___V659*/ meltfptr[658], "new static instance"); MELT_LOCATION("warmelt-macro.melt:748:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_567__CLASS_SOURCE_EXPORT_PATMACRO @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V661*/ meltfptr[660])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_567__CLASS_SOURCE_EXPORT_PATMACRO @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V661*/ meltfptr[660])))); ((meltobject_ptr_t)(/*_._VALDATA___V661*/ meltfptr[660]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V662*/ meltfptr[661]); MELT_LOCATION("warmelt-macro.melt:748:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_567__CLASS_SOURCE_EXPORT_PATMACRO @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V661*/ meltfptr[660])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_567__CLASS_SOURCE_EXPORT_PATMACRO @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V661*/ meltfptr[660])))); ((meltobject_ptr_t)(/*_._VALDATA___V661*/ meltfptr[660]))->obj_vartab[4] = (melt_ptr_t)( /*_._VALDATA___V645*/ meltfptr[644]); /*putupl#298*/ melt_assertmsg("putupl #298 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V663*/ meltfptr[662]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #298 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V663*/ meltfptr[662])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V663*/ meltfptr[662]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#299*/ melt_assertmsg("putupl #299 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V663*/ meltfptr[662]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #299 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V663*/ meltfptr[662])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V663*/ meltfptr[662]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#300*/ melt_assertmsg("putupl #300 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V663*/ meltfptr[662]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #300 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V663*/ meltfptr[662])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V663*/ meltfptr[662]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#301*/ melt_assertmsg("putupl #301 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V663*/ meltfptr[662]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #301 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V663*/ meltfptr[662])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V663*/ meltfptr[662]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#302*/ melt_assertmsg("putupl #302 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V663*/ meltfptr[662]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #302 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V663*/ meltfptr[662])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V663*/ meltfptr[662]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V631*/ meltfptr[630]); /*putupl#303*/ melt_assertmsg("putupl #303 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V663*/ meltfptr[662]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #303 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V663*/ meltfptr[662])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V663*/ meltfptr[662]))->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V645*/ meltfptr[644]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V663*/ meltfptr[662]); MELT_LOCATION("warmelt-macro.melt:748:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_567__CLASS_SOURCE_EXPORT_PATMACRO @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V661*/ meltfptr[660])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_567__CLASS_SOURCE_EXPORT_PATMACRO @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V661*/ meltfptr[660])))); ((meltobject_ptr_t)(/*_._VALDATA___V661*/ meltfptr[660]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V663*/ meltfptr[662]); MELT_LOCATION("warmelt-macro.melt:748:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_573__SEXPPAT_PVAL @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V664*/ meltfptr[663])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_573__SEXPPAT_PVAL @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V664*/ meltfptr[663])))); ((meltobject_ptr_t)(/*_._VALDATA___V664*/ meltfptr[663]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V665*/ meltfptr[664]); MELT_LOCATION("warmelt-macro.melt:748:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_573__SEXPPAT_PVAL @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V664*/ meltfptr[663])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_573__SEXPPAT_PVAL @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V664*/ meltfptr[663])))); ((meltobject_ptr_t)(/*_._VALDATA___V664*/ meltfptr[663]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V661*/ meltfptr[660]); MELT_LOCATION("warmelt-macro.melt:748:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V664*/ meltfptr[663]); MELT_LOCATION("warmelt-macro.melt:748:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V664*/ meltfptr[663], "new static instance"); /*putupl#304*/ melt_assertmsg("putupl #304 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V666*/ meltfptr[665]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #304 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V666*/ meltfptr[665])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V666*/ meltfptr[665]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#305*/ melt_assertmsg("putupl #305 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V666*/ meltfptr[665]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #305 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V666*/ meltfptr[665])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V666*/ meltfptr[665]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#306*/ melt_assertmsg("putupl #306 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V666*/ meltfptr[665]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #306 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V666*/ meltfptr[665])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V666*/ meltfptr[665]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V634*/ meltfptr[633]); /*putupl#307*/ melt_assertmsg("putupl #307 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V666*/ meltfptr[665]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #307 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V666*/ meltfptr[665])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V666*/ meltfptr[665]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V636*/ meltfptr[635]); /*putupl#308*/ melt_assertmsg("putupl #308 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V666*/ meltfptr[665]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #308 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V666*/ meltfptr[665])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V666*/ meltfptr[665]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V648*/ meltfptr[647]); /*putupl#309*/ melt_assertmsg("putupl #309 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V666*/ meltfptr[665]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #309 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V666*/ meltfptr[665])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V666*/ meltfptr[665]))->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V664*/ meltfptr[663]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V666*/ meltfptr[665]); MELT_LOCATION("warmelt-macro.melt:748:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_567__CLASS_SOURCE_EXPORT_PATMACRO @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V661*/ meltfptr[660])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_567__CLASS_SOURCE_EXPORT_PATMACRO @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V661*/ meltfptr[660])))); ((meltobject_ptr_t)(/*_._VALDATA___V661*/ meltfptr[660]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V666*/ meltfptr[665]); MELT_LOCATION("warmelt-macro.melt:748:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V661*/ meltfptr[660]); MELT_LOCATION("warmelt-macro.melt:748:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V661*/ meltfptr[660], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_571__SEXPPAT_PVAL @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V667*/ meltfptr[666])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_571__SEXPPAT_PVAL @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V667*/ meltfptr[666])))); ((meltobject_ptr_t)(/*_._VALDATA___V667*/ meltfptr[666]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V668*/ meltfptr[667]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V667*/ meltfptr[666]); melt_dbgtrace_written_object (/*_._VALDATA___V667*/ meltfptr[666], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_575__CLASS_SOURCE_EXPORT_SYNONYM @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V669*/ meltfptr[668])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_575__CLASS_SOURCE_EXPORT_SYNONYM @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V669*/ meltfptr[668])))); ((meltobject_ptr_t)(/*_._VALDATA___V669*/ meltfptr[668]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V670*/ meltfptr[669]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V669*/ meltfptr[668]); melt_dbgtrace_written_object (/*_._VALDATA___V669*/ meltfptr[668], "new static instance"); MELT_LOCATION("warmelt-macro.melt:760:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_577__CLASS_SOURCE_EXPORT_SYNONYM @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V671*/ meltfptr[670])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_577__CLASS_SOURCE_EXPORT_SYNONYM @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V671*/ meltfptr[670])))); ((meltobject_ptr_t)(/*_._VALDATA___V671*/ meltfptr[670]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V672*/ meltfptr[671]); MELT_LOCATION("warmelt-macro.melt:760:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_577__CLASS_SOURCE_EXPORT_SYNONYM @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V671*/ meltfptr[670])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_577__CLASS_SOURCE_EXPORT_SYNONYM @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V671*/ meltfptr[670])))); ((meltobject_ptr_t)(/*_._VALDATA___V671*/ meltfptr[670]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#310*/ melt_assertmsg("putupl #310 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V673*/ meltfptr[672]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #310 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V673*/ meltfptr[672])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V673*/ meltfptr[672]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#311*/ melt_assertmsg("putupl #311 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V673*/ meltfptr[672]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #311 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V673*/ meltfptr[672])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V673*/ meltfptr[672]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#312*/ melt_assertmsg("putupl #312 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V673*/ meltfptr[672]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #312 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V673*/ meltfptr[672])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V673*/ meltfptr[672]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#313*/ melt_assertmsg("putupl #313 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V673*/ meltfptr[672]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #313 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V673*/ meltfptr[672])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V673*/ meltfptr[672]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V673*/ meltfptr[672]); MELT_LOCATION("warmelt-macro.melt:760:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_577__CLASS_SOURCE_EXPORT_SYNONYM @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V671*/ meltfptr[670])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_577__CLASS_SOURCE_EXPORT_SYNONYM @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V671*/ meltfptr[670])))); ((meltobject_ptr_t)(/*_._VALDATA___V671*/ meltfptr[670]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V673*/ meltfptr[672]); MELT_LOCATION("warmelt-macro.melt:760:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_583__SEXPSYN_NEWNAME @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V674*/ meltfptr[673])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_583__SEXPSYN_NEWNAME @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V674*/ meltfptr[673])))); ((meltobject_ptr_t)(/*_._VALDATA___V674*/ meltfptr[673]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V675*/ meltfptr[674]); MELT_LOCATION("warmelt-macro.melt:760:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_583__SEXPSYN_NEWNAME @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V674*/ meltfptr[673])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_583__SEXPSYN_NEWNAME @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V674*/ meltfptr[673])))); ((meltobject_ptr_t)(/*_._VALDATA___V674*/ meltfptr[673]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V671*/ meltfptr[670]); MELT_LOCATION("warmelt-macro.melt:760:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V674*/ meltfptr[673]); MELT_LOCATION("warmelt-macro.melt:760:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V674*/ meltfptr[673], "new static instance"); MELT_LOCATION("warmelt-macro.melt:760:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_587__SEXPSYN_OLDNAME @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V676*/ meltfptr[675])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_587__SEXPSYN_OLDNAME @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V676*/ meltfptr[675])))); ((meltobject_ptr_t)(/*_._VALDATA___V676*/ meltfptr[675]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V677*/ meltfptr[676]); MELT_LOCATION("warmelt-macro.melt:760:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_587__SEXPSYN_OLDNAME @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V676*/ meltfptr[675])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_587__SEXPSYN_OLDNAME @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V676*/ meltfptr[675])))); ((meltobject_ptr_t)(/*_._VALDATA___V676*/ meltfptr[675]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V671*/ meltfptr[670]); MELT_LOCATION("warmelt-macro.melt:760:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V676*/ meltfptr[675]); #undef meltfram__ } /*end of meltmod__WARMELTmiMACRO__initialmeltchunk_11*/ void meltmod__WARMELTmiMACRO__initialmeltchunk_12 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; MELT_LOCATION("warmelt-macro.melt:760:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V676*/ meltfptr[675], "new static instance"); MELT_LOCATION("warmelt-macro.melt:760:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_591__SEXPSYN_DOC @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V678*/ meltfptr[677])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_591__SEXPSYN_DOC @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V678*/ meltfptr[677])))); ((meltobject_ptr_t)(/*_._VALDATA___V678*/ meltfptr[677]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V679*/ meltfptr[678]); MELT_LOCATION("warmelt-macro.melt:760:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_591__SEXPSYN_DOC @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V678*/ meltfptr[677])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_591__SEXPSYN_DOC @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V678*/ meltfptr[677])))); ((meltobject_ptr_t)(/*_._VALDATA___V678*/ meltfptr[677]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V671*/ meltfptr[670]); MELT_LOCATION("warmelt-macro.melt:760:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V678*/ meltfptr[677]); MELT_LOCATION("warmelt-macro.melt:760:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V678*/ meltfptr[677], "new static instance"); /*putupl#314*/ melt_assertmsg("putupl #314 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V680*/ meltfptr[679]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #314 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V680*/ meltfptr[679])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V680*/ meltfptr[679]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#315*/ melt_assertmsg("putupl #315 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V680*/ meltfptr[679]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #315 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V680*/ meltfptr[679])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V680*/ meltfptr[679]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#316*/ melt_assertmsg("putupl #316 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V680*/ meltfptr[679]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #316 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V680*/ meltfptr[679])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V680*/ meltfptr[679]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V674*/ meltfptr[673]); /*putupl#317*/ melt_assertmsg("putupl #317 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V680*/ meltfptr[679]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #317 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V680*/ meltfptr[679])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V680*/ meltfptr[679]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V676*/ meltfptr[675]); /*putupl#318*/ melt_assertmsg("putupl #318 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V680*/ meltfptr[679]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #318 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V680*/ meltfptr[679])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V680*/ meltfptr[679]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V678*/ meltfptr[677]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V680*/ meltfptr[679]); MELT_LOCATION("warmelt-macro.melt:760:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_577__CLASS_SOURCE_EXPORT_SYNONYM @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V671*/ meltfptr[670])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_577__CLASS_SOURCE_EXPORT_SYNONYM @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V671*/ meltfptr[670])))); ((meltobject_ptr_t)(/*_._VALDATA___V671*/ meltfptr[670]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V680*/ meltfptr[679]); MELT_LOCATION("warmelt-macro.melt:760:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V671*/ meltfptr[670]); MELT_LOCATION("warmelt-macro.melt:760:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V671*/ meltfptr[670], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_581__SEXPSYN_NEWNAME @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V681*/ meltfptr[680])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_581__SEXPSYN_NEWNAME @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V681*/ meltfptr[680])))); ((meltobject_ptr_t)(/*_._VALDATA___V681*/ meltfptr[680]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V682*/ meltfptr[681]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V681*/ meltfptr[680]); melt_dbgtrace_written_object (/*_._VALDATA___V681*/ meltfptr[680], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_585__SEXPSYN_OLDNAME @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V683*/ meltfptr[682])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_585__SEXPSYN_OLDNAME @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V683*/ meltfptr[682])))); ((meltobject_ptr_t)(/*_._VALDATA___V683*/ meltfptr[682]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V684*/ meltfptr[683]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V683*/ meltfptr[682]); melt_dbgtrace_written_object (/*_._VALDATA___V683*/ meltfptr[682], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_589__SEXPSYN_DOC @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V685*/ meltfptr[684])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_589__SEXPSYN_DOC @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V685*/ meltfptr[684])))); ((meltobject_ptr_t)(/*_._VALDATA___V685*/ meltfptr[684]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V686*/ meltfptr[685]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V685*/ meltfptr[684]); melt_dbgtrace_written_object (/*_._VALDATA___V685*/ meltfptr[684], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_593__CLASS_SOURCE_DEFINITION @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V687*/ meltfptr[686])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_593__CLASS_SOURCE_DEFINITION @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V687*/ meltfptr[686])))); ((meltobject_ptr_t)(/*_._VALDATA___V687*/ meltfptr[686]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V688*/ meltfptr[687]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V687*/ meltfptr[686]); melt_dbgtrace_written_object (/*_._VALDATA___V687*/ meltfptr[686], "new static instance"); MELT_LOCATION("warmelt-macro.melt:771:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_595__CLASS_SOURCE_DEFINITION @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V689*/ meltfptr[688])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_595__CLASS_SOURCE_DEFINITION @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V689*/ meltfptr[688])))); ((meltobject_ptr_t)(/*_._VALDATA___V689*/ meltfptr[688]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V690*/ meltfptr[689]); MELT_LOCATION("warmelt-macro.melt:771:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_595__CLASS_SOURCE_DEFINITION @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V689*/ meltfptr[688])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_595__CLASS_SOURCE_DEFINITION @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V689*/ meltfptr[688])))); ((meltobject_ptr_t)(/*_._VALDATA___V689*/ meltfptr[688]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#319*/ melt_assertmsg("putupl #319 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V691*/ meltfptr[690]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #319 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V691*/ meltfptr[690])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V691*/ meltfptr[690]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#320*/ melt_assertmsg("putupl #320 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V691*/ meltfptr[690]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #320 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V691*/ meltfptr[690])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V691*/ meltfptr[690]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#321*/ melt_assertmsg("putupl #321 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V691*/ meltfptr[690]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #321 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V691*/ meltfptr[690])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V691*/ meltfptr[690]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#322*/ melt_assertmsg("putupl #322 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V691*/ meltfptr[690]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #322 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V691*/ meltfptr[690])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V691*/ meltfptr[690]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V691*/ meltfptr[690]); MELT_LOCATION("warmelt-macro.melt:771:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_595__CLASS_SOURCE_DEFINITION @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V689*/ meltfptr[688])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_595__CLASS_SOURCE_DEFINITION @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V689*/ meltfptr[688])))); ((meltobject_ptr_t)(/*_._VALDATA___V689*/ meltfptr[688]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V691*/ meltfptr[690]); MELT_LOCATION("warmelt-macro.melt:771:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_601__SDEF_NAME @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V692*/ meltfptr[691])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_601__SDEF_NAME @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V692*/ meltfptr[691])))); ((meltobject_ptr_t)(/*_._VALDATA___V692*/ meltfptr[691]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V693*/ meltfptr[692]); MELT_LOCATION("warmelt-macro.melt:771:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_601__SDEF_NAME @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V692*/ meltfptr[691])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_601__SDEF_NAME @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V692*/ meltfptr[691])))); ((meltobject_ptr_t)(/*_._VALDATA___V692*/ meltfptr[691]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V689*/ meltfptr[688]); MELT_LOCATION("warmelt-macro.melt:771:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V692*/ meltfptr[691]); MELT_LOCATION("warmelt-macro.melt:771:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V692*/ meltfptr[691], "new static instance"); MELT_LOCATION("warmelt-macro.melt:771:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_605__SDEF_DOC @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V694*/ meltfptr[693])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_605__SDEF_DOC @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V694*/ meltfptr[693])))); ((meltobject_ptr_t)(/*_._VALDATA___V694*/ meltfptr[693]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V695*/ meltfptr[694]); MELT_LOCATION("warmelt-macro.melt:771:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_605__SDEF_DOC @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V694*/ meltfptr[693])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_605__SDEF_DOC @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V694*/ meltfptr[693])))); ((meltobject_ptr_t)(/*_._VALDATA___V694*/ meltfptr[693]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V689*/ meltfptr[688]); MELT_LOCATION("warmelt-macro.melt:771:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V694*/ meltfptr[693]); MELT_LOCATION("warmelt-macro.melt:771:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V694*/ meltfptr[693], "new static instance"); /*putupl#323*/ melt_assertmsg("putupl #323 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V696*/ meltfptr[695]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #323 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V696*/ meltfptr[695])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V696*/ meltfptr[695]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#324*/ melt_assertmsg("putupl #324 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V696*/ meltfptr[695]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #324 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V696*/ meltfptr[695])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V696*/ meltfptr[695]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#325*/ melt_assertmsg("putupl #325 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V696*/ meltfptr[695]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #325 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V696*/ meltfptr[695])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V696*/ meltfptr[695]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V692*/ meltfptr[691]); /*putupl#326*/ melt_assertmsg("putupl #326 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V696*/ meltfptr[695]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #326 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V696*/ meltfptr[695])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V696*/ meltfptr[695]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V694*/ meltfptr[693]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V696*/ meltfptr[695]); MELT_LOCATION("warmelt-macro.melt:771:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_595__CLASS_SOURCE_DEFINITION @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V689*/ meltfptr[688])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_595__CLASS_SOURCE_DEFINITION @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V689*/ meltfptr[688])))); ((meltobject_ptr_t)(/*_._VALDATA___V689*/ meltfptr[688]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V696*/ meltfptr[695]); MELT_LOCATION("warmelt-macro.melt:771:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V689*/ meltfptr[688]); MELT_LOCATION("warmelt-macro.melt:771:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V689*/ meltfptr[688], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_599__SDEF_NAME @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V697*/ meltfptr[696])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_599__SDEF_NAME @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V697*/ meltfptr[696])))); ((meltobject_ptr_t)(/*_._VALDATA___V697*/ meltfptr[696]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V698*/ meltfptr[697]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V697*/ meltfptr[696]); melt_dbgtrace_written_object (/*_._VALDATA___V697*/ meltfptr[696], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_603__SDEF_DOC @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V699*/ meltfptr[698])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_603__SDEF_DOC @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V699*/ meltfptr[698])))); ((meltobject_ptr_t)(/*_._VALDATA___V699*/ meltfptr[698]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V700*/ meltfptr[699]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V699*/ meltfptr[698]); melt_dbgtrace_written_object (/*_._VALDATA___V699*/ meltfptr[698], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_607__CLASS_SOURCE_DEFVAR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V701*/ meltfptr[700])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_607__CLASS_SOURCE_DEFVAR @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V701*/ meltfptr[700])))); ((meltobject_ptr_t)(/*_._VALDATA___V701*/ meltfptr[700]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V702*/ meltfptr[701]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V701*/ meltfptr[700]); melt_dbgtrace_written_object (/*_._VALDATA___V701*/ meltfptr[700], "new static instance"); MELT_LOCATION("warmelt-macro.melt:781:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_609__CLASS_SOURCE_DEFVAR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V703*/ meltfptr[702])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_609__CLASS_SOURCE_DEFVAR @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V703*/ meltfptr[702])))); ((meltobject_ptr_t)(/*_._VALDATA___V703*/ meltfptr[702]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V704*/ meltfptr[703]); MELT_LOCATION("warmelt-macro.melt:781:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_609__CLASS_SOURCE_DEFVAR @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V703*/ meltfptr[702])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_609__CLASS_SOURCE_DEFVAR @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V703*/ meltfptr[702])))); ((meltobject_ptr_t)(/*_._VALDATA___V703*/ meltfptr[702]))->obj_vartab[4] = (melt_ptr_t)( /*_._VALDATA___V689*/ meltfptr[688]); /*putupl#327*/ melt_assertmsg("putupl #327 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V705*/ meltfptr[704]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #327 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V705*/ meltfptr[704])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V705*/ meltfptr[704]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#328*/ melt_assertmsg("putupl #328 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V705*/ meltfptr[704]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #328 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V705*/ meltfptr[704])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V705*/ meltfptr[704]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#329*/ melt_assertmsg("putupl #329 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V705*/ meltfptr[704]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #329 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V705*/ meltfptr[704])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V705*/ meltfptr[704]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#330*/ melt_assertmsg("putupl #330 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V705*/ meltfptr[704]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #330 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V705*/ meltfptr[704])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V705*/ meltfptr[704]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#331*/ melt_assertmsg("putupl #331 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V705*/ meltfptr[704]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #331 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V705*/ meltfptr[704])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V705*/ meltfptr[704]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V689*/ meltfptr[688]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V705*/ meltfptr[704]); MELT_LOCATION("warmelt-macro.melt:781:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_609__CLASS_SOURCE_DEFVAR @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V703*/ meltfptr[702])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_609__CLASS_SOURCE_DEFVAR @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V703*/ meltfptr[702])))); ((meltobject_ptr_t)(/*_._VALDATA___V703*/ meltfptr[702]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V705*/ meltfptr[704]); /*putupl#332*/ melt_assertmsg("putupl #332 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V706*/ meltfptr[705]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #332 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V706*/ meltfptr[705])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V706*/ meltfptr[705]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#333*/ melt_assertmsg("putupl #333 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V706*/ meltfptr[705]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #333 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V706*/ meltfptr[705])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V706*/ meltfptr[705]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#334*/ melt_assertmsg("putupl #334 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V706*/ meltfptr[705]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #334 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V706*/ meltfptr[705])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V706*/ meltfptr[705]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V692*/ meltfptr[691]); /*putupl#335*/ melt_assertmsg("putupl #335 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V706*/ meltfptr[705]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #335 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V706*/ meltfptr[705])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V706*/ meltfptr[705]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V694*/ meltfptr[693]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V706*/ meltfptr[705]); MELT_LOCATION("warmelt-macro.melt:781:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_609__CLASS_SOURCE_DEFVAR @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V703*/ meltfptr[702])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_609__CLASS_SOURCE_DEFVAR @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V703*/ meltfptr[702])))); ((meltobject_ptr_t)(/*_._VALDATA___V703*/ meltfptr[702]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V706*/ meltfptr[705]); MELT_LOCATION("warmelt-macro.melt:781:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V703*/ meltfptr[702]); MELT_LOCATION("warmelt-macro.melt:781:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V703*/ meltfptr[702], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_613__CLASS_SOURCE_DEFINE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V707*/ meltfptr[706])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_613__CLASS_SOURCE_DEFINE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V707*/ meltfptr[706])))); ((meltobject_ptr_t)(/*_._VALDATA___V707*/ meltfptr[706]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V708*/ meltfptr[707]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V707*/ meltfptr[706]); melt_dbgtrace_written_object (/*_._VALDATA___V707*/ meltfptr[706], "new static instance"); MELT_LOCATION("warmelt-macro.melt:787:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_615__CLASS_SOURCE_DEFINE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V709*/ meltfptr[708])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_615__CLASS_SOURCE_DEFINE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V709*/ meltfptr[708])))); ((meltobject_ptr_t)(/*_._VALDATA___V709*/ meltfptr[708]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V710*/ meltfptr[709]); MELT_LOCATION("warmelt-macro.melt:787:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_615__CLASS_SOURCE_DEFINE @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V709*/ meltfptr[708])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_615__CLASS_SOURCE_DEFINE @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V709*/ meltfptr[708])))); ((meltobject_ptr_t)(/*_._VALDATA___V709*/ meltfptr[708]))->obj_vartab[4] = (melt_ptr_t)( /*_._VALDATA___V689*/ meltfptr[688]); /*putupl#336*/ melt_assertmsg("putupl #336 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V711*/ meltfptr[710]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #336 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V711*/ meltfptr[710])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V711*/ meltfptr[710]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#337*/ melt_assertmsg("putupl #337 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V711*/ meltfptr[710]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #337 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V711*/ meltfptr[710])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V711*/ meltfptr[710]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#338*/ melt_assertmsg("putupl #338 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V711*/ meltfptr[710]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #338 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V711*/ meltfptr[710])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V711*/ meltfptr[710]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#339*/ melt_assertmsg("putupl #339 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V711*/ meltfptr[710]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #339 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V711*/ meltfptr[710])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V711*/ meltfptr[710]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#340*/ melt_assertmsg("putupl #340 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V711*/ meltfptr[710]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #340 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V711*/ meltfptr[710])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V711*/ meltfptr[710]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V689*/ meltfptr[688]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V711*/ meltfptr[710]); MELT_LOCATION("warmelt-macro.melt:787:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_615__CLASS_SOURCE_DEFINE @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V709*/ meltfptr[708])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_615__CLASS_SOURCE_DEFINE @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V709*/ meltfptr[708])))); ((meltobject_ptr_t)(/*_._VALDATA___V709*/ meltfptr[708]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V711*/ meltfptr[710]); MELT_LOCATION("warmelt-macro.melt:787:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_621__SDEFINE_BODY @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V712*/ meltfptr[711])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_621__SDEFINE_BODY @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V712*/ meltfptr[711])))); ((meltobject_ptr_t)(/*_._VALDATA___V712*/ meltfptr[711]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V713*/ meltfptr[712]); MELT_LOCATION("warmelt-macro.melt:787:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_621__SDEFINE_BODY @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V712*/ meltfptr[711])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_621__SDEFINE_BODY @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V712*/ meltfptr[711])))); ((meltobject_ptr_t)(/*_._VALDATA___V712*/ meltfptr[711]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V709*/ meltfptr[708]); MELT_LOCATION("warmelt-macro.melt:787:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V712*/ meltfptr[711]); MELT_LOCATION("warmelt-macro.melt:787:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V712*/ meltfptr[711], "new static instance"); /*putupl#341*/ melt_assertmsg("putupl #341 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V714*/ meltfptr[713]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #341 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V714*/ meltfptr[713])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V714*/ meltfptr[713]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#342*/ melt_assertmsg("putupl #342 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V714*/ meltfptr[713]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #342 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V714*/ meltfptr[713])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V714*/ meltfptr[713]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#343*/ melt_assertmsg("putupl #343 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V714*/ meltfptr[713]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #343 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V714*/ meltfptr[713])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V714*/ meltfptr[713]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V692*/ meltfptr[691]); /*putupl#344*/ melt_assertmsg("putupl #344 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V714*/ meltfptr[713]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #344 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V714*/ meltfptr[713])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V714*/ meltfptr[713]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V694*/ meltfptr[693]); /*putupl#345*/ melt_assertmsg("putupl #345 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V714*/ meltfptr[713]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #345 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V714*/ meltfptr[713])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V714*/ meltfptr[713]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V712*/ meltfptr[711]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V714*/ meltfptr[713]); MELT_LOCATION("warmelt-macro.melt:787:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_615__CLASS_SOURCE_DEFINE @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V709*/ meltfptr[708])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_615__CLASS_SOURCE_DEFINE @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V709*/ meltfptr[708])))); ((meltobject_ptr_t)(/*_._VALDATA___V709*/ meltfptr[708]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V714*/ meltfptr[713]); MELT_LOCATION("warmelt-macro.melt:787:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V709*/ meltfptr[708]); MELT_LOCATION("warmelt-macro.melt:787:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V709*/ meltfptr[708], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_619__SDEFINE_BODY @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V715*/ meltfptr[714])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_619__SDEFINE_BODY @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V715*/ meltfptr[714])))); ((meltobject_ptr_t)(/*_._VALDATA___V715*/ meltfptr[714]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V716*/ meltfptr[715]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V715*/ meltfptr[714]); melt_dbgtrace_written_object (/*_._VALDATA___V715*/ meltfptr[714], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_623__CLASS_SOURCE_DEFINITION_FORMAL @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V717*/ meltfptr[716])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_623__CLASS_SOURCE_DEFINITION_FORMAL @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V717*/ meltfptr[716])))); ((meltobject_ptr_t)(/*_._VALDATA___V717*/ meltfptr[716]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V718*/ meltfptr[717]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V717*/ meltfptr[716]); melt_dbgtrace_written_object (/*_._VALDATA___V717*/ meltfptr[716], "new static instance"); MELT_LOCATION("warmelt-macro.melt:795:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_625__CLASS_SOURCE_DEFINITION_FORMAL @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V719*/ meltfptr[718])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_625__CLASS_SOURCE_DEFINITION_FORMAL @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V719*/ meltfptr[718])))); ((meltobject_ptr_t)(/*_._VALDATA___V719*/ meltfptr[718]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V720*/ meltfptr[719]); MELT_LOCATION("warmelt-macro.melt:795:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_625__CLASS_SOURCE_DEFINITION_FORMAL @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V719*/ meltfptr[718])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_625__CLASS_SOURCE_DEFINITION_FORMAL @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V719*/ meltfptr[718])))); ((meltobject_ptr_t)(/*_._VALDATA___V719*/ meltfptr[718]))->obj_vartab[4] = (melt_ptr_t)( /*_._VALDATA___V689*/ meltfptr[688]); /*putupl#346*/ melt_assertmsg("putupl #346 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V721*/ meltfptr[720]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #346 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V721*/ meltfptr[720])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V721*/ meltfptr[720]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#347*/ melt_assertmsg("putupl #347 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V721*/ meltfptr[720]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #347 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V721*/ meltfptr[720])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V721*/ meltfptr[720]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#348*/ melt_assertmsg("putupl #348 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V721*/ meltfptr[720]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #348 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V721*/ meltfptr[720])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V721*/ meltfptr[720]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#349*/ melt_assertmsg("putupl #349 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V721*/ meltfptr[720]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #349 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V721*/ meltfptr[720])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V721*/ meltfptr[720]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#350*/ melt_assertmsg("putupl #350 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V721*/ meltfptr[720]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #350 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V721*/ meltfptr[720])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V721*/ meltfptr[720]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V689*/ meltfptr[688]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V721*/ meltfptr[720]); MELT_LOCATION("warmelt-macro.melt:795:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_625__CLASS_SOURCE_DEFINITION_FORMAL @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V719*/ meltfptr[718])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_625__CLASS_SOURCE_DEFINITION_FORMAL @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V719*/ meltfptr[718])))); ((meltobject_ptr_t)(/*_._VALDATA___V719*/ meltfptr[718]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V721*/ meltfptr[720]); MELT_LOCATION("warmelt-macro.melt:795:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_631__SFORMAL_ARGS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V722*/ meltfptr[721])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_631__SFORMAL_ARGS @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V722*/ meltfptr[721])))); ((meltobject_ptr_t)(/*_._VALDATA___V722*/ meltfptr[721]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V723*/ meltfptr[722]); MELT_LOCATION("warmelt-macro.melt:795:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_631__SFORMAL_ARGS @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V722*/ meltfptr[721])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_631__SFORMAL_ARGS @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V722*/ meltfptr[721])))); ((meltobject_ptr_t)(/*_._VALDATA___V722*/ meltfptr[721]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V719*/ meltfptr[718]); MELT_LOCATION("warmelt-macro.melt:795:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V722*/ meltfptr[721]); MELT_LOCATION("warmelt-macro.melt:795:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V722*/ meltfptr[721], "new static instance"); /*putupl#351*/ melt_assertmsg("putupl #351 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V724*/ meltfptr[723]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #351 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V724*/ meltfptr[723])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V724*/ meltfptr[723]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#352*/ melt_assertmsg("putupl #352 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V724*/ meltfptr[723]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #352 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V724*/ meltfptr[723])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V724*/ meltfptr[723]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#353*/ melt_assertmsg("putupl #353 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V724*/ meltfptr[723]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #353 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V724*/ meltfptr[723])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V724*/ meltfptr[723]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V692*/ meltfptr[691]); /*putupl#354*/ melt_assertmsg("putupl #354 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V724*/ meltfptr[723]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #354 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V724*/ meltfptr[723])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V724*/ meltfptr[723]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V694*/ meltfptr[693]); /*putupl#355*/ melt_assertmsg("putupl #355 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V724*/ meltfptr[723]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #355 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V724*/ meltfptr[723])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V724*/ meltfptr[723]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V722*/ meltfptr[721]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V724*/ meltfptr[723]); MELT_LOCATION("warmelt-macro.melt:795:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_625__CLASS_SOURCE_DEFINITION_FORMAL @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V719*/ meltfptr[718])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_625__CLASS_SOURCE_DEFINITION_FORMAL @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V719*/ meltfptr[718])))); ((meltobject_ptr_t)(/*_._VALDATA___V719*/ meltfptr[718]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V724*/ meltfptr[723]); MELT_LOCATION("warmelt-macro.melt:795:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V719*/ meltfptr[718]); #undef meltfram__ } /*end of meltmod__WARMELTmiMACRO__initialmeltchunk_12*/ void meltmod__WARMELTmiMACRO__initialmeltchunk_13 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; MELT_LOCATION("warmelt-macro.melt:795:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V719*/ meltfptr[718], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_629__SFORMAL_ARGS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V725*/ meltfptr[724])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_629__SFORMAL_ARGS @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V725*/ meltfptr[724])))); ((meltobject_ptr_t)(/*_._VALDATA___V725*/ meltfptr[724]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V726*/ meltfptr[725]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V725*/ meltfptr[724]); melt_dbgtrace_written_object (/*_._VALDATA___V725*/ meltfptr[724], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_633__CLASS_SOURCE_DEFUN @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V727*/ meltfptr[726])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_633__CLASS_SOURCE_DEFUN @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V727*/ meltfptr[726])))); ((meltobject_ptr_t)(/*_._VALDATA___V727*/ meltfptr[726]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V728*/ meltfptr[727]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V727*/ meltfptr[726]); melt_dbgtrace_written_object (/*_._VALDATA___V727*/ meltfptr[726], "new static instance"); MELT_LOCATION("warmelt-macro.melt:803:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_635__CLASS_SOURCE_DEFUN @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V729*/ meltfptr[728])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_635__CLASS_SOURCE_DEFUN @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V729*/ meltfptr[728])))); ((meltobject_ptr_t)(/*_._VALDATA___V729*/ meltfptr[728]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V730*/ meltfptr[729]); MELT_LOCATION("warmelt-macro.melt:803:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_635__CLASS_SOURCE_DEFUN @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V729*/ meltfptr[728])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_635__CLASS_SOURCE_DEFUN @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V729*/ meltfptr[728])))); ((meltobject_ptr_t)(/*_._VALDATA___V729*/ meltfptr[728]))->obj_vartab[4] = (melt_ptr_t)( /*_._VALDATA___V719*/ meltfptr[718]); /*putupl#356*/ melt_assertmsg("putupl #356 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V731*/ meltfptr[730]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #356 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V731*/ meltfptr[730])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V731*/ meltfptr[730]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#357*/ melt_assertmsg("putupl #357 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V731*/ meltfptr[730]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #357 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V731*/ meltfptr[730])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V731*/ meltfptr[730]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#358*/ melt_assertmsg("putupl #358 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V731*/ meltfptr[730]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #358 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V731*/ meltfptr[730])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V731*/ meltfptr[730]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#359*/ melt_assertmsg("putupl #359 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V731*/ meltfptr[730]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #359 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V731*/ meltfptr[730])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V731*/ meltfptr[730]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#360*/ melt_assertmsg("putupl #360 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V731*/ meltfptr[730]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #360 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V731*/ meltfptr[730])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V731*/ meltfptr[730]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V689*/ meltfptr[688]); /*putupl#361*/ melt_assertmsg("putupl #361 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V731*/ meltfptr[730]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #361 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V731*/ meltfptr[730])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V731*/ meltfptr[730]))->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V719*/ meltfptr[718]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V731*/ meltfptr[730]); MELT_LOCATION("warmelt-macro.melt:803:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_635__CLASS_SOURCE_DEFUN @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V729*/ meltfptr[728])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_635__CLASS_SOURCE_DEFUN @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V729*/ meltfptr[728])))); ((meltobject_ptr_t)(/*_._VALDATA___V729*/ meltfptr[728]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V731*/ meltfptr[730]); MELT_LOCATION("warmelt-macro.melt:803:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_641__SFUN_BODY @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V732*/ meltfptr[731])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_641__SFUN_BODY @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V732*/ meltfptr[731])))); ((meltobject_ptr_t)(/*_._VALDATA___V732*/ meltfptr[731]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V733*/ meltfptr[732]); MELT_LOCATION("warmelt-macro.melt:803:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_641__SFUN_BODY @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V732*/ meltfptr[731])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_641__SFUN_BODY @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V732*/ meltfptr[731])))); ((meltobject_ptr_t)(/*_._VALDATA___V732*/ meltfptr[731]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V729*/ meltfptr[728]); MELT_LOCATION("warmelt-macro.melt:803:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V732*/ meltfptr[731]); MELT_LOCATION("warmelt-macro.melt:803:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V732*/ meltfptr[731], "new static instance"); /*putupl#362*/ melt_assertmsg("putupl #362 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V734*/ meltfptr[733]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #362 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V734*/ meltfptr[733])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V734*/ meltfptr[733]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#363*/ melt_assertmsg("putupl #363 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V734*/ meltfptr[733]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #363 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V734*/ meltfptr[733])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V734*/ meltfptr[733]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#364*/ melt_assertmsg("putupl #364 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V734*/ meltfptr[733]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #364 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V734*/ meltfptr[733])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V734*/ meltfptr[733]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V692*/ meltfptr[691]); /*putupl#365*/ melt_assertmsg("putupl #365 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V734*/ meltfptr[733]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #365 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V734*/ meltfptr[733])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V734*/ meltfptr[733]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V694*/ meltfptr[693]); /*putupl#366*/ melt_assertmsg("putupl #366 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V734*/ meltfptr[733]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #366 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V734*/ meltfptr[733])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V734*/ meltfptr[733]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V722*/ meltfptr[721]); /*putupl#367*/ melt_assertmsg("putupl #367 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V734*/ meltfptr[733]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #367 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V734*/ meltfptr[733])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V734*/ meltfptr[733]))->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V732*/ meltfptr[731]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V734*/ meltfptr[733]); MELT_LOCATION("warmelt-macro.melt:803:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_635__CLASS_SOURCE_DEFUN @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V729*/ meltfptr[728])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_635__CLASS_SOURCE_DEFUN @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V729*/ meltfptr[728])))); ((meltobject_ptr_t)(/*_._VALDATA___V729*/ meltfptr[728]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V734*/ meltfptr[733]); MELT_LOCATION("warmelt-macro.melt:803:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V729*/ meltfptr[728]); MELT_LOCATION("warmelt-macro.melt:803:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V729*/ meltfptr[728], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_639__SFUN_BODY @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V735*/ meltfptr[734])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_639__SFUN_BODY @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V735*/ meltfptr[734])))); ((meltobject_ptr_t)(/*_._VALDATA___V735*/ meltfptr[734]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V736*/ meltfptr[735]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V735*/ meltfptr[734]); melt_dbgtrace_written_object (/*_._VALDATA___V735*/ meltfptr[734], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_643__CLASS_SOURCE_DEFMACRO @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V737*/ meltfptr[736])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_643__CLASS_SOURCE_DEFMACRO @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V737*/ meltfptr[736])))); ((meltobject_ptr_t)(/*_._VALDATA___V737*/ meltfptr[736]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V738*/ meltfptr[737]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V737*/ meltfptr[736]); melt_dbgtrace_written_object (/*_._VALDATA___V737*/ meltfptr[736], "new static instance"); MELT_LOCATION("warmelt-macro.melt:813:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_645__CLASS_SOURCE_DEFMACRO @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V739*/ meltfptr[738])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_645__CLASS_SOURCE_DEFMACRO @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V739*/ meltfptr[738])))); ((meltobject_ptr_t)(/*_._VALDATA___V739*/ meltfptr[738]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V740*/ meltfptr[739]); MELT_LOCATION("warmelt-macro.melt:813:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_645__CLASS_SOURCE_DEFMACRO @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V739*/ meltfptr[738])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_645__CLASS_SOURCE_DEFMACRO @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V739*/ meltfptr[738])))); ((meltobject_ptr_t)(/*_._VALDATA___V739*/ meltfptr[738]))->obj_vartab[4] = (melt_ptr_t)( /*_._VALDATA___V729*/ meltfptr[728]); /*putupl#368*/ melt_assertmsg("putupl #368 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V741*/ meltfptr[740]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #368 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V741*/ meltfptr[740])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V741*/ meltfptr[740]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#369*/ melt_assertmsg("putupl #369 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V741*/ meltfptr[740]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #369 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V741*/ meltfptr[740])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V741*/ meltfptr[740]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#370*/ melt_assertmsg("putupl #370 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V741*/ meltfptr[740]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #370 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V741*/ meltfptr[740])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V741*/ meltfptr[740]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#371*/ melt_assertmsg("putupl #371 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V741*/ meltfptr[740]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #371 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V741*/ meltfptr[740])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V741*/ meltfptr[740]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#372*/ melt_assertmsg("putupl #372 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V741*/ meltfptr[740]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #372 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V741*/ meltfptr[740])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V741*/ meltfptr[740]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V689*/ meltfptr[688]); /*putupl#373*/ melt_assertmsg("putupl #373 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V741*/ meltfptr[740]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #373 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V741*/ meltfptr[740])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V741*/ meltfptr[740]))->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V719*/ meltfptr[718]); /*putupl#374*/ melt_assertmsg("putupl #374 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V741*/ meltfptr[740]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #374 checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V741*/ meltfptr[740])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V741*/ meltfptr[740]))->tabval[6] = (melt_ptr_t)(/*_._VALDATA___V729*/ meltfptr[728]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V741*/ meltfptr[740]); MELT_LOCATION("warmelt-macro.melt:813:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_645__CLASS_SOURCE_DEFMACRO @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V739*/ meltfptr[738])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_645__CLASS_SOURCE_DEFMACRO @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V739*/ meltfptr[738])))); ((meltobject_ptr_t)(/*_._VALDATA___V739*/ meltfptr[738]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V741*/ meltfptr[740]); MELT_LOCATION("warmelt-macro.melt:813:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_651__SMACRO_BINDING @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V742*/ meltfptr[741])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_651__SMACRO_BINDING @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V742*/ meltfptr[741])))); ((meltobject_ptr_t)(/*_._VALDATA___V742*/ meltfptr[741]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V743*/ meltfptr[742]); MELT_LOCATION("warmelt-macro.melt:813:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_651__SMACRO_BINDING @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V742*/ meltfptr[741])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_651__SMACRO_BINDING @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V742*/ meltfptr[741])))); ((meltobject_ptr_t)(/*_._VALDATA___V742*/ meltfptr[741]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V739*/ meltfptr[738]); MELT_LOCATION("warmelt-macro.melt:813:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V742*/ meltfptr[741]); MELT_LOCATION("warmelt-macro.melt:813:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V742*/ meltfptr[741], "new static instance"); /*putupl#375*/ melt_assertmsg("putupl #375 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V744*/ meltfptr[743]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #375 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V744*/ meltfptr[743])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V744*/ meltfptr[743]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#376*/ melt_assertmsg("putupl #376 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V744*/ meltfptr[743]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #376 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V744*/ meltfptr[743])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V744*/ meltfptr[743]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#377*/ melt_assertmsg("putupl #377 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V744*/ meltfptr[743]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #377 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V744*/ meltfptr[743])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V744*/ meltfptr[743]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V692*/ meltfptr[691]); /*putupl#378*/ melt_assertmsg("putupl #378 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V744*/ meltfptr[743]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #378 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V744*/ meltfptr[743])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V744*/ meltfptr[743]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V694*/ meltfptr[693]); /*putupl#379*/ melt_assertmsg("putupl #379 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V744*/ meltfptr[743]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #379 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V744*/ meltfptr[743])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V744*/ meltfptr[743]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V722*/ meltfptr[721]); /*putupl#380*/ melt_assertmsg("putupl #380 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V744*/ meltfptr[743]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #380 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V744*/ meltfptr[743])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V744*/ meltfptr[743]))->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V732*/ meltfptr[731]); /*putupl#381*/ melt_assertmsg("putupl #381 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V744*/ meltfptr[743]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #381 checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V744*/ meltfptr[743])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V744*/ meltfptr[743]))->tabval[6] = (melt_ptr_t)(/*_._VALDATA___V742*/ meltfptr[741]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V744*/ meltfptr[743]); MELT_LOCATION("warmelt-macro.melt:813:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_645__CLASS_SOURCE_DEFMACRO @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V739*/ meltfptr[738])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_645__CLASS_SOURCE_DEFMACRO @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V739*/ meltfptr[738])))); ((meltobject_ptr_t)(/*_._VALDATA___V739*/ meltfptr[738]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V744*/ meltfptr[743]); MELT_LOCATION("warmelt-macro.melt:813:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V739*/ meltfptr[738]); MELT_LOCATION("warmelt-macro.melt:813:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V739*/ meltfptr[738], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_649__SMACRO_BINDING @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V745*/ meltfptr[744])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_649__SMACRO_BINDING @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V745*/ meltfptr[744])))); ((meltobject_ptr_t)(/*_._VALDATA___V745*/ meltfptr[744]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V746*/ meltfptr[745]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V745*/ meltfptr[744]); melt_dbgtrace_written_object (/*_._VALDATA___V745*/ meltfptr[744], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_653__CLASS_SOURCE_DEFMACRO_IN_LET @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V747*/ meltfptr[746])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_653__CLASS_SOURCE_DEFMACRO_IN_LET @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V747*/ meltfptr[746])))); ((meltobject_ptr_t)(/*_._VALDATA___V747*/ meltfptr[746]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V748*/ meltfptr[747]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V747*/ meltfptr[746]); melt_dbgtrace_written_object (/*_._VALDATA___V747*/ meltfptr[746], "new static instance"); MELT_LOCATION("warmelt-macro.melt:819:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_655__CLASS_SOURCE_DEFMACRO_IN_LET @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V749*/ meltfptr[748])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_655__CLASS_SOURCE_DEFMACRO_IN_LET @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V749*/ meltfptr[748])))); ((meltobject_ptr_t)(/*_._VALDATA___V749*/ meltfptr[748]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V750*/ meltfptr[749]); MELT_LOCATION("warmelt-macro.melt:819:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_655__CLASS_SOURCE_DEFMACRO_IN_LET @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V749*/ meltfptr[748])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_655__CLASS_SOURCE_DEFMACRO_IN_LET @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V749*/ meltfptr[748])))); ((meltobject_ptr_t)(/*_._VALDATA___V749*/ meltfptr[748]))->obj_vartab[4] = (melt_ptr_t)( /*_._VALDATA___V739*/ meltfptr[738]); /*putupl#382*/ melt_assertmsg("putupl #382 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V751*/ meltfptr[750]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #382 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V751*/ meltfptr[750])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V751*/ meltfptr[750]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#383*/ melt_assertmsg("putupl #383 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V751*/ meltfptr[750]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #383 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V751*/ meltfptr[750])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V751*/ meltfptr[750]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#384*/ melt_assertmsg("putupl #384 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V751*/ meltfptr[750]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #384 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V751*/ meltfptr[750])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V751*/ meltfptr[750]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#385*/ melt_assertmsg("putupl #385 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V751*/ meltfptr[750]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #385 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V751*/ meltfptr[750])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V751*/ meltfptr[750]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#386*/ melt_assertmsg("putupl #386 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V751*/ meltfptr[750]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #386 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V751*/ meltfptr[750])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V751*/ meltfptr[750]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V689*/ meltfptr[688]); /*putupl#387*/ melt_assertmsg("putupl #387 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V751*/ meltfptr[750]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #387 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V751*/ meltfptr[750])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V751*/ meltfptr[750]))->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V719*/ meltfptr[718]); /*putupl#388*/ melt_assertmsg("putupl #388 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V751*/ meltfptr[750]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #388 checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V751*/ meltfptr[750])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V751*/ meltfptr[750]))->tabval[6] = (melt_ptr_t)(/*_._VALDATA___V729*/ meltfptr[728]); /*putupl#389*/ melt_assertmsg("putupl #389 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V751*/ meltfptr[750]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #389 checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V751*/ meltfptr[750])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V751*/ meltfptr[750]))->tabval[7] = (melt_ptr_t)(/*_._VALDATA___V739*/ meltfptr[738]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V751*/ meltfptr[750]); MELT_LOCATION("warmelt-macro.melt:819:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_655__CLASS_SOURCE_DEFMACRO_IN_LET @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V749*/ meltfptr[748])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_655__CLASS_SOURCE_DEFMACRO_IN_LET @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V749*/ meltfptr[748])))); ((meltobject_ptr_t)(/*_._VALDATA___V749*/ meltfptr[748]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V751*/ meltfptr[750]); MELT_LOCATION("warmelt-macro.melt:819:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_661__SMACRO_SOURCELETBINDING @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V752*/ meltfptr[751])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_661__SMACRO_SOURCELETBINDING @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V752*/ meltfptr[751])))); ((meltobject_ptr_t)(/*_._VALDATA___V752*/ meltfptr[751]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V753*/ meltfptr[752]); MELT_LOCATION("warmelt-macro.melt:819:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_661__SMACRO_SOURCELETBINDING @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V752*/ meltfptr[751])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_661__SMACRO_SOURCELETBINDING @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V752*/ meltfptr[751])))); ((meltobject_ptr_t)(/*_._VALDATA___V752*/ meltfptr[751]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V749*/ meltfptr[748]); MELT_LOCATION("warmelt-macro.melt:819:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V752*/ meltfptr[751]); MELT_LOCATION("warmelt-macro.melt:819:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V752*/ meltfptr[751], "new static instance"); /*putupl#390*/ melt_assertmsg("putupl #390 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V754*/ meltfptr[753]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #390 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V754*/ meltfptr[753])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V754*/ meltfptr[753]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#391*/ melt_assertmsg("putupl #391 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V754*/ meltfptr[753]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #391 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V754*/ meltfptr[753])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V754*/ meltfptr[753]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#392*/ melt_assertmsg("putupl #392 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V754*/ meltfptr[753]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #392 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V754*/ meltfptr[753])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V754*/ meltfptr[753]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V692*/ meltfptr[691]); /*putupl#393*/ melt_assertmsg("putupl #393 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V754*/ meltfptr[753]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #393 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V754*/ meltfptr[753])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V754*/ meltfptr[753]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V694*/ meltfptr[693]); /*putupl#394*/ melt_assertmsg("putupl #394 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V754*/ meltfptr[753]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #394 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V754*/ meltfptr[753])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V754*/ meltfptr[753]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V722*/ meltfptr[721]); /*putupl#395*/ melt_assertmsg("putupl #395 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V754*/ meltfptr[753]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #395 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V754*/ meltfptr[753])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V754*/ meltfptr[753]))->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V732*/ meltfptr[731]); /*putupl#396*/ melt_assertmsg("putupl #396 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V754*/ meltfptr[753]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #396 checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V754*/ meltfptr[753])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V754*/ meltfptr[753]))->tabval[6] = (melt_ptr_t)(/*_._VALDATA___V742*/ meltfptr[741]); /*putupl#397*/ melt_assertmsg("putupl #397 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V754*/ meltfptr[753]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #397 checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V754*/ meltfptr[753])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V754*/ meltfptr[753]))->tabval[7] = (melt_ptr_t)(/*_._VALDATA___V752*/ meltfptr[751]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V754*/ meltfptr[753]); MELT_LOCATION("warmelt-macro.melt:819:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_655__CLASS_SOURCE_DEFMACRO_IN_LET @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V749*/ meltfptr[748])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_655__CLASS_SOURCE_DEFMACRO_IN_LET @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V749*/ meltfptr[748])))); ((meltobject_ptr_t)(/*_._VALDATA___V749*/ meltfptr[748]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V754*/ meltfptr[753]); MELT_LOCATION("warmelt-macro.melt:819:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V749*/ meltfptr[748]); MELT_LOCATION("warmelt-macro.melt:819:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V749*/ meltfptr[748], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_659__SMACRO_SOURCELETBINDING @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V755*/ meltfptr[754])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_659__SMACRO_SOURCELETBINDING @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V755*/ meltfptr[754])))); ((meltobject_ptr_t)(/*_._VALDATA___V755*/ meltfptr[754]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V756*/ meltfptr[755]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V755*/ meltfptr[754]); melt_dbgtrace_written_object (/*_._VALDATA___V755*/ meltfptr[754], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_663__CLASS_DEFINED_MACRO_BINDING @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V757*/ meltfptr[756])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_663__CLASS_DEFINED_MACRO_BINDING @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V757*/ meltfptr[756])))); ((meltobject_ptr_t)(/*_._VALDATA___V757*/ meltfptr[756]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V758*/ meltfptr[757]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V757*/ meltfptr[756]); melt_dbgtrace_written_object (/*_._VALDATA___V757*/ meltfptr[756], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_665__CLASS_MACRO_BINDING @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V759*/ meltfptr[758])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_665__CLASS_MACRO_BINDING @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V759*/ meltfptr[758])))); ((meltobject_ptr_t)(/*_._VALDATA___V759*/ meltfptr[758]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V760*/ meltfptr[759]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V759*/ meltfptr[758]); melt_dbgtrace_written_object (/*_._VALDATA___V759*/ meltfptr[758], "new static instance"); MELT_LOCATION("warmelt-macro.melt:825:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_667__CLASS_DEFINED_MACRO_BINDING @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V761*/ meltfptr[760])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_667__CLASS_DEFINED_MACRO_BINDING @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V761*/ meltfptr[760])))); ((meltobject_ptr_t)(/*_._VALDATA___V761*/ meltfptr[760]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V762*/ meltfptr[761]); MELT_LOCATION("warmelt-macro.melt:825:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_667__CLASS_DEFINED_MACRO_BINDING @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V761*/ meltfptr[760])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_667__CLASS_DEFINED_MACRO_BINDING @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V761*/ meltfptr[760])))); ((meltobject_ptr_t)(/*_._VALDATA___V761*/ meltfptr[760]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_MACRO_BINDING__V26*/ meltfptr[25]); /*putupl#398*/ melt_assertmsg("putupl #398 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V763*/ meltfptr[762]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #398 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V763*/ meltfptr[762])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V763*/ meltfptr[762]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_MACRO_BINDING__V26*/ meltfptr[25]),5))), (0)))); /*putupl#399*/ melt_assertmsg("putupl #399 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V763*/ meltfptr[762]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #399 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V763*/ meltfptr[762])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V763*/ meltfptr[762]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_MACRO_BINDING__V26*/ meltfptr[25]),5))), (1)))); /*putupl#400*/ melt_assertmsg("putupl #400 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V763*/ meltfptr[762]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #400 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V763*/ meltfptr[762])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V763*/ meltfptr[762]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_MACRO_BINDING__V26*/ meltfptr[25]),5))), (2)))); /*putupl#401*/ melt_assertmsg("putupl #401 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V763*/ meltfptr[762]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #401 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V763*/ meltfptr[762])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V763*/ meltfptr[762]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_MACRO_BINDING__V26*/ meltfptr[25]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V763*/ meltfptr[762]); MELT_LOCATION("warmelt-macro.melt:825:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_667__CLASS_DEFINED_MACRO_BINDING @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V761*/ meltfptr[760])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_667__CLASS_DEFINED_MACRO_BINDING @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V761*/ meltfptr[760])))); ((meltobject_ptr_t)(/*_._VALDATA___V761*/ meltfptr[760]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V763*/ meltfptr[762]); MELT_LOCATION("warmelt-macro.melt:825:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_673__MBIND_DEFMACRO @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V764*/ meltfptr[763])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_673__MBIND_DEFMACRO @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V764*/ meltfptr[763])))); ((meltobject_ptr_t)(/*_._VALDATA___V764*/ meltfptr[763]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V765*/ meltfptr[764]); MELT_LOCATION("warmelt-macro.melt:825:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_673__MBIND_DEFMACRO @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V764*/ meltfptr[763])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_673__MBIND_DEFMACRO @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V764*/ meltfptr[763])))); ((meltobject_ptr_t)(/*_._VALDATA___V764*/ meltfptr[763]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V761*/ meltfptr[760]); MELT_LOCATION("warmelt-macro.melt:825:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V764*/ meltfptr[763]); MELT_LOCATION("warmelt-macro.melt:825:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V764*/ meltfptr[763], "new static instance"); MELT_LOCATION("warmelt-macro.melt:825:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_677__MBIND_DATA @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V766*/ meltfptr[765])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_677__MBIND_DATA @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V766*/ meltfptr[765])))); ((meltobject_ptr_t)(/*_._VALDATA___V766*/ meltfptr[765]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V767*/ meltfptr[766]); MELT_LOCATION("warmelt-macro.melt:825:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_677__MBIND_DATA @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V766*/ meltfptr[765])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_677__MBIND_DATA @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V766*/ meltfptr[765])))); ((meltobject_ptr_t)(/*_._VALDATA___V766*/ meltfptr[765]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V761*/ meltfptr[760]); MELT_LOCATION("warmelt-macro.melt:825:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V766*/ meltfptr[765]); MELT_LOCATION("warmelt-macro.melt:825:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V766*/ meltfptr[765], "new static instance"); /*putupl#402*/ melt_assertmsg("putupl #402 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V768*/ meltfptr[767]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #402 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V768*/ meltfptr[767])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V768*/ meltfptr[767]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_MACRO_BINDING__V26*/ meltfptr[25]),6))), (0)))); /*putupl#403*/ melt_assertmsg("putupl #403 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V768*/ meltfptr[767]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #403 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V768*/ meltfptr[767])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V768*/ meltfptr[767]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_MACRO_BINDING__V26*/ meltfptr[25]),6))), (1)))); /*putupl#404*/ melt_assertmsg("putupl #404 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V768*/ meltfptr[767]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #404 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V768*/ meltfptr[767])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V768*/ meltfptr[767]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V764*/ meltfptr[763]); /*putupl#405*/ melt_assertmsg("putupl #405 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V768*/ meltfptr[767]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #405 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V768*/ meltfptr[767])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V768*/ meltfptr[767]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V766*/ meltfptr[765]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V768*/ meltfptr[767]); MELT_LOCATION("warmelt-macro.melt:825:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_667__CLASS_DEFINED_MACRO_BINDING @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V761*/ meltfptr[760])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_667__CLASS_DEFINED_MACRO_BINDING @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V761*/ meltfptr[760])))); ((meltobject_ptr_t)(/*_._VALDATA___V761*/ meltfptr[760]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V768*/ meltfptr[767]); #undef meltfram__ } /*end of meltmod__WARMELTmiMACRO__initialmeltchunk_13*/ void meltmod__WARMELTmiMACRO__initialmeltchunk_14 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; MELT_LOCATION("warmelt-macro.melt:825:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V761*/ meltfptr[760]); MELT_LOCATION("warmelt-macro.melt:825:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V761*/ meltfptr[760], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_671__MBIND_DEFMACRO @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V769*/ meltfptr[768])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_671__MBIND_DEFMACRO @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V769*/ meltfptr[768])))); ((meltobject_ptr_t)(/*_._VALDATA___V769*/ meltfptr[768]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V770*/ meltfptr[769]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V769*/ meltfptr[768]); melt_dbgtrace_written_object (/*_._VALDATA___V769*/ meltfptr[768], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_675__MBIND_DATA @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V771*/ meltfptr[770])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_675__MBIND_DATA @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V771*/ meltfptr[770])))); ((meltobject_ptr_t)(/*_._VALDATA___V771*/ meltfptr[770]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V772*/ meltfptr[771]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V771*/ meltfptr[770]); melt_dbgtrace_written_object (/*_._VALDATA___V771*/ meltfptr[770], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_679__CLASS_SOURCE_MACRO_INSTALLATION @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V773*/ meltfptr[772])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_679__CLASS_SOURCE_MACRO_INSTALLATION @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V773*/ meltfptr[772])))); ((meltobject_ptr_t)(/*_._VALDATA___V773*/ meltfptr[772]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V774*/ meltfptr[773]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V773*/ meltfptr[772]); melt_dbgtrace_written_object (/*_._VALDATA___V773*/ meltfptr[772], "new static instance"); MELT_LOCATION("warmelt-macro.melt:833:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_681__CLASS_SOURCE_MACRO_INSTALLATION @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V775*/ meltfptr[774])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_681__CLASS_SOURCE_MACRO_INSTALLATION @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V775*/ meltfptr[774])))); ((meltobject_ptr_t)(/*_._VALDATA___V775*/ meltfptr[774]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V776*/ meltfptr[775]); MELT_LOCATION("warmelt-macro.melt:833:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_681__CLASS_SOURCE_MACRO_INSTALLATION @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V775*/ meltfptr[774])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_681__CLASS_SOURCE_MACRO_INSTALLATION @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V775*/ meltfptr[774])))); ((meltobject_ptr_t)(/*_._VALDATA___V775*/ meltfptr[774]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#406*/ melt_assertmsg("putupl #406 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V777*/ meltfptr[776]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #406 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V777*/ meltfptr[776])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V777*/ meltfptr[776]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#407*/ melt_assertmsg("putupl #407 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V777*/ meltfptr[776]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #407 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V777*/ meltfptr[776])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V777*/ meltfptr[776]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#408*/ melt_assertmsg("putupl #408 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V777*/ meltfptr[776]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #408 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V777*/ meltfptr[776])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V777*/ meltfptr[776]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#409*/ melt_assertmsg("putupl #409 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V777*/ meltfptr[776]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #409 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V777*/ meltfptr[776])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V777*/ meltfptr[776]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V777*/ meltfptr[776]); MELT_LOCATION("warmelt-macro.melt:833:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_681__CLASS_SOURCE_MACRO_INSTALLATION @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V775*/ meltfptr[774])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_681__CLASS_SOURCE_MACRO_INSTALLATION @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V775*/ meltfptr[774])))); ((meltobject_ptr_t)(/*_._VALDATA___V775*/ meltfptr[774]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V777*/ meltfptr[776]); MELT_LOCATION("warmelt-macro.melt:833:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_687__SMACINST_DEFMACRO @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V778*/ meltfptr[777])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_687__SMACINST_DEFMACRO @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V778*/ meltfptr[777])))); ((meltobject_ptr_t)(/*_._VALDATA___V778*/ meltfptr[777]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V779*/ meltfptr[778]); MELT_LOCATION("warmelt-macro.melt:833:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_687__SMACINST_DEFMACRO @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V778*/ meltfptr[777])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_687__SMACINST_DEFMACRO @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V778*/ meltfptr[777])))); ((meltobject_ptr_t)(/*_._VALDATA___V778*/ meltfptr[777]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V775*/ meltfptr[774]); MELT_LOCATION("warmelt-macro.melt:833:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V778*/ meltfptr[777]); MELT_LOCATION("warmelt-macro.melt:833:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V778*/ meltfptr[777], "new static instance"); MELT_LOCATION("warmelt-macro.melt:833:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_691__SMACINST_ENV @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V780*/ meltfptr[779])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_691__SMACINST_ENV @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V780*/ meltfptr[779])))); ((meltobject_ptr_t)(/*_._VALDATA___V780*/ meltfptr[779]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V781*/ meltfptr[780]); MELT_LOCATION("warmelt-macro.melt:833:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_691__SMACINST_ENV @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V780*/ meltfptr[779])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_691__SMACINST_ENV @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V780*/ meltfptr[779])))); ((meltobject_ptr_t)(/*_._VALDATA___V780*/ meltfptr[779]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V775*/ meltfptr[774]); MELT_LOCATION("warmelt-macro.melt:833:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V780*/ meltfptr[779]); MELT_LOCATION("warmelt-macro.melt:833:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V780*/ meltfptr[779], "new static instance"); /*putupl#410*/ melt_assertmsg("putupl #410 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V782*/ meltfptr[781]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #410 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V782*/ meltfptr[781])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V782*/ meltfptr[781]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#411*/ melt_assertmsg("putupl #411 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V782*/ meltfptr[781]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #411 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V782*/ meltfptr[781])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V782*/ meltfptr[781]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#412*/ melt_assertmsg("putupl #412 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V782*/ meltfptr[781]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #412 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V782*/ meltfptr[781])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V782*/ meltfptr[781]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V778*/ meltfptr[777]); /*putupl#413*/ melt_assertmsg("putupl #413 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V782*/ meltfptr[781]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #413 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V782*/ meltfptr[781])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V782*/ meltfptr[781]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V780*/ meltfptr[779]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V782*/ meltfptr[781]); MELT_LOCATION("warmelt-macro.melt:833:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_681__CLASS_SOURCE_MACRO_INSTALLATION @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V775*/ meltfptr[774])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_681__CLASS_SOURCE_MACRO_INSTALLATION @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V775*/ meltfptr[774])))); ((meltobject_ptr_t)(/*_._VALDATA___V775*/ meltfptr[774]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V782*/ meltfptr[781]); MELT_LOCATION("warmelt-macro.melt:833:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V775*/ meltfptr[774]); MELT_LOCATION("warmelt-macro.melt:833:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V775*/ meltfptr[774], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_685__SMACINST_DEFMACRO @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V783*/ meltfptr[782])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_685__SMACINST_DEFMACRO @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V783*/ meltfptr[782])))); ((meltobject_ptr_t)(/*_._VALDATA___V783*/ meltfptr[782]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V784*/ meltfptr[783]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V783*/ meltfptr[782]); melt_dbgtrace_written_object (/*_._VALDATA___V783*/ meltfptr[782], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_689__SMACINST_ENV @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V785*/ meltfptr[784])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_689__SMACINST_ENV @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V785*/ meltfptr[784])))); ((meltobject_ptr_t)(/*_._VALDATA___V785*/ meltfptr[784]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V786*/ meltfptr[785]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V785*/ meltfptr[784]); melt_dbgtrace_written_object (/*_._VALDATA___V785*/ meltfptr[784], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_693__CLASS_SOURCE_DEFPRIMITIVE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V787*/ meltfptr[786])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_693__CLASS_SOURCE_DEFPRIMITIVE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V787*/ meltfptr[786])))); ((meltobject_ptr_t)(/*_._VALDATA___V787*/ meltfptr[786]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V788*/ meltfptr[787]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V787*/ meltfptr[786]); melt_dbgtrace_written_object (/*_._VALDATA___V787*/ meltfptr[786], "new static instance"); MELT_LOCATION("warmelt-macro.melt:842:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_695__CLASS_SOURCE_DEFPRIMITIVE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V789*/ meltfptr[788])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_695__CLASS_SOURCE_DEFPRIMITIVE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V789*/ meltfptr[788])))); ((meltobject_ptr_t)(/*_._VALDATA___V789*/ meltfptr[788]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V790*/ meltfptr[789]); MELT_LOCATION("warmelt-macro.melt:842:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_695__CLASS_SOURCE_DEFPRIMITIVE @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V789*/ meltfptr[788])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_695__CLASS_SOURCE_DEFPRIMITIVE @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V789*/ meltfptr[788])))); ((meltobject_ptr_t)(/*_._VALDATA___V789*/ meltfptr[788]))->obj_vartab[4] = (melt_ptr_t)( /*_._VALDATA___V719*/ meltfptr[718]); /*putupl#414*/ melt_assertmsg("putupl #414 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V791*/ meltfptr[790]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #414 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V791*/ meltfptr[790])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V791*/ meltfptr[790]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#415*/ melt_assertmsg("putupl #415 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V791*/ meltfptr[790]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #415 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V791*/ meltfptr[790])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V791*/ meltfptr[790]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#416*/ melt_assertmsg("putupl #416 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V791*/ meltfptr[790]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #416 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V791*/ meltfptr[790])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V791*/ meltfptr[790]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#417*/ melt_assertmsg("putupl #417 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V791*/ meltfptr[790]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #417 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V791*/ meltfptr[790])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V791*/ meltfptr[790]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#418*/ melt_assertmsg("putupl #418 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V791*/ meltfptr[790]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #418 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V791*/ meltfptr[790])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V791*/ meltfptr[790]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V689*/ meltfptr[688]); /*putupl#419*/ melt_assertmsg("putupl #419 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V791*/ meltfptr[790]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #419 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V791*/ meltfptr[790])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V791*/ meltfptr[790]))->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V719*/ meltfptr[718]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V791*/ meltfptr[790]); MELT_LOCATION("warmelt-macro.melt:842:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_695__CLASS_SOURCE_DEFPRIMITIVE @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V789*/ meltfptr[788])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_695__CLASS_SOURCE_DEFPRIMITIVE @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V789*/ meltfptr[788])))); ((meltobject_ptr_t)(/*_._VALDATA___V789*/ meltfptr[788]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V791*/ meltfptr[790]); MELT_LOCATION("warmelt-macro.melt:842:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_701__SPRIM_TYPE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V792*/ meltfptr[791])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_701__SPRIM_TYPE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V792*/ meltfptr[791])))); ((meltobject_ptr_t)(/*_._VALDATA___V792*/ meltfptr[791]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V793*/ meltfptr[792]); MELT_LOCATION("warmelt-macro.melt:842:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_701__SPRIM_TYPE @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V792*/ meltfptr[791])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_701__SPRIM_TYPE @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V792*/ meltfptr[791])))); ((meltobject_ptr_t)(/*_._VALDATA___V792*/ meltfptr[791]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V789*/ meltfptr[788]); MELT_LOCATION("warmelt-macro.melt:842:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V792*/ meltfptr[791]); MELT_LOCATION("warmelt-macro.melt:842:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V792*/ meltfptr[791], "new static instance"); MELT_LOCATION("warmelt-macro.melt:842:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_705__SPRIM_EXPANSION @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V794*/ meltfptr[793])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_705__SPRIM_EXPANSION @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V794*/ meltfptr[793])))); ((meltobject_ptr_t)(/*_._VALDATA___V794*/ meltfptr[793]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V795*/ meltfptr[794]); MELT_LOCATION("warmelt-macro.melt:842:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_705__SPRIM_EXPANSION @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V794*/ meltfptr[793])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_705__SPRIM_EXPANSION @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V794*/ meltfptr[793])))); ((meltobject_ptr_t)(/*_._VALDATA___V794*/ meltfptr[793]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V789*/ meltfptr[788]); MELT_LOCATION("warmelt-macro.melt:842:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V794*/ meltfptr[793]); MELT_LOCATION("warmelt-macro.melt:842:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V794*/ meltfptr[793], "new static instance"); MELT_LOCATION("warmelt-macro.melt:842:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_709__SPRIM_EXPLOC @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V796*/ meltfptr[795])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_709__SPRIM_EXPLOC @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V796*/ meltfptr[795])))); ((meltobject_ptr_t)(/*_._VALDATA___V796*/ meltfptr[795]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V797*/ meltfptr[796]); MELT_LOCATION("warmelt-macro.melt:842:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_709__SPRIM_EXPLOC @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V796*/ meltfptr[795])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_709__SPRIM_EXPLOC @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V796*/ meltfptr[795])))); ((meltobject_ptr_t)(/*_._VALDATA___V796*/ meltfptr[795]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V789*/ meltfptr[788]); MELT_LOCATION("warmelt-macro.melt:842:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V796*/ meltfptr[795]); MELT_LOCATION("warmelt-macro.melt:842:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V796*/ meltfptr[795], "new static instance"); /*putupl#420*/ melt_assertmsg("putupl #420 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V798*/ meltfptr[797]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #420 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V798*/ meltfptr[797])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V798*/ meltfptr[797]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#421*/ melt_assertmsg("putupl #421 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V798*/ meltfptr[797]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #421 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V798*/ meltfptr[797])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V798*/ meltfptr[797]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#422*/ melt_assertmsg("putupl #422 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V798*/ meltfptr[797]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #422 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V798*/ meltfptr[797])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V798*/ meltfptr[797]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V692*/ meltfptr[691]); /*putupl#423*/ melt_assertmsg("putupl #423 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V798*/ meltfptr[797]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #423 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V798*/ meltfptr[797])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V798*/ meltfptr[797]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V694*/ meltfptr[693]); /*putupl#424*/ melt_assertmsg("putupl #424 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V798*/ meltfptr[797]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #424 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V798*/ meltfptr[797])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V798*/ meltfptr[797]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V722*/ meltfptr[721]); /*putupl#425*/ melt_assertmsg("putupl #425 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V798*/ meltfptr[797]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #425 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V798*/ meltfptr[797])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V798*/ meltfptr[797]))->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V792*/ meltfptr[791]); /*putupl#426*/ melt_assertmsg("putupl #426 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V798*/ meltfptr[797]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #426 checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V798*/ meltfptr[797])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V798*/ meltfptr[797]))->tabval[6] = (melt_ptr_t)(/*_._VALDATA___V794*/ meltfptr[793]); /*putupl#427*/ melt_assertmsg("putupl #427 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V798*/ meltfptr[797]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #427 checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V798*/ meltfptr[797])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V798*/ meltfptr[797]))->tabval[7] = (melt_ptr_t)(/*_._VALDATA___V796*/ meltfptr[795]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V798*/ meltfptr[797]); MELT_LOCATION("warmelt-macro.melt:842:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_695__CLASS_SOURCE_DEFPRIMITIVE @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V789*/ meltfptr[788])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_695__CLASS_SOURCE_DEFPRIMITIVE @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V789*/ meltfptr[788])))); ((meltobject_ptr_t)(/*_._VALDATA___V789*/ meltfptr[788]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V798*/ meltfptr[797]); MELT_LOCATION("warmelt-macro.melt:842:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V789*/ meltfptr[788]); MELT_LOCATION("warmelt-macro.melt:842:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V789*/ meltfptr[788], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_699__SPRIM_TYPE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V799*/ meltfptr[798])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_699__SPRIM_TYPE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V799*/ meltfptr[798])))); ((meltobject_ptr_t)(/*_._VALDATA___V799*/ meltfptr[798]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V800*/ meltfptr[799]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V799*/ meltfptr[798]); melt_dbgtrace_written_object (/*_._VALDATA___V799*/ meltfptr[798], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_703__SPRIM_EXPANSION @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V801*/ meltfptr[800])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_703__SPRIM_EXPANSION @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V801*/ meltfptr[800])))); ((meltobject_ptr_t)(/*_._VALDATA___V801*/ meltfptr[800]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V802*/ meltfptr[801]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V801*/ meltfptr[800]); melt_dbgtrace_written_object (/*_._VALDATA___V801*/ meltfptr[800], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_707__SPRIM_EXPLOC @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V803*/ meltfptr[802])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_707__SPRIM_EXPLOC @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V803*/ meltfptr[802])))); ((meltobject_ptr_t)(/*_._VALDATA___V803*/ meltfptr[802]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V804*/ meltfptr[803]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V803*/ meltfptr[802]); melt_dbgtrace_written_object (/*_._VALDATA___V803*/ meltfptr[802], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_711__CLASS_SOURCE_DEFHOOK @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V805*/ meltfptr[804])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_711__CLASS_SOURCE_DEFHOOK @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V805*/ meltfptr[804])))); ((meltobject_ptr_t)(/*_._VALDATA___V805*/ meltfptr[804]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V806*/ meltfptr[805]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V805*/ meltfptr[804]); melt_dbgtrace_written_object (/*_._VALDATA___V805*/ meltfptr[804], "new static instance"); MELT_LOCATION("warmelt-macro.melt:854:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_713__CLASS_SOURCE_DEFHOOK @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V807*/ meltfptr[806])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_713__CLASS_SOURCE_DEFHOOK @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V807*/ meltfptr[806])))); ((meltobject_ptr_t)(/*_._VALDATA___V807*/ meltfptr[806]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V808*/ meltfptr[807]); MELT_LOCATION("warmelt-macro.melt:854:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_713__CLASS_SOURCE_DEFHOOK @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V807*/ meltfptr[806])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_713__CLASS_SOURCE_DEFHOOK @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V807*/ meltfptr[806])))); ((meltobject_ptr_t)(/*_._VALDATA___V807*/ meltfptr[806]))->obj_vartab[4] = (melt_ptr_t)( /*_._VALDATA___V719*/ meltfptr[718]); /*putupl#428*/ melt_assertmsg("putupl #428 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V809*/ meltfptr[808]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #428 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V809*/ meltfptr[808])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V809*/ meltfptr[808]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#429*/ melt_assertmsg("putupl #429 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V809*/ meltfptr[808]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #429 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V809*/ meltfptr[808])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V809*/ meltfptr[808]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#430*/ melt_assertmsg("putupl #430 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V809*/ meltfptr[808]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #430 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V809*/ meltfptr[808])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V809*/ meltfptr[808]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#431*/ melt_assertmsg("putupl #431 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V809*/ meltfptr[808]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #431 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V809*/ meltfptr[808])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V809*/ meltfptr[808]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#432*/ melt_assertmsg("putupl #432 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V809*/ meltfptr[808]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #432 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V809*/ meltfptr[808])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V809*/ meltfptr[808]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V689*/ meltfptr[688]); /*putupl#433*/ melt_assertmsg("putupl #433 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V809*/ meltfptr[808]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #433 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V809*/ meltfptr[808])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V809*/ meltfptr[808]))->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V719*/ meltfptr[718]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V809*/ meltfptr[808]); MELT_LOCATION("warmelt-macro.melt:854:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_713__CLASS_SOURCE_DEFHOOK @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V807*/ meltfptr[806])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_713__CLASS_SOURCE_DEFHOOK @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V807*/ meltfptr[806])))); ((meltobject_ptr_t)(/*_._VALDATA___V807*/ meltfptr[806]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V809*/ meltfptr[808]); MELT_LOCATION("warmelt-macro.melt:854:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_719__SHOOK_OUT_FORMALS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V810*/ meltfptr[809])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_719__SHOOK_OUT_FORMALS @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V810*/ meltfptr[809])))); ((meltobject_ptr_t)(/*_._VALDATA___V810*/ meltfptr[809]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V811*/ meltfptr[810]); MELT_LOCATION("warmelt-macro.melt:854:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_719__SHOOK_OUT_FORMALS @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V810*/ meltfptr[809])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_719__SHOOK_OUT_FORMALS @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V810*/ meltfptr[809])))); ((meltobject_ptr_t)(/*_._VALDATA___V810*/ meltfptr[809]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V807*/ meltfptr[806]); MELT_LOCATION("warmelt-macro.melt:854:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V810*/ meltfptr[809]); MELT_LOCATION("warmelt-macro.melt:854:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V810*/ meltfptr[809], "new static instance"); MELT_LOCATION("warmelt-macro.melt:854:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_723__SHOOK_CTYPE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V812*/ meltfptr[811])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_723__SHOOK_CTYPE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V812*/ meltfptr[811])))); ((meltobject_ptr_t)(/*_._VALDATA___V812*/ meltfptr[811]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V813*/ meltfptr[812]); MELT_LOCATION("warmelt-macro.melt:854:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_723__SHOOK_CTYPE @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V812*/ meltfptr[811])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_723__SHOOK_CTYPE @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V812*/ meltfptr[811])))); ((meltobject_ptr_t)(/*_._VALDATA___V812*/ meltfptr[811]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V807*/ meltfptr[806]); MELT_LOCATION("warmelt-macro.melt:854:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V812*/ meltfptr[811]); MELT_LOCATION("warmelt-macro.melt:854:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V812*/ meltfptr[811], "new static instance"); MELT_LOCATION("warmelt-macro.melt:854:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_727__SHOOK_PREDEF @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V814*/ meltfptr[813])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_727__SHOOK_PREDEF @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V814*/ meltfptr[813])))); ((meltobject_ptr_t)(/*_._VALDATA___V814*/ meltfptr[813]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V815*/ meltfptr[814]); MELT_LOCATION("warmelt-macro.melt:854:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_727__SHOOK_PREDEF @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V814*/ meltfptr[813])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_727__SHOOK_PREDEF @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V814*/ meltfptr[813])))); ((meltobject_ptr_t)(/*_._VALDATA___V814*/ meltfptr[813]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V807*/ meltfptr[806]); MELT_LOCATION("warmelt-macro.melt:854:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V814*/ meltfptr[813]); MELT_LOCATION("warmelt-macro.melt:854:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V814*/ meltfptr[813], "new static instance"); MELT_LOCATION("warmelt-macro.melt:854:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_731__SHOOK_VARIABLE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V816*/ meltfptr[815])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_731__SHOOK_VARIABLE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V816*/ meltfptr[815])))); ((meltobject_ptr_t)(/*_._VALDATA___V816*/ meltfptr[815]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V817*/ meltfptr[816]); MELT_LOCATION("warmelt-macro.melt:854:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_731__SHOOK_VARIABLE @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V816*/ meltfptr[815])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_731__SHOOK_VARIABLE @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V816*/ meltfptr[815])))); ((meltobject_ptr_t)(/*_._VALDATA___V816*/ meltfptr[815]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V807*/ meltfptr[806]); MELT_LOCATION("warmelt-macro.melt:854:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V816*/ meltfptr[815]); MELT_LOCATION("warmelt-macro.melt:854:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V816*/ meltfptr[815], "new static instance"); MELT_LOCATION("warmelt-macro.melt:854:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_735__SHOOK_BODY @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V818*/ meltfptr[817])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_735__SHOOK_BODY @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V818*/ meltfptr[817])))); ((meltobject_ptr_t)(/*_._VALDATA___V818*/ meltfptr[817]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V819*/ meltfptr[818]); MELT_LOCATION("warmelt-macro.melt:854:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_735__SHOOK_BODY @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V818*/ meltfptr[817])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_735__SHOOK_BODY @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V818*/ meltfptr[817])))); ((meltobject_ptr_t)(/*_._VALDATA___V818*/ meltfptr[817]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V807*/ meltfptr[806]); MELT_LOCATION("warmelt-macro.melt:854:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V818*/ meltfptr[817]); MELT_LOCATION("warmelt-macro.melt:854:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V818*/ meltfptr[817], "new static instance"); /*putupl#434*/ melt_assertmsg("putupl #434 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V820*/ meltfptr[819]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #434 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V820*/ meltfptr[819])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V820*/ meltfptr[819]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#435*/ melt_assertmsg("putupl #435 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V820*/ meltfptr[819]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #435 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V820*/ meltfptr[819])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V820*/ meltfptr[819]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#436*/ melt_assertmsg("putupl #436 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V820*/ meltfptr[819]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #436 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V820*/ meltfptr[819])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V820*/ meltfptr[819]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V692*/ meltfptr[691]); /*putupl#437*/ melt_assertmsg("putupl #437 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V820*/ meltfptr[819]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #437 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V820*/ meltfptr[819])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V820*/ meltfptr[819]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V694*/ meltfptr[693]); /*putupl#438*/ melt_assertmsg("putupl #438 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V820*/ meltfptr[819]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #438 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V820*/ meltfptr[819])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V820*/ meltfptr[819]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V722*/ meltfptr[721]); /*putupl#439*/ melt_assertmsg("putupl #439 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V820*/ meltfptr[819]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #439 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V820*/ meltfptr[819])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V820*/ meltfptr[819]))->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V810*/ meltfptr[809]); /*putupl#440*/ melt_assertmsg("putupl #440 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V820*/ meltfptr[819]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #440 checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V820*/ meltfptr[819])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V820*/ meltfptr[819]))->tabval[6] = (melt_ptr_t)(/*_._VALDATA___V812*/ meltfptr[811]); /*putupl#441*/ melt_assertmsg("putupl #441 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V820*/ meltfptr[819]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #441 checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V820*/ meltfptr[819])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V820*/ meltfptr[819]))->tabval[7] = (melt_ptr_t)(/*_._VALDATA___V814*/ meltfptr[813]); #undef meltfram__ } /*end of meltmod__WARMELTmiMACRO__initialmeltchunk_14*/ void meltmod__WARMELTmiMACRO__initialmeltchunk_15 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; /*putupl#442*/ melt_assertmsg("putupl #442 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V820*/ meltfptr[819]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #442 checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V820*/ meltfptr[819])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V820*/ meltfptr[819]))->tabval[8] = (melt_ptr_t)(/*_._VALDATA___V816*/ meltfptr[815]); /*putupl#443*/ melt_assertmsg("putupl #443 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V820*/ meltfptr[819]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #443 checkoff", (9>=0 && 9< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V820*/ meltfptr[819])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V820*/ meltfptr[819]))->tabval[9] = (melt_ptr_t)(/*_._VALDATA___V818*/ meltfptr[817]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V820*/ meltfptr[819]); MELT_LOCATION("warmelt-macro.melt:854:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_713__CLASS_SOURCE_DEFHOOK @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V807*/ meltfptr[806])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_713__CLASS_SOURCE_DEFHOOK @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V807*/ meltfptr[806])))); ((meltobject_ptr_t)(/*_._VALDATA___V807*/ meltfptr[806]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V820*/ meltfptr[819]); MELT_LOCATION("warmelt-macro.melt:854:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V807*/ meltfptr[806]); MELT_LOCATION("warmelt-macro.melt:854:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V807*/ meltfptr[806], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_717__SHOOK_OUT_FORMALS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V821*/ meltfptr[820])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_717__SHOOK_OUT_FORMALS @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V821*/ meltfptr[820])))); ((meltobject_ptr_t)(/*_._VALDATA___V821*/ meltfptr[820]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V822*/ meltfptr[821]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V821*/ meltfptr[820]); melt_dbgtrace_written_object (/*_._VALDATA___V821*/ meltfptr[820], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_721__SHOOK_CTYPE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V823*/ meltfptr[822])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_721__SHOOK_CTYPE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V823*/ meltfptr[822])))); ((meltobject_ptr_t)(/*_._VALDATA___V823*/ meltfptr[822]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V824*/ meltfptr[823]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V823*/ meltfptr[822]); melt_dbgtrace_written_object (/*_._VALDATA___V823*/ meltfptr[822], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_725__SHOOK_PREDEF @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V825*/ meltfptr[824])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_725__SHOOK_PREDEF @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V825*/ meltfptr[824])))); ((meltobject_ptr_t)(/*_._VALDATA___V825*/ meltfptr[824]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V826*/ meltfptr[825]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V825*/ meltfptr[824]); melt_dbgtrace_written_object (/*_._VALDATA___V825*/ meltfptr[824], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_729__SHOOK_VARIABLE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V827*/ meltfptr[826])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_729__SHOOK_VARIABLE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V827*/ meltfptr[826])))); ((meltobject_ptr_t)(/*_._VALDATA___V827*/ meltfptr[826]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V828*/ meltfptr[827]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V827*/ meltfptr[826]); melt_dbgtrace_written_object (/*_._VALDATA___V827*/ meltfptr[826], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_733__SHOOK_BODY @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V829*/ meltfptr[828])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_733__SHOOK_BODY @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V829*/ meltfptr[828])))); ((meltobject_ptr_t)(/*_._VALDATA___V829*/ meltfptr[828]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V830*/ meltfptr[829]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V829*/ meltfptr[828]); melt_dbgtrace_written_object (/*_._VALDATA___V829*/ meltfptr[828], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_737__CLASS_SOURCE_DEFCITERATOR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V831*/ meltfptr[830])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_737__CLASS_SOURCE_DEFCITERATOR @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V831*/ meltfptr[830])))); ((meltobject_ptr_t)(/*_._VALDATA___V831*/ meltfptr[830]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V832*/ meltfptr[831]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V831*/ meltfptr[830]); melt_dbgtrace_written_object (/*_._VALDATA___V831*/ meltfptr[830], "new static instance"); MELT_LOCATION("warmelt-macro.melt:865:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_739__CLASS_SOURCE_DEFCITERATOR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V833*/ meltfptr[832])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_739__CLASS_SOURCE_DEFCITERATOR @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V833*/ meltfptr[832])))); ((meltobject_ptr_t)(/*_._VALDATA___V833*/ meltfptr[832]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V834*/ meltfptr[833]); MELT_LOCATION("warmelt-macro.melt:865:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_739__CLASS_SOURCE_DEFCITERATOR @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V833*/ meltfptr[832])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_739__CLASS_SOURCE_DEFCITERATOR @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V833*/ meltfptr[832])))); ((meltobject_ptr_t)(/*_._VALDATA___V833*/ meltfptr[832]))->obj_vartab[4] = (melt_ptr_t)( /*_._VALDATA___V719*/ meltfptr[718]); /*putupl#444*/ melt_assertmsg("putupl #444 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V835*/ meltfptr[834]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #444 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V835*/ meltfptr[834])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V835*/ meltfptr[834]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#445*/ melt_assertmsg("putupl #445 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V835*/ meltfptr[834]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #445 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V835*/ meltfptr[834])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V835*/ meltfptr[834]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#446*/ melt_assertmsg("putupl #446 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V835*/ meltfptr[834]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #446 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V835*/ meltfptr[834])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V835*/ meltfptr[834]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#447*/ melt_assertmsg("putupl #447 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V835*/ meltfptr[834]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #447 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V835*/ meltfptr[834])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V835*/ meltfptr[834]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#448*/ melt_assertmsg("putupl #448 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V835*/ meltfptr[834]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #448 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V835*/ meltfptr[834])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V835*/ meltfptr[834]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V689*/ meltfptr[688]); /*putupl#449*/ melt_assertmsg("putupl #449 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V835*/ meltfptr[834]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #449 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V835*/ meltfptr[834])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V835*/ meltfptr[834]))->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V719*/ meltfptr[718]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V835*/ meltfptr[834]); MELT_LOCATION("warmelt-macro.melt:865:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_739__CLASS_SOURCE_DEFCITERATOR @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V833*/ meltfptr[832])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_739__CLASS_SOURCE_DEFCITERATOR @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V833*/ meltfptr[832])))); ((meltobject_ptr_t)(/*_._VALDATA___V833*/ meltfptr[832]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V835*/ meltfptr[834]); MELT_LOCATION("warmelt-macro.melt:865:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_745__SCITERDEF_CITERATOR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V836*/ meltfptr[835])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_745__SCITERDEF_CITERATOR @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V836*/ meltfptr[835])))); ((meltobject_ptr_t)(/*_._VALDATA___V836*/ meltfptr[835]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V837*/ meltfptr[836]); MELT_LOCATION("warmelt-macro.melt:865:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_745__SCITERDEF_CITERATOR @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V836*/ meltfptr[835])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_745__SCITERDEF_CITERATOR @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V836*/ meltfptr[835])))); ((meltobject_ptr_t)(/*_._VALDATA___V836*/ meltfptr[835]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V833*/ meltfptr[832]); MELT_LOCATION("warmelt-macro.melt:865:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V836*/ meltfptr[835]); MELT_LOCATION("warmelt-macro.melt:865:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V836*/ meltfptr[835], "new static instance"); MELT_LOCATION("warmelt-macro.melt:865:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_749__SCITERDEF_BEFORELOC @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V838*/ meltfptr[837])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_749__SCITERDEF_BEFORELOC @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V838*/ meltfptr[837])))); ((meltobject_ptr_t)(/*_._VALDATA___V838*/ meltfptr[837]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V839*/ meltfptr[838]); MELT_LOCATION("warmelt-macro.melt:865:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_749__SCITERDEF_BEFORELOC @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V838*/ meltfptr[837])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_749__SCITERDEF_BEFORELOC @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V838*/ meltfptr[837])))); ((meltobject_ptr_t)(/*_._VALDATA___V838*/ meltfptr[837]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V833*/ meltfptr[832]); MELT_LOCATION("warmelt-macro.melt:865:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V838*/ meltfptr[837]); MELT_LOCATION("warmelt-macro.melt:865:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V838*/ meltfptr[837], "new static instance"); MELT_LOCATION("warmelt-macro.melt:865:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_753__SCITERDEF_AFTERLOC @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V840*/ meltfptr[839])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_753__SCITERDEF_AFTERLOC @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V840*/ meltfptr[839])))); ((meltobject_ptr_t)(/*_._VALDATA___V840*/ meltfptr[839]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V841*/ meltfptr[840]); MELT_LOCATION("warmelt-macro.melt:865:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_753__SCITERDEF_AFTERLOC @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V840*/ meltfptr[839])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_753__SCITERDEF_AFTERLOC @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V840*/ meltfptr[839])))); ((meltobject_ptr_t)(/*_._VALDATA___V840*/ meltfptr[839]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V833*/ meltfptr[832]); MELT_LOCATION("warmelt-macro.melt:865:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V840*/ meltfptr[839]); MELT_LOCATION("warmelt-macro.melt:865:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V840*/ meltfptr[839], "new static instance"); /*putupl#450*/ melt_assertmsg("putupl #450 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V842*/ meltfptr[841]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #450 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V842*/ meltfptr[841])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V842*/ meltfptr[841]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#451*/ melt_assertmsg("putupl #451 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V842*/ meltfptr[841]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #451 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V842*/ meltfptr[841])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V842*/ meltfptr[841]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#452*/ melt_assertmsg("putupl #452 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V842*/ meltfptr[841]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #452 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V842*/ meltfptr[841])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V842*/ meltfptr[841]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V692*/ meltfptr[691]); /*putupl#453*/ melt_assertmsg("putupl #453 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V842*/ meltfptr[841]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #453 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V842*/ meltfptr[841])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V842*/ meltfptr[841]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V694*/ meltfptr[693]); /*putupl#454*/ melt_assertmsg("putupl #454 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V842*/ meltfptr[841]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #454 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V842*/ meltfptr[841])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V842*/ meltfptr[841]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V722*/ meltfptr[721]); /*putupl#455*/ melt_assertmsg("putupl #455 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V842*/ meltfptr[841]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #455 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V842*/ meltfptr[841])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V842*/ meltfptr[841]))->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V836*/ meltfptr[835]); /*putupl#456*/ melt_assertmsg("putupl #456 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V842*/ meltfptr[841]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #456 checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V842*/ meltfptr[841])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V842*/ meltfptr[841]))->tabval[6] = (melt_ptr_t)(/*_._VALDATA___V838*/ meltfptr[837]); /*putupl#457*/ melt_assertmsg("putupl #457 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V842*/ meltfptr[841]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #457 checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V842*/ meltfptr[841])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V842*/ meltfptr[841]))->tabval[7] = (melt_ptr_t)(/*_._VALDATA___V840*/ meltfptr[839]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V842*/ meltfptr[841]); MELT_LOCATION("warmelt-macro.melt:865:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_739__CLASS_SOURCE_DEFCITERATOR @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V833*/ meltfptr[832])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_739__CLASS_SOURCE_DEFCITERATOR @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V833*/ meltfptr[832])))); ((meltobject_ptr_t)(/*_._VALDATA___V833*/ meltfptr[832]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V842*/ meltfptr[841]); MELT_LOCATION("warmelt-macro.melt:865:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V833*/ meltfptr[832]); MELT_LOCATION("warmelt-macro.melt:865:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V833*/ meltfptr[832], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_743__SCITERDEF_CITERATOR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V843*/ meltfptr[842])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_743__SCITERDEF_CITERATOR @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V843*/ meltfptr[842])))); ((meltobject_ptr_t)(/*_._VALDATA___V843*/ meltfptr[842]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V844*/ meltfptr[843]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V843*/ meltfptr[842]); melt_dbgtrace_written_object (/*_._VALDATA___V843*/ meltfptr[842], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_747__SCITERDEF_BEFORELOC @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V845*/ meltfptr[844])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_747__SCITERDEF_BEFORELOC @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V845*/ meltfptr[844])))); ((meltobject_ptr_t)(/*_._VALDATA___V845*/ meltfptr[844]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V846*/ meltfptr[845]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V845*/ meltfptr[844]); melt_dbgtrace_written_object (/*_._VALDATA___V845*/ meltfptr[844], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_751__SCITERDEF_AFTERLOC @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V847*/ meltfptr[846])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_751__SCITERDEF_AFTERLOC @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V847*/ meltfptr[846])))); ((meltobject_ptr_t)(/*_._VALDATA___V847*/ meltfptr[846]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V848*/ meltfptr[847]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V847*/ meltfptr[846]); melt_dbgtrace_written_object (/*_._VALDATA___V847*/ meltfptr[846], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_755__CLASS_SOURCE_DEFCMATCHER @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V849*/ meltfptr[848])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_755__CLASS_SOURCE_DEFCMATCHER @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V849*/ meltfptr[848])))); ((meltobject_ptr_t)(/*_._VALDATA___V849*/ meltfptr[848]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V850*/ meltfptr[849]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V849*/ meltfptr[848]); melt_dbgtrace_written_object (/*_._VALDATA___V849*/ meltfptr[848], "new static instance"); MELT_LOCATION("warmelt-macro.melt:875:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_757__CLASS_SOURCE_DEFCMATCHER @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V851*/ meltfptr[850])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_757__CLASS_SOURCE_DEFCMATCHER @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V851*/ meltfptr[850])))); ((meltobject_ptr_t)(/*_._VALDATA___V851*/ meltfptr[850]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V852*/ meltfptr[851]); MELT_LOCATION("warmelt-macro.melt:875:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_757__CLASS_SOURCE_DEFCMATCHER @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V851*/ meltfptr[850])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_757__CLASS_SOURCE_DEFCMATCHER @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V851*/ meltfptr[850])))); ((meltobject_ptr_t)(/*_._VALDATA___V851*/ meltfptr[850]))->obj_vartab[4] = (melt_ptr_t)( /*_._VALDATA___V719*/ meltfptr[718]); /*putupl#458*/ melt_assertmsg("putupl #458 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V853*/ meltfptr[852]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #458 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V853*/ meltfptr[852])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V853*/ meltfptr[852]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#459*/ melt_assertmsg("putupl #459 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V853*/ meltfptr[852]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #459 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V853*/ meltfptr[852])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V853*/ meltfptr[852]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#460*/ melt_assertmsg("putupl #460 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V853*/ meltfptr[852]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #460 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V853*/ meltfptr[852])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V853*/ meltfptr[852]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#461*/ melt_assertmsg("putupl #461 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V853*/ meltfptr[852]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #461 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V853*/ meltfptr[852])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V853*/ meltfptr[852]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#462*/ melt_assertmsg("putupl #462 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V853*/ meltfptr[852]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #462 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V853*/ meltfptr[852])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V853*/ meltfptr[852]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V689*/ meltfptr[688]); /*putupl#463*/ melt_assertmsg("putupl #463 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V853*/ meltfptr[852]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #463 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V853*/ meltfptr[852])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V853*/ meltfptr[852]))->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V719*/ meltfptr[718]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V853*/ meltfptr[852]); MELT_LOCATION("warmelt-macro.melt:875:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_757__CLASS_SOURCE_DEFCMATCHER @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V851*/ meltfptr[850])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_757__CLASS_SOURCE_DEFCMATCHER @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V851*/ meltfptr[850])))); ((meltobject_ptr_t)(/*_._VALDATA___V851*/ meltfptr[850]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V853*/ meltfptr[852]); MELT_LOCATION("warmelt-macro.melt:875:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_763__SCMATDEF_CMATCHER @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V854*/ meltfptr[853])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_763__SCMATDEF_CMATCHER @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V854*/ meltfptr[853])))); ((meltobject_ptr_t)(/*_._VALDATA___V854*/ meltfptr[853]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V855*/ meltfptr[854]); MELT_LOCATION("warmelt-macro.melt:875:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_763__SCMATDEF_CMATCHER @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V854*/ meltfptr[853])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_763__SCMATDEF_CMATCHER @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V854*/ meltfptr[853])))); ((meltobject_ptr_t)(/*_._VALDATA___V854*/ meltfptr[853]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V851*/ meltfptr[850]); MELT_LOCATION("warmelt-macro.melt:875:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V854*/ meltfptr[853]); MELT_LOCATION("warmelt-macro.melt:875:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V854*/ meltfptr[853], "new static instance"); MELT_LOCATION("warmelt-macro.melt:875:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_767__SCMATDEF_TESTLOC @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V856*/ meltfptr[855])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_767__SCMATDEF_TESTLOC @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V856*/ meltfptr[855])))); ((meltobject_ptr_t)(/*_._VALDATA___V856*/ meltfptr[855]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V857*/ meltfptr[856]); MELT_LOCATION("warmelt-macro.melt:875:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_767__SCMATDEF_TESTLOC @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V856*/ meltfptr[855])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_767__SCMATDEF_TESTLOC @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V856*/ meltfptr[855])))); ((meltobject_ptr_t)(/*_._VALDATA___V856*/ meltfptr[855]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V851*/ meltfptr[850]); MELT_LOCATION("warmelt-macro.melt:875:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V856*/ meltfptr[855]); MELT_LOCATION("warmelt-macro.melt:875:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V856*/ meltfptr[855], "new static instance"); MELT_LOCATION("warmelt-macro.melt:875:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_771__SCMATDEF_FILLLOC @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V858*/ meltfptr[857])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_771__SCMATDEF_FILLLOC @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V858*/ meltfptr[857])))); ((meltobject_ptr_t)(/*_._VALDATA___V858*/ meltfptr[857]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V859*/ meltfptr[858]); MELT_LOCATION("warmelt-macro.melt:875:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_771__SCMATDEF_FILLLOC @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V858*/ meltfptr[857])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_771__SCMATDEF_FILLLOC @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V858*/ meltfptr[857])))); ((meltobject_ptr_t)(/*_._VALDATA___V858*/ meltfptr[857]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V851*/ meltfptr[850]); MELT_LOCATION("warmelt-macro.melt:875:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V858*/ meltfptr[857]); MELT_LOCATION("warmelt-macro.melt:875:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V858*/ meltfptr[857], "new static instance"); MELT_LOCATION("warmelt-macro.melt:875:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_775__SCMATDEF_OPERLOC @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V860*/ meltfptr[859])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_775__SCMATDEF_OPERLOC @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V860*/ meltfptr[859])))); ((meltobject_ptr_t)(/*_._VALDATA___V860*/ meltfptr[859]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V861*/ meltfptr[860]); MELT_LOCATION("warmelt-macro.melt:875:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_775__SCMATDEF_OPERLOC @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V860*/ meltfptr[859])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_775__SCMATDEF_OPERLOC @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V860*/ meltfptr[859])))); ((meltobject_ptr_t)(/*_._VALDATA___V860*/ meltfptr[859]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V851*/ meltfptr[850]); MELT_LOCATION("warmelt-macro.melt:875:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V860*/ meltfptr[859]); MELT_LOCATION("warmelt-macro.melt:875:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V860*/ meltfptr[859], "new static instance"); /*putupl#464*/ melt_assertmsg("putupl #464 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V862*/ meltfptr[861]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #464 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V862*/ meltfptr[861])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V862*/ meltfptr[861]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#465*/ melt_assertmsg("putupl #465 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V862*/ meltfptr[861]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #465 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V862*/ meltfptr[861])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V862*/ meltfptr[861]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#466*/ melt_assertmsg("putupl #466 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V862*/ meltfptr[861]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #466 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V862*/ meltfptr[861])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V862*/ meltfptr[861]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V692*/ meltfptr[691]); /*putupl#467*/ melt_assertmsg("putupl #467 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V862*/ meltfptr[861]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #467 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V862*/ meltfptr[861])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V862*/ meltfptr[861]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V694*/ meltfptr[693]); /*putupl#468*/ melt_assertmsg("putupl #468 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V862*/ meltfptr[861]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #468 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V862*/ meltfptr[861])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V862*/ meltfptr[861]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V722*/ meltfptr[721]); /*putupl#469*/ melt_assertmsg("putupl #469 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V862*/ meltfptr[861]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #469 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V862*/ meltfptr[861])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V862*/ meltfptr[861]))->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V854*/ meltfptr[853]); /*putupl#470*/ melt_assertmsg("putupl #470 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V862*/ meltfptr[861]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #470 checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V862*/ meltfptr[861])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V862*/ meltfptr[861]))->tabval[6] = (melt_ptr_t)(/*_._VALDATA___V856*/ meltfptr[855]); /*putupl#471*/ melt_assertmsg("putupl #471 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V862*/ meltfptr[861]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #471 checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V862*/ meltfptr[861])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V862*/ meltfptr[861]))->tabval[7] = (melt_ptr_t)(/*_._VALDATA___V858*/ meltfptr[857]); /*putupl#472*/ melt_assertmsg("putupl #472 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V862*/ meltfptr[861]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #472 checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V862*/ meltfptr[861])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V862*/ meltfptr[861]))->tabval[8] = (melt_ptr_t)(/*_._VALDATA___V860*/ meltfptr[859]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V862*/ meltfptr[861]); MELT_LOCATION("warmelt-macro.melt:875:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_757__CLASS_SOURCE_DEFCMATCHER @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V851*/ meltfptr[850])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_757__CLASS_SOURCE_DEFCMATCHER @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V851*/ meltfptr[850])))); ((meltobject_ptr_t)(/*_._VALDATA___V851*/ meltfptr[850]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V862*/ meltfptr[861]); MELT_LOCATION("warmelt-macro.melt:875:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V851*/ meltfptr[850]); MELT_LOCATION("warmelt-macro.melt:875:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V851*/ meltfptr[850], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_761__SCMATDEF_CMATCHER @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V863*/ meltfptr[862])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_761__SCMATDEF_CMATCHER @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V863*/ meltfptr[862])))); ((meltobject_ptr_t)(/*_._VALDATA___V863*/ meltfptr[862]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V864*/ meltfptr[863]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V863*/ meltfptr[862]); melt_dbgtrace_written_object (/*_._VALDATA___V863*/ meltfptr[862], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_765__SCMATDEF_TESTLOC @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V865*/ meltfptr[864])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_765__SCMATDEF_TESTLOC @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V865*/ meltfptr[864])))); ((meltobject_ptr_t)(/*_._VALDATA___V865*/ meltfptr[864]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V866*/ meltfptr[865]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V865*/ meltfptr[864]); melt_dbgtrace_written_object (/*_._VALDATA___V865*/ meltfptr[864], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_769__SCMATDEF_FILLLOC @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V867*/ meltfptr[866])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_769__SCMATDEF_FILLLOC @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V867*/ meltfptr[866])))); ((meltobject_ptr_t)(/*_._VALDATA___V867*/ meltfptr[866]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V868*/ meltfptr[867]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V867*/ meltfptr[866]); melt_dbgtrace_written_object (/*_._VALDATA___V867*/ meltfptr[866], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_773__SCMATDEF_OPERLOC @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V869*/ meltfptr[868])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_773__SCMATDEF_OPERLOC @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V869*/ meltfptr[868])))); ((meltobject_ptr_t)(/*_._VALDATA___V869*/ meltfptr[868]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V870*/ meltfptr[869]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V869*/ meltfptr[868]); melt_dbgtrace_written_object (/*_._VALDATA___V869*/ meltfptr[868], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_777__CLASS_SOURCE_DEFUNMATCHER @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V871*/ meltfptr[870])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_777__CLASS_SOURCE_DEFUNMATCHER @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V871*/ meltfptr[870])))); ((meltobject_ptr_t)(/*_._VALDATA___V871*/ meltfptr[870]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V872*/ meltfptr[871]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V871*/ meltfptr[870]); melt_dbgtrace_written_object (/*_._VALDATA___V871*/ meltfptr[870], "new static instance"); MELT_LOCATION("warmelt-macro.melt:894:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_779__CLASS_SOURCE_DEFUNMATCHER @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V873*/ meltfptr[872])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_779__CLASS_SOURCE_DEFUNMATCHER @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V873*/ meltfptr[872])))); ((meltobject_ptr_t)(/*_._VALDATA___V873*/ meltfptr[872]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V874*/ meltfptr[873]); MELT_LOCATION("warmelt-macro.melt:894:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_779__CLASS_SOURCE_DEFUNMATCHER @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V873*/ meltfptr[872])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_779__CLASS_SOURCE_DEFUNMATCHER @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V873*/ meltfptr[872])))); ((meltobject_ptr_t)(/*_._VALDATA___V873*/ meltfptr[872]))->obj_vartab[4] = (melt_ptr_t)( /*_._VALDATA___V719*/ meltfptr[718]); /*putupl#473*/ melt_assertmsg("putupl #473 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V875*/ meltfptr[874]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #473 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V875*/ meltfptr[874])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V875*/ meltfptr[874]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#474*/ melt_assertmsg("putupl #474 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V875*/ meltfptr[874]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #474 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V875*/ meltfptr[874])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V875*/ meltfptr[874]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); #undef meltfram__ } /*end of meltmod__WARMELTmiMACRO__initialmeltchunk_15*/ void meltmod__WARMELTmiMACRO__initialmeltchunk_16 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; /*putupl#475*/ melt_assertmsg("putupl #475 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V875*/ meltfptr[874]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #475 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V875*/ meltfptr[874])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V875*/ meltfptr[874]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#476*/ melt_assertmsg("putupl #476 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V875*/ meltfptr[874]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #476 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V875*/ meltfptr[874])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V875*/ meltfptr[874]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#477*/ melt_assertmsg("putupl #477 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V875*/ meltfptr[874]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #477 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V875*/ meltfptr[874])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V875*/ meltfptr[874]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V689*/ meltfptr[688]); /*putupl#478*/ melt_assertmsg("putupl #478 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V875*/ meltfptr[874]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #478 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V875*/ meltfptr[874])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V875*/ meltfptr[874]))->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V719*/ meltfptr[718]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V875*/ meltfptr[874]); MELT_LOCATION("warmelt-macro.melt:894:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_779__CLASS_SOURCE_DEFUNMATCHER @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V873*/ meltfptr[872])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_779__CLASS_SOURCE_DEFUNMATCHER @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V873*/ meltfptr[872])))); ((meltobject_ptr_t)(/*_._VALDATA___V873*/ meltfptr[872]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V875*/ meltfptr[874]); MELT_LOCATION("warmelt-macro.melt:894:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_785__SFUMATDEF_INS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V876*/ meltfptr[875])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_785__SFUMATDEF_INS @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V876*/ meltfptr[875])))); ((meltobject_ptr_t)(/*_._VALDATA___V876*/ meltfptr[875]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V877*/ meltfptr[876]); MELT_LOCATION("warmelt-macro.melt:894:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_785__SFUMATDEF_INS @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V876*/ meltfptr[875])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_785__SFUMATDEF_INS @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V876*/ meltfptr[875])))); ((meltobject_ptr_t)(/*_._VALDATA___V876*/ meltfptr[875]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V873*/ meltfptr[872]); MELT_LOCATION("warmelt-macro.melt:894:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V876*/ meltfptr[875]); MELT_LOCATION("warmelt-macro.melt:894:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V876*/ meltfptr[875], "new static instance"); MELT_LOCATION("warmelt-macro.melt:894:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_789__SFUMATDEF_OUTS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V878*/ meltfptr[877])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_789__SFUMATDEF_OUTS @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V878*/ meltfptr[877])))); ((meltobject_ptr_t)(/*_._VALDATA___V878*/ meltfptr[877]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V879*/ meltfptr[878]); MELT_LOCATION("warmelt-macro.melt:894:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_789__SFUMATDEF_OUTS @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V878*/ meltfptr[877])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_789__SFUMATDEF_OUTS @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V878*/ meltfptr[877])))); ((meltobject_ptr_t)(/*_._VALDATA___V878*/ meltfptr[877]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V873*/ meltfptr[872]); MELT_LOCATION("warmelt-macro.melt:894:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V878*/ meltfptr[877]); MELT_LOCATION("warmelt-macro.melt:894:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V878*/ meltfptr[877], "new static instance"); MELT_LOCATION("warmelt-macro.melt:894:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_793__SFUMATDEF_MATCHF @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V880*/ meltfptr[879])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_793__SFUMATDEF_MATCHF @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V880*/ meltfptr[879])))); ((meltobject_ptr_t)(/*_._VALDATA___V880*/ meltfptr[879]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V881*/ meltfptr[880]); MELT_LOCATION("warmelt-macro.melt:894:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_793__SFUMATDEF_MATCHF @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V880*/ meltfptr[879])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_793__SFUMATDEF_MATCHF @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V880*/ meltfptr[879])))); ((meltobject_ptr_t)(/*_._VALDATA___V880*/ meltfptr[879]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V873*/ meltfptr[872]); MELT_LOCATION("warmelt-macro.melt:894:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V880*/ meltfptr[879]); MELT_LOCATION("warmelt-macro.melt:894:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V880*/ meltfptr[879], "new static instance"); MELT_LOCATION("warmelt-macro.melt:894:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_797__SFUMATDEF_APPLYF @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V882*/ meltfptr[881])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_797__SFUMATDEF_APPLYF @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V882*/ meltfptr[881])))); ((meltobject_ptr_t)(/*_._VALDATA___V882*/ meltfptr[881]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V883*/ meltfptr[882]); MELT_LOCATION("warmelt-macro.melt:894:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_797__SFUMATDEF_APPLYF @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V882*/ meltfptr[881])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_797__SFUMATDEF_APPLYF @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V882*/ meltfptr[881])))); ((meltobject_ptr_t)(/*_._VALDATA___V882*/ meltfptr[881]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V873*/ meltfptr[872]); MELT_LOCATION("warmelt-macro.melt:894:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V882*/ meltfptr[881]); MELT_LOCATION("warmelt-macro.melt:894:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V882*/ meltfptr[881], "new static instance"); MELT_LOCATION("warmelt-macro.melt:894:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_801__SFUMATDEF_DATA @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V884*/ meltfptr[883])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_801__SFUMATDEF_DATA @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V884*/ meltfptr[883])))); ((meltobject_ptr_t)(/*_._VALDATA___V884*/ meltfptr[883]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V885*/ meltfptr[884]); MELT_LOCATION("warmelt-macro.melt:894:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_801__SFUMATDEF_DATA @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V884*/ meltfptr[883])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_801__SFUMATDEF_DATA @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V884*/ meltfptr[883])))); ((meltobject_ptr_t)(/*_._VALDATA___V884*/ meltfptr[883]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V873*/ meltfptr[872]); MELT_LOCATION("warmelt-macro.melt:894:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V884*/ meltfptr[883]); MELT_LOCATION("warmelt-macro.melt:894:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V884*/ meltfptr[883], "new static instance"); /*putupl#479*/ melt_assertmsg("putupl #479 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V886*/ meltfptr[885]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #479 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V886*/ meltfptr[885])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V886*/ meltfptr[885]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#480*/ melt_assertmsg("putupl #480 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V886*/ meltfptr[885]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #480 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V886*/ meltfptr[885])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V886*/ meltfptr[885]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#481*/ melt_assertmsg("putupl #481 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V886*/ meltfptr[885]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #481 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V886*/ meltfptr[885])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V886*/ meltfptr[885]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V692*/ meltfptr[691]); /*putupl#482*/ melt_assertmsg("putupl #482 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V886*/ meltfptr[885]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #482 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V886*/ meltfptr[885])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V886*/ meltfptr[885]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V694*/ meltfptr[693]); /*putupl#483*/ melt_assertmsg("putupl #483 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V886*/ meltfptr[885]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #483 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V886*/ meltfptr[885])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V886*/ meltfptr[885]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V722*/ meltfptr[721]); /*putupl#484*/ melt_assertmsg("putupl #484 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V886*/ meltfptr[885]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #484 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V886*/ meltfptr[885])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V886*/ meltfptr[885]))->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V876*/ meltfptr[875]); /*putupl#485*/ melt_assertmsg("putupl #485 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V886*/ meltfptr[885]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #485 checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V886*/ meltfptr[885])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V886*/ meltfptr[885]))->tabval[6] = (melt_ptr_t)(/*_._VALDATA___V878*/ meltfptr[877]); /*putupl#486*/ melt_assertmsg("putupl #486 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V886*/ meltfptr[885]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #486 checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V886*/ meltfptr[885])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V886*/ meltfptr[885]))->tabval[7] = (melt_ptr_t)(/*_._VALDATA___V880*/ meltfptr[879]); /*putupl#487*/ melt_assertmsg("putupl #487 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V886*/ meltfptr[885]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #487 checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V886*/ meltfptr[885])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V886*/ meltfptr[885]))->tabval[8] = (melt_ptr_t)(/*_._VALDATA___V882*/ meltfptr[881]); /*putupl#488*/ melt_assertmsg("putupl #488 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V886*/ meltfptr[885]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #488 checkoff", (9>=0 && 9< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V886*/ meltfptr[885])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V886*/ meltfptr[885]))->tabval[9] = (melt_ptr_t)(/*_._VALDATA___V884*/ meltfptr[883]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V886*/ meltfptr[885]); MELT_LOCATION("warmelt-macro.melt:894:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_779__CLASS_SOURCE_DEFUNMATCHER @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V873*/ meltfptr[872])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_779__CLASS_SOURCE_DEFUNMATCHER @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V873*/ meltfptr[872])))); ((meltobject_ptr_t)(/*_._VALDATA___V873*/ meltfptr[872]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V886*/ meltfptr[885]); MELT_LOCATION("warmelt-macro.melt:894:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V873*/ meltfptr[872]); MELT_LOCATION("warmelt-macro.melt:894:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V873*/ meltfptr[872], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_783__SFUMATDEF_INS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V887*/ meltfptr[886])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_783__SFUMATDEF_INS @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V887*/ meltfptr[886])))); ((meltobject_ptr_t)(/*_._VALDATA___V887*/ meltfptr[886]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V888*/ meltfptr[887]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V887*/ meltfptr[886]); melt_dbgtrace_written_object (/*_._VALDATA___V887*/ meltfptr[886], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_787__SFUMATDEF_OUTS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V889*/ meltfptr[888])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_787__SFUMATDEF_OUTS @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V889*/ meltfptr[888])))); ((meltobject_ptr_t)(/*_._VALDATA___V889*/ meltfptr[888]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V890*/ meltfptr[889]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V889*/ meltfptr[888]); melt_dbgtrace_written_object (/*_._VALDATA___V889*/ meltfptr[888], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_791__SFUMATDEF_MATCHF @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V891*/ meltfptr[890])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_791__SFUMATDEF_MATCHF @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V891*/ meltfptr[890])))); ((meltobject_ptr_t)(/*_._VALDATA___V891*/ meltfptr[890]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V892*/ meltfptr[891]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V891*/ meltfptr[890]); melt_dbgtrace_written_object (/*_._VALDATA___V891*/ meltfptr[890], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_795__SFUMATDEF_APPLYF @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V893*/ meltfptr[892])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_795__SFUMATDEF_APPLYF @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V893*/ meltfptr[892])))); ((meltobject_ptr_t)(/*_._VALDATA___V893*/ meltfptr[892]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V894*/ meltfptr[893]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V893*/ meltfptr[892]); melt_dbgtrace_written_object (/*_._VALDATA___V893*/ meltfptr[892], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_799__SFUMATDEF_DATA @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V895*/ meltfptr[894])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_799__SFUMATDEF_DATA @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V895*/ meltfptr[894])))); ((meltobject_ptr_t)(/*_._VALDATA___V895*/ meltfptr[894]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V896*/ meltfptr[895]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V895*/ meltfptr[894]); melt_dbgtrace_written_object (/*_._VALDATA___V895*/ meltfptr[894], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_803__CLASS_SOURCE_DEFOBJCOMMON @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V897*/ meltfptr[896])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_803__CLASS_SOURCE_DEFOBJCOMMON @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V897*/ meltfptr[896])))); ((meltobject_ptr_t)(/*_._VALDATA___V897*/ meltfptr[896]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V898*/ meltfptr[897]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V897*/ meltfptr[896]); melt_dbgtrace_written_object (/*_._VALDATA___V897*/ meltfptr[896], "new static instance"); MELT_LOCATION("warmelt-macro.melt:914:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_805__CLASS_SOURCE_DEFOBJCOMMON @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V899*/ meltfptr[898])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_805__CLASS_SOURCE_DEFOBJCOMMON @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V899*/ meltfptr[898])))); ((meltobject_ptr_t)(/*_._VALDATA___V899*/ meltfptr[898]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V900*/ meltfptr[899]); MELT_LOCATION("warmelt-macro.melt:914:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_805__CLASS_SOURCE_DEFOBJCOMMON @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V899*/ meltfptr[898])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_805__CLASS_SOURCE_DEFOBJCOMMON @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V899*/ meltfptr[898])))); ((meltobject_ptr_t)(/*_._VALDATA___V899*/ meltfptr[898]))->obj_vartab[4] = (melt_ptr_t)( /*_._VALDATA___V689*/ meltfptr[688]); /*putupl#489*/ melt_assertmsg("putupl #489 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V901*/ meltfptr[900]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #489 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V901*/ meltfptr[900])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V901*/ meltfptr[900]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#490*/ melt_assertmsg("putupl #490 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V901*/ meltfptr[900]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #490 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V901*/ meltfptr[900])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V901*/ meltfptr[900]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#491*/ melt_assertmsg("putupl #491 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V901*/ meltfptr[900]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #491 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V901*/ meltfptr[900])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V901*/ meltfptr[900]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#492*/ melt_assertmsg("putupl #492 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V901*/ meltfptr[900]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #492 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V901*/ meltfptr[900])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V901*/ meltfptr[900]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#493*/ melt_assertmsg("putupl #493 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V901*/ meltfptr[900]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #493 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V901*/ meltfptr[900])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V901*/ meltfptr[900]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V689*/ meltfptr[688]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V901*/ meltfptr[900]); MELT_LOCATION("warmelt-macro.melt:914:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_805__CLASS_SOURCE_DEFOBJCOMMON @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V899*/ meltfptr[898])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_805__CLASS_SOURCE_DEFOBJCOMMON @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V899*/ meltfptr[898])))); ((meltobject_ptr_t)(/*_._VALDATA___V899*/ meltfptr[898]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V901*/ meltfptr[900]); MELT_LOCATION("warmelt-macro.melt:914:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_811__SOBJ_PREDEF @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V902*/ meltfptr[901])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_811__SOBJ_PREDEF @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V902*/ meltfptr[901])))); ((meltobject_ptr_t)(/*_._VALDATA___V902*/ meltfptr[901]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V903*/ meltfptr[902]); MELT_LOCATION("warmelt-macro.melt:914:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_811__SOBJ_PREDEF @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V902*/ meltfptr[901])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_811__SOBJ_PREDEF @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V902*/ meltfptr[901])))); ((meltobject_ptr_t)(/*_._VALDATA___V902*/ meltfptr[901]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V899*/ meltfptr[898]); MELT_LOCATION("warmelt-macro.melt:914:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V902*/ meltfptr[901]); MELT_LOCATION("warmelt-macro.melt:914:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V902*/ meltfptr[901], "new static instance"); /*putupl#494*/ melt_assertmsg("putupl #494 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V904*/ meltfptr[903]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #494 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V904*/ meltfptr[903])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V904*/ meltfptr[903]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#495*/ melt_assertmsg("putupl #495 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V904*/ meltfptr[903]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #495 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V904*/ meltfptr[903])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V904*/ meltfptr[903]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#496*/ melt_assertmsg("putupl #496 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V904*/ meltfptr[903]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #496 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V904*/ meltfptr[903])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V904*/ meltfptr[903]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V692*/ meltfptr[691]); /*putupl#497*/ melt_assertmsg("putupl #497 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V904*/ meltfptr[903]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #497 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V904*/ meltfptr[903])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V904*/ meltfptr[903]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V694*/ meltfptr[693]); /*putupl#498*/ melt_assertmsg("putupl #498 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V904*/ meltfptr[903]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #498 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V904*/ meltfptr[903])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V904*/ meltfptr[903]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V902*/ meltfptr[901]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V904*/ meltfptr[903]); MELT_LOCATION("warmelt-macro.melt:914:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_805__CLASS_SOURCE_DEFOBJCOMMON @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V899*/ meltfptr[898])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_805__CLASS_SOURCE_DEFOBJCOMMON @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V899*/ meltfptr[898])))); ((meltobject_ptr_t)(/*_._VALDATA___V899*/ meltfptr[898]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V904*/ meltfptr[903]); MELT_LOCATION("warmelt-macro.melt:914:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V899*/ meltfptr[898]); MELT_LOCATION("warmelt-macro.melt:914:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V899*/ meltfptr[898], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_809__SOBJ_PREDEF @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V905*/ meltfptr[904])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_809__SOBJ_PREDEF @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V905*/ meltfptr[904])))); ((meltobject_ptr_t)(/*_._VALDATA___V905*/ meltfptr[904]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V906*/ meltfptr[905]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V905*/ meltfptr[904]); melt_dbgtrace_written_object (/*_._VALDATA___V905*/ meltfptr[904], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_813__CLASS_SOURCE_DEFCLASS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V907*/ meltfptr[906])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_813__CLASS_SOURCE_DEFCLASS @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V907*/ meltfptr[906])))); ((meltobject_ptr_t)(/*_._VALDATA___V907*/ meltfptr[906]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V908*/ meltfptr[907]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V907*/ meltfptr[906]); melt_dbgtrace_written_object (/*_._VALDATA___V907*/ meltfptr[906], "new static instance"); MELT_LOCATION("warmelt-macro.melt:924:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_815__CLASS_SOURCE_DEFCLASS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V909*/ meltfptr[908])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_815__CLASS_SOURCE_DEFCLASS @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V909*/ meltfptr[908])))); ((meltobject_ptr_t)(/*_._VALDATA___V909*/ meltfptr[908]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V910*/ meltfptr[909]); MELT_LOCATION("warmelt-macro.melt:924:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_815__CLASS_SOURCE_DEFCLASS @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V909*/ meltfptr[908])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_815__CLASS_SOURCE_DEFCLASS @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V909*/ meltfptr[908])))); ((meltobject_ptr_t)(/*_._VALDATA___V909*/ meltfptr[908]))->obj_vartab[4] = (melt_ptr_t)( /*_._VALDATA___V899*/ meltfptr[898]); /*putupl#499*/ melt_assertmsg("putupl #499 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V911*/ meltfptr[910]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #499 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V911*/ meltfptr[910])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V911*/ meltfptr[910]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#500*/ melt_assertmsg("putupl #500 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V911*/ meltfptr[910]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #500 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V911*/ meltfptr[910])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V911*/ meltfptr[910]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#501*/ melt_assertmsg("putupl #501 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V911*/ meltfptr[910]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #501 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V911*/ meltfptr[910])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V911*/ meltfptr[910]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#502*/ melt_assertmsg("putupl #502 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V911*/ meltfptr[910]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #502 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V911*/ meltfptr[910])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V911*/ meltfptr[910]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#503*/ melt_assertmsg("putupl #503 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V911*/ meltfptr[910]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #503 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V911*/ meltfptr[910])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V911*/ meltfptr[910]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V689*/ meltfptr[688]); /*putupl#504*/ melt_assertmsg("putupl #504 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V911*/ meltfptr[910]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #504 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V911*/ meltfptr[910])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V911*/ meltfptr[910]))->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V899*/ meltfptr[898]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V911*/ meltfptr[910]); MELT_LOCATION("warmelt-macro.melt:924:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_815__CLASS_SOURCE_DEFCLASS @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V909*/ meltfptr[908])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_815__CLASS_SOURCE_DEFCLASS @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V909*/ meltfptr[908])))); ((meltobject_ptr_t)(/*_._VALDATA___V909*/ meltfptr[908]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V911*/ meltfptr[910]); MELT_LOCATION("warmelt-macro.melt:924:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_821__SCLASS_CLABIND @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V912*/ meltfptr[911])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_821__SCLASS_CLABIND @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V912*/ meltfptr[911])))); ((meltobject_ptr_t)(/*_._VALDATA___V912*/ meltfptr[911]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V913*/ meltfptr[912]); MELT_LOCATION("warmelt-macro.melt:924:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_821__SCLASS_CLABIND @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V912*/ meltfptr[911])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_821__SCLASS_CLABIND @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V912*/ meltfptr[911])))); ((meltobject_ptr_t)(/*_._VALDATA___V912*/ meltfptr[911]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V909*/ meltfptr[908]); MELT_LOCATION("warmelt-macro.melt:924:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V912*/ meltfptr[911]); MELT_LOCATION("warmelt-macro.melt:924:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V912*/ meltfptr[911], "new static instance"); MELT_LOCATION("warmelt-macro.melt:924:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_825__SCLASS_SUPERBIND @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V914*/ meltfptr[913])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_825__SCLASS_SUPERBIND @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V914*/ meltfptr[913])))); ((meltobject_ptr_t)(/*_._VALDATA___V914*/ meltfptr[913]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V915*/ meltfptr[914]); MELT_LOCATION("warmelt-macro.melt:924:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_825__SCLASS_SUPERBIND @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V914*/ meltfptr[913])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_825__SCLASS_SUPERBIND @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V914*/ meltfptr[913])))); ((meltobject_ptr_t)(/*_._VALDATA___V914*/ meltfptr[913]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V909*/ meltfptr[908]); MELT_LOCATION("warmelt-macro.melt:924:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V914*/ meltfptr[913]); MELT_LOCATION("warmelt-macro.melt:924:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V914*/ meltfptr[913], "new static instance"); MELT_LOCATION("warmelt-macro.melt:924:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_829__SCLASS_FLDBINDS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V916*/ meltfptr[915])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_829__SCLASS_FLDBINDS @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V916*/ meltfptr[915])))); ((meltobject_ptr_t)(/*_._VALDATA___V916*/ meltfptr[915]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V917*/ meltfptr[916]); MELT_LOCATION("warmelt-macro.melt:924:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_829__SCLASS_FLDBINDS @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V916*/ meltfptr[915])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_829__SCLASS_FLDBINDS @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V916*/ meltfptr[915])))); ((meltobject_ptr_t)(/*_._VALDATA___V916*/ meltfptr[915]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V909*/ meltfptr[908]); MELT_LOCATION("warmelt-macro.melt:924:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V916*/ meltfptr[915]); MELT_LOCATION("warmelt-macro.melt:924:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V916*/ meltfptr[915], "new static instance"); /*putupl#505*/ melt_assertmsg("putupl #505 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V918*/ meltfptr[917]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #505 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V918*/ meltfptr[917])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V918*/ meltfptr[917]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#506*/ melt_assertmsg("putupl #506 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V918*/ meltfptr[917]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #506 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V918*/ meltfptr[917])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V918*/ meltfptr[917]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#507*/ melt_assertmsg("putupl #507 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V918*/ meltfptr[917]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #507 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V918*/ meltfptr[917])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V918*/ meltfptr[917]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V692*/ meltfptr[691]); /*putupl#508*/ melt_assertmsg("putupl #508 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V918*/ meltfptr[917]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #508 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V918*/ meltfptr[917])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V918*/ meltfptr[917]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V694*/ meltfptr[693]); /*putupl#509*/ melt_assertmsg("putupl #509 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V918*/ meltfptr[917]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #509 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V918*/ meltfptr[917])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V918*/ meltfptr[917]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V902*/ meltfptr[901]); /*putupl#510*/ melt_assertmsg("putupl #510 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V918*/ meltfptr[917]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #510 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V918*/ meltfptr[917])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V918*/ meltfptr[917]))->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V912*/ meltfptr[911]); /*putupl#511*/ melt_assertmsg("putupl #511 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V918*/ meltfptr[917]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #511 checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V918*/ meltfptr[917])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V918*/ meltfptr[917]))->tabval[6] = (melt_ptr_t)(/*_._VALDATA___V914*/ meltfptr[913]); /*putupl#512*/ melt_assertmsg("putupl #512 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V918*/ meltfptr[917]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #512 checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V918*/ meltfptr[917])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V918*/ meltfptr[917]))->tabval[7] = (melt_ptr_t)(/*_._VALDATA___V916*/ meltfptr[915]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V918*/ meltfptr[917]); MELT_LOCATION("warmelt-macro.melt:924:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_815__CLASS_SOURCE_DEFCLASS @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V909*/ meltfptr[908])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_815__CLASS_SOURCE_DEFCLASS @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V909*/ meltfptr[908])))); ((meltobject_ptr_t)(/*_._VALDATA___V909*/ meltfptr[908]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V918*/ meltfptr[917]); MELT_LOCATION("warmelt-macro.melt:924:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V909*/ meltfptr[908]); MELT_LOCATION("warmelt-macro.melt:924:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V909*/ meltfptr[908], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_819__SCLASS_CLABIND @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V919*/ meltfptr[918])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_819__SCLASS_CLABIND @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V919*/ meltfptr[918])))); ((meltobject_ptr_t)(/*_._VALDATA___V919*/ meltfptr[918]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V920*/ meltfptr[919]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V919*/ meltfptr[918]); melt_dbgtrace_written_object (/*_._VALDATA___V919*/ meltfptr[918], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_823__SCLASS_SUPERBIND @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V921*/ meltfptr[920])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_823__SCLASS_SUPERBIND @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V921*/ meltfptr[920])))); ((meltobject_ptr_t)(/*_._VALDATA___V921*/ meltfptr[920]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V922*/ meltfptr[921]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V921*/ meltfptr[920]); melt_dbgtrace_written_object (/*_._VALDATA___V921*/ meltfptr[920], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_827__SCLASS_FLDBINDS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V923*/ meltfptr[922])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_827__SCLASS_FLDBINDS @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V923*/ meltfptr[922])))); ((meltobject_ptr_t)(/*_._VALDATA___V923*/ meltfptr[922]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V924*/ meltfptr[923]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V923*/ meltfptr[922]); #undef meltfram__ } /*end of meltmod__WARMELTmiMACRO__initialmeltchunk_16*/ void meltmod__WARMELTmiMACRO__initialmeltchunk_17 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; melt_dbgtrace_written_object (/*_._VALDATA___V923*/ meltfptr[922], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_831__CLASS_SOURCE_DEFINSTANCE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V925*/ meltfptr[924])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_831__CLASS_SOURCE_DEFINSTANCE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V925*/ meltfptr[924])))); ((meltobject_ptr_t)(/*_._VALDATA___V925*/ meltfptr[924]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V926*/ meltfptr[925]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V925*/ meltfptr[924]); melt_dbgtrace_written_object (/*_._VALDATA___V925*/ meltfptr[924], "new static instance"); MELT_LOCATION("warmelt-macro.melt:937:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_833__CLASS_SOURCE_DEFINSTANCE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V927*/ meltfptr[926])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_833__CLASS_SOURCE_DEFINSTANCE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V927*/ meltfptr[926])))); ((meltobject_ptr_t)(/*_._VALDATA___V927*/ meltfptr[926]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V928*/ meltfptr[927]); MELT_LOCATION("warmelt-macro.melt:937:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_833__CLASS_SOURCE_DEFINSTANCE @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V927*/ meltfptr[926])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_833__CLASS_SOURCE_DEFINSTANCE @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V927*/ meltfptr[926])))); ((meltobject_ptr_t)(/*_._VALDATA___V927*/ meltfptr[926]))->obj_vartab[4] = (melt_ptr_t)( /*_._VALDATA___V899*/ meltfptr[898]); /*putupl#513*/ melt_assertmsg("putupl #513 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V929*/ meltfptr[928]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #513 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V929*/ meltfptr[928])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V929*/ meltfptr[928]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#514*/ melt_assertmsg("putupl #514 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V929*/ meltfptr[928]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #514 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V929*/ meltfptr[928])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V929*/ meltfptr[928]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#515*/ melt_assertmsg("putupl #515 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V929*/ meltfptr[928]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #515 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V929*/ meltfptr[928])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V929*/ meltfptr[928]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#516*/ melt_assertmsg("putupl #516 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V929*/ meltfptr[928]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #516 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V929*/ meltfptr[928])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V929*/ meltfptr[928]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#517*/ melt_assertmsg("putupl #517 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V929*/ meltfptr[928]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #517 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V929*/ meltfptr[928])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V929*/ meltfptr[928]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V689*/ meltfptr[688]); /*putupl#518*/ melt_assertmsg("putupl #518 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V929*/ meltfptr[928]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #518 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V929*/ meltfptr[928])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V929*/ meltfptr[928]))->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V899*/ meltfptr[898]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V929*/ meltfptr[928]); MELT_LOCATION("warmelt-macro.melt:937:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_833__CLASS_SOURCE_DEFINSTANCE @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V927*/ meltfptr[926])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_833__CLASS_SOURCE_DEFINSTANCE @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V927*/ meltfptr[926])))); ((meltobject_ptr_t)(/*_._VALDATA___V927*/ meltfptr[926]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V929*/ meltfptr[928]); MELT_LOCATION("warmelt-macro.melt:937:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_839__SINST_CLASS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V930*/ meltfptr[929])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_839__SINST_CLASS @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V930*/ meltfptr[929])))); ((meltobject_ptr_t)(/*_._VALDATA___V930*/ meltfptr[929]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V931*/ meltfptr[930]); MELT_LOCATION("warmelt-macro.melt:937:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_839__SINST_CLASS @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V930*/ meltfptr[929])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_839__SINST_CLASS @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V930*/ meltfptr[929])))); ((meltobject_ptr_t)(/*_._VALDATA___V930*/ meltfptr[929]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V927*/ meltfptr[926]); MELT_LOCATION("warmelt-macro.melt:937:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V930*/ meltfptr[929]); MELT_LOCATION("warmelt-macro.melt:937:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V930*/ meltfptr[929], "new static instance"); MELT_LOCATION("warmelt-macro.melt:937:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_843__SINST_CLABIND @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V932*/ meltfptr[931])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_843__SINST_CLABIND @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V932*/ meltfptr[931])))); ((meltobject_ptr_t)(/*_._VALDATA___V932*/ meltfptr[931]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V933*/ meltfptr[932]); MELT_LOCATION("warmelt-macro.melt:937:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_843__SINST_CLABIND @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V932*/ meltfptr[931])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_843__SINST_CLABIND @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V932*/ meltfptr[931])))); ((meltobject_ptr_t)(/*_._VALDATA___V932*/ meltfptr[931]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V927*/ meltfptr[926]); MELT_LOCATION("warmelt-macro.melt:937:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V932*/ meltfptr[931]); MELT_LOCATION("warmelt-macro.melt:937:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V932*/ meltfptr[931], "new static instance"); MELT_LOCATION("warmelt-macro.melt:937:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_847__SINST_OBJNUM @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V934*/ meltfptr[933])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_847__SINST_OBJNUM @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V934*/ meltfptr[933])))); ((meltobject_ptr_t)(/*_._VALDATA___V934*/ meltfptr[933]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V935*/ meltfptr[934]); MELT_LOCATION("warmelt-macro.melt:937:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_847__SINST_OBJNUM @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V934*/ meltfptr[933])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_847__SINST_OBJNUM @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V934*/ meltfptr[933])))); ((meltobject_ptr_t)(/*_._VALDATA___V934*/ meltfptr[933]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V927*/ meltfptr[926]); MELT_LOCATION("warmelt-macro.melt:937:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V934*/ meltfptr[933]); MELT_LOCATION("warmelt-macro.melt:937:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V934*/ meltfptr[933], "new static instance"); MELT_LOCATION("warmelt-macro.melt:937:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_851__SINST_FIELDS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V936*/ meltfptr[935])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_851__SINST_FIELDS @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V936*/ meltfptr[935])))); ((meltobject_ptr_t)(/*_._VALDATA___V936*/ meltfptr[935]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V937*/ meltfptr[936]); MELT_LOCATION("warmelt-macro.melt:937:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_851__SINST_FIELDS @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V936*/ meltfptr[935])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_851__SINST_FIELDS @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V936*/ meltfptr[935])))); ((meltobject_ptr_t)(/*_._VALDATA___V936*/ meltfptr[935]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V927*/ meltfptr[926]); MELT_LOCATION("warmelt-macro.melt:937:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V936*/ meltfptr[935]); MELT_LOCATION("warmelt-macro.melt:937:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V936*/ meltfptr[935], "new static instance"); /*putupl#519*/ melt_assertmsg("putupl #519 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V938*/ meltfptr[937]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #519 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V938*/ meltfptr[937])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V938*/ meltfptr[937]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#520*/ melt_assertmsg("putupl #520 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V938*/ meltfptr[937]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #520 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V938*/ meltfptr[937])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V938*/ meltfptr[937]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#521*/ melt_assertmsg("putupl #521 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V938*/ meltfptr[937]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #521 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V938*/ meltfptr[937])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V938*/ meltfptr[937]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V692*/ meltfptr[691]); /*putupl#522*/ melt_assertmsg("putupl #522 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V938*/ meltfptr[937]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #522 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V938*/ meltfptr[937])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V938*/ meltfptr[937]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V694*/ meltfptr[693]); /*putupl#523*/ melt_assertmsg("putupl #523 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V938*/ meltfptr[937]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #523 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V938*/ meltfptr[937])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V938*/ meltfptr[937]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V902*/ meltfptr[901]); /*putupl#524*/ melt_assertmsg("putupl #524 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V938*/ meltfptr[937]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #524 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V938*/ meltfptr[937])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V938*/ meltfptr[937]))->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V930*/ meltfptr[929]); /*putupl#525*/ melt_assertmsg("putupl #525 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V938*/ meltfptr[937]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #525 checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V938*/ meltfptr[937])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V938*/ meltfptr[937]))->tabval[6] = (melt_ptr_t)(/*_._VALDATA___V932*/ meltfptr[931]); /*putupl#526*/ melt_assertmsg("putupl #526 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V938*/ meltfptr[937]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #526 checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V938*/ meltfptr[937])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V938*/ meltfptr[937]))->tabval[7] = (melt_ptr_t)(/*_._VALDATA___V934*/ meltfptr[933]); /*putupl#527*/ melt_assertmsg("putupl #527 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V938*/ meltfptr[937]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #527 checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V938*/ meltfptr[937])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V938*/ meltfptr[937]))->tabval[8] = (melt_ptr_t)(/*_._VALDATA___V936*/ meltfptr[935]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V938*/ meltfptr[937]); MELT_LOCATION("warmelt-macro.melt:937:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_833__CLASS_SOURCE_DEFINSTANCE @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V927*/ meltfptr[926])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_833__CLASS_SOURCE_DEFINSTANCE @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V927*/ meltfptr[926])))); ((meltobject_ptr_t)(/*_._VALDATA___V927*/ meltfptr[926]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V938*/ meltfptr[937]); MELT_LOCATION("warmelt-macro.melt:937:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V927*/ meltfptr[926]); MELT_LOCATION("warmelt-macro.melt:937:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V927*/ meltfptr[926], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_837__SINST_CLASS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V939*/ meltfptr[938])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_837__SINST_CLASS @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V939*/ meltfptr[938])))); ((meltobject_ptr_t)(/*_._VALDATA___V939*/ meltfptr[938]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V940*/ meltfptr[939]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V939*/ meltfptr[938]); melt_dbgtrace_written_object (/*_._VALDATA___V939*/ meltfptr[938], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_841__SINST_CLABIND @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V941*/ meltfptr[940])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_841__SINST_CLABIND @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V941*/ meltfptr[940])))); ((meltobject_ptr_t)(/*_._VALDATA___V941*/ meltfptr[940]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V942*/ meltfptr[941]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V941*/ meltfptr[940]); melt_dbgtrace_written_object (/*_._VALDATA___V941*/ meltfptr[940], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_845__SINST_OBJNUM @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V943*/ meltfptr[942])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_845__SINST_OBJNUM @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V943*/ meltfptr[942])))); ((meltobject_ptr_t)(/*_._VALDATA___V943*/ meltfptr[942]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V944*/ meltfptr[943]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V943*/ meltfptr[942]); melt_dbgtrace_written_object (/*_._VALDATA___V943*/ meltfptr[942], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_849__SINST_FIELDS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V945*/ meltfptr[944])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_849__SINST_FIELDS @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V945*/ meltfptr[944])))); ((meltobject_ptr_t)(/*_._VALDATA___V945*/ meltfptr[944]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V946*/ meltfptr[945]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V945*/ meltfptr[944]); melt_dbgtrace_written_object (/*_._VALDATA___V945*/ meltfptr[944], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_853__CLASS_SOURCE_DEFSELECTOR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V947*/ meltfptr[946])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_853__CLASS_SOURCE_DEFSELECTOR @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V947*/ meltfptr[946])))); ((meltobject_ptr_t)(/*_._VALDATA___V947*/ meltfptr[946]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V948*/ meltfptr[947]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V947*/ meltfptr[946]); melt_dbgtrace_written_object (/*_._VALDATA___V947*/ meltfptr[946], "new static instance"); MELT_LOCATION("warmelt-macro.melt:951:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_855__CLASS_SOURCE_DEFSELECTOR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V949*/ meltfptr[948])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_855__CLASS_SOURCE_DEFSELECTOR @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V949*/ meltfptr[948])))); ((meltobject_ptr_t)(/*_._VALDATA___V949*/ meltfptr[948]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V950*/ meltfptr[949]); MELT_LOCATION("warmelt-macro.melt:951:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_855__CLASS_SOURCE_DEFSELECTOR @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V949*/ meltfptr[948])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_855__CLASS_SOURCE_DEFSELECTOR @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V949*/ meltfptr[948])))); ((meltobject_ptr_t)(/*_._VALDATA___V949*/ meltfptr[948]))->obj_vartab[4] = (melt_ptr_t)( /*_._VALDATA___V927*/ meltfptr[926]); /*putupl#528*/ melt_assertmsg("putupl #528 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V951*/ meltfptr[950]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #528 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V951*/ meltfptr[950])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V951*/ meltfptr[950]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#529*/ melt_assertmsg("putupl #529 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V951*/ meltfptr[950]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #529 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V951*/ meltfptr[950])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V951*/ meltfptr[950]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#530*/ melt_assertmsg("putupl #530 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V951*/ meltfptr[950]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #530 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V951*/ meltfptr[950])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V951*/ meltfptr[950]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#531*/ melt_assertmsg("putupl #531 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V951*/ meltfptr[950]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #531 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V951*/ meltfptr[950])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V951*/ meltfptr[950]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#532*/ melt_assertmsg("putupl #532 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V951*/ meltfptr[950]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #532 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V951*/ meltfptr[950])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V951*/ meltfptr[950]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V689*/ meltfptr[688]); /*putupl#533*/ melt_assertmsg("putupl #533 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V951*/ meltfptr[950]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #533 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V951*/ meltfptr[950])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V951*/ meltfptr[950]))->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V899*/ meltfptr[898]); /*putupl#534*/ melt_assertmsg("putupl #534 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V951*/ meltfptr[950]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #534 checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V951*/ meltfptr[950])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V951*/ meltfptr[950]))->tabval[6] = (melt_ptr_t)(/*_._VALDATA___V927*/ meltfptr[926]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V951*/ meltfptr[950]); MELT_LOCATION("warmelt-macro.melt:951:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_855__CLASS_SOURCE_DEFSELECTOR @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V949*/ meltfptr[948])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_855__CLASS_SOURCE_DEFSELECTOR @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V949*/ meltfptr[948])))); ((meltobject_ptr_t)(/*_._VALDATA___V949*/ meltfptr[948]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V951*/ meltfptr[950]); MELT_LOCATION("warmelt-macro.melt:951:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_861__SDEFSEL_FORMALS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V952*/ meltfptr[951])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_861__SDEFSEL_FORMALS @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V952*/ meltfptr[951])))); ((meltobject_ptr_t)(/*_._VALDATA___V952*/ meltfptr[951]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V953*/ meltfptr[952]); MELT_LOCATION("warmelt-macro.melt:951:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_861__SDEFSEL_FORMALS @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V952*/ meltfptr[951])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_861__SDEFSEL_FORMALS @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V952*/ meltfptr[951])))); ((meltobject_ptr_t)(/*_._VALDATA___V952*/ meltfptr[951]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V949*/ meltfptr[948]); MELT_LOCATION("warmelt-macro.melt:951:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V952*/ meltfptr[951]); MELT_LOCATION("warmelt-macro.melt:951:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V952*/ meltfptr[951], "new static instance"); /*putupl#535*/ melt_assertmsg("putupl #535 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V954*/ meltfptr[953]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #535 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V954*/ meltfptr[953])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V954*/ meltfptr[953]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#536*/ melt_assertmsg("putupl #536 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V954*/ meltfptr[953]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #536 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V954*/ meltfptr[953])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V954*/ meltfptr[953]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#537*/ melt_assertmsg("putupl #537 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V954*/ meltfptr[953]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #537 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V954*/ meltfptr[953])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V954*/ meltfptr[953]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V692*/ meltfptr[691]); /*putupl#538*/ melt_assertmsg("putupl #538 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V954*/ meltfptr[953]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #538 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V954*/ meltfptr[953])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V954*/ meltfptr[953]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V694*/ meltfptr[693]); /*putupl#539*/ melt_assertmsg("putupl #539 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V954*/ meltfptr[953]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #539 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V954*/ meltfptr[953])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V954*/ meltfptr[953]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V902*/ meltfptr[901]); /*putupl#540*/ melt_assertmsg("putupl #540 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V954*/ meltfptr[953]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #540 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V954*/ meltfptr[953])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V954*/ meltfptr[953]))->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V930*/ meltfptr[929]); /*putupl#541*/ melt_assertmsg("putupl #541 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V954*/ meltfptr[953]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #541 checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V954*/ meltfptr[953])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V954*/ meltfptr[953]))->tabval[6] = (melt_ptr_t)(/*_._VALDATA___V932*/ meltfptr[931]); /*putupl#542*/ melt_assertmsg("putupl #542 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V954*/ meltfptr[953]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #542 checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V954*/ meltfptr[953])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V954*/ meltfptr[953]))->tabval[7] = (melt_ptr_t)(/*_._VALDATA___V934*/ meltfptr[933]); /*putupl#543*/ melt_assertmsg("putupl #543 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V954*/ meltfptr[953]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #543 checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V954*/ meltfptr[953])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V954*/ meltfptr[953]))->tabval[8] = (melt_ptr_t)(/*_._VALDATA___V936*/ meltfptr[935]); /*putupl#544*/ melt_assertmsg("putupl #544 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V954*/ meltfptr[953]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #544 checkoff", (9>=0 && 9< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V954*/ meltfptr[953])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V954*/ meltfptr[953]))->tabval[9] = (melt_ptr_t)(/*_._VALDATA___V952*/ meltfptr[951]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V954*/ meltfptr[953]); MELT_LOCATION("warmelt-macro.melt:951:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_855__CLASS_SOURCE_DEFSELECTOR @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V949*/ meltfptr[948])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_855__CLASS_SOURCE_DEFSELECTOR @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V949*/ meltfptr[948])))); ((meltobject_ptr_t)(/*_._VALDATA___V949*/ meltfptr[948]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V954*/ meltfptr[953]); MELT_LOCATION("warmelt-macro.melt:951:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V949*/ meltfptr[948]); MELT_LOCATION("warmelt-macro.melt:951:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V949*/ meltfptr[948], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_859__SDEFSEL_FORMALS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V955*/ meltfptr[954])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_859__SDEFSEL_FORMALS @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V955*/ meltfptr[954])))); ((meltobject_ptr_t)(/*_._VALDATA___V955*/ meltfptr[954]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V956*/ meltfptr[955]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V955*/ meltfptr[954]); melt_dbgtrace_written_object (/*_._VALDATA___V955*/ meltfptr[954], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_863__CLASS_SOURCE_FIELDASSIGN @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V957*/ meltfptr[956])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_863__CLASS_SOURCE_FIELDASSIGN @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V957*/ meltfptr[956])))); ((meltobject_ptr_t)(/*_._VALDATA___V957*/ meltfptr[956]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V958*/ meltfptr[957]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V957*/ meltfptr[956]); melt_dbgtrace_written_object (/*_._VALDATA___V957*/ meltfptr[956], "new static instance"); MELT_LOCATION("warmelt-macro.melt:960:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_865__CLASS_SOURCE_FIELDASSIGN @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V959*/ meltfptr[958])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_865__CLASS_SOURCE_FIELDASSIGN @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V959*/ meltfptr[958])))); ((meltobject_ptr_t)(/*_._VALDATA___V959*/ meltfptr[958]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V960*/ meltfptr[959]); MELT_LOCATION("warmelt-macro.melt:960:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_865__CLASS_SOURCE_FIELDASSIGN @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V959*/ meltfptr[958])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_865__CLASS_SOURCE_FIELDASSIGN @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V959*/ meltfptr[958])))); ((meltobject_ptr_t)(/*_._VALDATA___V959*/ meltfptr[958]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#545*/ melt_assertmsg("putupl #545 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V961*/ meltfptr[960]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #545 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V961*/ meltfptr[960])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V961*/ meltfptr[960]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#546*/ melt_assertmsg("putupl #546 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V961*/ meltfptr[960]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #546 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V961*/ meltfptr[960])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V961*/ meltfptr[960]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#547*/ melt_assertmsg("putupl #547 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V961*/ meltfptr[960]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #547 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V961*/ meltfptr[960])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V961*/ meltfptr[960]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#548*/ melt_assertmsg("putupl #548 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V961*/ meltfptr[960]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #548 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V961*/ meltfptr[960])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V961*/ meltfptr[960]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V961*/ meltfptr[960]); MELT_LOCATION("warmelt-macro.melt:960:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_865__CLASS_SOURCE_FIELDASSIGN @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V959*/ meltfptr[958])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_865__CLASS_SOURCE_FIELDASSIGN @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V959*/ meltfptr[958])))); ((meltobject_ptr_t)(/*_._VALDATA___V959*/ meltfptr[958]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V961*/ meltfptr[960]); MELT_LOCATION("warmelt-macro.melt:960:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_871__SFLA_FIELD @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V962*/ meltfptr[961])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_871__SFLA_FIELD @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V962*/ meltfptr[961])))); ((meltobject_ptr_t)(/*_._VALDATA___V962*/ meltfptr[961]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V963*/ meltfptr[962]); MELT_LOCATION("warmelt-macro.melt:960:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_871__SFLA_FIELD @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V962*/ meltfptr[961])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_871__SFLA_FIELD @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V962*/ meltfptr[961])))); ((meltobject_ptr_t)(/*_._VALDATA___V962*/ meltfptr[961]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V959*/ meltfptr[958]); MELT_LOCATION("warmelt-macro.melt:960:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V962*/ meltfptr[961]); MELT_LOCATION("warmelt-macro.melt:960:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V962*/ meltfptr[961], "new static instance"); MELT_LOCATION("warmelt-macro.melt:960:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_875__SFLA_EXPR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V964*/ meltfptr[963])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_875__SFLA_EXPR @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V964*/ meltfptr[963])))); ((meltobject_ptr_t)(/*_._VALDATA___V964*/ meltfptr[963]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V965*/ meltfptr[964]); MELT_LOCATION("warmelt-macro.melt:960:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_875__SFLA_EXPR @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V964*/ meltfptr[963])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_875__SFLA_EXPR @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V964*/ meltfptr[963])))); ((meltobject_ptr_t)(/*_._VALDATA___V964*/ meltfptr[963]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V959*/ meltfptr[958]); MELT_LOCATION("warmelt-macro.melt:960:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V964*/ meltfptr[963]); MELT_LOCATION("warmelt-macro.melt:960:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V964*/ meltfptr[963], "new static instance"); /*putupl#549*/ melt_assertmsg("putupl #549 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V966*/ meltfptr[965]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #549 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V966*/ meltfptr[965])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V966*/ meltfptr[965]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#550*/ melt_assertmsg("putupl #550 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V966*/ meltfptr[965]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #550 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V966*/ meltfptr[965])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V966*/ meltfptr[965]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#551*/ melt_assertmsg("putupl #551 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V966*/ meltfptr[965]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #551 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V966*/ meltfptr[965])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V966*/ meltfptr[965]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V962*/ meltfptr[961]); /*putupl#552*/ melt_assertmsg("putupl #552 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V966*/ meltfptr[965]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #552 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V966*/ meltfptr[965])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V966*/ meltfptr[965]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V964*/ meltfptr[963]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V966*/ meltfptr[965]); MELT_LOCATION("warmelt-macro.melt:960:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_865__CLASS_SOURCE_FIELDASSIGN @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V959*/ meltfptr[958])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_865__CLASS_SOURCE_FIELDASSIGN @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V959*/ meltfptr[958])))); ((meltobject_ptr_t)(/*_._VALDATA___V959*/ meltfptr[958]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V966*/ meltfptr[965]); MELT_LOCATION("warmelt-macro.melt:960:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V959*/ meltfptr[958]); MELT_LOCATION("warmelt-macro.melt:960:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V959*/ meltfptr[958], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_869__SFLA_FIELD @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V967*/ meltfptr[966])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_869__SFLA_FIELD @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V967*/ meltfptr[966])))); ((meltobject_ptr_t)(/*_._VALDATA___V967*/ meltfptr[966]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V968*/ meltfptr[967]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V967*/ meltfptr[966]); melt_dbgtrace_written_object (/*_._VALDATA___V967*/ meltfptr[966], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_873__SFLA_EXPR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V969*/ meltfptr[968])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_873__SFLA_EXPR @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V969*/ meltfptr[968])))); ((meltobject_ptr_t)(/*_._VALDATA___V969*/ meltfptr[968]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V970*/ meltfptr[969]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V969*/ meltfptr[968]); melt_dbgtrace_written_object (/*_._VALDATA___V969*/ meltfptr[968], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_877__CLASS_SOURCE_INSTANCE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V971*/ meltfptr[970])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_877__CLASS_SOURCE_INSTANCE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V971*/ meltfptr[970])))); ((meltobject_ptr_t)(/*_._VALDATA___V971*/ meltfptr[970]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V972*/ meltfptr[971]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V971*/ meltfptr[970]); melt_dbgtrace_written_object (/*_._VALDATA___V971*/ meltfptr[970], "new static instance"); MELT_LOCATION("warmelt-macro.melt:971:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_879__CLASS_SOURCE_INSTANCE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V973*/ meltfptr[972])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_879__CLASS_SOURCE_INSTANCE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V973*/ meltfptr[972])))); ((meltobject_ptr_t)(/*_._VALDATA___V973*/ meltfptr[972]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V974*/ meltfptr[973]); MELT_LOCATION("warmelt-macro.melt:971:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_879__CLASS_SOURCE_INSTANCE @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V973*/ meltfptr[972])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_879__CLASS_SOURCE_INSTANCE @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V973*/ meltfptr[972])))); ((meltobject_ptr_t)(/*_._VALDATA___V973*/ meltfptr[972]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_SOURCE__V25*/ meltfptr[24]); #undef meltfram__ } /*end of meltmod__WARMELTmiMACRO__initialmeltchunk_17*/ void meltmod__WARMELTmiMACRO__initialmeltchunk_18 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; /*putupl#553*/ melt_assertmsg("putupl #553 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V975*/ meltfptr[974]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #553 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V975*/ meltfptr[974])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V975*/ meltfptr[974]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#554*/ melt_assertmsg("putupl #554 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V975*/ meltfptr[974]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #554 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V975*/ meltfptr[974])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V975*/ meltfptr[974]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#555*/ melt_assertmsg("putupl #555 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V975*/ meltfptr[974]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #555 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V975*/ meltfptr[974])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V975*/ meltfptr[974]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#556*/ melt_assertmsg("putupl #556 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V975*/ meltfptr[974]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #556 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V975*/ meltfptr[974])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V975*/ meltfptr[974]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V975*/ meltfptr[974]); MELT_LOCATION("warmelt-macro.melt:971:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_879__CLASS_SOURCE_INSTANCE @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V973*/ meltfptr[972])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_879__CLASS_SOURCE_INSTANCE @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V973*/ meltfptr[972])))); ((meltobject_ptr_t)(/*_._VALDATA___V973*/ meltfptr[972]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V975*/ meltfptr[974]); MELT_LOCATION("warmelt-macro.melt:971:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_885__SMINS_CLASS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V976*/ meltfptr[975])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_885__SMINS_CLASS @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V976*/ meltfptr[975])))); ((meltobject_ptr_t)(/*_._VALDATA___V976*/ meltfptr[975]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V977*/ meltfptr[976]); MELT_LOCATION("warmelt-macro.melt:971:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_885__SMINS_CLASS @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V976*/ meltfptr[975])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_885__SMINS_CLASS @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V976*/ meltfptr[975])))); ((meltobject_ptr_t)(/*_._VALDATA___V976*/ meltfptr[975]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V973*/ meltfptr[972]); MELT_LOCATION("warmelt-macro.melt:971:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V976*/ meltfptr[975]); MELT_LOCATION("warmelt-macro.melt:971:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V976*/ meltfptr[975], "new static instance"); MELT_LOCATION("warmelt-macro.melt:971:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_889__SMINS_CLABIND @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V978*/ meltfptr[977])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_889__SMINS_CLABIND @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V978*/ meltfptr[977])))); ((meltobject_ptr_t)(/*_._VALDATA___V978*/ meltfptr[977]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V979*/ meltfptr[978]); MELT_LOCATION("warmelt-macro.melt:971:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_889__SMINS_CLABIND @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V978*/ meltfptr[977])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_889__SMINS_CLABIND @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V978*/ meltfptr[977])))); ((meltobject_ptr_t)(/*_._VALDATA___V978*/ meltfptr[977]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V973*/ meltfptr[972]); MELT_LOCATION("warmelt-macro.melt:971:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V978*/ meltfptr[977]); MELT_LOCATION("warmelt-macro.melt:971:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V978*/ meltfptr[977], "new static instance"); MELT_LOCATION("warmelt-macro.melt:971:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_893__SMINS_FIELDS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V980*/ meltfptr[979])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_893__SMINS_FIELDS @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V980*/ meltfptr[979])))); ((meltobject_ptr_t)(/*_._VALDATA___V980*/ meltfptr[979]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V981*/ meltfptr[980]); MELT_LOCATION("warmelt-macro.melt:971:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_893__SMINS_FIELDS @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V980*/ meltfptr[979])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_893__SMINS_FIELDS @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V980*/ meltfptr[979])))); ((meltobject_ptr_t)(/*_._VALDATA___V980*/ meltfptr[979]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V973*/ meltfptr[972]); MELT_LOCATION("warmelt-macro.melt:971:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V980*/ meltfptr[979]); MELT_LOCATION("warmelt-macro.melt:971:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V980*/ meltfptr[979], "new static instance"); /*putupl#557*/ melt_assertmsg("putupl #557 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V982*/ meltfptr[981]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #557 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V982*/ meltfptr[981])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V982*/ meltfptr[981]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#558*/ melt_assertmsg("putupl #558 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V982*/ meltfptr[981]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #558 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V982*/ meltfptr[981])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V982*/ meltfptr[981]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#559*/ melt_assertmsg("putupl #559 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V982*/ meltfptr[981]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #559 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V982*/ meltfptr[981])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V982*/ meltfptr[981]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V976*/ meltfptr[975]); /*putupl#560*/ melt_assertmsg("putupl #560 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V982*/ meltfptr[981]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #560 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V982*/ meltfptr[981])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V982*/ meltfptr[981]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V978*/ meltfptr[977]); /*putupl#561*/ melt_assertmsg("putupl #561 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V982*/ meltfptr[981]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #561 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V982*/ meltfptr[981])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V982*/ meltfptr[981]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V980*/ meltfptr[979]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V982*/ meltfptr[981]); MELT_LOCATION("warmelt-macro.melt:971:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_879__CLASS_SOURCE_INSTANCE @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V973*/ meltfptr[972])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_879__CLASS_SOURCE_INSTANCE @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V973*/ meltfptr[972])))); ((meltobject_ptr_t)(/*_._VALDATA___V973*/ meltfptr[972]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V982*/ meltfptr[981]); MELT_LOCATION("warmelt-macro.melt:971:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V973*/ meltfptr[972]); MELT_LOCATION("warmelt-macro.melt:971:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V973*/ meltfptr[972], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_883__SMINS_CLASS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V983*/ meltfptr[982])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_883__SMINS_CLASS @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V983*/ meltfptr[982])))); ((meltobject_ptr_t)(/*_._VALDATA___V983*/ meltfptr[982]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V984*/ meltfptr[983]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V983*/ meltfptr[982]); melt_dbgtrace_written_object (/*_._VALDATA___V983*/ meltfptr[982], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_887__SMINS_CLABIND @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V985*/ meltfptr[984])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_887__SMINS_CLABIND @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V985*/ meltfptr[984])))); ((meltobject_ptr_t)(/*_._VALDATA___V985*/ meltfptr[984]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V986*/ meltfptr[985]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V985*/ meltfptr[984]); melt_dbgtrace_written_object (/*_._VALDATA___V985*/ meltfptr[984], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_891__SMINS_FIELDS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V987*/ meltfptr[986])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_891__SMINS_FIELDS @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V987*/ meltfptr[986])))); ((meltobject_ptr_t)(/*_._VALDATA___V987*/ meltfptr[986]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V988*/ meltfptr[987]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V987*/ meltfptr[986]); melt_dbgtrace_written_object (/*_._VALDATA___V987*/ meltfptr[986], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_895__CLASS_SOURCE_GET_FIELD @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V989*/ meltfptr[988])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_895__CLASS_SOURCE_GET_FIELD @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V989*/ meltfptr[988])))); ((meltobject_ptr_t)(/*_._VALDATA___V989*/ meltfptr[988]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V990*/ meltfptr[989]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V989*/ meltfptr[988]); melt_dbgtrace_written_object (/*_._VALDATA___V989*/ meltfptr[988], "new static instance"); MELT_LOCATION("warmelt-macro.melt:983:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_897__CLASS_SOURCE_GET_FIELD @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V991*/ meltfptr[990])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_897__CLASS_SOURCE_GET_FIELD @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V991*/ meltfptr[990])))); ((meltobject_ptr_t)(/*_._VALDATA___V991*/ meltfptr[990]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V992*/ meltfptr[991]); MELT_LOCATION("warmelt-macro.melt:983:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_897__CLASS_SOURCE_GET_FIELD @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V991*/ meltfptr[990])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_897__CLASS_SOURCE_GET_FIELD @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V991*/ meltfptr[990])))); ((meltobject_ptr_t)(/*_._VALDATA___V991*/ meltfptr[990]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#562*/ melt_assertmsg("putupl #562 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V993*/ meltfptr[992]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #562 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V993*/ meltfptr[992])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V993*/ meltfptr[992]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#563*/ melt_assertmsg("putupl #563 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V993*/ meltfptr[992]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #563 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V993*/ meltfptr[992])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V993*/ meltfptr[992]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#564*/ melt_assertmsg("putupl #564 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V993*/ meltfptr[992]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #564 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V993*/ meltfptr[992])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V993*/ meltfptr[992]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#565*/ melt_assertmsg("putupl #565 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V993*/ meltfptr[992]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #565 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V993*/ meltfptr[992])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V993*/ meltfptr[992]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V993*/ meltfptr[992]); MELT_LOCATION("warmelt-macro.melt:983:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_897__CLASS_SOURCE_GET_FIELD @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V991*/ meltfptr[990])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_897__CLASS_SOURCE_GET_FIELD @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V991*/ meltfptr[990])))); ((meltobject_ptr_t)(/*_._VALDATA___V991*/ meltfptr[990]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V993*/ meltfptr[992]); MELT_LOCATION("warmelt-macro.melt:983:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_903__SUGET_OBJ @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V994*/ meltfptr[993])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_903__SUGET_OBJ @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V994*/ meltfptr[993])))); ((meltobject_ptr_t)(/*_._VALDATA___V994*/ meltfptr[993]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V995*/ meltfptr[994]); MELT_LOCATION("warmelt-macro.melt:983:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_903__SUGET_OBJ @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V994*/ meltfptr[993])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_903__SUGET_OBJ @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V994*/ meltfptr[993])))); ((meltobject_ptr_t)(/*_._VALDATA___V994*/ meltfptr[993]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V991*/ meltfptr[990]); MELT_LOCATION("warmelt-macro.melt:983:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V994*/ meltfptr[993]); MELT_LOCATION("warmelt-macro.melt:983:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V994*/ meltfptr[993], "new static instance"); MELT_LOCATION("warmelt-macro.melt:983:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_907__SUGET_FIELD @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V996*/ meltfptr[995])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_907__SUGET_FIELD @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V996*/ meltfptr[995])))); ((meltobject_ptr_t)(/*_._VALDATA___V996*/ meltfptr[995]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V997*/ meltfptr[996]); MELT_LOCATION("warmelt-macro.melt:983:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_907__SUGET_FIELD @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V996*/ meltfptr[995])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_907__SUGET_FIELD @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V996*/ meltfptr[995])))); ((meltobject_ptr_t)(/*_._VALDATA___V996*/ meltfptr[995]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V991*/ meltfptr[990]); MELT_LOCATION("warmelt-macro.melt:983:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V996*/ meltfptr[995]); MELT_LOCATION("warmelt-macro.melt:983:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V996*/ meltfptr[995], "new static instance"); /*putupl#566*/ melt_assertmsg("putupl #566 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V998*/ meltfptr[997]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #566 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V998*/ meltfptr[997])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V998*/ meltfptr[997]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#567*/ melt_assertmsg("putupl #567 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V998*/ meltfptr[997]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #567 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V998*/ meltfptr[997])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V998*/ meltfptr[997]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#568*/ melt_assertmsg("putupl #568 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V998*/ meltfptr[997]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #568 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V998*/ meltfptr[997])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V998*/ meltfptr[997]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V994*/ meltfptr[993]); /*putupl#569*/ melt_assertmsg("putupl #569 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V998*/ meltfptr[997]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #569 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V998*/ meltfptr[997])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V998*/ meltfptr[997]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V996*/ meltfptr[995]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V998*/ meltfptr[997]); MELT_LOCATION("warmelt-macro.melt:983:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_897__CLASS_SOURCE_GET_FIELD @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V991*/ meltfptr[990])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_897__CLASS_SOURCE_GET_FIELD @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V991*/ meltfptr[990])))); ((meltobject_ptr_t)(/*_._VALDATA___V991*/ meltfptr[990]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V998*/ meltfptr[997]); MELT_LOCATION("warmelt-macro.melt:983:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V991*/ meltfptr[990]); MELT_LOCATION("warmelt-macro.melt:983:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V991*/ meltfptr[990], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_901__SUGET_OBJ @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V999*/ meltfptr[998])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_901__SUGET_OBJ @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V999*/ meltfptr[998])))); ((meltobject_ptr_t)(/*_._VALDATA___V999*/ meltfptr[998]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1000*/ meltfptr[999]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V999*/ meltfptr[998]); melt_dbgtrace_written_object (/*_._VALDATA___V999*/ meltfptr[998], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_905__SUGET_FIELD @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1001*/ meltfptr[1000])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_905__SUGET_FIELD @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1001*/ meltfptr[1000])))); ((meltobject_ptr_t)(/*_._VALDATA___V1001*/ meltfptr[1000]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1002*/ meltfptr[1001]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1001*/ meltfptr[1000]); melt_dbgtrace_written_object (/*_._VALDATA___V1001*/ meltfptr[1000], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_909__CLASS_SOURCE_UNSAFE_GET_FIELD @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1003*/ meltfptr[1002])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_909__CLASS_SOURCE_UNSAFE_GET_FIELD @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1003*/ meltfptr[1002])))); ((meltobject_ptr_t)(/*_._VALDATA___V1003*/ meltfptr[1002]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1004*/ meltfptr[1003]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1003*/ meltfptr[1002]); melt_dbgtrace_written_object (/*_._VALDATA___V1003*/ meltfptr[1002], "new static instance"); MELT_LOCATION("warmelt-macro.melt:994:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_911__CLASS_SOURCE_UNSAFE_GET_FIELD @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1005*/ meltfptr[1004])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_911__CLASS_SOURCE_UNSAFE_GET_FIELD @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1005*/ meltfptr[1004])))); ((meltobject_ptr_t)(/*_._VALDATA___V1005*/ meltfptr[1004]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1006*/ meltfptr[1005]); MELT_LOCATION("warmelt-macro.melt:994:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_911__CLASS_SOURCE_UNSAFE_GET_FIELD @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1005*/ meltfptr[1004])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_911__CLASS_SOURCE_UNSAFE_GET_FIELD @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1005*/ meltfptr[1004])))); ((meltobject_ptr_t)(/*_._VALDATA___V1005*/ meltfptr[1004]))->obj_vartab[4] = (melt_ptr_t)( /*_._VALDATA___V991*/ meltfptr[990]); /*putupl#570*/ melt_assertmsg("putupl #570 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1007*/ meltfptr[1006]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #570 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1007*/ meltfptr[1006])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1007*/ meltfptr[1006]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#571*/ melt_assertmsg("putupl #571 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1007*/ meltfptr[1006]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #571 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1007*/ meltfptr[1006])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1007*/ meltfptr[1006]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#572*/ melt_assertmsg("putupl #572 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1007*/ meltfptr[1006]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #572 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1007*/ meltfptr[1006])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1007*/ meltfptr[1006]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#573*/ melt_assertmsg("putupl #573 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1007*/ meltfptr[1006]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #573 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1007*/ meltfptr[1006])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1007*/ meltfptr[1006]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#574*/ melt_assertmsg("putupl #574 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1007*/ meltfptr[1006]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #574 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1007*/ meltfptr[1006])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1007*/ meltfptr[1006]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V991*/ meltfptr[990]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1007*/ meltfptr[1006]); MELT_LOCATION("warmelt-macro.melt:994:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_911__CLASS_SOURCE_UNSAFE_GET_FIELD @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1005*/ meltfptr[1004])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_911__CLASS_SOURCE_UNSAFE_GET_FIELD @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1005*/ meltfptr[1004])))); ((meltobject_ptr_t)(/*_._VALDATA___V1005*/ meltfptr[1004]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V1007*/ meltfptr[1006]); /*putupl#575*/ melt_assertmsg("putupl #575 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1008*/ meltfptr[1007]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #575 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1008*/ meltfptr[1007])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1008*/ meltfptr[1007]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#576*/ melt_assertmsg("putupl #576 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1008*/ meltfptr[1007]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #576 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1008*/ meltfptr[1007])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1008*/ meltfptr[1007]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#577*/ melt_assertmsg("putupl #577 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1008*/ meltfptr[1007]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #577 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1008*/ meltfptr[1007])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1008*/ meltfptr[1007]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V994*/ meltfptr[993]); /*putupl#578*/ melt_assertmsg("putupl #578 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1008*/ meltfptr[1007]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #578 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1008*/ meltfptr[1007])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1008*/ meltfptr[1007]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V996*/ meltfptr[995]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1008*/ meltfptr[1007]); MELT_LOCATION("warmelt-macro.melt:994:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_911__CLASS_SOURCE_UNSAFE_GET_FIELD @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1005*/ meltfptr[1004])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_911__CLASS_SOURCE_UNSAFE_GET_FIELD @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1005*/ meltfptr[1004])))); ((meltobject_ptr_t)(/*_._VALDATA___V1005*/ meltfptr[1004]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V1008*/ meltfptr[1007]); MELT_LOCATION("warmelt-macro.melt:994:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1005*/ meltfptr[1004]); MELT_LOCATION("warmelt-macro.melt:994:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1005*/ meltfptr[1004], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_915__CLASS_SOURCE_PUT_FIELDS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1009*/ meltfptr[1008])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_915__CLASS_SOURCE_PUT_FIELDS @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1009*/ meltfptr[1008])))); ((meltobject_ptr_t)(/*_._VALDATA___V1009*/ meltfptr[1008]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1010*/ meltfptr[1009]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1009*/ meltfptr[1008]); melt_dbgtrace_written_object (/*_._VALDATA___V1009*/ meltfptr[1008], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1003:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_917__CLASS_SOURCE_PUT_FIELDS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1011*/ meltfptr[1010])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_917__CLASS_SOURCE_PUT_FIELDS @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1011*/ meltfptr[1010])))); ((meltobject_ptr_t)(/*_._VALDATA___V1011*/ meltfptr[1010]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1012*/ meltfptr[1011]); MELT_LOCATION("warmelt-macro.melt:1003:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_917__CLASS_SOURCE_PUT_FIELDS @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1011*/ meltfptr[1010])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_917__CLASS_SOURCE_PUT_FIELDS @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1011*/ meltfptr[1010])))); ((meltobject_ptr_t)(/*_._VALDATA___V1011*/ meltfptr[1010]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#579*/ melt_assertmsg("putupl #579 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1013*/ meltfptr[1012]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #579 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1013*/ meltfptr[1012])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1013*/ meltfptr[1012]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#580*/ melt_assertmsg("putupl #580 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1013*/ meltfptr[1012]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #580 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1013*/ meltfptr[1012])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1013*/ meltfptr[1012]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#581*/ melt_assertmsg("putupl #581 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1013*/ meltfptr[1012]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #581 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1013*/ meltfptr[1012])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1013*/ meltfptr[1012]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#582*/ melt_assertmsg("putupl #582 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1013*/ meltfptr[1012]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #582 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1013*/ meltfptr[1012])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1013*/ meltfptr[1012]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1013*/ meltfptr[1012]); MELT_LOCATION("warmelt-macro.melt:1003:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_917__CLASS_SOURCE_PUT_FIELDS @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1011*/ meltfptr[1010])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_917__CLASS_SOURCE_PUT_FIELDS @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1011*/ meltfptr[1010])))); ((meltobject_ptr_t)(/*_._VALDATA___V1011*/ meltfptr[1010]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V1013*/ meltfptr[1012]); MELT_LOCATION("warmelt-macro.melt:1003:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_923__SUPUT_OBJ @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1014*/ meltfptr[1013])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_923__SUPUT_OBJ @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1014*/ meltfptr[1013])))); ((meltobject_ptr_t)(/*_._VALDATA___V1014*/ meltfptr[1013]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1015*/ meltfptr[1014]); MELT_LOCATION("warmelt-macro.melt:1003:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_923__SUPUT_OBJ @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1014*/ meltfptr[1013])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_923__SUPUT_OBJ @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1014*/ meltfptr[1013])))); ((meltobject_ptr_t)(/*_._VALDATA___V1014*/ meltfptr[1013]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V1011*/ meltfptr[1010]); MELT_LOCATION("warmelt-macro.melt:1003:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1014*/ meltfptr[1013]); MELT_LOCATION("warmelt-macro.melt:1003:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1014*/ meltfptr[1013], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1003:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_927__SUPUT_FIELDS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1016*/ meltfptr[1015])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_927__SUPUT_FIELDS @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1016*/ meltfptr[1015])))); ((meltobject_ptr_t)(/*_._VALDATA___V1016*/ meltfptr[1015]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1017*/ meltfptr[1016]); MELT_LOCATION("warmelt-macro.melt:1003:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_927__SUPUT_FIELDS @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1016*/ meltfptr[1015])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_927__SUPUT_FIELDS @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1016*/ meltfptr[1015])))); ((meltobject_ptr_t)(/*_._VALDATA___V1016*/ meltfptr[1015]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V1011*/ meltfptr[1010]); MELT_LOCATION("warmelt-macro.melt:1003:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1016*/ meltfptr[1015]); MELT_LOCATION("warmelt-macro.melt:1003:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1016*/ meltfptr[1015], "new static instance"); /*putupl#583*/ melt_assertmsg("putupl #583 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1018*/ meltfptr[1017]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #583 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1018*/ meltfptr[1017])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1018*/ meltfptr[1017]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#584*/ melt_assertmsg("putupl #584 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1018*/ meltfptr[1017]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #584 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1018*/ meltfptr[1017])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1018*/ meltfptr[1017]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#585*/ melt_assertmsg("putupl #585 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1018*/ meltfptr[1017]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #585 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1018*/ meltfptr[1017])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1018*/ meltfptr[1017]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V1014*/ meltfptr[1013]); /*putupl#586*/ melt_assertmsg("putupl #586 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1018*/ meltfptr[1017]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #586 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1018*/ meltfptr[1017])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1018*/ meltfptr[1017]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V1016*/ meltfptr[1015]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1018*/ meltfptr[1017]); MELT_LOCATION("warmelt-macro.melt:1003:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_917__CLASS_SOURCE_PUT_FIELDS @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1011*/ meltfptr[1010])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_917__CLASS_SOURCE_PUT_FIELDS @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1011*/ meltfptr[1010])))); ((meltobject_ptr_t)(/*_._VALDATA___V1011*/ meltfptr[1010]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V1018*/ meltfptr[1017]); MELT_LOCATION("warmelt-macro.melt:1003:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1011*/ meltfptr[1010]); MELT_LOCATION("warmelt-macro.melt:1003:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1011*/ meltfptr[1010], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_921__SUPUT_OBJ @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1019*/ meltfptr[1018])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_921__SUPUT_OBJ @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1019*/ meltfptr[1018])))); ((meltobject_ptr_t)(/*_._VALDATA___V1019*/ meltfptr[1018]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1020*/ meltfptr[1019]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1019*/ meltfptr[1018]); melt_dbgtrace_written_object (/*_._VALDATA___V1019*/ meltfptr[1018], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_925__SUPUT_FIELDS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1021*/ meltfptr[1020])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_925__SUPUT_FIELDS @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1021*/ meltfptr[1020])))); ((meltobject_ptr_t)(/*_._VALDATA___V1021*/ meltfptr[1020]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1022*/ meltfptr[1021]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1021*/ meltfptr[1020]); melt_dbgtrace_written_object (/*_._VALDATA___V1021*/ meltfptr[1020], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_929__CLASS_SOURCE_UNSAFE_PUT_FIELDS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1023*/ meltfptr[1022])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_929__CLASS_SOURCE_UNSAFE_PUT_FIELDS @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1023*/ meltfptr[1022])))); ((meltobject_ptr_t)(/*_._VALDATA___V1023*/ meltfptr[1022]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1024*/ meltfptr[1023]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1023*/ meltfptr[1022]); melt_dbgtrace_written_object (/*_._VALDATA___V1023*/ meltfptr[1022], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1013:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_931__CLASS_SOURCE_UNSAFE_PUT_FIELDS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1025*/ meltfptr[1024])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_931__CLASS_SOURCE_UNSAFE_PUT_FIELDS @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1025*/ meltfptr[1024])))); ((meltobject_ptr_t)(/*_._VALDATA___V1025*/ meltfptr[1024]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1026*/ meltfptr[1025]); MELT_LOCATION("warmelt-macro.melt:1013:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_931__CLASS_SOURCE_UNSAFE_PUT_FIELDS @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1025*/ meltfptr[1024])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_931__CLASS_SOURCE_UNSAFE_PUT_FIELDS @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1025*/ meltfptr[1024])))); ((meltobject_ptr_t)(/*_._VALDATA___V1025*/ meltfptr[1024]))->obj_vartab[4] = (melt_ptr_t)( /*_._VALDATA___V1011*/ meltfptr[1010]); /*putupl#587*/ melt_assertmsg("putupl #587 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1027*/ meltfptr[1026]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #587 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1027*/ meltfptr[1026])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1027*/ meltfptr[1026]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); #undef meltfram__ } /*end of meltmod__WARMELTmiMACRO__initialmeltchunk_18*/ void meltmod__WARMELTmiMACRO__initialmeltchunk_19 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; /*putupl#588*/ melt_assertmsg("putupl #588 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1027*/ meltfptr[1026]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #588 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1027*/ meltfptr[1026])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1027*/ meltfptr[1026]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#589*/ melt_assertmsg("putupl #589 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1027*/ meltfptr[1026]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #589 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1027*/ meltfptr[1026])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1027*/ meltfptr[1026]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#590*/ melt_assertmsg("putupl #590 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1027*/ meltfptr[1026]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #590 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1027*/ meltfptr[1026])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1027*/ meltfptr[1026]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#591*/ melt_assertmsg("putupl #591 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1027*/ meltfptr[1026]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #591 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1027*/ meltfptr[1026])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1027*/ meltfptr[1026]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V1011*/ meltfptr[1010]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1027*/ meltfptr[1026]); MELT_LOCATION("warmelt-macro.melt:1013:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_931__CLASS_SOURCE_UNSAFE_PUT_FIELDS @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1025*/ meltfptr[1024])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_931__CLASS_SOURCE_UNSAFE_PUT_FIELDS @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1025*/ meltfptr[1024])))); ((meltobject_ptr_t)(/*_._VALDATA___V1025*/ meltfptr[1024]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V1027*/ meltfptr[1026]); /*putupl#592*/ melt_assertmsg("putupl #592 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1028*/ meltfptr[1027]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #592 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1028*/ meltfptr[1027])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1028*/ meltfptr[1027]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#593*/ melt_assertmsg("putupl #593 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1028*/ meltfptr[1027]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #593 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1028*/ meltfptr[1027])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1028*/ meltfptr[1027]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#594*/ melt_assertmsg("putupl #594 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1028*/ meltfptr[1027]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #594 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1028*/ meltfptr[1027])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1028*/ meltfptr[1027]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V1014*/ meltfptr[1013]); /*putupl#595*/ melt_assertmsg("putupl #595 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1028*/ meltfptr[1027]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #595 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1028*/ meltfptr[1027])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1028*/ meltfptr[1027]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V1016*/ meltfptr[1015]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1028*/ meltfptr[1027]); MELT_LOCATION("warmelt-macro.melt:1013:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_931__CLASS_SOURCE_UNSAFE_PUT_FIELDS @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1025*/ meltfptr[1024])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_931__CLASS_SOURCE_UNSAFE_PUT_FIELDS @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1025*/ meltfptr[1024])))); ((meltobject_ptr_t)(/*_._VALDATA___V1025*/ meltfptr[1024]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V1028*/ meltfptr[1027]); MELT_LOCATION("warmelt-macro.melt:1013:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1025*/ meltfptr[1024]); MELT_LOCATION("warmelt-macro.melt:1013:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1025*/ meltfptr[1024], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_935__CLASS_SOURCE_IF @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1029*/ meltfptr[1028])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_935__CLASS_SOURCE_IF @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1029*/ meltfptr[1028])))); ((meltobject_ptr_t)(/*_._VALDATA___V1029*/ meltfptr[1028]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1030*/ meltfptr[1029]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1029*/ meltfptr[1028]); melt_dbgtrace_written_object (/*_._VALDATA___V1029*/ meltfptr[1028], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1022:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_937__CLASS_SOURCE_IF @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1031*/ meltfptr[1030])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_937__CLASS_SOURCE_IF @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1031*/ meltfptr[1030])))); ((meltobject_ptr_t)(/*_._VALDATA___V1031*/ meltfptr[1030]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1032*/ meltfptr[1031]); MELT_LOCATION("warmelt-macro.melt:1022:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_937__CLASS_SOURCE_IF @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1031*/ meltfptr[1030])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_937__CLASS_SOURCE_IF @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1031*/ meltfptr[1030])))); ((meltobject_ptr_t)(/*_._VALDATA___V1031*/ meltfptr[1030]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#596*/ melt_assertmsg("putupl #596 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1033*/ meltfptr[1032]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #596 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1033*/ meltfptr[1032])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1033*/ meltfptr[1032]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#597*/ melt_assertmsg("putupl #597 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1033*/ meltfptr[1032]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #597 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1033*/ meltfptr[1032])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1033*/ meltfptr[1032]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#598*/ melt_assertmsg("putupl #598 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1033*/ meltfptr[1032]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #598 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1033*/ meltfptr[1032])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1033*/ meltfptr[1032]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#599*/ melt_assertmsg("putupl #599 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1033*/ meltfptr[1032]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #599 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1033*/ meltfptr[1032])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1033*/ meltfptr[1032]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1033*/ meltfptr[1032]); MELT_LOCATION("warmelt-macro.melt:1022:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_937__CLASS_SOURCE_IF @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1031*/ meltfptr[1030])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_937__CLASS_SOURCE_IF @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1031*/ meltfptr[1030])))); ((meltobject_ptr_t)(/*_._VALDATA___V1031*/ meltfptr[1030]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V1033*/ meltfptr[1032]); MELT_LOCATION("warmelt-macro.melt:1022:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_943__SIF_TEST @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1034*/ meltfptr[1033])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_943__SIF_TEST @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1034*/ meltfptr[1033])))); ((meltobject_ptr_t)(/*_._VALDATA___V1034*/ meltfptr[1033]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1035*/ meltfptr[1034]); MELT_LOCATION("warmelt-macro.melt:1022:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_943__SIF_TEST @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1034*/ meltfptr[1033])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_943__SIF_TEST @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1034*/ meltfptr[1033])))); ((meltobject_ptr_t)(/*_._VALDATA___V1034*/ meltfptr[1033]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V1031*/ meltfptr[1030]); MELT_LOCATION("warmelt-macro.melt:1022:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1034*/ meltfptr[1033]); MELT_LOCATION("warmelt-macro.melt:1022:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1034*/ meltfptr[1033], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1022:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_947__SIF_THEN @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1036*/ meltfptr[1035])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_947__SIF_THEN @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1036*/ meltfptr[1035])))); ((meltobject_ptr_t)(/*_._VALDATA___V1036*/ meltfptr[1035]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1037*/ meltfptr[1036]); MELT_LOCATION("warmelt-macro.melt:1022:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_947__SIF_THEN @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1036*/ meltfptr[1035])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_947__SIF_THEN @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1036*/ meltfptr[1035])))); ((meltobject_ptr_t)(/*_._VALDATA___V1036*/ meltfptr[1035]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V1031*/ meltfptr[1030]); MELT_LOCATION("warmelt-macro.melt:1022:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1036*/ meltfptr[1035]); MELT_LOCATION("warmelt-macro.melt:1022:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1036*/ meltfptr[1035], "new static instance"); /*putupl#600*/ melt_assertmsg("putupl #600 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1038*/ meltfptr[1037]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #600 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1038*/ meltfptr[1037])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1038*/ meltfptr[1037]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#601*/ melt_assertmsg("putupl #601 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1038*/ meltfptr[1037]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #601 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1038*/ meltfptr[1037])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1038*/ meltfptr[1037]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#602*/ melt_assertmsg("putupl #602 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1038*/ meltfptr[1037]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #602 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1038*/ meltfptr[1037])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1038*/ meltfptr[1037]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V1034*/ meltfptr[1033]); /*putupl#603*/ melt_assertmsg("putupl #603 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1038*/ meltfptr[1037]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #603 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1038*/ meltfptr[1037])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1038*/ meltfptr[1037]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V1036*/ meltfptr[1035]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1038*/ meltfptr[1037]); MELT_LOCATION("warmelt-macro.melt:1022:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_937__CLASS_SOURCE_IF @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1031*/ meltfptr[1030])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_937__CLASS_SOURCE_IF @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1031*/ meltfptr[1030])))); ((meltobject_ptr_t)(/*_._VALDATA___V1031*/ meltfptr[1030]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V1038*/ meltfptr[1037]); MELT_LOCATION("warmelt-macro.melt:1022:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1031*/ meltfptr[1030]); MELT_LOCATION("warmelt-macro.melt:1022:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1031*/ meltfptr[1030], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_941__SIF_TEST @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1039*/ meltfptr[1038])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_941__SIF_TEST @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1039*/ meltfptr[1038])))); ((meltobject_ptr_t)(/*_._VALDATA___V1039*/ meltfptr[1038]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1040*/ meltfptr[1039]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1039*/ meltfptr[1038]); melt_dbgtrace_written_object (/*_._VALDATA___V1039*/ meltfptr[1038], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_945__SIF_THEN @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1041*/ meltfptr[1040])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_945__SIF_THEN @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1041*/ meltfptr[1040])))); ((meltobject_ptr_t)(/*_._VALDATA___V1041*/ meltfptr[1040]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1042*/ meltfptr[1041]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1041*/ meltfptr[1040]); melt_dbgtrace_written_object (/*_._VALDATA___V1041*/ meltfptr[1040], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_949__CLASS_SOURCE_IFELSE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1043*/ meltfptr[1042])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_949__CLASS_SOURCE_IFELSE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1043*/ meltfptr[1042])))); ((meltobject_ptr_t)(/*_._VALDATA___V1043*/ meltfptr[1042]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1044*/ meltfptr[1043]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1043*/ meltfptr[1042]); melt_dbgtrace_written_object (/*_._VALDATA___V1043*/ meltfptr[1042], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1031:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_951__CLASS_SOURCE_IFELSE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1045*/ meltfptr[1044])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_951__CLASS_SOURCE_IFELSE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1045*/ meltfptr[1044])))); ((meltobject_ptr_t)(/*_._VALDATA___V1045*/ meltfptr[1044]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1046*/ meltfptr[1045]); MELT_LOCATION("warmelt-macro.melt:1031:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_951__CLASS_SOURCE_IFELSE @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1045*/ meltfptr[1044])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_951__CLASS_SOURCE_IFELSE @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1045*/ meltfptr[1044])))); ((meltobject_ptr_t)(/*_._VALDATA___V1045*/ meltfptr[1044]))->obj_vartab[4] = (melt_ptr_t)( /*_._VALDATA___V1031*/ meltfptr[1030]); /*putupl#604*/ melt_assertmsg("putupl #604 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1047*/ meltfptr[1046]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #604 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1047*/ meltfptr[1046])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1047*/ meltfptr[1046]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#605*/ melt_assertmsg("putupl #605 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1047*/ meltfptr[1046]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #605 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1047*/ meltfptr[1046])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1047*/ meltfptr[1046]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#606*/ melt_assertmsg("putupl #606 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1047*/ meltfptr[1046]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #606 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1047*/ meltfptr[1046])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1047*/ meltfptr[1046]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#607*/ melt_assertmsg("putupl #607 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1047*/ meltfptr[1046]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #607 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1047*/ meltfptr[1046])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1047*/ meltfptr[1046]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#608*/ melt_assertmsg("putupl #608 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1047*/ meltfptr[1046]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #608 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1047*/ meltfptr[1046])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1047*/ meltfptr[1046]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V1031*/ meltfptr[1030]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1047*/ meltfptr[1046]); MELT_LOCATION("warmelt-macro.melt:1031:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_951__CLASS_SOURCE_IFELSE @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1045*/ meltfptr[1044])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_951__CLASS_SOURCE_IFELSE @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1045*/ meltfptr[1044])))); ((meltobject_ptr_t)(/*_._VALDATA___V1045*/ meltfptr[1044]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V1047*/ meltfptr[1046]); MELT_LOCATION("warmelt-macro.melt:1031:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_957__SIF_ELSE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1048*/ meltfptr[1047])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_957__SIF_ELSE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1048*/ meltfptr[1047])))); ((meltobject_ptr_t)(/*_._VALDATA___V1048*/ meltfptr[1047]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1049*/ meltfptr[1048]); MELT_LOCATION("warmelt-macro.melt:1031:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_957__SIF_ELSE @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1048*/ meltfptr[1047])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_957__SIF_ELSE @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1048*/ meltfptr[1047])))); ((meltobject_ptr_t)(/*_._VALDATA___V1048*/ meltfptr[1047]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V1045*/ meltfptr[1044]); MELT_LOCATION("warmelt-macro.melt:1031:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1048*/ meltfptr[1047]); MELT_LOCATION("warmelt-macro.melt:1031:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1048*/ meltfptr[1047], "new static instance"); /*putupl#609*/ melt_assertmsg("putupl #609 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1050*/ meltfptr[1049]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #609 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1050*/ meltfptr[1049])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1050*/ meltfptr[1049]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#610*/ melt_assertmsg("putupl #610 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1050*/ meltfptr[1049]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #610 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1050*/ meltfptr[1049])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1050*/ meltfptr[1049]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#611*/ melt_assertmsg("putupl #611 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1050*/ meltfptr[1049]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #611 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1050*/ meltfptr[1049])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1050*/ meltfptr[1049]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V1034*/ meltfptr[1033]); /*putupl#612*/ melt_assertmsg("putupl #612 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1050*/ meltfptr[1049]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #612 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1050*/ meltfptr[1049])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1050*/ meltfptr[1049]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V1036*/ meltfptr[1035]); /*putupl#613*/ melt_assertmsg("putupl #613 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1050*/ meltfptr[1049]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #613 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1050*/ meltfptr[1049])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1050*/ meltfptr[1049]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V1048*/ meltfptr[1047]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1050*/ meltfptr[1049]); MELT_LOCATION("warmelt-macro.melt:1031:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_951__CLASS_SOURCE_IFELSE @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1045*/ meltfptr[1044])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_951__CLASS_SOURCE_IFELSE @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1045*/ meltfptr[1044])))); ((meltobject_ptr_t)(/*_._VALDATA___V1045*/ meltfptr[1044]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V1050*/ meltfptr[1049]); MELT_LOCATION("warmelt-macro.melt:1031:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1045*/ meltfptr[1044]); MELT_LOCATION("warmelt-macro.melt:1031:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1045*/ meltfptr[1044], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_955__SIF_ELSE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1051*/ meltfptr[1050])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_955__SIF_ELSE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1051*/ meltfptr[1050])))); ((meltobject_ptr_t)(/*_._VALDATA___V1051*/ meltfptr[1050]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1052*/ meltfptr[1051]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1051*/ meltfptr[1050]); melt_dbgtrace_written_object (/*_._VALDATA___V1051*/ meltfptr[1050], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_959__CLASS_SOURCE_OR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1053*/ meltfptr[1052])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_959__CLASS_SOURCE_OR @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1053*/ meltfptr[1052])))); ((meltobject_ptr_t)(/*_._VALDATA___V1053*/ meltfptr[1052]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1054*/ meltfptr[1053]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1053*/ meltfptr[1052]); melt_dbgtrace_written_object (/*_._VALDATA___V1053*/ meltfptr[1052], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1042:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_961__CLASS_SOURCE_OR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1055*/ meltfptr[1054])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_961__CLASS_SOURCE_OR @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1055*/ meltfptr[1054])))); ((meltobject_ptr_t)(/*_._VALDATA___V1055*/ meltfptr[1054]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1056*/ meltfptr[1055]); MELT_LOCATION("warmelt-macro.melt:1042:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_961__CLASS_SOURCE_OR @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1055*/ meltfptr[1054])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_961__CLASS_SOURCE_OR @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1055*/ meltfptr[1054])))); ((meltobject_ptr_t)(/*_._VALDATA___V1055*/ meltfptr[1054]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#614*/ melt_assertmsg("putupl #614 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1057*/ meltfptr[1056]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #614 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1057*/ meltfptr[1056])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1057*/ meltfptr[1056]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#615*/ melt_assertmsg("putupl #615 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1057*/ meltfptr[1056]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #615 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1057*/ meltfptr[1056])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1057*/ meltfptr[1056]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#616*/ melt_assertmsg("putupl #616 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1057*/ meltfptr[1056]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #616 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1057*/ meltfptr[1056])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1057*/ meltfptr[1056]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#617*/ melt_assertmsg("putupl #617 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1057*/ meltfptr[1056]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #617 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1057*/ meltfptr[1056])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1057*/ meltfptr[1056]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1057*/ meltfptr[1056]); MELT_LOCATION("warmelt-macro.melt:1042:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_961__CLASS_SOURCE_OR @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1055*/ meltfptr[1054])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_961__CLASS_SOURCE_OR @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1055*/ meltfptr[1054])))); ((meltobject_ptr_t)(/*_._VALDATA___V1055*/ meltfptr[1054]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V1057*/ meltfptr[1056]); MELT_LOCATION("warmelt-macro.melt:1042:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_967__SOR_DISJ @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1058*/ meltfptr[1057])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_967__SOR_DISJ @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1058*/ meltfptr[1057])))); ((meltobject_ptr_t)(/*_._VALDATA___V1058*/ meltfptr[1057]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1059*/ meltfptr[1058]); MELT_LOCATION("warmelt-macro.melt:1042:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_967__SOR_DISJ @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1058*/ meltfptr[1057])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_967__SOR_DISJ @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1058*/ meltfptr[1057])))); ((meltobject_ptr_t)(/*_._VALDATA___V1058*/ meltfptr[1057]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V1055*/ meltfptr[1054]); MELT_LOCATION("warmelt-macro.melt:1042:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1058*/ meltfptr[1057]); MELT_LOCATION("warmelt-macro.melt:1042:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1058*/ meltfptr[1057], "new static instance"); /*putupl#618*/ melt_assertmsg("putupl #618 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1060*/ meltfptr[1059]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #618 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1060*/ meltfptr[1059])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1060*/ meltfptr[1059]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#619*/ melt_assertmsg("putupl #619 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1060*/ meltfptr[1059]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #619 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1060*/ meltfptr[1059])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1060*/ meltfptr[1059]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#620*/ melt_assertmsg("putupl #620 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1060*/ meltfptr[1059]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #620 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1060*/ meltfptr[1059])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1060*/ meltfptr[1059]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V1058*/ meltfptr[1057]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1060*/ meltfptr[1059]); MELT_LOCATION("warmelt-macro.melt:1042:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_961__CLASS_SOURCE_OR @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1055*/ meltfptr[1054])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_961__CLASS_SOURCE_OR @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1055*/ meltfptr[1054])))); ((meltobject_ptr_t)(/*_._VALDATA___V1055*/ meltfptr[1054]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V1060*/ meltfptr[1059]); MELT_LOCATION("warmelt-macro.melt:1042:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1055*/ meltfptr[1054]); MELT_LOCATION("warmelt-macro.melt:1042:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1055*/ meltfptr[1054], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_965__SOR_DISJ @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1061*/ meltfptr[1060])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_965__SOR_DISJ @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1061*/ meltfptr[1060])))); ((meltobject_ptr_t)(/*_._VALDATA___V1061*/ meltfptr[1060]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1062*/ meltfptr[1061]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1061*/ meltfptr[1060]); melt_dbgtrace_written_object (/*_._VALDATA___V1061*/ meltfptr[1060], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_969__CLASS_SOURCE_CPPIF @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1063*/ meltfptr[1062])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_969__CLASS_SOURCE_CPPIF @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1063*/ meltfptr[1062])))); ((meltobject_ptr_t)(/*_._VALDATA___V1063*/ meltfptr[1062]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1064*/ meltfptr[1063]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1063*/ meltfptr[1062]); melt_dbgtrace_written_object (/*_._VALDATA___V1063*/ meltfptr[1062], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1054:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_971__CLASS_SOURCE_CPPIF @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1065*/ meltfptr[1064])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_971__CLASS_SOURCE_CPPIF @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1065*/ meltfptr[1064])))); ((meltobject_ptr_t)(/*_._VALDATA___V1065*/ meltfptr[1064]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1066*/ meltfptr[1065]); MELT_LOCATION("warmelt-macro.melt:1054:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_971__CLASS_SOURCE_CPPIF @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1065*/ meltfptr[1064])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_971__CLASS_SOURCE_CPPIF @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1065*/ meltfptr[1064])))); ((meltobject_ptr_t)(/*_._VALDATA___V1065*/ meltfptr[1064]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#621*/ melt_assertmsg("putupl #621 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1067*/ meltfptr[1066]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #621 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1067*/ meltfptr[1066])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1067*/ meltfptr[1066]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#622*/ melt_assertmsg("putupl #622 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1067*/ meltfptr[1066]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #622 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1067*/ meltfptr[1066])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1067*/ meltfptr[1066]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#623*/ melt_assertmsg("putupl #623 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1067*/ meltfptr[1066]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #623 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1067*/ meltfptr[1066])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1067*/ meltfptr[1066]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#624*/ melt_assertmsg("putupl #624 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1067*/ meltfptr[1066]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #624 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1067*/ meltfptr[1066])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1067*/ meltfptr[1066]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1067*/ meltfptr[1066]); MELT_LOCATION("warmelt-macro.melt:1054:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_971__CLASS_SOURCE_CPPIF @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1065*/ meltfptr[1064])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_971__CLASS_SOURCE_CPPIF @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1065*/ meltfptr[1064])))); ((meltobject_ptr_t)(/*_._VALDATA___V1065*/ meltfptr[1064]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V1067*/ meltfptr[1066]); MELT_LOCATION("warmelt-macro.melt:1054:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_977__SIFP_COND @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1068*/ meltfptr[1067])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_977__SIFP_COND @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1068*/ meltfptr[1067])))); ((meltobject_ptr_t)(/*_._VALDATA___V1068*/ meltfptr[1067]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1069*/ meltfptr[1068]); MELT_LOCATION("warmelt-macro.melt:1054:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_977__SIFP_COND @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1068*/ meltfptr[1067])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_977__SIFP_COND @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1068*/ meltfptr[1067])))); ((meltobject_ptr_t)(/*_._VALDATA___V1068*/ meltfptr[1067]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V1065*/ meltfptr[1064]); MELT_LOCATION("warmelt-macro.melt:1054:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1068*/ meltfptr[1067]); MELT_LOCATION("warmelt-macro.melt:1054:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1068*/ meltfptr[1067], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1054:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_981__SIFP_THEN @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1070*/ meltfptr[1069])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_981__SIFP_THEN @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1070*/ meltfptr[1069])))); ((meltobject_ptr_t)(/*_._VALDATA___V1070*/ meltfptr[1069]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1071*/ meltfptr[1070]); MELT_LOCATION("warmelt-macro.melt:1054:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_981__SIFP_THEN @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1070*/ meltfptr[1069])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_981__SIFP_THEN @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1070*/ meltfptr[1069])))); ((meltobject_ptr_t)(/*_._VALDATA___V1070*/ meltfptr[1069]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V1065*/ meltfptr[1064]); MELT_LOCATION("warmelt-macro.melt:1054:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1070*/ meltfptr[1069]); MELT_LOCATION("warmelt-macro.melt:1054:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1070*/ meltfptr[1069], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1054:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_985__SIFP_ELSE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1072*/ meltfptr[1071])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_985__SIFP_ELSE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1072*/ meltfptr[1071])))); ((meltobject_ptr_t)(/*_._VALDATA___V1072*/ meltfptr[1071]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1073*/ meltfptr[1072]); MELT_LOCATION("warmelt-macro.melt:1054:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_985__SIFP_ELSE @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1072*/ meltfptr[1071])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_985__SIFP_ELSE @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1072*/ meltfptr[1071])))); ((meltobject_ptr_t)(/*_._VALDATA___V1072*/ meltfptr[1071]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V1065*/ meltfptr[1064]); MELT_LOCATION("warmelt-macro.melt:1054:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1072*/ meltfptr[1071]); MELT_LOCATION("warmelt-macro.melt:1054:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1072*/ meltfptr[1071], "new static instance"); /*putupl#625*/ melt_assertmsg("putupl #625 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1074*/ meltfptr[1073]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #625 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1074*/ meltfptr[1073])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1074*/ meltfptr[1073]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#626*/ melt_assertmsg("putupl #626 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1074*/ meltfptr[1073]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #626 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1074*/ meltfptr[1073])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1074*/ meltfptr[1073]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#627*/ melt_assertmsg("putupl #627 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1074*/ meltfptr[1073]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #627 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1074*/ meltfptr[1073])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1074*/ meltfptr[1073]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V1068*/ meltfptr[1067]); /*putupl#628*/ melt_assertmsg("putupl #628 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1074*/ meltfptr[1073]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #628 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1074*/ meltfptr[1073])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1074*/ meltfptr[1073]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V1070*/ meltfptr[1069]); /*putupl#629*/ melt_assertmsg("putupl #629 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1074*/ meltfptr[1073]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #629 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1074*/ meltfptr[1073])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1074*/ meltfptr[1073]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V1072*/ meltfptr[1071]); #undef meltfram__ } /*end of meltmod__WARMELTmiMACRO__initialmeltchunk_19*/ void meltmod__WARMELTmiMACRO__initialmeltchunk_20 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1074*/ meltfptr[1073]); MELT_LOCATION("warmelt-macro.melt:1054:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_971__CLASS_SOURCE_CPPIF @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1065*/ meltfptr[1064])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_971__CLASS_SOURCE_CPPIF @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1065*/ meltfptr[1064])))); ((meltobject_ptr_t)(/*_._VALDATA___V1065*/ meltfptr[1064]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V1074*/ meltfptr[1073]); MELT_LOCATION("warmelt-macro.melt:1054:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1065*/ meltfptr[1064]); MELT_LOCATION("warmelt-macro.melt:1054:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1065*/ meltfptr[1064], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_975__SIFP_COND @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1075*/ meltfptr[1074])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_975__SIFP_COND @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1075*/ meltfptr[1074])))); ((meltobject_ptr_t)(/*_._VALDATA___V1075*/ meltfptr[1074]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1076*/ meltfptr[1075]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1075*/ meltfptr[1074]); melt_dbgtrace_written_object (/*_._VALDATA___V1075*/ meltfptr[1074], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_979__SIFP_THEN @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1077*/ meltfptr[1076])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_979__SIFP_THEN @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1077*/ meltfptr[1076])))); ((meltobject_ptr_t)(/*_._VALDATA___V1077*/ meltfptr[1076]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1078*/ meltfptr[1077]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1077*/ meltfptr[1076]); melt_dbgtrace_written_object (/*_._VALDATA___V1077*/ meltfptr[1076], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_983__SIFP_ELSE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1079*/ meltfptr[1078])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_983__SIFP_ELSE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1079*/ meltfptr[1078])))); ((meltobject_ptr_t)(/*_._VALDATA___V1079*/ meltfptr[1078]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1080*/ meltfptr[1079]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1079*/ meltfptr[1078]); melt_dbgtrace_written_object (/*_._VALDATA___V1079*/ meltfptr[1078], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_987__CLASS_SOURCE_MATCH @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1081*/ meltfptr[1080])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_987__CLASS_SOURCE_MATCH @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1081*/ meltfptr[1080])))); ((meltobject_ptr_t)(/*_._VALDATA___V1081*/ meltfptr[1080]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1082*/ meltfptr[1081]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1081*/ meltfptr[1080]); melt_dbgtrace_written_object (/*_._VALDATA___V1081*/ meltfptr[1080], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1065:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_989__CLASS_SOURCE_MATCH @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1083*/ meltfptr[1082])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_989__CLASS_SOURCE_MATCH @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1083*/ meltfptr[1082])))); ((meltobject_ptr_t)(/*_._VALDATA___V1083*/ meltfptr[1082]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1084*/ meltfptr[1083]); MELT_LOCATION("warmelt-macro.melt:1065:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_989__CLASS_SOURCE_MATCH @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1083*/ meltfptr[1082])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_989__CLASS_SOURCE_MATCH @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1083*/ meltfptr[1082])))); ((meltobject_ptr_t)(/*_._VALDATA___V1083*/ meltfptr[1082]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#630*/ melt_assertmsg("putupl #630 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1085*/ meltfptr[1084]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #630 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1085*/ meltfptr[1084])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1085*/ meltfptr[1084]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#631*/ melt_assertmsg("putupl #631 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1085*/ meltfptr[1084]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #631 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1085*/ meltfptr[1084])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1085*/ meltfptr[1084]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#632*/ melt_assertmsg("putupl #632 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1085*/ meltfptr[1084]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #632 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1085*/ meltfptr[1084])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1085*/ meltfptr[1084]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#633*/ melt_assertmsg("putupl #633 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1085*/ meltfptr[1084]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #633 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1085*/ meltfptr[1084])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1085*/ meltfptr[1084]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1085*/ meltfptr[1084]); MELT_LOCATION("warmelt-macro.melt:1065:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_989__CLASS_SOURCE_MATCH @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1083*/ meltfptr[1082])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_989__CLASS_SOURCE_MATCH @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1083*/ meltfptr[1082])))); ((meltobject_ptr_t)(/*_._VALDATA___V1083*/ meltfptr[1082]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V1085*/ meltfptr[1084]); MELT_LOCATION("warmelt-macro.melt:1065:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_995__SMAT_MATCHEDX @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1086*/ meltfptr[1085])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_995__SMAT_MATCHEDX @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1086*/ meltfptr[1085])))); ((meltobject_ptr_t)(/*_._VALDATA___V1086*/ meltfptr[1085]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1087*/ meltfptr[1086]); MELT_LOCATION("warmelt-macro.melt:1065:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_995__SMAT_MATCHEDX @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1086*/ meltfptr[1085])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_995__SMAT_MATCHEDX @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1086*/ meltfptr[1085])))); ((meltobject_ptr_t)(/*_._VALDATA___V1086*/ meltfptr[1085]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V1083*/ meltfptr[1082]); MELT_LOCATION("warmelt-macro.melt:1065:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1086*/ meltfptr[1085]); MELT_LOCATION("warmelt-macro.melt:1065:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1086*/ meltfptr[1085], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1065:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_999__SMAT_CASES @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1088*/ meltfptr[1087])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_999__SMAT_CASES @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1088*/ meltfptr[1087])))); ((meltobject_ptr_t)(/*_._VALDATA___V1088*/ meltfptr[1087]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1089*/ meltfptr[1088]); MELT_LOCATION("warmelt-macro.melt:1065:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_999__SMAT_CASES @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1088*/ meltfptr[1087])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_999__SMAT_CASES @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1088*/ meltfptr[1087])))); ((meltobject_ptr_t)(/*_._VALDATA___V1088*/ meltfptr[1087]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V1083*/ meltfptr[1082]); MELT_LOCATION("warmelt-macro.melt:1065:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1088*/ meltfptr[1087]); MELT_LOCATION("warmelt-macro.melt:1065:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1088*/ meltfptr[1087], "new static instance"); /*putupl#634*/ melt_assertmsg("putupl #634 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1090*/ meltfptr[1089]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #634 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1090*/ meltfptr[1089])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1090*/ meltfptr[1089]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#635*/ melt_assertmsg("putupl #635 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1090*/ meltfptr[1089]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #635 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1090*/ meltfptr[1089])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1090*/ meltfptr[1089]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#636*/ melt_assertmsg("putupl #636 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1090*/ meltfptr[1089]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #636 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1090*/ meltfptr[1089])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1090*/ meltfptr[1089]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V1086*/ meltfptr[1085]); /*putupl#637*/ melt_assertmsg("putupl #637 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1090*/ meltfptr[1089]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #637 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1090*/ meltfptr[1089])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1090*/ meltfptr[1089]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V1088*/ meltfptr[1087]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1090*/ meltfptr[1089]); MELT_LOCATION("warmelt-macro.melt:1065:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_989__CLASS_SOURCE_MATCH @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1083*/ meltfptr[1082])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_989__CLASS_SOURCE_MATCH @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1083*/ meltfptr[1082])))); ((meltobject_ptr_t)(/*_._VALDATA___V1083*/ meltfptr[1082]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V1090*/ meltfptr[1089]); MELT_LOCATION("warmelt-macro.melt:1065:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1083*/ meltfptr[1082]); MELT_LOCATION("warmelt-macro.melt:1065:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1083*/ meltfptr[1082], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_993__SMAT_MATCHEDX @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1091*/ meltfptr[1090])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_993__SMAT_MATCHEDX @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1091*/ meltfptr[1090])))); ((meltobject_ptr_t)(/*_._VALDATA___V1091*/ meltfptr[1090]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1092*/ meltfptr[1091]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1091*/ meltfptr[1090]); melt_dbgtrace_written_object (/*_._VALDATA___V1091*/ meltfptr[1090], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_997__SMAT_CASES @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1093*/ meltfptr[1092])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_997__SMAT_CASES @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1093*/ meltfptr[1092])))); ((meltobject_ptr_t)(/*_._VALDATA___V1093*/ meltfptr[1092]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1094*/ meltfptr[1093]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1093*/ meltfptr[1092]); melt_dbgtrace_written_object (/*_._VALDATA___V1093*/ meltfptr[1092], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1001__CLASS_SOURCE_MATCHALT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1095*/ meltfptr[1094])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1001__CLASS_SOURCE_MATCHALT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1095*/ meltfptr[1094])))); ((meltobject_ptr_t)(/*_._VALDATA___V1095*/ meltfptr[1094]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1096*/ meltfptr[1095]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1095*/ meltfptr[1094]); melt_dbgtrace_written_object (/*_._VALDATA___V1095*/ meltfptr[1094], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1081:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1003__CLASS_SOURCE_MATCHALT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1097*/ meltfptr[1096])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1003__CLASS_SOURCE_MATCHALT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1097*/ meltfptr[1096])))); ((meltobject_ptr_t)(/*_._VALDATA___V1097*/ meltfptr[1096]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1098*/ meltfptr[1097]); MELT_LOCATION("warmelt-macro.melt:1081:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1003__CLASS_SOURCE_MATCHALT @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1097*/ meltfptr[1096])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1003__CLASS_SOURCE_MATCHALT @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1097*/ meltfptr[1096])))); ((meltobject_ptr_t)(/*_._VALDATA___V1097*/ meltfptr[1096]))->obj_vartab[4] = (melt_ptr_t)( /*_._VALDATA___V1083*/ meltfptr[1082]); /*putupl#638*/ melt_assertmsg("putupl #638 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1099*/ meltfptr[1098]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #638 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1099*/ meltfptr[1098])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1099*/ meltfptr[1098]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#639*/ melt_assertmsg("putupl #639 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1099*/ meltfptr[1098]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #639 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1099*/ meltfptr[1098])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1099*/ meltfptr[1098]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#640*/ melt_assertmsg("putupl #640 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1099*/ meltfptr[1098]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #640 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1099*/ meltfptr[1098])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1099*/ meltfptr[1098]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#641*/ melt_assertmsg("putupl #641 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1099*/ meltfptr[1098]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #641 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1099*/ meltfptr[1098])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1099*/ meltfptr[1098]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#642*/ melt_assertmsg("putupl #642 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1099*/ meltfptr[1098]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #642 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1099*/ meltfptr[1098])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1099*/ meltfptr[1098]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V1083*/ meltfptr[1082]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1099*/ meltfptr[1098]); MELT_LOCATION("warmelt-macro.melt:1081:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1003__CLASS_SOURCE_MATCHALT @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1097*/ meltfptr[1096])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1003__CLASS_SOURCE_MATCHALT @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1097*/ meltfptr[1096])))); ((meltobject_ptr_t)(/*_._VALDATA___V1097*/ meltfptr[1096]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V1099*/ meltfptr[1098]); /*putupl#643*/ melt_assertmsg("putupl #643 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1100*/ meltfptr[1099]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #643 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1100*/ meltfptr[1099])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1100*/ meltfptr[1099]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#644*/ melt_assertmsg("putupl #644 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1100*/ meltfptr[1099]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #644 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1100*/ meltfptr[1099])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1100*/ meltfptr[1099]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#645*/ melt_assertmsg("putupl #645 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1100*/ meltfptr[1099]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #645 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1100*/ meltfptr[1099])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1100*/ meltfptr[1099]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V1086*/ meltfptr[1085]); /*putupl#646*/ melt_assertmsg("putupl #646 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1100*/ meltfptr[1099]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #646 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1100*/ meltfptr[1099])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1100*/ meltfptr[1099]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V1088*/ meltfptr[1087]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1100*/ meltfptr[1099]); MELT_LOCATION("warmelt-macro.melt:1081:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1003__CLASS_SOURCE_MATCHALT @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1097*/ meltfptr[1096])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1003__CLASS_SOURCE_MATCHALT @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1097*/ meltfptr[1096])))); ((meltobject_ptr_t)(/*_._VALDATA___V1097*/ meltfptr[1096]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V1100*/ meltfptr[1099]); MELT_LOCATION("warmelt-macro.melt:1081:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1097*/ meltfptr[1096]); MELT_LOCATION("warmelt-macro.melt:1081:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1097*/ meltfptr[1096], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1007__CLASS_SOURCE_MATCH_CASE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1101*/ meltfptr[1100])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1007__CLASS_SOURCE_MATCH_CASE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1101*/ meltfptr[1100])))); ((meltobject_ptr_t)(/*_._VALDATA___V1101*/ meltfptr[1100]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1102*/ meltfptr[1101]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1101*/ meltfptr[1100]); melt_dbgtrace_written_object (/*_._VALDATA___V1101*/ meltfptr[1100], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1091:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1009__CLASS_SOURCE_MATCH_CASE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1103*/ meltfptr[1102])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1009__CLASS_SOURCE_MATCH_CASE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1103*/ meltfptr[1102])))); ((meltobject_ptr_t)(/*_._VALDATA___V1103*/ meltfptr[1102]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1104*/ meltfptr[1103]); MELT_LOCATION("warmelt-macro.melt:1091:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1009__CLASS_SOURCE_MATCH_CASE @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1103*/ meltfptr[1102])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1009__CLASS_SOURCE_MATCH_CASE @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1103*/ meltfptr[1102])))); ((meltobject_ptr_t)(/*_._VALDATA___V1103*/ meltfptr[1102]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#647*/ melt_assertmsg("putupl #647 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1105*/ meltfptr[1104]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #647 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1105*/ meltfptr[1104])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1105*/ meltfptr[1104]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#648*/ melt_assertmsg("putupl #648 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1105*/ meltfptr[1104]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #648 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1105*/ meltfptr[1104])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1105*/ meltfptr[1104]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#649*/ melt_assertmsg("putupl #649 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1105*/ meltfptr[1104]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #649 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1105*/ meltfptr[1104])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1105*/ meltfptr[1104]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#650*/ melt_assertmsg("putupl #650 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1105*/ meltfptr[1104]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #650 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1105*/ meltfptr[1104])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1105*/ meltfptr[1104]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1105*/ meltfptr[1104]); MELT_LOCATION("warmelt-macro.melt:1091:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1009__CLASS_SOURCE_MATCH_CASE @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1103*/ meltfptr[1102])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1009__CLASS_SOURCE_MATCH_CASE @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1103*/ meltfptr[1102])))); ((meltobject_ptr_t)(/*_._VALDATA___V1103*/ meltfptr[1102]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V1105*/ meltfptr[1104]); MELT_LOCATION("warmelt-macro.melt:1091:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1015__SCAM_PATT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1106*/ meltfptr[1105])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1015__SCAM_PATT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1106*/ meltfptr[1105])))); ((meltobject_ptr_t)(/*_._VALDATA___V1106*/ meltfptr[1105]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1107*/ meltfptr[1106]); MELT_LOCATION("warmelt-macro.melt:1091:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1015__SCAM_PATT @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1106*/ meltfptr[1105])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1015__SCAM_PATT @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1106*/ meltfptr[1105])))); ((meltobject_ptr_t)(/*_._VALDATA___V1106*/ meltfptr[1105]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V1103*/ meltfptr[1102]); MELT_LOCATION("warmelt-macro.melt:1091:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1106*/ meltfptr[1105]); MELT_LOCATION("warmelt-macro.melt:1091:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1106*/ meltfptr[1105], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1091:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1019__SCAM_BODY @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1108*/ meltfptr[1107])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1019__SCAM_BODY @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1108*/ meltfptr[1107])))); ((meltobject_ptr_t)(/*_._VALDATA___V1108*/ meltfptr[1107]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1109*/ meltfptr[1108]); MELT_LOCATION("warmelt-macro.melt:1091:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1019__SCAM_BODY @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1108*/ meltfptr[1107])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1019__SCAM_BODY @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1108*/ meltfptr[1107])))); ((meltobject_ptr_t)(/*_._VALDATA___V1108*/ meltfptr[1107]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V1103*/ meltfptr[1102]); MELT_LOCATION("warmelt-macro.melt:1091:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1108*/ meltfptr[1107]); MELT_LOCATION("warmelt-macro.melt:1091:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1108*/ meltfptr[1107], "new static instance"); /*putupl#651*/ melt_assertmsg("putupl #651 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1110*/ meltfptr[1109]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #651 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1110*/ meltfptr[1109])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1110*/ meltfptr[1109]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#652*/ melt_assertmsg("putupl #652 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1110*/ meltfptr[1109]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #652 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1110*/ meltfptr[1109])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1110*/ meltfptr[1109]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#653*/ melt_assertmsg("putupl #653 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1110*/ meltfptr[1109]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #653 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1110*/ meltfptr[1109])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1110*/ meltfptr[1109]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V1106*/ meltfptr[1105]); /*putupl#654*/ melt_assertmsg("putupl #654 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1110*/ meltfptr[1109]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #654 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1110*/ meltfptr[1109])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1110*/ meltfptr[1109]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V1108*/ meltfptr[1107]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1110*/ meltfptr[1109]); MELT_LOCATION("warmelt-macro.melt:1091:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1009__CLASS_SOURCE_MATCH_CASE @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1103*/ meltfptr[1102])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1009__CLASS_SOURCE_MATCH_CASE @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1103*/ meltfptr[1102])))); ((meltobject_ptr_t)(/*_._VALDATA___V1103*/ meltfptr[1102]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V1110*/ meltfptr[1109]); MELT_LOCATION("warmelt-macro.melt:1091:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1103*/ meltfptr[1102]); MELT_LOCATION("warmelt-macro.melt:1091:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1103*/ meltfptr[1102], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1013__SCAM_PATT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1111*/ meltfptr[1110])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1013__SCAM_PATT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1111*/ meltfptr[1110])))); ((meltobject_ptr_t)(/*_._VALDATA___V1111*/ meltfptr[1110]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1112*/ meltfptr[1111]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1111*/ meltfptr[1110]); melt_dbgtrace_written_object (/*_._VALDATA___V1111*/ meltfptr[1110], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1017__SCAM_BODY @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1113*/ meltfptr[1112])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1017__SCAM_BODY @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1113*/ meltfptr[1112])))); ((meltobject_ptr_t)(/*_._VALDATA___V1113*/ meltfptr[1112]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1114*/ meltfptr[1113]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1113*/ meltfptr[1112]); melt_dbgtrace_written_object (/*_._VALDATA___V1113*/ meltfptr[1112], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1021__CLASS_SOURCE_ANY_LET_BINDING @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1115*/ meltfptr[1114])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1021__CLASS_SOURCE_ANY_LET_BINDING @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1115*/ meltfptr[1114])))); ((meltobject_ptr_t)(/*_._VALDATA___V1115*/ meltfptr[1114]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1116*/ meltfptr[1115]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1115*/ meltfptr[1114]); melt_dbgtrace_written_object (/*_._VALDATA___V1115*/ meltfptr[1114], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1101:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1023__CLASS_SOURCE_ANY_LET_BINDING @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1117*/ meltfptr[1116])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1023__CLASS_SOURCE_ANY_LET_BINDING @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1117*/ meltfptr[1116])))); ((meltobject_ptr_t)(/*_._VALDATA___V1117*/ meltfptr[1116]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1118*/ meltfptr[1117]); MELT_LOCATION("warmelt-macro.melt:1101:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1023__CLASS_SOURCE_ANY_LET_BINDING @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1117*/ meltfptr[1116])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1023__CLASS_SOURCE_ANY_LET_BINDING @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1117*/ meltfptr[1116])))); ((meltobject_ptr_t)(/*_._VALDATA___V1117*/ meltfptr[1116]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#655*/ melt_assertmsg("putupl #655 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1119*/ meltfptr[1118]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #655 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1119*/ meltfptr[1118])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1119*/ meltfptr[1118]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#656*/ melt_assertmsg("putupl #656 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1119*/ meltfptr[1118]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #656 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1119*/ meltfptr[1118])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1119*/ meltfptr[1118]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#657*/ melt_assertmsg("putupl #657 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1119*/ meltfptr[1118]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #657 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1119*/ meltfptr[1118])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1119*/ meltfptr[1118]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#658*/ melt_assertmsg("putupl #658 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1119*/ meltfptr[1118]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #658 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1119*/ meltfptr[1118])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1119*/ meltfptr[1118]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1119*/ meltfptr[1118]); MELT_LOCATION("warmelt-macro.melt:1101:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1023__CLASS_SOURCE_ANY_LET_BINDING @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1117*/ meltfptr[1116])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1023__CLASS_SOURCE_ANY_LET_BINDING @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1117*/ meltfptr[1116])))); ((meltobject_ptr_t)(/*_._VALDATA___V1117*/ meltfptr[1116]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V1119*/ meltfptr[1118]); MELT_LOCATION("warmelt-macro.melt:1101:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1029__SLETB_BINDER @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1120*/ meltfptr[1119])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1029__SLETB_BINDER @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1120*/ meltfptr[1119])))); ((meltobject_ptr_t)(/*_._VALDATA___V1120*/ meltfptr[1119]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1121*/ meltfptr[1120]); MELT_LOCATION("warmelt-macro.melt:1101:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1029__SLETB_BINDER @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1120*/ meltfptr[1119])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1029__SLETB_BINDER @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1120*/ meltfptr[1119])))); ((meltobject_ptr_t)(/*_._VALDATA___V1120*/ meltfptr[1119]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V1117*/ meltfptr[1116]); MELT_LOCATION("warmelt-macro.melt:1101:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1120*/ meltfptr[1119]); MELT_LOCATION("warmelt-macro.melt:1101:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1120*/ meltfptr[1119], "new static instance"); /*putupl#659*/ melt_assertmsg("putupl #659 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1122*/ meltfptr[1121]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #659 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1122*/ meltfptr[1121])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1122*/ meltfptr[1121]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#660*/ melt_assertmsg("putupl #660 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1122*/ meltfptr[1121]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #660 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1122*/ meltfptr[1121])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1122*/ meltfptr[1121]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#661*/ melt_assertmsg("putupl #661 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1122*/ meltfptr[1121]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #661 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1122*/ meltfptr[1121])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1122*/ meltfptr[1121]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V1120*/ meltfptr[1119]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1122*/ meltfptr[1121]); MELT_LOCATION("warmelt-macro.melt:1101:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1023__CLASS_SOURCE_ANY_LET_BINDING @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1117*/ meltfptr[1116])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1023__CLASS_SOURCE_ANY_LET_BINDING @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1117*/ meltfptr[1116])))); ((meltobject_ptr_t)(/*_._VALDATA___V1117*/ meltfptr[1116]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V1122*/ meltfptr[1121]); MELT_LOCATION("warmelt-macro.melt:1101:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1117*/ meltfptr[1116]); MELT_LOCATION("warmelt-macro.melt:1101:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1117*/ meltfptr[1116], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1027__SLETB_BINDER @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1123*/ meltfptr[1122])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1027__SLETB_BINDER @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1123*/ meltfptr[1122])))); ((meltobject_ptr_t)(/*_._VALDATA___V1123*/ meltfptr[1122]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1124*/ meltfptr[1123]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1123*/ meltfptr[1122]); melt_dbgtrace_written_object (/*_._VALDATA___V1123*/ meltfptr[1122], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1031__CLASS_SOURCE_MACRO_LET_BINDING @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1125*/ meltfptr[1124])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1031__CLASS_SOURCE_MACRO_LET_BINDING @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1125*/ meltfptr[1124])))); ((meltobject_ptr_t)(/*_._VALDATA___V1125*/ meltfptr[1124]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1126*/ meltfptr[1125]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1125*/ meltfptr[1124]); melt_dbgtrace_written_object (/*_._VALDATA___V1125*/ meltfptr[1124], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1108:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1033__CLASS_SOURCE_MACRO_LET_BINDING @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1127*/ meltfptr[1126])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1033__CLASS_SOURCE_MACRO_LET_BINDING @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1127*/ meltfptr[1126])))); ((meltobject_ptr_t)(/*_._VALDATA___V1127*/ meltfptr[1126]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1128*/ meltfptr[1127]); #undef meltfram__ } /*end of meltmod__WARMELTmiMACRO__initialmeltchunk_20*/ void meltmod__WARMELTmiMACRO__initialmeltchunk_21 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; MELT_LOCATION("warmelt-macro.melt:1108:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1033__CLASS_SOURCE_MACRO_LET_BINDING @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1127*/ meltfptr[1126])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1033__CLASS_SOURCE_MACRO_LET_BINDING @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1127*/ meltfptr[1126])))); ((meltobject_ptr_t)(/*_._VALDATA___V1127*/ meltfptr[1126]))->obj_vartab[4] = (melt_ptr_t)( /*_._VALDATA___V1117*/ meltfptr[1116]); /*putupl#662*/ melt_assertmsg("putupl #662 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1129*/ meltfptr[1128]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #662 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1129*/ meltfptr[1128])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1129*/ meltfptr[1128]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#663*/ melt_assertmsg("putupl #663 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1129*/ meltfptr[1128]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #663 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1129*/ meltfptr[1128])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1129*/ meltfptr[1128]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#664*/ melt_assertmsg("putupl #664 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1129*/ meltfptr[1128]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #664 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1129*/ meltfptr[1128])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1129*/ meltfptr[1128]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#665*/ melt_assertmsg("putupl #665 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1129*/ meltfptr[1128]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #665 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1129*/ meltfptr[1128])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1129*/ meltfptr[1128]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#666*/ melt_assertmsg("putupl #666 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1129*/ meltfptr[1128]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #666 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1129*/ meltfptr[1128])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1129*/ meltfptr[1128]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V1117*/ meltfptr[1116]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1129*/ meltfptr[1128]); MELT_LOCATION("warmelt-macro.melt:1108:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1033__CLASS_SOURCE_MACRO_LET_BINDING @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1127*/ meltfptr[1126])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1033__CLASS_SOURCE_MACRO_LET_BINDING @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1127*/ meltfptr[1126])))); ((meltobject_ptr_t)(/*_._VALDATA___V1127*/ meltfptr[1126]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V1129*/ meltfptr[1128]); MELT_LOCATION("warmelt-macro.melt:1108:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1039__SLETM_MACRO_FORMALS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1130*/ meltfptr[1129])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1039__SLETM_MACRO_FORMALS @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1130*/ meltfptr[1129])))); ((meltobject_ptr_t)(/*_._VALDATA___V1130*/ meltfptr[1129]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1131*/ meltfptr[1130]); MELT_LOCATION("warmelt-macro.melt:1108:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1039__SLETM_MACRO_FORMALS @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1130*/ meltfptr[1129])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1039__SLETM_MACRO_FORMALS @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1130*/ meltfptr[1129])))); ((meltobject_ptr_t)(/*_._VALDATA___V1130*/ meltfptr[1129]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V1127*/ meltfptr[1126]); MELT_LOCATION("warmelt-macro.melt:1108:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1130*/ meltfptr[1129]); MELT_LOCATION("warmelt-macro.melt:1108:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1130*/ meltfptr[1129], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1108:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1043__SLETM_MACRO_BODY @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1132*/ meltfptr[1131])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1043__SLETM_MACRO_BODY @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1132*/ meltfptr[1131])))); ((meltobject_ptr_t)(/*_._VALDATA___V1132*/ meltfptr[1131]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1133*/ meltfptr[1132]); MELT_LOCATION("warmelt-macro.melt:1108:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1043__SLETM_MACRO_BODY @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1132*/ meltfptr[1131])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1043__SLETM_MACRO_BODY @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1132*/ meltfptr[1131])))); ((meltobject_ptr_t)(/*_._VALDATA___V1132*/ meltfptr[1131]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V1127*/ meltfptr[1126]); MELT_LOCATION("warmelt-macro.melt:1108:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1132*/ meltfptr[1131]); MELT_LOCATION("warmelt-macro.melt:1108:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1132*/ meltfptr[1131], "new static instance"); /*putupl#667*/ melt_assertmsg("putupl #667 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1134*/ meltfptr[1133]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #667 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1134*/ meltfptr[1133])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1134*/ meltfptr[1133]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#668*/ melt_assertmsg("putupl #668 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1134*/ meltfptr[1133]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #668 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1134*/ meltfptr[1133])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1134*/ meltfptr[1133]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#669*/ melt_assertmsg("putupl #669 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1134*/ meltfptr[1133]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #669 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1134*/ meltfptr[1133])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1134*/ meltfptr[1133]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V1120*/ meltfptr[1119]); /*putupl#670*/ melt_assertmsg("putupl #670 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1134*/ meltfptr[1133]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #670 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1134*/ meltfptr[1133])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1134*/ meltfptr[1133]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V1130*/ meltfptr[1129]); /*putupl#671*/ melt_assertmsg("putupl #671 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1134*/ meltfptr[1133]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #671 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1134*/ meltfptr[1133])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1134*/ meltfptr[1133]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V1132*/ meltfptr[1131]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1134*/ meltfptr[1133]); MELT_LOCATION("warmelt-macro.melt:1108:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1033__CLASS_SOURCE_MACRO_LET_BINDING @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1127*/ meltfptr[1126])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1033__CLASS_SOURCE_MACRO_LET_BINDING @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1127*/ meltfptr[1126])))); ((meltobject_ptr_t)(/*_._VALDATA___V1127*/ meltfptr[1126]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V1134*/ meltfptr[1133]); MELT_LOCATION("warmelt-macro.melt:1108:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1127*/ meltfptr[1126]); MELT_LOCATION("warmelt-macro.melt:1108:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1127*/ meltfptr[1126], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1037__SLETM_MACRO_FORMALS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1135*/ meltfptr[1134])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1037__SLETM_MACRO_FORMALS @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1135*/ meltfptr[1134])))); ((meltobject_ptr_t)(/*_._VALDATA___V1135*/ meltfptr[1134]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1136*/ meltfptr[1135]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1135*/ meltfptr[1134]); melt_dbgtrace_written_object (/*_._VALDATA___V1135*/ meltfptr[1134], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1041__SLETM_MACRO_BODY @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1137*/ meltfptr[1136])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1041__SLETM_MACRO_BODY @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1137*/ meltfptr[1136])))); ((meltobject_ptr_t)(/*_._VALDATA___V1137*/ meltfptr[1136]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1138*/ meltfptr[1137]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1137*/ meltfptr[1136]); melt_dbgtrace_written_object (/*_._VALDATA___V1137*/ meltfptr[1136], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1045__CLASS_SOURCE_LET_BINDING @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1139*/ meltfptr[1138])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1045__CLASS_SOURCE_LET_BINDING @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1139*/ meltfptr[1138])))); ((meltobject_ptr_t)(/*_._VALDATA___V1139*/ meltfptr[1138]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1140*/ meltfptr[1139]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1139*/ meltfptr[1138]); melt_dbgtrace_written_object (/*_._VALDATA___V1139*/ meltfptr[1138], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1115:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1047__CLASS_SOURCE_LET_BINDING @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1141*/ meltfptr[1140])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1047__CLASS_SOURCE_LET_BINDING @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1141*/ meltfptr[1140])))); ((meltobject_ptr_t)(/*_._VALDATA___V1141*/ meltfptr[1140]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1142*/ meltfptr[1141]); MELT_LOCATION("warmelt-macro.melt:1115:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1047__CLASS_SOURCE_LET_BINDING @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1141*/ meltfptr[1140])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1047__CLASS_SOURCE_LET_BINDING @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1141*/ meltfptr[1140])))); ((meltobject_ptr_t)(/*_._VALDATA___V1141*/ meltfptr[1140]))->obj_vartab[4] = (melt_ptr_t)( /*_._VALDATA___V1117*/ meltfptr[1116]); /*putupl#672*/ melt_assertmsg("putupl #672 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1143*/ meltfptr[1142]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #672 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1143*/ meltfptr[1142])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1143*/ meltfptr[1142]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#673*/ melt_assertmsg("putupl #673 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1143*/ meltfptr[1142]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #673 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1143*/ meltfptr[1142])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1143*/ meltfptr[1142]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#674*/ melt_assertmsg("putupl #674 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1143*/ meltfptr[1142]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #674 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1143*/ meltfptr[1142])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1143*/ meltfptr[1142]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#675*/ melt_assertmsg("putupl #675 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1143*/ meltfptr[1142]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #675 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1143*/ meltfptr[1142])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1143*/ meltfptr[1142]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#676*/ melt_assertmsg("putupl #676 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1143*/ meltfptr[1142]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #676 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1143*/ meltfptr[1142])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1143*/ meltfptr[1142]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V1117*/ meltfptr[1116]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1143*/ meltfptr[1142]); MELT_LOCATION("warmelt-macro.melt:1115:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1047__CLASS_SOURCE_LET_BINDING @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1141*/ meltfptr[1140])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1047__CLASS_SOURCE_LET_BINDING @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1141*/ meltfptr[1140])))); ((meltobject_ptr_t)(/*_._VALDATA___V1141*/ meltfptr[1140]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V1143*/ meltfptr[1142]); MELT_LOCATION("warmelt-macro.melt:1115:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1053__SLETB_TYPE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1144*/ meltfptr[1143])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1053__SLETB_TYPE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1144*/ meltfptr[1143])))); ((meltobject_ptr_t)(/*_._VALDATA___V1144*/ meltfptr[1143]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1145*/ meltfptr[1144]); MELT_LOCATION("warmelt-macro.melt:1115:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1053__SLETB_TYPE @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1144*/ meltfptr[1143])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1053__SLETB_TYPE @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1144*/ meltfptr[1143])))); ((meltobject_ptr_t)(/*_._VALDATA___V1144*/ meltfptr[1143]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V1141*/ meltfptr[1140]); MELT_LOCATION("warmelt-macro.melt:1115:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1144*/ meltfptr[1143]); MELT_LOCATION("warmelt-macro.melt:1115:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1144*/ meltfptr[1143], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1115:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1057__SLETB_EXPR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1146*/ meltfptr[1145])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1057__SLETB_EXPR @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1146*/ meltfptr[1145])))); ((meltobject_ptr_t)(/*_._VALDATA___V1146*/ meltfptr[1145]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1147*/ meltfptr[1146]); MELT_LOCATION("warmelt-macro.melt:1115:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1057__SLETB_EXPR @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1146*/ meltfptr[1145])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1057__SLETB_EXPR @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1146*/ meltfptr[1145])))); ((meltobject_ptr_t)(/*_._VALDATA___V1146*/ meltfptr[1145]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V1141*/ meltfptr[1140]); MELT_LOCATION("warmelt-macro.melt:1115:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1146*/ meltfptr[1145]); MELT_LOCATION("warmelt-macro.melt:1115:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1146*/ meltfptr[1145], "new static instance"); /*putupl#677*/ melt_assertmsg("putupl #677 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1148*/ meltfptr[1147]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #677 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1148*/ meltfptr[1147])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1148*/ meltfptr[1147]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#678*/ melt_assertmsg("putupl #678 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1148*/ meltfptr[1147]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #678 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1148*/ meltfptr[1147])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1148*/ meltfptr[1147]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#679*/ melt_assertmsg("putupl #679 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1148*/ meltfptr[1147]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #679 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1148*/ meltfptr[1147])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1148*/ meltfptr[1147]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V1120*/ meltfptr[1119]); /*putupl#680*/ melt_assertmsg("putupl #680 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1148*/ meltfptr[1147]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #680 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1148*/ meltfptr[1147])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1148*/ meltfptr[1147]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V1144*/ meltfptr[1143]); /*putupl#681*/ melt_assertmsg("putupl #681 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1148*/ meltfptr[1147]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #681 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1148*/ meltfptr[1147])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1148*/ meltfptr[1147]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V1146*/ meltfptr[1145]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1148*/ meltfptr[1147]); MELT_LOCATION("warmelt-macro.melt:1115:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1047__CLASS_SOURCE_LET_BINDING @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1141*/ meltfptr[1140])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1047__CLASS_SOURCE_LET_BINDING @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1141*/ meltfptr[1140])))); ((meltobject_ptr_t)(/*_._VALDATA___V1141*/ meltfptr[1140]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V1148*/ meltfptr[1147]); MELT_LOCATION("warmelt-macro.melt:1115:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1141*/ meltfptr[1140]); MELT_LOCATION("warmelt-macro.melt:1115:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1141*/ meltfptr[1140], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1051__SLETB_TYPE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1149*/ meltfptr[1148])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1051__SLETB_TYPE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1149*/ meltfptr[1148])))); ((meltobject_ptr_t)(/*_._VALDATA___V1149*/ meltfptr[1148]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1150*/ meltfptr[1149]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1149*/ meltfptr[1148]); melt_dbgtrace_written_object (/*_._VALDATA___V1149*/ meltfptr[1148], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1055__SLETB_EXPR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1151*/ meltfptr[1150])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1055__SLETB_EXPR @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1151*/ meltfptr[1150])))); ((meltobject_ptr_t)(/*_._VALDATA___V1151*/ meltfptr[1150]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1152*/ meltfptr[1151]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1151*/ meltfptr[1150]); melt_dbgtrace_written_object (/*_._VALDATA___V1151*/ meltfptr[1150], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1059__CLASS_SOURCE_LET_BINDING_FOR_MACRO @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1153*/ meltfptr[1152])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1059__CLASS_SOURCE_LET_BINDING_FOR_MACRO @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1153*/ meltfptr[1152])))); ((meltobject_ptr_t)(/*_._VALDATA___V1153*/ meltfptr[1152]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1154*/ meltfptr[1153]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1153*/ meltfptr[1152]); melt_dbgtrace_written_object (/*_._VALDATA___V1153*/ meltfptr[1152], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1126:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1061__CLASS_SOURCE_LET_BINDING_FOR_MACRO @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1155*/ meltfptr[1154])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1061__CLASS_SOURCE_LET_BINDING_FOR_MACRO @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1155*/ meltfptr[1154])))); ((meltobject_ptr_t)(/*_._VALDATA___V1155*/ meltfptr[1154]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1156*/ meltfptr[1155]); MELT_LOCATION("warmelt-macro.melt:1126:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1061__CLASS_SOURCE_LET_BINDING_FOR_MACRO @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1155*/ meltfptr[1154])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1061__CLASS_SOURCE_LET_BINDING_FOR_MACRO @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1155*/ meltfptr[1154])))); ((meltobject_ptr_t)(/*_._VALDATA___V1155*/ meltfptr[1154]))->obj_vartab[4] = (melt_ptr_t)( /*_._VALDATA___V1141*/ meltfptr[1140]); /*putupl#682*/ melt_assertmsg("putupl #682 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1157*/ meltfptr[1156]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #682 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1157*/ meltfptr[1156])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1157*/ meltfptr[1156]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#683*/ melt_assertmsg("putupl #683 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1157*/ meltfptr[1156]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #683 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1157*/ meltfptr[1156])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1157*/ meltfptr[1156]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#684*/ melt_assertmsg("putupl #684 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1157*/ meltfptr[1156]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #684 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1157*/ meltfptr[1156])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1157*/ meltfptr[1156]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#685*/ melt_assertmsg("putupl #685 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1157*/ meltfptr[1156]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #685 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1157*/ meltfptr[1156])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1157*/ meltfptr[1156]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#686*/ melt_assertmsg("putupl #686 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1157*/ meltfptr[1156]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #686 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1157*/ meltfptr[1156])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1157*/ meltfptr[1156]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V1117*/ meltfptr[1116]); /*putupl#687*/ melt_assertmsg("putupl #687 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1157*/ meltfptr[1156]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #687 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1157*/ meltfptr[1156])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1157*/ meltfptr[1156]))->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V1141*/ meltfptr[1140]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1157*/ meltfptr[1156]); MELT_LOCATION("warmelt-macro.melt:1126:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1061__CLASS_SOURCE_LET_BINDING_FOR_MACRO @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1155*/ meltfptr[1154])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1061__CLASS_SOURCE_LET_BINDING_FOR_MACRO @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1155*/ meltfptr[1154])))); ((meltobject_ptr_t)(/*_._VALDATA___V1155*/ meltfptr[1154]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V1157*/ meltfptr[1156]); MELT_LOCATION("warmelt-macro.melt:1126:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1067__SLETFM_MACROLETBIND @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1158*/ meltfptr[1157])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1067__SLETFM_MACROLETBIND @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1158*/ meltfptr[1157])))); ((meltobject_ptr_t)(/*_._VALDATA___V1158*/ meltfptr[1157]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1159*/ meltfptr[1158]); MELT_LOCATION("warmelt-macro.melt:1126:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1067__SLETFM_MACROLETBIND @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1158*/ meltfptr[1157])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1067__SLETFM_MACROLETBIND @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1158*/ meltfptr[1157])))); ((meltobject_ptr_t)(/*_._VALDATA___V1158*/ meltfptr[1157]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V1155*/ meltfptr[1154]); MELT_LOCATION("warmelt-macro.melt:1126:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1158*/ meltfptr[1157]); MELT_LOCATION("warmelt-macro.melt:1126:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1158*/ meltfptr[1157], "new static instance"); /*putupl#688*/ melt_assertmsg("putupl #688 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1160*/ meltfptr[1159]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #688 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1160*/ meltfptr[1159])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1160*/ meltfptr[1159]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#689*/ melt_assertmsg("putupl #689 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1160*/ meltfptr[1159]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #689 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1160*/ meltfptr[1159])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1160*/ meltfptr[1159]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#690*/ melt_assertmsg("putupl #690 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1160*/ meltfptr[1159]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #690 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1160*/ meltfptr[1159])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1160*/ meltfptr[1159]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V1120*/ meltfptr[1119]); /*putupl#691*/ melt_assertmsg("putupl #691 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1160*/ meltfptr[1159]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #691 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1160*/ meltfptr[1159])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1160*/ meltfptr[1159]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V1144*/ meltfptr[1143]); /*putupl#692*/ melt_assertmsg("putupl #692 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1160*/ meltfptr[1159]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #692 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1160*/ meltfptr[1159])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1160*/ meltfptr[1159]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V1146*/ meltfptr[1145]); /*putupl#693*/ melt_assertmsg("putupl #693 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1160*/ meltfptr[1159]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #693 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1160*/ meltfptr[1159])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1160*/ meltfptr[1159]))->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V1158*/ meltfptr[1157]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1160*/ meltfptr[1159]); MELT_LOCATION("warmelt-macro.melt:1126:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1061__CLASS_SOURCE_LET_BINDING_FOR_MACRO @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1155*/ meltfptr[1154])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1061__CLASS_SOURCE_LET_BINDING_FOR_MACRO @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1155*/ meltfptr[1154])))); ((meltobject_ptr_t)(/*_._VALDATA___V1155*/ meltfptr[1154]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V1160*/ meltfptr[1159]); MELT_LOCATION("warmelt-macro.melt:1126:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1155*/ meltfptr[1154]); MELT_LOCATION("warmelt-macro.melt:1126:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1155*/ meltfptr[1154], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1065__SLETFM_MACROLETBIND @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1161*/ meltfptr[1160])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1065__SLETFM_MACROLETBIND @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1161*/ meltfptr[1160])))); ((meltobject_ptr_t)(/*_._VALDATA___V1161*/ meltfptr[1160]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1162*/ meltfptr[1161]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1161*/ meltfptr[1160]); melt_dbgtrace_written_object (/*_._VALDATA___V1161*/ meltfptr[1160], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1069__CLASS_SOURCE_LETREC_BINDING @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1163*/ meltfptr[1162])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1069__CLASS_SOURCE_LETREC_BINDING @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1163*/ meltfptr[1162])))); ((meltobject_ptr_t)(/*_._VALDATA___V1163*/ meltfptr[1162]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1164*/ meltfptr[1163]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1163*/ meltfptr[1162]); melt_dbgtrace_written_object (/*_._VALDATA___V1163*/ meltfptr[1162], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1137:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1071__CLASS_SOURCE_LETREC_BINDING @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1165*/ meltfptr[1164])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1071__CLASS_SOURCE_LETREC_BINDING @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1165*/ meltfptr[1164])))); ((meltobject_ptr_t)(/*_._VALDATA___V1165*/ meltfptr[1164]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1166*/ meltfptr[1165]); MELT_LOCATION("warmelt-macro.melt:1137:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1071__CLASS_SOURCE_LETREC_BINDING @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1165*/ meltfptr[1164])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1071__CLASS_SOURCE_LETREC_BINDING @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1165*/ meltfptr[1164])))); ((meltobject_ptr_t)(/*_._VALDATA___V1165*/ meltfptr[1164]))->obj_vartab[4] = (melt_ptr_t)( /*_._VALDATA___V1141*/ meltfptr[1140]); /*putupl#694*/ melt_assertmsg("putupl #694 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1167*/ meltfptr[1166]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #694 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1167*/ meltfptr[1166])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1167*/ meltfptr[1166]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#695*/ melt_assertmsg("putupl #695 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1167*/ meltfptr[1166]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #695 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1167*/ meltfptr[1166])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1167*/ meltfptr[1166]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#696*/ melt_assertmsg("putupl #696 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1167*/ meltfptr[1166]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #696 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1167*/ meltfptr[1166])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1167*/ meltfptr[1166]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#697*/ melt_assertmsg("putupl #697 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1167*/ meltfptr[1166]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #697 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1167*/ meltfptr[1166])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1167*/ meltfptr[1166]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#698*/ melt_assertmsg("putupl #698 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1167*/ meltfptr[1166]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #698 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1167*/ meltfptr[1166])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1167*/ meltfptr[1166]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V1117*/ meltfptr[1116]); /*putupl#699*/ melt_assertmsg("putupl #699 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1167*/ meltfptr[1166]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #699 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1167*/ meltfptr[1166])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1167*/ meltfptr[1166]))->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V1141*/ meltfptr[1140]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1167*/ meltfptr[1166]); MELT_LOCATION("warmelt-macro.melt:1137:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1071__CLASS_SOURCE_LETREC_BINDING @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1165*/ meltfptr[1164])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1071__CLASS_SOURCE_LETREC_BINDING @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1165*/ meltfptr[1164])))); ((meltobject_ptr_t)(/*_._VALDATA___V1165*/ meltfptr[1164]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V1167*/ meltfptr[1166]); /*putupl#700*/ melt_assertmsg("putupl #700 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1168*/ meltfptr[1167]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #700 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1168*/ meltfptr[1167])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1168*/ meltfptr[1167]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#701*/ melt_assertmsg("putupl #701 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1168*/ meltfptr[1167]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #701 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1168*/ meltfptr[1167])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1168*/ meltfptr[1167]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#702*/ melt_assertmsg("putupl #702 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1168*/ meltfptr[1167]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #702 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1168*/ meltfptr[1167])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1168*/ meltfptr[1167]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V1120*/ meltfptr[1119]); /*putupl#703*/ melt_assertmsg("putupl #703 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1168*/ meltfptr[1167]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #703 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1168*/ meltfptr[1167])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1168*/ meltfptr[1167]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V1144*/ meltfptr[1143]); /*putupl#704*/ melt_assertmsg("putupl #704 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1168*/ meltfptr[1167]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #704 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1168*/ meltfptr[1167])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1168*/ meltfptr[1167]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V1146*/ meltfptr[1145]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1168*/ meltfptr[1167]); MELT_LOCATION("warmelt-macro.melt:1137:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1071__CLASS_SOURCE_LETREC_BINDING @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1165*/ meltfptr[1164])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1071__CLASS_SOURCE_LETREC_BINDING @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1165*/ meltfptr[1164])))); ((meltobject_ptr_t)(/*_._VALDATA___V1165*/ meltfptr[1164]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V1168*/ meltfptr[1167]); MELT_LOCATION("warmelt-macro.melt:1137:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1165*/ meltfptr[1164]); MELT_LOCATION("warmelt-macro.melt:1137:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1165*/ meltfptr[1164], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1075__CLASS_SOURCE_LET @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1169*/ meltfptr[1168])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1075__CLASS_SOURCE_LET @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1169*/ meltfptr[1168])))); ((meltobject_ptr_t)(/*_._VALDATA___V1169*/ meltfptr[1168]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1170*/ meltfptr[1169]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1169*/ meltfptr[1168]); melt_dbgtrace_written_object (/*_._VALDATA___V1169*/ meltfptr[1168], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1143:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1077__CLASS_SOURCE_LET @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1171*/ meltfptr[1170])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1077__CLASS_SOURCE_LET @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1171*/ meltfptr[1170])))); ((meltobject_ptr_t)(/*_._VALDATA___V1171*/ meltfptr[1170]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1172*/ meltfptr[1171]); MELT_LOCATION("warmelt-macro.melt:1143:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1077__CLASS_SOURCE_LET @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1171*/ meltfptr[1170])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1077__CLASS_SOURCE_LET @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1171*/ meltfptr[1170])))); ((meltobject_ptr_t)(/*_._VALDATA___V1171*/ meltfptr[1170]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#705*/ melt_assertmsg("putupl #705 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1173*/ meltfptr[1172]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #705 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1173*/ meltfptr[1172])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1173*/ meltfptr[1172]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#706*/ melt_assertmsg("putupl #706 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1173*/ meltfptr[1172]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #706 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1173*/ meltfptr[1172])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1173*/ meltfptr[1172]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#707*/ melt_assertmsg("putupl #707 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1173*/ meltfptr[1172]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #707 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1173*/ meltfptr[1172])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1173*/ meltfptr[1172]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#708*/ melt_assertmsg("putupl #708 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1173*/ meltfptr[1172]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #708 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1173*/ meltfptr[1172])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1173*/ meltfptr[1172]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1173*/ meltfptr[1172]); #undef meltfram__ } /*end of meltmod__WARMELTmiMACRO__initialmeltchunk_21*/ void meltmod__WARMELTmiMACRO__initialmeltchunk_22 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; MELT_LOCATION("warmelt-macro.melt:1143:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1077__CLASS_SOURCE_LET @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1171*/ meltfptr[1170])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1077__CLASS_SOURCE_LET @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1171*/ meltfptr[1170])))); ((meltobject_ptr_t)(/*_._VALDATA___V1171*/ meltfptr[1170]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V1173*/ meltfptr[1172]); MELT_LOCATION("warmelt-macro.melt:1143:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1083__SLET_BINDINGS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1174*/ meltfptr[1173])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1083__SLET_BINDINGS @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1174*/ meltfptr[1173])))); ((meltobject_ptr_t)(/*_._VALDATA___V1174*/ meltfptr[1173]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1175*/ meltfptr[1174]); MELT_LOCATION("warmelt-macro.melt:1143:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1083__SLET_BINDINGS @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1174*/ meltfptr[1173])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1083__SLET_BINDINGS @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1174*/ meltfptr[1173])))); ((meltobject_ptr_t)(/*_._VALDATA___V1174*/ meltfptr[1173]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V1171*/ meltfptr[1170]); MELT_LOCATION("warmelt-macro.melt:1143:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1174*/ meltfptr[1173]); MELT_LOCATION("warmelt-macro.melt:1143:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1174*/ meltfptr[1173], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1143:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1087__SLET_BODY @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1176*/ meltfptr[1175])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1087__SLET_BODY @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1176*/ meltfptr[1175])))); ((meltobject_ptr_t)(/*_._VALDATA___V1176*/ meltfptr[1175]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1177*/ meltfptr[1176]); MELT_LOCATION("warmelt-macro.melt:1143:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1087__SLET_BODY @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1176*/ meltfptr[1175])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1087__SLET_BODY @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1176*/ meltfptr[1175])))); ((meltobject_ptr_t)(/*_._VALDATA___V1176*/ meltfptr[1175]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V1171*/ meltfptr[1170]); MELT_LOCATION("warmelt-macro.melt:1143:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1176*/ meltfptr[1175]); MELT_LOCATION("warmelt-macro.melt:1143:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1176*/ meltfptr[1175], "new static instance"); /*putupl#709*/ melt_assertmsg("putupl #709 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1178*/ meltfptr[1177]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #709 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1178*/ meltfptr[1177])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1178*/ meltfptr[1177]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#710*/ melt_assertmsg("putupl #710 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1178*/ meltfptr[1177]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #710 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1178*/ meltfptr[1177])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1178*/ meltfptr[1177]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#711*/ melt_assertmsg("putupl #711 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1178*/ meltfptr[1177]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #711 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1178*/ meltfptr[1177])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1178*/ meltfptr[1177]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V1174*/ meltfptr[1173]); /*putupl#712*/ melt_assertmsg("putupl #712 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1178*/ meltfptr[1177]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #712 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1178*/ meltfptr[1177])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1178*/ meltfptr[1177]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V1176*/ meltfptr[1175]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1178*/ meltfptr[1177]); MELT_LOCATION("warmelt-macro.melt:1143:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1077__CLASS_SOURCE_LET @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1171*/ meltfptr[1170])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1077__CLASS_SOURCE_LET @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1171*/ meltfptr[1170])))); ((meltobject_ptr_t)(/*_._VALDATA___V1171*/ meltfptr[1170]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V1178*/ meltfptr[1177]); MELT_LOCATION("warmelt-macro.melt:1143:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1171*/ meltfptr[1170]); MELT_LOCATION("warmelt-macro.melt:1143:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1171*/ meltfptr[1170], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1081__SLET_BINDINGS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1179*/ meltfptr[1178])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1081__SLET_BINDINGS @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1179*/ meltfptr[1178])))); ((meltobject_ptr_t)(/*_._VALDATA___V1179*/ meltfptr[1178]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1180*/ meltfptr[1179]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1179*/ meltfptr[1178]); melt_dbgtrace_written_object (/*_._VALDATA___V1179*/ meltfptr[1178], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1085__SLET_BODY @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1181*/ meltfptr[1180])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1085__SLET_BODY @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1181*/ meltfptr[1180])))); ((meltobject_ptr_t)(/*_._VALDATA___V1181*/ meltfptr[1180]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1182*/ meltfptr[1181]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1181*/ meltfptr[1180]); melt_dbgtrace_written_object (/*_._VALDATA___V1181*/ meltfptr[1180], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1089__CLASS_SOURCE_LETREC @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1183*/ meltfptr[1182])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1089__CLASS_SOURCE_LETREC @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1183*/ meltfptr[1182])))); ((meltobject_ptr_t)(/*_._VALDATA___V1183*/ meltfptr[1182]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1184*/ meltfptr[1183]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1183*/ meltfptr[1182]); melt_dbgtrace_written_object (/*_._VALDATA___V1183*/ meltfptr[1182], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1153:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1091__CLASS_SOURCE_LETREC @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1185*/ meltfptr[1184])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1091__CLASS_SOURCE_LETREC @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1185*/ meltfptr[1184])))); ((meltobject_ptr_t)(/*_._VALDATA___V1185*/ meltfptr[1184]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1186*/ meltfptr[1185]); MELT_LOCATION("warmelt-macro.melt:1153:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1091__CLASS_SOURCE_LETREC @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1185*/ meltfptr[1184])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1091__CLASS_SOURCE_LETREC @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1185*/ meltfptr[1184])))); ((meltobject_ptr_t)(/*_._VALDATA___V1185*/ meltfptr[1184]))->obj_vartab[4] = (melt_ptr_t)( /*_._VALDATA___V1171*/ meltfptr[1170]); /*putupl#713*/ melt_assertmsg("putupl #713 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1187*/ meltfptr[1186]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #713 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1187*/ meltfptr[1186])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1187*/ meltfptr[1186]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#714*/ melt_assertmsg("putupl #714 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1187*/ meltfptr[1186]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #714 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1187*/ meltfptr[1186])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1187*/ meltfptr[1186]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#715*/ melt_assertmsg("putupl #715 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1187*/ meltfptr[1186]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #715 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1187*/ meltfptr[1186])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1187*/ meltfptr[1186]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#716*/ melt_assertmsg("putupl #716 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1187*/ meltfptr[1186]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #716 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1187*/ meltfptr[1186])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1187*/ meltfptr[1186]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#717*/ melt_assertmsg("putupl #717 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1187*/ meltfptr[1186]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #717 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1187*/ meltfptr[1186])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1187*/ meltfptr[1186]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V1171*/ meltfptr[1170]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1187*/ meltfptr[1186]); MELT_LOCATION("warmelt-macro.melt:1153:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1091__CLASS_SOURCE_LETREC @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1185*/ meltfptr[1184])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1091__CLASS_SOURCE_LETREC @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1185*/ meltfptr[1184])))); ((meltobject_ptr_t)(/*_._VALDATA___V1185*/ meltfptr[1184]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V1187*/ meltfptr[1186]); /*putupl#718*/ melt_assertmsg("putupl #718 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1188*/ meltfptr[1187]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #718 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1188*/ meltfptr[1187])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1188*/ meltfptr[1187]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#719*/ melt_assertmsg("putupl #719 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1188*/ meltfptr[1187]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #719 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1188*/ meltfptr[1187])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1188*/ meltfptr[1187]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#720*/ melt_assertmsg("putupl #720 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1188*/ meltfptr[1187]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #720 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1188*/ meltfptr[1187])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1188*/ meltfptr[1187]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V1174*/ meltfptr[1173]); /*putupl#721*/ melt_assertmsg("putupl #721 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1188*/ meltfptr[1187]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #721 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1188*/ meltfptr[1187])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1188*/ meltfptr[1187]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V1176*/ meltfptr[1175]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1188*/ meltfptr[1187]); MELT_LOCATION("warmelt-macro.melt:1153:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1091__CLASS_SOURCE_LETREC @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1185*/ meltfptr[1184])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1091__CLASS_SOURCE_LETREC @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1185*/ meltfptr[1184])))); ((meltobject_ptr_t)(/*_._VALDATA___V1185*/ meltfptr[1184]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V1188*/ meltfptr[1187]); MELT_LOCATION("warmelt-macro.melt:1153:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1185*/ meltfptr[1184]); MELT_LOCATION("warmelt-macro.melt:1153:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1185*/ meltfptr[1184], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1095__CLASS_SOURCE_LAMBDA @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1189*/ meltfptr[1188])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1095__CLASS_SOURCE_LAMBDA @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1189*/ meltfptr[1188])))); ((meltobject_ptr_t)(/*_._VALDATA___V1189*/ meltfptr[1188]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1190*/ meltfptr[1189]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1189*/ meltfptr[1188]); melt_dbgtrace_written_object (/*_._VALDATA___V1189*/ meltfptr[1188], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1161:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1097__CLASS_SOURCE_LAMBDA @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1191*/ meltfptr[1190])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1097__CLASS_SOURCE_LAMBDA @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1191*/ meltfptr[1190])))); ((meltobject_ptr_t)(/*_._VALDATA___V1191*/ meltfptr[1190]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1192*/ meltfptr[1191]); MELT_LOCATION("warmelt-macro.melt:1161:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1097__CLASS_SOURCE_LAMBDA @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1191*/ meltfptr[1190])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1097__CLASS_SOURCE_LAMBDA @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1191*/ meltfptr[1190])))); ((meltobject_ptr_t)(/*_._VALDATA___V1191*/ meltfptr[1190]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#722*/ melt_assertmsg("putupl #722 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1193*/ meltfptr[1192]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #722 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1193*/ meltfptr[1192])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1193*/ meltfptr[1192]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#723*/ melt_assertmsg("putupl #723 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1193*/ meltfptr[1192]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #723 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1193*/ meltfptr[1192])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1193*/ meltfptr[1192]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#724*/ melt_assertmsg("putupl #724 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1193*/ meltfptr[1192]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #724 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1193*/ meltfptr[1192])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1193*/ meltfptr[1192]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#725*/ melt_assertmsg("putupl #725 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1193*/ meltfptr[1192]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #725 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1193*/ meltfptr[1192])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1193*/ meltfptr[1192]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1193*/ meltfptr[1192]); MELT_LOCATION("warmelt-macro.melt:1161:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1097__CLASS_SOURCE_LAMBDA @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1191*/ meltfptr[1190])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1097__CLASS_SOURCE_LAMBDA @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1191*/ meltfptr[1190])))); ((meltobject_ptr_t)(/*_._VALDATA___V1191*/ meltfptr[1190]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V1193*/ meltfptr[1192]); MELT_LOCATION("warmelt-macro.melt:1161:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1103__SLAM_ARGBIND @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1194*/ meltfptr[1193])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1103__SLAM_ARGBIND @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1194*/ meltfptr[1193])))); ((meltobject_ptr_t)(/*_._VALDATA___V1194*/ meltfptr[1193]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1195*/ meltfptr[1194]); MELT_LOCATION("warmelt-macro.melt:1161:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1103__SLAM_ARGBIND @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1194*/ meltfptr[1193])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1103__SLAM_ARGBIND @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1194*/ meltfptr[1193])))); ((meltobject_ptr_t)(/*_._VALDATA___V1194*/ meltfptr[1193]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V1191*/ meltfptr[1190]); MELT_LOCATION("warmelt-macro.melt:1161:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1194*/ meltfptr[1193]); MELT_LOCATION("warmelt-macro.melt:1161:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1194*/ meltfptr[1193], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1161:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1107__SLAM_BODY @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1196*/ meltfptr[1195])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1107__SLAM_BODY @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1196*/ meltfptr[1195])))); ((meltobject_ptr_t)(/*_._VALDATA___V1196*/ meltfptr[1195]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1197*/ meltfptr[1196]); MELT_LOCATION("warmelt-macro.melt:1161:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1107__SLAM_BODY @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1196*/ meltfptr[1195])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1107__SLAM_BODY @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1196*/ meltfptr[1195])))); ((meltobject_ptr_t)(/*_._VALDATA___V1196*/ meltfptr[1195]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V1191*/ meltfptr[1190]); MELT_LOCATION("warmelt-macro.melt:1161:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1196*/ meltfptr[1195]); MELT_LOCATION("warmelt-macro.melt:1161:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1196*/ meltfptr[1195], "new static instance"); /*putupl#726*/ melt_assertmsg("putupl #726 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1198*/ meltfptr[1197]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #726 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1198*/ meltfptr[1197])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1198*/ meltfptr[1197]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#727*/ melt_assertmsg("putupl #727 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1198*/ meltfptr[1197]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #727 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1198*/ meltfptr[1197])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1198*/ meltfptr[1197]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#728*/ melt_assertmsg("putupl #728 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1198*/ meltfptr[1197]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #728 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1198*/ meltfptr[1197])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1198*/ meltfptr[1197]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V1194*/ meltfptr[1193]); /*putupl#729*/ melt_assertmsg("putupl #729 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1198*/ meltfptr[1197]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #729 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1198*/ meltfptr[1197])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1198*/ meltfptr[1197]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V1196*/ meltfptr[1195]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1198*/ meltfptr[1197]); MELT_LOCATION("warmelt-macro.melt:1161:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1097__CLASS_SOURCE_LAMBDA @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1191*/ meltfptr[1190])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1097__CLASS_SOURCE_LAMBDA @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1191*/ meltfptr[1190])))); ((meltobject_ptr_t)(/*_._VALDATA___V1191*/ meltfptr[1190]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V1198*/ meltfptr[1197]); MELT_LOCATION("warmelt-macro.melt:1161:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1191*/ meltfptr[1190]); MELT_LOCATION("warmelt-macro.melt:1161:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1191*/ meltfptr[1190], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1101__SLAM_ARGBIND @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1199*/ meltfptr[1198])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1101__SLAM_ARGBIND @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1199*/ meltfptr[1198])))); ((meltobject_ptr_t)(/*_._VALDATA___V1199*/ meltfptr[1198]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1200*/ meltfptr[1199]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1199*/ meltfptr[1198]); melt_dbgtrace_written_object (/*_._VALDATA___V1199*/ meltfptr[1198], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1105__SLAM_BODY @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1201*/ meltfptr[1200])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1105__SLAM_BODY @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1201*/ meltfptr[1200])))); ((meltobject_ptr_t)(/*_._VALDATA___V1201*/ meltfptr[1200]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1202*/ meltfptr[1201]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1201*/ meltfptr[1200]); melt_dbgtrace_written_object (/*_._VALDATA___V1201*/ meltfptr[1200], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1109__CLASS_SOURCE_LAMBDA_FOR_MACRO @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1203*/ meltfptr[1202])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1109__CLASS_SOURCE_LAMBDA_FOR_MACRO @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1203*/ meltfptr[1202])))); ((meltobject_ptr_t)(/*_._VALDATA___V1203*/ meltfptr[1202]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1204*/ meltfptr[1203]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1203*/ meltfptr[1202]); melt_dbgtrace_written_object (/*_._VALDATA___V1203*/ meltfptr[1202], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1172:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1111__CLASS_SOURCE_LAMBDA_FOR_MACRO @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1205*/ meltfptr[1204])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1111__CLASS_SOURCE_LAMBDA_FOR_MACRO @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1205*/ meltfptr[1204])))); ((meltobject_ptr_t)(/*_._VALDATA___V1205*/ meltfptr[1204]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1206*/ meltfptr[1205]); MELT_LOCATION("warmelt-macro.melt:1172:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1111__CLASS_SOURCE_LAMBDA_FOR_MACRO @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1205*/ meltfptr[1204])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1111__CLASS_SOURCE_LAMBDA_FOR_MACRO @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1205*/ meltfptr[1204])))); ((meltobject_ptr_t)(/*_._VALDATA___V1205*/ meltfptr[1204]))->obj_vartab[4] = (melt_ptr_t)( /*_._VALDATA___V1191*/ meltfptr[1190]); /*putupl#730*/ melt_assertmsg("putupl #730 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1207*/ meltfptr[1206]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #730 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1207*/ meltfptr[1206])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1207*/ meltfptr[1206]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#731*/ melt_assertmsg("putupl #731 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1207*/ meltfptr[1206]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #731 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1207*/ meltfptr[1206])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1207*/ meltfptr[1206]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#732*/ melt_assertmsg("putupl #732 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1207*/ meltfptr[1206]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #732 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1207*/ meltfptr[1206])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1207*/ meltfptr[1206]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#733*/ melt_assertmsg("putupl #733 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1207*/ meltfptr[1206]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #733 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1207*/ meltfptr[1206])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1207*/ meltfptr[1206]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#734*/ melt_assertmsg("putupl #734 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1207*/ meltfptr[1206]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #734 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1207*/ meltfptr[1206])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1207*/ meltfptr[1206]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V1191*/ meltfptr[1190]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1207*/ meltfptr[1206]); MELT_LOCATION("warmelt-macro.melt:1172:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1111__CLASS_SOURCE_LAMBDA_FOR_MACRO @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1205*/ meltfptr[1204])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1111__CLASS_SOURCE_LAMBDA_FOR_MACRO @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1205*/ meltfptr[1204])))); ((meltobject_ptr_t)(/*_._VALDATA___V1205*/ meltfptr[1204]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V1207*/ meltfptr[1206]); MELT_LOCATION("warmelt-macro.melt:1172:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1117__SLAM_ORIGMACRO @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1208*/ meltfptr[1207])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1117__SLAM_ORIGMACRO @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1208*/ meltfptr[1207])))); ((meltobject_ptr_t)(/*_._VALDATA___V1208*/ meltfptr[1207]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1209*/ meltfptr[1208]); MELT_LOCATION("warmelt-macro.melt:1172:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1117__SLAM_ORIGMACRO @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1208*/ meltfptr[1207])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1117__SLAM_ORIGMACRO @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1208*/ meltfptr[1207])))); ((meltobject_ptr_t)(/*_._VALDATA___V1208*/ meltfptr[1207]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V1205*/ meltfptr[1204]); MELT_LOCATION("warmelt-macro.melt:1172:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1208*/ meltfptr[1207]); MELT_LOCATION("warmelt-macro.melt:1172:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1208*/ meltfptr[1207], "new static instance"); /*putupl#735*/ melt_assertmsg("putupl #735 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1210*/ meltfptr[1209]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #735 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1210*/ meltfptr[1209])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1210*/ meltfptr[1209]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#736*/ melt_assertmsg("putupl #736 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1210*/ meltfptr[1209]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #736 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1210*/ meltfptr[1209])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1210*/ meltfptr[1209]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#737*/ melt_assertmsg("putupl #737 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1210*/ meltfptr[1209]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #737 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1210*/ meltfptr[1209])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1210*/ meltfptr[1209]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V1194*/ meltfptr[1193]); /*putupl#738*/ melt_assertmsg("putupl #738 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1210*/ meltfptr[1209]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #738 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1210*/ meltfptr[1209])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1210*/ meltfptr[1209]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V1196*/ meltfptr[1195]); /*putupl#739*/ melt_assertmsg("putupl #739 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1210*/ meltfptr[1209]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #739 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1210*/ meltfptr[1209])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1210*/ meltfptr[1209]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V1208*/ meltfptr[1207]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1210*/ meltfptr[1209]); MELT_LOCATION("warmelt-macro.melt:1172:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1111__CLASS_SOURCE_LAMBDA_FOR_MACRO @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1205*/ meltfptr[1204])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1111__CLASS_SOURCE_LAMBDA_FOR_MACRO @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1205*/ meltfptr[1204])))); ((meltobject_ptr_t)(/*_._VALDATA___V1205*/ meltfptr[1204]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V1210*/ meltfptr[1209]); MELT_LOCATION("warmelt-macro.melt:1172:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1205*/ meltfptr[1204]); MELT_LOCATION("warmelt-macro.melt:1172:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1205*/ meltfptr[1204], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1115__SLAM_ORIGMACRO @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1211*/ meltfptr[1210])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1115__SLAM_ORIGMACRO @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1211*/ meltfptr[1210])))); ((meltobject_ptr_t)(/*_._VALDATA___V1211*/ meltfptr[1210]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1212*/ meltfptr[1211]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1211*/ meltfptr[1210]); melt_dbgtrace_written_object (/*_._VALDATA___V1211*/ meltfptr[1210], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1119__CLASS_SOURCE_IFVARIADIC @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1213*/ meltfptr[1212])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1119__CLASS_SOURCE_IFVARIADIC @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1213*/ meltfptr[1212])))); ((meltobject_ptr_t)(/*_._VALDATA___V1213*/ meltfptr[1212]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1214*/ meltfptr[1213]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1213*/ meltfptr[1212]); melt_dbgtrace_written_object (/*_._VALDATA___V1213*/ meltfptr[1212], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1180:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1121__CLASS_SOURCE_IFVARIADIC @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1215*/ meltfptr[1214])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1121__CLASS_SOURCE_IFVARIADIC @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1215*/ meltfptr[1214])))); ((meltobject_ptr_t)(/*_._VALDATA___V1215*/ meltfptr[1214]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1216*/ meltfptr[1215]); MELT_LOCATION("warmelt-macro.melt:1180:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1121__CLASS_SOURCE_IFVARIADIC @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1215*/ meltfptr[1214])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1121__CLASS_SOURCE_IFVARIADIC @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1215*/ meltfptr[1214])))); ((meltobject_ptr_t)(/*_._VALDATA___V1215*/ meltfptr[1214]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#740*/ melt_assertmsg("putupl #740 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1217*/ meltfptr[1216]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #740 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1217*/ meltfptr[1216])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1217*/ meltfptr[1216]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#741*/ melt_assertmsg("putupl #741 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1217*/ meltfptr[1216]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #741 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1217*/ meltfptr[1216])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1217*/ meltfptr[1216]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#742*/ melt_assertmsg("putupl #742 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1217*/ meltfptr[1216]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #742 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1217*/ meltfptr[1216])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1217*/ meltfptr[1216]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#743*/ melt_assertmsg("putupl #743 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1217*/ meltfptr[1216]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #743 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1217*/ meltfptr[1216])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1217*/ meltfptr[1216]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1217*/ meltfptr[1216]); MELT_LOCATION("warmelt-macro.melt:1180:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1121__CLASS_SOURCE_IFVARIADIC @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1215*/ meltfptr[1214])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1121__CLASS_SOURCE_IFVARIADIC @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1215*/ meltfptr[1214])))); ((meltobject_ptr_t)(/*_._VALDATA___V1215*/ meltfptr[1214]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V1217*/ meltfptr[1216]); MELT_LOCATION("warmelt-macro.melt:1180:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1127__SIFVARIADIC_ARGBIND @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1218*/ meltfptr[1217])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1127__SIFVARIADIC_ARGBIND @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1218*/ meltfptr[1217])))); ((meltobject_ptr_t)(/*_._VALDATA___V1218*/ meltfptr[1217]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1219*/ meltfptr[1218]); MELT_LOCATION("warmelt-macro.melt:1180:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1127__SIFVARIADIC_ARGBIND @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1218*/ meltfptr[1217])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1127__SIFVARIADIC_ARGBIND @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1218*/ meltfptr[1217])))); ((meltobject_ptr_t)(/*_._VALDATA___V1218*/ meltfptr[1217]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V1215*/ meltfptr[1214]); MELT_LOCATION("warmelt-macro.melt:1180:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1218*/ meltfptr[1217]); MELT_LOCATION("warmelt-macro.melt:1180:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1218*/ meltfptr[1217], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1180:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1131__SIFVARIADIC_THEN @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1220*/ meltfptr[1219])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1131__SIFVARIADIC_THEN @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1220*/ meltfptr[1219])))); ((meltobject_ptr_t)(/*_._VALDATA___V1220*/ meltfptr[1219]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1221*/ meltfptr[1220]); MELT_LOCATION("warmelt-macro.melt:1180:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1131__SIFVARIADIC_THEN @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1220*/ meltfptr[1219])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1131__SIFVARIADIC_THEN @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1220*/ meltfptr[1219])))); ((meltobject_ptr_t)(/*_._VALDATA___V1220*/ meltfptr[1219]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V1215*/ meltfptr[1214]); MELT_LOCATION("warmelt-macro.melt:1180:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1220*/ meltfptr[1219]); MELT_LOCATION("warmelt-macro.melt:1180:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1220*/ meltfptr[1219], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1180:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1135__SIFVARIADIC_ELSE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1222*/ meltfptr[1221])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1135__SIFVARIADIC_ELSE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1222*/ meltfptr[1221])))); ((meltobject_ptr_t)(/*_._VALDATA___V1222*/ meltfptr[1221]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1223*/ meltfptr[1222]); MELT_LOCATION("warmelt-macro.melt:1180:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1135__SIFVARIADIC_ELSE @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1222*/ meltfptr[1221])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1135__SIFVARIADIC_ELSE @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1222*/ meltfptr[1221])))); ((meltobject_ptr_t)(/*_._VALDATA___V1222*/ meltfptr[1221]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V1215*/ meltfptr[1214]); MELT_LOCATION("warmelt-macro.melt:1180:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1222*/ meltfptr[1221]); MELT_LOCATION("warmelt-macro.melt:1180:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1222*/ meltfptr[1221], "new static instance"); /*putupl#744*/ melt_assertmsg("putupl #744 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1224*/ meltfptr[1223]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #744 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1224*/ meltfptr[1223])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1224*/ meltfptr[1223]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); #undef meltfram__ } /*end of meltmod__WARMELTmiMACRO__initialmeltchunk_22*/ void meltmod__WARMELTmiMACRO__initialmeltchunk_23 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; /*putupl#745*/ melt_assertmsg("putupl #745 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1224*/ meltfptr[1223]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #745 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1224*/ meltfptr[1223])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1224*/ meltfptr[1223]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#746*/ melt_assertmsg("putupl #746 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1224*/ meltfptr[1223]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #746 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1224*/ meltfptr[1223])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1224*/ meltfptr[1223]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V1218*/ meltfptr[1217]); /*putupl#747*/ melt_assertmsg("putupl #747 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1224*/ meltfptr[1223]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #747 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1224*/ meltfptr[1223])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1224*/ meltfptr[1223]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V1220*/ meltfptr[1219]); /*putupl#748*/ melt_assertmsg("putupl #748 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1224*/ meltfptr[1223]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #748 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1224*/ meltfptr[1223])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1224*/ meltfptr[1223]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V1222*/ meltfptr[1221]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1224*/ meltfptr[1223]); MELT_LOCATION("warmelt-macro.melt:1180:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1121__CLASS_SOURCE_IFVARIADIC @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1215*/ meltfptr[1214])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1121__CLASS_SOURCE_IFVARIADIC @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1215*/ meltfptr[1214])))); ((meltobject_ptr_t)(/*_._VALDATA___V1215*/ meltfptr[1214]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V1224*/ meltfptr[1223]); MELT_LOCATION("warmelt-macro.melt:1180:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1215*/ meltfptr[1214]); MELT_LOCATION("warmelt-macro.melt:1180:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1215*/ meltfptr[1214], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1125__SIFVARIADIC_ARGBIND @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1225*/ meltfptr[1224])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1125__SIFVARIADIC_ARGBIND @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1225*/ meltfptr[1224])))); ((meltobject_ptr_t)(/*_._VALDATA___V1225*/ meltfptr[1224]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1226*/ meltfptr[1225]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1225*/ meltfptr[1224]); melt_dbgtrace_written_object (/*_._VALDATA___V1225*/ meltfptr[1224], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1129__SIFVARIADIC_THEN @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1227*/ meltfptr[1226])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1129__SIFVARIADIC_THEN @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1227*/ meltfptr[1226])))); ((meltobject_ptr_t)(/*_._VALDATA___V1227*/ meltfptr[1226]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1228*/ meltfptr[1227]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1227*/ meltfptr[1226]); melt_dbgtrace_written_object (/*_._VALDATA___V1227*/ meltfptr[1226], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1133__SIFVARIADIC_ELSE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1229*/ meltfptr[1228])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1133__SIFVARIADIC_ELSE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1229*/ meltfptr[1228])))); ((meltobject_ptr_t)(/*_._VALDATA___V1229*/ meltfptr[1228]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1230*/ meltfptr[1229]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1229*/ meltfptr[1228]); melt_dbgtrace_written_object (/*_._VALDATA___V1229*/ meltfptr[1228], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1137__CLASS_SOURCE_MULTICALL @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1231*/ meltfptr[1230])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1137__CLASS_SOURCE_MULTICALL @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1231*/ meltfptr[1230])))); ((meltobject_ptr_t)(/*_._VALDATA___V1231*/ meltfptr[1230]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1232*/ meltfptr[1231]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1231*/ meltfptr[1230]); melt_dbgtrace_written_object (/*_._VALDATA___V1231*/ meltfptr[1230], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1192:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1139__CLASS_SOURCE_MULTICALL @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1233*/ meltfptr[1232])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1139__CLASS_SOURCE_MULTICALL @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1233*/ meltfptr[1232])))); ((meltobject_ptr_t)(/*_._VALDATA___V1233*/ meltfptr[1232]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1234*/ meltfptr[1233]); MELT_LOCATION("warmelt-macro.melt:1192:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1139__CLASS_SOURCE_MULTICALL @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1233*/ meltfptr[1232])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1139__CLASS_SOURCE_MULTICALL @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1233*/ meltfptr[1232])))); ((meltobject_ptr_t)(/*_._VALDATA___V1233*/ meltfptr[1232]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#749*/ melt_assertmsg("putupl #749 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1235*/ meltfptr[1234]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #749 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1235*/ meltfptr[1234])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1235*/ meltfptr[1234]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#750*/ melt_assertmsg("putupl #750 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1235*/ meltfptr[1234]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #750 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1235*/ meltfptr[1234])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1235*/ meltfptr[1234]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#751*/ melt_assertmsg("putupl #751 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1235*/ meltfptr[1234]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #751 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1235*/ meltfptr[1234])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1235*/ meltfptr[1234]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#752*/ melt_assertmsg("putupl #752 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1235*/ meltfptr[1234]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #752 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1235*/ meltfptr[1234])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1235*/ meltfptr[1234]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1235*/ meltfptr[1234]); MELT_LOCATION("warmelt-macro.melt:1192:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1139__CLASS_SOURCE_MULTICALL @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1233*/ meltfptr[1232])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1139__CLASS_SOURCE_MULTICALL @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1233*/ meltfptr[1232])))); ((meltobject_ptr_t)(/*_._VALDATA___V1233*/ meltfptr[1232]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V1235*/ meltfptr[1234]); MELT_LOCATION("warmelt-macro.melt:1192:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1145__SMULC_RESBIND @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1236*/ meltfptr[1235])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1145__SMULC_RESBIND @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1236*/ meltfptr[1235])))); ((meltobject_ptr_t)(/*_._VALDATA___V1236*/ meltfptr[1235]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1237*/ meltfptr[1236]); MELT_LOCATION("warmelt-macro.melt:1192:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1145__SMULC_RESBIND @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1236*/ meltfptr[1235])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1145__SMULC_RESBIND @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1236*/ meltfptr[1235])))); ((meltobject_ptr_t)(/*_._VALDATA___V1236*/ meltfptr[1235]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V1233*/ meltfptr[1232]); MELT_LOCATION("warmelt-macro.melt:1192:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1236*/ meltfptr[1235]); MELT_LOCATION("warmelt-macro.melt:1192:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1236*/ meltfptr[1235], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1192:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1149__SMULC_CALL @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1238*/ meltfptr[1237])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1149__SMULC_CALL @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1238*/ meltfptr[1237])))); ((meltobject_ptr_t)(/*_._VALDATA___V1238*/ meltfptr[1237]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1239*/ meltfptr[1238]); MELT_LOCATION("warmelt-macro.melt:1192:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1149__SMULC_CALL @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1238*/ meltfptr[1237])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1149__SMULC_CALL @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1238*/ meltfptr[1237])))); ((meltobject_ptr_t)(/*_._VALDATA___V1238*/ meltfptr[1237]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V1233*/ meltfptr[1232]); MELT_LOCATION("warmelt-macro.melt:1192:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1238*/ meltfptr[1237]); MELT_LOCATION("warmelt-macro.melt:1192:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1238*/ meltfptr[1237], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1192:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1153__SMULC_BODY @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1240*/ meltfptr[1239])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1153__SMULC_BODY @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1240*/ meltfptr[1239])))); ((meltobject_ptr_t)(/*_._VALDATA___V1240*/ meltfptr[1239]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1241*/ meltfptr[1240]); MELT_LOCATION("warmelt-macro.melt:1192:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1153__SMULC_BODY @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1240*/ meltfptr[1239])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1153__SMULC_BODY @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1240*/ meltfptr[1239])))); ((meltobject_ptr_t)(/*_._VALDATA___V1240*/ meltfptr[1239]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V1233*/ meltfptr[1232]); MELT_LOCATION("warmelt-macro.melt:1192:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1240*/ meltfptr[1239]); MELT_LOCATION("warmelt-macro.melt:1192:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1240*/ meltfptr[1239], "new static instance"); /*putupl#753*/ melt_assertmsg("putupl #753 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1242*/ meltfptr[1241]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #753 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1242*/ meltfptr[1241])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1242*/ meltfptr[1241]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#754*/ melt_assertmsg("putupl #754 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1242*/ meltfptr[1241]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #754 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1242*/ meltfptr[1241])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1242*/ meltfptr[1241]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#755*/ melt_assertmsg("putupl #755 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1242*/ meltfptr[1241]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #755 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1242*/ meltfptr[1241])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1242*/ meltfptr[1241]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V1236*/ meltfptr[1235]); /*putupl#756*/ melt_assertmsg("putupl #756 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1242*/ meltfptr[1241]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #756 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1242*/ meltfptr[1241])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1242*/ meltfptr[1241]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V1238*/ meltfptr[1237]); /*putupl#757*/ melt_assertmsg("putupl #757 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1242*/ meltfptr[1241]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #757 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1242*/ meltfptr[1241])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1242*/ meltfptr[1241]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V1240*/ meltfptr[1239]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1242*/ meltfptr[1241]); MELT_LOCATION("warmelt-macro.melt:1192:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1139__CLASS_SOURCE_MULTICALL @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1233*/ meltfptr[1232])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1139__CLASS_SOURCE_MULTICALL @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1233*/ meltfptr[1232])))); ((meltobject_ptr_t)(/*_._VALDATA___V1233*/ meltfptr[1232]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V1242*/ meltfptr[1241]); MELT_LOCATION("warmelt-macro.melt:1192:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1233*/ meltfptr[1232]); MELT_LOCATION("warmelt-macro.melt:1192:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1233*/ meltfptr[1232], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1143__SMULC_RESBIND @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1243*/ meltfptr[1242])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1143__SMULC_RESBIND @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1243*/ meltfptr[1242])))); ((meltobject_ptr_t)(/*_._VALDATA___V1243*/ meltfptr[1242]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1244*/ meltfptr[1243]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1243*/ meltfptr[1242]); melt_dbgtrace_written_object (/*_._VALDATA___V1243*/ meltfptr[1242], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1147__SMULC_CALL @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1245*/ meltfptr[1244])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1147__SMULC_CALL @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1245*/ meltfptr[1244])))); ((meltobject_ptr_t)(/*_._VALDATA___V1245*/ meltfptr[1244]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1246*/ meltfptr[1245]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1245*/ meltfptr[1244]); melt_dbgtrace_written_object (/*_._VALDATA___V1245*/ meltfptr[1244], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1151__SMULC_BODY @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1247*/ meltfptr[1246])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1151__SMULC_BODY @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1247*/ meltfptr[1246])))); ((meltobject_ptr_t)(/*_._VALDATA___V1247*/ meltfptr[1246]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1248*/ meltfptr[1247]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1247*/ meltfptr[1246]); melt_dbgtrace_written_object (/*_._VALDATA___V1247*/ meltfptr[1246], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1155__CLASS_SOURCE_LABELLED @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1249*/ meltfptr[1248])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1155__CLASS_SOURCE_LABELLED @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1249*/ meltfptr[1248])))); ((meltobject_ptr_t)(/*_._VALDATA___V1249*/ meltfptr[1248]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1250*/ meltfptr[1249]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1249*/ meltfptr[1248]); melt_dbgtrace_written_object (/*_._VALDATA___V1249*/ meltfptr[1248], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1204:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1157__CLASS_SOURCE_LABELLED @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1251*/ meltfptr[1250])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1157__CLASS_SOURCE_LABELLED @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1251*/ meltfptr[1250])))); ((meltobject_ptr_t)(/*_._VALDATA___V1251*/ meltfptr[1250]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1252*/ meltfptr[1251]); MELT_LOCATION("warmelt-macro.melt:1204:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1157__CLASS_SOURCE_LABELLED @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1251*/ meltfptr[1250])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1157__CLASS_SOURCE_LABELLED @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1251*/ meltfptr[1250])))); ((meltobject_ptr_t)(/*_._VALDATA___V1251*/ meltfptr[1250]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#758*/ melt_assertmsg("putupl #758 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1253*/ meltfptr[1252]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #758 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1253*/ meltfptr[1252])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1253*/ meltfptr[1252]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#759*/ melt_assertmsg("putupl #759 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1253*/ meltfptr[1252]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #759 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1253*/ meltfptr[1252])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1253*/ meltfptr[1252]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#760*/ melt_assertmsg("putupl #760 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1253*/ meltfptr[1252]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #760 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1253*/ meltfptr[1252])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1253*/ meltfptr[1252]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#761*/ melt_assertmsg("putupl #761 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1253*/ meltfptr[1252]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #761 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1253*/ meltfptr[1252])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1253*/ meltfptr[1252]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1253*/ meltfptr[1252]); MELT_LOCATION("warmelt-macro.melt:1204:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1157__CLASS_SOURCE_LABELLED @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1251*/ meltfptr[1250])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1157__CLASS_SOURCE_LABELLED @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1251*/ meltfptr[1250])))); ((meltobject_ptr_t)(/*_._VALDATA___V1251*/ meltfptr[1250]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V1253*/ meltfptr[1252]); MELT_LOCATION("warmelt-macro.melt:1204:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1163__SLABEL_BIND @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1254*/ meltfptr[1253])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1163__SLABEL_BIND @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1254*/ meltfptr[1253])))); ((meltobject_ptr_t)(/*_._VALDATA___V1254*/ meltfptr[1253]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1255*/ meltfptr[1254]); MELT_LOCATION("warmelt-macro.melt:1204:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1163__SLABEL_BIND @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1254*/ meltfptr[1253])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1163__SLABEL_BIND @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1254*/ meltfptr[1253])))); ((meltobject_ptr_t)(/*_._VALDATA___V1254*/ meltfptr[1253]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V1251*/ meltfptr[1250]); MELT_LOCATION("warmelt-macro.melt:1204:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1254*/ meltfptr[1253]); MELT_LOCATION("warmelt-macro.melt:1204:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1254*/ meltfptr[1253], "new static instance"); /*putupl#762*/ melt_assertmsg("putupl #762 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1256*/ meltfptr[1255]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #762 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1256*/ meltfptr[1255])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1256*/ meltfptr[1255]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#763*/ melt_assertmsg("putupl #763 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1256*/ meltfptr[1255]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #763 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1256*/ meltfptr[1255])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1256*/ meltfptr[1255]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#764*/ melt_assertmsg("putupl #764 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1256*/ meltfptr[1255]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #764 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1256*/ meltfptr[1255])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1256*/ meltfptr[1255]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V1254*/ meltfptr[1253]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1256*/ meltfptr[1255]); MELT_LOCATION("warmelt-macro.melt:1204:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1157__CLASS_SOURCE_LABELLED @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1251*/ meltfptr[1250])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1157__CLASS_SOURCE_LABELLED @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1251*/ meltfptr[1250])))); ((meltobject_ptr_t)(/*_._VALDATA___V1251*/ meltfptr[1250]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V1256*/ meltfptr[1255]); MELT_LOCATION("warmelt-macro.melt:1204:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1251*/ meltfptr[1250]); MELT_LOCATION("warmelt-macro.melt:1204:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1251*/ meltfptr[1250], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1161__SLABEL_BIND @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1257*/ meltfptr[1256])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1161__SLABEL_BIND @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1257*/ meltfptr[1256])))); ((meltobject_ptr_t)(/*_._VALDATA___V1257*/ meltfptr[1256]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1258*/ meltfptr[1257]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1257*/ meltfptr[1256]); melt_dbgtrace_written_object (/*_._VALDATA___V1257*/ meltfptr[1256], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1165__CLASS_SOURCE_FOREVER @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1259*/ meltfptr[1258])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1165__CLASS_SOURCE_FOREVER @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1259*/ meltfptr[1258])))); ((meltobject_ptr_t)(/*_._VALDATA___V1259*/ meltfptr[1258]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1260*/ meltfptr[1259]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1259*/ meltfptr[1258]); melt_dbgtrace_written_object (/*_._VALDATA___V1259*/ meltfptr[1258], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1213:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1167__CLASS_SOURCE_FOREVER @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1261*/ meltfptr[1260])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1167__CLASS_SOURCE_FOREVER @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1261*/ meltfptr[1260])))); ((meltobject_ptr_t)(/*_._VALDATA___V1261*/ meltfptr[1260]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1262*/ meltfptr[1261]); MELT_LOCATION("warmelt-macro.melt:1213:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1167__CLASS_SOURCE_FOREVER @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1261*/ meltfptr[1260])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1167__CLASS_SOURCE_FOREVER @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1261*/ meltfptr[1260])))); ((meltobject_ptr_t)(/*_._VALDATA___V1261*/ meltfptr[1260]))->obj_vartab[4] = (melt_ptr_t)( /*_._VALDATA___V1251*/ meltfptr[1250]); /*putupl#765*/ melt_assertmsg("putupl #765 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1263*/ meltfptr[1262]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #765 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1263*/ meltfptr[1262])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1263*/ meltfptr[1262]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#766*/ melt_assertmsg("putupl #766 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1263*/ meltfptr[1262]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #766 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1263*/ meltfptr[1262])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1263*/ meltfptr[1262]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#767*/ melt_assertmsg("putupl #767 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1263*/ meltfptr[1262]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #767 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1263*/ meltfptr[1262])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1263*/ meltfptr[1262]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#768*/ melt_assertmsg("putupl #768 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1263*/ meltfptr[1262]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #768 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1263*/ meltfptr[1262])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1263*/ meltfptr[1262]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#769*/ melt_assertmsg("putupl #769 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1263*/ meltfptr[1262]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #769 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1263*/ meltfptr[1262])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1263*/ meltfptr[1262]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V1251*/ meltfptr[1250]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1263*/ meltfptr[1262]); MELT_LOCATION("warmelt-macro.melt:1213:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1167__CLASS_SOURCE_FOREVER @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1261*/ meltfptr[1260])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1167__CLASS_SOURCE_FOREVER @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1261*/ meltfptr[1260])))); ((meltobject_ptr_t)(/*_._VALDATA___V1261*/ meltfptr[1260]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V1263*/ meltfptr[1262]); MELT_LOCATION("warmelt-macro.melt:1213:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1173__SFRV_BODY @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1264*/ meltfptr[1263])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1173__SFRV_BODY @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1264*/ meltfptr[1263])))); ((meltobject_ptr_t)(/*_._VALDATA___V1264*/ meltfptr[1263]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1265*/ meltfptr[1264]); MELT_LOCATION("warmelt-macro.melt:1213:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1173__SFRV_BODY @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1264*/ meltfptr[1263])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1173__SFRV_BODY @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1264*/ meltfptr[1263])))); ((meltobject_ptr_t)(/*_._VALDATA___V1264*/ meltfptr[1263]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V1261*/ meltfptr[1260]); MELT_LOCATION("warmelt-macro.melt:1213:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1264*/ meltfptr[1263]); MELT_LOCATION("warmelt-macro.melt:1213:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1264*/ meltfptr[1263], "new static instance"); /*putupl#770*/ melt_assertmsg("putupl #770 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1266*/ meltfptr[1265]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #770 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1266*/ meltfptr[1265])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1266*/ meltfptr[1265]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#771*/ melt_assertmsg("putupl #771 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1266*/ meltfptr[1265]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #771 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1266*/ meltfptr[1265])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1266*/ meltfptr[1265]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#772*/ melt_assertmsg("putupl #772 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1266*/ meltfptr[1265]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #772 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1266*/ meltfptr[1265])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1266*/ meltfptr[1265]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V1254*/ meltfptr[1253]); /*putupl#773*/ melt_assertmsg("putupl #773 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1266*/ meltfptr[1265]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #773 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1266*/ meltfptr[1265])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1266*/ meltfptr[1265]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V1264*/ meltfptr[1263]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1266*/ meltfptr[1265]); MELT_LOCATION("warmelt-macro.melt:1213:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1167__CLASS_SOURCE_FOREVER @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1261*/ meltfptr[1260])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1167__CLASS_SOURCE_FOREVER @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1261*/ meltfptr[1260])))); ((meltobject_ptr_t)(/*_._VALDATA___V1261*/ meltfptr[1260]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V1266*/ meltfptr[1265]); MELT_LOCATION("warmelt-macro.melt:1213:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1261*/ meltfptr[1260]); MELT_LOCATION("warmelt-macro.melt:1213:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1261*/ meltfptr[1260], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1171__SFRV_BODY @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1267*/ meltfptr[1266])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1171__SFRV_BODY @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1267*/ meltfptr[1266])))); ((meltobject_ptr_t)(/*_._VALDATA___V1267*/ meltfptr[1266]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1268*/ meltfptr[1267]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1267*/ meltfptr[1266]); melt_dbgtrace_written_object (/*_._VALDATA___V1267*/ meltfptr[1266], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1175__CLASS_SOURCE_AGAIN @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1269*/ meltfptr[1268])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1175__CLASS_SOURCE_AGAIN @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1269*/ meltfptr[1268])))); ((meltobject_ptr_t)(/*_._VALDATA___V1269*/ meltfptr[1268]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1270*/ meltfptr[1269]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1269*/ meltfptr[1268]); melt_dbgtrace_written_object (/*_._VALDATA___V1269*/ meltfptr[1268], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1221:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1177__CLASS_SOURCE_AGAIN @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1271*/ meltfptr[1270])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1177__CLASS_SOURCE_AGAIN @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1271*/ meltfptr[1270])))); ((meltobject_ptr_t)(/*_._VALDATA___V1271*/ meltfptr[1270]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1272*/ meltfptr[1271]); MELT_LOCATION("warmelt-macro.melt:1221:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1177__CLASS_SOURCE_AGAIN @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1271*/ meltfptr[1270])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1177__CLASS_SOURCE_AGAIN @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1271*/ meltfptr[1270])))); ((meltobject_ptr_t)(/*_._VALDATA___V1271*/ meltfptr[1270]))->obj_vartab[4] = (melt_ptr_t)( /*_._VALDATA___V1251*/ meltfptr[1250]); /*putupl#774*/ melt_assertmsg("putupl #774 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1273*/ meltfptr[1272]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #774 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1273*/ meltfptr[1272])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1273*/ meltfptr[1272]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#775*/ melt_assertmsg("putupl #775 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1273*/ meltfptr[1272]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #775 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1273*/ meltfptr[1272])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1273*/ meltfptr[1272]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#776*/ melt_assertmsg("putupl #776 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1273*/ meltfptr[1272]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #776 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1273*/ meltfptr[1272])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1273*/ meltfptr[1272]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#777*/ melt_assertmsg("putupl #777 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1273*/ meltfptr[1272]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #777 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1273*/ meltfptr[1272])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1273*/ meltfptr[1272]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#778*/ melt_assertmsg("putupl #778 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1273*/ meltfptr[1272]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #778 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1273*/ meltfptr[1272])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1273*/ meltfptr[1272]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V1251*/ meltfptr[1250]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1273*/ meltfptr[1272]); MELT_LOCATION("warmelt-macro.melt:1221:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1177__CLASS_SOURCE_AGAIN @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1271*/ meltfptr[1270])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1177__CLASS_SOURCE_AGAIN @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1271*/ meltfptr[1270])))); ((meltobject_ptr_t)(/*_._VALDATA___V1271*/ meltfptr[1270]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V1273*/ meltfptr[1272]); /*putupl#779*/ melt_assertmsg("putupl #779 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1274*/ meltfptr[1273]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #779 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1274*/ meltfptr[1273])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1274*/ meltfptr[1273]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#780*/ melt_assertmsg("putupl #780 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1274*/ meltfptr[1273]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #780 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1274*/ meltfptr[1273])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1274*/ meltfptr[1273]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#781*/ melt_assertmsg("putupl #781 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1274*/ meltfptr[1273]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #781 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1274*/ meltfptr[1273])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1274*/ meltfptr[1273]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V1254*/ meltfptr[1253]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1274*/ meltfptr[1273]); MELT_LOCATION("warmelt-macro.melt:1221:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1177__CLASS_SOURCE_AGAIN @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1271*/ meltfptr[1270])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1177__CLASS_SOURCE_AGAIN @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1271*/ meltfptr[1270])))); ((meltobject_ptr_t)(/*_._VALDATA___V1271*/ meltfptr[1270]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V1274*/ meltfptr[1273]); MELT_LOCATION("warmelt-macro.melt:1221:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1271*/ meltfptr[1270]); #undef meltfram__ } /*end of meltmod__WARMELTmiMACRO__initialmeltchunk_23*/ void meltmod__WARMELTmiMACRO__initialmeltchunk_24 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; MELT_LOCATION("warmelt-macro.melt:1221:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1271*/ meltfptr[1270], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1181__CLASS_SOURCE_EXIT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1275*/ meltfptr[1274])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1181__CLASS_SOURCE_EXIT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1275*/ meltfptr[1274])))); ((meltobject_ptr_t)(/*_._VALDATA___V1275*/ meltfptr[1274]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1276*/ meltfptr[1275]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1275*/ meltfptr[1274]); melt_dbgtrace_written_object (/*_._VALDATA___V1275*/ meltfptr[1274], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1228:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1183__CLASS_SOURCE_EXIT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1277*/ meltfptr[1276])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1183__CLASS_SOURCE_EXIT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1277*/ meltfptr[1276])))); ((meltobject_ptr_t)(/*_._VALDATA___V1277*/ meltfptr[1276]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1278*/ meltfptr[1277]); MELT_LOCATION("warmelt-macro.melt:1228:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1183__CLASS_SOURCE_EXIT @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1277*/ meltfptr[1276])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1183__CLASS_SOURCE_EXIT @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1277*/ meltfptr[1276])))); ((meltobject_ptr_t)(/*_._VALDATA___V1277*/ meltfptr[1276]))->obj_vartab[4] = (melt_ptr_t)( /*_._VALDATA___V1251*/ meltfptr[1250]); /*putupl#782*/ melt_assertmsg("putupl #782 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1279*/ meltfptr[1278]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #782 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1279*/ meltfptr[1278])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1279*/ meltfptr[1278]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#783*/ melt_assertmsg("putupl #783 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1279*/ meltfptr[1278]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #783 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1279*/ meltfptr[1278])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1279*/ meltfptr[1278]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#784*/ melt_assertmsg("putupl #784 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1279*/ meltfptr[1278]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #784 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1279*/ meltfptr[1278])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1279*/ meltfptr[1278]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#785*/ melt_assertmsg("putupl #785 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1279*/ meltfptr[1278]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #785 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1279*/ meltfptr[1278])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1279*/ meltfptr[1278]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#786*/ melt_assertmsg("putupl #786 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1279*/ meltfptr[1278]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #786 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1279*/ meltfptr[1278])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1279*/ meltfptr[1278]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V1251*/ meltfptr[1250]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1279*/ meltfptr[1278]); MELT_LOCATION("warmelt-macro.melt:1228:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1183__CLASS_SOURCE_EXIT @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1277*/ meltfptr[1276])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1183__CLASS_SOURCE_EXIT @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1277*/ meltfptr[1276])))); ((meltobject_ptr_t)(/*_._VALDATA___V1277*/ meltfptr[1276]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V1279*/ meltfptr[1278]); MELT_LOCATION("warmelt-macro.melt:1228:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1189__SEXI_BODY @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1280*/ meltfptr[1279])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1189__SEXI_BODY @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1280*/ meltfptr[1279])))); ((meltobject_ptr_t)(/*_._VALDATA___V1280*/ meltfptr[1279]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1281*/ meltfptr[1280]); MELT_LOCATION("warmelt-macro.melt:1228:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1189__SEXI_BODY @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1280*/ meltfptr[1279])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1189__SEXI_BODY @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1280*/ meltfptr[1279])))); ((meltobject_ptr_t)(/*_._VALDATA___V1280*/ meltfptr[1279]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V1277*/ meltfptr[1276]); MELT_LOCATION("warmelt-macro.melt:1228:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1280*/ meltfptr[1279]); MELT_LOCATION("warmelt-macro.melt:1228:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1280*/ meltfptr[1279], "new static instance"); /*putupl#787*/ melt_assertmsg("putupl #787 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1282*/ meltfptr[1281]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #787 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1282*/ meltfptr[1281])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1282*/ meltfptr[1281]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#788*/ melt_assertmsg("putupl #788 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1282*/ meltfptr[1281]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #788 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1282*/ meltfptr[1281])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1282*/ meltfptr[1281]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#789*/ melt_assertmsg("putupl #789 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1282*/ meltfptr[1281]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #789 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1282*/ meltfptr[1281])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1282*/ meltfptr[1281]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V1254*/ meltfptr[1253]); /*putupl#790*/ melt_assertmsg("putupl #790 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1282*/ meltfptr[1281]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #790 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1282*/ meltfptr[1281])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1282*/ meltfptr[1281]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V1280*/ meltfptr[1279]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1282*/ meltfptr[1281]); MELT_LOCATION("warmelt-macro.melt:1228:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1183__CLASS_SOURCE_EXIT @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1277*/ meltfptr[1276])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1183__CLASS_SOURCE_EXIT @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1277*/ meltfptr[1276])))); ((meltobject_ptr_t)(/*_._VALDATA___V1277*/ meltfptr[1276]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V1282*/ meltfptr[1281]); MELT_LOCATION("warmelt-macro.melt:1228:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1277*/ meltfptr[1276]); MELT_LOCATION("warmelt-macro.melt:1228:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1277*/ meltfptr[1276], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1187__SEXI_BODY @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1283*/ meltfptr[1282])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1187__SEXI_BODY @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1283*/ meltfptr[1282])))); ((meltobject_ptr_t)(/*_._VALDATA___V1283*/ meltfptr[1282]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1284*/ meltfptr[1283]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1283*/ meltfptr[1282]); melt_dbgtrace_written_object (/*_._VALDATA___V1283*/ meltfptr[1282], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1191__CLASS_SOURCE_COMPILE_DIAGNOSTIC @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1285*/ meltfptr[1284])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1191__CLASS_SOURCE_COMPILE_DIAGNOSTIC @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1285*/ meltfptr[1284])))); ((meltobject_ptr_t)(/*_._VALDATA___V1285*/ meltfptr[1284]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1286*/ meltfptr[1285]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1285*/ meltfptr[1284]); melt_dbgtrace_written_object (/*_._VALDATA___V1285*/ meltfptr[1284], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1236:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1193__CLASS_SOURCE_COMPILE_DIAGNOSTIC @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1287*/ meltfptr[1286])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1193__CLASS_SOURCE_COMPILE_DIAGNOSTIC @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1287*/ meltfptr[1286])))); ((meltobject_ptr_t)(/*_._VALDATA___V1287*/ meltfptr[1286]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1288*/ meltfptr[1287]); MELT_LOCATION("warmelt-macro.melt:1236:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1193__CLASS_SOURCE_COMPILE_DIAGNOSTIC @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1287*/ meltfptr[1286])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1193__CLASS_SOURCE_COMPILE_DIAGNOSTIC @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1287*/ meltfptr[1286])))); ((meltobject_ptr_t)(/*_._VALDATA___V1287*/ meltfptr[1286]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#791*/ melt_assertmsg("putupl #791 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1289*/ meltfptr[1288]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #791 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1289*/ meltfptr[1288])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1289*/ meltfptr[1288]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#792*/ melt_assertmsg("putupl #792 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1289*/ meltfptr[1288]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #792 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1289*/ meltfptr[1288])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1289*/ meltfptr[1288]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#793*/ melt_assertmsg("putupl #793 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1289*/ meltfptr[1288]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #793 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1289*/ meltfptr[1288])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1289*/ meltfptr[1288]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#794*/ melt_assertmsg("putupl #794 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1289*/ meltfptr[1288]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #794 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1289*/ meltfptr[1288])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1289*/ meltfptr[1288]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1289*/ meltfptr[1288]); MELT_LOCATION("warmelt-macro.melt:1236:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1193__CLASS_SOURCE_COMPILE_DIAGNOSTIC @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1287*/ meltfptr[1286])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1193__CLASS_SOURCE_COMPILE_DIAGNOSTIC @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1287*/ meltfptr[1286])))); ((meltobject_ptr_t)(/*_._VALDATA___V1287*/ meltfptr[1286]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V1289*/ meltfptr[1288]); MELT_LOCATION("warmelt-macro.melt:1236:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1199__SCDIAG_MSG @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1290*/ meltfptr[1289])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1199__SCDIAG_MSG @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1290*/ meltfptr[1289])))); ((meltobject_ptr_t)(/*_._VALDATA___V1290*/ meltfptr[1289]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1291*/ meltfptr[1290]); MELT_LOCATION("warmelt-macro.melt:1236:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1199__SCDIAG_MSG @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1290*/ meltfptr[1289])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1199__SCDIAG_MSG @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1290*/ meltfptr[1289])))); ((meltobject_ptr_t)(/*_._VALDATA___V1290*/ meltfptr[1289]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V1287*/ meltfptr[1286]); MELT_LOCATION("warmelt-macro.melt:1236:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1290*/ meltfptr[1289]); MELT_LOCATION("warmelt-macro.melt:1236:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1290*/ meltfptr[1289], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1236:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1203__SCDIAG_EXPR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1292*/ meltfptr[1291])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1203__SCDIAG_EXPR @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1292*/ meltfptr[1291])))); ((meltobject_ptr_t)(/*_._VALDATA___V1292*/ meltfptr[1291]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1293*/ meltfptr[1292]); MELT_LOCATION("warmelt-macro.melt:1236:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1203__SCDIAG_EXPR @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1292*/ meltfptr[1291])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1203__SCDIAG_EXPR @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1292*/ meltfptr[1291])))); ((meltobject_ptr_t)(/*_._VALDATA___V1292*/ meltfptr[1291]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V1287*/ meltfptr[1286]); MELT_LOCATION("warmelt-macro.melt:1236:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1292*/ meltfptr[1291]); MELT_LOCATION("warmelt-macro.melt:1236:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1292*/ meltfptr[1291], "new static instance"); /*putupl#795*/ melt_assertmsg("putupl #795 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1294*/ meltfptr[1293]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #795 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1294*/ meltfptr[1293])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1294*/ meltfptr[1293]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#796*/ melt_assertmsg("putupl #796 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1294*/ meltfptr[1293]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #796 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1294*/ meltfptr[1293])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1294*/ meltfptr[1293]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#797*/ melt_assertmsg("putupl #797 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1294*/ meltfptr[1293]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #797 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1294*/ meltfptr[1293])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1294*/ meltfptr[1293]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V1290*/ meltfptr[1289]); /*putupl#798*/ melt_assertmsg("putupl #798 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1294*/ meltfptr[1293]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #798 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1294*/ meltfptr[1293])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1294*/ meltfptr[1293]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V1292*/ meltfptr[1291]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1294*/ meltfptr[1293]); MELT_LOCATION("warmelt-macro.melt:1236:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1193__CLASS_SOURCE_COMPILE_DIAGNOSTIC @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1287*/ meltfptr[1286])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1193__CLASS_SOURCE_COMPILE_DIAGNOSTIC @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1287*/ meltfptr[1286])))); ((meltobject_ptr_t)(/*_._VALDATA___V1287*/ meltfptr[1286]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V1294*/ meltfptr[1293]); MELT_LOCATION("warmelt-macro.melt:1236:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1287*/ meltfptr[1286]); MELT_LOCATION("warmelt-macro.melt:1236:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1287*/ meltfptr[1286], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1197__SCDIAG_MSG @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1295*/ meltfptr[1294])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1197__SCDIAG_MSG @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1295*/ meltfptr[1294])))); ((meltobject_ptr_t)(/*_._VALDATA___V1295*/ meltfptr[1294]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1296*/ meltfptr[1295]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1295*/ meltfptr[1294]); melt_dbgtrace_written_object (/*_._VALDATA___V1295*/ meltfptr[1294], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1201__SCDIAG_EXPR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1297*/ meltfptr[1296])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1201__SCDIAG_EXPR @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1297*/ meltfptr[1296])))); ((meltobject_ptr_t)(/*_._VALDATA___V1297*/ meltfptr[1296]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1298*/ meltfptr[1297]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1297*/ meltfptr[1296]); melt_dbgtrace_written_object (/*_._VALDATA___V1297*/ meltfptr[1296], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1205__CLASS_SOURCE_COMPILE_WARNING @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1299*/ meltfptr[1298])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1205__CLASS_SOURCE_COMPILE_WARNING @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1299*/ meltfptr[1298])))); ((meltobject_ptr_t)(/*_._VALDATA___V1299*/ meltfptr[1298]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1300*/ meltfptr[1299]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1299*/ meltfptr[1298]); melt_dbgtrace_written_object (/*_._VALDATA___V1299*/ meltfptr[1298], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1244:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1207__CLASS_SOURCE_COMPILE_WARNING @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1301*/ meltfptr[1300])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1207__CLASS_SOURCE_COMPILE_WARNING @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1301*/ meltfptr[1300])))); ((meltobject_ptr_t)(/*_._VALDATA___V1301*/ meltfptr[1300]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1302*/ meltfptr[1301]); MELT_LOCATION("warmelt-macro.melt:1244:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1207__CLASS_SOURCE_COMPILE_WARNING @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1301*/ meltfptr[1300])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1207__CLASS_SOURCE_COMPILE_WARNING @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1301*/ meltfptr[1300])))); ((meltobject_ptr_t)(/*_._VALDATA___V1301*/ meltfptr[1300]))->obj_vartab[4] = (melt_ptr_t)( /*_._VALDATA___V1287*/ meltfptr[1286]); /*putupl#799*/ melt_assertmsg("putupl #799 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1303*/ meltfptr[1302]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #799 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1303*/ meltfptr[1302])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1303*/ meltfptr[1302]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#800*/ melt_assertmsg("putupl #800 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1303*/ meltfptr[1302]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #800 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1303*/ meltfptr[1302])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1303*/ meltfptr[1302]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#801*/ melt_assertmsg("putupl #801 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1303*/ meltfptr[1302]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #801 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1303*/ meltfptr[1302])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1303*/ meltfptr[1302]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#802*/ melt_assertmsg("putupl #802 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1303*/ meltfptr[1302]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #802 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1303*/ meltfptr[1302])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1303*/ meltfptr[1302]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#803*/ melt_assertmsg("putupl #803 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1303*/ meltfptr[1302]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #803 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1303*/ meltfptr[1302])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1303*/ meltfptr[1302]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V1287*/ meltfptr[1286]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1303*/ meltfptr[1302]); MELT_LOCATION("warmelt-macro.melt:1244:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1207__CLASS_SOURCE_COMPILE_WARNING @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1301*/ meltfptr[1300])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1207__CLASS_SOURCE_COMPILE_WARNING @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1301*/ meltfptr[1300])))); ((meltobject_ptr_t)(/*_._VALDATA___V1301*/ meltfptr[1300]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V1303*/ meltfptr[1302]); /*putupl#804*/ melt_assertmsg("putupl #804 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1304*/ meltfptr[1303]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #804 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1304*/ meltfptr[1303])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1304*/ meltfptr[1303]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#805*/ melt_assertmsg("putupl #805 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1304*/ meltfptr[1303]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #805 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1304*/ meltfptr[1303])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1304*/ meltfptr[1303]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#806*/ melt_assertmsg("putupl #806 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1304*/ meltfptr[1303]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #806 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1304*/ meltfptr[1303])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1304*/ meltfptr[1303]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V1290*/ meltfptr[1289]); /*putupl#807*/ melt_assertmsg("putupl #807 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1304*/ meltfptr[1303]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #807 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1304*/ meltfptr[1303])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1304*/ meltfptr[1303]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V1292*/ meltfptr[1291]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1304*/ meltfptr[1303]); MELT_LOCATION("warmelt-macro.melt:1244:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1207__CLASS_SOURCE_COMPILE_WARNING @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1301*/ meltfptr[1300])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1207__CLASS_SOURCE_COMPILE_WARNING @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1301*/ meltfptr[1300])))); ((meltobject_ptr_t)(/*_._VALDATA___V1301*/ meltfptr[1300]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V1304*/ meltfptr[1303]); MELT_LOCATION("warmelt-macro.melt:1244:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1301*/ meltfptr[1300]); MELT_LOCATION("warmelt-macro.melt:1244:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1301*/ meltfptr[1300], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1211__CLASS_SOURCE_COMPILEWARNING @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1305*/ meltfptr[1304])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1211__CLASS_SOURCE_COMPILEWARNING @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1305*/ meltfptr[1304])))); ((meltobject_ptr_t)(/*_._VALDATA___V1305*/ meltfptr[1304]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1306*/ meltfptr[1305]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1305*/ meltfptr[1304]); melt_dbgtrace_written_object (/*_._VALDATA___V1305*/ meltfptr[1304], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1213__CLASS_SOURCE_COMPILE_ERROR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1307*/ meltfptr[1306])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1213__CLASS_SOURCE_COMPILE_ERROR @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1307*/ meltfptr[1306])))); ((meltobject_ptr_t)(/*_._VALDATA___V1307*/ meltfptr[1306]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1308*/ meltfptr[1307]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1307*/ meltfptr[1306]); melt_dbgtrace_written_object (/*_._VALDATA___V1307*/ meltfptr[1306], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1251:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1215__CLASS_SOURCE_COMPILE_ERROR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1309*/ meltfptr[1308])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1215__CLASS_SOURCE_COMPILE_ERROR @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1309*/ meltfptr[1308])))); ((meltobject_ptr_t)(/*_._VALDATA___V1309*/ meltfptr[1308]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1310*/ meltfptr[1309]); MELT_LOCATION("warmelt-macro.melt:1251:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1215__CLASS_SOURCE_COMPILE_ERROR @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1309*/ meltfptr[1308])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1215__CLASS_SOURCE_COMPILE_ERROR @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1309*/ meltfptr[1308])))); ((meltobject_ptr_t)(/*_._VALDATA___V1309*/ meltfptr[1308]))->obj_vartab[4] = (melt_ptr_t)( /*_._VALDATA___V1287*/ meltfptr[1286]); /*putupl#808*/ melt_assertmsg("putupl #808 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1311*/ meltfptr[1310]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #808 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1311*/ meltfptr[1310])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1311*/ meltfptr[1310]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#809*/ melt_assertmsg("putupl #809 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1311*/ meltfptr[1310]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #809 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1311*/ meltfptr[1310])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1311*/ meltfptr[1310]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#810*/ melt_assertmsg("putupl #810 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1311*/ meltfptr[1310]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #810 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1311*/ meltfptr[1310])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1311*/ meltfptr[1310]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#811*/ melt_assertmsg("putupl #811 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1311*/ meltfptr[1310]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #811 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1311*/ meltfptr[1310])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1311*/ meltfptr[1310]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#812*/ melt_assertmsg("putupl #812 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1311*/ meltfptr[1310]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #812 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1311*/ meltfptr[1310])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1311*/ meltfptr[1310]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V1287*/ meltfptr[1286]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1311*/ meltfptr[1310]); MELT_LOCATION("warmelt-macro.melt:1251:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1215__CLASS_SOURCE_COMPILE_ERROR @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1309*/ meltfptr[1308])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1215__CLASS_SOURCE_COMPILE_ERROR @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1309*/ meltfptr[1308])))); ((meltobject_ptr_t)(/*_._VALDATA___V1309*/ meltfptr[1308]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V1311*/ meltfptr[1310]); /*putupl#813*/ melt_assertmsg("putupl #813 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1312*/ meltfptr[1311]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #813 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1312*/ meltfptr[1311])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1312*/ meltfptr[1311]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#814*/ melt_assertmsg("putupl #814 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1312*/ meltfptr[1311]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #814 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1312*/ meltfptr[1311])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1312*/ meltfptr[1311]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#815*/ melt_assertmsg("putupl #815 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1312*/ meltfptr[1311]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #815 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1312*/ meltfptr[1311])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1312*/ meltfptr[1311]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V1290*/ meltfptr[1289]); /*putupl#816*/ melt_assertmsg("putupl #816 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1312*/ meltfptr[1311]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #816 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1312*/ meltfptr[1311])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1312*/ meltfptr[1311]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V1292*/ meltfptr[1291]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1312*/ meltfptr[1311]); MELT_LOCATION("warmelt-macro.melt:1251:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1215__CLASS_SOURCE_COMPILE_ERROR @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1309*/ meltfptr[1308])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1215__CLASS_SOURCE_COMPILE_ERROR @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1309*/ meltfptr[1308])))); ((meltobject_ptr_t)(/*_._VALDATA___V1309*/ meltfptr[1308]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V1312*/ meltfptr[1311]); MELT_LOCATION("warmelt-macro.melt:1251:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1309*/ meltfptr[1308]); MELT_LOCATION("warmelt-macro.melt:1251:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1309*/ meltfptr[1308], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1219__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1313*/ meltfptr[1312])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1219__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1313*/ meltfptr[1312])))); ((meltobject_ptr_t)(/*_._VALDATA___V1313*/ meltfptr[1312]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1314*/ meltfptr[1313]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1313*/ meltfptr[1312]); melt_dbgtrace_written_object (/*_._VALDATA___V1313*/ meltfptr[1312], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1257:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1221__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1315*/ meltfptr[1314])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1221__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1315*/ meltfptr[1314])))); ((meltobject_ptr_t)(/*_._VALDATA___V1315*/ meltfptr[1314]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1316*/ meltfptr[1315]); MELT_LOCATION("warmelt-macro.melt:1257:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1221__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1315*/ meltfptr[1314])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1221__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1315*/ meltfptr[1314])))); ((meltobject_ptr_t)(/*_._VALDATA___V1315*/ meltfptr[1314]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#817*/ melt_assertmsg("putupl #817 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1317*/ meltfptr[1316]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #817 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1317*/ meltfptr[1316])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1317*/ meltfptr[1316]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#818*/ melt_assertmsg("putupl #818 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1317*/ meltfptr[1316]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #818 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1317*/ meltfptr[1316])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1317*/ meltfptr[1316]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#819*/ melt_assertmsg("putupl #819 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1317*/ meltfptr[1316]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #819 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1317*/ meltfptr[1316])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1317*/ meltfptr[1316]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#820*/ melt_assertmsg("putupl #820 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1317*/ meltfptr[1316]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #820 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1317*/ meltfptr[1316])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1317*/ meltfptr[1316]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1317*/ meltfptr[1316]); MELT_LOCATION("warmelt-macro.melt:1257:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1221__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1315*/ meltfptr[1314])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1221__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1315*/ meltfptr[1314])))); ((meltobject_ptr_t)(/*_._VALDATA___V1315*/ meltfptr[1314]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V1317*/ meltfptr[1316]); MELT_LOCATION("warmelt-macro.melt:1257:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1227__CMEC_COMMENT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1318*/ meltfptr[1317])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1227__CMEC_COMMENT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1318*/ meltfptr[1317])))); ((meltobject_ptr_t)(/*_._VALDATA___V1318*/ meltfptr[1317]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1319*/ meltfptr[1318]); MELT_LOCATION("warmelt-macro.melt:1257:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1227__CMEC_COMMENT @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1318*/ meltfptr[1317])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1227__CMEC_COMMENT @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1318*/ meltfptr[1317])))); ((meltobject_ptr_t)(/*_._VALDATA___V1318*/ meltfptr[1317]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V1315*/ meltfptr[1314]); MELT_LOCATION("warmelt-macro.melt:1257:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1318*/ meltfptr[1317]); MELT_LOCATION("warmelt-macro.melt:1257:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1318*/ meltfptr[1317], "new static instance"); /*putupl#821*/ melt_assertmsg("putupl #821 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1320*/ meltfptr[1319]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #821 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1320*/ meltfptr[1319])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1320*/ meltfptr[1319]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#822*/ melt_assertmsg("putupl #822 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1320*/ meltfptr[1319]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #822 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1320*/ meltfptr[1319])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1320*/ meltfptr[1319]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#823*/ melt_assertmsg("putupl #823 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1320*/ meltfptr[1319]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #823 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1320*/ meltfptr[1319])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1320*/ meltfptr[1319]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V1318*/ meltfptr[1317]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1320*/ meltfptr[1319]); MELT_LOCATION("warmelt-macro.melt:1257:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1221__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1315*/ meltfptr[1314])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1221__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1315*/ meltfptr[1314])))); ((meltobject_ptr_t)(/*_._VALDATA___V1315*/ meltfptr[1314]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V1320*/ meltfptr[1319]); MELT_LOCATION("warmelt-macro.melt:1257:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1315*/ meltfptr[1314]); MELT_LOCATION("warmelt-macro.melt:1257:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1315*/ meltfptr[1314], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1225__CMEC_COMMENT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1321*/ meltfptr[1320])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1225__CMEC_COMMENT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1321*/ meltfptr[1320])))); ((meltobject_ptr_t)(/*_._VALDATA___V1321*/ meltfptr[1320]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1322*/ meltfptr[1321]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1321*/ meltfptr[1320]); #undef meltfram__ } /*end of meltmod__WARMELTmiMACRO__initialmeltchunk_24*/ void meltmod__WARMELTmiMACRO__initialmeltchunk_25 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; melt_dbgtrace_written_object (/*_._VALDATA___V1321*/ meltfptr[1320], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1229__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1323*/ meltfptr[1322])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1229__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1323*/ meltfptr[1322])))); ((meltobject_ptr_t)(/*_._VALDATA___V1323*/ meltfptr[1322]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1324*/ meltfptr[1323]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1323*/ meltfptr[1322]); melt_dbgtrace_written_object (/*_._VALDATA___V1323*/ meltfptr[1322], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1265:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1231__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1325*/ meltfptr[1324])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1231__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1325*/ meltfptr[1324])))); ((meltobject_ptr_t)(/*_._VALDATA___V1325*/ meltfptr[1324]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1326*/ meltfptr[1325]); MELT_LOCATION("warmelt-macro.melt:1265:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1231__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1325*/ meltfptr[1324])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1231__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1325*/ meltfptr[1324])))); ((meltobject_ptr_t)(/*_._VALDATA___V1325*/ meltfptr[1324]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#824*/ melt_assertmsg("putupl #824 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1327*/ meltfptr[1326]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #824 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1327*/ meltfptr[1326])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1327*/ meltfptr[1326]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#825*/ melt_assertmsg("putupl #825 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1327*/ meltfptr[1326]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #825 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1327*/ meltfptr[1326])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1327*/ meltfptr[1326]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#826*/ melt_assertmsg("putupl #826 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1327*/ meltfptr[1326]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #826 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1327*/ meltfptr[1326])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1327*/ meltfptr[1326]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#827*/ melt_assertmsg("putupl #827 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1327*/ meltfptr[1326]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #827 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1327*/ meltfptr[1326])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1327*/ meltfptr[1326]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1327*/ meltfptr[1326]); MELT_LOCATION("warmelt-macro.melt:1265:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1231__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1325*/ meltfptr[1324])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1231__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1325*/ meltfptr[1324])))); ((meltobject_ptr_t)(/*_._VALDATA___V1325*/ meltfptr[1324]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V1327*/ meltfptr[1326]); /*putupl#828*/ melt_assertmsg("putupl #828 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1328*/ meltfptr[1327]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #828 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1328*/ meltfptr[1327])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1328*/ meltfptr[1327]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#829*/ melt_assertmsg("putupl #829 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1328*/ meltfptr[1327]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #829 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1328*/ meltfptr[1327])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1328*/ meltfptr[1327]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1328*/ meltfptr[1327]); MELT_LOCATION("warmelt-macro.melt:1265:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1231__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1325*/ meltfptr[1324])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1231__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1325*/ meltfptr[1324])))); ((meltobject_ptr_t)(/*_._VALDATA___V1325*/ meltfptr[1324]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V1328*/ meltfptr[1327]); MELT_LOCATION("warmelt-macro.melt:1265:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1325*/ meltfptr[1324]); MELT_LOCATION("warmelt-macro.melt:1265:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1325*/ meltfptr[1324], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1235__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1329*/ meltfptr[1328])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1235__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1329*/ meltfptr[1328])))); ((meltobject_ptr_t)(/*_._VALDATA___V1329*/ meltfptr[1328]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1330*/ meltfptr[1329]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1329*/ meltfptr[1328]); melt_dbgtrace_written_object (/*_._VALDATA___V1329*/ meltfptr[1328], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1273:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1237__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1331*/ meltfptr[1330])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1237__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1331*/ meltfptr[1330])))); ((meltobject_ptr_t)(/*_._VALDATA___V1331*/ meltfptr[1330]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1332*/ meltfptr[1331]); MELT_LOCATION("warmelt-macro.melt:1273:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1237__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1331*/ meltfptr[1330])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1237__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1331*/ meltfptr[1330])))); ((meltobject_ptr_t)(/*_._VALDATA___V1331*/ meltfptr[1330]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#830*/ melt_assertmsg("putupl #830 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1333*/ meltfptr[1332]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #830 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1333*/ meltfptr[1332])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1333*/ meltfptr[1332]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#831*/ melt_assertmsg("putupl #831 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1333*/ meltfptr[1332]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #831 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1333*/ meltfptr[1332])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1333*/ meltfptr[1332]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#832*/ melt_assertmsg("putupl #832 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1333*/ meltfptr[1332]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #832 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1333*/ meltfptr[1332])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1333*/ meltfptr[1332]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#833*/ melt_assertmsg("putupl #833 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1333*/ meltfptr[1332]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #833 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1333*/ meltfptr[1332])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1333*/ meltfptr[1332]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1333*/ meltfptr[1332]); MELT_LOCATION("warmelt-macro.melt:1273:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1237__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1331*/ meltfptr[1330])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1237__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1331*/ meltfptr[1330])))); ((meltobject_ptr_t)(/*_._VALDATA___V1331*/ meltfptr[1330]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V1333*/ meltfptr[1332]); MELT_LOCATION("warmelt-macro.melt:1273:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1243__SUCME_COMMENT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1334*/ meltfptr[1333])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1243__SUCME_COMMENT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1334*/ meltfptr[1333])))); ((meltobject_ptr_t)(/*_._VALDATA___V1334*/ meltfptr[1333]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1335*/ meltfptr[1334]); MELT_LOCATION("warmelt-macro.melt:1273:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1243__SUCME_COMMENT @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1334*/ meltfptr[1333])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1243__SUCME_COMMENT @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1334*/ meltfptr[1333])))); ((meltobject_ptr_t)(/*_._VALDATA___V1334*/ meltfptr[1333]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V1331*/ meltfptr[1330]); MELT_LOCATION("warmelt-macro.melt:1273:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1334*/ meltfptr[1333]); MELT_LOCATION("warmelt-macro.melt:1273:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1334*/ meltfptr[1333], "new static instance"); /*putupl#834*/ melt_assertmsg("putupl #834 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1336*/ meltfptr[1335]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #834 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1336*/ meltfptr[1335])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1336*/ meltfptr[1335]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#835*/ melt_assertmsg("putupl #835 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1336*/ meltfptr[1335]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #835 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1336*/ meltfptr[1335])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1336*/ meltfptr[1335]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#836*/ melt_assertmsg("putupl #836 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1336*/ meltfptr[1335]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #836 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1336*/ meltfptr[1335])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1336*/ meltfptr[1335]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V1334*/ meltfptr[1333]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1336*/ meltfptr[1335]); MELT_LOCATION("warmelt-macro.melt:1273:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1237__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1331*/ meltfptr[1330])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1237__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1331*/ meltfptr[1330])))); ((meltobject_ptr_t)(/*_._VALDATA___V1331*/ meltfptr[1330]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V1336*/ meltfptr[1335]); MELT_LOCATION("warmelt-macro.melt:1273:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1331*/ meltfptr[1330]); MELT_LOCATION("warmelt-macro.melt:1273:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1331*/ meltfptr[1330], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1241__SUCME_COMMENT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1337*/ meltfptr[1336])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1241__SUCME_COMMENT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1337*/ meltfptr[1336])))); ((meltobject_ptr_t)(/*_._VALDATA___V1337*/ meltfptr[1336]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1338*/ meltfptr[1337]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1337*/ meltfptr[1336]); melt_dbgtrace_written_object (/*_._VALDATA___V1337*/ meltfptr[1336], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1245__CLASS_SOURCE_FETCH_PREDEFINED @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1339*/ meltfptr[1338])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1245__CLASS_SOURCE_FETCH_PREDEFINED @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1339*/ meltfptr[1338])))); ((meltobject_ptr_t)(/*_._VALDATA___V1339*/ meltfptr[1338]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1340*/ meltfptr[1339]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1339*/ meltfptr[1338]); melt_dbgtrace_written_object (/*_._VALDATA___V1339*/ meltfptr[1338], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1282:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1247__CLASS_SOURCE_FETCH_PREDEFINED @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1341*/ meltfptr[1340])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1247__CLASS_SOURCE_FETCH_PREDEFINED @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1341*/ meltfptr[1340])))); ((meltobject_ptr_t)(/*_._VALDATA___V1341*/ meltfptr[1340]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1342*/ meltfptr[1341]); MELT_LOCATION("warmelt-macro.melt:1282:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1247__CLASS_SOURCE_FETCH_PREDEFINED @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1341*/ meltfptr[1340])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1247__CLASS_SOURCE_FETCH_PREDEFINED @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1341*/ meltfptr[1340])))); ((meltobject_ptr_t)(/*_._VALDATA___V1341*/ meltfptr[1340]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#837*/ melt_assertmsg("putupl #837 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1343*/ meltfptr[1342]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #837 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1343*/ meltfptr[1342])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1343*/ meltfptr[1342]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#838*/ melt_assertmsg("putupl #838 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1343*/ meltfptr[1342]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #838 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1343*/ meltfptr[1342])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1343*/ meltfptr[1342]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#839*/ melt_assertmsg("putupl #839 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1343*/ meltfptr[1342]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #839 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1343*/ meltfptr[1342])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1343*/ meltfptr[1342]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#840*/ melt_assertmsg("putupl #840 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1343*/ meltfptr[1342]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #840 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1343*/ meltfptr[1342])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1343*/ meltfptr[1342]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1343*/ meltfptr[1342]); MELT_LOCATION("warmelt-macro.melt:1282:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1247__CLASS_SOURCE_FETCH_PREDEFINED @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1341*/ meltfptr[1340])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1247__CLASS_SOURCE_FETCH_PREDEFINED @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1341*/ meltfptr[1340])))); ((meltobject_ptr_t)(/*_._VALDATA___V1341*/ meltfptr[1340]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V1343*/ meltfptr[1342]); MELT_LOCATION("warmelt-macro.melt:1282:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1253__SFEPD_PREDEF @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1344*/ meltfptr[1343])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1253__SFEPD_PREDEF @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1344*/ meltfptr[1343])))); ((meltobject_ptr_t)(/*_._VALDATA___V1344*/ meltfptr[1343]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1345*/ meltfptr[1344]); MELT_LOCATION("warmelt-macro.melt:1282:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1253__SFEPD_PREDEF @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1344*/ meltfptr[1343])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1253__SFEPD_PREDEF @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1344*/ meltfptr[1343])))); ((meltobject_ptr_t)(/*_._VALDATA___V1344*/ meltfptr[1343]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V1341*/ meltfptr[1340]); MELT_LOCATION("warmelt-macro.melt:1282:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1344*/ meltfptr[1343]); MELT_LOCATION("warmelt-macro.melt:1282:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1344*/ meltfptr[1343], "new static instance"); /*putupl#841*/ melt_assertmsg("putupl #841 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1346*/ meltfptr[1345]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #841 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1346*/ meltfptr[1345])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1346*/ meltfptr[1345]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#842*/ melt_assertmsg("putupl #842 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1346*/ meltfptr[1345]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #842 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1346*/ meltfptr[1345])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1346*/ meltfptr[1345]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#843*/ melt_assertmsg("putupl #843 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1346*/ meltfptr[1345]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #843 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1346*/ meltfptr[1345])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1346*/ meltfptr[1345]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V1344*/ meltfptr[1343]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1346*/ meltfptr[1345]); MELT_LOCATION("warmelt-macro.melt:1282:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1247__CLASS_SOURCE_FETCH_PREDEFINED @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1341*/ meltfptr[1340])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1247__CLASS_SOURCE_FETCH_PREDEFINED @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1341*/ meltfptr[1340])))); ((meltobject_ptr_t)(/*_._VALDATA___V1341*/ meltfptr[1340]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V1346*/ meltfptr[1345]); MELT_LOCATION("warmelt-macro.melt:1282:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1341*/ meltfptr[1340]); MELT_LOCATION("warmelt-macro.melt:1282:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1341*/ meltfptr[1340], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1251__SFEPD_PREDEF @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1347*/ meltfptr[1346])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1251__SFEPD_PREDEF @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1347*/ meltfptr[1346])))); ((meltobject_ptr_t)(/*_._VALDATA___V1347*/ meltfptr[1346]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1348*/ meltfptr[1347]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1347*/ meltfptr[1346]); melt_dbgtrace_written_object (/*_._VALDATA___V1347*/ meltfptr[1346], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1255__CLASS_SOURCE_STORE_PREDEFINED @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1349*/ meltfptr[1348])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1255__CLASS_SOURCE_STORE_PREDEFINED @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1349*/ meltfptr[1348])))); ((meltobject_ptr_t)(/*_._VALDATA___V1349*/ meltfptr[1348]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1350*/ meltfptr[1349]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1349*/ meltfptr[1348]); melt_dbgtrace_written_object (/*_._VALDATA___V1349*/ meltfptr[1348], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1288:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1257__CLASS_SOURCE_STORE_PREDEFINED @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1351*/ meltfptr[1350])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1257__CLASS_SOURCE_STORE_PREDEFINED @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1351*/ meltfptr[1350])))); ((meltobject_ptr_t)(/*_._VALDATA___V1351*/ meltfptr[1350]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1352*/ meltfptr[1351]); MELT_LOCATION("warmelt-macro.melt:1288:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1257__CLASS_SOURCE_STORE_PREDEFINED @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1351*/ meltfptr[1350])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1257__CLASS_SOURCE_STORE_PREDEFINED @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1351*/ meltfptr[1350])))); ((meltobject_ptr_t)(/*_._VALDATA___V1351*/ meltfptr[1350]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#844*/ melt_assertmsg("putupl #844 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1353*/ meltfptr[1352]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #844 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1353*/ meltfptr[1352])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1353*/ meltfptr[1352]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#845*/ melt_assertmsg("putupl #845 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1353*/ meltfptr[1352]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #845 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1353*/ meltfptr[1352])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1353*/ meltfptr[1352]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#846*/ melt_assertmsg("putupl #846 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1353*/ meltfptr[1352]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #846 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1353*/ meltfptr[1352])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1353*/ meltfptr[1352]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#847*/ melt_assertmsg("putupl #847 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1353*/ meltfptr[1352]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #847 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1353*/ meltfptr[1352])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1353*/ meltfptr[1352]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1353*/ meltfptr[1352]); MELT_LOCATION("warmelt-macro.melt:1288:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1257__CLASS_SOURCE_STORE_PREDEFINED @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1351*/ meltfptr[1350])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1257__CLASS_SOURCE_STORE_PREDEFINED @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1351*/ meltfptr[1350])))); ((meltobject_ptr_t)(/*_._VALDATA___V1351*/ meltfptr[1350]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V1353*/ meltfptr[1352]); MELT_LOCATION("warmelt-macro.melt:1288:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1263__SSTPD_PREDEF @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1354*/ meltfptr[1353])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1263__SSTPD_PREDEF @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1354*/ meltfptr[1353])))); ((meltobject_ptr_t)(/*_._VALDATA___V1354*/ meltfptr[1353]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1355*/ meltfptr[1354]); MELT_LOCATION("warmelt-macro.melt:1288:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1263__SSTPD_PREDEF @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1354*/ meltfptr[1353])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1263__SSTPD_PREDEF @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1354*/ meltfptr[1353])))); ((meltobject_ptr_t)(/*_._VALDATA___V1354*/ meltfptr[1353]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V1351*/ meltfptr[1350]); MELT_LOCATION("warmelt-macro.melt:1288:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1354*/ meltfptr[1353]); MELT_LOCATION("warmelt-macro.melt:1288:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1354*/ meltfptr[1353], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1288:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1267__SSTPD_VALUE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1356*/ meltfptr[1355])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1267__SSTPD_VALUE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1356*/ meltfptr[1355])))); ((meltobject_ptr_t)(/*_._VALDATA___V1356*/ meltfptr[1355]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1357*/ meltfptr[1356]); MELT_LOCATION("warmelt-macro.melt:1288:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1267__SSTPD_VALUE @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1356*/ meltfptr[1355])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1267__SSTPD_VALUE @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1356*/ meltfptr[1355])))); ((meltobject_ptr_t)(/*_._VALDATA___V1356*/ meltfptr[1355]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V1351*/ meltfptr[1350]); MELT_LOCATION("warmelt-macro.melt:1288:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1356*/ meltfptr[1355]); MELT_LOCATION("warmelt-macro.melt:1288:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1356*/ meltfptr[1355], "new static instance"); /*putupl#848*/ melt_assertmsg("putupl #848 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1358*/ meltfptr[1357]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #848 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1358*/ meltfptr[1357])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1358*/ meltfptr[1357]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#849*/ melt_assertmsg("putupl #849 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1358*/ meltfptr[1357]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #849 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1358*/ meltfptr[1357])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1358*/ meltfptr[1357]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#850*/ melt_assertmsg("putupl #850 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1358*/ meltfptr[1357]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #850 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1358*/ meltfptr[1357])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1358*/ meltfptr[1357]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V1354*/ meltfptr[1353]); /*putupl#851*/ melt_assertmsg("putupl #851 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1358*/ meltfptr[1357]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #851 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1358*/ meltfptr[1357])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1358*/ meltfptr[1357]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V1356*/ meltfptr[1355]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1358*/ meltfptr[1357]); MELT_LOCATION("warmelt-macro.melt:1288:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1257__CLASS_SOURCE_STORE_PREDEFINED @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1351*/ meltfptr[1350])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1257__CLASS_SOURCE_STORE_PREDEFINED @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1351*/ meltfptr[1350])))); ((meltobject_ptr_t)(/*_._VALDATA___V1351*/ meltfptr[1350]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V1358*/ meltfptr[1357]); MELT_LOCATION("warmelt-macro.melt:1288:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1351*/ meltfptr[1350]); MELT_LOCATION("warmelt-macro.melt:1288:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1351*/ meltfptr[1350], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1261__SSTPD_PREDEF @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1359*/ meltfptr[1358])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1261__SSTPD_PREDEF @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1359*/ meltfptr[1358])))); ((meltobject_ptr_t)(/*_._VALDATA___V1359*/ meltfptr[1358]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1360*/ meltfptr[1359]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1359*/ meltfptr[1358]); melt_dbgtrace_written_object (/*_._VALDATA___V1359*/ meltfptr[1358], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1265__SSTPD_VALUE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1361*/ meltfptr[1360])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1265__SSTPD_VALUE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1361*/ meltfptr[1360])))); ((meltobject_ptr_t)(/*_._VALDATA___V1361*/ meltfptr[1360]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1362*/ meltfptr[1361]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1361*/ meltfptr[1360]); melt_dbgtrace_written_object (/*_._VALDATA___V1361*/ meltfptr[1360], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1269__CLASS_SOURCE_PROTOCHUNK @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1363*/ meltfptr[1362])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1269__CLASS_SOURCE_PROTOCHUNK @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1363*/ meltfptr[1362])))); ((meltobject_ptr_t)(/*_._VALDATA___V1363*/ meltfptr[1362]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1364*/ meltfptr[1363]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1363*/ meltfptr[1362]); melt_dbgtrace_written_object (/*_._VALDATA___V1363*/ meltfptr[1362], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1296:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1271__CLASS_SOURCE_PROTOCHUNK @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1365*/ meltfptr[1364])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1271__CLASS_SOURCE_PROTOCHUNK @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1365*/ meltfptr[1364])))); ((meltobject_ptr_t)(/*_._VALDATA___V1365*/ meltfptr[1364]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1366*/ meltfptr[1365]); MELT_LOCATION("warmelt-macro.melt:1296:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1271__CLASS_SOURCE_PROTOCHUNK @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1365*/ meltfptr[1364])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1271__CLASS_SOURCE_PROTOCHUNK @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1365*/ meltfptr[1364])))); ((meltobject_ptr_t)(/*_._VALDATA___V1365*/ meltfptr[1364]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#852*/ melt_assertmsg("putupl #852 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1367*/ meltfptr[1366]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #852 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1367*/ meltfptr[1366])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1367*/ meltfptr[1366]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#853*/ melt_assertmsg("putupl #853 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1367*/ meltfptr[1366]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #853 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1367*/ meltfptr[1366])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1367*/ meltfptr[1366]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#854*/ melt_assertmsg("putupl #854 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1367*/ meltfptr[1366]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #854 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1367*/ meltfptr[1366])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1367*/ meltfptr[1366]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#855*/ melt_assertmsg("putupl #855 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1367*/ meltfptr[1366]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #855 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1367*/ meltfptr[1366])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1367*/ meltfptr[1366]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1367*/ meltfptr[1366]); MELT_LOCATION("warmelt-macro.melt:1296:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1271__CLASS_SOURCE_PROTOCHUNK @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1365*/ meltfptr[1364])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1271__CLASS_SOURCE_PROTOCHUNK @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1365*/ meltfptr[1364])))); ((meltobject_ptr_t)(/*_._VALDATA___V1365*/ meltfptr[1364]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V1367*/ meltfptr[1366]); MELT_LOCATION("warmelt-macro.melt:1296:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1277__SCH_GENSYM @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1368*/ meltfptr[1367])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1277__SCH_GENSYM @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1368*/ meltfptr[1367])))); ((meltobject_ptr_t)(/*_._VALDATA___V1368*/ meltfptr[1367]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1369*/ meltfptr[1368]); MELT_LOCATION("warmelt-macro.melt:1296:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1277__SCH_GENSYM @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1368*/ meltfptr[1367])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1277__SCH_GENSYM @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1368*/ meltfptr[1367])))); ((meltobject_ptr_t)(/*_._VALDATA___V1368*/ meltfptr[1367]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V1365*/ meltfptr[1364]); MELT_LOCATION("warmelt-macro.melt:1296:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1368*/ meltfptr[1367]); MELT_LOCATION("warmelt-macro.melt:1296:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1368*/ meltfptr[1367], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1296:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1281__SCH_CHUNKS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1370*/ meltfptr[1369])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1281__SCH_CHUNKS @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1370*/ meltfptr[1369])))); ((meltobject_ptr_t)(/*_._VALDATA___V1370*/ meltfptr[1369]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1371*/ meltfptr[1370]); MELT_LOCATION("warmelt-macro.melt:1296:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1281__SCH_CHUNKS @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1370*/ meltfptr[1369])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1281__SCH_CHUNKS @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1370*/ meltfptr[1369])))); ((meltobject_ptr_t)(/*_._VALDATA___V1370*/ meltfptr[1369]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V1365*/ meltfptr[1364]); MELT_LOCATION("warmelt-macro.melt:1296:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1370*/ meltfptr[1369]); MELT_LOCATION("warmelt-macro.melt:1296:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1370*/ meltfptr[1369], "new static instance"); /*putupl#856*/ melt_assertmsg("putupl #856 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1372*/ meltfptr[1371]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #856 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1372*/ meltfptr[1371])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1372*/ meltfptr[1371]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#857*/ melt_assertmsg("putupl #857 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1372*/ meltfptr[1371]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #857 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1372*/ meltfptr[1371])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1372*/ meltfptr[1371]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#858*/ melt_assertmsg("putupl #858 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1372*/ meltfptr[1371]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #858 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1372*/ meltfptr[1371])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1372*/ meltfptr[1371]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V1368*/ meltfptr[1367]); /*putupl#859*/ melt_assertmsg("putupl #859 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1372*/ meltfptr[1371]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #859 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1372*/ meltfptr[1371])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1372*/ meltfptr[1371]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V1370*/ meltfptr[1369]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1372*/ meltfptr[1371]); MELT_LOCATION("warmelt-macro.melt:1296:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1271__CLASS_SOURCE_PROTOCHUNK @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1365*/ meltfptr[1364])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1271__CLASS_SOURCE_PROTOCHUNK @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1365*/ meltfptr[1364])))); ((meltobject_ptr_t)(/*_._VALDATA___V1365*/ meltfptr[1364]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V1372*/ meltfptr[1371]); MELT_LOCATION("warmelt-macro.melt:1296:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1365*/ meltfptr[1364]); MELT_LOCATION("warmelt-macro.melt:1296:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1365*/ meltfptr[1364], "new static instance"); #undef meltfram__ } /*end of meltmod__WARMELTmiMACRO__initialmeltchunk_25*/ void meltmod__WARMELTmiMACRO__initialmeltchunk_26 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1275__SCH_GENSYM @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1373*/ meltfptr[1372])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1275__SCH_GENSYM @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1373*/ meltfptr[1372])))); ((meltobject_ptr_t)(/*_._VALDATA___V1373*/ meltfptr[1372]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1374*/ meltfptr[1373]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1373*/ meltfptr[1372]); melt_dbgtrace_written_object (/*_._VALDATA___V1373*/ meltfptr[1372], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1279__SCH_CHUNKS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1375*/ meltfptr[1374])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1279__SCH_CHUNKS @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1375*/ meltfptr[1374])))); ((meltobject_ptr_t)(/*_._VALDATA___V1375*/ meltfptr[1374]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1376*/ meltfptr[1375]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1375*/ meltfptr[1374]); melt_dbgtrace_written_object (/*_._VALDATA___V1375*/ meltfptr[1374], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1283__CLASS_SOURCE_CODECHUNK @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1377*/ meltfptr[1376])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1283__CLASS_SOURCE_CODECHUNK @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1377*/ meltfptr[1376])))); ((meltobject_ptr_t)(/*_._VALDATA___V1377*/ meltfptr[1376]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1378*/ meltfptr[1377]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1377*/ meltfptr[1376]); melt_dbgtrace_written_object (/*_._VALDATA___V1377*/ meltfptr[1376], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1304:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1285__CLASS_SOURCE_CODECHUNK @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1379*/ meltfptr[1378])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1285__CLASS_SOURCE_CODECHUNK @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1379*/ meltfptr[1378])))); ((meltobject_ptr_t)(/*_._VALDATA___V1379*/ meltfptr[1378]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1380*/ meltfptr[1379]); MELT_LOCATION("warmelt-macro.melt:1304:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1285__CLASS_SOURCE_CODECHUNK @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1379*/ meltfptr[1378])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1285__CLASS_SOURCE_CODECHUNK @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1379*/ meltfptr[1378])))); ((meltobject_ptr_t)(/*_._VALDATA___V1379*/ meltfptr[1378]))->obj_vartab[4] = (melt_ptr_t)( /*_._VALDATA___V1365*/ meltfptr[1364]); /*putupl#860*/ melt_assertmsg("putupl #860 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1381*/ meltfptr[1380]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #860 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1381*/ meltfptr[1380])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1381*/ meltfptr[1380]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#861*/ melt_assertmsg("putupl #861 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1381*/ meltfptr[1380]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #861 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1381*/ meltfptr[1380])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1381*/ meltfptr[1380]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#862*/ melt_assertmsg("putupl #862 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1381*/ meltfptr[1380]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #862 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1381*/ meltfptr[1380])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1381*/ meltfptr[1380]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#863*/ melt_assertmsg("putupl #863 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1381*/ meltfptr[1380]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #863 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1381*/ meltfptr[1380])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1381*/ meltfptr[1380]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#864*/ melt_assertmsg("putupl #864 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1381*/ meltfptr[1380]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #864 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1381*/ meltfptr[1380])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1381*/ meltfptr[1380]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V1365*/ meltfptr[1364]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1381*/ meltfptr[1380]); MELT_LOCATION("warmelt-macro.melt:1304:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1285__CLASS_SOURCE_CODECHUNK @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1379*/ meltfptr[1378])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1285__CLASS_SOURCE_CODECHUNK @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1379*/ meltfptr[1378])))); ((meltobject_ptr_t)(/*_._VALDATA___V1379*/ meltfptr[1378]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V1381*/ meltfptr[1380]); /*putupl#865*/ melt_assertmsg("putupl #865 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1382*/ meltfptr[1381]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #865 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1382*/ meltfptr[1381])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1382*/ meltfptr[1381]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#866*/ melt_assertmsg("putupl #866 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1382*/ meltfptr[1381]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #866 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1382*/ meltfptr[1381])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1382*/ meltfptr[1381]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#867*/ melt_assertmsg("putupl #867 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1382*/ meltfptr[1381]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #867 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1382*/ meltfptr[1381])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1382*/ meltfptr[1381]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V1368*/ meltfptr[1367]); /*putupl#868*/ melt_assertmsg("putupl #868 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1382*/ meltfptr[1381]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #868 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1382*/ meltfptr[1381])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1382*/ meltfptr[1381]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V1370*/ meltfptr[1369]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1382*/ meltfptr[1381]); MELT_LOCATION("warmelt-macro.melt:1304:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1285__CLASS_SOURCE_CODECHUNK @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1379*/ meltfptr[1378])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1285__CLASS_SOURCE_CODECHUNK @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1379*/ meltfptr[1378])))); ((meltobject_ptr_t)(/*_._VALDATA___V1379*/ meltfptr[1378]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V1382*/ meltfptr[1381]); MELT_LOCATION("warmelt-macro.melt:1304:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1379*/ meltfptr[1378]); MELT_LOCATION("warmelt-macro.melt:1304:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1379*/ meltfptr[1378], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1289__CLASS_SOURCE_EXPRCHUNK @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1383*/ meltfptr[1382])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1289__CLASS_SOURCE_EXPRCHUNK @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1383*/ meltfptr[1382])))); ((meltobject_ptr_t)(/*_._VALDATA___V1383*/ meltfptr[1382]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1384*/ meltfptr[1383]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1383*/ meltfptr[1382]); melt_dbgtrace_written_object (/*_._VALDATA___V1383*/ meltfptr[1382], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1310:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1291__CLASS_SOURCE_EXPRCHUNK @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1385*/ meltfptr[1384])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1291__CLASS_SOURCE_EXPRCHUNK @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1385*/ meltfptr[1384])))); ((meltobject_ptr_t)(/*_._VALDATA___V1385*/ meltfptr[1384]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1386*/ meltfptr[1385]); MELT_LOCATION("warmelt-macro.melt:1310:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1291__CLASS_SOURCE_EXPRCHUNK @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1385*/ meltfptr[1384])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1291__CLASS_SOURCE_EXPRCHUNK @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1385*/ meltfptr[1384])))); ((meltobject_ptr_t)(/*_._VALDATA___V1385*/ meltfptr[1384]))->obj_vartab[4] = (melt_ptr_t)( /*_._VALDATA___V1365*/ meltfptr[1364]); /*putupl#869*/ melt_assertmsg("putupl #869 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1387*/ meltfptr[1386]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #869 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1387*/ meltfptr[1386])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1387*/ meltfptr[1386]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#870*/ melt_assertmsg("putupl #870 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1387*/ meltfptr[1386]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #870 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1387*/ meltfptr[1386])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1387*/ meltfptr[1386]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#871*/ melt_assertmsg("putupl #871 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1387*/ meltfptr[1386]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #871 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1387*/ meltfptr[1386])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1387*/ meltfptr[1386]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#872*/ melt_assertmsg("putupl #872 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1387*/ meltfptr[1386]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #872 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1387*/ meltfptr[1386])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1387*/ meltfptr[1386]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#873*/ melt_assertmsg("putupl #873 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1387*/ meltfptr[1386]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #873 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1387*/ meltfptr[1386])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1387*/ meltfptr[1386]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V1365*/ meltfptr[1364]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1387*/ meltfptr[1386]); MELT_LOCATION("warmelt-macro.melt:1310:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1291__CLASS_SOURCE_EXPRCHUNK @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1385*/ meltfptr[1384])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1291__CLASS_SOURCE_EXPRCHUNK @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1385*/ meltfptr[1384])))); ((meltobject_ptr_t)(/*_._VALDATA___V1385*/ meltfptr[1384]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V1387*/ meltfptr[1386]); MELT_LOCATION("warmelt-macro.melt:1310:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1297__SXCH_CTYPE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1388*/ meltfptr[1387])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1297__SXCH_CTYPE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1388*/ meltfptr[1387])))); ((meltobject_ptr_t)(/*_._VALDATA___V1388*/ meltfptr[1387]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1389*/ meltfptr[1388]); MELT_LOCATION("warmelt-macro.melt:1310:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1297__SXCH_CTYPE @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1388*/ meltfptr[1387])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1297__SXCH_CTYPE @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1388*/ meltfptr[1387])))); ((meltobject_ptr_t)(/*_._VALDATA___V1388*/ meltfptr[1387]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V1385*/ meltfptr[1384]); MELT_LOCATION("warmelt-macro.melt:1310:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1388*/ meltfptr[1387]); MELT_LOCATION("warmelt-macro.melt:1310:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1388*/ meltfptr[1387], "new static instance"); /*putupl#874*/ melt_assertmsg("putupl #874 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1390*/ meltfptr[1389]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #874 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1390*/ meltfptr[1389])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1390*/ meltfptr[1389]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#875*/ melt_assertmsg("putupl #875 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1390*/ meltfptr[1389]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #875 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1390*/ meltfptr[1389])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1390*/ meltfptr[1389]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#876*/ melt_assertmsg("putupl #876 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1390*/ meltfptr[1389]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #876 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1390*/ meltfptr[1389])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1390*/ meltfptr[1389]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V1368*/ meltfptr[1367]); /*putupl#877*/ melt_assertmsg("putupl #877 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1390*/ meltfptr[1389]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #877 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1390*/ meltfptr[1389])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1390*/ meltfptr[1389]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V1370*/ meltfptr[1369]); /*putupl#878*/ melt_assertmsg("putupl #878 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1390*/ meltfptr[1389]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #878 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1390*/ meltfptr[1389])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1390*/ meltfptr[1389]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V1388*/ meltfptr[1387]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1390*/ meltfptr[1389]); MELT_LOCATION("warmelt-macro.melt:1310:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1291__CLASS_SOURCE_EXPRCHUNK @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1385*/ meltfptr[1384])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1291__CLASS_SOURCE_EXPRCHUNK @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1385*/ meltfptr[1384])))); ((meltobject_ptr_t)(/*_._VALDATA___V1385*/ meltfptr[1384]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V1390*/ meltfptr[1389]); MELT_LOCATION("warmelt-macro.melt:1310:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1385*/ meltfptr[1384]); MELT_LOCATION("warmelt-macro.melt:1310:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1385*/ meltfptr[1384], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1295__SXCH_CTYPE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1391*/ meltfptr[1390])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1295__SXCH_CTYPE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1391*/ meltfptr[1390])))); ((meltobject_ptr_t)(/*_._VALDATA___V1391*/ meltfptr[1390]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1392*/ meltfptr[1391]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1391*/ meltfptr[1390]); melt_dbgtrace_written_object (/*_._VALDATA___V1391*/ meltfptr[1390], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1299__CLASS_SOURCE_PATTERN @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1393*/ meltfptr[1392])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1299__CLASS_SOURCE_PATTERN @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1393*/ meltfptr[1392])))); ((meltobject_ptr_t)(/*_._VALDATA___V1393*/ meltfptr[1392]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1394*/ meltfptr[1393]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1393*/ meltfptr[1392]); melt_dbgtrace_written_object (/*_._VALDATA___V1393*/ meltfptr[1392], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1317:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1301__CLASS_SOURCE_PATTERN @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1395*/ meltfptr[1394])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1301__CLASS_SOURCE_PATTERN @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1395*/ meltfptr[1394])))); ((meltobject_ptr_t)(/*_._VALDATA___V1395*/ meltfptr[1394]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1396*/ meltfptr[1395]); MELT_LOCATION("warmelt-macro.melt:1317:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1301__CLASS_SOURCE_PATTERN @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1395*/ meltfptr[1394])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1301__CLASS_SOURCE_PATTERN @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1395*/ meltfptr[1394])))); ((meltobject_ptr_t)(/*_._VALDATA___V1395*/ meltfptr[1394]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#879*/ melt_assertmsg("putupl #879 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1397*/ meltfptr[1396]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #879 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1397*/ meltfptr[1396])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1397*/ meltfptr[1396]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#880*/ melt_assertmsg("putupl #880 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1397*/ meltfptr[1396]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #880 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1397*/ meltfptr[1396])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1397*/ meltfptr[1396]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#881*/ melt_assertmsg("putupl #881 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1397*/ meltfptr[1396]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #881 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1397*/ meltfptr[1396])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1397*/ meltfptr[1396]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#882*/ melt_assertmsg("putupl #882 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1397*/ meltfptr[1396]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #882 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1397*/ meltfptr[1396])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1397*/ meltfptr[1396]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1397*/ meltfptr[1396]); MELT_LOCATION("warmelt-macro.melt:1317:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1301__CLASS_SOURCE_PATTERN @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1395*/ meltfptr[1394])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1301__CLASS_SOURCE_PATTERN @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1395*/ meltfptr[1394])))); ((meltobject_ptr_t)(/*_._VALDATA___V1395*/ meltfptr[1394]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V1397*/ meltfptr[1396]); MELT_LOCATION("warmelt-macro.melt:1317:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1307__PAT_WEIGHT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1398*/ meltfptr[1397])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1307__PAT_WEIGHT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1398*/ meltfptr[1397])))); ((meltobject_ptr_t)(/*_._VALDATA___V1398*/ meltfptr[1397]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1399*/ meltfptr[1398]); MELT_LOCATION("warmelt-macro.melt:1317:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1307__PAT_WEIGHT @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1398*/ meltfptr[1397])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1307__PAT_WEIGHT @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1398*/ meltfptr[1397])))); ((meltobject_ptr_t)(/*_._VALDATA___V1398*/ meltfptr[1397]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V1395*/ meltfptr[1394]); MELT_LOCATION("warmelt-macro.melt:1317:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1398*/ meltfptr[1397]); MELT_LOCATION("warmelt-macro.melt:1317:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1398*/ meltfptr[1397], "new static instance"); /*putupl#883*/ melt_assertmsg("putupl #883 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1400*/ meltfptr[1399]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #883 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1400*/ meltfptr[1399])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1400*/ meltfptr[1399]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#884*/ melt_assertmsg("putupl #884 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1400*/ meltfptr[1399]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #884 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1400*/ meltfptr[1399])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1400*/ meltfptr[1399]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#885*/ melt_assertmsg("putupl #885 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1400*/ meltfptr[1399]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #885 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1400*/ meltfptr[1399])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1400*/ meltfptr[1399]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V1398*/ meltfptr[1397]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1400*/ meltfptr[1399]); MELT_LOCATION("warmelt-macro.melt:1317:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1301__CLASS_SOURCE_PATTERN @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1395*/ meltfptr[1394])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1301__CLASS_SOURCE_PATTERN @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1395*/ meltfptr[1394])))); ((meltobject_ptr_t)(/*_._VALDATA___V1395*/ meltfptr[1394]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V1400*/ meltfptr[1399]); MELT_LOCATION("warmelt-macro.melt:1317:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1395*/ meltfptr[1394]); MELT_LOCATION("warmelt-macro.melt:1317:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1395*/ meltfptr[1394], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1305__PAT_WEIGHT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1401*/ meltfptr[1400])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1305__PAT_WEIGHT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1401*/ meltfptr[1400])))); ((meltobject_ptr_t)(/*_._VALDATA___V1401*/ meltfptr[1400]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1402*/ meltfptr[1401]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1401*/ meltfptr[1400]); melt_dbgtrace_written_object (/*_._VALDATA___V1401*/ meltfptr[1400], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1309__CLASS_SOURCE_PATTERN_OR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1403*/ meltfptr[1402])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1309__CLASS_SOURCE_PATTERN_OR @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1403*/ meltfptr[1402])))); ((meltobject_ptr_t)(/*_._VALDATA___V1403*/ meltfptr[1402]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1404*/ meltfptr[1403]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1403*/ meltfptr[1402]); melt_dbgtrace_written_object (/*_._VALDATA___V1403*/ meltfptr[1402], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1326:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1311__CLASS_SOURCE_PATTERN_OR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1405*/ meltfptr[1404])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1311__CLASS_SOURCE_PATTERN_OR @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1405*/ meltfptr[1404])))); ((meltobject_ptr_t)(/*_._VALDATA___V1405*/ meltfptr[1404]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1406*/ meltfptr[1405]); MELT_LOCATION("warmelt-macro.melt:1326:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1311__CLASS_SOURCE_PATTERN_OR @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1405*/ meltfptr[1404])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1311__CLASS_SOURCE_PATTERN_OR @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1405*/ meltfptr[1404])))); ((meltobject_ptr_t)(/*_._VALDATA___V1405*/ meltfptr[1404]))->obj_vartab[4] = (melt_ptr_t)( /*_._VALDATA___V1395*/ meltfptr[1394]); /*putupl#886*/ melt_assertmsg("putupl #886 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1407*/ meltfptr[1406]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #886 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1407*/ meltfptr[1406])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1407*/ meltfptr[1406]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#887*/ melt_assertmsg("putupl #887 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1407*/ meltfptr[1406]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #887 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1407*/ meltfptr[1406])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1407*/ meltfptr[1406]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#888*/ melt_assertmsg("putupl #888 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1407*/ meltfptr[1406]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #888 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1407*/ meltfptr[1406])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1407*/ meltfptr[1406]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#889*/ melt_assertmsg("putupl #889 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1407*/ meltfptr[1406]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #889 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1407*/ meltfptr[1406])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1407*/ meltfptr[1406]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#890*/ melt_assertmsg("putupl #890 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1407*/ meltfptr[1406]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #890 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1407*/ meltfptr[1406])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1407*/ meltfptr[1406]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V1395*/ meltfptr[1394]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1407*/ meltfptr[1406]); MELT_LOCATION("warmelt-macro.melt:1326:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1311__CLASS_SOURCE_PATTERN_OR @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1405*/ meltfptr[1404])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1311__CLASS_SOURCE_PATTERN_OR @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1405*/ meltfptr[1404])))); ((meltobject_ptr_t)(/*_._VALDATA___V1405*/ meltfptr[1404]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V1407*/ meltfptr[1406]); MELT_LOCATION("warmelt-macro.melt:1326:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1317__ORPAT_DISJ @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1408*/ meltfptr[1407])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1317__ORPAT_DISJ @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1408*/ meltfptr[1407])))); ((meltobject_ptr_t)(/*_._VALDATA___V1408*/ meltfptr[1407]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1409*/ meltfptr[1408]); MELT_LOCATION("warmelt-macro.melt:1326:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1317__ORPAT_DISJ @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1408*/ meltfptr[1407])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1317__ORPAT_DISJ @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1408*/ meltfptr[1407])))); ((meltobject_ptr_t)(/*_._VALDATA___V1408*/ meltfptr[1407]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V1405*/ meltfptr[1404]); MELT_LOCATION("warmelt-macro.melt:1326:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1408*/ meltfptr[1407]); MELT_LOCATION("warmelt-macro.melt:1326:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1408*/ meltfptr[1407], "new static instance"); /*putupl#891*/ melt_assertmsg("putupl #891 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1410*/ meltfptr[1409]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #891 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1410*/ meltfptr[1409])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1410*/ meltfptr[1409]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#892*/ melt_assertmsg("putupl #892 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1410*/ meltfptr[1409]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #892 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1410*/ meltfptr[1409])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1410*/ meltfptr[1409]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#893*/ melt_assertmsg("putupl #893 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1410*/ meltfptr[1409]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #893 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1410*/ meltfptr[1409])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1410*/ meltfptr[1409]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V1398*/ meltfptr[1397]); /*putupl#894*/ melt_assertmsg("putupl #894 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1410*/ meltfptr[1409]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #894 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1410*/ meltfptr[1409])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1410*/ meltfptr[1409]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V1408*/ meltfptr[1407]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1410*/ meltfptr[1409]); MELT_LOCATION("warmelt-macro.melt:1326:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1311__CLASS_SOURCE_PATTERN_OR @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1405*/ meltfptr[1404])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1311__CLASS_SOURCE_PATTERN_OR @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1405*/ meltfptr[1404])))); ((meltobject_ptr_t)(/*_._VALDATA___V1405*/ meltfptr[1404]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V1410*/ meltfptr[1409]); MELT_LOCATION("warmelt-macro.melt:1326:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1405*/ meltfptr[1404]); MELT_LOCATION("warmelt-macro.melt:1326:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1405*/ meltfptr[1404], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1315__ORPAT_DISJ @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1411*/ meltfptr[1410])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1315__ORPAT_DISJ @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1411*/ meltfptr[1410])))); ((meltobject_ptr_t)(/*_._VALDATA___V1411*/ meltfptr[1410]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1412*/ meltfptr[1411]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1411*/ meltfptr[1410]); melt_dbgtrace_written_object (/*_._VALDATA___V1411*/ meltfptr[1410], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1319__CLASS_SOURCE_PATTERN_AND @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1413*/ meltfptr[1412])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1319__CLASS_SOURCE_PATTERN_AND @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1413*/ meltfptr[1412])))); ((meltobject_ptr_t)(/*_._VALDATA___V1413*/ meltfptr[1412]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1414*/ meltfptr[1413]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1413*/ meltfptr[1412]); melt_dbgtrace_written_object (/*_._VALDATA___V1413*/ meltfptr[1412], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1335:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1321__CLASS_SOURCE_PATTERN_AND @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1415*/ meltfptr[1414])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1321__CLASS_SOURCE_PATTERN_AND @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1415*/ meltfptr[1414])))); ((meltobject_ptr_t)(/*_._VALDATA___V1415*/ meltfptr[1414]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1416*/ meltfptr[1415]); MELT_LOCATION("warmelt-macro.melt:1335:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1321__CLASS_SOURCE_PATTERN_AND @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1415*/ meltfptr[1414])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1321__CLASS_SOURCE_PATTERN_AND @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1415*/ meltfptr[1414])))); ((meltobject_ptr_t)(/*_._VALDATA___V1415*/ meltfptr[1414]))->obj_vartab[4] = (melt_ptr_t)( /*_._VALDATA___V1395*/ meltfptr[1394]); /*putupl#895*/ melt_assertmsg("putupl #895 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1417*/ meltfptr[1416]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #895 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1417*/ meltfptr[1416])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1417*/ meltfptr[1416]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#896*/ melt_assertmsg("putupl #896 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1417*/ meltfptr[1416]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #896 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1417*/ meltfptr[1416])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1417*/ meltfptr[1416]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#897*/ melt_assertmsg("putupl #897 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1417*/ meltfptr[1416]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #897 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1417*/ meltfptr[1416])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1417*/ meltfptr[1416]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#898*/ melt_assertmsg("putupl #898 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1417*/ meltfptr[1416]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #898 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1417*/ meltfptr[1416])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1417*/ meltfptr[1416]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#899*/ melt_assertmsg("putupl #899 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1417*/ meltfptr[1416]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #899 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1417*/ meltfptr[1416])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1417*/ meltfptr[1416]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V1395*/ meltfptr[1394]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1417*/ meltfptr[1416]); MELT_LOCATION("warmelt-macro.melt:1335:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1321__CLASS_SOURCE_PATTERN_AND @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1415*/ meltfptr[1414])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1321__CLASS_SOURCE_PATTERN_AND @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1415*/ meltfptr[1414])))); ((meltobject_ptr_t)(/*_._VALDATA___V1415*/ meltfptr[1414]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V1417*/ meltfptr[1416]); MELT_LOCATION("warmelt-macro.melt:1335:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1327__ANDPAT_CONJ @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1418*/ meltfptr[1417])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1327__ANDPAT_CONJ @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1418*/ meltfptr[1417])))); ((meltobject_ptr_t)(/*_._VALDATA___V1418*/ meltfptr[1417]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1419*/ meltfptr[1418]); MELT_LOCATION("warmelt-macro.melt:1335:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1327__ANDPAT_CONJ @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1418*/ meltfptr[1417])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1327__ANDPAT_CONJ @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1418*/ meltfptr[1417])))); ((meltobject_ptr_t)(/*_._VALDATA___V1418*/ meltfptr[1417]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V1415*/ meltfptr[1414]); MELT_LOCATION("warmelt-macro.melt:1335:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1418*/ meltfptr[1417]); MELT_LOCATION("warmelt-macro.melt:1335:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1418*/ meltfptr[1417], "new static instance"); /*putupl#900*/ melt_assertmsg("putupl #900 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1420*/ meltfptr[1419]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #900 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1420*/ meltfptr[1419])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1420*/ meltfptr[1419]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#901*/ melt_assertmsg("putupl #901 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1420*/ meltfptr[1419]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #901 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1420*/ meltfptr[1419])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1420*/ meltfptr[1419]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#902*/ melt_assertmsg("putupl #902 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1420*/ meltfptr[1419]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #902 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1420*/ meltfptr[1419])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1420*/ meltfptr[1419]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V1398*/ meltfptr[1397]); /*putupl#903*/ melt_assertmsg("putupl #903 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1420*/ meltfptr[1419]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #903 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1420*/ meltfptr[1419])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1420*/ meltfptr[1419]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V1418*/ meltfptr[1417]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1420*/ meltfptr[1419]); MELT_LOCATION("warmelt-macro.melt:1335:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1321__CLASS_SOURCE_PATTERN_AND @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1415*/ meltfptr[1414])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1321__CLASS_SOURCE_PATTERN_AND @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1415*/ meltfptr[1414])))); ((meltobject_ptr_t)(/*_._VALDATA___V1415*/ meltfptr[1414]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V1420*/ meltfptr[1419]); #undef meltfram__ } /*end of meltmod__WARMELTmiMACRO__initialmeltchunk_26*/ void meltmod__WARMELTmiMACRO__initialmeltchunk_27 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; MELT_LOCATION("warmelt-macro.melt:1335:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1415*/ meltfptr[1414]); MELT_LOCATION("warmelt-macro.melt:1335:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1415*/ meltfptr[1414], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1325__ANDPAT_CONJ @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1421*/ meltfptr[1420])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1325__ANDPAT_CONJ @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1421*/ meltfptr[1420])))); ((meltobject_ptr_t)(/*_._VALDATA___V1421*/ meltfptr[1420]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1422*/ meltfptr[1421]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1421*/ meltfptr[1420]); melt_dbgtrace_written_object (/*_._VALDATA___V1421*/ meltfptr[1420], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1329__CLASS_SOURCE_PATTERN_WHEN @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1423*/ meltfptr[1422])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1329__CLASS_SOURCE_PATTERN_WHEN @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1423*/ meltfptr[1422])))); ((meltobject_ptr_t)(/*_._VALDATA___V1423*/ meltfptr[1422]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1424*/ meltfptr[1423]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1423*/ meltfptr[1422]); melt_dbgtrace_written_object (/*_._VALDATA___V1423*/ meltfptr[1422], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1344:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1331__CLASS_SOURCE_PATTERN_WHEN @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1425*/ meltfptr[1424])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1331__CLASS_SOURCE_PATTERN_WHEN @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1425*/ meltfptr[1424])))); ((meltobject_ptr_t)(/*_._VALDATA___V1425*/ meltfptr[1424]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1426*/ meltfptr[1425]); MELT_LOCATION("warmelt-macro.melt:1344:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1331__CLASS_SOURCE_PATTERN_WHEN @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1425*/ meltfptr[1424])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1331__CLASS_SOURCE_PATTERN_WHEN @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1425*/ meltfptr[1424])))); ((meltobject_ptr_t)(/*_._VALDATA___V1425*/ meltfptr[1424]))->obj_vartab[4] = (melt_ptr_t)( /*_._VALDATA___V1395*/ meltfptr[1394]); /*putupl#904*/ melt_assertmsg("putupl #904 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1427*/ meltfptr[1426]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #904 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1427*/ meltfptr[1426])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1427*/ meltfptr[1426]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#905*/ melt_assertmsg("putupl #905 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1427*/ meltfptr[1426]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #905 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1427*/ meltfptr[1426])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1427*/ meltfptr[1426]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#906*/ melt_assertmsg("putupl #906 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1427*/ meltfptr[1426]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #906 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1427*/ meltfptr[1426])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1427*/ meltfptr[1426]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#907*/ melt_assertmsg("putupl #907 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1427*/ meltfptr[1426]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #907 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1427*/ meltfptr[1426])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1427*/ meltfptr[1426]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#908*/ melt_assertmsg("putupl #908 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1427*/ meltfptr[1426]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #908 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1427*/ meltfptr[1426])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1427*/ meltfptr[1426]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V1395*/ meltfptr[1394]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1427*/ meltfptr[1426]); MELT_LOCATION("warmelt-macro.melt:1344:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1331__CLASS_SOURCE_PATTERN_WHEN @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1425*/ meltfptr[1424])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1331__CLASS_SOURCE_PATTERN_WHEN @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1425*/ meltfptr[1424])))); ((meltobject_ptr_t)(/*_._VALDATA___V1425*/ meltfptr[1424]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V1427*/ meltfptr[1426]); MELT_LOCATION("warmelt-macro.melt:1344:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1337__WHENPAT_SUBPAT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1428*/ meltfptr[1427])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1337__WHENPAT_SUBPAT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1428*/ meltfptr[1427])))); ((meltobject_ptr_t)(/*_._VALDATA___V1428*/ meltfptr[1427]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1429*/ meltfptr[1428]); MELT_LOCATION("warmelt-macro.melt:1344:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1337__WHENPAT_SUBPAT @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1428*/ meltfptr[1427])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1337__WHENPAT_SUBPAT @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1428*/ meltfptr[1427])))); ((meltobject_ptr_t)(/*_._VALDATA___V1428*/ meltfptr[1427]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V1425*/ meltfptr[1424]); MELT_LOCATION("warmelt-macro.melt:1344:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1428*/ meltfptr[1427]); MELT_LOCATION("warmelt-macro.melt:1344:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1428*/ meltfptr[1427], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1344:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1341__WHENPAT_COND @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1430*/ meltfptr[1429])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1341__WHENPAT_COND @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1430*/ meltfptr[1429])))); ((meltobject_ptr_t)(/*_._VALDATA___V1430*/ meltfptr[1429]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1431*/ meltfptr[1430]); MELT_LOCATION("warmelt-macro.melt:1344:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1341__WHENPAT_COND @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1430*/ meltfptr[1429])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1341__WHENPAT_COND @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1430*/ meltfptr[1429])))); ((meltobject_ptr_t)(/*_._VALDATA___V1430*/ meltfptr[1429]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V1425*/ meltfptr[1424]); MELT_LOCATION("warmelt-macro.melt:1344:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1430*/ meltfptr[1429]); MELT_LOCATION("warmelt-macro.melt:1344:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1430*/ meltfptr[1429], "new static instance"); /*putupl#909*/ melt_assertmsg("putupl #909 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1432*/ meltfptr[1431]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #909 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1432*/ meltfptr[1431])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1432*/ meltfptr[1431]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#910*/ melt_assertmsg("putupl #910 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1432*/ meltfptr[1431]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #910 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1432*/ meltfptr[1431])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1432*/ meltfptr[1431]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#911*/ melt_assertmsg("putupl #911 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1432*/ meltfptr[1431]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #911 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1432*/ meltfptr[1431])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1432*/ meltfptr[1431]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V1398*/ meltfptr[1397]); /*putupl#912*/ melt_assertmsg("putupl #912 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1432*/ meltfptr[1431]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #912 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1432*/ meltfptr[1431])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1432*/ meltfptr[1431]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V1428*/ meltfptr[1427]); /*putupl#913*/ melt_assertmsg("putupl #913 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1432*/ meltfptr[1431]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #913 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1432*/ meltfptr[1431])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1432*/ meltfptr[1431]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V1430*/ meltfptr[1429]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1432*/ meltfptr[1431]); MELT_LOCATION("warmelt-macro.melt:1344:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1331__CLASS_SOURCE_PATTERN_WHEN @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1425*/ meltfptr[1424])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1331__CLASS_SOURCE_PATTERN_WHEN @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1425*/ meltfptr[1424])))); ((meltobject_ptr_t)(/*_._VALDATA___V1425*/ meltfptr[1424]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V1432*/ meltfptr[1431]); MELT_LOCATION("warmelt-macro.melt:1344:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1425*/ meltfptr[1424]); MELT_LOCATION("warmelt-macro.melt:1344:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1425*/ meltfptr[1424], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1335__WHENPAT_SUBPAT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1433*/ meltfptr[1432])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1335__WHENPAT_SUBPAT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1433*/ meltfptr[1432])))); ((meltobject_ptr_t)(/*_._VALDATA___V1433*/ meltfptr[1432]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1434*/ meltfptr[1433]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1433*/ meltfptr[1432]); melt_dbgtrace_written_object (/*_._VALDATA___V1433*/ meltfptr[1432], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1339__WHENPAT_COND @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1435*/ meltfptr[1434])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1339__WHENPAT_COND @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1435*/ meltfptr[1434])))); ((meltobject_ptr_t)(/*_._VALDATA___V1435*/ meltfptr[1434]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1436*/ meltfptr[1435]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1435*/ meltfptr[1434]); melt_dbgtrace_written_object (/*_._VALDATA___V1435*/ meltfptr[1434], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1343__CLASS_SOURCE_PATTERN_VARIABLE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1437*/ meltfptr[1436])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1343__CLASS_SOURCE_PATTERN_VARIABLE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1437*/ meltfptr[1436])))); ((meltobject_ptr_t)(/*_._VALDATA___V1437*/ meltfptr[1436]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1438*/ meltfptr[1437]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1437*/ meltfptr[1436]); melt_dbgtrace_written_object (/*_._VALDATA___V1437*/ meltfptr[1436], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1356:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1345__CLASS_SOURCE_PATTERN_VARIABLE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1439*/ meltfptr[1438])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1345__CLASS_SOURCE_PATTERN_VARIABLE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1439*/ meltfptr[1438])))); ((meltobject_ptr_t)(/*_._VALDATA___V1439*/ meltfptr[1438]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1440*/ meltfptr[1439]); MELT_LOCATION("warmelt-macro.melt:1356:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1345__CLASS_SOURCE_PATTERN_VARIABLE @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1439*/ meltfptr[1438])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1345__CLASS_SOURCE_PATTERN_VARIABLE @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1439*/ meltfptr[1438])))); ((meltobject_ptr_t)(/*_._VALDATA___V1439*/ meltfptr[1438]))->obj_vartab[4] = (melt_ptr_t)( /*_._VALDATA___V1395*/ meltfptr[1394]); /*putupl#914*/ melt_assertmsg("putupl #914 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1441*/ meltfptr[1440]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #914 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1441*/ meltfptr[1440])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1441*/ meltfptr[1440]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#915*/ melt_assertmsg("putupl #915 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1441*/ meltfptr[1440]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #915 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1441*/ meltfptr[1440])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1441*/ meltfptr[1440]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#916*/ melt_assertmsg("putupl #916 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1441*/ meltfptr[1440]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #916 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1441*/ meltfptr[1440])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1441*/ meltfptr[1440]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#917*/ melt_assertmsg("putupl #917 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1441*/ meltfptr[1440]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #917 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1441*/ meltfptr[1440])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1441*/ meltfptr[1440]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#918*/ melt_assertmsg("putupl #918 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1441*/ meltfptr[1440]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #918 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1441*/ meltfptr[1440])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1441*/ meltfptr[1440]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V1395*/ meltfptr[1394]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1441*/ meltfptr[1440]); MELT_LOCATION("warmelt-macro.melt:1356:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1345__CLASS_SOURCE_PATTERN_VARIABLE @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1439*/ meltfptr[1438])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1345__CLASS_SOURCE_PATTERN_VARIABLE @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1439*/ meltfptr[1438])))); ((meltobject_ptr_t)(/*_._VALDATA___V1439*/ meltfptr[1438]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V1441*/ meltfptr[1440]); MELT_LOCATION("warmelt-macro.melt:1356:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1351__SPATVAR_SYMB @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1442*/ meltfptr[1441])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1351__SPATVAR_SYMB @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1442*/ meltfptr[1441])))); ((meltobject_ptr_t)(/*_._VALDATA___V1442*/ meltfptr[1441]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1443*/ meltfptr[1442]); MELT_LOCATION("warmelt-macro.melt:1356:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1351__SPATVAR_SYMB @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1442*/ meltfptr[1441])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1351__SPATVAR_SYMB @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1442*/ meltfptr[1441])))); ((meltobject_ptr_t)(/*_._VALDATA___V1442*/ meltfptr[1441]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V1439*/ meltfptr[1438]); MELT_LOCATION("warmelt-macro.melt:1356:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1442*/ meltfptr[1441]); MELT_LOCATION("warmelt-macro.melt:1356:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1442*/ meltfptr[1441], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1356:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1355__SPATVAR_NBOCC @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1444*/ meltfptr[1443])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1355__SPATVAR_NBOCC @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1444*/ meltfptr[1443])))); ((meltobject_ptr_t)(/*_._VALDATA___V1444*/ meltfptr[1443]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1445*/ meltfptr[1444]); MELT_LOCATION("warmelt-macro.melt:1356:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1355__SPATVAR_NBOCC @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1444*/ meltfptr[1443])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1355__SPATVAR_NBOCC @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1444*/ meltfptr[1443])))); ((meltobject_ptr_t)(/*_._VALDATA___V1444*/ meltfptr[1443]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V1439*/ meltfptr[1438]); MELT_LOCATION("warmelt-macro.melt:1356:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1444*/ meltfptr[1443]); MELT_LOCATION("warmelt-macro.melt:1356:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1444*/ meltfptr[1443], "new static instance"); /*putupl#919*/ melt_assertmsg("putupl #919 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1446*/ meltfptr[1445]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #919 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1446*/ meltfptr[1445])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1446*/ meltfptr[1445]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#920*/ melt_assertmsg("putupl #920 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1446*/ meltfptr[1445]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #920 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1446*/ meltfptr[1445])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1446*/ meltfptr[1445]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#921*/ melt_assertmsg("putupl #921 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1446*/ meltfptr[1445]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #921 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1446*/ meltfptr[1445])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1446*/ meltfptr[1445]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V1398*/ meltfptr[1397]); /*putupl#922*/ melt_assertmsg("putupl #922 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1446*/ meltfptr[1445]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #922 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1446*/ meltfptr[1445])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1446*/ meltfptr[1445]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V1442*/ meltfptr[1441]); /*putupl#923*/ melt_assertmsg("putupl #923 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1446*/ meltfptr[1445]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #923 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1446*/ meltfptr[1445])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1446*/ meltfptr[1445]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V1444*/ meltfptr[1443]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1446*/ meltfptr[1445]); MELT_LOCATION("warmelt-macro.melt:1356:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1345__CLASS_SOURCE_PATTERN_VARIABLE @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1439*/ meltfptr[1438])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1345__CLASS_SOURCE_PATTERN_VARIABLE @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1439*/ meltfptr[1438])))); ((meltobject_ptr_t)(/*_._VALDATA___V1439*/ meltfptr[1438]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V1446*/ meltfptr[1445]); MELT_LOCATION("warmelt-macro.melt:1356:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1439*/ meltfptr[1438]); MELT_LOCATION("warmelt-macro.melt:1356:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1439*/ meltfptr[1438], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1349__SPATVAR_SYMB @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1447*/ meltfptr[1446])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1349__SPATVAR_SYMB @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1447*/ meltfptr[1446])))); ((meltobject_ptr_t)(/*_._VALDATA___V1447*/ meltfptr[1446]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1448*/ meltfptr[1447]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1447*/ meltfptr[1446]); melt_dbgtrace_written_object (/*_._VALDATA___V1447*/ meltfptr[1446], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1353__SPATVAR_NBOCC @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1449*/ meltfptr[1448])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1353__SPATVAR_NBOCC @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1449*/ meltfptr[1448])))); ((meltobject_ptr_t)(/*_._VALDATA___V1449*/ meltfptr[1448]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1450*/ meltfptr[1449]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1449*/ meltfptr[1448]); melt_dbgtrace_written_object (/*_._VALDATA___V1449*/ meltfptr[1448], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1357__SPAT_VAR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1451*/ meltfptr[1450])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1357__SPAT_VAR @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1451*/ meltfptr[1450])))); ((meltobject_ptr_t)(/*_._VALDATA___V1451*/ meltfptr[1450]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1452*/ meltfptr[1451]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1451*/ meltfptr[1450]); melt_dbgtrace_written_object (/*_._VALDATA___V1451*/ meltfptr[1450], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1359__CLASS_SOURCE_PATTERN_JOKER_VARIABLE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1453*/ meltfptr[1452])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1359__CLASS_SOURCE_PATTERN_JOKER_VARIABLE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1453*/ meltfptr[1452])))); ((meltobject_ptr_t)(/*_._VALDATA___V1453*/ meltfptr[1452]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1454*/ meltfptr[1453]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1453*/ meltfptr[1452]); melt_dbgtrace_written_object (/*_._VALDATA___V1453*/ meltfptr[1452], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1367:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1361__CLASS_SOURCE_PATTERN_JOKER_VARIABLE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1455*/ meltfptr[1454])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1361__CLASS_SOURCE_PATTERN_JOKER_VARIABLE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1455*/ meltfptr[1454])))); ((meltobject_ptr_t)(/*_._VALDATA___V1455*/ meltfptr[1454]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1456*/ meltfptr[1455]); MELT_LOCATION("warmelt-macro.melt:1367:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1361__CLASS_SOURCE_PATTERN_JOKER_VARIABLE @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1455*/ meltfptr[1454])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1361__CLASS_SOURCE_PATTERN_JOKER_VARIABLE @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1455*/ meltfptr[1454])))); ((meltobject_ptr_t)(/*_._VALDATA___V1455*/ meltfptr[1454]))->obj_vartab[4] = (melt_ptr_t)( /*_._VALDATA___V1439*/ meltfptr[1438]); /*putupl#924*/ melt_assertmsg("putupl #924 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1457*/ meltfptr[1456]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #924 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1457*/ meltfptr[1456])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1457*/ meltfptr[1456]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#925*/ melt_assertmsg("putupl #925 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1457*/ meltfptr[1456]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #925 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1457*/ meltfptr[1456])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1457*/ meltfptr[1456]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#926*/ melt_assertmsg("putupl #926 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1457*/ meltfptr[1456]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #926 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1457*/ meltfptr[1456])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1457*/ meltfptr[1456]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#927*/ melt_assertmsg("putupl #927 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1457*/ meltfptr[1456]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #927 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1457*/ meltfptr[1456])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1457*/ meltfptr[1456]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#928*/ melt_assertmsg("putupl #928 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1457*/ meltfptr[1456]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #928 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1457*/ meltfptr[1456])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1457*/ meltfptr[1456]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V1395*/ meltfptr[1394]); /*putupl#929*/ melt_assertmsg("putupl #929 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1457*/ meltfptr[1456]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #929 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1457*/ meltfptr[1456])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1457*/ meltfptr[1456]))->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V1439*/ meltfptr[1438]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1457*/ meltfptr[1456]); MELT_LOCATION("warmelt-macro.melt:1367:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1361__CLASS_SOURCE_PATTERN_JOKER_VARIABLE @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1455*/ meltfptr[1454])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1361__CLASS_SOURCE_PATTERN_JOKER_VARIABLE @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1455*/ meltfptr[1454])))); ((meltobject_ptr_t)(/*_._VALDATA___V1455*/ meltfptr[1454]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V1457*/ meltfptr[1456]); /*putupl#930*/ melt_assertmsg("putupl #930 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1458*/ meltfptr[1457]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #930 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1458*/ meltfptr[1457])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1458*/ meltfptr[1457]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#931*/ melt_assertmsg("putupl #931 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1458*/ meltfptr[1457]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #931 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1458*/ meltfptr[1457])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1458*/ meltfptr[1457]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#932*/ melt_assertmsg("putupl #932 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1458*/ meltfptr[1457]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #932 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1458*/ meltfptr[1457])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1458*/ meltfptr[1457]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V1398*/ meltfptr[1397]); /*putupl#933*/ melt_assertmsg("putupl #933 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1458*/ meltfptr[1457]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #933 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1458*/ meltfptr[1457])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1458*/ meltfptr[1457]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V1442*/ meltfptr[1441]); /*putupl#934*/ melt_assertmsg("putupl #934 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1458*/ meltfptr[1457]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #934 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1458*/ meltfptr[1457])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1458*/ meltfptr[1457]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V1444*/ meltfptr[1443]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1458*/ meltfptr[1457]); MELT_LOCATION("warmelt-macro.melt:1367:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1361__CLASS_SOURCE_PATTERN_JOKER_VARIABLE @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1455*/ meltfptr[1454])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1361__CLASS_SOURCE_PATTERN_JOKER_VARIABLE @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1455*/ meltfptr[1454])))); ((meltobject_ptr_t)(/*_._VALDATA___V1455*/ meltfptr[1454]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V1458*/ meltfptr[1457]); MELT_LOCATION("warmelt-macro.melt:1367:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1455*/ meltfptr[1454]); MELT_LOCATION("warmelt-macro.melt:1367:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1455*/ meltfptr[1454], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1365__CLASS_SOURCE_PATTERN_CONSTANT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1459*/ meltfptr[1458])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1365__CLASS_SOURCE_PATTERN_CONSTANT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1459*/ meltfptr[1458])))); ((meltobject_ptr_t)(/*_._VALDATA___V1459*/ meltfptr[1458]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1460*/ meltfptr[1459]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1459*/ meltfptr[1458]); melt_dbgtrace_written_object (/*_._VALDATA___V1459*/ meltfptr[1458], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1374:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1367__CLASS_SOURCE_PATTERN_CONSTANT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1461*/ meltfptr[1460])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1367__CLASS_SOURCE_PATTERN_CONSTANT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1461*/ meltfptr[1460])))); ((meltobject_ptr_t)(/*_._VALDATA___V1461*/ meltfptr[1460]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1462*/ meltfptr[1461]); MELT_LOCATION("warmelt-macro.melt:1374:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1367__CLASS_SOURCE_PATTERN_CONSTANT @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1461*/ meltfptr[1460])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1367__CLASS_SOURCE_PATTERN_CONSTANT @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1461*/ meltfptr[1460])))); ((meltobject_ptr_t)(/*_._VALDATA___V1461*/ meltfptr[1460]))->obj_vartab[4] = (melt_ptr_t)( /*_._VALDATA___V1395*/ meltfptr[1394]); /*putupl#935*/ melt_assertmsg("putupl #935 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1463*/ meltfptr[1462]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #935 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1463*/ meltfptr[1462])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1463*/ meltfptr[1462]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#936*/ melt_assertmsg("putupl #936 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1463*/ meltfptr[1462]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #936 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1463*/ meltfptr[1462])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1463*/ meltfptr[1462]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#937*/ melt_assertmsg("putupl #937 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1463*/ meltfptr[1462]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #937 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1463*/ meltfptr[1462])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1463*/ meltfptr[1462]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#938*/ melt_assertmsg("putupl #938 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1463*/ meltfptr[1462]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #938 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1463*/ meltfptr[1462])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1463*/ meltfptr[1462]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#939*/ melt_assertmsg("putupl #939 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1463*/ meltfptr[1462]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #939 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1463*/ meltfptr[1462])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1463*/ meltfptr[1462]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V1395*/ meltfptr[1394]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1463*/ meltfptr[1462]); MELT_LOCATION("warmelt-macro.melt:1374:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1367__CLASS_SOURCE_PATTERN_CONSTANT @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1461*/ meltfptr[1460])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1367__CLASS_SOURCE_PATTERN_CONSTANT @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1461*/ meltfptr[1460])))); ((meltobject_ptr_t)(/*_._VALDATA___V1461*/ meltfptr[1460]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V1463*/ meltfptr[1462]); MELT_LOCATION("warmelt-macro.melt:1374:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1373__SPAT_CONSTX @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1464*/ meltfptr[1463])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1373__SPAT_CONSTX @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1464*/ meltfptr[1463])))); ((meltobject_ptr_t)(/*_._VALDATA___V1464*/ meltfptr[1463]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1465*/ meltfptr[1464]); MELT_LOCATION("warmelt-macro.melt:1374:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1373__SPAT_CONSTX @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1464*/ meltfptr[1463])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1373__SPAT_CONSTX @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1464*/ meltfptr[1463])))); ((meltobject_ptr_t)(/*_._VALDATA___V1464*/ meltfptr[1463]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V1461*/ meltfptr[1460]); MELT_LOCATION("warmelt-macro.melt:1374:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1464*/ meltfptr[1463]); MELT_LOCATION("warmelt-macro.melt:1374:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1464*/ meltfptr[1463], "new static instance"); /*putupl#940*/ melt_assertmsg("putupl #940 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1466*/ meltfptr[1465]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #940 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1466*/ meltfptr[1465])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1466*/ meltfptr[1465]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#941*/ melt_assertmsg("putupl #941 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1466*/ meltfptr[1465]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #941 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1466*/ meltfptr[1465])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1466*/ meltfptr[1465]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#942*/ melt_assertmsg("putupl #942 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1466*/ meltfptr[1465]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #942 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1466*/ meltfptr[1465])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1466*/ meltfptr[1465]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V1398*/ meltfptr[1397]); /*putupl#943*/ melt_assertmsg("putupl #943 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1466*/ meltfptr[1465]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #943 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1466*/ meltfptr[1465])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1466*/ meltfptr[1465]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V1464*/ meltfptr[1463]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1466*/ meltfptr[1465]); MELT_LOCATION("warmelt-macro.melt:1374:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1367__CLASS_SOURCE_PATTERN_CONSTANT @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1461*/ meltfptr[1460])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1367__CLASS_SOURCE_PATTERN_CONSTANT @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1461*/ meltfptr[1460])))); ((meltobject_ptr_t)(/*_._VALDATA___V1461*/ meltfptr[1460]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V1466*/ meltfptr[1465]); MELT_LOCATION("warmelt-macro.melt:1374:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1461*/ meltfptr[1460]); MELT_LOCATION("warmelt-macro.melt:1374:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1461*/ meltfptr[1460], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1371__SPAT_CONSTX @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1467*/ meltfptr[1466])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1371__SPAT_CONSTX @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1467*/ meltfptr[1466])))); ((meltobject_ptr_t)(/*_._VALDATA___V1467*/ meltfptr[1466]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1468*/ meltfptr[1467]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1467*/ meltfptr[1466]); melt_dbgtrace_written_object (/*_._VALDATA___V1467*/ meltfptr[1466], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1375__CLASS_SOURCE_PATTERN_CONSTRUCT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1469*/ meltfptr[1468])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1375__CLASS_SOURCE_PATTERN_CONSTRUCT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1469*/ meltfptr[1468])))); ((meltobject_ptr_t)(/*_._VALDATA___V1469*/ meltfptr[1468]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1470*/ meltfptr[1469]); #undef meltfram__ } /*end of meltmod__WARMELTmiMACRO__initialmeltchunk_27*/ void meltmod__WARMELTmiMACRO__initialmeltchunk_28 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1469*/ meltfptr[1468]); melt_dbgtrace_written_object (/*_._VALDATA___V1469*/ meltfptr[1468], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1383:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1377__CLASS_SOURCE_PATTERN_CONSTRUCT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1471*/ meltfptr[1470])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1377__CLASS_SOURCE_PATTERN_CONSTRUCT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1471*/ meltfptr[1470])))); ((meltobject_ptr_t)(/*_._VALDATA___V1471*/ meltfptr[1470]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1472*/ meltfptr[1471]); MELT_LOCATION("warmelt-macro.melt:1383:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1377__CLASS_SOURCE_PATTERN_CONSTRUCT @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1471*/ meltfptr[1470])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1377__CLASS_SOURCE_PATTERN_CONSTRUCT @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1471*/ meltfptr[1470])))); ((meltobject_ptr_t)(/*_._VALDATA___V1471*/ meltfptr[1470]))->obj_vartab[4] = (melt_ptr_t)( /*_._VALDATA___V1395*/ meltfptr[1394]); /*putupl#944*/ melt_assertmsg("putupl #944 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1473*/ meltfptr[1472]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #944 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1473*/ meltfptr[1472])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1473*/ meltfptr[1472]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#945*/ melt_assertmsg("putupl #945 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1473*/ meltfptr[1472]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #945 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1473*/ meltfptr[1472])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1473*/ meltfptr[1472]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#946*/ melt_assertmsg("putupl #946 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1473*/ meltfptr[1472]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #946 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1473*/ meltfptr[1472])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1473*/ meltfptr[1472]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#947*/ melt_assertmsg("putupl #947 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1473*/ meltfptr[1472]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #947 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1473*/ meltfptr[1472])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1473*/ meltfptr[1472]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#948*/ melt_assertmsg("putupl #948 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1473*/ meltfptr[1472]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #948 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1473*/ meltfptr[1472])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1473*/ meltfptr[1472]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V1395*/ meltfptr[1394]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1473*/ meltfptr[1472]); MELT_LOCATION("warmelt-macro.melt:1383:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1377__CLASS_SOURCE_PATTERN_CONSTRUCT @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1471*/ meltfptr[1470])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1377__CLASS_SOURCE_PATTERN_CONSTRUCT @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1471*/ meltfptr[1470])))); ((meltobject_ptr_t)(/*_._VALDATA___V1471*/ meltfptr[1470]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V1473*/ meltfptr[1472]); MELT_LOCATION("warmelt-macro.melt:1383:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1383__CTPAT_SUBPA @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1474*/ meltfptr[1473])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1383__CTPAT_SUBPA @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1474*/ meltfptr[1473])))); ((meltobject_ptr_t)(/*_._VALDATA___V1474*/ meltfptr[1473]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1475*/ meltfptr[1474]); MELT_LOCATION("warmelt-macro.melt:1383:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1383__CTPAT_SUBPA @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1474*/ meltfptr[1473])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1383__CTPAT_SUBPA @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1474*/ meltfptr[1473])))); ((meltobject_ptr_t)(/*_._VALDATA___V1474*/ meltfptr[1473]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V1471*/ meltfptr[1470]); MELT_LOCATION("warmelt-macro.melt:1383:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1474*/ meltfptr[1473]); MELT_LOCATION("warmelt-macro.melt:1383:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1474*/ meltfptr[1473], "new static instance"); /*putupl#949*/ melt_assertmsg("putupl #949 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1476*/ meltfptr[1475]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #949 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1476*/ meltfptr[1475])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1476*/ meltfptr[1475]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#950*/ melt_assertmsg("putupl #950 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1476*/ meltfptr[1475]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #950 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1476*/ meltfptr[1475])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1476*/ meltfptr[1475]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#951*/ melt_assertmsg("putupl #951 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1476*/ meltfptr[1475]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #951 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1476*/ meltfptr[1475])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1476*/ meltfptr[1475]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V1398*/ meltfptr[1397]); /*putupl#952*/ melt_assertmsg("putupl #952 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1476*/ meltfptr[1475]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #952 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1476*/ meltfptr[1475])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1476*/ meltfptr[1475]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V1474*/ meltfptr[1473]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1476*/ meltfptr[1475]); MELT_LOCATION("warmelt-macro.melt:1383:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1377__CLASS_SOURCE_PATTERN_CONSTRUCT @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1471*/ meltfptr[1470])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1377__CLASS_SOURCE_PATTERN_CONSTRUCT @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1471*/ meltfptr[1470])))); ((meltobject_ptr_t)(/*_._VALDATA___V1471*/ meltfptr[1470]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V1476*/ meltfptr[1475]); MELT_LOCATION("warmelt-macro.melt:1383:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1471*/ meltfptr[1470]); MELT_LOCATION("warmelt-macro.melt:1383:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1471*/ meltfptr[1470], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1381__CTPAT_SUBPA @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1477*/ meltfptr[1476])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1381__CTPAT_SUBPA @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1477*/ meltfptr[1476])))); ((meltobject_ptr_t)(/*_._VALDATA___V1477*/ meltfptr[1476]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1478*/ meltfptr[1477]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1477*/ meltfptr[1476]); melt_dbgtrace_written_object (/*_._VALDATA___V1477*/ meltfptr[1476], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1385__CLASS_SOURCE_PATTERN_TUPLE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1479*/ meltfptr[1478])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1385__CLASS_SOURCE_PATTERN_TUPLE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1479*/ meltfptr[1478])))); ((meltobject_ptr_t)(/*_._VALDATA___V1479*/ meltfptr[1478]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1480*/ meltfptr[1479]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1479*/ meltfptr[1478]); melt_dbgtrace_written_object (/*_._VALDATA___V1479*/ meltfptr[1478], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1392:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1387__CLASS_SOURCE_PATTERN_TUPLE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1481*/ meltfptr[1480])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1387__CLASS_SOURCE_PATTERN_TUPLE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1481*/ meltfptr[1480])))); ((meltobject_ptr_t)(/*_._VALDATA___V1481*/ meltfptr[1480]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1482*/ meltfptr[1481]); MELT_LOCATION("warmelt-macro.melt:1392:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1387__CLASS_SOURCE_PATTERN_TUPLE @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1481*/ meltfptr[1480])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1387__CLASS_SOURCE_PATTERN_TUPLE @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1481*/ meltfptr[1480])))); ((meltobject_ptr_t)(/*_._VALDATA___V1481*/ meltfptr[1480]))->obj_vartab[4] = (melt_ptr_t)( /*_._VALDATA___V1471*/ meltfptr[1470]); /*putupl#953*/ melt_assertmsg("putupl #953 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1483*/ meltfptr[1482]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #953 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1483*/ meltfptr[1482])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1483*/ meltfptr[1482]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#954*/ melt_assertmsg("putupl #954 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1483*/ meltfptr[1482]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #954 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1483*/ meltfptr[1482])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1483*/ meltfptr[1482]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#955*/ melt_assertmsg("putupl #955 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1483*/ meltfptr[1482]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #955 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1483*/ meltfptr[1482])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1483*/ meltfptr[1482]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#956*/ melt_assertmsg("putupl #956 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1483*/ meltfptr[1482]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #956 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1483*/ meltfptr[1482])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1483*/ meltfptr[1482]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#957*/ melt_assertmsg("putupl #957 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1483*/ meltfptr[1482]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #957 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1483*/ meltfptr[1482])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1483*/ meltfptr[1482]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V1395*/ meltfptr[1394]); /*putupl#958*/ melt_assertmsg("putupl #958 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1483*/ meltfptr[1482]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #958 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1483*/ meltfptr[1482])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1483*/ meltfptr[1482]))->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V1471*/ meltfptr[1470]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1483*/ meltfptr[1482]); MELT_LOCATION("warmelt-macro.melt:1392:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1387__CLASS_SOURCE_PATTERN_TUPLE @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1481*/ meltfptr[1480])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1387__CLASS_SOURCE_PATTERN_TUPLE @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1481*/ meltfptr[1480])))); ((meltobject_ptr_t)(/*_._VALDATA___V1481*/ meltfptr[1480]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V1483*/ meltfptr[1482]); /*putupl#959*/ melt_assertmsg("putupl #959 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1484*/ meltfptr[1483]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #959 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1484*/ meltfptr[1483])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1484*/ meltfptr[1483]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#960*/ melt_assertmsg("putupl #960 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1484*/ meltfptr[1483]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #960 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1484*/ meltfptr[1483])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1484*/ meltfptr[1483]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#961*/ melt_assertmsg("putupl #961 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1484*/ meltfptr[1483]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #961 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1484*/ meltfptr[1483])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1484*/ meltfptr[1483]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V1398*/ meltfptr[1397]); /*putupl#962*/ melt_assertmsg("putupl #962 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1484*/ meltfptr[1483]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #962 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1484*/ meltfptr[1483])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1484*/ meltfptr[1483]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V1474*/ meltfptr[1473]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1484*/ meltfptr[1483]); MELT_LOCATION("warmelt-macro.melt:1392:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1387__CLASS_SOURCE_PATTERN_TUPLE @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1481*/ meltfptr[1480])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1387__CLASS_SOURCE_PATTERN_TUPLE @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1481*/ meltfptr[1480])))); ((meltobject_ptr_t)(/*_._VALDATA___V1481*/ meltfptr[1480]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V1484*/ meltfptr[1483]); MELT_LOCATION("warmelt-macro.melt:1392:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1481*/ meltfptr[1480]); MELT_LOCATION("warmelt-macro.melt:1392:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1481*/ meltfptr[1480], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1391__CLASS_SOURCE_PATTERN_LIST @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1485*/ meltfptr[1484])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1391__CLASS_SOURCE_PATTERN_LIST @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1485*/ meltfptr[1484])))); ((meltobject_ptr_t)(/*_._VALDATA___V1485*/ meltfptr[1484]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1486*/ meltfptr[1485]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1485*/ meltfptr[1484]); melt_dbgtrace_written_object (/*_._VALDATA___V1485*/ meltfptr[1484], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1399:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1393__CLASS_SOURCE_PATTERN_LIST @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1487*/ meltfptr[1486])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1393__CLASS_SOURCE_PATTERN_LIST @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1487*/ meltfptr[1486])))); ((meltobject_ptr_t)(/*_._VALDATA___V1487*/ meltfptr[1486]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1488*/ meltfptr[1487]); MELT_LOCATION("warmelt-macro.melt:1399:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1393__CLASS_SOURCE_PATTERN_LIST @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1487*/ meltfptr[1486])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1393__CLASS_SOURCE_PATTERN_LIST @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1487*/ meltfptr[1486])))); ((meltobject_ptr_t)(/*_._VALDATA___V1487*/ meltfptr[1486]))->obj_vartab[4] = (melt_ptr_t)( /*_._VALDATA___V1471*/ meltfptr[1470]); /*putupl#963*/ melt_assertmsg("putupl #963 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1489*/ meltfptr[1488]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #963 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1489*/ meltfptr[1488])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1489*/ meltfptr[1488]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#964*/ melt_assertmsg("putupl #964 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1489*/ meltfptr[1488]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #964 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1489*/ meltfptr[1488])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1489*/ meltfptr[1488]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#965*/ melt_assertmsg("putupl #965 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1489*/ meltfptr[1488]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #965 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1489*/ meltfptr[1488])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1489*/ meltfptr[1488]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#966*/ melt_assertmsg("putupl #966 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1489*/ meltfptr[1488]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #966 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1489*/ meltfptr[1488])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1489*/ meltfptr[1488]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#967*/ melt_assertmsg("putupl #967 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1489*/ meltfptr[1488]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #967 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1489*/ meltfptr[1488])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1489*/ meltfptr[1488]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V1395*/ meltfptr[1394]); /*putupl#968*/ melt_assertmsg("putupl #968 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1489*/ meltfptr[1488]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #968 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1489*/ meltfptr[1488])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1489*/ meltfptr[1488]))->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V1471*/ meltfptr[1470]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1489*/ meltfptr[1488]); MELT_LOCATION("warmelt-macro.melt:1399:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1393__CLASS_SOURCE_PATTERN_LIST @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1487*/ meltfptr[1486])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1393__CLASS_SOURCE_PATTERN_LIST @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1487*/ meltfptr[1486])))); ((meltobject_ptr_t)(/*_._VALDATA___V1487*/ meltfptr[1486]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V1489*/ meltfptr[1488]); /*putupl#969*/ melt_assertmsg("putupl #969 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1490*/ meltfptr[1489]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #969 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1490*/ meltfptr[1489])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1490*/ meltfptr[1489]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#970*/ melt_assertmsg("putupl #970 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1490*/ meltfptr[1489]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #970 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1490*/ meltfptr[1489])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1490*/ meltfptr[1489]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#971*/ melt_assertmsg("putupl #971 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1490*/ meltfptr[1489]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #971 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1490*/ meltfptr[1489])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1490*/ meltfptr[1489]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V1398*/ meltfptr[1397]); /*putupl#972*/ melt_assertmsg("putupl #972 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1490*/ meltfptr[1489]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #972 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1490*/ meltfptr[1489])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1490*/ meltfptr[1489]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V1474*/ meltfptr[1473]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1490*/ meltfptr[1489]); MELT_LOCATION("warmelt-macro.melt:1399:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1393__CLASS_SOURCE_PATTERN_LIST @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1487*/ meltfptr[1486])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1393__CLASS_SOURCE_PATTERN_LIST @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1487*/ meltfptr[1486])))); ((meltobject_ptr_t)(/*_._VALDATA___V1487*/ meltfptr[1486]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V1490*/ meltfptr[1489]); MELT_LOCATION("warmelt-macro.melt:1399:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1487*/ meltfptr[1486]); MELT_LOCATION("warmelt-macro.melt:1399:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1487*/ meltfptr[1486], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1397__CLASS_SOURCE_PATTERN_OBJECT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1491*/ meltfptr[1490])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1397__CLASS_SOURCE_PATTERN_OBJECT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1491*/ meltfptr[1490])))); ((meltobject_ptr_t)(/*_._VALDATA___V1491*/ meltfptr[1490]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1492*/ meltfptr[1491]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1491*/ meltfptr[1490]); melt_dbgtrace_written_object (/*_._VALDATA___V1491*/ meltfptr[1490], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1407:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1399__CLASS_SOURCE_PATTERN_OBJECT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1493*/ meltfptr[1492])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1399__CLASS_SOURCE_PATTERN_OBJECT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1493*/ meltfptr[1492])))); ((meltobject_ptr_t)(/*_._VALDATA___V1493*/ meltfptr[1492]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1494*/ meltfptr[1493]); MELT_LOCATION("warmelt-macro.melt:1407:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1399__CLASS_SOURCE_PATTERN_OBJECT @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1493*/ meltfptr[1492])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1399__CLASS_SOURCE_PATTERN_OBJECT @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1493*/ meltfptr[1492])))); ((meltobject_ptr_t)(/*_._VALDATA___V1493*/ meltfptr[1492]))->obj_vartab[4] = (melt_ptr_t)( /*_._VALDATA___V1395*/ meltfptr[1394]); /*putupl#973*/ melt_assertmsg("putupl #973 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1495*/ meltfptr[1494]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #973 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1495*/ meltfptr[1494])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1495*/ meltfptr[1494]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#974*/ melt_assertmsg("putupl #974 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1495*/ meltfptr[1494]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #974 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1495*/ meltfptr[1494])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1495*/ meltfptr[1494]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#975*/ melt_assertmsg("putupl #975 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1495*/ meltfptr[1494]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #975 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1495*/ meltfptr[1494])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1495*/ meltfptr[1494]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#976*/ melt_assertmsg("putupl #976 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1495*/ meltfptr[1494]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #976 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1495*/ meltfptr[1494])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1495*/ meltfptr[1494]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#977*/ melt_assertmsg("putupl #977 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1495*/ meltfptr[1494]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #977 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1495*/ meltfptr[1494])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1495*/ meltfptr[1494]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V1395*/ meltfptr[1394]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1495*/ meltfptr[1494]); MELT_LOCATION("warmelt-macro.melt:1407:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1399__CLASS_SOURCE_PATTERN_OBJECT @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1493*/ meltfptr[1492])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1399__CLASS_SOURCE_PATTERN_OBJECT @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1493*/ meltfptr[1492])))); ((meltobject_ptr_t)(/*_._VALDATA___V1493*/ meltfptr[1492]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V1495*/ meltfptr[1494]); MELT_LOCATION("warmelt-macro.melt:1407:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1405__SPAT_CLASS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1496*/ meltfptr[1495])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1405__SPAT_CLASS @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1496*/ meltfptr[1495])))); ((meltobject_ptr_t)(/*_._VALDATA___V1496*/ meltfptr[1495]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1497*/ meltfptr[1496]); MELT_LOCATION("warmelt-macro.melt:1407:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1405__SPAT_CLASS @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1496*/ meltfptr[1495])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1405__SPAT_CLASS @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1496*/ meltfptr[1495])))); ((meltobject_ptr_t)(/*_._VALDATA___V1496*/ meltfptr[1495]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V1493*/ meltfptr[1492]); MELT_LOCATION("warmelt-macro.melt:1407:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1496*/ meltfptr[1495]); MELT_LOCATION("warmelt-macro.melt:1407:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1496*/ meltfptr[1495], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1407:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1409__SPAT_FIELDS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1498*/ meltfptr[1497])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1409__SPAT_FIELDS @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1498*/ meltfptr[1497])))); ((meltobject_ptr_t)(/*_._VALDATA___V1498*/ meltfptr[1497]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1499*/ meltfptr[1498]); MELT_LOCATION("warmelt-macro.melt:1407:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1409__SPAT_FIELDS @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1498*/ meltfptr[1497])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1409__SPAT_FIELDS @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1498*/ meltfptr[1497])))); ((meltobject_ptr_t)(/*_._VALDATA___V1498*/ meltfptr[1497]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V1493*/ meltfptr[1492]); MELT_LOCATION("warmelt-macro.melt:1407:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1498*/ meltfptr[1497]); MELT_LOCATION("warmelt-macro.melt:1407:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1498*/ meltfptr[1497], "new static instance"); /*putupl#978*/ melt_assertmsg("putupl #978 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1500*/ meltfptr[1499]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #978 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1500*/ meltfptr[1499])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1500*/ meltfptr[1499]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#979*/ melt_assertmsg("putupl #979 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1500*/ meltfptr[1499]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #979 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1500*/ meltfptr[1499])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1500*/ meltfptr[1499]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#980*/ melt_assertmsg("putupl #980 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1500*/ meltfptr[1499]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #980 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1500*/ meltfptr[1499])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1500*/ meltfptr[1499]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V1398*/ meltfptr[1397]); /*putupl#981*/ melt_assertmsg("putupl #981 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1500*/ meltfptr[1499]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #981 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1500*/ meltfptr[1499])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1500*/ meltfptr[1499]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V1496*/ meltfptr[1495]); /*putupl#982*/ melt_assertmsg("putupl #982 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1500*/ meltfptr[1499]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #982 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1500*/ meltfptr[1499])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1500*/ meltfptr[1499]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V1498*/ meltfptr[1497]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1500*/ meltfptr[1499]); MELT_LOCATION("warmelt-macro.melt:1407:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1399__CLASS_SOURCE_PATTERN_OBJECT @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1493*/ meltfptr[1492])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1399__CLASS_SOURCE_PATTERN_OBJECT @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1493*/ meltfptr[1492])))); ((meltobject_ptr_t)(/*_._VALDATA___V1493*/ meltfptr[1492]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V1500*/ meltfptr[1499]); MELT_LOCATION("warmelt-macro.melt:1407:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1493*/ meltfptr[1492]); MELT_LOCATION("warmelt-macro.melt:1407:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1493*/ meltfptr[1492], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1403__SPAT_CLASS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1501*/ meltfptr[1500])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1403__SPAT_CLASS @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1501*/ meltfptr[1500])))); ((meltobject_ptr_t)(/*_._VALDATA___V1501*/ meltfptr[1500]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1502*/ meltfptr[1501]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1501*/ meltfptr[1500]); melt_dbgtrace_written_object (/*_._VALDATA___V1501*/ meltfptr[1500], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1407__SPAT_FIELDS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1503*/ meltfptr[1502])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1407__SPAT_FIELDS @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1503*/ meltfptr[1502])))); ((meltobject_ptr_t)(/*_._VALDATA___V1503*/ meltfptr[1502]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1504*/ meltfptr[1503]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1503*/ meltfptr[1502]); melt_dbgtrace_written_object (/*_._VALDATA___V1503*/ meltfptr[1502], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1411__CLASS_SOURCE_PATTERN_INSTANCE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1505*/ meltfptr[1504])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1411__CLASS_SOURCE_PATTERN_INSTANCE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1505*/ meltfptr[1504])))); ((meltobject_ptr_t)(/*_._VALDATA___V1505*/ meltfptr[1504]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1506*/ meltfptr[1505]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1505*/ meltfptr[1504]); melt_dbgtrace_written_object (/*_._VALDATA___V1505*/ meltfptr[1504], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1419:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1413__CLASS_SOURCE_PATTERN_INSTANCE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1507*/ meltfptr[1506])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1413__CLASS_SOURCE_PATTERN_INSTANCE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1507*/ meltfptr[1506])))); ((meltobject_ptr_t)(/*_._VALDATA___V1507*/ meltfptr[1506]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1508*/ meltfptr[1507]); MELT_LOCATION("warmelt-macro.melt:1419:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1413__CLASS_SOURCE_PATTERN_INSTANCE @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1507*/ meltfptr[1506])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1413__CLASS_SOURCE_PATTERN_INSTANCE @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1507*/ meltfptr[1506])))); ((meltobject_ptr_t)(/*_._VALDATA___V1507*/ meltfptr[1506]))->obj_vartab[4] = (melt_ptr_t)( /*_._VALDATA___V1493*/ meltfptr[1492]); /*putupl#983*/ melt_assertmsg("putupl #983 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1509*/ meltfptr[1508]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #983 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1509*/ meltfptr[1508])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1509*/ meltfptr[1508]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#984*/ melt_assertmsg("putupl #984 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1509*/ meltfptr[1508]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #984 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1509*/ meltfptr[1508])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1509*/ meltfptr[1508]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#985*/ melt_assertmsg("putupl #985 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1509*/ meltfptr[1508]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #985 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1509*/ meltfptr[1508])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1509*/ meltfptr[1508]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#986*/ melt_assertmsg("putupl #986 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1509*/ meltfptr[1508]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #986 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1509*/ meltfptr[1508])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1509*/ meltfptr[1508]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#987*/ melt_assertmsg("putupl #987 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1509*/ meltfptr[1508]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #987 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1509*/ meltfptr[1508])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1509*/ meltfptr[1508]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V1395*/ meltfptr[1394]); /*putupl#988*/ melt_assertmsg("putupl #988 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1509*/ meltfptr[1508]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #988 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1509*/ meltfptr[1508])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1509*/ meltfptr[1508]))->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V1493*/ meltfptr[1492]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1509*/ meltfptr[1508]); MELT_LOCATION("warmelt-macro.melt:1419:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1413__CLASS_SOURCE_PATTERN_INSTANCE @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1507*/ meltfptr[1506])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1413__CLASS_SOURCE_PATTERN_INSTANCE @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1507*/ meltfptr[1506])))); ((meltobject_ptr_t)(/*_._VALDATA___V1507*/ meltfptr[1506]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V1509*/ meltfptr[1508]); /*putupl#989*/ melt_assertmsg("putupl #989 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1510*/ meltfptr[1509]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #989 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1510*/ meltfptr[1509])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1510*/ meltfptr[1509]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#990*/ melt_assertmsg("putupl #990 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1510*/ meltfptr[1509]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #990 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1510*/ meltfptr[1509])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1510*/ meltfptr[1509]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#991*/ melt_assertmsg("putupl #991 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1510*/ meltfptr[1509]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #991 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1510*/ meltfptr[1509])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1510*/ meltfptr[1509]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V1398*/ meltfptr[1397]); /*putupl#992*/ melt_assertmsg("putupl #992 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1510*/ meltfptr[1509]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #992 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1510*/ meltfptr[1509])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1510*/ meltfptr[1509]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V1496*/ meltfptr[1495]); /*putupl#993*/ melt_assertmsg("putupl #993 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1510*/ meltfptr[1509]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #993 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1510*/ meltfptr[1509])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1510*/ meltfptr[1509]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V1498*/ meltfptr[1497]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1510*/ meltfptr[1509]); MELT_LOCATION("warmelt-macro.melt:1419:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1413__CLASS_SOURCE_PATTERN_INSTANCE @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1507*/ meltfptr[1506])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1413__CLASS_SOURCE_PATTERN_INSTANCE @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1507*/ meltfptr[1506])))); ((meltobject_ptr_t)(/*_._VALDATA___V1507*/ meltfptr[1506]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V1510*/ meltfptr[1509]); MELT_LOCATION("warmelt-macro.melt:1419:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1507*/ meltfptr[1506]); MELT_LOCATION("warmelt-macro.melt:1419:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1507*/ meltfptr[1506], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1417__CLASS_SOURCE_FIELD_PATTERN @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1511*/ meltfptr[1510])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1417__CLASS_SOURCE_FIELD_PATTERN @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1511*/ meltfptr[1510])))); ((meltobject_ptr_t)(/*_._VALDATA___V1511*/ meltfptr[1510]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1512*/ meltfptr[1511]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1511*/ meltfptr[1510]); melt_dbgtrace_written_object (/*_._VALDATA___V1511*/ meltfptr[1510], "new static instance"); #undef meltfram__ } /*end of meltmod__WARMELTmiMACRO__initialmeltchunk_28*/ void meltmod__WARMELTmiMACRO__initialmeltchunk_29 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; MELT_LOCATION("warmelt-macro.melt:1427:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1419__CLASS_SOURCE_FIELD_PATTERN @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1513*/ meltfptr[1512])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1419__CLASS_SOURCE_FIELD_PATTERN @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1513*/ meltfptr[1512])))); ((meltobject_ptr_t)(/*_._VALDATA___V1513*/ meltfptr[1512]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1514*/ meltfptr[1513]); MELT_LOCATION("warmelt-macro.melt:1427:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1419__CLASS_SOURCE_FIELD_PATTERN @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1513*/ meltfptr[1512])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1419__CLASS_SOURCE_FIELD_PATTERN @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1513*/ meltfptr[1512])))); ((meltobject_ptr_t)(/*_._VALDATA___V1513*/ meltfptr[1512]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#994*/ melt_assertmsg("putupl #994 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1515*/ meltfptr[1514]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #994 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1515*/ meltfptr[1514])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1515*/ meltfptr[1514]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#995*/ melt_assertmsg("putupl #995 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1515*/ meltfptr[1514]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #995 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1515*/ meltfptr[1514])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1515*/ meltfptr[1514]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#996*/ melt_assertmsg("putupl #996 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1515*/ meltfptr[1514]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #996 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1515*/ meltfptr[1514])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1515*/ meltfptr[1514]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#997*/ melt_assertmsg("putupl #997 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1515*/ meltfptr[1514]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #997 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1515*/ meltfptr[1514])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1515*/ meltfptr[1514]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1515*/ meltfptr[1514]); MELT_LOCATION("warmelt-macro.melt:1427:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1419__CLASS_SOURCE_FIELD_PATTERN @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1513*/ meltfptr[1512])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1419__CLASS_SOURCE_FIELD_PATTERN @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1513*/ meltfptr[1512])))); ((meltobject_ptr_t)(/*_._VALDATA___V1513*/ meltfptr[1512]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V1515*/ meltfptr[1514]); MELT_LOCATION("warmelt-macro.melt:1427:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1425__SPAF_FIELD @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1516*/ meltfptr[1515])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1425__SPAF_FIELD @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1516*/ meltfptr[1515])))); ((meltobject_ptr_t)(/*_._VALDATA___V1516*/ meltfptr[1515]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1517*/ meltfptr[1516]); MELT_LOCATION("warmelt-macro.melt:1427:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1425__SPAF_FIELD @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1516*/ meltfptr[1515])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1425__SPAF_FIELD @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1516*/ meltfptr[1515])))); ((meltobject_ptr_t)(/*_._VALDATA___V1516*/ meltfptr[1515]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V1513*/ meltfptr[1512]); MELT_LOCATION("warmelt-macro.melt:1427:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1516*/ meltfptr[1515]); MELT_LOCATION("warmelt-macro.melt:1427:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1516*/ meltfptr[1515], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1427:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1429__SPAF_PATTERN @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1518*/ meltfptr[1517])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1429__SPAF_PATTERN @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1518*/ meltfptr[1517])))); ((meltobject_ptr_t)(/*_._VALDATA___V1518*/ meltfptr[1517]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1519*/ meltfptr[1518]); MELT_LOCATION("warmelt-macro.melt:1427:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1429__SPAF_PATTERN @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1518*/ meltfptr[1517])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1429__SPAF_PATTERN @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1518*/ meltfptr[1517])))); ((meltobject_ptr_t)(/*_._VALDATA___V1518*/ meltfptr[1517]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V1513*/ meltfptr[1512]); MELT_LOCATION("warmelt-macro.melt:1427:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1518*/ meltfptr[1517]); MELT_LOCATION("warmelt-macro.melt:1427:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1518*/ meltfptr[1517], "new static instance"); /*putupl#998*/ melt_assertmsg("putupl #998 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1520*/ meltfptr[1519]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #998 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1520*/ meltfptr[1519])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1520*/ meltfptr[1519]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#999*/ melt_assertmsg("putupl #999 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1520*/ meltfptr[1519]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #999 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1520*/ meltfptr[1519])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1520*/ meltfptr[1519]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#1000*/ melt_assertmsg("putupl #1000 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1520*/ meltfptr[1519]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #1000 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1520*/ meltfptr[1519])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1520*/ meltfptr[1519]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V1516*/ meltfptr[1515]); /*putupl#1001*/ melt_assertmsg("putupl #1001 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1520*/ meltfptr[1519]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #1001 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1520*/ meltfptr[1519])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1520*/ meltfptr[1519]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V1518*/ meltfptr[1517]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1520*/ meltfptr[1519]); MELT_LOCATION("warmelt-macro.melt:1427:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1419__CLASS_SOURCE_FIELD_PATTERN @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1513*/ meltfptr[1512])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1419__CLASS_SOURCE_FIELD_PATTERN @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1513*/ meltfptr[1512])))); ((meltobject_ptr_t)(/*_._VALDATA___V1513*/ meltfptr[1512]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V1520*/ meltfptr[1519]); MELT_LOCATION("warmelt-macro.melt:1427:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1513*/ meltfptr[1512]); MELT_LOCATION("warmelt-macro.melt:1427:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1513*/ meltfptr[1512], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1423__SPAF_FIELD @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1521*/ meltfptr[1520])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1423__SPAF_FIELD @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1521*/ meltfptr[1520])))); ((meltobject_ptr_t)(/*_._VALDATA___V1521*/ meltfptr[1520]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1522*/ meltfptr[1521]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1521*/ meltfptr[1520]); melt_dbgtrace_written_object (/*_._VALDATA___V1521*/ meltfptr[1520], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1427__SPAF_PATTERN @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1523*/ meltfptr[1522])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1427__SPAF_PATTERN @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1523*/ meltfptr[1522])))); ((meltobject_ptr_t)(/*_._VALDATA___V1523*/ meltfptr[1522]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1524*/ meltfptr[1523]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1523*/ meltfptr[1522]); melt_dbgtrace_written_object (/*_._VALDATA___V1523*/ meltfptr[1522], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1431__CLASS_SOURCE_PATTERN_COMPOSITE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1525*/ meltfptr[1524])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1431__CLASS_SOURCE_PATTERN_COMPOSITE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1525*/ meltfptr[1524])))); ((meltobject_ptr_t)(/*_._VALDATA___V1525*/ meltfptr[1524]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1526*/ meltfptr[1525]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1525*/ meltfptr[1524]); melt_dbgtrace_written_object (/*_._VALDATA___V1525*/ meltfptr[1524], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1438:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1433__CLASS_SOURCE_PATTERN_COMPOSITE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1527*/ meltfptr[1526])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1433__CLASS_SOURCE_PATTERN_COMPOSITE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1527*/ meltfptr[1526])))); ((meltobject_ptr_t)(/*_._VALDATA___V1527*/ meltfptr[1526]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1528*/ meltfptr[1527]); MELT_LOCATION("warmelt-macro.melt:1438:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1433__CLASS_SOURCE_PATTERN_COMPOSITE @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1527*/ meltfptr[1526])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1433__CLASS_SOURCE_PATTERN_COMPOSITE @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1527*/ meltfptr[1526])))); ((meltobject_ptr_t)(/*_._VALDATA___V1527*/ meltfptr[1526]))->obj_vartab[4] = (melt_ptr_t)( /*_._VALDATA___V1493*/ meltfptr[1492]); /*putupl#1002*/ melt_assertmsg("putupl #1002 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1529*/ meltfptr[1528]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #1002 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1529*/ meltfptr[1528])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1529*/ meltfptr[1528]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#1003*/ melt_assertmsg("putupl #1003 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1529*/ meltfptr[1528]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #1003 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1529*/ meltfptr[1528])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1529*/ meltfptr[1528]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#1004*/ melt_assertmsg("putupl #1004 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1529*/ meltfptr[1528]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #1004 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1529*/ meltfptr[1528])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1529*/ meltfptr[1528]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#1005*/ melt_assertmsg("putupl #1005 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1529*/ meltfptr[1528]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #1005 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1529*/ meltfptr[1528])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1529*/ meltfptr[1528]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#1006*/ melt_assertmsg("putupl #1006 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1529*/ meltfptr[1528]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #1006 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1529*/ meltfptr[1528])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1529*/ meltfptr[1528]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V1395*/ meltfptr[1394]); /*putupl#1007*/ melt_assertmsg("putupl #1007 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1529*/ meltfptr[1528]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #1007 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1529*/ meltfptr[1528])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1529*/ meltfptr[1528]))->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V1493*/ meltfptr[1492]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1529*/ meltfptr[1528]); MELT_LOCATION("warmelt-macro.melt:1438:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1433__CLASS_SOURCE_PATTERN_COMPOSITE @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1527*/ meltfptr[1526])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1433__CLASS_SOURCE_PATTERN_COMPOSITE @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1527*/ meltfptr[1526])))); ((meltobject_ptr_t)(/*_._VALDATA___V1527*/ meltfptr[1526]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V1529*/ meltfptr[1528]); MELT_LOCATION("warmelt-macro.melt:1438:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1439__SPAC_OPERATOR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1530*/ meltfptr[1529])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1439__SPAC_OPERATOR @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1530*/ meltfptr[1529])))); ((meltobject_ptr_t)(/*_._VALDATA___V1530*/ meltfptr[1529]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1531*/ meltfptr[1530]); MELT_LOCATION("warmelt-macro.melt:1438:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1439__SPAC_OPERATOR @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1530*/ meltfptr[1529])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1439__SPAC_OPERATOR @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1530*/ meltfptr[1529])))); ((meltobject_ptr_t)(/*_._VALDATA___V1530*/ meltfptr[1529]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V1527*/ meltfptr[1526]); MELT_LOCATION("warmelt-macro.melt:1438:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1530*/ meltfptr[1529]); MELT_LOCATION("warmelt-macro.melt:1438:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1530*/ meltfptr[1529], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1438:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1443__SPAC_OPERBIND @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1532*/ meltfptr[1531])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1443__SPAC_OPERBIND @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1532*/ meltfptr[1531])))); ((meltobject_ptr_t)(/*_._VALDATA___V1532*/ meltfptr[1531]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1533*/ meltfptr[1532]); MELT_LOCATION("warmelt-macro.melt:1438:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1443__SPAC_OPERBIND @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1532*/ meltfptr[1531])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1443__SPAC_OPERBIND @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1532*/ meltfptr[1531])))); ((meltobject_ptr_t)(/*_._VALDATA___V1532*/ meltfptr[1531]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V1527*/ meltfptr[1526]); MELT_LOCATION("warmelt-macro.melt:1438:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1532*/ meltfptr[1531]); MELT_LOCATION("warmelt-macro.melt:1438:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1532*/ meltfptr[1531], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1438:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1447__SPAC_INARGS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1534*/ meltfptr[1533])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1447__SPAC_INARGS @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1534*/ meltfptr[1533])))); ((meltobject_ptr_t)(/*_._VALDATA___V1534*/ meltfptr[1533]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1535*/ meltfptr[1534]); MELT_LOCATION("warmelt-macro.melt:1438:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1447__SPAC_INARGS @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1534*/ meltfptr[1533])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1447__SPAC_INARGS @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1534*/ meltfptr[1533])))); ((meltobject_ptr_t)(/*_._VALDATA___V1534*/ meltfptr[1533]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V1527*/ meltfptr[1526]); MELT_LOCATION("warmelt-macro.melt:1438:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1534*/ meltfptr[1533]); MELT_LOCATION("warmelt-macro.melt:1438:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1534*/ meltfptr[1533], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1438:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1451__SPAC_OUTARGS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1536*/ meltfptr[1535])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1451__SPAC_OUTARGS @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1536*/ meltfptr[1535])))); ((meltobject_ptr_t)(/*_._VALDATA___V1536*/ meltfptr[1535]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1537*/ meltfptr[1536]); MELT_LOCATION("warmelt-macro.melt:1438:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1451__SPAC_OUTARGS @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1536*/ meltfptr[1535])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1451__SPAC_OUTARGS @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1536*/ meltfptr[1535])))); ((meltobject_ptr_t)(/*_._VALDATA___V1536*/ meltfptr[1535]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V1527*/ meltfptr[1526]); MELT_LOCATION("warmelt-macro.melt:1438:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1536*/ meltfptr[1535]); MELT_LOCATION("warmelt-macro.melt:1438:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1536*/ meltfptr[1535], "new static instance"); /*putupl#1008*/ melt_assertmsg("putupl #1008 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1538*/ meltfptr[1537]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #1008 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1538*/ meltfptr[1537])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1538*/ meltfptr[1537]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#1009*/ melt_assertmsg("putupl #1009 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1538*/ meltfptr[1537]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #1009 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1538*/ meltfptr[1537])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1538*/ meltfptr[1537]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#1010*/ melt_assertmsg("putupl #1010 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1538*/ meltfptr[1537]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #1010 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1538*/ meltfptr[1537])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1538*/ meltfptr[1537]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V1398*/ meltfptr[1397]); /*putupl#1011*/ melt_assertmsg("putupl #1011 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1538*/ meltfptr[1537]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #1011 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1538*/ meltfptr[1537])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1538*/ meltfptr[1537]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V1496*/ meltfptr[1495]); /*putupl#1012*/ melt_assertmsg("putupl #1012 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1538*/ meltfptr[1537]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #1012 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1538*/ meltfptr[1537])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1538*/ meltfptr[1537]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V1498*/ meltfptr[1497]); /*putupl#1013*/ melt_assertmsg("putupl #1013 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1538*/ meltfptr[1537]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #1013 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1538*/ meltfptr[1537])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1538*/ meltfptr[1537]))->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V1530*/ meltfptr[1529]); /*putupl#1014*/ melt_assertmsg("putupl #1014 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1538*/ meltfptr[1537]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #1014 checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1538*/ meltfptr[1537])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1538*/ meltfptr[1537]))->tabval[6] = (melt_ptr_t)(/*_._VALDATA___V1532*/ meltfptr[1531]); /*putupl#1015*/ melt_assertmsg("putupl #1015 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1538*/ meltfptr[1537]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #1015 checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1538*/ meltfptr[1537])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1538*/ meltfptr[1537]))->tabval[7] = (melt_ptr_t)(/*_._VALDATA___V1534*/ meltfptr[1533]); /*putupl#1016*/ melt_assertmsg("putupl #1016 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1538*/ meltfptr[1537]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #1016 checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1538*/ meltfptr[1537])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1538*/ meltfptr[1537]))->tabval[8] = (melt_ptr_t)(/*_._VALDATA___V1536*/ meltfptr[1535]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1538*/ meltfptr[1537]); MELT_LOCATION("warmelt-macro.melt:1438:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1433__CLASS_SOURCE_PATTERN_COMPOSITE @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1527*/ meltfptr[1526])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1433__CLASS_SOURCE_PATTERN_COMPOSITE @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1527*/ meltfptr[1526])))); ((meltobject_ptr_t)(/*_._VALDATA___V1527*/ meltfptr[1526]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V1538*/ meltfptr[1537]); MELT_LOCATION("warmelt-macro.melt:1438:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1527*/ meltfptr[1526]); MELT_LOCATION("warmelt-macro.melt:1438:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1527*/ meltfptr[1526], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1437__SPAC_OPERATOR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1539*/ meltfptr[1538])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1437__SPAC_OPERATOR @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1539*/ meltfptr[1538])))); ((meltobject_ptr_t)(/*_._VALDATA___V1539*/ meltfptr[1538]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1540*/ meltfptr[1539]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1539*/ meltfptr[1538]); melt_dbgtrace_written_object (/*_._VALDATA___V1539*/ meltfptr[1538], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1441__SPAC_OPERBIND @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1541*/ meltfptr[1540])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1441__SPAC_OPERBIND @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1541*/ meltfptr[1540])))); ((meltobject_ptr_t)(/*_._VALDATA___V1541*/ meltfptr[1540]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1542*/ meltfptr[1541]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1541*/ meltfptr[1540]); melt_dbgtrace_written_object (/*_._VALDATA___V1541*/ meltfptr[1540], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1445__SPAC_INARGS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1543*/ meltfptr[1542])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1445__SPAC_INARGS @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1543*/ meltfptr[1542])))); ((meltobject_ptr_t)(/*_._VALDATA___V1543*/ meltfptr[1542]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1544*/ meltfptr[1543]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1543*/ meltfptr[1542]); melt_dbgtrace_written_object (/*_._VALDATA___V1543*/ meltfptr[1542], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1449__SPAC_OUTARGS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1545*/ meltfptr[1544])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1449__SPAC_OUTARGS @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1545*/ meltfptr[1544])))); ((meltobject_ptr_t)(/*_._VALDATA___V1545*/ meltfptr[1544]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1546*/ meltfptr[1545]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1545*/ meltfptr[1544]); melt_dbgtrace_written_object (/*_._VALDATA___V1545*/ meltfptr[1544], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1453__CLASS_SOURCE_PATTERN_MATCHER @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1547*/ meltfptr[1546])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1453__CLASS_SOURCE_PATTERN_MATCHER @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1547*/ meltfptr[1546])))); ((meltobject_ptr_t)(/*_._VALDATA___V1547*/ meltfptr[1546]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1548*/ meltfptr[1547]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1547*/ meltfptr[1546]); melt_dbgtrace_written_object (/*_._VALDATA___V1547*/ meltfptr[1546], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1455:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1455__CLASS_SOURCE_PATTERN_MATCHER @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1549*/ meltfptr[1548])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1455__CLASS_SOURCE_PATTERN_MATCHER @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1549*/ meltfptr[1548])))); ((meltobject_ptr_t)(/*_._VALDATA___V1549*/ meltfptr[1548]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1550*/ meltfptr[1549]); MELT_LOCATION("warmelt-macro.melt:1455:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1455__CLASS_SOURCE_PATTERN_MATCHER @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1549*/ meltfptr[1548])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1455__CLASS_SOURCE_PATTERN_MATCHER @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1549*/ meltfptr[1548])))); ((meltobject_ptr_t)(/*_._VALDATA___V1549*/ meltfptr[1548]))->obj_vartab[4] = (melt_ptr_t)( /*_._VALDATA___V1527*/ meltfptr[1526]); /*putupl#1017*/ melt_assertmsg("putupl #1017 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1551*/ meltfptr[1550]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #1017 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1551*/ meltfptr[1550])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1551*/ meltfptr[1550]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#1018*/ melt_assertmsg("putupl #1018 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1551*/ meltfptr[1550]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #1018 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1551*/ meltfptr[1550])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1551*/ meltfptr[1550]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#1019*/ melt_assertmsg("putupl #1019 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1551*/ meltfptr[1550]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #1019 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1551*/ meltfptr[1550])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1551*/ meltfptr[1550]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#1020*/ melt_assertmsg("putupl #1020 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1551*/ meltfptr[1550]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #1020 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1551*/ meltfptr[1550])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1551*/ meltfptr[1550]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#1021*/ melt_assertmsg("putupl #1021 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1551*/ meltfptr[1550]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #1021 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1551*/ meltfptr[1550])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1551*/ meltfptr[1550]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V1395*/ meltfptr[1394]); /*putupl#1022*/ melt_assertmsg("putupl #1022 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1551*/ meltfptr[1550]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #1022 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1551*/ meltfptr[1550])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1551*/ meltfptr[1550]))->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V1493*/ meltfptr[1492]); /*putupl#1023*/ melt_assertmsg("putupl #1023 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1551*/ meltfptr[1550]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #1023 checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1551*/ meltfptr[1550])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1551*/ meltfptr[1550]))->tabval[6] = (melt_ptr_t)(/*_._VALDATA___V1527*/ meltfptr[1526]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1551*/ meltfptr[1550]); MELT_LOCATION("warmelt-macro.melt:1455:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1455__CLASS_SOURCE_PATTERN_MATCHER @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1549*/ meltfptr[1548])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1455__CLASS_SOURCE_PATTERN_MATCHER @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1549*/ meltfptr[1548])))); ((meltobject_ptr_t)(/*_._VALDATA___V1549*/ meltfptr[1548]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V1551*/ meltfptr[1550]); /*putupl#1024*/ melt_assertmsg("putupl #1024 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1552*/ meltfptr[1551]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #1024 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1552*/ meltfptr[1551])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1552*/ meltfptr[1551]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#1025*/ melt_assertmsg("putupl #1025 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1552*/ meltfptr[1551]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #1025 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1552*/ meltfptr[1551])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1552*/ meltfptr[1551]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#1026*/ melt_assertmsg("putupl #1026 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1552*/ meltfptr[1551]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #1026 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1552*/ meltfptr[1551])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1552*/ meltfptr[1551]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V1398*/ meltfptr[1397]); /*putupl#1027*/ melt_assertmsg("putupl #1027 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1552*/ meltfptr[1551]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #1027 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1552*/ meltfptr[1551])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1552*/ meltfptr[1551]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V1496*/ meltfptr[1495]); /*putupl#1028*/ melt_assertmsg("putupl #1028 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1552*/ meltfptr[1551]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #1028 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1552*/ meltfptr[1551])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1552*/ meltfptr[1551]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V1498*/ meltfptr[1497]); /*putupl#1029*/ melt_assertmsg("putupl #1029 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1552*/ meltfptr[1551]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #1029 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1552*/ meltfptr[1551])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1552*/ meltfptr[1551]))->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V1530*/ meltfptr[1529]); /*putupl#1030*/ melt_assertmsg("putupl #1030 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1552*/ meltfptr[1551]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #1030 checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1552*/ meltfptr[1551])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1552*/ meltfptr[1551]))->tabval[6] = (melt_ptr_t)(/*_._VALDATA___V1532*/ meltfptr[1531]); /*putupl#1031*/ melt_assertmsg("putupl #1031 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1552*/ meltfptr[1551]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #1031 checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1552*/ meltfptr[1551])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1552*/ meltfptr[1551]))->tabval[7] = (melt_ptr_t)(/*_._VALDATA___V1534*/ meltfptr[1533]); /*putupl#1032*/ melt_assertmsg("putupl #1032 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1552*/ meltfptr[1551]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #1032 checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1552*/ meltfptr[1551])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1552*/ meltfptr[1551]))->tabval[8] = (melt_ptr_t)(/*_._VALDATA___V1536*/ meltfptr[1535]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1552*/ meltfptr[1551]); MELT_LOCATION("warmelt-macro.melt:1455:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1455__CLASS_SOURCE_PATTERN_MATCHER @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1549*/ meltfptr[1548])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1455__CLASS_SOURCE_PATTERN_MATCHER @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1549*/ meltfptr[1548])))); ((meltobject_ptr_t)(/*_._VALDATA___V1549*/ meltfptr[1548]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V1552*/ meltfptr[1551]); MELT_LOCATION("warmelt-macro.melt:1455:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1549*/ meltfptr[1548]); MELT_LOCATION("warmelt-macro.melt:1455:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1549*/ meltfptr[1548], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1459__CLASS_SOURCE_PATTERN_C_MATCH @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1553*/ meltfptr[1552])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1459__CLASS_SOURCE_PATTERN_C_MATCH @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1553*/ meltfptr[1552])))); ((meltobject_ptr_t)(/*_._VALDATA___V1553*/ meltfptr[1552]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1554*/ meltfptr[1553]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1553*/ meltfptr[1552]); melt_dbgtrace_written_object (/*_._VALDATA___V1553*/ meltfptr[1552], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1461:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1461__CLASS_SOURCE_PATTERN_C_MATCH @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1555*/ meltfptr[1554])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1461__CLASS_SOURCE_PATTERN_C_MATCH @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1555*/ meltfptr[1554])))); ((meltobject_ptr_t)(/*_._VALDATA___V1555*/ meltfptr[1554]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1556*/ meltfptr[1555]); MELT_LOCATION("warmelt-macro.melt:1461:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1461__CLASS_SOURCE_PATTERN_C_MATCH @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1555*/ meltfptr[1554])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1461__CLASS_SOURCE_PATTERN_C_MATCH @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1555*/ meltfptr[1554])))); ((meltobject_ptr_t)(/*_._VALDATA___V1555*/ meltfptr[1554]))->obj_vartab[4] = (melt_ptr_t)( /*_._VALDATA___V1549*/ meltfptr[1548]); /*putupl#1033*/ melt_assertmsg("putupl #1033 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1557*/ meltfptr[1556]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #1033 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1557*/ meltfptr[1556])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1557*/ meltfptr[1556]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#1034*/ melt_assertmsg("putupl #1034 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1557*/ meltfptr[1556]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #1034 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1557*/ meltfptr[1556])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1557*/ meltfptr[1556]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#1035*/ melt_assertmsg("putupl #1035 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1557*/ meltfptr[1556]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #1035 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1557*/ meltfptr[1556])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1557*/ meltfptr[1556]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#1036*/ melt_assertmsg("putupl #1036 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1557*/ meltfptr[1556]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #1036 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1557*/ meltfptr[1556])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1557*/ meltfptr[1556]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#1037*/ melt_assertmsg("putupl #1037 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1557*/ meltfptr[1556]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #1037 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1557*/ meltfptr[1556])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1557*/ meltfptr[1556]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V1395*/ meltfptr[1394]); /*putupl#1038*/ melt_assertmsg("putupl #1038 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1557*/ meltfptr[1556]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #1038 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1557*/ meltfptr[1556])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1557*/ meltfptr[1556]))->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V1493*/ meltfptr[1492]); /*putupl#1039*/ melt_assertmsg("putupl #1039 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1557*/ meltfptr[1556]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #1039 checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1557*/ meltfptr[1556])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1557*/ meltfptr[1556]))->tabval[6] = (melt_ptr_t)(/*_._VALDATA___V1527*/ meltfptr[1526]); /*putupl#1040*/ melt_assertmsg("putupl #1040 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1557*/ meltfptr[1556]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #1040 checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1557*/ meltfptr[1556])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1557*/ meltfptr[1556]))->tabval[7] = (melt_ptr_t)(/*_._VALDATA___V1549*/ meltfptr[1548]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1557*/ meltfptr[1556]); MELT_LOCATION("warmelt-macro.melt:1461:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1461__CLASS_SOURCE_PATTERN_C_MATCH @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1555*/ meltfptr[1554])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1461__CLASS_SOURCE_PATTERN_C_MATCH @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1555*/ meltfptr[1554])))); ((meltobject_ptr_t)(/*_._VALDATA___V1555*/ meltfptr[1554]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V1557*/ meltfptr[1556]); /*putupl#1041*/ melt_assertmsg("putupl #1041 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1558*/ meltfptr[1557]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #1041 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1558*/ meltfptr[1557])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1558*/ meltfptr[1557]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#1042*/ melt_assertmsg("putupl #1042 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1558*/ meltfptr[1557]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #1042 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1558*/ meltfptr[1557])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1558*/ meltfptr[1557]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); #undef meltfram__ } /*end of meltmod__WARMELTmiMACRO__initialmeltchunk_29*/ void meltmod__WARMELTmiMACRO__initialmeltchunk_30 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; /*putupl#1043*/ melt_assertmsg("putupl #1043 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1558*/ meltfptr[1557]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #1043 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1558*/ meltfptr[1557])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1558*/ meltfptr[1557]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V1398*/ meltfptr[1397]); /*putupl#1044*/ melt_assertmsg("putupl #1044 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1558*/ meltfptr[1557]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #1044 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1558*/ meltfptr[1557])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1558*/ meltfptr[1557]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V1496*/ meltfptr[1495]); /*putupl#1045*/ melt_assertmsg("putupl #1045 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1558*/ meltfptr[1557]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #1045 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1558*/ meltfptr[1557])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1558*/ meltfptr[1557]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V1498*/ meltfptr[1497]); /*putupl#1046*/ melt_assertmsg("putupl #1046 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1558*/ meltfptr[1557]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #1046 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1558*/ meltfptr[1557])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1558*/ meltfptr[1557]))->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V1530*/ meltfptr[1529]); /*putupl#1047*/ melt_assertmsg("putupl #1047 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1558*/ meltfptr[1557]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #1047 checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1558*/ meltfptr[1557])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1558*/ meltfptr[1557]))->tabval[6] = (melt_ptr_t)(/*_._VALDATA___V1532*/ meltfptr[1531]); /*putupl#1048*/ melt_assertmsg("putupl #1048 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1558*/ meltfptr[1557]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #1048 checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1558*/ meltfptr[1557])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1558*/ meltfptr[1557]))->tabval[7] = (melt_ptr_t)(/*_._VALDATA___V1534*/ meltfptr[1533]); /*putupl#1049*/ melt_assertmsg("putupl #1049 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1558*/ meltfptr[1557]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #1049 checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1558*/ meltfptr[1557])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1558*/ meltfptr[1557]))->tabval[8] = (melt_ptr_t)(/*_._VALDATA___V1536*/ meltfptr[1535]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1558*/ meltfptr[1557]); MELT_LOCATION("warmelt-macro.melt:1461:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1461__CLASS_SOURCE_PATTERN_C_MATCH @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1555*/ meltfptr[1554])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1461__CLASS_SOURCE_PATTERN_C_MATCH @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1555*/ meltfptr[1554])))); ((meltobject_ptr_t)(/*_._VALDATA___V1555*/ meltfptr[1554]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V1558*/ meltfptr[1557]); MELT_LOCATION("warmelt-macro.melt:1461:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1555*/ meltfptr[1554]); MELT_LOCATION("warmelt-macro.melt:1461:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1555*/ meltfptr[1554], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1465__CLASS_SOURCE_PATTERN_FUN_MATCH @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1559*/ meltfptr[1558])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1465__CLASS_SOURCE_PATTERN_FUN_MATCH @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1559*/ meltfptr[1558])))); ((meltobject_ptr_t)(/*_._VALDATA___V1559*/ meltfptr[1558]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1560*/ meltfptr[1559]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1559*/ meltfptr[1558]); melt_dbgtrace_written_object (/*_._VALDATA___V1559*/ meltfptr[1558], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1467:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1467__CLASS_SOURCE_PATTERN_FUN_MATCH @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1561*/ meltfptr[1560])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1467__CLASS_SOURCE_PATTERN_FUN_MATCH @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1561*/ meltfptr[1560])))); ((meltobject_ptr_t)(/*_._VALDATA___V1561*/ meltfptr[1560]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1562*/ meltfptr[1561]); MELT_LOCATION("warmelt-macro.melt:1467:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1467__CLASS_SOURCE_PATTERN_FUN_MATCH @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1561*/ meltfptr[1560])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1467__CLASS_SOURCE_PATTERN_FUN_MATCH @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1561*/ meltfptr[1560])))); ((meltobject_ptr_t)(/*_._VALDATA___V1561*/ meltfptr[1560]))->obj_vartab[4] = (melt_ptr_t)( /*_._VALDATA___V1549*/ meltfptr[1548]); /*putupl#1050*/ melt_assertmsg("putupl #1050 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1563*/ meltfptr[1562]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #1050 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1563*/ meltfptr[1562])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1563*/ meltfptr[1562]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (0)))); /*putupl#1051*/ melt_assertmsg("putupl #1051 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1563*/ meltfptr[1562]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #1051 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1563*/ meltfptr[1562])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1563*/ meltfptr[1562]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (1)))); /*putupl#1052*/ melt_assertmsg("putupl #1052 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1563*/ meltfptr[1562]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #1052 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1563*/ meltfptr[1562])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1563*/ meltfptr[1562]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),5))), (2)))); /*putupl#1053*/ melt_assertmsg("putupl #1053 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1563*/ meltfptr[1562]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #1053 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1563*/ meltfptr[1562])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1563*/ meltfptr[1562]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]); /*putupl#1054*/ melt_assertmsg("putupl #1054 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1563*/ meltfptr[1562]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #1054 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1563*/ meltfptr[1562])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1563*/ meltfptr[1562]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V1395*/ meltfptr[1394]); /*putupl#1055*/ melt_assertmsg("putupl #1055 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1563*/ meltfptr[1562]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #1055 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1563*/ meltfptr[1562])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1563*/ meltfptr[1562]))->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V1493*/ meltfptr[1492]); /*putupl#1056*/ melt_assertmsg("putupl #1056 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1563*/ meltfptr[1562]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #1056 checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1563*/ meltfptr[1562])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1563*/ meltfptr[1562]))->tabval[6] = (melt_ptr_t)(/*_._VALDATA___V1527*/ meltfptr[1526]); /*putupl#1057*/ melt_assertmsg("putupl #1057 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1563*/ meltfptr[1562]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #1057 checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1563*/ meltfptr[1562])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1563*/ meltfptr[1562]))->tabval[7] = (melt_ptr_t)(/*_._VALDATA___V1549*/ meltfptr[1548]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1563*/ meltfptr[1562]); MELT_LOCATION("warmelt-macro.melt:1467:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1467__CLASS_SOURCE_PATTERN_FUN_MATCH @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1561*/ meltfptr[1560])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1467__CLASS_SOURCE_PATTERN_FUN_MATCH @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1561*/ meltfptr[1560])))); ((meltobject_ptr_t)(/*_._VALDATA___V1561*/ meltfptr[1560]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V1563*/ meltfptr[1562]); /*putupl#1058*/ melt_assertmsg("putupl #1058 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1564*/ meltfptr[1563]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #1058 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1564*/ meltfptr[1563])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1564*/ meltfptr[1563]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (0)))); /*putupl#1059*/ melt_assertmsg("putupl #1059 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1564*/ meltfptr[1563]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #1059 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1564*/ meltfptr[1563])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1564*/ meltfptr[1563]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V25*/ meltfptr[24]),6))), (1)))); /*putupl#1060*/ melt_assertmsg("putupl #1060 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1564*/ meltfptr[1563]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #1060 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1564*/ meltfptr[1563])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1564*/ meltfptr[1563]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V1398*/ meltfptr[1397]); /*putupl#1061*/ melt_assertmsg("putupl #1061 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1564*/ meltfptr[1563]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #1061 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1564*/ meltfptr[1563])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1564*/ meltfptr[1563]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V1496*/ meltfptr[1495]); /*putupl#1062*/ melt_assertmsg("putupl #1062 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1564*/ meltfptr[1563]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #1062 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1564*/ meltfptr[1563])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1564*/ meltfptr[1563]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V1498*/ meltfptr[1497]); /*putupl#1063*/ melt_assertmsg("putupl #1063 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1564*/ meltfptr[1563]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #1063 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1564*/ meltfptr[1563])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1564*/ meltfptr[1563]))->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V1530*/ meltfptr[1529]); /*putupl#1064*/ melt_assertmsg("putupl #1064 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1564*/ meltfptr[1563]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #1064 checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1564*/ meltfptr[1563])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1564*/ meltfptr[1563]))->tabval[6] = (melt_ptr_t)(/*_._VALDATA___V1532*/ meltfptr[1531]); /*putupl#1065*/ melt_assertmsg("putupl #1065 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1564*/ meltfptr[1563]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #1065 checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1564*/ meltfptr[1563])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1564*/ meltfptr[1563]))->tabval[7] = (melt_ptr_t)(/*_._VALDATA___V1534*/ meltfptr[1533]); /*putupl#1066*/ melt_assertmsg("putupl #1066 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1564*/ meltfptr[1563]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #1066 checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1564*/ meltfptr[1563])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1564*/ meltfptr[1563]))->tabval[8] = (melt_ptr_t)(/*_._VALDATA___V1536*/ meltfptr[1535]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1564*/ meltfptr[1563]); MELT_LOCATION("warmelt-macro.melt:1467:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1467__CLASS_SOURCE_PATTERN_FUN_MATCH @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1561*/ meltfptr[1560])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1467__CLASS_SOURCE_PATTERN_FUN_MATCH @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1561*/ meltfptr[1560])))); ((meltobject_ptr_t)(/*_._VALDATA___V1561*/ meltfptr[1560]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V1564*/ meltfptr[1563]); MELT_LOCATION("warmelt-macro.melt:1467:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1561*/ meltfptr[1560]); MELT_LOCATION("warmelt-macro.melt:1467:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1561*/ meltfptr[1560], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1476:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1565*/ meltfptr[1564])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1471__S_EXPR_WEIGHT#0", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V1565*/ meltfptr[1564])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:1479:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1566*/ meltfptr[1565])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1473__LAMBDA_#0", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V1566*/ meltfptr[1565])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1474__TRUE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1567*/ meltfptr[1566])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1474__TRUE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1567*/ meltfptr[1566])))); ((meltobject_ptr_t)(/*_._VALDATA___V1567*/ meltfptr[1566]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1568*/ meltfptr[1567]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1567*/ meltfptr[1566]); melt_dbgtrace_written_object (/*_._VALDATA___V1567*/ meltfptr[1566], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1479:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1566*/ meltfptr[1565])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1473__LAMBDA_#1", NULL != (/*_._VALDATA___V1567*/ meltfptr[1566])); ((meltroutine_ptr_t)/*_._VALROUT___V1566*/ meltfptr[1565])->tabval[1] = (melt_ptr_t)(/*_._VALDATA___V1567*/ meltfptr[1566]); MELT_LOCATION("warmelt-macro.melt:1479:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1566*/ meltfptr[1565]); MELT_LOCATION("warmelt-macro.melt:1476:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1565*/ meltfptr[1564])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1471__S_EXPR_WEIGHT#1", NULL != (/*_._VALROUT___V1566*/ meltfptr[1565])); ((meltroutine_ptr_t)/*_._VALROUT___V1565*/ meltfptr[1564])->tabval[1] = (melt_ptr_t)(/*_._VALROUT___V1566*/ meltfptr[1565]); MELT_LOCATION("warmelt-macro.melt:1476:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1565*/ meltfptr[1564])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1471__S_EXPR_WEIGHT#2", NULL != (/*_.DISCR_CONSTANT_INTEGER__V27*/ meltfptr[26])); ((meltroutine_ptr_t)/*_._VALROUT___V1565*/ meltfptr[1564])->tabval[2] = (melt_ptr_t)(/*_.DISCR_CONSTANT_INTEGER__V27*/ meltfptr[26]); MELT_LOCATION("warmelt-macro.melt:1476:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1565*/ meltfptr[1564]); /*putclosurout#16*/ melt_assertmsg("putclosrout#16 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1569*/ meltfptr[1568])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#16 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1565*/ meltfptr[1564])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1569*/ meltfptr[1568])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1565*/ meltfptr[1564]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1569*/ meltfptr[1568]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1476__DISCR_CONSTANT_INTEGER @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1570*/ meltfptr[1569])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1476__DISCR_CONSTANT_INTEGER @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1570*/ meltfptr[1569])))); ((meltobject_ptr_t)(/*_._VALDATA___V1570*/ meltfptr[1569]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1571*/ meltfptr[1570]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1570*/ meltfptr[1569]); melt_dbgtrace_written_object (/*_._VALDATA___V1570*/ meltfptr[1569], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1511:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1572*/ meltfptr[1571])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1478__INSTALL_GLOBAL_DEFINITION_BINDING#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1572*/ meltfptr[1571])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:1511:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1572*/ meltfptr[1571])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1478__INSTALL_GLOBAL_DEFINITION_BINDING#1", NULL != (/*_.CLASS_ANY_BINDING__V28*/ meltfptr[27])); ((meltroutine_ptr_t)/*_._VALROUT___V1572*/ meltfptr[1571])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ANY_BINDING__V28*/ meltfptr[27]); MELT_LOCATION("warmelt-macro.melt:1511:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1572*/ meltfptr[1571])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1478__INSTALL_GLOBAL_DEFINITION_BINDING#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1572*/ meltfptr[1571])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:1511:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1572*/ meltfptr[1571])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1478__INSTALL_GLOBAL_DEFINITION_BINDING#3", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V1572*/ meltfptr[1571])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:1511:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1572*/ meltfptr[1571])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1478__INSTALL_GLOBAL_DEFINITION_BINDING#4", NULL != (/*_.CLASS_ANY_MODULE_CONTEXT__V30*/ meltfptr[29])); ((meltroutine_ptr_t)/*_._VALROUT___V1572*/ meltfptr[1571])->tabval[4] = (melt_ptr_t)(/*_.CLASS_ANY_MODULE_CONTEXT__V30*/ meltfptr[29]); MELT_LOCATION("warmelt-macro.melt:1511:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1572*/ meltfptr[1571])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1478__INSTALL_GLOBAL_DEFINITION_BINDING#5", NULL != (/*_.FIND_ENV__V31*/ meltfptr[30])); ((meltroutine_ptr_t)/*_._VALROUT___V1572*/ meltfptr[1571])->tabval[5] = (melt_ptr_t)(/*_.FIND_ENV__V31*/ meltfptr[30]); MELT_LOCATION("warmelt-macro.melt:1511:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1572*/ meltfptr[1571])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V310*/ meltfptr[309]); ((meltroutine_ptr_t)/*_._VALROUT___V1572*/ meltfptr[1571])->tabval[6] = (melt_ptr_t)(/*_._VALCLO___V310*/ meltfptr[309]); MELT_LOCATION("warmelt-macro.melt:1511:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1572*/ meltfptr[1571])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1478__INSTALL_GLOBAL_DEFINITION_BINDING#7", NULL != (/*_.PUT_ENV__V32*/ meltfptr[31])); ((meltroutine_ptr_t)/*_._VALROUT___V1572*/ meltfptr[1571])->tabval[7] = (melt_ptr_t)(/*_.PUT_ENV__V32*/ meltfptr[31]); MELT_LOCATION("warmelt-macro.melt:1511:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1572*/ meltfptr[1571]); /*putclosurout#17*/ melt_assertmsg("putclosrout#17 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1573*/ meltfptr[1572])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#17 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1572*/ meltfptr[1571])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1573*/ meltfptr[1572])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1572*/ meltfptr[1571]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1573*/ meltfptr[1572]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1480__CLASS_ANY_BINDING @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1574*/ meltfptr[1573])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1480__CLASS_ANY_BINDING @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1574*/ meltfptr[1573])))); ((meltobject_ptr_t)(/*_._VALDATA___V1574*/ meltfptr[1573]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1575*/ meltfptr[1574]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1574*/ meltfptr[1573]); melt_dbgtrace_written_object (/*_._VALDATA___V1574*/ meltfptr[1573], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1482__CLASS_ENVIRONMENT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1576*/ meltfptr[1575])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1482__CLASS_ENVIRONMENT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1576*/ meltfptr[1575])))); ((meltobject_ptr_t)(/*_._VALDATA___V1576*/ meltfptr[1575]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1577*/ meltfptr[1576]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1576*/ meltfptr[1575]); melt_dbgtrace_written_object (/*_._VALDATA___V1576*/ meltfptr[1575], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1484__CLASS_ANY_MODULE_CONTEXT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1578*/ meltfptr[1577])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1484__CLASS_ANY_MODULE_CONTEXT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1578*/ meltfptr[1577])))); ((meltobject_ptr_t)(/*_._VALDATA___V1578*/ meltfptr[1577]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1579*/ meltfptr[1578]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1578*/ meltfptr[1577]); melt_dbgtrace_written_object (/*_._VALDATA___V1578*/ meltfptr[1577], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1486__FIND_ENV @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1580*/ meltfptr[1579])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1486__FIND_ENV @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1580*/ meltfptr[1579])))); ((meltobject_ptr_t)(/*_._VALDATA___V1580*/ meltfptr[1579]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1581*/ meltfptr[1580]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1580*/ meltfptr[1579]); melt_dbgtrace_written_object (/*_._VALDATA___V1580*/ meltfptr[1579], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1488__PUT_ENV @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1582*/ meltfptr[1581])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1488__PUT_ENV @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1582*/ meltfptr[1581])))); ((meltobject_ptr_t)(/*_._VALDATA___V1582*/ meltfptr[1581]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1583*/ meltfptr[1582]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1582*/ meltfptr[1581]); melt_dbgtrace_written_object (/*_._VALDATA___V1582*/ meltfptr[1581], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1548:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1584*/ meltfptr[1583])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1490__EXPAND_RESTLIST_AS_LIST#0", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V1584*/ meltfptr[1583])->tabval[0] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:1548:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1584*/ meltfptr[1583])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1490__EXPAND_RESTLIST_AS_LIST#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1584*/ meltfptr[1583])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:1548:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1584*/ meltfptr[1583])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1490__EXPAND_RESTLIST_AS_LIST#2", NULL != (/*_.LIST_APPEND2LIST__V33*/ meltfptr[32])); ((meltroutine_ptr_t)/*_._VALROUT___V1584*/ meltfptr[1583])->tabval[2] = (melt_ptr_t)(/*_.LIST_APPEND2LIST__V33*/ meltfptr[32]); MELT_LOCATION("warmelt-macro.melt:1548:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1584*/ meltfptr[1583]); /*putclosurout#18*/ melt_assertmsg("putclosrout#18 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1585*/ meltfptr[1584])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#18 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1584*/ meltfptr[1583])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1585*/ meltfptr[1584])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1584*/ meltfptr[1583]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1585*/ meltfptr[1584]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1492__LIST_APPEND2LIST @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1586*/ meltfptr[1585])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1492__LIST_APPEND2LIST @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1586*/ meltfptr[1585])))); ((meltobject_ptr_t)(/*_._VALDATA___V1586*/ meltfptr[1585]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1587*/ meltfptr[1586]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1586*/ meltfptr[1585]); melt_dbgtrace_written_object (/*_._VALDATA___V1586*/ meltfptr[1585], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1602:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1588*/ meltfptr[1587])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1494__EXPAND_RESTLIST_AS_TUPLE#0", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V1588*/ meltfptr[1587])->tabval[0] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:1602:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1588*/ meltfptr[1587])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1494__EXPAND_RESTLIST_AS_TUPLE#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1588*/ meltfptr[1587])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:1602:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1588*/ meltfptr[1587])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1585*/ meltfptr[1584]); ((meltroutine_ptr_t)/*_._VALROUT___V1588*/ meltfptr[1587])->tabval[2] = (melt_ptr_t)(/*_._VALCLO___V1585*/ meltfptr[1584]); MELT_LOCATION("warmelt-macro.melt:1602:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1588*/ meltfptr[1587])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1494__EXPAND_RESTLIST_AS_TUPLE#3", NULL != (/*_.LIST_TO_MULTIPLE__V12*/ meltfptr[11])); ((meltroutine_ptr_t)/*_._VALROUT___V1588*/ meltfptr[1587])->tabval[3] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V12*/ meltfptr[11]); MELT_LOCATION("warmelt-macro.melt:1602:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1588*/ meltfptr[1587])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1494__EXPAND_RESTLIST_AS_TUPLE#4", NULL != (/*_.DISCR_MULTIPLE__V13*/ meltfptr[12])); ((meltroutine_ptr_t)/*_._VALROUT___V1588*/ meltfptr[1587])->tabval[4] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V13*/ meltfptr[12]); MELT_LOCATION("warmelt-macro.melt:1602:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1588*/ meltfptr[1587]); /*putclosurout#19*/ melt_assertmsg("putclosrout#19 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1589*/ meltfptr[1588])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#19 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1588*/ meltfptr[1587])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1589*/ meltfptr[1588])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1588*/ meltfptr[1587]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1589*/ meltfptr[1588]); MELT_LOCATION("warmelt-macro.melt:1615:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1590*/ meltfptr[1589])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1496__EXPAND_PAIRLIST_AS_LIST#0", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V1590*/ meltfptr[1589])->tabval[0] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:1615:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1590*/ meltfptr[1589])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1496__EXPAND_PAIRLIST_AS_LIST#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1590*/ meltfptr[1589])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:1615:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1590*/ meltfptr[1589]); /*putclosurout#20*/ melt_assertmsg("putclosrout#20 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1591*/ meltfptr[1590])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#20 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1590*/ meltfptr[1589])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1591*/ meltfptr[1590])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1590*/ meltfptr[1589]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1591*/ meltfptr[1590]); MELT_LOCATION("warmelt-macro.melt:1670:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1592*/ meltfptr[1591])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1498__EXPAND_PAIRLIST_AS_TUPLE#0", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V1592*/ meltfptr[1591])->tabval[0] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:1670:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1592*/ meltfptr[1591])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1498__EXPAND_PAIRLIST_AS_TUPLE#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1592*/ meltfptr[1591])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:1670:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1592*/ meltfptr[1591])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1591*/ meltfptr[1590]); ((meltroutine_ptr_t)/*_._VALROUT___V1592*/ meltfptr[1591])->tabval[2] = (melt_ptr_t)(/*_._VALCLO___V1591*/ meltfptr[1590]); MELT_LOCATION("warmelt-macro.melt:1670:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1592*/ meltfptr[1591])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1498__EXPAND_PAIRLIST_AS_TUPLE#3", NULL != (/*_.LIST_TO_MULTIPLE__V12*/ meltfptr[11])); ((meltroutine_ptr_t)/*_._VALROUT___V1592*/ meltfptr[1591])->tabval[3] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V12*/ meltfptr[11]); MELT_LOCATION("warmelt-macro.melt:1670:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1592*/ meltfptr[1591])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1498__EXPAND_PAIRLIST_AS_TUPLE#4", NULL != (/*_.DISCR_MULTIPLE__V13*/ meltfptr[12])); ((meltroutine_ptr_t)/*_._VALROUT___V1592*/ meltfptr[1591])->tabval[4] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V13*/ meltfptr[12]); MELT_LOCATION("warmelt-macro.melt:1670:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1592*/ meltfptr[1591]); /*putclosurout#21*/ melt_assertmsg("putclosrout#21 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1593*/ meltfptr[1592])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#21 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1592*/ meltfptr[1591])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1593*/ meltfptr[1592])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1592*/ meltfptr[1591]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1593*/ meltfptr[1592]); MELT_LOCATION("warmelt-macro.melt:1681:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1594*/ meltfptr[1593])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1500__EXPAND_TUPLE_SLICE_AS_TUPLE#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1594*/ meltfptr[1593])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:1681:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1594*/ meltfptr[1593])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1500__EXPAND_TUPLE_SLICE_AS_TUPLE#1", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V1594*/ meltfptr[1593])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:1681:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1594*/ meltfptr[1593])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1500__EXPAND_TUPLE_SLICE_AS_TUPLE#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1594*/ meltfptr[1593])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:1681:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1594*/ meltfptr[1593])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1500__EXPAND_TUPLE_SLICE_AS_TUPLE#3", NULL != (/*_.DISCR_LIST__V34*/ meltfptr[33])); ((meltroutine_ptr_t)/*_._VALROUT___V1594*/ meltfptr[1593])->tabval[3] = (melt_ptr_t)(/*_.DISCR_LIST__V34*/ meltfptr[33]); MELT_LOCATION("warmelt-macro.melt:1681:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1594*/ meltfptr[1593])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1500__EXPAND_TUPLE_SLICE_AS_TUPLE#4", NULL != (/*_.LIST_TO_MULTIPLE__V12*/ meltfptr[11])); ((meltroutine_ptr_t)/*_._VALROUT___V1594*/ meltfptr[1593])->tabval[4] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V12*/ meltfptr[11]); MELT_LOCATION("warmelt-macro.melt:1681:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1594*/ meltfptr[1593])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1500__EXPAND_TUPLE_SLICE_AS_TUPLE#5", NULL != (/*_.DISCR_MULTIPLE__V13*/ meltfptr[12])); ((meltroutine_ptr_t)/*_._VALROUT___V1594*/ meltfptr[1593])->tabval[5] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V13*/ meltfptr[12]); MELT_LOCATION("warmelt-macro.melt:1681:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1594*/ meltfptr[1593]); /*putclosurout#22*/ melt_assertmsg("putclosrout#22 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1595*/ meltfptr[1594])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#22 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1594*/ meltfptr[1593])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1595*/ meltfptr[1594])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1594*/ meltfptr[1593]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1595*/ meltfptr[1594]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1502__DISCR_LIST @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1596*/ meltfptr[1595])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1502__DISCR_LIST @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1596*/ meltfptr[1595])))); ((meltobject_ptr_t)(/*_._VALDATA___V1596*/ meltfptr[1595]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1597*/ meltfptr[1596]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1596*/ meltfptr[1595]); melt_dbgtrace_written_object (/*_._VALDATA___V1596*/ meltfptr[1595], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1734:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1598*/ meltfptr[1597])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1504__REGISTER_GENERATOR_DEVICE#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1598*/ meltfptr[1597])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:1734:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1598*/ meltfptr[1597])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V689*/ meltfptr[688]); ((meltroutine_ptr_t)/*_._VALROUT___V1598*/ meltfptr[1597])->tabval[1] = (melt_ptr_t)(/*_._VALDATA___V689*/ meltfptr[688]); MELT_LOCATION("warmelt-macro.melt:1734:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1598*/ meltfptr[1597])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1504__REGISTER_GENERATOR_DEVICE#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1598*/ meltfptr[1597])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:1734:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1598*/ meltfptr[1597])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1504__REGISTER_GENERATOR_DEVICE#3", NULL != (/*_.CLASS_ANY_MODULE_CONTEXT__V30*/ meltfptr[29])); ((meltroutine_ptr_t)/*_._VALROUT___V1598*/ meltfptr[1597])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ANY_MODULE_CONTEXT__V30*/ meltfptr[29]); MELT_LOCATION("warmelt-macro.melt:1734:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1598*/ meltfptr[1597])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1504__REGISTER_GENERATOR_DEVICE#4", NULL != (/*_.CLASS_LOCATED__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V1598*/ meltfptr[1597])->tabval[4] = (melt_ptr_t)(/*_.CLASS_LOCATED__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-macro.melt:1734:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1598*/ meltfptr[1597])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V335*/ meltfptr[334]); ((meltroutine_ptr_t)/*_._VALROUT___V1598*/ meltfptr[1597])->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V335*/ meltfptr[334]); #undef meltfram__ } /*end of meltmod__WARMELTmiMACRO__initialmeltchunk_30*/ void meltmod__WARMELTmiMACRO__initialmeltchunk_31 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; MELT_LOCATION("warmelt-macro.melt:1734:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1598*/ meltfptr[1597]); /*putclosurout#23*/ melt_assertmsg("putclosrout#23 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1599*/ meltfptr[1598])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#23 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1598*/ meltfptr[1597])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1599*/ meltfptr[1598])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1598*/ meltfptr[1597]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1599*/ meltfptr[1598]); MELT_LOCATION("warmelt-macro.melt:1759:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1600*/ meltfptr[1599])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1506__EXPAND_APPLY#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1600*/ meltfptr[1599])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:1759:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1600*/ meltfptr[1599])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1506__EXPAND_APPLY#1", NULL != (/*_.DEBUG_LESS__V35*/ meltfptr[34])); ((meltroutine_ptr_t)/*_._VALROUT___V1600*/ meltfptr[1599])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_LESS__V35*/ meltfptr[34]); MELT_LOCATION("warmelt-macro.melt:1759:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1600*/ meltfptr[1599])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1506__EXPAND_APPLY#2", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V1600*/ meltfptr[1599])->tabval[2] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:1759:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1600*/ meltfptr[1599])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1506__EXPAND_APPLY#3", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1600*/ meltfptr[1599])->tabval[3] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:1759:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1600*/ meltfptr[1599])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1506__EXPAND_APPLY#4", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V1600*/ meltfptr[1599])->tabval[4] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:1759:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1600*/ meltfptr[1599])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1589*/ meltfptr[1588]); ((meltroutine_ptr_t)/*_._VALROUT___V1600*/ meltfptr[1599])->tabval[5] = (melt_ptr_t)(/*_._VALCLO___V1589*/ meltfptr[1588]); MELT_LOCATION("warmelt-macro.melt:1759:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1600*/ meltfptr[1599])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V373*/ meltfptr[372]); ((meltroutine_ptr_t)/*_._VALROUT___V1600*/ meltfptr[1599])->tabval[6] = (melt_ptr_t)(/*_._VALDATA___V373*/ meltfptr[372]); MELT_LOCATION("warmelt-macro.melt:1759:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1600*/ meltfptr[1599]); /*putclosurout#24*/ melt_assertmsg("putclosrout#24 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1601*/ meltfptr[1600])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#24 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1600*/ meltfptr[1599])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1601*/ meltfptr[1600])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1600*/ meltfptr[1599]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1601*/ meltfptr[1600]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1508__DEBUG_LESS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1602*/ meltfptr[1601])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1508__DEBUG_LESS @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1602*/ meltfptr[1601])))); ((meltobject_ptr_t)(/*_._VALDATA___V1602*/ meltfptr[1601]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1603*/ meltfptr[1602]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1602*/ meltfptr[1601]); melt_dbgtrace_written_object (/*_._VALDATA___V1602*/ meltfptr[1601], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1780:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1604*/ meltfptr[1603])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1510__EXPAND_MSEND#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1604*/ meltfptr[1603])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:1780:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1604*/ meltfptr[1603])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1510__EXPAND_MSEND#1", NULL != (/*_.DEBUG_LESS__V35*/ meltfptr[34])); ((meltroutine_ptr_t)/*_._VALROUT___V1604*/ meltfptr[1603])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_LESS__V35*/ meltfptr[34]); MELT_LOCATION("warmelt-macro.melt:1780:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1604*/ meltfptr[1603])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1510__EXPAND_MSEND#2", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V1604*/ meltfptr[1603])->tabval[2] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:1780:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1604*/ meltfptr[1603])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1510__EXPAND_MSEND#3", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1604*/ meltfptr[1603])->tabval[3] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:1780:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1604*/ meltfptr[1603])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1510__EXPAND_MSEND#4", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V1604*/ meltfptr[1603])->tabval[4] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:1780:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1604*/ meltfptr[1603])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1510__EXPAND_MSEND#5", NULL != (/*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V1604*/ meltfptr[1603])->tabval[5] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-macro.melt:1780:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1604*/ meltfptr[1603])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V306*/ meltfptr[305]); ((meltroutine_ptr_t)/*_._VALROUT___V1604*/ meltfptr[1603])->tabval[6] = (melt_ptr_t)(/*_._VALCLO___V306*/ meltfptr[305]); MELT_LOCATION("warmelt-macro.melt:1780:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1604*/ meltfptr[1603])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1593*/ meltfptr[1592]); ((meltroutine_ptr_t)/*_._VALROUT___V1604*/ meltfptr[1603])->tabval[7] = (melt_ptr_t)(/*_._VALCLO___V1593*/ meltfptr[1592]); MELT_LOCATION("warmelt-macro.melt:1780:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1604*/ meltfptr[1603])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V383*/ meltfptr[382]); ((meltroutine_ptr_t)/*_._VALROUT___V1604*/ meltfptr[1603])->tabval[8] = (melt_ptr_t)(/*_._VALDATA___V383*/ meltfptr[382]); MELT_LOCATION("warmelt-macro.melt:1780:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1604*/ meltfptr[1603]); /*putclosurout#25*/ melt_assertmsg("putclosrout#25 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1605*/ meltfptr[1604])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#25 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1604*/ meltfptr[1603])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1605*/ meltfptr[1604])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1604*/ meltfptr[1603]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1605*/ meltfptr[1604]); MELT_LOCATION("warmelt-macro.melt:1811:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1606*/ meltfptr[1605])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1512__EXPAND_FIELDEXPR#0", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V1606*/ meltfptr[1605])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:1811:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1606*/ meltfptr[1605])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1512__EXPAND_FIELDEXPR#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1606*/ meltfptr[1605])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:1811:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1606*/ meltfptr[1605])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1512__EXPAND_FIELDEXPR#2", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V1606*/ meltfptr[1605])->tabval[2] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:1811:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1606*/ meltfptr[1605])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1512__EXPAND_FIELDEXPR#3", NULL != (/*_.CLASS_FIELD__V36*/ meltfptr[35])); ((meltroutine_ptr_t)/*_._VALROUT___V1606*/ meltfptr[1605])->tabval[3] = (melt_ptr_t)(/*_.CLASS_FIELD__V36*/ meltfptr[35]); MELT_LOCATION("warmelt-macro.melt:1811:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1606*/ meltfptr[1605])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1512__EXPAND_FIELDEXPR#4", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1606*/ meltfptr[1605])->tabval[4] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:1811:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1606*/ meltfptr[1605])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1512__EXPAND_FIELDEXPR#5", NULL != (/*_.LIST_TO_MULTIPLE__V12*/ meltfptr[11])); ((meltroutine_ptr_t)/*_._VALROUT___V1606*/ meltfptr[1605])->tabval[5] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V12*/ meltfptr[11]); MELT_LOCATION("warmelt-macro.melt:1811:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1606*/ meltfptr[1605])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1512__EXPAND_FIELDEXPR#6", NULL != (/*_.DISCR_MULTIPLE__V13*/ meltfptr[12])); ((meltroutine_ptr_t)/*_._VALROUT___V1606*/ meltfptr[1605])->tabval[6] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V13*/ meltfptr[12]); MELT_LOCATION("warmelt-macro.melt:1811:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1606*/ meltfptr[1605])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V306*/ meltfptr[305]); ((meltroutine_ptr_t)/*_._VALROUT___V1606*/ meltfptr[1605])->tabval[7] = (melt_ptr_t)(/*_._VALCLO___V306*/ meltfptr[305]); MELT_LOCATION("warmelt-macro.melt:1811:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1606*/ meltfptr[1605])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1512__EXPAND_FIELDEXPR#8", NULL != (/*_.CLASS_KEYWORD__V22*/ meltfptr[21])); ((meltroutine_ptr_t)/*_._VALROUT___V1606*/ meltfptr[1605])->tabval[8] = (melt_ptr_t)(/*_.CLASS_KEYWORD__V22*/ meltfptr[21]); MELT_LOCATION("warmelt-macro.melt:1811:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1606*/ meltfptr[1605])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1512__EXPAND_FIELDEXPR#9", NULL != (/*_.CLASS_NAMED__V23*/ meltfptr[22])); ((meltroutine_ptr_t)/*_._VALROUT___V1606*/ meltfptr[1605])->tabval[9] = (melt_ptr_t)(/*_.CLASS_NAMED__V23*/ meltfptr[22]); MELT_LOCATION("warmelt-macro.melt:1811:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1606*/ meltfptr[1605])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V991*/ meltfptr[990]); ((meltroutine_ptr_t)/*_._VALROUT___V1606*/ meltfptr[1605])->tabval[10] = (melt_ptr_t)(/*_._VALDATA___V991*/ meltfptr[990]); MELT_LOCATION("warmelt-macro.melt:1811:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1606*/ meltfptr[1605]); /*putclosurout#26*/ melt_assertmsg("putclosrout#26 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1607*/ meltfptr[1606])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#26 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1606*/ meltfptr[1605])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1607*/ meltfptr[1606])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1606*/ meltfptr[1605]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1607*/ meltfptr[1606]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1514__CLASS_FIELD @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1608*/ meltfptr[1607])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1514__CLASS_FIELD @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1608*/ meltfptr[1607])))); ((meltobject_ptr_t)(/*_._VALDATA___V1608*/ meltfptr[1607]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1609*/ meltfptr[1608]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1608*/ meltfptr[1607]); melt_dbgtrace_written_object (/*_._VALDATA___V1608*/ meltfptr[1607], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1870:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1610*/ meltfptr[1609])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1516__EXPAND_CITERATION#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1610*/ meltfptr[1609])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:1870:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1610*/ meltfptr[1609])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1516__EXPAND_CITERATION#1", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V1610*/ meltfptr[1609])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:1870:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1610*/ meltfptr[1609])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1516__EXPAND_CITERATION#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1610*/ meltfptr[1609])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:1870:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1610*/ meltfptr[1609])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1516__EXPAND_CITERATION#3", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V1610*/ meltfptr[1609])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:1870:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1610*/ meltfptr[1609])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1516__EXPAND_CITERATION#4", NULL != (/*_.CLASS_CITERATOR__V37*/ meltfptr[36])); ((meltroutine_ptr_t)/*_._VALROUT___V1610*/ meltfptr[1609])->tabval[4] = (melt_ptr_t)(/*_.CLASS_CITERATOR__V37*/ meltfptr[36]); MELT_LOCATION("warmelt-macro.melt:1870:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1610*/ meltfptr[1609])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1516__EXPAND_CITERATION#5", NULL != (/*_.FRESH_ENV__V38*/ meltfptr[37])); ((meltroutine_ptr_t)/*_._VALROUT___V1610*/ meltfptr[1609])->tabval[5] = (melt_ptr_t)(/*_.FRESH_ENV__V38*/ meltfptr[37]); MELT_LOCATION("warmelt-macro.melt:1870:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1610*/ meltfptr[1609])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1593*/ meltfptr[1592]); ((meltroutine_ptr_t)/*_._VALROUT___V1610*/ meltfptr[1609])->tabval[6] = (melt_ptr_t)(/*_._VALCLO___V1593*/ meltfptr[1592]); MELT_LOCATION("warmelt-macro.melt:1870:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1610*/ meltfptr[1609])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V306*/ meltfptr[305]); ((meltroutine_ptr_t)/*_._VALROUT___V1610*/ meltfptr[1609])->tabval[7] = (melt_ptr_t)(/*_._VALCLO___V306*/ meltfptr[305]); MELT_LOCATION("warmelt-macro.melt:2736:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1612*/ meltfptr[1611])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1623__LAMBDA_ARG_BINDINGS#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1612*/ meltfptr[1611])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:2736:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1612*/ meltfptr[1611])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1623__LAMBDA_ARG_BINDINGS#1", NULL != (/*_.DEBUG_LESS__V35*/ meltfptr[34])); ((meltroutine_ptr_t)/*_._VALROUT___V1612*/ meltfptr[1611])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_LESS__V35*/ meltfptr[34]); MELT_LOCATION("warmelt-macro.melt:2736:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1612*/ meltfptr[1611])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1623__LAMBDA_ARG_BINDINGS#2", NULL != (/*_.DISCR_FORMAL_SEQUENCE__V60*/ meltfptr[59])); ((meltroutine_ptr_t)/*_._VALROUT___V1612*/ meltfptr[1611])->tabval[2] = (melt_ptr_t)(/*_.DISCR_FORMAL_SEQUENCE__V60*/ meltfptr[59]); MELT_LOCATION("warmelt-macro.melt:2736:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1612*/ meltfptr[1611])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1623__LAMBDA_ARG_BINDINGS#3", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V1612*/ meltfptr[1611])->tabval[3] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:2736:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1612*/ meltfptr[1611])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1623__LAMBDA_ARG_BINDINGS#4", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1612*/ meltfptr[1611])->tabval[4] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:2736:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1612*/ meltfptr[1611])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1623__LAMBDA_ARG_BINDINGS#5", NULL != (/*_.CTYPE_VALUE__V61*/ meltfptr[60])); ((meltroutine_ptr_t)/*_._VALROUT___V1612*/ meltfptr[1611])->tabval[5] = (melt_ptr_t)(/*_.CTYPE_VALUE__V61*/ meltfptr[60]); MELT_LOCATION("warmelt-macro.melt:2736:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1612*/ meltfptr[1611])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1591*/ meltfptr[1590]); ((meltroutine_ptr_t)/*_._VALROUT___V1612*/ meltfptr[1611])->tabval[6] = (melt_ptr_t)(/*_._VALCLO___V1591*/ meltfptr[1590]); MELT_LOCATION("warmelt-macro.melt:2736:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1612*/ meltfptr[1611])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1623__LAMBDA_ARG_BINDINGS#7", NULL != (/*_.DISCR_MAP_OBJECTS__V21*/ meltfptr[20])); ((meltroutine_ptr_t)/*_._VALROUT___V1612*/ meltfptr[1611])->tabval[7] = (melt_ptr_t)(/*_.DISCR_MAP_OBJECTS__V21*/ meltfptr[20]); MELT_LOCATION("warmelt-macro.melt:2736:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1612*/ meltfptr[1611])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1623__LAMBDA_ARG_BINDINGS#8", NULL != (/*_.DISCR_LIST__V34*/ meltfptr[33])); ((meltroutine_ptr_t)/*_._VALROUT___V1612*/ meltfptr[1611])->tabval[8] = (melt_ptr_t)(/*_.DISCR_LIST__V34*/ meltfptr[33]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1629__REST @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1613*/ meltfptr[1612])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1629__REST @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1613*/ meltfptr[1612])))); ((meltobject_ptr_t)(/*_._VALDATA___V1613*/ meltfptr[1612]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1614*/ meltfptr[1613]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1613*/ meltfptr[1612]); melt_dbgtrace_written_object (/*_._VALDATA___V1613*/ meltfptr[1612], "new static instance"); MELT_LOCATION("warmelt-macro.melt:2736:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1612*/ meltfptr[1611])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1623__LAMBDA_ARG_BINDINGS#9", NULL != (/*_._VALDATA___V1613*/ meltfptr[1612])); ((meltroutine_ptr_t)/*_._VALROUT___V1612*/ meltfptr[1611])->tabval[9] = (melt_ptr_t)(/*_._VALDATA___V1613*/ meltfptr[1612]); MELT_LOCATION("warmelt-macro.melt:2736:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1612*/ meltfptr[1611])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V306*/ meltfptr[305]); ((meltroutine_ptr_t)/*_._VALROUT___V1612*/ meltfptr[1611])->tabval[10] = (melt_ptr_t)(/*_._VALCLO___V306*/ meltfptr[305]); MELT_LOCATION("warmelt-macro.melt:2736:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1612*/ meltfptr[1611])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1623__LAMBDA_ARG_BINDINGS#11", NULL != (/*_.DISCR_VARIADIC_FORMAL_SEQUENCE__V62*/ meltfptr[61])); ((meltroutine_ptr_t)/*_._VALROUT___V1612*/ meltfptr[1611])->tabval[11] = (melt_ptr_t)(/*_.DISCR_VARIADIC_FORMAL_SEQUENCE__V62*/ meltfptr[61]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1633__AUTO @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1615*/ meltfptr[1614])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1633__AUTO @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1615*/ meltfptr[1614])))); ((meltobject_ptr_t)(/*_._VALDATA___V1615*/ meltfptr[1614]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1616*/ meltfptr[1615]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1615*/ meltfptr[1614]); melt_dbgtrace_written_object (/*_._VALDATA___V1615*/ meltfptr[1614], "new static instance"); MELT_LOCATION("warmelt-macro.melt:2736:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1612*/ meltfptr[1611])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1623__LAMBDA_ARG_BINDINGS#12", NULL != (/*_._VALDATA___V1615*/ meltfptr[1614])); ((meltroutine_ptr_t)/*_._VALROUT___V1612*/ meltfptr[1611])->tabval[12] = (melt_ptr_t)(/*_._VALDATA___V1615*/ meltfptr[1614]); MELT_LOCATION("warmelt-macro.melt:2736:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1612*/ meltfptr[1611])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1623__LAMBDA_ARG_BINDINGS#13", NULL != (/*_.CLASS_KEYWORD__V22*/ meltfptr[21])); ((meltroutine_ptr_t)/*_._VALROUT___V1612*/ meltfptr[1611])->tabval[13] = (melt_ptr_t)(/*_.CLASS_KEYWORD__V22*/ meltfptr[21]); MELT_LOCATION("warmelt-macro.melt:2736:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1612*/ meltfptr[1611])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1623__LAMBDA_ARG_BINDINGS#14", NULL != (/*_.CLASS_CTYPE__V63*/ meltfptr[62])); ((meltroutine_ptr_t)/*_._VALROUT___V1612*/ meltfptr[1611])->tabval[14] = (melt_ptr_t)(/*_.CLASS_CTYPE__V63*/ meltfptr[62]); MELT_LOCATION("warmelt-macro.melt:2736:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1612*/ meltfptr[1611])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1623__LAMBDA_ARG_BINDINGS#15", NULL != (/*_.CLASS_QUASI_CTYPE__V64*/ meltfptr[63])); ((meltroutine_ptr_t)/*_._VALROUT___V1612*/ meltfptr[1611])->tabval[15] = (melt_ptr_t)(/*_.CLASS_QUASI_CTYPE__V64*/ meltfptr[63]); MELT_LOCATION("warmelt-macro.melt:2736:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1612*/ meltfptr[1611])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1623__LAMBDA_ARG_BINDINGS#16", NULL != (/*_.CLASS_NAMED__V23*/ meltfptr[22])); ((meltroutine_ptr_t)/*_._VALROUT___V1612*/ meltfptr[1611])->tabval[16] = (melt_ptr_t)(/*_.CLASS_NAMED__V23*/ meltfptr[22]); MELT_LOCATION("warmelt-macro.melt:2736:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1612*/ meltfptr[1611])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1623__LAMBDA_ARG_BINDINGS#17", NULL != (/*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V1612*/ meltfptr[1611])->tabval[17] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-macro.melt:2736:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1612*/ meltfptr[1611])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1623__LAMBDA_ARG_BINDINGS#18", NULL != (/*_.CLASS_FORMAL_BINDING__V49*/ meltfptr[48])); ((meltroutine_ptr_t)/*_._VALROUT___V1612*/ meltfptr[1611])->tabval[18] = (melt_ptr_t)(/*_.CLASS_FORMAL_BINDING__V49*/ meltfptr[48]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1639__CHECKARGS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1617*/ meltfptr[1616])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1639__CHECKARGS @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1617*/ meltfptr[1616])))); ((meltobject_ptr_t)(/*_._VALDATA___V1617*/ meltfptr[1616]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1618*/ meltfptr[1617]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1617*/ meltfptr[1616]); melt_dbgtrace_written_object (/*_._VALDATA___V1617*/ meltfptr[1616], "new static instance"); MELT_LOCATION("warmelt-macro.melt:2736:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1612*/ meltfptr[1611])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1623__LAMBDA_ARG_BINDINGS#19", NULL != (/*_._VALDATA___V1617*/ meltfptr[1616])); ((meltroutine_ptr_t)/*_._VALROUT___V1612*/ meltfptr[1611])->tabval[19] = (melt_ptr_t)(/*_._VALDATA___V1617*/ meltfptr[1616]); MELT_LOCATION("warmelt-macro.melt:2736:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1612*/ meltfptr[1611])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1623__LAMBDA_ARG_BINDINGS#20", NULL != (/*_.CLASS_ANY_BINDING__V28*/ meltfptr[27])); ((meltroutine_ptr_t)/*_._VALROUT___V1612*/ meltfptr[1611])->tabval[20] = (melt_ptr_t)(/*_.CLASS_ANY_BINDING__V28*/ meltfptr[27]); MELT_LOCATION("warmelt-macro.melt:2736:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1612*/ meltfptr[1611]); /*putclosurout#27*/ melt_assertmsg("putclosrout#27 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1611*/ meltfptr[1610])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#27 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1612*/ meltfptr[1611])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1611*/ meltfptr[1610])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1612*/ meltfptr[1611]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1611*/ meltfptr[1610]); MELT_LOCATION("warmelt-macro.melt:1870:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1610*/ meltfptr[1609])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1611*/ meltfptr[1610]); ((meltroutine_ptr_t)/*_._VALROUT___V1610*/ meltfptr[1609])->tabval[8] = (melt_ptr_t)(/*_._VALCLO___V1611*/ meltfptr[1610]); MELT_LOCATION("warmelt-macro.melt:1870:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1610*/ meltfptr[1609])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1516__EXPAND_CITERATION#9", NULL != (/*_.PUT_ENV__V32*/ meltfptr[31])); ((meltroutine_ptr_t)/*_._VALROUT___V1610*/ meltfptr[1609])->tabval[9] = (melt_ptr_t)(/*_.PUT_ENV__V32*/ meltfptr[31]); MELT_LOCATION("warmelt-macro.melt:1870:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1610*/ meltfptr[1609])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V431*/ meltfptr[430]); ((meltroutine_ptr_t)/*_._VALROUT___V1610*/ meltfptr[1609])->tabval[10] = (melt_ptr_t)(/*_._VALDATA___V431*/ meltfptr[430]); MELT_LOCATION("warmelt-macro.melt:1870:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1610*/ meltfptr[1609]); /*putclosurout#28*/ melt_assertmsg("putclosrout#28 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1619*/ meltfptr[1618])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#28 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1610*/ meltfptr[1609])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1619*/ meltfptr[1618])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1610*/ meltfptr[1609]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1619*/ meltfptr[1618]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1518__CLASS_CITERATOR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1620*/ meltfptr[1619])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1518__CLASS_CITERATOR @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1620*/ meltfptr[1619])))); ((meltobject_ptr_t)(/*_._VALDATA___V1620*/ meltfptr[1619]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1621*/ meltfptr[1620]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1620*/ meltfptr[1619]); melt_dbgtrace_written_object (/*_._VALDATA___V1620*/ meltfptr[1619], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1520__FRESH_ENV @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1622*/ meltfptr[1621])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1520__FRESH_ENV @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1622*/ meltfptr[1621])))); ((meltobject_ptr_t)(/*_._VALDATA___V1622*/ meltfptr[1621]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1623*/ meltfptr[1622]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1622*/ meltfptr[1621]); melt_dbgtrace_written_object (/*_._VALDATA___V1622*/ meltfptr[1621], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1934:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1624*/ meltfptr[1623])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1522__EXPAND_CMATCHEXPR#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1624*/ meltfptr[1623])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:1934:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1624*/ meltfptr[1623])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1522__EXPAND_CMATCHEXPR#1", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V1624*/ meltfptr[1623])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:1934:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1624*/ meltfptr[1623])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1522__EXPAND_CMATCHEXPR#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1624*/ meltfptr[1623])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:1934:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1624*/ meltfptr[1623])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1522__EXPAND_CMATCHEXPR#3", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V1624*/ meltfptr[1623])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:1934:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1624*/ meltfptr[1623])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1522__EXPAND_CMATCHEXPR#4", NULL != (/*_.CLASS_CMATCHER__V39*/ meltfptr[38])); ((meltroutine_ptr_t)/*_._VALROUT___V1624*/ meltfptr[1623])->tabval[4] = (melt_ptr_t)(/*_.CLASS_CMATCHER__V39*/ meltfptr[38]); MELT_LOCATION("warmelt-macro.melt:1934:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1624*/ meltfptr[1623])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1589*/ meltfptr[1588]); ((meltroutine_ptr_t)/*_._VALROUT___V1624*/ meltfptr[1623])->tabval[5] = (melt_ptr_t)(/*_._VALCLO___V1589*/ meltfptr[1588]); MELT_LOCATION("warmelt-macro.melt:1934:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1624*/ meltfptr[1623])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1522__EXPAND_CMATCHEXPR#6", NULL != (/*_.CLASS_ANY_MATCHER__V40*/ meltfptr[39])); ((meltroutine_ptr_t)/*_._VALROUT___V1624*/ meltfptr[1623])->tabval[6] = (melt_ptr_t)(/*_.CLASS_ANY_MATCHER__V40*/ meltfptr[39]); MELT_LOCATION("warmelt-macro.melt:1934:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1624*/ meltfptr[1623])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1522__EXPAND_CMATCHEXPR#7", NULL != (/*_.CLASS_NAMED__V23*/ meltfptr[22])); ((meltroutine_ptr_t)/*_._VALROUT___V1624*/ meltfptr[1623])->tabval[7] = (melt_ptr_t)(/*_.CLASS_NAMED__V23*/ meltfptr[22]); MELT_LOCATION("warmelt-macro.melt:1934:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1624*/ meltfptr[1623])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V306*/ meltfptr[305]); ((meltroutine_ptr_t)/*_._VALROUT___V1624*/ meltfptr[1623])->tabval[8] = (melt_ptr_t)(/*_._VALCLO___V306*/ meltfptr[305]); MELT_LOCATION("warmelt-macro.melt:1934:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1624*/ meltfptr[1623])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V449*/ meltfptr[448]); ((meltroutine_ptr_t)/*_._VALROUT___V1624*/ meltfptr[1623])->tabval[9] = (melt_ptr_t)(/*_._VALDATA___V449*/ meltfptr[448]); MELT_LOCATION("warmelt-macro.melt:1934:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1624*/ meltfptr[1623]); /*putclosurout#29*/ melt_assertmsg("putclosrout#29 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1625*/ meltfptr[1624])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#29 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1624*/ meltfptr[1623])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1625*/ meltfptr[1624])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1624*/ meltfptr[1623]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1625*/ meltfptr[1624]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1524__CLASS_CMATCHER @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1626*/ meltfptr[1625])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1524__CLASS_CMATCHER @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1626*/ meltfptr[1625])))); ((meltobject_ptr_t)(/*_._VALDATA___V1626*/ meltfptr[1625]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1627*/ meltfptr[1626]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1626*/ meltfptr[1625]); melt_dbgtrace_written_object (/*_._VALDATA___V1626*/ meltfptr[1625], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1526__CLASS_ANY_MATCHER @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1628*/ meltfptr[1627])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1526__CLASS_ANY_MATCHER @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1628*/ meltfptr[1627])))); ((meltobject_ptr_t)(/*_._VALDATA___V1628*/ meltfptr[1627]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1629*/ meltfptr[1628]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1628*/ meltfptr[1627]); melt_dbgtrace_written_object (/*_._VALDATA___V1628*/ meltfptr[1627], "new static instance"); MELT_LOCATION("warmelt-macro.melt:1982:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1630*/ meltfptr[1629])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1528__EXPAND_FUNMATCHEXPR#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1630*/ meltfptr[1629])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:1982:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1630*/ meltfptr[1629])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1528__EXPAND_FUNMATCHEXPR#1", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V1630*/ meltfptr[1629])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:1982:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1630*/ meltfptr[1629])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1528__EXPAND_FUNMATCHEXPR#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1630*/ meltfptr[1629])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:1982:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1630*/ meltfptr[1629])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1528__EXPAND_FUNMATCHEXPR#3", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V1630*/ meltfptr[1629])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:1982:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1630*/ meltfptr[1629])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1528__EXPAND_FUNMATCHEXPR#4", NULL != (/*_.CLASS_FUNMATCHER__V41*/ meltfptr[40])); ((meltroutine_ptr_t)/*_._VALROUT___V1630*/ meltfptr[1629])->tabval[4] = (melt_ptr_t)(/*_.CLASS_FUNMATCHER__V41*/ meltfptr[40]); MELT_LOCATION("warmelt-macro.melt:1982:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1630*/ meltfptr[1629])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1589*/ meltfptr[1588]); ((meltroutine_ptr_t)/*_._VALROUT___V1630*/ meltfptr[1629])->tabval[5] = (melt_ptr_t)(/*_._VALCLO___V1589*/ meltfptr[1588]); MELT_LOCATION("warmelt-macro.melt:1982:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1630*/ meltfptr[1629])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V459*/ meltfptr[458]); ((meltroutine_ptr_t)/*_._VALROUT___V1630*/ meltfptr[1629])->tabval[6] = (melt_ptr_t)(/*_._VALDATA___V459*/ meltfptr[458]); MELT_LOCATION("warmelt-macro.melt:1982:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1630*/ meltfptr[1629]); /*putclosurout#30*/ melt_assertmsg("putclosrout#30 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1631*/ meltfptr[1630])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#30 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1630*/ meltfptr[1629])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1631*/ meltfptr[1630])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1630*/ meltfptr[1629]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1631*/ meltfptr[1630]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1530__CLASS_FUNMATCHER @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1632*/ meltfptr[1631])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1530__CLASS_FUNMATCHER @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1632*/ meltfptr[1631])))); ((meltobject_ptr_t)(/*_._VALDATA___V1632*/ meltfptr[1631]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1633*/ meltfptr[1632]); #undef meltfram__ } /*end of meltmod__WARMELTmiMACRO__initialmeltchunk_31*/ void meltmod__WARMELTmiMACRO__initialmeltchunk_32 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1632*/ meltfptr[1631]); melt_dbgtrace_written_object (/*_._VALDATA___V1632*/ meltfptr[1631], "new static instance"); MELT_LOCATION("warmelt-macro.melt:2014:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1634*/ meltfptr[1633])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1532__EXPAND_KEYWORDFUN#0", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V1634*/ meltfptr[1633])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:2014:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1634*/ meltfptr[1633])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1532__EXPAND_KEYWORDFUN#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1634*/ meltfptr[1633])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:2014:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1634*/ meltfptr[1633])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1532__EXPAND_KEYWORDFUN#2", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V1634*/ meltfptr[1633])->tabval[2] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:2014:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1634*/ meltfptr[1633])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1532__EXPAND_KEYWORDFUN#3", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1634*/ meltfptr[1633])->tabval[3] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:2014:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1634*/ meltfptr[1633])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1532__EXPAND_KEYWORDFUN#4", NULL != (/*_.LIST_TO_MULTIPLE__V12*/ meltfptr[11])); ((meltroutine_ptr_t)/*_._VALROUT___V1634*/ meltfptr[1633])->tabval[4] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V12*/ meltfptr[11]); MELT_LOCATION("warmelt-macro.melt:2014:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1634*/ meltfptr[1633])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1532__EXPAND_KEYWORDFUN#5", NULL != (/*_.DISCR_MULTIPLE__V13*/ meltfptr[12])); ((meltroutine_ptr_t)/*_._VALROUT___V1634*/ meltfptr[1633])->tabval[5] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V13*/ meltfptr[12]); MELT_LOCATION("warmelt-macro.melt:2014:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1634*/ meltfptr[1633])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V306*/ meltfptr[305]); ((meltroutine_ptr_t)/*_._VALROUT___V1634*/ meltfptr[1633])->tabval[6] = (melt_ptr_t)(/*_._VALCLO___V306*/ meltfptr[305]); MELT_LOCATION("warmelt-macro.melt:2014:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1634*/ meltfptr[1633]); /*putclosurout#31*/ melt_assertmsg("putclosrout#31 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1635*/ meltfptr[1634])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#31 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1634*/ meltfptr[1633])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1635*/ meltfptr[1634])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1634*/ meltfptr[1633]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1635*/ meltfptr[1634]); MELT_LOCATION("warmelt-macro.melt:2032:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1636*/ meltfptr[1635])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1534__MACROEXPAND_1#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1636*/ meltfptr[1635])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:2032:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1636*/ meltfptr[1635])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1534__MACROEXPAND_1#1", NULL != (/*_.DEBUG_LESS__V35*/ meltfptr[34])); ((meltroutine_ptr_t)/*_._VALROUT___V1636*/ meltfptr[1635])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_LESS__V35*/ meltfptr[34]); MELT_LOCATION("warmelt-macro.melt:2032:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1636*/ meltfptr[1635])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1534__MACROEXPAND_1#2", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V1636*/ meltfptr[1635])->tabval[2] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:2032:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1636*/ meltfptr[1635])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1534__MACROEXPAND_1#3", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1636*/ meltfptr[1635])->tabval[3] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:2032:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1636*/ meltfptr[1635])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1534__MACROEXPAND_1#4", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V1636*/ meltfptr[1635])->tabval[4] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:2032:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1636*/ meltfptr[1635])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1534__MACROEXPAND_1#5", NULL != (/*_.CLASS_KEYWORD__V22*/ meltfptr[21])); ((meltroutine_ptr_t)/*_._VALROUT___V1636*/ meltfptr[1635])->tabval[5] = (melt_ptr_t)(/*_.CLASS_KEYWORD__V22*/ meltfptr[21]); MELT_LOCATION("warmelt-macro.melt:2032:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1636*/ meltfptr[1635])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1635*/ meltfptr[1634]); ((meltroutine_ptr_t)/*_._VALROUT___V1636*/ meltfptr[1635])->tabval[6] = (melt_ptr_t)(/*_._VALCLO___V1635*/ meltfptr[1634]); MELT_LOCATION("warmelt-macro.melt:2032:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1636*/ meltfptr[1635])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1534__MACROEXPAND_1#7", NULL != (/*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V1636*/ meltfptr[1635])->tabval[7] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-macro.melt:2032:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1636*/ meltfptr[1635])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1534__MACROEXPAND_1#8", NULL != (/*_.FIND_ENV__V31*/ meltfptr[30])); ((meltroutine_ptr_t)/*_._VALROUT___V1636*/ meltfptr[1635])->tabval[8] = (melt_ptr_t)(/*_.FIND_ENV__V31*/ meltfptr[30]); MELT_LOCATION("warmelt-macro.melt:2032:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1636*/ meltfptr[1635])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1534__MACROEXPAND_1#9", NULL != (/*_.CLASS_NAMED__V23*/ meltfptr[22])); ((meltroutine_ptr_t)/*_._VALROUT___V1636*/ meltfptr[1635])->tabval[9] = (melt_ptr_t)(/*_.CLASS_NAMED__V23*/ meltfptr[22]); MELT_LOCATION("warmelt-macro.melt:2032:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1636*/ meltfptr[1635])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1534__MACROEXPAND_1#10", NULL != (/*_.CLASS_MACRO_BINDING__V26*/ meltfptr[25])); ((meltroutine_ptr_t)/*_._VALROUT___V1636*/ meltfptr[1635])->tabval[10] = (melt_ptr_t)(/*_.CLASS_MACRO_BINDING__V26*/ meltfptr[25]); MELT_LOCATION("warmelt-macro.melt:2032:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1636*/ meltfptr[1635])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V306*/ meltfptr[305]); ((meltroutine_ptr_t)/*_._VALROUT___V1636*/ meltfptr[1635])->tabval[11] = (melt_ptr_t)(/*_._VALCLO___V306*/ meltfptr[305]); MELT_LOCATION("warmelt-macro.melt:2032:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1636*/ meltfptr[1635])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1534__MACROEXPAND_1#12", NULL != (/*_.CLASS_SELECTOR_BINDING__V42*/ meltfptr[41])); ((meltroutine_ptr_t)/*_._VALROUT___V1636*/ meltfptr[1635])->tabval[12] = (melt_ptr_t)(/*_.CLASS_SELECTOR_BINDING__V42*/ meltfptr[41]); MELT_LOCATION("warmelt-macro.melt:2032:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1636*/ meltfptr[1635])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1605*/ meltfptr[1604]); ((meltroutine_ptr_t)/*_._VALROUT___V1636*/ meltfptr[1635])->tabval[13] = (melt_ptr_t)(/*_._VALCLO___V1605*/ meltfptr[1604]); MELT_LOCATION("warmelt-macro.melt:2032:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1636*/ meltfptr[1635])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1534__MACROEXPAND_1#14", NULL != (/*_.CLASS_PRIMITIVE_BINDING__V43*/ meltfptr[42])); ((meltroutine_ptr_t)/*_._VALROUT___V1636*/ meltfptr[1635])->tabval[14] = (melt_ptr_t)(/*_.CLASS_PRIMITIVE_BINDING__V43*/ meltfptr[42]); MELT_LOCATION("warmelt-macro.melt:2236:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1638*/ meltfptr[1637])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1561__EXPAND_PRIMITIVE#0", NULL != (/*_.CLASS_PRIMITIVE__V52*/ meltfptr[51])); ((meltroutine_ptr_t)/*_._VALROUT___V1638*/ meltfptr[1637])->tabval[0] = (melt_ptr_t)(/*_.CLASS_PRIMITIVE__V52*/ meltfptr[51]); MELT_LOCATION("warmelt-macro.melt:2236:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1638*/ meltfptr[1637])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1561__EXPAND_PRIMITIVE#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1638*/ meltfptr[1637])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:2236:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1638*/ meltfptr[1637])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1561__EXPAND_PRIMITIVE#2", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V1638*/ meltfptr[1637])->tabval[2] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:2236:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1638*/ meltfptr[1637])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1561__EXPAND_PRIMITIVE#3", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V1638*/ meltfptr[1637])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:2236:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1638*/ meltfptr[1637])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1589*/ meltfptr[1588]); ((meltroutine_ptr_t)/*_._VALROUT___V1638*/ meltfptr[1637])->tabval[4] = (melt_ptr_t)(/*_._VALCLO___V1589*/ meltfptr[1588]); MELT_LOCATION("warmelt-macro.melt:2236:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1638*/ meltfptr[1637])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V397*/ meltfptr[396]); ((meltroutine_ptr_t)/*_._VALROUT___V1638*/ meltfptr[1637])->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V397*/ meltfptr[396]); MELT_LOCATION("warmelt-macro.melt:2236:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1638*/ meltfptr[1637]); /*putclosurout#32*/ melt_assertmsg("putclosrout#32 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1637*/ meltfptr[1636])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#32 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1638*/ meltfptr[1637])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1637*/ meltfptr[1636])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1638*/ meltfptr[1637]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1637*/ meltfptr[1636]); MELT_LOCATION("warmelt-macro.melt:2032:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1636*/ meltfptr[1635])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1637*/ meltfptr[1636]); ((meltroutine_ptr_t)/*_._VALROUT___V1636*/ meltfptr[1635])->tabval[15] = (melt_ptr_t)(/*_._VALCLO___V1637*/ meltfptr[1636]); MELT_LOCATION("warmelt-macro.melt:2032:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1636*/ meltfptr[1635])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1534__MACROEXPAND_1#16", NULL != (/*_.CLASS_CITERATOR_BINDING__V44*/ meltfptr[43])); ((meltroutine_ptr_t)/*_._VALROUT___V1636*/ meltfptr[1635])->tabval[16] = (melt_ptr_t)(/*_.CLASS_CITERATOR_BINDING__V44*/ meltfptr[43]); MELT_LOCATION("warmelt-macro.melt:2032:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1636*/ meltfptr[1635])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1619*/ meltfptr[1618]); ((meltroutine_ptr_t)/*_._VALROUT___V1636*/ meltfptr[1635])->tabval[17] = (melt_ptr_t)(/*_._VALCLO___V1619*/ meltfptr[1618]); MELT_LOCATION("warmelt-macro.melt:2032:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1636*/ meltfptr[1635])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1534__MACROEXPAND_1#18", NULL != (/*_.CLASS_HOOK_BINDING__V45*/ meltfptr[44])); ((meltroutine_ptr_t)/*_._VALROUT___V1636*/ meltfptr[1635])->tabval[18] = (melt_ptr_t)(/*_.CLASS_HOOK_BINDING__V45*/ meltfptr[44]); MELT_LOCATION("warmelt-macro.melt:2253:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1640*/ meltfptr[1639])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1563__EXPAND_HOOK#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1640*/ meltfptr[1639])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:2253:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1640*/ meltfptr[1639])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1563__EXPAND_HOOK#1", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V1640*/ meltfptr[1639])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:2253:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1640*/ meltfptr[1639])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1563__EXPAND_HOOK#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1640*/ meltfptr[1639])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:2253:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1640*/ meltfptr[1639])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1563__EXPAND_HOOK#3", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V1640*/ meltfptr[1639])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:2253:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1640*/ meltfptr[1639])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V807*/ meltfptr[806]); ((meltroutine_ptr_t)/*_._VALROUT___V1640*/ meltfptr[1639])->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V807*/ meltfptr[806]); MELT_LOCATION("warmelt-macro.melt:2253:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1640*/ meltfptr[1639])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1589*/ meltfptr[1588]); ((meltroutine_ptr_t)/*_._VALROUT___V1640*/ meltfptr[1639])->tabval[5] = (melt_ptr_t)(/*_._VALCLO___V1589*/ meltfptr[1588]); MELT_LOCATION("warmelt-macro.melt:2253:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1640*/ meltfptr[1639])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V407*/ meltfptr[406]); ((meltroutine_ptr_t)/*_._VALROUT___V1640*/ meltfptr[1639])->tabval[6] = (melt_ptr_t)(/*_._VALDATA___V407*/ meltfptr[406]); MELT_LOCATION("warmelt-macro.melt:2253:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1640*/ meltfptr[1639]); /*putclosurout#33*/ melt_assertmsg("putclosrout#33 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1639*/ meltfptr[1638])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#33 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1640*/ meltfptr[1639])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1639*/ meltfptr[1638])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1640*/ meltfptr[1639]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1639*/ meltfptr[1638]); MELT_LOCATION("warmelt-macro.melt:2032:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1636*/ meltfptr[1635])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1639*/ meltfptr[1638]); ((meltroutine_ptr_t)/*_._VALROUT___V1636*/ meltfptr[1635])->tabval[19] = (melt_ptr_t)(/*_._VALCLO___V1639*/ meltfptr[1638]); MELT_LOCATION("warmelt-macro.melt:2032:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1636*/ meltfptr[1635])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1534__MACROEXPAND_1#20", NULL != (/*_.CLASS_CMATCHER_BINDING__V46*/ meltfptr[45])); ((meltroutine_ptr_t)/*_._VALROUT___V1636*/ meltfptr[1635])->tabval[20] = (melt_ptr_t)(/*_.CLASS_CMATCHER_BINDING__V46*/ meltfptr[45]); MELT_LOCATION("warmelt-macro.melt:2032:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1636*/ meltfptr[1635])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1625*/ meltfptr[1624]); ((meltroutine_ptr_t)/*_._VALROUT___V1636*/ meltfptr[1635])->tabval[21] = (melt_ptr_t)(/*_._VALCLO___V1625*/ meltfptr[1624]); MELT_LOCATION("warmelt-macro.melt:2032:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1636*/ meltfptr[1635])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1534__MACROEXPAND_1#22", NULL != (/*_.CLASS_FUNMATCHER_BINDING__V47*/ meltfptr[46])); ((meltroutine_ptr_t)/*_._VALROUT___V1636*/ meltfptr[1635])->tabval[22] = (melt_ptr_t)(/*_.CLASS_FUNMATCHER_BINDING__V47*/ meltfptr[46]); MELT_LOCATION("warmelt-macro.melt:2032:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1636*/ meltfptr[1635])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1631*/ meltfptr[1630]); ((meltroutine_ptr_t)/*_._VALROUT___V1636*/ meltfptr[1635])->tabval[23] = (melt_ptr_t)(/*_._VALCLO___V1631*/ meltfptr[1630]); MELT_LOCATION("warmelt-macro.melt:2032:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1636*/ meltfptr[1635])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1534__MACROEXPAND_1#24", NULL != (/*_.CLASS_FIELD_BINDING__V48*/ meltfptr[47])); ((meltroutine_ptr_t)/*_._VALROUT___V1636*/ meltfptr[1635])->tabval[24] = (melt_ptr_t)(/*_.CLASS_FIELD_BINDING__V48*/ meltfptr[47]); MELT_LOCATION("warmelt-macro.melt:2032:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1636*/ meltfptr[1635])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1607*/ meltfptr[1606]); ((meltroutine_ptr_t)/*_._VALROUT___V1636*/ meltfptr[1635])->tabval[25] = (melt_ptr_t)(/*_._VALCLO___V1607*/ meltfptr[1606]); MELT_LOCATION("warmelt-macro.melt:2032:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1636*/ meltfptr[1635])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1534__MACROEXPAND_1#26", NULL != (/*_.CLASS_FORMAL_BINDING__V49*/ meltfptr[48])); ((meltroutine_ptr_t)/*_._VALROUT___V1636*/ meltfptr[1635])->tabval[26] = (melt_ptr_t)(/*_.CLASS_FORMAL_BINDING__V49*/ meltfptr[48]); MELT_LOCATION("warmelt-macro.melt:2032:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1636*/ meltfptr[1635])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1601*/ meltfptr[1600]); ((meltroutine_ptr_t)/*_._VALROUT___V1636*/ meltfptr[1635])->tabval[27] = (melt_ptr_t)(/*_._VALCLO___V1601*/ meltfptr[1600]); MELT_LOCATION("warmelt-macro.melt:2032:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1636*/ meltfptr[1635])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1534__MACROEXPAND_1#28", NULL != (/*_.CLASS_LET_BINDING__V50*/ meltfptr[49])); ((meltroutine_ptr_t)/*_._VALROUT___V1636*/ meltfptr[1635])->tabval[28] = (melt_ptr_t)(/*_.CLASS_LET_BINDING__V50*/ meltfptr[49]); MELT_LOCATION("warmelt-macro.melt:2032:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1636*/ meltfptr[1635])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1534__MACROEXPAND_1#29", NULL != (/*_.CLASS_VALUE_BINDING__V51*/ meltfptr[50])); ((meltroutine_ptr_t)/*_._VALROUT___V1636*/ meltfptr[1635])->tabval[29] = (melt_ptr_t)(/*_.CLASS_VALUE_BINDING__V51*/ meltfptr[50]); MELT_LOCATION("warmelt-macro.melt:2032:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1636*/ meltfptr[1635])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1534__MACROEXPAND_1#30", NULL != (/*_.CLASS_PRIMITIVE__V52*/ meltfptr[51])); ((meltroutine_ptr_t)/*_._VALROUT___V1636*/ meltfptr[1635])->tabval[30] = (melt_ptr_t)(/*_.CLASS_PRIMITIVE__V52*/ meltfptr[51]); MELT_LOCATION("warmelt-macro.melt:2032:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1636*/ meltfptr[1635])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1534__MACROEXPAND_1#31", NULL != (/*_.CLASS_SELECTOR__V24*/ meltfptr[23])); ((meltroutine_ptr_t)/*_._VALROUT___V1636*/ meltfptr[1635])->tabval[31] = (melt_ptr_t)(/*_.CLASS_SELECTOR__V24*/ meltfptr[23]); MELT_LOCATION("warmelt-macro.melt:2032:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1636*/ meltfptr[1635])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1534__MACROEXPAND_1#32", NULL != (/*_.CLASS_CITERATOR__V37*/ meltfptr[36])); ((meltroutine_ptr_t)/*_._VALROUT___V1636*/ meltfptr[1635])->tabval[32] = (melt_ptr_t)(/*_.CLASS_CITERATOR__V37*/ meltfptr[36]); MELT_LOCATION("warmelt-macro.melt:2032:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1636*/ meltfptr[1635])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1534__MACROEXPAND_1#33", NULL != (/*_.CLASS_CMATCHER__V39*/ meltfptr[38])); ((meltroutine_ptr_t)/*_._VALROUT___V1636*/ meltfptr[1635])->tabval[33] = (melt_ptr_t)(/*_.CLASS_CMATCHER__V39*/ meltfptr[38]); MELT_LOCATION("warmelt-macro.melt:2032:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1636*/ meltfptr[1635])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1534__MACROEXPAND_1#34", NULL != (/*_.CLASS_FUNMATCHER__V41*/ meltfptr[40])); ((meltroutine_ptr_t)/*_._VALROUT___V1636*/ meltfptr[1635])->tabval[34] = (melt_ptr_t)(/*_.CLASS_FUNMATCHER__V41*/ meltfptr[40]); MELT_LOCATION("warmelt-macro.melt:2032:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1636*/ meltfptr[1635])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1534__MACROEXPAND_1#35", NULL != (/*_.CLASS_FIELD__V36*/ meltfptr[35])); ((meltroutine_ptr_t)/*_._VALROUT___V1636*/ meltfptr[1635])->tabval[35] = (melt_ptr_t)(/*_.CLASS_FIELD__V36*/ meltfptr[35]); MELT_LOCATION("warmelt-macro.melt:2032:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1636*/ meltfptr[1635])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1534__MACROEXPAND_1#36", NULL != (/*_.DEBUG_MORE__V53*/ meltfptr[52])); ((meltroutine_ptr_t)/*_._VALROUT___V1636*/ meltfptr[1635])->tabval[36] = (melt_ptr_t)(/*_.DEBUG_MORE__V53*/ meltfptr[52]); MELT_LOCATION("warmelt-macro.melt:2032:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1636*/ meltfptr[1635])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1534__MACROEXPAND_1#37", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1636*/ meltfptr[1635])->tabval[37] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:2188:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1641*/ meltfptr[1640])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1560__LAMBDA_#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1641*/ meltfptr[1640])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:2188:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1641*/ meltfptr[1640]); MELT_LOCATION("warmelt-macro.melt:2032:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1636*/ meltfptr[1635])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1534__MACROEXPAND_1#38", NULL != (/*_._VALROUT___V1641*/ meltfptr[1640])); ((meltroutine_ptr_t)/*_._VALROUT___V1636*/ meltfptr[1635])->tabval[38] = (melt_ptr_t)(/*_._VALROUT___V1641*/ meltfptr[1640]); MELT_LOCATION("warmelt-macro.melt:2032:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1636*/ meltfptr[1635])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V349*/ meltfptr[348]); ((meltroutine_ptr_t)/*_._VALROUT___V1636*/ meltfptr[1635])->tabval[39] = (melt_ptr_t)(/*_._VALDATA___V349*/ meltfptr[348]); MELT_LOCATION("warmelt-macro.melt:2032:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1636*/ meltfptr[1635]); /*putclosurout#34*/ melt_assertmsg("putclosrout#34 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1642*/ meltfptr[1641])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#34 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1636*/ meltfptr[1635])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1642*/ meltfptr[1641])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1636*/ meltfptr[1635]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1642*/ meltfptr[1641]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1536__CLASS_SELECTOR_BINDING @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1643*/ meltfptr[1642])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1536__CLASS_SELECTOR_BINDING @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1643*/ meltfptr[1642])))); ((meltobject_ptr_t)(/*_._VALDATA___V1643*/ meltfptr[1642]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1644*/ meltfptr[1643]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1643*/ meltfptr[1642]); melt_dbgtrace_written_object (/*_._VALDATA___V1643*/ meltfptr[1642], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1538__CLASS_PRIMITIVE_BINDING @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1645*/ meltfptr[1644])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1538__CLASS_PRIMITIVE_BINDING @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1645*/ meltfptr[1644])))); ((meltobject_ptr_t)(/*_._VALDATA___V1645*/ meltfptr[1644]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1646*/ meltfptr[1645]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1645*/ meltfptr[1644]); melt_dbgtrace_written_object (/*_._VALDATA___V1645*/ meltfptr[1644], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1540__CLASS_CITERATOR_BINDING @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1647*/ meltfptr[1646])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1540__CLASS_CITERATOR_BINDING @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1647*/ meltfptr[1646])))); ((meltobject_ptr_t)(/*_._VALDATA___V1647*/ meltfptr[1646]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1648*/ meltfptr[1647]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1647*/ meltfptr[1646]); melt_dbgtrace_written_object (/*_._VALDATA___V1647*/ meltfptr[1646], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1542__CLASS_HOOK_BINDING @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1649*/ meltfptr[1648])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1542__CLASS_HOOK_BINDING @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1649*/ meltfptr[1648])))); ((meltobject_ptr_t)(/*_._VALDATA___V1649*/ meltfptr[1648]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1650*/ meltfptr[1649]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1649*/ meltfptr[1648]); melt_dbgtrace_written_object (/*_._VALDATA___V1649*/ meltfptr[1648], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1544__CLASS_CMATCHER_BINDING @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1651*/ meltfptr[1650])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1544__CLASS_CMATCHER_BINDING @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1651*/ meltfptr[1650])))); ((meltobject_ptr_t)(/*_._VALDATA___V1651*/ meltfptr[1650]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1652*/ meltfptr[1651]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1651*/ meltfptr[1650]); melt_dbgtrace_written_object (/*_._VALDATA___V1651*/ meltfptr[1650], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1546__CLASS_FUNMATCHER_BINDING @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1653*/ meltfptr[1652])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1546__CLASS_FUNMATCHER_BINDING @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1653*/ meltfptr[1652])))); ((meltobject_ptr_t)(/*_._VALDATA___V1653*/ meltfptr[1652]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1654*/ meltfptr[1653]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1653*/ meltfptr[1652]); melt_dbgtrace_written_object (/*_._VALDATA___V1653*/ meltfptr[1652], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1548__CLASS_FIELD_BINDING @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1655*/ meltfptr[1654])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1548__CLASS_FIELD_BINDING @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1655*/ meltfptr[1654])))); ((meltobject_ptr_t)(/*_._VALDATA___V1655*/ meltfptr[1654]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1656*/ meltfptr[1655]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1655*/ meltfptr[1654]); melt_dbgtrace_written_object (/*_._VALDATA___V1655*/ meltfptr[1654], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1550__CLASS_FORMAL_BINDING @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1657*/ meltfptr[1656])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1550__CLASS_FORMAL_BINDING @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1657*/ meltfptr[1656])))); ((meltobject_ptr_t)(/*_._VALDATA___V1657*/ meltfptr[1656]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1658*/ meltfptr[1657]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1657*/ meltfptr[1656]); melt_dbgtrace_written_object (/*_._VALDATA___V1657*/ meltfptr[1656], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1552__CLASS_LET_BINDING @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1659*/ meltfptr[1658])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1552__CLASS_LET_BINDING @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1659*/ meltfptr[1658])))); ((meltobject_ptr_t)(/*_._VALDATA___V1659*/ meltfptr[1658]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1660*/ meltfptr[1659]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1659*/ meltfptr[1658]); melt_dbgtrace_written_object (/*_._VALDATA___V1659*/ meltfptr[1658], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1554__CLASS_VALUE_BINDING @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1661*/ meltfptr[1660])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1554__CLASS_VALUE_BINDING @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1661*/ meltfptr[1660])))); ((meltobject_ptr_t)(/*_._VALDATA___V1661*/ meltfptr[1660]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1662*/ meltfptr[1661]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1661*/ meltfptr[1660]); melt_dbgtrace_written_object (/*_._VALDATA___V1661*/ meltfptr[1660], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1556__CLASS_PRIMITIVE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1663*/ meltfptr[1662])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1556__CLASS_PRIMITIVE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1663*/ meltfptr[1662])))); ((meltobject_ptr_t)(/*_._VALDATA___V1663*/ meltfptr[1662]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1664*/ meltfptr[1663]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1663*/ meltfptr[1662]); melt_dbgtrace_written_object (/*_._VALDATA___V1663*/ meltfptr[1662], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1558__DEBUG_MORE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1665*/ meltfptr[1664])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1558__DEBUG_MORE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1665*/ meltfptr[1664])))); ((meltobject_ptr_t)(/*_._VALDATA___V1665*/ meltfptr[1664]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1666*/ meltfptr[1665]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1665*/ meltfptr[1664]); melt_dbgtrace_written_object (/*_._VALDATA___V1665*/ meltfptr[1664], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1565__CLASS_PATTERN_EXPANSION_CONTEXT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1667*/ meltfptr[1666])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1565__CLASS_PATTERN_EXPANSION_CONTEXT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1667*/ meltfptr[1666])))); ((meltobject_ptr_t)(/*_._VALDATA___V1667*/ meltfptr[1666]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1668*/ meltfptr[1667]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1667*/ meltfptr[1666]); melt_dbgtrace_written_object (/*_._VALDATA___V1667*/ meltfptr[1666], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1567__CLASS_ROOT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1669*/ meltfptr[1668])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1567__CLASS_ROOT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1669*/ meltfptr[1668])))); ((meltobject_ptr_t)(/*_._VALDATA___V1669*/ meltfptr[1668]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1670*/ meltfptr[1669]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1669*/ meltfptr[1668]); melt_dbgtrace_written_object (/*_._VALDATA___V1669*/ meltfptr[1668], "new static instance"); MELT_LOCATION("warmelt-macro.melt:2275:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1569__CLASS_PATTERN_EXPANSION_CONTEXT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1671*/ meltfptr[1670])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1569__CLASS_PATTERN_EXPANSION_CONTEXT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1671*/ meltfptr[1670])))); ((meltobject_ptr_t)(/*_._VALDATA___V1671*/ meltfptr[1670]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1672*/ meltfptr[1671]); MELT_LOCATION("warmelt-macro.melt:2275:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1569__CLASS_PATTERN_EXPANSION_CONTEXT @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1671*/ meltfptr[1670])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1569__CLASS_PATTERN_EXPANSION_CONTEXT @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1671*/ meltfptr[1670])))); ((meltobject_ptr_t)(/*_._VALDATA___V1671*/ meltfptr[1670]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_ROOT__V54*/ meltfptr[53]); /*putupl#1067*/ melt_assertmsg("putupl #1067 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1673*/ meltfptr[1672]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #1067 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1673*/ meltfptr[1672])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1673*/ meltfptr[1672]))->tabval[0] = (melt_ptr_t)(/*_.CLASS_ROOT__V54*/ meltfptr[53]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1673*/ meltfptr[1672]); MELT_LOCATION("warmelt-macro.melt:2275:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1569__CLASS_PATTERN_EXPANSION_CONTEXT @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1671*/ meltfptr[1670])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1569__CLASS_PATTERN_EXPANSION_CONTEXT @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1671*/ meltfptr[1670])))); ((meltobject_ptr_t)(/*_._VALDATA___V1671*/ meltfptr[1670]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V1673*/ meltfptr[1672]); MELT_LOCATION("warmelt-macro.melt:2275:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1575__PCTX_MEXPANDER @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1674*/ meltfptr[1673])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1575__PCTX_MEXPANDER @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1674*/ meltfptr[1673])))); ((meltobject_ptr_t)(/*_._VALDATA___V1674*/ meltfptr[1673]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1675*/ meltfptr[1674]); MELT_LOCATION("warmelt-macro.melt:2275:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1575__PCTX_MEXPANDER @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1674*/ meltfptr[1673])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1575__PCTX_MEXPANDER @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1674*/ meltfptr[1673])))); ((meltobject_ptr_t)(/*_._VALDATA___V1674*/ meltfptr[1673]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V1671*/ meltfptr[1670]); MELT_LOCATION("warmelt-macro.melt:2275:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1674*/ meltfptr[1673]); MELT_LOCATION("warmelt-macro.melt:2275:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1674*/ meltfptr[1673], "new static instance"); MELT_LOCATION("warmelt-macro.melt:2275:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1579__PCTX_PEXPANDER @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1676*/ meltfptr[1675])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1579__PCTX_PEXPANDER @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1676*/ meltfptr[1675])))); ((meltobject_ptr_t)(/*_._VALDATA___V1676*/ meltfptr[1675]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1677*/ meltfptr[1676]); #undef meltfram__ } /*end of meltmod__WARMELTmiMACRO__initialmeltchunk_32*/ void meltmod__WARMELTmiMACRO__initialmeltchunk_33 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; MELT_LOCATION("warmelt-macro.melt:2275:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1579__PCTX_PEXPANDER @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1676*/ meltfptr[1675])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1579__PCTX_PEXPANDER @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1676*/ meltfptr[1675])))); ((meltobject_ptr_t)(/*_._VALDATA___V1676*/ meltfptr[1675]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V1671*/ meltfptr[1670]); MELT_LOCATION("warmelt-macro.melt:2275:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1676*/ meltfptr[1675]); MELT_LOCATION("warmelt-macro.melt:2275:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1676*/ meltfptr[1675], "new static instance"); MELT_LOCATION("warmelt-macro.melt:2275:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1583__PCTX_VARMAP @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1678*/ meltfptr[1677])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1583__PCTX_VARMAP @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1678*/ meltfptr[1677])))); ((meltobject_ptr_t)(/*_._VALDATA___V1678*/ meltfptr[1677]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1679*/ meltfptr[1678]); MELT_LOCATION("warmelt-macro.melt:2275:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1583__PCTX_VARMAP @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1678*/ meltfptr[1677])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1583__PCTX_VARMAP @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1678*/ meltfptr[1677])))); ((meltobject_ptr_t)(/*_._VALDATA___V1678*/ meltfptr[1677]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V1671*/ meltfptr[1670]); MELT_LOCATION("warmelt-macro.melt:2275:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1678*/ meltfptr[1677]); MELT_LOCATION("warmelt-macro.melt:2275:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1678*/ meltfptr[1677], "new static instance"); MELT_LOCATION("warmelt-macro.melt:2275:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1587__PCTX_MODCTX @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1680*/ meltfptr[1679])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1587__PCTX_MODCTX @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1680*/ meltfptr[1679])))); ((meltobject_ptr_t)(/*_._VALDATA___V1680*/ meltfptr[1679]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1681*/ meltfptr[1680]); MELT_LOCATION("warmelt-macro.melt:2275:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1587__PCTX_MODCTX @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1680*/ meltfptr[1679])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1587__PCTX_MODCTX @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1680*/ meltfptr[1679])))); ((meltobject_ptr_t)(/*_._VALDATA___V1680*/ meltfptr[1679]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V1671*/ meltfptr[1670]); MELT_LOCATION("warmelt-macro.melt:2275:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1680*/ meltfptr[1679]); MELT_LOCATION("warmelt-macro.melt:2275:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1680*/ meltfptr[1679], "new static instance"); /*putupl#1068*/ melt_assertmsg("putupl #1068 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1682*/ meltfptr[1681]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #1068 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1682*/ meltfptr[1681])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1682*/ meltfptr[1681]))->tabval[0] = (melt_ptr_t)(/*_._VALDATA___V1674*/ meltfptr[1673]); /*putupl#1069*/ melt_assertmsg("putupl #1069 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1682*/ meltfptr[1681]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #1069 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1682*/ meltfptr[1681])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1682*/ meltfptr[1681]))->tabval[1] = (melt_ptr_t)(/*_._VALDATA___V1676*/ meltfptr[1675]); /*putupl#1070*/ melt_assertmsg("putupl #1070 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1682*/ meltfptr[1681]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #1070 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1682*/ meltfptr[1681])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1682*/ meltfptr[1681]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V1678*/ meltfptr[1677]); /*putupl#1071*/ melt_assertmsg("putupl #1071 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1682*/ meltfptr[1681]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #1071 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1682*/ meltfptr[1681])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1682*/ meltfptr[1681]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V1680*/ meltfptr[1679]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1682*/ meltfptr[1681]); MELT_LOCATION("warmelt-macro.melt:2275:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1569__CLASS_PATTERN_EXPANSION_CONTEXT @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1671*/ meltfptr[1670])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1569__CLASS_PATTERN_EXPANSION_CONTEXT @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1671*/ meltfptr[1670])))); ((meltobject_ptr_t)(/*_._VALDATA___V1671*/ meltfptr[1670]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V1682*/ meltfptr[1681]); MELT_LOCATION("warmelt-macro.melt:2275:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1671*/ meltfptr[1670]); MELT_LOCATION("warmelt-macro.melt:2275:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1671*/ meltfptr[1670], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1573__PCTX_MEXPANDER @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1683*/ meltfptr[1682])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1573__PCTX_MEXPANDER @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1683*/ meltfptr[1682])))); ((meltobject_ptr_t)(/*_._VALDATA___V1683*/ meltfptr[1682]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1684*/ meltfptr[1683]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1683*/ meltfptr[1682]); melt_dbgtrace_written_object (/*_._VALDATA___V1683*/ meltfptr[1682], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1577__PCTX_PEXPANDER @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1685*/ meltfptr[1684])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1577__PCTX_PEXPANDER @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1685*/ meltfptr[1684])))); ((meltobject_ptr_t)(/*_._VALDATA___V1685*/ meltfptr[1684]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1686*/ meltfptr[1685]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1685*/ meltfptr[1684]); melt_dbgtrace_written_object (/*_._VALDATA___V1685*/ meltfptr[1684], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1581__PCTX_VARMAP @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1687*/ meltfptr[1686])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1581__PCTX_VARMAP @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1687*/ meltfptr[1686])))); ((meltobject_ptr_t)(/*_._VALDATA___V1687*/ meltfptr[1686]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1688*/ meltfptr[1687]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1687*/ meltfptr[1686]); melt_dbgtrace_written_object (/*_._VALDATA___V1687*/ meltfptr[1686], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1585__PCTX_MODCTX @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1689*/ meltfptr[1688])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1585__PCTX_MODCTX @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1689*/ meltfptr[1688])))); ((meltobject_ptr_t)(/*_._VALDATA___V1689*/ meltfptr[1688]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1690*/ meltfptr[1689]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1689*/ meltfptr[1688]); melt_dbgtrace_written_object (/*_._VALDATA___V1689*/ meltfptr[1688], "new static instance"); MELT_LOCATION("warmelt-macro.melt:2288:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1691*/ meltfptr[1690])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1589__PATTERNEXPAND_PAIRLIST_AS_TUPLE#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1691*/ meltfptr[1690])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:2288:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1691*/ meltfptr[1690])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1589__PATTERNEXPAND_PAIRLIST_AS_TUPLE#1", NULL != (/*_.PAIRLIST_TO_MULTIPLE__V55*/ meltfptr[54])); ((meltroutine_ptr_t)/*_._VALROUT___V1691*/ meltfptr[1690])->tabval[1] = (melt_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V55*/ meltfptr[54]); MELT_LOCATION("warmelt-macro.melt:2288:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1691*/ meltfptr[1690])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1589__PATTERNEXPAND_PAIRLIST_AS_TUPLE#2", NULL != (/*_.DISCR_MULTIPLE__V13*/ meltfptr[12])); ((meltroutine_ptr_t)/*_._VALROUT___V1691*/ meltfptr[1690])->tabval[2] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V13*/ meltfptr[12]); MELT_LOCATION("warmelt-macro.melt:2541:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1693*/ meltfptr[1692])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1611__PATTERNEXPAND_1#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1693*/ meltfptr[1692])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:2541:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1693*/ meltfptr[1692])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1611__PATTERNEXPAND_1#1", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V1693*/ meltfptr[1692])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:2541:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1693*/ meltfptr[1692])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1611__PATTERNEXPAND_1#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1693*/ meltfptr[1692])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:2541:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1693*/ meltfptr[1692])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1671*/ meltfptr[1670]); ((meltroutine_ptr_t)/*_._VALROUT___V1693*/ meltfptr[1692])->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V1671*/ meltfptr[1670]); MELT_LOCATION("warmelt-macro.melt:2541:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1693*/ meltfptr[1692])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1611__PATTERNEXPAND_1#4", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V1693*/ meltfptr[1692])->tabval[4] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1613__QUESTION @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1694*/ meltfptr[1693])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1613__QUESTION @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1694*/ meltfptr[1693])))); ((meltobject_ptr_t)(/*_._VALDATA___V1694*/ meltfptr[1693]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1695*/ meltfptr[1694]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1694*/ meltfptr[1693]); melt_dbgtrace_written_object (/*_._VALDATA___V1694*/ meltfptr[1693], "new static instance"); MELT_LOCATION("warmelt-macro.melt:2541:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1693*/ meltfptr[1692])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1611__PATTERNEXPAND_1#5", NULL != (/*_._VALDATA___V1694*/ meltfptr[1693])); ((meltroutine_ptr_t)/*_._VALROUT___V1693*/ meltfptr[1692])->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V1694*/ meltfptr[1693]); MELT_LOCATION("warmelt-macro.melt:2541:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1693*/ meltfptr[1692])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1461*/ meltfptr[1460]); ((meltroutine_ptr_t)/*_._VALROUT___V1693*/ meltfptr[1692])->tabval[6] = (melt_ptr_t)(/*_._VALDATA___V1461*/ meltfptr[1460]); MELT_LOCATION("warmelt-macro.melt:2541:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1693*/ meltfptr[1692])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1611__PATTERNEXPAND_1#7", NULL != (/*_._VALBXINT___V1696*/ meltfptr[1695])); ((meltroutine_ptr_t)/*_._VALROUT___V1693*/ meltfptr[1692])->tabval[7] = (melt_ptr_t)(/*_._VALBXINT___V1696*/ meltfptr[1695]); MELT_LOCATION("warmelt-macro.melt:2541:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1693*/ meltfptr[1692])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V306*/ meltfptr[305]); ((meltroutine_ptr_t)/*_._VALROUT___V1693*/ meltfptr[1692])->tabval[8] = (melt_ptr_t)(/*_._VALCLO___V306*/ meltfptr[305]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1616___ @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1697*/ meltfptr[1696])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1616___ @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1697*/ meltfptr[1696])))); ((meltobject_ptr_t)(/*_._VALDATA___V1697*/ meltfptr[1696]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1698*/ meltfptr[1697]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1697*/ meltfptr[1696]); melt_dbgtrace_written_object (/*_._VALDATA___V1697*/ meltfptr[1696], "new static instance"); MELT_LOCATION("warmelt-macro.melt:2541:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1693*/ meltfptr[1692])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1611__PATTERNEXPAND_1#9", NULL != (/*_._VALDATA___V1697*/ meltfptr[1696])); ((meltroutine_ptr_t)/*_._VALROUT___V1693*/ meltfptr[1692])->tabval[9] = (melt_ptr_t)(/*_._VALDATA___V1697*/ meltfptr[1696]); MELT_LOCATION("warmelt-macro.melt:2541:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1693*/ meltfptr[1692])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1455*/ meltfptr[1454]); ((meltroutine_ptr_t)/*_._VALROUT___V1693*/ meltfptr[1692])->tabval[10] = (melt_ptr_t)(/*_._VALDATA___V1455*/ meltfptr[1454]); MELT_LOCATION("warmelt-macro.melt:2541:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1693*/ meltfptr[1692])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1611__PATTERNEXPAND_1#11", NULL != (/*_._VALBXINT___V1699*/ meltfptr[1698])); ((meltroutine_ptr_t)/*_._VALROUT___V1693*/ meltfptr[1692])->tabval[11] = (melt_ptr_t)(/*_._VALBXINT___V1699*/ meltfptr[1698]); MELT_LOCATION("warmelt-macro.melt:2541:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1693*/ meltfptr[1692])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1611__PATTERNEXPAND_1#12", NULL != (/*_.DISCR_INTEGER__V58*/ meltfptr[57])); ((meltroutine_ptr_t)/*_._VALROUT___V1693*/ meltfptr[1692])->tabval[12] = (melt_ptr_t)(/*_.DISCR_INTEGER__V58*/ meltfptr[57]); MELT_LOCATION("warmelt-macro.melt:2541:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1693*/ meltfptr[1692])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1611__PATTERNEXPAND_1#13", NULL != (/*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V1693*/ meltfptr[1692])->tabval[13] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-macro.melt:2541:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1693*/ meltfptr[1692])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1439*/ meltfptr[1438]); ((meltroutine_ptr_t)/*_._VALROUT___V1693*/ meltfptr[1692])->tabval[14] = (melt_ptr_t)(/*_._VALDATA___V1439*/ meltfptr[1438]); MELT_LOCATION("warmelt-macro.melt:2541:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1693*/ meltfptr[1692])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1611__PATTERNEXPAND_1#15", NULL != (/*_._VALBXINT___V1700*/ meltfptr[1699])); ((meltroutine_ptr_t)/*_._VALROUT___V1693*/ meltfptr[1692])->tabval[15] = (melt_ptr_t)(/*_._VALBXINT___V1700*/ meltfptr[1699]); MELT_LOCATION("warmelt-macro.melt:2390:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1702*/ meltfptr[1701])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1607__PATTERNEXPAND_EXPR#0", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V1702*/ meltfptr[1701])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:2390:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1702*/ meltfptr[1701])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1607__PATTERNEXPAND_EXPR#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1702*/ meltfptr[1701])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:2390:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1702*/ meltfptr[1701])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1607__PATTERNEXPAND_EXPR#2", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V1702*/ meltfptr[1701])->tabval[2] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:2390:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1702*/ meltfptr[1701])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1671*/ meltfptr[1670]); ((meltroutine_ptr_t)/*_._VALROUT___V1702*/ meltfptr[1701])->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V1671*/ meltfptr[1670]); MELT_LOCATION("warmelt-macro.melt:2390:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1702*/ meltfptr[1701])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1607__PATTERNEXPAND_EXPR#4", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1702*/ meltfptr[1701])->tabval[4] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:2390:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1702*/ meltfptr[1701])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1607__PATTERNEXPAND_EXPR#5", NULL != (/*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V1702*/ meltfptr[1701])->tabval[5] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-macro.melt:2390:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1702*/ meltfptr[1701])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V306*/ meltfptr[305]); ((meltroutine_ptr_t)/*_._VALROUT___V1702*/ meltfptr[1701])->tabval[6] = (melt_ptr_t)(/*_._VALCLO___V306*/ meltfptr[305]); MELT_LOCATION("warmelt-macro.melt:2390:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1702*/ meltfptr[1701])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1607__PATTERNEXPAND_EXPR#7", NULL != (/*_.FIND_ENV__V31*/ meltfptr[30])); ((meltroutine_ptr_t)/*_._VALROUT___V1702*/ meltfptr[1701])->tabval[7] = (melt_ptr_t)(/*_.FIND_ENV__V31*/ meltfptr[30]); MELT_LOCATION("warmelt-macro.melt:2390:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1702*/ meltfptr[1701])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1607__PATTERNEXPAND_EXPR#8", NULL != (/*_.CLASS_PATMACRO_BINDING__V59*/ meltfptr[58])); ((meltroutine_ptr_t)/*_._VALROUT___V1702*/ meltfptr[1701])->tabval[8] = (melt_ptr_t)(/*_.CLASS_PATMACRO_BINDING__V59*/ meltfptr[58]); MELT_LOCATION("warmelt-macro.melt:2390:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1702*/ meltfptr[1701])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1607__PATTERNEXPAND_EXPR#9", NULL != (/*_.CLASS_CMATCHER_BINDING__V46*/ meltfptr[45])); ((meltroutine_ptr_t)/*_._VALROUT___V1702*/ meltfptr[1701])->tabval[9] = (melt_ptr_t)(/*_.CLASS_CMATCHER_BINDING__V46*/ meltfptr[45]); MELT_LOCATION("warmelt-macro.melt:2390:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1702*/ meltfptr[1701])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1607__PATTERNEXPAND_EXPR#10", NULL != (/*_.CLASS_CMATCHER__V39*/ meltfptr[38])); ((meltroutine_ptr_t)/*_._VALROUT___V1702*/ meltfptr[1701])->tabval[10] = (melt_ptr_t)(/*_.CLASS_CMATCHER__V39*/ meltfptr[38]); MELT_LOCATION("warmelt-macro.melt:2302:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1704*/ meltfptr[1703])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1594__PATMACEXPAND_FOR_MATCHER#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1704*/ meltfptr[1703])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:2302:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1704*/ meltfptr[1703])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1594__PATMACEXPAND_FOR_MATCHER#1", NULL != (/*_.CLASS_ANY_MATCHER__V40*/ meltfptr[39])); ((meltroutine_ptr_t)/*_._VALROUT___V1704*/ meltfptr[1703])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ANY_MATCHER__V40*/ meltfptr[39]); MELT_LOCATION("warmelt-macro.melt:2302:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1704*/ meltfptr[1703])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1594__PATMACEXPAND_FOR_MATCHER#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1704*/ meltfptr[1703])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:2302:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1704*/ meltfptr[1703])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1594__PATMACEXPAND_FOR_MATCHER#3", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V1704*/ meltfptr[1703])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:2302:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1704*/ meltfptr[1703])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1671*/ meltfptr[1670]); ((meltroutine_ptr_t)/*_._VALROUT___V1704*/ meltfptr[1703])->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V1671*/ meltfptr[1670]); MELT_LOCATION("warmelt-macro.melt:2302:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1704*/ meltfptr[1703])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1594__PATMACEXPAND_FOR_MATCHER#5", NULL != (/*_.CLASS_NAMED__V23*/ meltfptr[22])); ((meltroutine_ptr_t)/*_._VALROUT___V1704*/ meltfptr[1703])->tabval[5] = (melt_ptr_t)(/*_.CLASS_NAMED__V23*/ meltfptr[22]); MELT_LOCATION("warmelt-macro.melt:2302:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1704*/ meltfptr[1703])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1594__PATMACEXPAND_FOR_MATCHER#6", NULL != (/*_.CLASS_REFERENCE__V56*/ meltfptr[55])); ((meltroutine_ptr_t)/*_._VALROUT___V1704*/ meltfptr[1703])->tabval[6] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V56*/ meltfptr[55]); MELT_LOCATION("warmelt-macro.melt:2302:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1704*/ meltfptr[1703])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1594__PATMACEXPAND_FOR_MATCHER#7", NULL != (/*_.MULTIPLE_MAP__V57*/ meltfptr[56])); ((meltroutine_ptr_t)/*_._VALROUT___V1704*/ meltfptr[1703])->tabval[7] = (melt_ptr_t)(/*_.MULTIPLE_MAP__V57*/ meltfptr[56]); MELT_LOCATION("warmelt-macro.melt:2302:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1704*/ meltfptr[1703])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1594__PATMACEXPAND_FOR_MATCHER#8", NULL != (/*_.CLASS_FORMAL_BINDING__V49*/ meltfptr[48])); ((meltroutine_ptr_t)/*_._VALROUT___V1704*/ meltfptr[1703])->tabval[8] = (melt_ptr_t)(/*_.CLASS_FORMAL_BINDING__V49*/ meltfptr[48]); MELT_LOCATION("warmelt-macro.melt:2302:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1704*/ meltfptr[1703])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1594__PATMACEXPAND_FOR_MATCHER#9", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1704*/ meltfptr[1703])->tabval[9] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:2302:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1704*/ meltfptr[1703])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1594__PATMACEXPAND_FOR_MATCHER#10", NULL != (/*_.CLASS_REFERENCE__V56*/ meltfptr[55])); ((meltroutine_ptr_t)/*_._VALROUT___V1704*/ meltfptr[1703])->tabval[10] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V56*/ meltfptr[55]); MELT_LOCATION("warmelt-macro.melt:2302:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1704*/ meltfptr[1703])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V306*/ meltfptr[305]); ((meltroutine_ptr_t)/*_._VALROUT___V1704*/ meltfptr[1703])->tabval[11] = (melt_ptr_t)(/*_._VALCLO___V306*/ meltfptr[305]); MELT_LOCATION("warmelt-macro.melt:2325:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1705*/ meltfptr[1704])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1600__LAMBDA_#0", NULL != (/*_.CLASS_FORMAL_BINDING__V49*/ meltfptr[48])); ((meltroutine_ptr_t)/*_._VALROUT___V1705*/ meltfptr[1704])->tabval[0] = (melt_ptr_t)(/*_.CLASS_FORMAL_BINDING__V49*/ meltfptr[48]); MELT_LOCATION("warmelt-macro.melt:2325:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1705*/ meltfptr[1704])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1600__LAMBDA_#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1705*/ meltfptr[1704])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:2325:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1705*/ meltfptr[1704])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1600__LAMBDA_#2", NULL != (/*_.CLASS_REFERENCE__V56*/ meltfptr[55])); ((meltroutine_ptr_t)/*_._VALROUT___V1705*/ meltfptr[1704])->tabval[2] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V56*/ meltfptr[55]); MELT_LOCATION("warmelt-macro.melt:2325:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1705*/ meltfptr[1704])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V306*/ meltfptr[305]); ((meltroutine_ptr_t)/*_._VALROUT___V1705*/ meltfptr[1704])->tabval[3] = (melt_ptr_t)(/*_._VALCLO___V306*/ meltfptr[305]); MELT_LOCATION("warmelt-macro.melt:2325:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1705*/ meltfptr[1704]); MELT_LOCATION("warmelt-macro.melt:2302:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1704*/ meltfptr[1703])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1594__PATMACEXPAND_FOR_MATCHER#12", NULL != (/*_._VALROUT___V1705*/ meltfptr[1704])); ((meltroutine_ptr_t)/*_._VALROUT___V1704*/ meltfptr[1703])->tabval[12] = (melt_ptr_t)(/*_._VALROUT___V1705*/ meltfptr[1704]); MELT_LOCATION("warmelt-macro.melt:2302:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1704*/ meltfptr[1703])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1594__PATMACEXPAND_FOR_MATCHER#13", NULL != (/*_.CLASS_REFERENCE__V56*/ meltfptr[55])); ((meltroutine_ptr_t)/*_._VALROUT___V1704*/ meltfptr[1703])->tabval[13] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V56*/ meltfptr[55]); MELT_LOCATION("warmelt-macro.melt:2302:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1704*/ meltfptr[1703])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1692*/ meltfptr[1691]); ((meltroutine_ptr_t)/*_._VALROUT___V1704*/ meltfptr[1703])->tabval[14] = (melt_ptr_t)(/*_._VALCLO___V1692*/ meltfptr[1691]); MELT_LOCATION("warmelt-macro.melt:2302:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1704*/ meltfptr[1703])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V306*/ meltfptr[305]); ((meltroutine_ptr_t)/*_._VALROUT___V1704*/ meltfptr[1703])->tabval[15] = (melt_ptr_t)(/*_._VALCLO___V306*/ meltfptr[305]); MELT_LOCATION("warmelt-macro.melt:2337:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1706*/ meltfptr[1705])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1601__LAMBDA_#0", NULL != (/*_.CLASS_REFERENCE__V56*/ meltfptr[55])); ((meltroutine_ptr_t)/*_._VALROUT___V1706*/ meltfptr[1705])->tabval[0] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V56*/ meltfptr[55]); MELT_LOCATION("warmelt-macro.melt:2337:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1706*/ meltfptr[1705])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1692*/ meltfptr[1691]); ((meltroutine_ptr_t)/*_._VALROUT___V1706*/ meltfptr[1705])->tabval[1] = (melt_ptr_t)(/*_._VALCLO___V1692*/ meltfptr[1691]); MELT_LOCATION("warmelt-macro.melt:2337:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1706*/ meltfptr[1705])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V306*/ meltfptr[305]); ((meltroutine_ptr_t)/*_._VALROUT___V1706*/ meltfptr[1705])->tabval[2] = (melt_ptr_t)(/*_._VALCLO___V306*/ meltfptr[305]); MELT_LOCATION("warmelt-macro.melt:2337:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1706*/ meltfptr[1705]); MELT_LOCATION("warmelt-macro.melt:2302:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1704*/ meltfptr[1703])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1594__PATMACEXPAND_FOR_MATCHER#16", NULL != (/*_._VALROUT___V1706*/ meltfptr[1705])); ((meltroutine_ptr_t)/*_._VALROUT___V1704*/ meltfptr[1703])->tabval[16] = (melt_ptr_t)(/*_._VALROUT___V1706*/ meltfptr[1705]); MELT_LOCATION("warmelt-macro.melt:2302:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1704*/ meltfptr[1703])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V306*/ meltfptr[305]); ((meltroutine_ptr_t)/*_._VALROUT___V1704*/ meltfptr[1703])->tabval[17] = (melt_ptr_t)(/*_._VALCLO___V306*/ meltfptr[305]); MELT_LOCATION("warmelt-macro.melt:2302:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1704*/ meltfptr[1703]); /*putclosurout#35*/ melt_assertmsg("putclosrout#35 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1703*/ meltfptr[1702])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#35 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1704*/ meltfptr[1703])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1703*/ meltfptr[1702])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1704*/ meltfptr[1703]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1703*/ meltfptr[1702]); MELT_LOCATION("warmelt-macro.melt:2390:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1702*/ meltfptr[1701])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1703*/ meltfptr[1702]); ((meltroutine_ptr_t)/*_._VALROUT___V1702*/ meltfptr[1701])->tabval[11] = (melt_ptr_t)(/*_._VALCLO___V1703*/ meltfptr[1702]); MELT_LOCATION("warmelt-macro.melt:2355:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1708*/ meltfptr[1707])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1602__PATTERN_WEIGHT_TUPLE#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1708*/ meltfptr[1707])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:2355:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1708*/ meltfptr[1707])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1602__PATTERN_WEIGHT_TUPLE#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1708*/ meltfptr[1707])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:2355:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1708*/ meltfptr[1707])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1602__PATTERN_WEIGHT_TUPLE#2", NULL != (/*_.DISCR_INTEGER__V58*/ meltfptr[57])); ((meltroutine_ptr_t)/*_._VALROUT___V1708*/ meltfptr[1707])->tabval[2] = (melt_ptr_t)(/*_.DISCR_INTEGER__V58*/ meltfptr[57]); MELT_LOCATION("warmelt-macro.melt:2355:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1708*/ meltfptr[1707])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1602__PATTERN_WEIGHT_TUPLE#3", NULL != (/*_.MULTIPLE_MAP__V57*/ meltfptr[56])); ((meltroutine_ptr_t)/*_._VALROUT___V1708*/ meltfptr[1707])->tabval[3] = (melt_ptr_t)(/*_.MULTIPLE_MAP__V57*/ meltfptr[56]); MELT_LOCATION("warmelt-macro.melt:2355:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1708*/ meltfptr[1707])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1395*/ meltfptr[1394]); ((meltroutine_ptr_t)/*_._VALROUT___V1708*/ meltfptr[1707])->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V1395*/ meltfptr[1394]); MELT_LOCATION("warmelt-macro.melt:2355:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1708*/ meltfptr[1707])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1602__PATTERN_WEIGHT_TUPLE#5", NULL != (/*_.DISCR_CONSTANT_INTEGER__V27*/ meltfptr[26])); ((meltroutine_ptr_t)/*_._VALROUT___V1708*/ meltfptr[1707])->tabval[5] = (melt_ptr_t)(/*_.DISCR_CONSTANT_INTEGER__V27*/ meltfptr[26]); MELT_LOCATION("warmelt-macro.melt:2369:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1709*/ meltfptr[1708])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1395*/ meltfptr[1394]); ((meltroutine_ptr_t)/*_._VALROUT___V1709*/ meltfptr[1708])->tabval[0] = (melt_ptr_t)(/*_._VALDATA___V1395*/ meltfptr[1394]); MELT_LOCATION("warmelt-macro.melt:2369:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1709*/ meltfptr[1708])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1606__LAMBDA_#1", NULL != (/*_.DISCR_CONSTANT_INTEGER__V27*/ meltfptr[26])); ((meltroutine_ptr_t)/*_._VALROUT___V1709*/ meltfptr[1708])->tabval[1] = (melt_ptr_t)(/*_.DISCR_CONSTANT_INTEGER__V27*/ meltfptr[26]); MELT_LOCATION("warmelt-macro.melt:2369:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1709*/ meltfptr[1708]); MELT_LOCATION("warmelt-macro.melt:2355:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1708*/ meltfptr[1707])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1602__PATTERN_WEIGHT_TUPLE#6", NULL != (/*_._VALROUT___V1709*/ meltfptr[1708])); ((meltroutine_ptr_t)/*_._VALROUT___V1708*/ meltfptr[1707])->tabval[6] = (melt_ptr_t)(/*_._VALROUT___V1709*/ meltfptr[1708]); MELT_LOCATION("warmelt-macro.melt:2355:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1708*/ meltfptr[1707]); /*putclosurout#36*/ melt_assertmsg("putclosrout#36 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1707*/ meltfptr[1706])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#36 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1708*/ meltfptr[1707])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1707*/ meltfptr[1706])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1708*/ meltfptr[1707]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1707*/ meltfptr[1706]); MELT_LOCATION("warmelt-macro.melt:2390:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1702*/ meltfptr[1701])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1707*/ meltfptr[1706]); ((meltroutine_ptr_t)/*_._VALROUT___V1702*/ meltfptr[1701])->tabval[12] = (melt_ptr_t)(/*_._VALCLO___V1707*/ meltfptr[1706]); MELT_LOCATION("warmelt-macro.melt:2390:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1702*/ meltfptr[1701])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1555*/ meltfptr[1554]); ((meltroutine_ptr_t)/*_._VALROUT___V1702*/ meltfptr[1701])->tabval[13] = (melt_ptr_t)(/*_._VALDATA___V1555*/ meltfptr[1554]); MELT_LOCATION("warmelt-macro.melt:2390:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1702*/ meltfptr[1701])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1607__PATTERNEXPAND_EXPR#14", NULL != (/*_.CLASS_FUNMATCHER_BINDING__V47*/ meltfptr[46])); ((meltroutine_ptr_t)/*_._VALROUT___V1702*/ meltfptr[1701])->tabval[14] = (melt_ptr_t)(/*_.CLASS_FUNMATCHER_BINDING__V47*/ meltfptr[46]); MELT_LOCATION("warmelt-macro.melt:2390:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1702*/ meltfptr[1701])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1607__PATTERNEXPAND_EXPR#15", NULL != (/*_.CLASS_FUNMATCHER__V41*/ meltfptr[40])); ((meltroutine_ptr_t)/*_._VALROUT___V1702*/ meltfptr[1701])->tabval[15] = (melt_ptr_t)(/*_.CLASS_FUNMATCHER__V41*/ meltfptr[40]); MELT_LOCATION("warmelt-macro.melt:2390:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1702*/ meltfptr[1701])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1561*/ meltfptr[1560]); ((meltroutine_ptr_t)/*_._VALROUT___V1702*/ meltfptr[1701])->tabval[16] = (melt_ptr_t)(/*_._VALDATA___V1561*/ meltfptr[1560]); MELT_LOCATION("warmelt-macro.melt:2390:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1702*/ meltfptr[1701])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1607__PATTERNEXPAND_EXPR#17", NULL != (/*_.DISCR_CONSTANT_INTEGER__V27*/ meltfptr[26])); ((meltroutine_ptr_t)/*_._VALROUT___V1702*/ meltfptr[1701])->tabval[17] = (melt_ptr_t)(/*_.DISCR_CONSTANT_INTEGER__V27*/ meltfptr[26]); MELT_LOCATION("warmelt-macro.melt:2390:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1702*/ meltfptr[1701])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1607__PATTERNEXPAND_EXPR#18", NULL != (/*_.CLASS_VALUE_BINDING__V51*/ meltfptr[50])); ((meltroutine_ptr_t)/*_._VALROUT___V1702*/ meltfptr[1701])->tabval[18] = (melt_ptr_t)(/*_.CLASS_VALUE_BINDING__V51*/ meltfptr[50]); MELT_LOCATION("warmelt-macro.melt:2390:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1702*/ meltfptr[1701])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1607__PATTERNEXPAND_EXPR#19", NULL != (/*_.CLASS_ANY_MATCHER__V40*/ meltfptr[39])); ((meltroutine_ptr_t)/*_._VALROUT___V1702*/ meltfptr[1701])->tabval[19] = (melt_ptr_t)(/*_.CLASS_ANY_MATCHER__V40*/ meltfptr[39]); MELT_LOCATION("warmelt-macro.melt:2390:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1702*/ meltfptr[1701])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V310*/ meltfptr[309]); ((meltroutine_ptr_t)/*_._VALROUT___V1702*/ meltfptr[1701])->tabval[20] = (melt_ptr_t)(/*_._VALCLO___V310*/ meltfptr[309]); MELT_LOCATION("warmelt-macro.melt:2390:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1702*/ meltfptr[1701])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1607__PATTERNEXPAND_EXPR#21", NULL != (/*_.CLASS_NAMED__V23*/ meltfptr[22])); ((meltroutine_ptr_t)/*_._VALROUT___V1702*/ meltfptr[1701])->tabval[21] = (melt_ptr_t)(/*_.CLASS_NAMED__V23*/ meltfptr[22]); MELT_LOCATION("warmelt-macro.melt:2390:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1702*/ meltfptr[1701]); /*putclosurout#37*/ melt_assertmsg("putclosrout#37 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1701*/ meltfptr[1700])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#37 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1702*/ meltfptr[1701])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1701*/ meltfptr[1700])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1702*/ meltfptr[1701]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1701*/ meltfptr[1700]); MELT_LOCATION("warmelt-macro.melt:2541:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1693*/ meltfptr[1692])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1701*/ meltfptr[1700]); ((meltroutine_ptr_t)/*_._VALROUT___V1693*/ meltfptr[1692])->tabval[16] = (melt_ptr_t)(/*_._VALCLO___V1701*/ meltfptr[1700]); MELT_LOCATION("warmelt-macro.melt:2541:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1693*/ meltfptr[1692])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1611__PATTERNEXPAND_1#17", NULL != (/*_._VALBXINT___V1710*/ meltfptr[1709])); ((meltroutine_ptr_t)/*_._VALROUT___V1693*/ meltfptr[1692])->tabval[17] = (melt_ptr_t)(/*_._VALBXINT___V1710*/ meltfptr[1709]); MELT_LOCATION("warmelt-macro.melt:2541:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1693*/ meltfptr[1692]); /*putclosurout#38*/ melt_assertmsg("putclosrout#38 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1692*/ meltfptr[1691])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#38 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1693*/ meltfptr[1692])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1692*/ meltfptr[1691])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1693*/ meltfptr[1692]); #undef meltfram__ } /*end of meltmod__WARMELTmiMACRO__initialmeltchunk_33*/ void meltmod__WARMELTmiMACRO__initialmeltchunk_34 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1692*/ meltfptr[1691]); MELT_LOCATION("warmelt-macro.melt:2288:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1691*/ meltfptr[1690])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1692*/ meltfptr[1691]); ((meltroutine_ptr_t)/*_._VALROUT___V1691*/ meltfptr[1690])->tabval[3] = (melt_ptr_t)(/*_._VALCLO___V1692*/ meltfptr[1691]); MELT_LOCATION("warmelt-macro.melt:2292:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1711*/ meltfptr[1710])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1692*/ meltfptr[1691]); ((meltroutine_ptr_t)/*_._VALROUT___V1711*/ meltfptr[1710])->tabval[0] = (melt_ptr_t)(/*_._VALCLO___V1692*/ meltfptr[1691]); MELT_LOCATION("warmelt-macro.melt:2292:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1711*/ meltfptr[1710]); MELT_LOCATION("warmelt-macro.melt:2288:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1691*/ meltfptr[1690])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1589__PATTERNEXPAND_PAIRLIST_AS_TUPLE#4", NULL != (/*_._VALROUT___V1711*/ meltfptr[1710])); ((meltroutine_ptr_t)/*_._VALROUT___V1691*/ meltfptr[1690])->tabval[4] = (melt_ptr_t)(/*_._VALROUT___V1711*/ meltfptr[1710]); MELT_LOCATION("warmelt-macro.melt:2288:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1691*/ meltfptr[1690]); /*putclosurout#39*/ melt_assertmsg("putclosrout#39 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1712*/ meltfptr[1711])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#39 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1691*/ meltfptr[1690])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1712*/ meltfptr[1711])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1691*/ meltfptr[1690]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1712*/ meltfptr[1711]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1591__PAIRLIST_TO_MULTIPLE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1713*/ meltfptr[1712])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1591__PAIRLIST_TO_MULTIPLE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1713*/ meltfptr[1712])))); ((meltobject_ptr_t)(/*_._VALDATA___V1713*/ meltfptr[1712]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1714*/ meltfptr[1713]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1713*/ meltfptr[1712]); melt_dbgtrace_written_object (/*_._VALDATA___V1713*/ meltfptr[1712], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1596__CLASS_REFERENCE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1715*/ meltfptr[1714])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1596__CLASS_REFERENCE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1715*/ meltfptr[1714])))); ((meltobject_ptr_t)(/*_._VALDATA___V1715*/ meltfptr[1714]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1716*/ meltfptr[1715]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1715*/ meltfptr[1714]); melt_dbgtrace_written_object (/*_._VALDATA___V1715*/ meltfptr[1714], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1598__MULTIPLE_MAP @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1717*/ meltfptr[1716])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1598__MULTIPLE_MAP @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1717*/ meltfptr[1716])))); ((meltobject_ptr_t)(/*_._VALDATA___V1717*/ meltfptr[1716]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1718*/ meltfptr[1717]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1717*/ meltfptr[1716]); melt_dbgtrace_written_object (/*_._VALDATA___V1717*/ meltfptr[1716], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1604__DISCR_INTEGER @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1719*/ meltfptr[1718])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1604__DISCR_INTEGER @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1719*/ meltfptr[1718])))); ((meltobject_ptr_t)(/*_._VALDATA___V1719*/ meltfptr[1718]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1720*/ meltfptr[1719]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1719*/ meltfptr[1718]); melt_dbgtrace_written_object (/*_._VALDATA___V1719*/ meltfptr[1718], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1609__CLASS_PATMACRO_BINDING @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1721*/ meltfptr[1720])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1609__CLASS_PATMACRO_BINDING @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1721*/ meltfptr[1720])))); ((meltobject_ptr_t)(/*_._VALDATA___V1721*/ meltfptr[1720]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1722*/ meltfptr[1721]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1721*/ meltfptr[1720]); melt_dbgtrace_written_object (/*_._VALDATA___V1721*/ meltfptr[1720], "new static instance"); MELT_LOCATION("warmelt-macro.melt:2633:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1723*/ meltfptr[1722])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1621__MACROEXPAND_TOPLEVEL_LIST#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1723*/ meltfptr[1722])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:2633:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1723*/ meltfptr[1722])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1642*/ meltfptr[1641]); ((meltroutine_ptr_t)/*_._VALROUT___V1723*/ meltfptr[1722])->tabval[1] = (melt_ptr_t)(/*_._VALCLO___V1642*/ meltfptr[1641]); MELT_LOCATION("warmelt-macro.melt:2633:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1723*/ meltfptr[1722])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1621__MACROEXPAND_TOPLEVEL_LIST#2", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V1723*/ meltfptr[1722])->tabval[2] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:2633:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1723*/ meltfptr[1722])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1621__MACROEXPAND_TOPLEVEL_LIST#3", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1723*/ meltfptr[1722])->tabval[3] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:2633:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1723*/ meltfptr[1722])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1621__MACROEXPAND_TOPLEVEL_LIST#4", NULL != (/*_.DISCR_LIST__V34*/ meltfptr[33])); ((meltroutine_ptr_t)/*_._VALROUT___V1723*/ meltfptr[1722])->tabval[4] = (melt_ptr_t)(/*_.DISCR_LIST__V34*/ meltfptr[33]); MELT_LOCATION("warmelt-macro.melt:2633:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1723*/ meltfptr[1722])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1621__MACROEXPAND_TOPLEVEL_LIST#5", NULL != (/*_.CLASS_LOCATED__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V1723*/ meltfptr[1722])->tabval[5] = (melt_ptr_t)(/*_.CLASS_LOCATED__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-macro.melt:2633:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1723*/ meltfptr[1722])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1621__MACROEXPAND_TOPLEVEL_LIST#6", NULL != (/*_.DEBUG_LESS__V35*/ meltfptr[34])); ((meltroutine_ptr_t)/*_._VALROUT___V1723*/ meltfptr[1722])->tabval[6] = (melt_ptr_t)(/*_.DEBUG_LESS__V35*/ meltfptr[34]); MELT_LOCATION("warmelt-macro.melt:2633:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1723*/ meltfptr[1722])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1621__MACROEXPAND_TOPLEVEL_LIST#7", NULL != (/*_.LIST_APPEND2LIST__V33*/ meltfptr[32])); ((meltroutine_ptr_t)/*_._VALROUT___V1723*/ meltfptr[1722])->tabval[7] = (melt_ptr_t)(/*_.LIST_APPEND2LIST__V33*/ meltfptr[32]); MELT_LOCATION("warmelt-macro.melt:2633:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1723*/ meltfptr[1722]); /*putclosurout#40*/ melt_assertmsg("putclosrout#40 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1724*/ meltfptr[1723])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#40 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1723*/ meltfptr[1722])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1724*/ meltfptr[1723])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1723*/ meltfptr[1722]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1724*/ meltfptr[1723]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1625__DISCR_FORMAL_SEQUENCE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1725*/ meltfptr[1724])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1625__DISCR_FORMAL_SEQUENCE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1725*/ meltfptr[1724])))); ((meltobject_ptr_t)(/*_._VALDATA___V1725*/ meltfptr[1724]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1726*/ meltfptr[1725]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1725*/ meltfptr[1724]); melt_dbgtrace_written_object (/*_._VALDATA___V1725*/ meltfptr[1724], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1627__CTYPE_VALUE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1727*/ meltfptr[1726])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1627__CTYPE_VALUE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1727*/ meltfptr[1726])))); ((meltobject_ptr_t)(/*_._VALDATA___V1727*/ meltfptr[1726]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1728*/ meltfptr[1727]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1727*/ meltfptr[1726]); melt_dbgtrace_written_object (/*_._VALDATA___V1727*/ meltfptr[1726], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1631__DISCR_VARIADIC_FORMAL_SEQUENCE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1729*/ meltfptr[1728])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1631__DISCR_VARIADIC_FORMAL_SEQUENCE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1729*/ meltfptr[1728])))); ((meltobject_ptr_t)(/*_._VALDATA___V1729*/ meltfptr[1728]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1730*/ meltfptr[1729]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1729*/ meltfptr[1728]); melt_dbgtrace_written_object (/*_._VALDATA___V1729*/ meltfptr[1728], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1635__CLASS_CTYPE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1731*/ meltfptr[1730])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1635__CLASS_CTYPE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1731*/ meltfptr[1730])))); ((meltobject_ptr_t)(/*_._VALDATA___V1731*/ meltfptr[1730]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1732*/ meltfptr[1731]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1731*/ meltfptr[1730]); melt_dbgtrace_written_object (/*_._VALDATA___V1731*/ meltfptr[1730], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1637__CLASS_QUASI_CTYPE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1733*/ meltfptr[1732])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1637__CLASS_QUASI_CTYPE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1733*/ meltfptr[1732])))); ((meltobject_ptr_t)(/*_._VALDATA___V1733*/ meltfptr[1732]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1734*/ meltfptr[1733]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1733*/ meltfptr[1732]); melt_dbgtrace_written_object (/*_._VALDATA___V1733*/ meltfptr[1732], "new static instance"); MELT_LOCATION("warmelt-macro.melt:2876:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1735*/ meltfptr[1734])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1641__INSTALL_INITIAL_MACRO#0", NULL != (/*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V1735*/ meltfptr[1734])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-macro.melt:2876:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1735*/ meltfptr[1734])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1641__INSTALL_INITIAL_MACRO#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1735*/ meltfptr[1734])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:2876:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1735*/ meltfptr[1734])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1641__INSTALL_INITIAL_MACRO#2", NULL != (/*_.CLASS_MACRO_BINDING__V26*/ meltfptr[25])); ((meltroutine_ptr_t)/*_._VALROUT___V1735*/ meltfptr[1734])->tabval[2] = (melt_ptr_t)(/*_.CLASS_MACRO_BINDING__V26*/ meltfptr[25]); MELT_LOCATION("warmelt-macro.melt:2876:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1735*/ meltfptr[1734])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1641__INSTALL_INITIAL_MACRO#3", NULL != (/*_.PUT_ENV__V32*/ meltfptr[31])); ((meltroutine_ptr_t)/*_._VALROUT___V1735*/ meltfptr[1734])->tabval[3] = (melt_ptr_t)(/*_.PUT_ENV__V32*/ meltfptr[31]); MELT_LOCATION("warmelt-macro.melt:2876:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1735*/ meltfptr[1734])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1641__INSTALL_INITIAL_MACRO#4", NULL != (/*_.INITIAL_ENVIRONMENT__V65*/ meltfptr[64])); ((meltroutine_ptr_t)/*_._VALROUT___V1735*/ meltfptr[1734])->tabval[4] = (melt_ptr_t)(/*_.INITIAL_ENVIRONMENT__V65*/ meltfptr[64]); MELT_LOCATION("warmelt-macro.melt:2876:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1735*/ meltfptr[1734]); /*putclosurout#41*/ melt_assertmsg("putclosrout#41 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1736*/ meltfptr[1735])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#41 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1735*/ meltfptr[1734])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1736*/ meltfptr[1735])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1735*/ meltfptr[1734]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1736*/ meltfptr[1735]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1643__INITIAL_ENVIRONMENT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1737*/ meltfptr[1736])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1643__INITIAL_ENVIRONMENT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1737*/ meltfptr[1736])))); ((meltobject_ptr_t)(/*_._VALDATA___V1737*/ meltfptr[1736]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1738*/ meltfptr[1737]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1737*/ meltfptr[1736]); melt_dbgtrace_written_object (/*_._VALDATA___V1737*/ meltfptr[1736], "new static instance"); MELT_LOCATION("warmelt-macro.melt:2890:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1739*/ meltfptr[1738])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1645__INSTALL_INITIAL_PATMACRO#0", NULL != (/*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V1739*/ meltfptr[1738])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-macro.melt:2890:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1739*/ meltfptr[1738])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1645__INSTALL_INITIAL_PATMACRO#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1739*/ meltfptr[1738])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:2890:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1739*/ meltfptr[1738])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1645__INSTALL_INITIAL_PATMACRO#2", NULL != (/*_.CLASS_PATMACRO_BINDING__V59*/ meltfptr[58])); ((meltroutine_ptr_t)/*_._VALROUT___V1739*/ meltfptr[1738])->tabval[2] = (melt_ptr_t)(/*_.CLASS_PATMACRO_BINDING__V59*/ meltfptr[58]); MELT_LOCATION("warmelt-macro.melt:2890:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1739*/ meltfptr[1738])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1645__INSTALL_INITIAL_PATMACRO#3", NULL != (/*_.PUT_ENV__V32*/ meltfptr[31])); ((meltroutine_ptr_t)/*_._VALROUT___V1739*/ meltfptr[1738])->tabval[3] = (melt_ptr_t)(/*_.PUT_ENV__V32*/ meltfptr[31]); MELT_LOCATION("warmelt-macro.melt:2890:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1739*/ meltfptr[1738])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1645__INSTALL_INITIAL_PATMACRO#4", NULL != (/*_.INITIAL_ENVIRONMENT__V65*/ meltfptr[64])); ((meltroutine_ptr_t)/*_._VALROUT___V1739*/ meltfptr[1738])->tabval[4] = (melt_ptr_t)(/*_.INITIAL_ENVIRONMENT__V65*/ meltfptr[64]); MELT_LOCATION("warmelt-macro.melt:2890:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1739*/ meltfptr[1738]); /*putclosurout#42*/ melt_assertmsg("putclosrout#42 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1740*/ meltfptr[1739])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#42 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1739*/ meltfptr[1738])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1740*/ meltfptr[1739])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1739*/ meltfptr[1738]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1740*/ meltfptr[1739]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1647__WARN_SHADOW @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1741*/ meltfptr[1740])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1647__WARN_SHADOW @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1741*/ meltfptr[1740])))); ((meltobject_ptr_t)(/*_._VALDATA___V1741*/ meltfptr[1740]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1742*/ meltfptr[1741]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1741*/ meltfptr[1740]); melt_dbgtrace_written_object (/*_._VALDATA___V1741*/ meltfptr[1740], "new static instance"); MELT_LOCATION("warmelt-macro.melt:2907:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1649__WARN_SHADOW @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1743*/ meltfptr[1742])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1649__WARN_SHADOW @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1743*/ meltfptr[1742])))); ((meltobject_ptr_t)(/*_._VALDATA___V1743*/ meltfptr[1742]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1744*/ meltfptr[1743]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1745*/ meltfptr[1744]); MELT_LOCATION("warmelt-macro.melt:2907:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1649__WARN_SHADOW @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1743*/ meltfptr[1742])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1649__WARN_SHADOW @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1743*/ meltfptr[1742])))); ((meltobject_ptr_t)(/*_._VALDATA___V1743*/ meltfptr[1742]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALTUP___V1745*/ meltfptr[1744]); MELT_LOCATION("warmelt-macro.melt:2907:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1649__WARN_SHADOW @#3", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1743*/ meltfptr[1742])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1649__WARN_SHADOW @#3", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1743*/ meltfptr[1742])))); ((meltobject_ptr_t)(/*_._VALDATA___V1743*/ meltfptr[1742]))->obj_vartab[3] = (melt_ptr_t)( ((melt_ptr_t)(MELT_PREDEF(CTYPE_LONG)))); /*putupl#1072*/ melt_assertmsg("putupl #1072 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1747*/ meltfptr[1746]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #1072 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1747*/ meltfptr[1746])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1747*/ meltfptr[1746]))->tabval[0] = (melt_ptr_t)(/*_._VALSTR___V1746*/ meltfptr[1745]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1747*/ meltfptr[1746]); MELT_LOCATION("warmelt-macro.melt:2907:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1649__WARN_SHADOW @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1743*/ meltfptr[1742])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1649__WARN_SHADOW @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1743*/ meltfptr[1742])))); ((meltobject_ptr_t)(/*_._VALDATA___V1743*/ meltfptr[1742]))->obj_vartab[4] = (melt_ptr_t)( /*_._VALTUP___V1747*/ meltfptr[1746]); MELT_LOCATION("warmelt-macro.melt:2907:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1743*/ meltfptr[1742]); MELT_LOCATION("warmelt-macro.melt:2907:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1743*/ meltfptr[1742], "new static instance"); MELT_LOCATION("warmelt-macro.melt:2911:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1748*/ meltfptr[1747])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1654__WARN_IF_REDEFINED#0", NULL != (/*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V1748*/ meltfptr[1747])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-macro.melt:2911:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1748*/ meltfptr[1747])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1654__WARN_IF_REDEFINED#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1748*/ meltfptr[1747])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:2911:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1748*/ meltfptr[1747])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1654__WARN_IF_REDEFINED#2", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V1748*/ meltfptr[1747])->tabval[2] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:2911:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1748*/ meltfptr[1747])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1654__WARN_IF_REDEFINED#3", NULL != (/*_.FIND_ENV__V31*/ meltfptr[30])); ((meltroutine_ptr_t)/*_._VALROUT___V1748*/ meltfptr[1747])->tabval[3] = (melt_ptr_t)(/*_.FIND_ENV__V31*/ meltfptr[30]); MELT_LOCATION("warmelt-macro.melt:2911:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1748*/ meltfptr[1747]); /*putclosurout#43*/ melt_assertmsg("putclosrout#43 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1749*/ meltfptr[1748])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#43 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1748*/ meltfptr[1747])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1749*/ meltfptr[1748])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1748*/ meltfptr[1747]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1749*/ meltfptr[1748]); MELT_LOCATION("warmelt-macro.melt:2924:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1750*/ meltfptr[1749])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1656__FLATTEN_FOR_C_CODE_EXPANSION#0", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1750*/ meltfptr[1749])->tabval[0] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:2924:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1750*/ meltfptr[1749])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V306*/ meltfptr[305]); ((meltroutine_ptr_t)/*_._VALROUT___V1750*/ meltfptr[1749])->tabval[1] = (melt_ptr_t)(/*_._VALCLO___V306*/ meltfptr[305]); MELT_LOCATION("warmelt-macro.melt:2924:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1750*/ meltfptr[1749])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1656__FLATTEN_FOR_C_CODE_EXPANSION#2", NULL != (/*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V1750*/ meltfptr[1749])->tabval[2] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-macro.melt:2924:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1750*/ meltfptr[1749])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1656__FLATTEN_FOR_C_CODE_EXPANSION#3", NULL != (/*_.DISCR_VERBATIM_STRING__V66*/ meltfptr[65])); ((meltroutine_ptr_t)/*_._VALROUT___V1750*/ meltfptr[1749])->tabval[3] = (melt_ptr_t)(/*_.DISCR_VERBATIM_STRING__V66*/ meltfptr[65]); MELT_LOCATION("warmelt-macro.melt:2924:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1750*/ meltfptr[1749])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1656__FLATTEN_FOR_C_CODE_EXPANSION#4", NULL != (/*_.STRING4OUT__V14*/ meltfptr[13])); ((meltroutine_ptr_t)/*_._VALROUT___V1750*/ meltfptr[1749])->tabval[4] = (melt_ptr_t)(/*_.STRING4OUT__V14*/ meltfptr[13]); /*putclosurout#44*/ melt_assertmsg("putclosrout#44 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1751*/ meltfptr[1750])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#44 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1750*/ meltfptr[1749])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1751*/ meltfptr[1750])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1750*/ meltfptr[1749]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1751*/ meltfptr[1750]); MELT_LOCATION("warmelt-macro.melt:2924:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1750*/ meltfptr[1749])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1751*/ meltfptr[1750]); ((meltroutine_ptr_t)/*_._VALROUT___V1750*/ meltfptr[1749])->tabval[5] = (melt_ptr_t)(/*_._VALCLO___V1751*/ meltfptr[1750]); MELT_LOCATION("warmelt-macro.melt:2924:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1750*/ meltfptr[1749])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1656__FLATTEN_FOR_C_CODE_EXPANSION#6", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V1750*/ meltfptr[1749])->tabval[6] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:2924:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1750*/ meltfptr[1749])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1656__FLATTEN_FOR_C_CODE_EXPANSION#7", NULL != (/*_.CLASS_LOCATED__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V1750*/ meltfptr[1749])->tabval[7] = (melt_ptr_t)(/*_.CLASS_LOCATED__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-macro.melt:2924:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1750*/ meltfptr[1749])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1656__FLATTEN_FOR_C_CODE_EXPANSION#8", NULL != (/*_.CLASS_NAMED__V23*/ meltfptr[22])); ((meltroutine_ptr_t)/*_._VALROUT___V1750*/ meltfptr[1749])->tabval[8] = (melt_ptr_t)(/*_.CLASS_NAMED__V23*/ meltfptr[22]); MELT_LOCATION("warmelt-macro.melt:2924:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1750*/ meltfptr[1749]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1658__DISCR_VERBATIM_STRING @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1752*/ meltfptr[1751])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1658__DISCR_VERBATIM_STRING @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1752*/ meltfptr[1751])))); ((meltobject_ptr_t)(/*_._VALDATA___V1752*/ meltfptr[1751]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1753*/ meltfptr[1752]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1752*/ meltfptr[1751]); melt_dbgtrace_written_object (/*_._VALDATA___V1752*/ meltfptr[1751], "new static instance"); MELT_LOCATION("warmelt-macro.melt:2972:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1754*/ meltfptr[1753])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1660__PARSE_PAIRLIST_C_CODE_EXPANSION#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1754*/ meltfptr[1753])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:2972:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1754*/ meltfptr[1753])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1660__PARSE_PAIRLIST_C_CODE_EXPANSION#1", NULL != (/*_.DISCR_LIST__V34*/ meltfptr[33])); ((meltroutine_ptr_t)/*_._VALROUT___V1754*/ meltfptr[1753])->tabval[1] = (melt_ptr_t)(/*_.DISCR_LIST__V34*/ meltfptr[33]); MELT_LOCATION("warmelt-macro.melt:2972:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1754*/ meltfptr[1753])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1751*/ meltfptr[1750]); ((meltroutine_ptr_t)/*_._VALROUT___V1754*/ meltfptr[1753])->tabval[2] = (melt_ptr_t)(/*_._VALCLO___V1751*/ meltfptr[1750]); MELT_LOCATION("warmelt-macro.melt:2972:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1754*/ meltfptr[1753])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1660__PARSE_PAIRLIST_C_CODE_EXPANSION#3", NULL != (/*_.LIST_TO_MULTIPLE__V12*/ meltfptr[11])); ((meltroutine_ptr_t)/*_._VALROUT___V1754*/ meltfptr[1753])->tabval[3] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V12*/ meltfptr[11]); MELT_LOCATION("warmelt-macro.melt:2972:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1754*/ meltfptr[1753])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1660__PARSE_PAIRLIST_C_CODE_EXPANSION#4", NULL != (/*_.DISCR_MULTIPLE__V13*/ meltfptr[12])); ((meltroutine_ptr_t)/*_._VALROUT___V1754*/ meltfptr[1753])->tabval[4] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V13*/ meltfptr[12]); MELT_LOCATION("warmelt-macro.melt:2972:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1754*/ meltfptr[1753])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1660__PARSE_PAIRLIST_C_CODE_EXPANSION#5", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1754*/ meltfptr[1753])->tabval[5] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:2972:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1754*/ meltfptr[1753]); /*putclosurout#45*/ melt_assertmsg("putclosrout#45 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1755*/ meltfptr[1754])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#45 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1754*/ meltfptr[1753])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1755*/ meltfptr[1754])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1754*/ meltfptr[1753]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1755*/ meltfptr[1754]); MELT_LOCATION("warmelt-macro.melt:2993:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1756*/ meltfptr[1755])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1662__CHECK_C_EXPANSION#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1756*/ meltfptr[1755])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:2993:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1756*/ meltfptr[1755])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V306*/ meltfptr[305]); ((meltroutine_ptr_t)/*_._VALROUT___V1756*/ meltfptr[1755])->tabval[1] = (melt_ptr_t)(/*_._VALCLO___V306*/ meltfptr[305]); MELT_LOCATION("warmelt-macro.melt:2993:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1756*/ meltfptr[1755])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1662__CHECK_C_EXPANSION#2", NULL != (/*_.CLASS_KEYWORD__V22*/ meltfptr[21])); ((meltroutine_ptr_t)/*_._VALROUT___V1756*/ meltfptr[1755])->tabval[2] = (melt_ptr_t)(/*_.CLASS_KEYWORD__V22*/ meltfptr[21]); MELT_LOCATION("warmelt-macro.melt:2993:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1756*/ meltfptr[1755])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1662__CHECK_C_EXPANSION#3", NULL != (/*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V1756*/ meltfptr[1755])->tabval[3] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-macro.melt:2993:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1756*/ meltfptr[1755])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1662__CHECK_C_EXPANSION#4", NULL != (/*_.CLASS_NAMED__V23*/ meltfptr[22])); ((meltroutine_ptr_t)/*_._VALROUT___V1756*/ meltfptr[1755])->tabval[4] = (melt_ptr_t)(/*_.CLASS_NAMED__V23*/ meltfptr[22]); MELT_LOCATION("warmelt-macro.melt:2993:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1756*/ meltfptr[1755]); /*putclosurout#46*/ melt_assertmsg("putclosrout#46 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1757*/ meltfptr[1756])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#46 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1756*/ meltfptr[1755])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1757*/ meltfptr[1756])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1756*/ meltfptr[1755]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1757*/ meltfptr[1756]); MELT_LOCATION("warmelt-macro.melt:3033:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1758*/ meltfptr[1757])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1664__MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1758*/ meltfptr[1757])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:3033:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1758*/ meltfptr[1757])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1664__MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1758*/ meltfptr[1757])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:3033:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1758*/ meltfptr[1757]); /*putclosurout#47*/ melt_assertmsg("putclosrout#47 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1759*/ meltfptr[1758])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#47 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1758*/ meltfptr[1757])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1759*/ meltfptr[1758])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1758*/ meltfptr[1757]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1759*/ meltfptr[1758]); MELT_LOCATION("warmelt-macro.melt:3046:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1760*/ meltfptr[1759])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1666__MELT_INVOKE_TRANSLATOR_RUNNER_MACROEXPANSIONS#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1760*/ meltfptr[1759])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:3046:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1760*/ meltfptr[1759])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V306*/ meltfptr[305]); ((meltroutine_ptr_t)/*_._VALROUT___V1760*/ meltfptr[1759])->tabval[1] = (melt_ptr_t)(/*_._VALCLO___V306*/ meltfptr[305]); MELT_LOCATION("warmelt-macro.melt:3046:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1760*/ meltfptr[1759])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V308*/ meltfptr[307]); ((meltroutine_ptr_t)/*_._VALROUT___V1760*/ meltfptr[1759])->tabval[2] = (melt_ptr_t)(/*_._VALCLO___V308*/ meltfptr[307]); MELT_LOCATION("warmelt-macro.melt:3046:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1760*/ meltfptr[1759])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1666__MELT_INVOKE_TRANSLATOR_RUNNER_MACROEXPANSIONS#3", NULL != (/*_.DEBUG_LESS__V35*/ meltfptr[34])); ((meltroutine_ptr_t)/*_._VALROUT___V1760*/ meltfptr[1759])->tabval[3] = (melt_ptr_t)(/*_.DEBUG_LESS__V35*/ meltfptr[34]); #undef meltfram__ } /*end of meltmod__WARMELTmiMACRO__initialmeltchunk_34*/ void meltmod__WARMELTmiMACRO__initialmeltchunk_35 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; MELT_LOCATION("warmelt-macro.melt:3046:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1760*/ meltfptr[1759])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1666__MELT_INVOKE_TRANSLATOR_RUNNER_MACROEXPANSIONS#4", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1760*/ meltfptr[1759])->tabval[4] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:3046:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1760*/ meltfptr[1759]); /*putclosurout#48*/ melt_assertmsg("putclosrout#48 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1761*/ meltfptr[1760])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#48 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1760*/ meltfptr[1759])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1761*/ meltfptr[1760])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1760*/ meltfptr[1759]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1761*/ meltfptr[1760]); MELT_LOCATION("warmelt-macro.melt:3078:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1762*/ meltfptr[1761])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1668__MEXPAND_DEFPRIMITIVE#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1762*/ meltfptr[1761])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:3078:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1762*/ meltfptr[1761])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1668__MEXPAND_DEFPRIMITIVE#1", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V1762*/ meltfptr[1761])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:3078:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1762*/ meltfptr[1761])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1668__MEXPAND_DEFPRIMITIVE#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1762*/ meltfptr[1761])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:3078:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1762*/ meltfptr[1761])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1668__MEXPAND_DEFPRIMITIVE#3", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V1762*/ meltfptr[1761])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:3078:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1762*/ meltfptr[1761])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1668__MEXPAND_DEFPRIMITIVE#4", NULL != (/*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V1762*/ meltfptr[1761])->tabval[4] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-macro.melt:3078:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1762*/ meltfptr[1761])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V306*/ meltfptr[305]); ((meltroutine_ptr_t)/*_._VALROUT___V1762*/ meltfptr[1761])->tabval[5] = (melt_ptr_t)(/*_._VALCLO___V306*/ meltfptr[305]); MELT_LOCATION("warmelt-macro.melt:3078:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1762*/ meltfptr[1761])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1611*/ meltfptr[1610]); ((meltroutine_ptr_t)/*_._VALROUT___V1762*/ meltfptr[1761])->tabval[6] = (melt_ptr_t)(/*_._VALCLO___V1611*/ meltfptr[1610]); MELT_LOCATION("warmelt-macro.melt:3078:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1762*/ meltfptr[1761])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1668__MEXPAND_DEFPRIMITIVE#7", NULL != (/*_.DISCR_VARIADIC_FORMAL_SEQUENCE__V62*/ meltfptr[61])); ((meltroutine_ptr_t)/*_._VALROUT___V1762*/ meltfptr[1761])->tabval[7] = (melt_ptr_t)(/*_.DISCR_VARIADIC_FORMAL_SEQUENCE__V62*/ meltfptr[61]); MELT_LOCATION("warmelt-macro.melt:3078:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1762*/ meltfptr[1761])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1668__MEXPAND_DEFPRIMITIVE#8", NULL != (/*_.CLASS_NAMED__V23*/ meltfptr[22])); ((meltroutine_ptr_t)/*_._VALROUT___V1762*/ meltfptr[1761])->tabval[8] = (melt_ptr_t)(/*_.CLASS_NAMED__V23*/ meltfptr[22]); MELT_LOCATION("warmelt-macro.melt:3078:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1762*/ meltfptr[1761])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1668__MEXPAND_DEFPRIMITIVE#9", NULL != (/*_.CLASS_KEYWORD__V22*/ meltfptr[21])); ((meltroutine_ptr_t)/*_._VALROUT___V1762*/ meltfptr[1761])->tabval[9] = (melt_ptr_t)(/*_.CLASS_KEYWORD__V22*/ meltfptr[21]); MELT_LOCATION("warmelt-macro.melt:3078:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1762*/ meltfptr[1761])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1668__MEXPAND_DEFPRIMITIVE#10", NULL != (/*_.CLASS_CTYPE__V63*/ meltfptr[62])); ((meltroutine_ptr_t)/*_._VALROUT___V1762*/ meltfptr[1761])->tabval[10] = (melt_ptr_t)(/*_.CLASS_CTYPE__V63*/ meltfptr[62]); MELT_LOCATION("warmelt-macro.melt:3078:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1762*/ meltfptr[1761])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1668__MEXPAND_DEFPRIMITIVE#11", NULL != (/*_.CLASS_QUASI_CTYPE__V64*/ meltfptr[63])); ((meltroutine_ptr_t)/*_._VALROUT___V1762*/ meltfptr[1761])->tabval[11] = (melt_ptr_t)(/*_.CLASS_QUASI_CTYPE__V64*/ meltfptr[63]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1670__DOC @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1763*/ meltfptr[1762])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1670__DOC @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1763*/ meltfptr[1762])))); ((meltobject_ptr_t)(/*_._VALDATA___V1763*/ meltfptr[1762]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1764*/ meltfptr[1763]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1763*/ meltfptr[1762]); melt_dbgtrace_written_object (/*_._VALDATA___V1763*/ meltfptr[1762], "new static instance"); MELT_LOCATION("warmelt-macro.melt:3078:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1762*/ meltfptr[1761])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1668__MEXPAND_DEFPRIMITIVE#12", NULL != (/*_._VALDATA___V1763*/ meltfptr[1762])); ((meltroutine_ptr_t)/*_._VALROUT___V1762*/ meltfptr[1761])->tabval[12] = (melt_ptr_t)(/*_._VALDATA___V1763*/ meltfptr[1762]); MELT_LOCATION("warmelt-macro.melt:3078:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1762*/ meltfptr[1761])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1668__MEXPAND_DEFPRIMITIVE#13", NULL != (/*_.CLASS_LOCATED__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V1762*/ meltfptr[1761])->tabval[13] = (melt_ptr_t)(/*_.CLASS_LOCATED__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-macro.melt:3078:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1762*/ meltfptr[1761])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1755*/ meltfptr[1754]); ((meltroutine_ptr_t)/*_._VALROUT___V1762*/ meltfptr[1761])->tabval[14] = (melt_ptr_t)(/*_._VALCLO___V1755*/ meltfptr[1754]); MELT_LOCATION("warmelt-macro.melt:3078:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1762*/ meltfptr[1761])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1668__MEXPAND_DEFPRIMITIVE#15", NULL != (/*_.DISCR_MAP_OBJECTS__V21*/ meltfptr[20])); ((meltroutine_ptr_t)/*_._VALROUT___V1762*/ meltfptr[1761])->tabval[15] = (melt_ptr_t)(/*_.DISCR_MAP_OBJECTS__V21*/ meltfptr[20]); MELT_LOCATION("warmelt-macro.melt:3078:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1762*/ meltfptr[1761])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V789*/ meltfptr[788]); ((meltroutine_ptr_t)/*_._VALROUT___V1762*/ meltfptr[1761])->tabval[16] = (melt_ptr_t)(/*_._VALDATA___V789*/ meltfptr[788]); MELT_LOCATION("warmelt-macro.melt:3078:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1762*/ meltfptr[1761])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1668__MEXPAND_DEFPRIMITIVE#17", NULL != (/*_.CLASS_PRIMITIVE__V52*/ meltfptr[51])); ((meltroutine_ptr_t)/*_._VALROUT___V1762*/ meltfptr[1761])->tabval[17] = (melt_ptr_t)(/*_.CLASS_PRIMITIVE__V52*/ meltfptr[51]); MELT_LOCATION("warmelt-macro.melt:3078:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1762*/ meltfptr[1761])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1668__MEXPAND_DEFPRIMITIVE#18", NULL != (/*_.CLASS_PRIMITIVE_BINDING__V43*/ meltfptr[42])); ((meltroutine_ptr_t)/*_._VALROUT___V1762*/ meltfptr[1761])->tabval[18] = (melt_ptr_t)(/*_.CLASS_PRIMITIVE_BINDING__V43*/ meltfptr[42]); MELT_LOCATION("warmelt-macro.melt:3078:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1762*/ meltfptr[1761])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1668__MEXPAND_DEFPRIMITIVE#19", NULL != (/*_.CLASS_FORMAL_BINDING__V49*/ meltfptr[48])); ((meltroutine_ptr_t)/*_._VALROUT___V1762*/ meltfptr[1761])->tabval[19] = (melt_ptr_t)(/*_.CLASS_FORMAL_BINDING__V49*/ meltfptr[48]); MELT_LOCATION("warmelt-macro.melt:3078:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1762*/ meltfptr[1761])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1668__MEXPAND_DEFPRIMITIVE#20", NULL != (/*_.CLASS_ANY_BINDING__V28*/ meltfptr[27])); ((meltroutine_ptr_t)/*_._VALROUT___V1762*/ meltfptr[1761])->tabval[20] = (melt_ptr_t)(/*_.CLASS_ANY_BINDING__V28*/ meltfptr[27]); MELT_LOCATION("warmelt-macro.melt:3078:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1762*/ meltfptr[1761])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1757*/ meltfptr[1756]); ((meltroutine_ptr_t)/*_._VALROUT___V1762*/ meltfptr[1761])->tabval[21] = (melt_ptr_t)(/*_._VALCLO___V1757*/ meltfptr[1756]); MELT_LOCATION("warmelt-macro.melt:3078:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1762*/ meltfptr[1761])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1749*/ meltfptr[1748]); ((meltroutine_ptr_t)/*_._VALROUT___V1762*/ meltfptr[1761])->tabval[22] = (melt_ptr_t)(/*_._VALCLO___V1749*/ meltfptr[1748]); MELT_LOCATION("warmelt-macro.melt:3078:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1762*/ meltfptr[1761])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1573*/ meltfptr[1572]); ((meltroutine_ptr_t)/*_._VALROUT___V1762*/ meltfptr[1761])->tabval[23] = (melt_ptr_t)(/*_._VALCLO___V1573*/ meltfptr[1572]); MELT_LOCATION("warmelt-macro.melt:3078:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1762*/ meltfptr[1761])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1599*/ meltfptr[1598]); ((meltroutine_ptr_t)/*_._VALROUT___V1762*/ meltfptr[1761])->tabval[24] = (melt_ptr_t)(/*_._VALCLO___V1599*/ meltfptr[1598]); MELT_LOCATION("warmelt-macro.melt:3078:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1762*/ meltfptr[1761]); /*putclosurout#49*/ melt_assertmsg("putclosrout#49 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1765*/ meltfptr[1764])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#49 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1762*/ meltfptr[1761])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1765*/ meltfptr[1764])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1762*/ meltfptr[1761]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1765*/ meltfptr[1764]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1672__DEFPRIMITIVE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1766*/ meltfptr[1765])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1672__DEFPRIMITIVE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1766*/ meltfptr[1765])))); ((meltobject_ptr_t)(/*_._VALDATA___V1766*/ meltfptr[1765]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1767*/ meltfptr[1766]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1766*/ meltfptr[1765]); melt_dbgtrace_written_object (/*_._VALDATA___V1766*/ meltfptr[1765], "new static instance"); MELT_LOCATION("warmelt-macro.melt:3201:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1768*/ meltfptr[1767])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1674__MEXPAND_DEFCITERATOR#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1768*/ meltfptr[1767])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:3201:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1768*/ meltfptr[1767])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1674__MEXPAND_DEFCITERATOR#1", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V1768*/ meltfptr[1767])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:3201:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1768*/ meltfptr[1767])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1674__MEXPAND_DEFCITERATOR#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1768*/ meltfptr[1767])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:3201:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1768*/ meltfptr[1767])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1674__MEXPAND_DEFCITERATOR#3", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V1768*/ meltfptr[1767])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:3201:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1768*/ meltfptr[1767])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1674__MEXPAND_DEFCITERATOR#4", NULL != (/*_.CLASS_NAMED__V23*/ meltfptr[22])); ((meltroutine_ptr_t)/*_._VALROUT___V1768*/ meltfptr[1767])->tabval[4] = (melt_ptr_t)(/*_.CLASS_NAMED__V23*/ meltfptr[22]); MELT_LOCATION("warmelt-macro.melt:3201:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1768*/ meltfptr[1767])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1674__MEXPAND_DEFCITERATOR#5", NULL != (/*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V1768*/ meltfptr[1767])->tabval[5] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-macro.melt:3201:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1768*/ meltfptr[1767])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V306*/ meltfptr[305]); ((meltroutine_ptr_t)/*_._VALROUT___V1768*/ meltfptr[1767])->tabval[6] = (melt_ptr_t)(/*_._VALCLO___V306*/ meltfptr[305]); MELT_LOCATION("warmelt-macro.melt:3201:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1768*/ meltfptr[1767])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1611*/ meltfptr[1610]); ((meltroutine_ptr_t)/*_._VALROUT___V1768*/ meltfptr[1767])->tabval[7] = (melt_ptr_t)(/*_._VALCLO___V1611*/ meltfptr[1610]); MELT_LOCATION("warmelt-macro.melt:3201:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1768*/ meltfptr[1767])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1674__MEXPAND_DEFCITERATOR#8", NULL != (/*_.DISCR_VARIADIC_FORMAL_SEQUENCE__V62*/ meltfptr[61])); ((meltroutine_ptr_t)/*_._VALROUT___V1768*/ meltfptr[1767])->tabval[8] = (melt_ptr_t)(/*_.DISCR_VARIADIC_FORMAL_SEQUENCE__V62*/ meltfptr[61]); MELT_LOCATION("warmelt-macro.melt:3201:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1768*/ meltfptr[1767])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1674__MEXPAND_DEFCITERATOR#9", NULL != (/*_._VALDATA___V1763*/ meltfptr[1762])); ((meltroutine_ptr_t)/*_._VALROUT___V1768*/ meltfptr[1767])->tabval[9] = (melt_ptr_t)(/*_._VALDATA___V1763*/ meltfptr[1762]); MELT_LOCATION("warmelt-macro.melt:3201:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1768*/ meltfptr[1767])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1674__MEXPAND_DEFCITERATOR#10", NULL != (/*_.CLASS_LOCATED__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V1768*/ meltfptr[1767])->tabval[10] = (melt_ptr_t)(/*_.CLASS_LOCATED__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-macro.melt:3201:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1768*/ meltfptr[1767])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1755*/ meltfptr[1754]); ((meltroutine_ptr_t)/*_._VALROUT___V1768*/ meltfptr[1767])->tabval[11] = (melt_ptr_t)(/*_._VALCLO___V1755*/ meltfptr[1754]); MELT_LOCATION("warmelt-macro.melt:3201:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1768*/ meltfptr[1767])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1674__MEXPAND_DEFCITERATOR#12", NULL != (/*_.CLASS_CITERATOR__V37*/ meltfptr[36])); ((meltroutine_ptr_t)/*_._VALROUT___V1768*/ meltfptr[1767])->tabval[12] = (melt_ptr_t)(/*_.CLASS_CITERATOR__V37*/ meltfptr[36]); MELT_LOCATION("warmelt-macro.melt:3201:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1768*/ meltfptr[1767])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1674__MEXPAND_DEFCITERATOR#13", NULL != (/*_.CLASS_CITERATOR_BINDING__V44*/ meltfptr[43])); ((meltroutine_ptr_t)/*_._VALROUT___V1768*/ meltfptr[1767])->tabval[13] = (melt_ptr_t)(/*_.CLASS_CITERATOR_BINDING__V44*/ meltfptr[43]); MELT_LOCATION("warmelt-macro.melt:3201:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1768*/ meltfptr[1767])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V833*/ meltfptr[832]); ((meltroutine_ptr_t)/*_._VALROUT___V1768*/ meltfptr[1767])->tabval[14] = (melt_ptr_t)(/*_._VALDATA___V833*/ meltfptr[832]); MELT_LOCATION("warmelt-macro.melt:3201:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1768*/ meltfptr[1767])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1674__MEXPAND_DEFCITERATOR#15", NULL != (/*_.DISCR_MAP_OBJECTS__V21*/ meltfptr[20])); ((meltroutine_ptr_t)/*_._VALROUT___V1768*/ meltfptr[1767])->tabval[15] = (melt_ptr_t)(/*_.DISCR_MAP_OBJECTS__V21*/ meltfptr[20]); MELT_LOCATION("warmelt-macro.melt:3201:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1768*/ meltfptr[1767])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1674__MEXPAND_DEFCITERATOR#16", NULL != (/*_.CLASS_FORMAL_BINDING__V49*/ meltfptr[48])); ((meltroutine_ptr_t)/*_._VALROUT___V1768*/ meltfptr[1767])->tabval[16] = (melt_ptr_t)(/*_.CLASS_FORMAL_BINDING__V49*/ meltfptr[48]); MELT_LOCATION("warmelt-macro.melt:3201:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1768*/ meltfptr[1767])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1674__MEXPAND_DEFCITERATOR#17", NULL != (/*_.CLASS_ANY_BINDING__V28*/ meltfptr[27])); ((meltroutine_ptr_t)/*_._VALROUT___V1768*/ meltfptr[1767])->tabval[17] = (melt_ptr_t)(/*_.CLASS_ANY_BINDING__V28*/ meltfptr[27]); MELT_LOCATION("warmelt-macro.melt:3201:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1768*/ meltfptr[1767])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1757*/ meltfptr[1756]); ((meltroutine_ptr_t)/*_._VALROUT___V1768*/ meltfptr[1767])->tabval[18] = (melt_ptr_t)(/*_._VALCLO___V1757*/ meltfptr[1756]); MELT_LOCATION("warmelt-macro.melt:3201:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1768*/ meltfptr[1767])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1573*/ meltfptr[1572]); ((meltroutine_ptr_t)/*_._VALROUT___V1768*/ meltfptr[1767])->tabval[19] = (melt_ptr_t)(/*_._VALCLO___V1573*/ meltfptr[1572]); MELT_LOCATION("warmelt-macro.melt:3201:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1768*/ meltfptr[1767])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1599*/ meltfptr[1598]); ((meltroutine_ptr_t)/*_._VALROUT___V1768*/ meltfptr[1767])->tabval[20] = (melt_ptr_t)(/*_._VALCLO___V1599*/ meltfptr[1598]); MELT_LOCATION("warmelt-macro.melt:3201:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1768*/ meltfptr[1767]); /*putclosurout#50*/ melt_assertmsg("putclosrout#50 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1769*/ meltfptr[1768])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#50 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1768*/ meltfptr[1767])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1769*/ meltfptr[1768])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1768*/ meltfptr[1767]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1769*/ meltfptr[1768]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1676__DEFCITERATOR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1770*/ meltfptr[1769])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1676__DEFCITERATOR @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1770*/ meltfptr[1769])))); ((meltobject_ptr_t)(/*_._VALDATA___V1770*/ meltfptr[1769]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1771*/ meltfptr[1770]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1770*/ meltfptr[1769]); melt_dbgtrace_written_object (/*_._VALDATA___V1770*/ meltfptr[1769], "new static instance"); MELT_LOCATION("warmelt-macro.melt:3353:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1772*/ meltfptr[1771])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1678__MEXPAND_DEFCMATCHER#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1772*/ meltfptr[1771])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:3353:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1772*/ meltfptr[1771])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1678__MEXPAND_DEFCMATCHER#1", NULL != (/*_.DEBUG_LESS__V35*/ meltfptr[34])); ((meltroutine_ptr_t)/*_._VALROUT___V1772*/ meltfptr[1771])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_LESS__V35*/ meltfptr[34]); MELT_LOCATION("warmelt-macro.melt:3353:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1772*/ meltfptr[1771])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1678__MEXPAND_DEFCMATCHER#2", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V1772*/ meltfptr[1771])->tabval[2] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:3353:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1772*/ meltfptr[1771])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1678__MEXPAND_DEFCMATCHER#3", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1772*/ meltfptr[1771])->tabval[3] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:3353:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1772*/ meltfptr[1771])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1678__MEXPAND_DEFCMATCHER#4", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V1772*/ meltfptr[1771])->tabval[4] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:3353:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1772*/ meltfptr[1771])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1678__MEXPAND_DEFCMATCHER#5", NULL != (/*_.CLASS_NAMED__V23*/ meltfptr[22])); ((meltroutine_ptr_t)/*_._VALROUT___V1772*/ meltfptr[1771])->tabval[5] = (melt_ptr_t)(/*_.CLASS_NAMED__V23*/ meltfptr[22]); MELT_LOCATION("warmelt-macro.melt:3353:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1772*/ meltfptr[1771])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1678__MEXPAND_DEFCMATCHER#6", NULL != (/*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V1772*/ meltfptr[1771])->tabval[6] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-macro.melt:3353:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1772*/ meltfptr[1771])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V306*/ meltfptr[305]); ((meltroutine_ptr_t)/*_._VALROUT___V1772*/ meltfptr[1771])->tabval[7] = (melt_ptr_t)(/*_._VALCLO___V306*/ meltfptr[305]); MELT_LOCATION("warmelt-macro.melt:3353:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1772*/ meltfptr[1771])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1611*/ meltfptr[1610]); ((meltroutine_ptr_t)/*_._VALROUT___V1772*/ meltfptr[1771])->tabval[8] = (melt_ptr_t)(/*_._VALCLO___V1611*/ meltfptr[1610]); MELT_LOCATION("warmelt-macro.melt:3353:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1772*/ meltfptr[1771])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1678__MEXPAND_DEFCMATCHER#9", NULL != (/*_.DISCR_VARIADIC_FORMAL_SEQUENCE__V62*/ meltfptr[61])); ((meltroutine_ptr_t)/*_._VALROUT___V1772*/ meltfptr[1771])->tabval[9] = (melt_ptr_t)(/*_.DISCR_VARIADIC_FORMAL_SEQUENCE__V62*/ meltfptr[61]); MELT_LOCATION("warmelt-macro.melt:3353:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1772*/ meltfptr[1771])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1678__MEXPAND_DEFCMATCHER#10", NULL != (/*_.CLASS_FORMAL_BINDING__V49*/ meltfptr[48])); ((meltroutine_ptr_t)/*_._VALROUT___V1772*/ meltfptr[1771])->tabval[10] = (melt_ptr_t)(/*_.CLASS_FORMAL_BINDING__V49*/ meltfptr[48]); MELT_LOCATION("warmelt-macro.melt:3353:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1772*/ meltfptr[1771])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1678__MEXPAND_DEFCMATCHER#11", NULL != (/*_.DISCR_MULTIPLE__V13*/ meltfptr[12])); ((meltroutine_ptr_t)/*_._VALROUT___V1772*/ meltfptr[1771])->tabval[11] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V13*/ meltfptr[12]); MELT_LOCATION("warmelt-macro.melt:3353:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1772*/ meltfptr[1771])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1678__MEXPAND_DEFCMATCHER#12", NULL != (/*_._VALDATA___V1763*/ meltfptr[1762])); ((meltroutine_ptr_t)/*_._VALROUT___V1772*/ meltfptr[1771])->tabval[12] = (melt_ptr_t)(/*_._VALDATA___V1763*/ meltfptr[1762]); MELT_LOCATION("warmelt-macro.melt:3353:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1772*/ meltfptr[1771])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1678__MEXPAND_DEFCMATCHER#13", NULL != (/*_.CLASS_LOCATED__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V1772*/ meltfptr[1771])->tabval[13] = (melt_ptr_t)(/*_.CLASS_LOCATED__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-macro.melt:3353:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1772*/ meltfptr[1771])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1755*/ meltfptr[1754]); ((meltroutine_ptr_t)/*_._VALROUT___V1772*/ meltfptr[1771])->tabval[14] = (melt_ptr_t)(/*_._VALCLO___V1755*/ meltfptr[1754]); MELT_LOCATION("warmelt-macro.melt:3353:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1772*/ meltfptr[1771])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1678__MEXPAND_DEFCMATCHER#15", NULL != (/*_.CLASS_CMATCHER__V39*/ meltfptr[38])); ((meltroutine_ptr_t)/*_._VALROUT___V1772*/ meltfptr[1771])->tabval[15] = (melt_ptr_t)(/*_.CLASS_CMATCHER__V39*/ meltfptr[38]); MELT_LOCATION("warmelt-macro.melt:3353:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1772*/ meltfptr[1771])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V851*/ meltfptr[850]); ((meltroutine_ptr_t)/*_._VALROUT___V1772*/ meltfptr[1771])->tabval[16] = (melt_ptr_t)(/*_._VALDATA___V851*/ meltfptr[850]); MELT_LOCATION("warmelt-macro.melt:3353:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1772*/ meltfptr[1771])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1678__MEXPAND_DEFCMATCHER#17", NULL != (/*_.CLASS_CMATCHER_BINDING__V46*/ meltfptr[45])); ((meltroutine_ptr_t)/*_._VALROUT___V1772*/ meltfptr[1771])->tabval[17] = (melt_ptr_t)(/*_.CLASS_CMATCHER_BINDING__V46*/ meltfptr[45]); MELT_LOCATION("warmelt-macro.melt:3353:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1772*/ meltfptr[1771])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1678__MEXPAND_DEFCMATCHER#18", NULL != (/*_.DISCR_MAP_OBJECTS__V21*/ meltfptr[20])); ((meltroutine_ptr_t)/*_._VALROUT___V1772*/ meltfptr[1771])->tabval[18] = (melt_ptr_t)(/*_.DISCR_MAP_OBJECTS__V21*/ meltfptr[20]); MELT_LOCATION("warmelt-macro.melt:3353:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1772*/ meltfptr[1771])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1678__MEXPAND_DEFCMATCHER#19", NULL != (/*_.CLASS_ANY_BINDING__V28*/ meltfptr[27])); ((meltroutine_ptr_t)/*_._VALROUT___V1772*/ meltfptr[1771])->tabval[19] = (melt_ptr_t)(/*_.CLASS_ANY_BINDING__V28*/ meltfptr[27]); MELT_LOCATION("warmelt-macro.melt:3353:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1772*/ meltfptr[1771])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1757*/ meltfptr[1756]); ((meltroutine_ptr_t)/*_._VALROUT___V1772*/ meltfptr[1771])->tabval[20] = (melt_ptr_t)(/*_._VALCLO___V1757*/ meltfptr[1756]); MELT_LOCATION("warmelt-macro.melt:3353:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1772*/ meltfptr[1771])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1573*/ meltfptr[1572]); ((meltroutine_ptr_t)/*_._VALROUT___V1772*/ meltfptr[1771])->tabval[21] = (melt_ptr_t)(/*_._VALCLO___V1573*/ meltfptr[1572]); MELT_LOCATION("warmelt-macro.melt:3353:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1772*/ meltfptr[1771])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1678__MEXPAND_DEFCMATCHER#22", NULL != (/*_.DEBUG_MORE__V53*/ meltfptr[52])); ((meltroutine_ptr_t)/*_._VALROUT___V1772*/ meltfptr[1771])->tabval[22] = (melt_ptr_t)(/*_.DEBUG_MORE__V53*/ meltfptr[52]); MELT_LOCATION("warmelt-macro.melt:3353:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1772*/ meltfptr[1771])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1599*/ meltfptr[1598]); ((meltroutine_ptr_t)/*_._VALROUT___V1772*/ meltfptr[1771])->tabval[23] = (melt_ptr_t)(/*_._VALCLO___V1599*/ meltfptr[1598]); MELT_LOCATION("warmelt-macro.melt:3353:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1772*/ meltfptr[1771]); /*putclosurout#51*/ melt_assertmsg("putclosrout#51 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1773*/ meltfptr[1772])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#51 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1772*/ meltfptr[1771])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1773*/ meltfptr[1772])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1772*/ meltfptr[1771]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1773*/ meltfptr[1772]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1680__DEFCMATCHER @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1774*/ meltfptr[1773])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1680__DEFCMATCHER @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1774*/ meltfptr[1773])))); ((meltobject_ptr_t)(/*_._VALDATA___V1774*/ meltfptr[1773]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1775*/ meltfptr[1774]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1774*/ meltfptr[1773]); melt_dbgtrace_written_object (/*_._VALDATA___V1774*/ meltfptr[1773], "new static instance"); MELT_LOCATION("warmelt-macro.melt:3549:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1776*/ meltfptr[1775])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1682__MEXPAND_DEFUNMATCHER#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1776*/ meltfptr[1775])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:3549:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1776*/ meltfptr[1775])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1682__MEXPAND_DEFUNMATCHER#1", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V1776*/ meltfptr[1775])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:3549:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1776*/ meltfptr[1775])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1682__MEXPAND_DEFUNMATCHER#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1776*/ meltfptr[1775])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:3549:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1776*/ meltfptr[1775])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1682__MEXPAND_DEFUNMATCHER#3", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V1776*/ meltfptr[1775])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:3549:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1776*/ meltfptr[1775])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1682__MEXPAND_DEFUNMATCHER#4", NULL != (/*_.CLASS_NAMED__V23*/ meltfptr[22])); ((meltroutine_ptr_t)/*_._VALROUT___V1776*/ meltfptr[1775])->tabval[4] = (melt_ptr_t)(/*_.CLASS_NAMED__V23*/ meltfptr[22]); MELT_LOCATION("warmelt-macro.melt:3549:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1776*/ meltfptr[1775])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1682__MEXPAND_DEFUNMATCHER#5", NULL != (/*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V1776*/ meltfptr[1775])->tabval[5] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-macro.melt:3549:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1776*/ meltfptr[1775])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V306*/ meltfptr[305]); ((meltroutine_ptr_t)/*_._VALROUT___V1776*/ meltfptr[1775])->tabval[6] = (melt_ptr_t)(/*_._VALCLO___V306*/ meltfptr[305]); MELT_LOCATION("warmelt-macro.melt:3549:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1776*/ meltfptr[1775])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1611*/ meltfptr[1610]); ((meltroutine_ptr_t)/*_._VALROUT___V1776*/ meltfptr[1775])->tabval[7] = (melt_ptr_t)(/*_._VALCLO___V1611*/ meltfptr[1610]); MELT_LOCATION("warmelt-macro.melt:3549:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1776*/ meltfptr[1775])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1682__MEXPAND_DEFUNMATCHER#8", NULL != (/*_.DISCR_VARIADIC_FORMAL_SEQUENCE__V62*/ meltfptr[61])); ((meltroutine_ptr_t)/*_._VALROUT___V1776*/ meltfptr[1775])->tabval[8] = (melt_ptr_t)(/*_.DISCR_VARIADIC_FORMAL_SEQUENCE__V62*/ meltfptr[61]); MELT_LOCATION("warmelt-macro.melt:3549:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1776*/ meltfptr[1775])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1682__MEXPAND_DEFUNMATCHER#9", NULL != (/*_.DISCR_MULTIPLE__V13*/ meltfptr[12])); ((meltroutine_ptr_t)/*_._VALROUT___V1776*/ meltfptr[1775])->tabval[9] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V13*/ meltfptr[12]); MELT_LOCATION("warmelt-macro.melt:3549:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1776*/ meltfptr[1775])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1682__MEXPAND_DEFUNMATCHER#10", NULL != (/*_._VALDATA___V1763*/ meltfptr[1762])); ((meltroutine_ptr_t)/*_._VALROUT___V1776*/ meltfptr[1775])->tabval[10] = (melt_ptr_t)(/*_._VALDATA___V1763*/ meltfptr[1762]); MELT_LOCATION("warmelt-macro.melt:3549:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1776*/ meltfptr[1775])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V873*/ meltfptr[872]); ((meltroutine_ptr_t)/*_._VALROUT___V1776*/ meltfptr[1775])->tabval[11] = (melt_ptr_t)(/*_._VALDATA___V873*/ meltfptr[872]); MELT_LOCATION("warmelt-macro.melt:3549:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1776*/ meltfptr[1775])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1682__MEXPAND_DEFUNMATCHER#12", NULL != (/*_.CLASS_FUNMATCHER__V41*/ meltfptr[40])); ((meltroutine_ptr_t)/*_._VALROUT___V1776*/ meltfptr[1775])->tabval[12] = (melt_ptr_t)(/*_.CLASS_FUNMATCHER__V41*/ meltfptr[40]); MELT_LOCATION("warmelt-macro.melt:3549:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1776*/ meltfptr[1775])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1682__MEXPAND_DEFUNMATCHER#13", NULL != (/*_.CLASS_FUNMATCHER_BINDING__V47*/ meltfptr[46])); ((meltroutine_ptr_t)/*_._VALROUT___V1776*/ meltfptr[1775])->tabval[13] = (melt_ptr_t)(/*_.CLASS_FUNMATCHER_BINDING__V47*/ meltfptr[46]); MELT_LOCATION("warmelt-macro.melt:3549:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1776*/ meltfptr[1775])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1573*/ meltfptr[1572]); ((meltroutine_ptr_t)/*_._VALROUT___V1776*/ meltfptr[1775])->tabval[14] = (melt_ptr_t)(/*_._VALCLO___V1573*/ meltfptr[1572]); MELT_LOCATION("warmelt-macro.melt:3549:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1776*/ meltfptr[1775]); /*putclosurout#52*/ melt_assertmsg("putclosrout#52 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1777*/ meltfptr[1776])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#52 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1776*/ meltfptr[1775])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1777*/ meltfptr[1776])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1776*/ meltfptr[1775]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1777*/ meltfptr[1776]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1684__DEFUNMATCHER @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1778*/ meltfptr[1777])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1684__DEFUNMATCHER @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1778*/ meltfptr[1777])))); ((meltobject_ptr_t)(/*_._VALDATA___V1778*/ meltfptr[1777]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1779*/ meltfptr[1778]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1778*/ meltfptr[1777]); melt_dbgtrace_written_object (/*_._VALDATA___V1778*/ meltfptr[1777], "new static instance"); MELT_LOCATION("warmelt-macro.melt:3694:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1780*/ meltfptr[1779])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1686__MEXPAND_DEFUN#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1780*/ meltfptr[1779])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:3694:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1780*/ meltfptr[1779])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1686__MEXPAND_DEFUN#1", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V1780*/ meltfptr[1779])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:3694:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1780*/ meltfptr[1779])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1686__MEXPAND_DEFUN#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1780*/ meltfptr[1779])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:3694:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1780*/ meltfptr[1779])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1686__MEXPAND_DEFUN#3", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V1780*/ meltfptr[1779])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:3694:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1780*/ meltfptr[1779])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1686__MEXPAND_DEFUN#4", NULL != (/*_.CLASS_NAMED__V23*/ meltfptr[22])); ((meltroutine_ptr_t)/*_._VALROUT___V1780*/ meltfptr[1779])->tabval[4] = (melt_ptr_t)(/*_.CLASS_NAMED__V23*/ meltfptr[22]); MELT_LOCATION("warmelt-macro.melt:3694:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1780*/ meltfptr[1779])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1686__MEXPAND_DEFUN#5", NULL != (/*_.FRESH_ENV__V38*/ meltfptr[37])); ((meltroutine_ptr_t)/*_._VALROUT___V1780*/ meltfptr[1779])->tabval[5] = (melt_ptr_t)(/*_.FRESH_ENV__V38*/ meltfptr[37]); MELT_LOCATION("warmelt-macro.melt:3694:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1780*/ meltfptr[1779])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1686__MEXPAND_DEFUN#6", NULL != (/*_.CLASS_FUNCTION_BINDING__V67*/ meltfptr[66])); ((meltroutine_ptr_t)/*_._VALROUT___V1780*/ meltfptr[1779])->tabval[6] = (melt_ptr_t)(/*_.CLASS_FUNCTION_BINDING__V67*/ meltfptr[66]); MELT_LOCATION("warmelt-macro.melt:3694:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1780*/ meltfptr[1779])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1686__MEXPAND_DEFUN#7", NULL != (/*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V1780*/ meltfptr[1779])->tabval[7] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-macro.melt:3694:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1780*/ meltfptr[1779])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1749*/ meltfptr[1748]); ((meltroutine_ptr_t)/*_._VALROUT___V1780*/ meltfptr[1779])->tabval[8] = (melt_ptr_t)(/*_._VALCLO___V1749*/ meltfptr[1748]); MELT_LOCATION("warmelt-macro.melt:3694:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1780*/ meltfptr[1779])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1573*/ meltfptr[1572]); ((meltroutine_ptr_t)/*_._VALROUT___V1780*/ meltfptr[1779])->tabval[9] = (melt_ptr_t)(/*_._VALCLO___V1573*/ meltfptr[1572]); MELT_LOCATION("warmelt-macro.melt:3694:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1780*/ meltfptr[1779])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1686__MEXPAND_DEFUN#10", NULL != (/*_.DISCR_MULTIPLE__V13*/ meltfptr[12])); ((meltroutine_ptr_t)/*_._VALROUT___V1780*/ meltfptr[1779])->tabval[10] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V13*/ meltfptr[12]); MELT_LOCATION("warmelt-macro.melt:3694:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1780*/ meltfptr[1779])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1611*/ meltfptr[1610]); ((meltroutine_ptr_t)/*_._VALROUT___V1780*/ meltfptr[1779])->tabval[11] = (melt_ptr_t)(/*_._VALCLO___V1611*/ meltfptr[1610]); #undef meltfram__ } /*end of meltmod__WARMELTmiMACRO__initialmeltchunk_35*/ void meltmod__WARMELTmiMACRO__initialmeltchunk_36 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1690__CHECKARG @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1781*/ meltfptr[1780])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1690__CHECKARG @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1781*/ meltfptr[1780])))); ((meltobject_ptr_t)(/*_._VALDATA___V1781*/ meltfptr[1780]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1782*/ meltfptr[1781]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1781*/ meltfptr[1780]); melt_dbgtrace_written_object (/*_._VALDATA___V1781*/ meltfptr[1780], "new static instance"); MELT_LOCATION("warmelt-macro.melt:3694:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1780*/ meltfptr[1779])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1686__MEXPAND_DEFUN#12", NULL != (/*_._VALDATA___V1781*/ meltfptr[1780])); ((meltroutine_ptr_t)/*_._VALROUT___V1780*/ meltfptr[1779])->tabval[12] = (melt_ptr_t)(/*_._VALDATA___V1781*/ meltfptr[1780]); MELT_LOCATION("warmelt-macro.melt:3694:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1780*/ meltfptr[1779])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V306*/ meltfptr[305]); ((meltroutine_ptr_t)/*_._VALROUT___V1780*/ meltfptr[1779])->tabval[13] = (melt_ptr_t)(/*_._VALCLO___V306*/ meltfptr[305]); MELT_LOCATION("warmelt-macro.melt:3694:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1780*/ meltfptr[1779])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1686__MEXPAND_DEFUN#14", NULL != (/*_.PUT_ENV__V32*/ meltfptr[31])); ((meltroutine_ptr_t)/*_._VALROUT___V1780*/ meltfptr[1779])->tabval[14] = (melt_ptr_t)(/*_.PUT_ENV__V32*/ meltfptr[31]); MELT_LOCATION("warmelt-macro.melt:3694:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1780*/ meltfptr[1779])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1686__MEXPAND_DEFUN#15", NULL != (/*_._VALDATA___V1763*/ meltfptr[1762])); ((meltroutine_ptr_t)/*_._VALROUT___V1780*/ meltfptr[1779])->tabval[15] = (melt_ptr_t)(/*_._VALDATA___V1763*/ meltfptr[1762]); MELT_LOCATION("warmelt-macro.melt:3694:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1780*/ meltfptr[1779])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1593*/ meltfptr[1592]); ((meltroutine_ptr_t)/*_._VALROUT___V1780*/ meltfptr[1779])->tabval[16] = (melt_ptr_t)(/*_._VALCLO___V1593*/ meltfptr[1592]); MELT_LOCATION("warmelt-macro.melt:3694:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1780*/ meltfptr[1779])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V729*/ meltfptr[728]); ((meltroutine_ptr_t)/*_._VALROUT___V1780*/ meltfptr[1779])->tabval[17] = (melt_ptr_t)(/*_._VALDATA___V729*/ meltfptr[728]); MELT_LOCATION("warmelt-macro.melt:3694:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1780*/ meltfptr[1779]); /*putclosurout#53*/ melt_assertmsg("putclosrout#53 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1783*/ meltfptr[1782])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#53 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1780*/ meltfptr[1779])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1783*/ meltfptr[1782])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1780*/ meltfptr[1779]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1783*/ meltfptr[1782]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1688__CLASS_FUNCTION_BINDING @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1784*/ meltfptr[1783])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1688__CLASS_FUNCTION_BINDING @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1784*/ meltfptr[1783])))); ((meltobject_ptr_t)(/*_._VALDATA___V1784*/ meltfptr[1783]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1785*/ meltfptr[1784]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1784*/ meltfptr[1783]); melt_dbgtrace_written_object (/*_._VALDATA___V1784*/ meltfptr[1783], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1692__DEFUN @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1786*/ meltfptr[1785])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1692__DEFUN @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1786*/ meltfptr[1785])))); ((meltobject_ptr_t)(/*_._VALDATA___V1786*/ meltfptr[1785]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1787*/ meltfptr[1786]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1786*/ meltfptr[1785]); melt_dbgtrace_written_object (/*_._VALDATA___V1786*/ meltfptr[1785], "new static instance"); MELT_LOCATION("warmelt-macro.melt:3775:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1788*/ meltfptr[1787])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1694__MELT_DELAYED_MACRO_EXPANDER#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1788*/ meltfptr[1787])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:3775:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1788*/ meltfptr[1787])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1694__MELT_DELAYED_MACRO_EXPANDER#1", NULL != (/*_.CLASS_ANY_MODULE_CONTEXT__V30*/ meltfptr[29])); ((meltroutine_ptr_t)/*_._VALROUT___V1788*/ meltfptr[1787])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ANY_MODULE_CONTEXT__V30*/ meltfptr[29]); MELT_LOCATION("warmelt-macro.melt:3775:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1788*/ meltfptr[1787])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1694__MELT_DELAYED_MACRO_EXPANDER#2", NULL != (/*_.DEBUG_LESS__V35*/ meltfptr[34])); ((meltroutine_ptr_t)/*_._VALROUT___V1788*/ meltfptr[1787])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_LESS__V35*/ meltfptr[34]); MELT_LOCATION("warmelt-macro.melt:3775:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1788*/ meltfptr[1787])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1694__MELT_DELAYED_MACRO_EXPANDER#3", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1788*/ meltfptr[1787])->tabval[3] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:3775:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1788*/ meltfptr[1787])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1694__MELT_DELAYED_MACRO_EXPANDER#4", NULL != (/*_.DISCR_LIST__V34*/ meltfptr[33])); ((meltroutine_ptr_t)/*_._VALROUT___V1788*/ meltfptr[1787])->tabval[4] = (melt_ptr_t)(/*_.DISCR_LIST__V34*/ meltfptr[33]); MELT_LOCATION("warmelt-macro.melt:3775:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1788*/ meltfptr[1787])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1694__MELT_DELAYED_MACRO_EXPANDER#5", NULL != (/*_.DEBUG_MORE__V53*/ meltfptr[52])); ((meltroutine_ptr_t)/*_._VALROUT___V1788*/ meltfptr[1787])->tabval[5] = (melt_ptr_t)(/*_.DEBUG_MORE__V53*/ meltfptr[52]); MELT_LOCATION("warmelt-macro.melt:3775:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1788*/ meltfptr[1787])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1694__MELT_DELAYED_MACRO_EXPANDER#6", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V1788*/ meltfptr[1787])->tabval[6] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:3775:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1788*/ meltfptr[1787])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1761*/ meltfptr[1760]); ((meltroutine_ptr_t)/*_._VALROUT___V1788*/ meltfptr[1787])->tabval[7] = (melt_ptr_t)(/*_._VALCLO___V1761*/ meltfptr[1760]); MELT_LOCATION("warmelt-macro.melt:3775:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1788*/ meltfptr[1787]); /*putclosurout#54*/ melt_assertmsg("putclosrout#54 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1789*/ meltfptr[1788])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#54 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1788*/ meltfptr[1787])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1789*/ meltfptr[1788])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1788*/ meltfptr[1787]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1789*/ meltfptr[1788]); MELT_LOCATION("warmelt-macro.melt:3802:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1790*/ meltfptr[1789])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1696__MEXPAND_DEFMACRO#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1790*/ meltfptr[1789])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:3802:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1790*/ meltfptr[1789])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1696__MEXPAND_DEFMACRO#1", NULL != (/*_.DEBUG_MORE__V53*/ meltfptr[52])); ((meltroutine_ptr_t)/*_._VALROUT___V1790*/ meltfptr[1789])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_MORE__V53*/ meltfptr[52]); MELT_LOCATION("warmelt-macro.melt:3802:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1790*/ meltfptr[1789])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1696__MEXPAND_DEFMACRO#2", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V1790*/ meltfptr[1789])->tabval[2] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:3802:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1790*/ meltfptr[1789])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1696__MEXPAND_DEFMACRO#3", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1790*/ meltfptr[1789])->tabval[3] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:3802:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1790*/ meltfptr[1789])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1696__MEXPAND_DEFMACRO#4", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V1790*/ meltfptr[1789])->tabval[4] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:3802:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1790*/ meltfptr[1789])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1696__MEXPAND_DEFMACRO#5", NULL != (/*_.CLASS_NAMED__V23*/ meltfptr[22])); ((meltroutine_ptr_t)/*_._VALROUT___V1790*/ meltfptr[1789])->tabval[5] = (melt_ptr_t)(/*_.CLASS_NAMED__V23*/ meltfptr[22]); MELT_LOCATION("warmelt-macro.melt:3802:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1790*/ meltfptr[1789])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1696__MEXPAND_DEFMACRO#6", NULL != (/*_.CLASS_ANY_MODULE_CONTEXT__V30*/ meltfptr[29])); ((meltroutine_ptr_t)/*_._VALROUT___V1790*/ meltfptr[1789])->tabval[6] = (melt_ptr_t)(/*_.CLASS_ANY_MODULE_CONTEXT__V30*/ meltfptr[29]); MELT_LOCATION("warmelt-macro.melt:3802:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1790*/ meltfptr[1789])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1696__MEXPAND_DEFMACRO#7", NULL != (/*_.FRESH_ENV__V38*/ meltfptr[37])); ((meltroutine_ptr_t)/*_._VALROUT___V1790*/ meltfptr[1789])->tabval[7] = (melt_ptr_t)(/*_.FRESH_ENV__V38*/ meltfptr[37]); MELT_LOCATION("warmelt-macro.melt:3802:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1790*/ meltfptr[1789])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V761*/ meltfptr[760]); ((meltroutine_ptr_t)/*_._VALROUT___V1790*/ meltfptr[1789])->tabval[8] = (melt_ptr_t)(/*_._VALDATA___V761*/ meltfptr[760]); MELT_LOCATION("warmelt-macro.melt:3802:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1790*/ meltfptr[1789])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1696__MEXPAND_DEFMACRO#9", NULL != (/*_.CLASS_FUNCTION_BINDING__V67*/ meltfptr[66])); ((meltroutine_ptr_t)/*_._VALROUT___V1790*/ meltfptr[1789])->tabval[9] = (melt_ptr_t)(/*_.CLASS_FUNCTION_BINDING__V67*/ meltfptr[66]); MELT_LOCATION("warmelt-macro.melt:3802:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1790*/ meltfptr[1789])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1696__MEXPAND_DEFMACRO#10", NULL != (/*_.DEBUG_LESS__V35*/ meltfptr[34])); ((meltroutine_ptr_t)/*_._VALROUT___V1790*/ meltfptr[1789])->tabval[10] = (melt_ptr_t)(/*_.DEBUG_LESS__V35*/ meltfptr[34]); MELT_LOCATION("warmelt-macro.melt:3802:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1790*/ meltfptr[1789])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1696__MEXPAND_DEFMACRO#11", NULL != (/*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V1790*/ meltfptr[1789])->tabval[11] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-macro.melt:3802:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1790*/ meltfptr[1789])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V306*/ meltfptr[305]); ((meltroutine_ptr_t)/*_._VALROUT___V1790*/ meltfptr[1789])->tabval[12] = (melt_ptr_t)(/*_._VALCLO___V306*/ meltfptr[305]); MELT_LOCATION("warmelt-macro.melt:3802:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1790*/ meltfptr[1789])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1749*/ meltfptr[1748]); ((meltroutine_ptr_t)/*_._VALROUT___V1790*/ meltfptr[1789])->tabval[13] = (melt_ptr_t)(/*_._VALCLO___V1749*/ meltfptr[1748]); MELT_LOCATION("warmelt-macro.melt:3802:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1790*/ meltfptr[1789])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1696__MEXPAND_DEFMACRO#14", NULL != (/*_.PUT_ENV__V32*/ meltfptr[31])); ((meltroutine_ptr_t)/*_._VALROUT___V1790*/ meltfptr[1789])->tabval[14] = (melt_ptr_t)(/*_.PUT_ENV__V32*/ meltfptr[31]); MELT_LOCATION("warmelt-macro.melt:3802:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1790*/ meltfptr[1789])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1696__MEXPAND_DEFMACRO#15", NULL != (/*_.DISCR_MULTIPLE__V13*/ meltfptr[12])); ((meltroutine_ptr_t)/*_._VALROUT___V1790*/ meltfptr[1789])->tabval[15] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V13*/ meltfptr[12]); MELT_LOCATION("warmelt-macro.melt:3802:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1790*/ meltfptr[1789])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1611*/ meltfptr[1610]); ((meltroutine_ptr_t)/*_._VALROUT___V1790*/ meltfptr[1789])->tabval[16] = (melt_ptr_t)(/*_._VALCLO___V1611*/ meltfptr[1610]); MELT_LOCATION("warmelt-macro.melt:3802:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1790*/ meltfptr[1789])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1696__MEXPAND_DEFMACRO#17", NULL != (/*_._VALDATA___V1781*/ meltfptr[1780])); ((meltroutine_ptr_t)/*_._VALROUT___V1790*/ meltfptr[1789])->tabval[17] = (melt_ptr_t)(/*_._VALDATA___V1781*/ meltfptr[1780]); MELT_LOCATION("warmelt-macro.melt:3802:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1790*/ meltfptr[1789])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1696__MEXPAND_DEFMACRO#18", NULL != (/*_._VALDATA___V1763*/ meltfptr[1762])); ((meltroutine_ptr_t)/*_._VALROUT___V1790*/ meltfptr[1789])->tabval[18] = (melt_ptr_t)(/*_._VALDATA___V1763*/ meltfptr[1762]); MELT_LOCATION("warmelt-macro.melt:3802:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1790*/ meltfptr[1789])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1593*/ meltfptr[1592]); ((meltroutine_ptr_t)/*_._VALROUT___V1790*/ meltfptr[1789])->tabval[19] = (melt_ptr_t)(/*_._VALCLO___V1593*/ meltfptr[1592]); MELT_LOCATION("warmelt-macro.melt:3802:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1790*/ meltfptr[1789])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V739*/ meltfptr[738]); ((meltroutine_ptr_t)/*_._VALROUT___V1790*/ meltfptr[1789])->tabval[20] = (melt_ptr_t)(/*_._VALDATA___V739*/ meltfptr[738]); MELT_LOCATION("warmelt-macro.melt:3802:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1790*/ meltfptr[1789])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V775*/ meltfptr[774]); ((meltroutine_ptr_t)/*_._VALROUT___V1790*/ meltfptr[1789])->tabval[21] = (melt_ptr_t)(/*_._VALDATA___V775*/ meltfptr[774]); MELT_LOCATION("warmelt-macro.melt:3802:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1790*/ meltfptr[1789])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1696__MEXPAND_DEFMACRO#22", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1790*/ meltfptr[1789])->tabval[22] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:3802:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1790*/ meltfptr[1789])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1696__MEXPAND_DEFMACRO#23", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1790*/ meltfptr[1789])->tabval[23] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:3802:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1790*/ meltfptr[1789])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1696__MEXPAND_DEFMACRO#24", NULL != (/*_.DEBUG_LESS__V35*/ meltfptr[34])); ((meltroutine_ptr_t)/*_._VALROUT___V1790*/ meltfptr[1789])->tabval[24] = (melt_ptr_t)(/*_.DEBUG_LESS__V35*/ meltfptr[34]); MELT_LOCATION("warmelt-macro.melt:3802:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1790*/ meltfptr[1789])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1696__MEXPAND_DEFMACRO#25", NULL != (/*_.CLASS_MACRO_BINDING__V26*/ meltfptr[25])); ((meltroutine_ptr_t)/*_._VALROUT___V1790*/ meltfptr[1789])->tabval[25] = (melt_ptr_t)(/*_.CLASS_MACRO_BINDING__V26*/ meltfptr[25]); MELT_LOCATION("warmelt-macro.melt:3802:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1790*/ meltfptr[1789])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1696__MEXPAND_DEFMACRO#26", NULL != (/*_.CLASS_LOCATED__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V1790*/ meltfptr[1789])->tabval[26] = (melt_ptr_t)(/*_.CLASS_LOCATED__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-macro.melt:3802:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1790*/ meltfptr[1789])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1789*/ meltfptr[1788]); ((meltroutine_ptr_t)/*_._VALROUT___V1790*/ meltfptr[1789])->tabval[27] = (melt_ptr_t)(/*_._VALCLO___V1789*/ meltfptr[1788]); MELT_LOCATION("warmelt-macro.melt:3802:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1790*/ meltfptr[1789])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V761*/ meltfptr[760]); ((meltroutine_ptr_t)/*_._VALROUT___V1790*/ meltfptr[1789])->tabval[28] = (melt_ptr_t)(/*_._VALDATA___V761*/ meltfptr[760]); MELT_LOCATION("warmelt-macro.melt:3802:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1790*/ meltfptr[1789])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V306*/ meltfptr[305]); ((meltroutine_ptr_t)/*_._VALROUT___V1790*/ meltfptr[1789])->tabval[29] = (melt_ptr_t)(/*_._VALCLO___V306*/ meltfptr[305]); MELT_LOCATION("warmelt-macro.melt:3802:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1790*/ meltfptr[1789])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V310*/ meltfptr[309]); ((meltroutine_ptr_t)/*_._VALROUT___V1790*/ meltfptr[1789])->tabval[30] = (melt_ptr_t)(/*_._VALCLO___V310*/ meltfptr[309]); MELT_LOCATION("warmelt-macro.melt:3921:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1791*/ meltfptr[1790])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1698__LAMBDA_#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1791*/ meltfptr[1790])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:3921:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1791*/ meltfptr[1790])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1698__LAMBDA_#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1791*/ meltfptr[1790])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:3921:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1791*/ meltfptr[1790])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1698__LAMBDA_#2", NULL != (/*_.DEBUG_LESS__V35*/ meltfptr[34])); ((meltroutine_ptr_t)/*_._VALROUT___V1791*/ meltfptr[1790])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_LESS__V35*/ meltfptr[34]); MELT_LOCATION("warmelt-macro.melt:3921:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1791*/ meltfptr[1790])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1698__LAMBDA_#3", NULL != (/*_.CLASS_MACRO_BINDING__V26*/ meltfptr[25])); ((meltroutine_ptr_t)/*_._VALROUT___V1791*/ meltfptr[1790])->tabval[3] = (melt_ptr_t)(/*_.CLASS_MACRO_BINDING__V26*/ meltfptr[25]); MELT_LOCATION("warmelt-macro.melt:3921:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1791*/ meltfptr[1790])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1698__LAMBDA_#4", NULL != (/*_.CLASS_LOCATED__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V1791*/ meltfptr[1790])->tabval[4] = (melt_ptr_t)(/*_.CLASS_LOCATED__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-macro.melt:3921:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1791*/ meltfptr[1790])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1789*/ meltfptr[1788]); ((meltroutine_ptr_t)/*_._VALROUT___V1791*/ meltfptr[1790])->tabval[5] = (melt_ptr_t)(/*_._VALCLO___V1789*/ meltfptr[1788]); MELT_LOCATION("warmelt-macro.melt:3921:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1791*/ meltfptr[1790])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V761*/ meltfptr[760]); ((meltroutine_ptr_t)/*_._VALROUT___V1791*/ meltfptr[1790])->tabval[6] = (melt_ptr_t)(/*_._VALDATA___V761*/ meltfptr[760]); MELT_LOCATION("warmelt-macro.melt:3921:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1791*/ meltfptr[1790])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V306*/ meltfptr[305]); ((meltroutine_ptr_t)/*_._VALROUT___V1791*/ meltfptr[1790])->tabval[7] = (melt_ptr_t)(/*_._VALCLO___V306*/ meltfptr[305]); MELT_LOCATION("warmelt-macro.melt:3921:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1791*/ meltfptr[1790])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V310*/ meltfptr[309]); ((meltroutine_ptr_t)/*_._VALROUT___V1791*/ meltfptr[1790])->tabval[8] = (melt_ptr_t)(/*_._VALCLO___V310*/ meltfptr[309]); MELT_LOCATION("warmelt-macro.melt:3921:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1791*/ meltfptr[1790]); MELT_LOCATION("warmelt-macro.melt:3802:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1790*/ meltfptr[1789])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1696__MEXPAND_DEFMACRO#31", NULL != (/*_._VALROUT___V1791*/ meltfptr[1790])); ((meltroutine_ptr_t)/*_._VALROUT___V1790*/ meltfptr[1789])->tabval[31] = (melt_ptr_t)(/*_._VALROUT___V1791*/ meltfptr[1790]); MELT_LOCATION("warmelt-macro.melt:3802:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1790*/ meltfptr[1789])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1696__MEXPAND_DEFMACRO#32", NULL != (/*_.CLASS_MACRO_BINDING__V26*/ meltfptr[25])); ((meltroutine_ptr_t)/*_._VALROUT___V1790*/ meltfptr[1789])->tabval[32] = (melt_ptr_t)(/*_.CLASS_MACRO_BINDING__V26*/ meltfptr[25]); MELT_LOCATION("warmelt-macro.melt:3802:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1790*/ meltfptr[1789]); /*putclosurout#55*/ melt_assertmsg("putclosrout#55 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1792*/ meltfptr[1791])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#55 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1790*/ meltfptr[1789])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1792*/ meltfptr[1791])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1790*/ meltfptr[1789]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1792*/ meltfptr[1791]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1699__DEFMACRO @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1793*/ meltfptr[1792])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1699__DEFMACRO @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1793*/ meltfptr[1792])))); ((meltobject_ptr_t)(/*_._VALDATA___V1793*/ meltfptr[1792]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1794*/ meltfptr[1793]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1793*/ meltfptr[1792]); melt_dbgtrace_written_object (/*_._VALDATA___V1793*/ meltfptr[1792], "new static instance"); MELT_LOCATION("warmelt-macro.melt:3971:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1702__ @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1796*/ meltfptr[1795])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1702__ @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1796*/ meltfptr[1795])))); ((meltobject_ptr_t)(/*_._VALDATA___V1796*/ meltfptr[1795]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1797*/ meltfptr[1796]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1704__MBIND @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1799*/ meltfptr[1798])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1704__MBIND @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1799*/ meltfptr[1798])))); ((meltobject_ptr_t)(/*_._VALDATA___V1799*/ meltfptr[1798]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1800*/ meltfptr[1799]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1799*/ meltfptr[1798]); melt_dbgtrace_written_object (/*_._VALDATA___V1799*/ meltfptr[1798], "new static instance"); MELT_LOCATION("warmelt-macro.melt:3971:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1706 @#0", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1798*/ meltfptr[1797])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1706 @#0", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1798*/ meltfptr[1797])))); ((meltobject_ptr_t)(/*_._VALDATA___V1798*/ meltfptr[1797]))->obj_vartab[0] = (melt_ptr_t)( /*_._VALDATA___V1799*/ meltfptr[1798]); MELT_LOCATION("warmelt-macro.melt:3971:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1706 @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1798*/ meltfptr[1797])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1706 @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1798*/ meltfptr[1797])))); ((meltobject_ptr_t)(/*_._VALDATA___V1798*/ meltfptr[1797]))->obj_vartab[1] = (melt_ptr_t)( ((melt_ptr_t)(MELT_PREDEF(CTYPE_VALUE)))); MELT_LOCATION("warmelt-macro.melt:3971:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1798*/ meltfptr[1797]); MELT_LOCATION("warmelt-macro.melt:3971:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1798*/ meltfptr[1797], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1707__MEXPCLOS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1802*/ meltfptr[1801])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1707__MEXPCLOS @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1802*/ meltfptr[1801])))); ((meltobject_ptr_t)(/*_._VALDATA___V1802*/ meltfptr[1801]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1803*/ meltfptr[1802]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1802*/ meltfptr[1801]); melt_dbgtrace_written_object (/*_._VALDATA___V1802*/ meltfptr[1801], "new static instance"); MELT_LOCATION("warmelt-macro.melt:3971:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1709 @#0", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1801*/ meltfptr[1800])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1709 @#0", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1801*/ meltfptr[1800])))); ((meltobject_ptr_t)(/*_._VALDATA___V1801*/ meltfptr[1800]))->obj_vartab[0] = (melt_ptr_t)( /*_._VALDATA___V1802*/ meltfptr[1801]); MELT_LOCATION("warmelt-macro.melt:3971:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1709 @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1801*/ meltfptr[1800])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1709 @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1801*/ meltfptr[1800])))); ((meltobject_ptr_t)(/*_._VALDATA___V1801*/ meltfptr[1800]))->obj_vartab[1] = (melt_ptr_t)( ((melt_ptr_t)(MELT_PREDEF(CTYPE_VALUE)))); MELT_LOCATION("warmelt-macro.melt:3971:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1801*/ meltfptr[1800]); MELT_LOCATION("warmelt-macro.melt:3971:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1801*/ meltfptr[1800], "new static instance"); /*putupl#1073*/ melt_assertmsg("putupl #1073 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1804*/ meltfptr[1803]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #1073 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1804*/ meltfptr[1803])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1804*/ meltfptr[1803]))->tabval[0] = (melt_ptr_t)(/*_._VALDATA___V1798*/ meltfptr[1797]); /*putupl#1074*/ melt_assertmsg("putupl #1074 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V1804*/ meltfptr[1803]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #1074 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V1804*/ meltfptr[1803])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V1804*/ meltfptr[1803]))->tabval[1] = (melt_ptr_t)(/*_._VALDATA___V1801*/ meltfptr[1800]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1804*/ meltfptr[1803]); MELT_LOCATION("warmelt-macro.melt:3971:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1702__ @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1796*/ meltfptr[1795])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1702__ @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1796*/ meltfptr[1795])))); ((meltobject_ptr_t)(/*_._VALDATA___V1796*/ meltfptr[1795]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALTUP___V1804*/ meltfptr[1803]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V1805*/ meltfptr[1804]); MELT_LOCATION("warmelt-macro.melt:3971:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1702__ @#3", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1796*/ meltfptr[1795])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1702__ @#3", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1796*/ meltfptr[1795])))); ((meltobject_ptr_t)(/*_._VALDATA___V1796*/ meltfptr[1795]))->obj_vartab[3] = (melt_ptr_t)( /*_._VALTUP___V1805*/ meltfptr[1804]); MELT_LOCATION("warmelt-macro.melt:3971:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_1702__ @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1796*/ meltfptr[1795])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_1702__ @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1796*/ meltfptr[1795])))); ((meltobject_ptr_t)(/*_._VALDATA___V1796*/ meltfptr[1795]))->obj_vartab[4] = (melt_ptr_t)( ((melt_ptr_t)(MELT_PREDEF(CTYPE_VOID)))); MELT_LOCATION("warmelt-macro.melt:3971:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1796*/ meltfptr[1795]); MELT_LOCATION("warmelt-macro.melt:3971:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V1796*/ meltfptr[1795], "new static instance"); /*put data in hook HOOK_MACRO_INSTALLER */ melt_assertmsg("puthookdata checkhook HOOK_MACRO_INSTALLER", melt_magic_discr((melt_ptr_t)(/*_._VALHOOK___V1795*/ meltfptr[1794])) == MELTOBMAG_HOOK); ((melthook_ptr_t)/*_._VALHOOK___V1795*/ meltfptr[1794])->hookdata = (melt_ptr_t)(/*_._VALDATA___V1796*/ meltfptr[1795]); /*put inside hook HOOK_MACRO_INSTALLER */ melt_assertmsg("puthookconst checkhook HOOK_MACRO_INSTALLER", melt_magic_discr((melt_ptr_t)(/*_._VALHOOK___V1795*/ meltfptr[1794])) == MELTOBMAG_HOOK); melt_assertmsg("puthookconst checkhook HOOK_MACRO_INSTALLER", (0) >= 0 && (0) < melt_hook_size ((melt_ptr_t)/*_._VALHOOK___V1795*/ meltfptr[1794])); ((melthook_ptr_t)/*_._VALHOOK___V1795*/ meltfptr[1794])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); /*put inside hook HOOK_MACRO_INSTALLER */ melt_assertmsg("puthookconst checkhook HOOK_MACRO_INSTALLER", melt_magic_discr((melt_ptr_t)(/*_._VALHOOK___V1795*/ meltfptr[1794])) == MELTOBMAG_HOOK); melt_assertmsg("puthookconst checkhook HOOK_MACRO_INSTALLER", (1) >= 0 && (1) < melt_hook_size ((melt_ptr_t)/*_._VALHOOK___V1795*/ meltfptr[1794])); ((melthook_ptr_t)/*_._VALHOOK___V1795*/ meltfptr[1794])->tabval[1] = (melt_ptr_t)(/*_._VALDATA___V761*/ meltfptr[760]); /*put inside hook HOOK_MACRO_INSTALLER */ melt_assertmsg("puthookconst checkhook HOOK_MACRO_INSTALLER", melt_magic_discr((melt_ptr_t)(/*_._VALHOOK___V1795*/ meltfptr[1794])) == MELTOBMAG_HOOK); melt_assertmsg("puthookconst checkhook HOOK_MACRO_INSTALLER", (2) >= 0 && (2) < melt_hook_size ((melt_ptr_t)/*_._VALHOOK___V1795*/ meltfptr[1794])); ((melthook_ptr_t)/*_._VALHOOK___V1795*/ meltfptr[1794])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); /*put inside hook HOOK_MACRO_INSTALLER */ melt_assertmsg("puthookconst checkhook HOOK_MACRO_INSTALLER", melt_magic_discr((melt_ptr_t)(/*_._VALHOOK___V1795*/ meltfptr[1794])) == MELTOBMAG_HOOK); melt_assertmsg("puthookconst checkhook HOOK_MACRO_INSTALLER", (3) >= 0 && (3) < melt_hook_size ((melt_ptr_t)/*_._VALHOOK___V1795*/ meltfptr[1794])); ((melthook_ptr_t)/*_._VALHOOK___V1795*/ meltfptr[1794])->tabval[3] = (melt_ptr_t)(/*_.CLASS_MACRO_BINDING__V26*/ meltfptr[25]); /*touch:HOOK_MACRO_INSTALLER*/ meltgc_touch(/*_._VALHOOK___V1795*/ meltfptr[1794]); MELT_LOCATION("warmelt-macro.melt:3986:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1806*/ meltfptr[1805])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1712__MEXPAND_AT_MACRO_EXPANSION#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1806*/ meltfptr[1805])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:3986:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1806*/ meltfptr[1805])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1712__MEXPAND_AT_MACRO_EXPANSION#1", NULL != (/*_.DEBUG_LESS__V35*/ meltfptr[34])); ((meltroutine_ptr_t)/*_._VALROUT___V1806*/ meltfptr[1805])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_LESS__V35*/ meltfptr[34]); MELT_LOCATION("warmelt-macro.melt:3986:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1806*/ meltfptr[1805])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1712__MEXPAND_AT_MACRO_EXPANSION#2", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V1806*/ meltfptr[1805])->tabval[2] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:3986:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1806*/ meltfptr[1805])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1712__MEXPAND_AT_MACRO_EXPANSION#3", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1806*/ meltfptr[1805])->tabval[3] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:3986:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1806*/ meltfptr[1805])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1712__MEXPAND_AT_MACRO_EXPANSION#4", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V1806*/ meltfptr[1805])->tabval[4] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:3986:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1806*/ meltfptr[1805])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1712__MEXPAND_AT_MACRO_EXPANSION#5", NULL != (/*_.CLASS_ANY_MODULE_CONTEXT__V30*/ meltfptr[29])); ((meltroutine_ptr_t)/*_._VALROUT___V1806*/ meltfptr[1805])->tabval[5] = (melt_ptr_t)(/*_.CLASS_ANY_MODULE_CONTEXT__V30*/ meltfptr[29]); MELT_LOCATION("warmelt-macro.melt:3986:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1806*/ meltfptr[1805])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1593*/ meltfptr[1592]); ((meltroutine_ptr_t)/*_._VALROUT___V1806*/ meltfptr[1805])->tabval[6] = (melt_ptr_t)(/*_._VALCLO___V1593*/ meltfptr[1592]); MELT_LOCATION("warmelt-macro.melt:3986:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1806*/ meltfptr[1805])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V306*/ meltfptr[305]); ((meltroutine_ptr_t)/*_._VALROUT___V1806*/ meltfptr[1805])->tabval[7] = (melt_ptr_t)(/*_._VALCLO___V306*/ meltfptr[305]); MELT_LOCATION("warmelt-macro.melt:3986:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1806*/ meltfptr[1805]); /*putclosurout#56*/ melt_assertmsg("putclosrout#56 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1807*/ meltfptr[1806])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#56 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1806*/ meltfptr[1805])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1807*/ meltfptr[1806])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1806*/ meltfptr[1805]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1807*/ meltfptr[1806]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1714__AT_MACRO_EXPANSION @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1808*/ meltfptr[1807])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1714__AT_MACRO_EXPANSION @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1808*/ meltfptr[1807])))); ((meltobject_ptr_t)(/*_._VALDATA___V1808*/ meltfptr[1807]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1809*/ meltfptr[1808]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1808*/ meltfptr[1807]); melt_dbgtrace_written_object (/*_._VALDATA___V1808*/ meltfptr[1807], "new static instance"); MELT_LOCATION("warmelt-macro.melt:4024:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1810*/ meltfptr[1809])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1716__MEXPAND_DEFVAR#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1810*/ meltfptr[1809])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:4024:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1810*/ meltfptr[1809])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1716__MEXPAND_DEFVAR#1", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V1810*/ meltfptr[1809])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:4024:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1810*/ meltfptr[1809])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1716__MEXPAND_DEFVAR#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1810*/ meltfptr[1809])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:4024:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1810*/ meltfptr[1809])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1716__MEXPAND_DEFVAR#3", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V1810*/ meltfptr[1809])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:4024:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1810*/ meltfptr[1809])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1716__MEXPAND_DEFVAR#4", NULL != (/*_.CLASS_NAMED__V23*/ meltfptr[22])); ((meltroutine_ptr_t)/*_._VALROUT___V1810*/ meltfptr[1809])->tabval[4] = (melt_ptr_t)(/*_.CLASS_NAMED__V23*/ meltfptr[22]); MELT_LOCATION("warmelt-macro.melt:4024:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1810*/ meltfptr[1809])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1716__MEXPAND_DEFVAR#5", NULL != (/*_.FRESH_ENV__V38*/ meltfptr[37])); ((meltroutine_ptr_t)/*_._VALROUT___V1810*/ meltfptr[1809])->tabval[5] = (melt_ptr_t)(/*_.FRESH_ENV__V38*/ meltfptr[37]); #undef meltfram__ } /*end of meltmod__WARMELTmiMACRO__initialmeltchunk_36*/ void meltmod__WARMELTmiMACRO__initialmeltchunk_37 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; MELT_LOCATION("warmelt-macro.melt:4024:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1810*/ meltfptr[1809])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1716__MEXPAND_DEFVAR#6", NULL != (/*_.CLASS_VARIABLE_BINDING__V68*/ meltfptr[67])); ((meltroutine_ptr_t)/*_._VALROUT___V1810*/ meltfptr[1809])->tabval[6] = (melt_ptr_t)(/*_.CLASS_VARIABLE_BINDING__V68*/ meltfptr[67]); MELT_LOCATION("warmelt-macro.melt:4024:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1810*/ meltfptr[1809])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1716__MEXPAND_DEFVAR#7", NULL != (/*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V1810*/ meltfptr[1809])->tabval[7] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-macro.melt:4024:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1810*/ meltfptr[1809])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V306*/ meltfptr[305]); ((meltroutine_ptr_t)/*_._VALROUT___V1810*/ meltfptr[1809])->tabval[8] = (melt_ptr_t)(/*_._VALCLO___V306*/ meltfptr[305]); MELT_LOCATION("warmelt-macro.melt:4024:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1810*/ meltfptr[1809])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1749*/ meltfptr[1748]); ((meltroutine_ptr_t)/*_._VALROUT___V1810*/ meltfptr[1809])->tabval[9] = (melt_ptr_t)(/*_._VALCLO___V1749*/ meltfptr[1748]); MELT_LOCATION("warmelt-macro.melt:4024:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1810*/ meltfptr[1809])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1573*/ meltfptr[1572]); ((meltroutine_ptr_t)/*_._VALROUT___V1810*/ meltfptr[1809])->tabval[10] = (melt_ptr_t)(/*_._VALCLO___V1573*/ meltfptr[1572]); MELT_LOCATION("warmelt-macro.melt:4024:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1810*/ meltfptr[1809])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1716__MEXPAND_DEFVAR#11", NULL != (/*_._VALDATA___V1763*/ meltfptr[1762])); ((meltroutine_ptr_t)/*_._VALROUT___V1810*/ meltfptr[1809])->tabval[11] = (melt_ptr_t)(/*_._VALDATA___V1763*/ meltfptr[1762]); MELT_LOCATION("warmelt-macro.melt:4024:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1810*/ meltfptr[1809])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V703*/ meltfptr[702]); ((meltroutine_ptr_t)/*_._VALROUT___V1810*/ meltfptr[1809])->tabval[12] = (melt_ptr_t)(/*_._VALDATA___V703*/ meltfptr[702]); MELT_LOCATION("warmelt-macro.melt:4024:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1810*/ meltfptr[1809]); /*putclosurout#57*/ melt_assertmsg("putclosrout#57 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1811*/ meltfptr[1810])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#57 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1810*/ meltfptr[1809])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1811*/ meltfptr[1810])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1810*/ meltfptr[1809]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1811*/ meltfptr[1810]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1718__CLASS_VARIABLE_BINDING @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1812*/ meltfptr[1811])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1718__CLASS_VARIABLE_BINDING @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1812*/ meltfptr[1811])))); ((meltobject_ptr_t)(/*_._VALDATA___V1812*/ meltfptr[1811]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1813*/ meltfptr[1812]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1812*/ meltfptr[1811]); melt_dbgtrace_written_object (/*_._VALDATA___V1812*/ meltfptr[1811], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1720__DEFVAR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1814*/ meltfptr[1813])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1720__DEFVAR @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1814*/ meltfptr[1813])))); ((meltobject_ptr_t)(/*_._VALDATA___V1814*/ meltfptr[1813]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1815*/ meltfptr[1814]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1814*/ meltfptr[1813]); melt_dbgtrace_written_object (/*_._VALDATA___V1814*/ meltfptr[1813], "new static instance"); MELT_LOCATION("warmelt-macro.melt:4078:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1816*/ meltfptr[1815])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1722__MEXPAND_DEFHOOK#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1816*/ meltfptr[1815])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:4078:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1816*/ meltfptr[1815])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1722__MEXPAND_DEFHOOK#1", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V1816*/ meltfptr[1815])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:4078:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1816*/ meltfptr[1815])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1722__MEXPAND_DEFHOOK#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1816*/ meltfptr[1815])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:4078:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1816*/ meltfptr[1815])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1722__MEXPAND_DEFHOOK#3", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V1816*/ meltfptr[1815])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:4078:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1816*/ meltfptr[1815])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1722__MEXPAND_DEFHOOK#4", NULL != (/*_.CLASS_NAMED__V23*/ meltfptr[22])); ((meltroutine_ptr_t)/*_._VALROUT___V1816*/ meltfptr[1815])->tabval[4] = (melt_ptr_t)(/*_.CLASS_NAMED__V23*/ meltfptr[22]); MELT_LOCATION("warmelt-macro.melt:4078:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1816*/ meltfptr[1815])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1722__MEXPAND_DEFHOOK#5", NULL != (/*_.SYMBOL_CNAME__V69*/ meltfptr[68])); ((meltroutine_ptr_t)/*_._VALROUT___V1816*/ meltfptr[1815])->tabval[5] = (melt_ptr_t)(/*_.SYMBOL_CNAME__V69*/ meltfptr[68]); MELT_LOCATION("warmelt-macro.melt:4078:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1816*/ meltfptr[1815])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1722__MEXPAND_DEFHOOK#6", NULL != (/*_.CLASS_HOOK_BINDING__V45*/ meltfptr[44])); ((meltroutine_ptr_t)/*_._VALROUT___V1816*/ meltfptr[1815])->tabval[6] = (melt_ptr_t)(/*_.CLASS_HOOK_BINDING__V45*/ meltfptr[44]); MELT_LOCATION("warmelt-macro.melt:4078:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1816*/ meltfptr[1815])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1722__MEXPAND_DEFHOOK#7", NULL != (/*_.FRESH_ENV__V38*/ meltfptr[37])); ((meltroutine_ptr_t)/*_._VALROUT___V1816*/ meltfptr[1815])->tabval[7] = (melt_ptr_t)(/*_.FRESH_ENV__V38*/ meltfptr[37]); MELT_LOCATION("warmelt-macro.melt:4078:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1816*/ meltfptr[1815])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1722__MEXPAND_DEFHOOK#8", NULL != (/*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V1816*/ meltfptr[1815])->tabval[8] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-macro.melt:4078:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1816*/ meltfptr[1815])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V306*/ meltfptr[305]); ((meltroutine_ptr_t)/*_._VALROUT___V1816*/ meltfptr[1815])->tabval[9] = (melt_ptr_t)(/*_._VALCLO___V306*/ meltfptr[305]); MELT_LOCATION("warmelt-macro.melt:4078:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1816*/ meltfptr[1815])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1749*/ meltfptr[1748]); ((meltroutine_ptr_t)/*_._VALROUT___V1816*/ meltfptr[1815])->tabval[10] = (melt_ptr_t)(/*_._VALCLO___V1749*/ meltfptr[1748]); MELT_LOCATION("warmelt-macro.melt:4078:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1816*/ meltfptr[1815])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1611*/ meltfptr[1610]); ((meltroutine_ptr_t)/*_._VALROUT___V1816*/ meltfptr[1815])->tabval[11] = (melt_ptr_t)(/*_._VALCLO___V1611*/ meltfptr[1610]); MELT_LOCATION("warmelt-macro.melt:4078:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1816*/ meltfptr[1815])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1722__MEXPAND_DEFHOOK#12", NULL != (/*_._VALDATA___V1781*/ meltfptr[1780])); ((meltroutine_ptr_t)/*_._VALROUT___V1816*/ meltfptr[1815])->tabval[12] = (melt_ptr_t)(/*_._VALDATA___V1781*/ meltfptr[1780]); MELT_LOCATION("warmelt-macro.melt:4078:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1816*/ meltfptr[1815])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1722__MEXPAND_DEFHOOK#13", NULL != (/*_.DISCR_MULTIPLE__V13*/ meltfptr[12])); ((meltroutine_ptr_t)/*_._VALROUT___V1816*/ meltfptr[1815])->tabval[13] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V13*/ meltfptr[12]); MELT_LOCATION("warmelt-macro.melt:4078:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1816*/ meltfptr[1815])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1722__MEXPAND_DEFHOOK#14", NULL != (/*_.DISCR_VARIADIC_FORMAL_SEQUENCE__V62*/ meltfptr[61])); ((meltroutine_ptr_t)/*_._VALROUT___V1816*/ meltfptr[1815])->tabval[14] = (melt_ptr_t)(/*_.DISCR_VARIADIC_FORMAL_SEQUENCE__V62*/ meltfptr[61]); MELT_LOCATION("warmelt-macro.melt:4078:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1816*/ meltfptr[1815])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1722__MEXPAND_DEFHOOK#15", NULL != (/*_.CLASS_KEYWORD__V22*/ meltfptr[21])); ((meltroutine_ptr_t)/*_._VALROUT___V1816*/ meltfptr[1815])->tabval[15] = (melt_ptr_t)(/*_.CLASS_KEYWORD__V22*/ meltfptr[21]); MELT_LOCATION("warmelt-macro.melt:4078:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1816*/ meltfptr[1815])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1722__MEXPAND_DEFHOOK#16", NULL != (/*_.CLASS_CTYPE__V63*/ meltfptr[62])); ((meltroutine_ptr_t)/*_._VALROUT___V1816*/ meltfptr[1815])->tabval[16] = (melt_ptr_t)(/*_.CLASS_CTYPE__V63*/ meltfptr[62]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1726__PREDEF @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1817*/ meltfptr[1816])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1726__PREDEF @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1817*/ meltfptr[1816])))); ((meltobject_ptr_t)(/*_._VALDATA___V1817*/ meltfptr[1816]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1818*/ meltfptr[1817]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1817*/ meltfptr[1816]); melt_dbgtrace_written_object (/*_._VALDATA___V1817*/ meltfptr[1816], "new static instance"); MELT_LOCATION("warmelt-macro.melt:4078:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1816*/ meltfptr[1815])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1722__MEXPAND_DEFHOOK#17", NULL != (/*_._VALDATA___V1817*/ meltfptr[1816])); ((meltroutine_ptr_t)/*_._VALROUT___V1816*/ meltfptr[1815])->tabval[17] = (melt_ptr_t)(/*_._VALDATA___V1817*/ meltfptr[1816]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1728__VAR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1819*/ meltfptr[1818])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1728__VAR @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1819*/ meltfptr[1818])))); ((meltobject_ptr_t)(/*_._VALDATA___V1819*/ meltfptr[1818]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1820*/ meltfptr[1819]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1819*/ meltfptr[1818]); melt_dbgtrace_written_object (/*_._VALDATA___V1819*/ meltfptr[1818], "new static instance"); MELT_LOCATION("warmelt-macro.melt:4078:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1816*/ meltfptr[1815])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1722__MEXPAND_DEFHOOK#18", NULL != (/*_._VALDATA___V1819*/ meltfptr[1818])); ((meltroutine_ptr_t)/*_._VALROUT___V1816*/ meltfptr[1815])->tabval[18] = (melt_ptr_t)(/*_._VALDATA___V1819*/ meltfptr[1818]); MELT_LOCATION("warmelt-macro.melt:4078:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1816*/ meltfptr[1815])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1722__MEXPAND_DEFHOOK#19", NULL != (/*_._VALDATA___V1763*/ meltfptr[1762])); ((meltroutine_ptr_t)/*_._VALROUT___V1816*/ meltfptr[1815])->tabval[19] = (melt_ptr_t)(/*_._VALDATA___V1763*/ meltfptr[1762]); MELT_LOCATION("warmelt-macro.melt:4078:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1816*/ meltfptr[1815])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1573*/ meltfptr[1572]); ((meltroutine_ptr_t)/*_._VALROUT___V1816*/ meltfptr[1815])->tabval[20] = (melt_ptr_t)(/*_._VALCLO___V1573*/ meltfptr[1572]); MELT_LOCATION("warmelt-macro.melt:4078:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1816*/ meltfptr[1815])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1722__MEXPAND_DEFHOOK#21", NULL != (/*_.CLASS_ANY_BINDING__V28*/ meltfptr[27])); ((meltroutine_ptr_t)/*_._VALROUT___V1816*/ meltfptr[1815])->tabval[21] = (melt_ptr_t)(/*_.CLASS_ANY_BINDING__V28*/ meltfptr[27]); MELT_LOCATION("warmelt-macro.melt:4078:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1816*/ meltfptr[1815])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1722__MEXPAND_DEFHOOK#22", NULL != (/*_.PUT_ENV__V32*/ meltfptr[31])); ((meltroutine_ptr_t)/*_._VALROUT___V1816*/ meltfptr[1815])->tabval[22] = (melt_ptr_t)(/*_.PUT_ENV__V32*/ meltfptr[31]); MELT_LOCATION("warmelt-macro.melt:4078:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1816*/ meltfptr[1815])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1593*/ meltfptr[1592]); ((meltroutine_ptr_t)/*_._VALROUT___V1816*/ meltfptr[1815])->tabval[23] = (melt_ptr_t)(/*_._VALCLO___V1593*/ meltfptr[1592]); MELT_LOCATION("warmelt-macro.melt:4078:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1816*/ meltfptr[1815])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V807*/ meltfptr[806]); ((meltroutine_ptr_t)/*_._VALROUT___V1816*/ meltfptr[1815])->tabval[24] = (melt_ptr_t)(/*_._VALDATA___V807*/ meltfptr[806]); MELT_LOCATION("warmelt-macro.melt:4078:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1816*/ meltfptr[1815]); /*putclosurout#58*/ melt_assertmsg("putclosrout#58 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1821*/ meltfptr[1820])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#58 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1816*/ meltfptr[1815])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1821*/ meltfptr[1820])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1816*/ meltfptr[1815]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1821*/ meltfptr[1820]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1724__SYMBOL_CNAME @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1822*/ meltfptr[1821])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1724__SYMBOL_CNAME @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1822*/ meltfptr[1821])))); ((meltobject_ptr_t)(/*_._VALDATA___V1822*/ meltfptr[1821]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1823*/ meltfptr[1822]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1822*/ meltfptr[1821]); melt_dbgtrace_written_object (/*_._VALDATA___V1822*/ meltfptr[1821], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1730__DEFHOOK @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1824*/ meltfptr[1823])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1730__DEFHOOK @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1824*/ meltfptr[1823])))); ((meltobject_ptr_t)(/*_._VALDATA___V1824*/ meltfptr[1823]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1825*/ meltfptr[1824]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1824*/ meltfptr[1823]); melt_dbgtrace_written_object (/*_._VALDATA___V1824*/ meltfptr[1823], "new static instance"); MELT_LOCATION("warmelt-macro.melt:4252:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1826*/ meltfptr[1825])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1732__MEXPAND_DEFINE#0", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V1826*/ meltfptr[1825])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:4252:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1826*/ meltfptr[1825])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1732__MEXPAND_DEFINE#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1826*/ meltfptr[1825])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:4252:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1826*/ meltfptr[1825])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1732__MEXPAND_DEFINE#2", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V1826*/ meltfptr[1825])->tabval[2] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:4252:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1826*/ meltfptr[1825])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1732__MEXPAND_DEFINE#3", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1826*/ meltfptr[1825])->tabval[3] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:4252:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1826*/ meltfptr[1825])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1732__MEXPAND_DEFINE#4", NULL != (/*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V1826*/ meltfptr[1825])->tabval[4] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-macro.melt:4252:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1826*/ meltfptr[1825])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1732__MEXPAND_DEFINE#5", NULL != (/*_.CLASS_DEFINED_VALUE_BINDING__V70*/ meltfptr[69])); ((meltroutine_ptr_t)/*_._VALROUT___V1826*/ meltfptr[1825])->tabval[5] = (melt_ptr_t)(/*_.CLASS_DEFINED_VALUE_BINDING__V70*/ meltfptr[69]); MELT_LOCATION("warmelt-macro.melt:4252:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1826*/ meltfptr[1825])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1749*/ meltfptr[1748]); ((meltroutine_ptr_t)/*_._VALROUT___V1826*/ meltfptr[1825])->tabval[6] = (melt_ptr_t)(/*_._VALCLO___V1749*/ meltfptr[1748]); MELT_LOCATION("warmelt-macro.melt:4252:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1826*/ meltfptr[1825])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1573*/ meltfptr[1572]); ((meltroutine_ptr_t)/*_._VALROUT___V1826*/ meltfptr[1825])->tabval[7] = (melt_ptr_t)(/*_._VALCLO___V1573*/ meltfptr[1572]); MELT_LOCATION("warmelt-macro.melt:4252:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1826*/ meltfptr[1825])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1732__MEXPAND_DEFINE#8", NULL != (/*_._VALDATA___V1763*/ meltfptr[1762])); ((meltroutine_ptr_t)/*_._VALROUT___V1826*/ meltfptr[1825])->tabval[8] = (melt_ptr_t)(/*_._VALDATA___V1763*/ meltfptr[1762]); MELT_LOCATION("warmelt-macro.melt:4252:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1826*/ meltfptr[1825])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1593*/ meltfptr[1592]); ((meltroutine_ptr_t)/*_._VALROUT___V1826*/ meltfptr[1825])->tabval[9] = (melt_ptr_t)(/*_._VALCLO___V1593*/ meltfptr[1592]); MELT_LOCATION("warmelt-macro.melt:4252:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1826*/ meltfptr[1825])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V709*/ meltfptr[708]); ((meltroutine_ptr_t)/*_._VALROUT___V1826*/ meltfptr[1825])->tabval[10] = (melt_ptr_t)(/*_._VALDATA___V709*/ meltfptr[708]); MELT_LOCATION("warmelt-macro.melt:4252:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1826*/ meltfptr[1825])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1611*/ meltfptr[1610]); ((meltroutine_ptr_t)/*_._VALROUT___V1826*/ meltfptr[1825])->tabval[11] = (melt_ptr_t)(/*_._VALCLO___V1611*/ meltfptr[1610]); MELT_LOCATION("warmelt-macro.melt:4252:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1826*/ meltfptr[1825])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1732__MEXPAND_DEFINE#12", NULL != (/*_._VALDATA___V1781*/ meltfptr[1780])); ((meltroutine_ptr_t)/*_._VALROUT___V1826*/ meltfptr[1825])->tabval[12] = (melt_ptr_t)(/*_._VALDATA___V1781*/ meltfptr[1780]); MELT_LOCATION("warmelt-macro.melt:4252:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1826*/ meltfptr[1825])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1732__MEXPAND_DEFINE#13", NULL != (/*_.CLASS_FUNCTION_BINDING__V67*/ meltfptr[66])); ((meltroutine_ptr_t)/*_._VALROUT___V1826*/ meltfptr[1825])->tabval[13] = (melt_ptr_t)(/*_.CLASS_FUNCTION_BINDING__V67*/ meltfptr[66]); MELT_LOCATION("warmelt-macro.melt:4252:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1826*/ meltfptr[1825])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V306*/ meltfptr[305]); ((meltroutine_ptr_t)/*_._VALROUT___V1826*/ meltfptr[1825])->tabval[14] = (melt_ptr_t)(/*_._VALCLO___V306*/ meltfptr[305]); MELT_LOCATION("warmelt-macro.melt:4252:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1826*/ meltfptr[1825])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1732__MEXPAND_DEFINE#15", NULL != (/*_.FRESH_ENV__V38*/ meltfptr[37])); ((meltroutine_ptr_t)/*_._VALROUT___V1826*/ meltfptr[1825])->tabval[15] = (melt_ptr_t)(/*_.FRESH_ENV__V38*/ meltfptr[37]); MELT_LOCATION("warmelt-macro.melt:4252:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1826*/ meltfptr[1825])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V729*/ meltfptr[728]); ((meltroutine_ptr_t)/*_._VALROUT___V1826*/ meltfptr[1825])->tabval[16] = (melt_ptr_t)(/*_._VALDATA___V729*/ meltfptr[728]); MELT_LOCATION("warmelt-macro.melt:4252:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1826*/ meltfptr[1825])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1732__MEXPAND_DEFINE#17", NULL != (/*_.CLASS_FORMAL_BINDING__V49*/ meltfptr[48])); ((meltroutine_ptr_t)/*_._VALROUT___V1826*/ meltfptr[1825])->tabval[17] = (melt_ptr_t)(/*_.CLASS_FORMAL_BINDING__V49*/ meltfptr[48]); MELT_LOCATION("warmelt-macro.melt:4252:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1826*/ meltfptr[1825])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1732__MEXPAND_DEFINE#18", NULL != (/*_.CTYPE_VALUE__V61*/ meltfptr[60])); ((meltroutine_ptr_t)/*_._VALROUT___V1826*/ meltfptr[1825])->tabval[18] = (melt_ptr_t)(/*_.CTYPE_VALUE__V61*/ meltfptr[60]); MELT_LOCATION("warmelt-macro.melt:4252:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1826*/ meltfptr[1825])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1732__MEXPAND_DEFINE#19", NULL != (/*_.CLASS_NAMED__V23*/ meltfptr[22])); ((meltroutine_ptr_t)/*_._VALROUT___V1826*/ meltfptr[1825])->tabval[19] = (melt_ptr_t)(/*_.CLASS_NAMED__V23*/ meltfptr[22]); MELT_LOCATION("warmelt-macro.melt:4252:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1826*/ meltfptr[1825])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1732__MEXPAND_DEFINE#20", NULL != (/*_.PUT_ENV__V32*/ meltfptr[31])); ((meltroutine_ptr_t)/*_._VALROUT___V1826*/ meltfptr[1825])->tabval[20] = (melt_ptr_t)(/*_.PUT_ENV__V32*/ meltfptr[31]); MELT_LOCATION("warmelt-macro.melt:4252:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1826*/ meltfptr[1825]); /*putclosurout#59*/ melt_assertmsg("putclosrout#59 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1827*/ meltfptr[1826])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#59 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1826*/ meltfptr[1825])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1827*/ meltfptr[1826])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1826*/ meltfptr[1825]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1827*/ meltfptr[1826]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1734__CLASS_DEFINED_VALUE_BINDING @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1828*/ meltfptr[1827])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1734__CLASS_DEFINED_VALUE_BINDING @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1828*/ meltfptr[1827])))); ((meltobject_ptr_t)(/*_._VALDATA___V1828*/ meltfptr[1827]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1829*/ meltfptr[1828]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1828*/ meltfptr[1827]); melt_dbgtrace_written_object (/*_._VALDATA___V1828*/ meltfptr[1827], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1736__DEFINE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1830*/ meltfptr[1829])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1736__DEFINE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1830*/ meltfptr[1829])))); ((meltobject_ptr_t)(/*_._VALDATA___V1830*/ meltfptr[1829]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1831*/ meltfptr[1830]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1830*/ meltfptr[1829]); melt_dbgtrace_written_object (/*_._VALDATA___V1830*/ meltfptr[1829], "new static instance"); MELT_LOCATION("warmelt-macro.melt:4373:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1832*/ meltfptr[1831])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1738__SCAN_DEFCLASS#0", NULL != (/*_.CLASS_NAMED__V23*/ meltfptr[22])); ((meltroutine_ptr_t)/*_._VALROUT___V1832*/ meltfptr[1831])->tabval[0] = (melt_ptr_t)(/*_.CLASS_NAMED__V23*/ meltfptr[22]); MELT_LOCATION("warmelt-macro.melt:4373:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1832*/ meltfptr[1831])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1738__SCAN_DEFCLASS#1", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1832*/ meltfptr[1831])->tabval[1] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:4373:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1832*/ meltfptr[1831])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1738__SCAN_DEFCLASS#2", NULL != (/*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V1832*/ meltfptr[1831])->tabval[2] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-macro.melt:4373:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1832*/ meltfptr[1831])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V306*/ meltfptr[305]); ((meltroutine_ptr_t)/*_._VALROUT___V1832*/ meltfptr[1831])->tabval[3] = (melt_ptr_t)(/*_._VALCLO___V306*/ meltfptr[305]); MELT_LOCATION("warmelt-macro.melt:4373:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1832*/ meltfptr[1831])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1738__SCAN_DEFCLASS#4", NULL != (/*_.CLASS_KEYWORD__V22*/ meltfptr[21])); ((meltroutine_ptr_t)/*_._VALROUT___V1832*/ meltfptr[1831])->tabval[4] = (melt_ptr_t)(/*_.CLASS_KEYWORD__V22*/ meltfptr[21]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1740__SUPER @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1833*/ meltfptr[1832])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1740__SUPER @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1833*/ meltfptr[1832])))); ((meltobject_ptr_t)(/*_._VALDATA___V1833*/ meltfptr[1832]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1834*/ meltfptr[1833]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1833*/ meltfptr[1832]); melt_dbgtrace_written_object (/*_._VALDATA___V1833*/ meltfptr[1832], "new static instance"); MELT_LOCATION("warmelt-macro.melt:4373:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1832*/ meltfptr[1831])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1738__SCAN_DEFCLASS#5", NULL != (/*_._VALDATA___V1833*/ meltfptr[1832])); ((meltroutine_ptr_t)/*_._VALROUT___V1832*/ meltfptr[1831])->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V1833*/ meltfptr[1832]); MELT_LOCATION("warmelt-macro.melt:4373:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1832*/ meltfptr[1831])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1738__SCAN_DEFCLASS#6", NULL != (/*_.FIND_ENV__V31*/ meltfptr[30])); ((meltroutine_ptr_t)/*_._VALROUT___V1832*/ meltfptr[1831])->tabval[6] = (melt_ptr_t)(/*_.FIND_ENV__V31*/ meltfptr[30]); MELT_LOCATION("warmelt-macro.melt:4373:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1832*/ meltfptr[1831])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1738__SCAN_DEFCLASS#7", NULL != (/*_.CLASS_CLASS_BINDING__V71*/ meltfptr[70])); ((meltroutine_ptr_t)/*_._VALROUT___V1832*/ meltfptr[1831])->tabval[7] = (melt_ptr_t)(/*_.CLASS_CLASS_BINDING__V71*/ meltfptr[70]); MELT_LOCATION("warmelt-macro.melt:4373:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1832*/ meltfptr[1831])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1738__SCAN_DEFCLASS#8", NULL != (/*_.CLASS_VALUE_BINDING__V51*/ meltfptr[50])); ((meltroutine_ptr_t)/*_._VALROUT___V1832*/ meltfptr[1831])->tabval[8] = (melt_ptr_t)(/*_.CLASS_VALUE_BINDING__V51*/ meltfptr[50]); MELT_LOCATION("warmelt-macro.melt:4373:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1832*/ meltfptr[1831])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1738__SCAN_DEFCLASS#9", NULL != (/*_.CLASS_CLASS__V72*/ meltfptr[71])); ((meltroutine_ptr_t)/*_._VALROUT___V1832*/ meltfptr[1831])->tabval[9] = (melt_ptr_t)(/*_.CLASS_CLASS__V72*/ meltfptr[71]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1746__FIELDS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1835*/ meltfptr[1834])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1746__FIELDS @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1835*/ meltfptr[1834])))); ((meltobject_ptr_t)(/*_._VALDATA___V1835*/ meltfptr[1834]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1836*/ meltfptr[1835]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1835*/ meltfptr[1834]); melt_dbgtrace_written_object (/*_._VALDATA___V1835*/ meltfptr[1834], "new static instance"); MELT_LOCATION("warmelt-macro.melt:4373:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1832*/ meltfptr[1831])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1738__SCAN_DEFCLASS#10", NULL != (/*_._VALDATA___V1835*/ meltfptr[1834])); ((meltroutine_ptr_t)/*_._VALROUT___V1832*/ meltfptr[1831])->tabval[10] = (melt_ptr_t)(/*_._VALDATA___V1835*/ meltfptr[1834]); MELT_LOCATION("warmelt-macro.melt:4373:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1832*/ meltfptr[1831])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1738__SCAN_DEFCLASS#11", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V1832*/ meltfptr[1831])->tabval[11] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:4373:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1832*/ meltfptr[1831])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1738__SCAN_DEFCLASS#12", NULL != (/*_.DISCR_MULTIPLE__V13*/ meltfptr[12])); ((meltroutine_ptr_t)/*_._VALROUT___V1832*/ meltfptr[1831])->tabval[12] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V13*/ meltfptr[12]); MELT_LOCATION("warmelt-macro.melt:4373:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1832*/ meltfptr[1831])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1738__SCAN_DEFCLASS#13", NULL != (/*_._VALDATA___V1817*/ meltfptr[1816])); ((meltroutine_ptr_t)/*_._VALROUT___V1832*/ meltfptr[1831])->tabval[13] = (melt_ptr_t)(/*_._VALDATA___V1817*/ meltfptr[1816]); MELT_LOCATION("warmelt-macro.melt:4373:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1832*/ meltfptr[1831])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1738__SCAN_DEFCLASS#14", NULL != (/*_._VALDATA___V1763*/ meltfptr[1762])); ((meltroutine_ptr_t)/*_._VALROUT___V1832*/ meltfptr[1831])->tabval[14] = (melt_ptr_t)(/*_._VALDATA___V1763*/ meltfptr[1762]); MELT_LOCATION("warmelt-macro.melt:4373:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1832*/ meltfptr[1831])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1749*/ meltfptr[1748]); ((meltroutine_ptr_t)/*_._VALROUT___V1832*/ meltfptr[1831])->tabval[15] = (melt_ptr_t)(/*_._VALCLO___V1749*/ meltfptr[1748]); MELT_LOCATION("warmelt-macro.melt:4373:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1832*/ meltfptr[1831]); /*putclosurout#60*/ melt_assertmsg("putclosrout#60 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1837*/ meltfptr[1836])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#60 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1832*/ meltfptr[1831])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1837*/ meltfptr[1836])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1832*/ meltfptr[1831]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1837*/ meltfptr[1836]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1742__CLASS_CLASS_BINDING @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1838*/ meltfptr[1837])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1742__CLASS_CLASS_BINDING @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1838*/ meltfptr[1837])))); ((meltobject_ptr_t)(/*_._VALDATA___V1838*/ meltfptr[1837]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1839*/ meltfptr[1838]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1838*/ meltfptr[1837]); melt_dbgtrace_written_object (/*_._VALDATA___V1838*/ meltfptr[1837], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1744__CLASS_CLASS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1840*/ meltfptr[1839])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1744__CLASS_CLASS @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1840*/ meltfptr[1839])))); ((meltobject_ptr_t)(/*_._VALDATA___V1840*/ meltfptr[1839]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1841*/ meltfptr[1840]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1840*/ meltfptr[1839]); melt_dbgtrace_written_object (/*_._VALDATA___V1840*/ meltfptr[1839], "new static instance"); MELT_LOCATION("warmelt-macro.melt:4488:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1842*/ meltfptr[1841])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1748__MEXPAND_DEFCLASS#0", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V1842*/ meltfptr[1841])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:4488:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1842*/ meltfptr[1841])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1748__MEXPAND_DEFCLASS#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1842*/ meltfptr[1841])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:4488:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1842*/ meltfptr[1841])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1748__MEXPAND_DEFCLASS#2", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V1842*/ meltfptr[1841])->tabval[2] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:4488:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1842*/ meltfptr[1841])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1748__MEXPAND_DEFCLASS#3", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1842*/ meltfptr[1841])->tabval[3] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:4488:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1842*/ meltfptr[1841])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1837*/ meltfptr[1836]); ((meltroutine_ptr_t)/*_._VALROUT___V1842*/ meltfptr[1841])->tabval[4] = (melt_ptr_t)(/*_._VALCLO___V1837*/ meltfptr[1836]); MELT_LOCATION("warmelt-macro.melt:4488:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1842*/ meltfptr[1841])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1748__MEXPAND_DEFCLASS#5", NULL != (/*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V1842*/ meltfptr[1841])->tabval[5] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-macro.melt:4488:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1842*/ meltfptr[1841])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1748__MEXPAND_DEFCLASS#6", NULL != (/*_.CLASS_NAMED__V23*/ meltfptr[22])); ((meltroutine_ptr_t)/*_._VALROUT___V1842*/ meltfptr[1841])->tabval[6] = (melt_ptr_t)(/*_.CLASS_NAMED__V23*/ meltfptr[22]); MELT_LOCATION("warmelt-macro.melt:4488:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1842*/ meltfptr[1841])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V306*/ meltfptr[305]); ((meltroutine_ptr_t)/*_._VALROUT___V1842*/ meltfptr[1841])->tabval[7] = (melt_ptr_t)(/*_._VALCLO___V306*/ meltfptr[305]); MELT_LOCATION("warmelt-macro.melt:4488:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1842*/ meltfptr[1841])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1748__MEXPAND_DEFCLASS#8", NULL != (/*_.DISCR_CLASS_SEQUENCE__V73*/ meltfptr[72])); ((meltroutine_ptr_t)/*_._VALROUT___V1842*/ meltfptr[1841])->tabval[8] = (melt_ptr_t)(/*_.DISCR_CLASS_SEQUENCE__V73*/ meltfptr[72]); MELT_LOCATION("warmelt-macro.melt:4488:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1842*/ meltfptr[1841])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1748__MEXPAND_DEFCLASS#9", NULL != (/*_.CLASS_CLASS__V72*/ meltfptr[71])); ((meltroutine_ptr_t)/*_._VALROUT___V1842*/ meltfptr[1841])->tabval[9] = (melt_ptr_t)(/*_.CLASS_CLASS__V72*/ meltfptr[71]); MELT_LOCATION("warmelt-macro.melt:4488:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1842*/ meltfptr[1841])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1748__MEXPAND_DEFCLASS#10", NULL != (/*_.DISCR_INTEGER__V58*/ meltfptr[57])); ((meltroutine_ptr_t)/*_._VALROUT___V1842*/ meltfptr[1841])->tabval[10] = (melt_ptr_t)(/*_.DISCR_INTEGER__V58*/ meltfptr[57]); #undef meltfram__ } /*end of meltmod__WARMELTmiMACRO__initialmeltchunk_37*/ void meltmod__WARMELTmiMACRO__initialmeltchunk_38 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; MELT_LOCATION("warmelt-macro.melt:4488:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1842*/ meltfptr[1841])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1748__MEXPAND_DEFCLASS#11", NULL != (/*_.DISCR_MAP_STRINGS__V74*/ meltfptr[73])); ((meltroutine_ptr_t)/*_._VALROUT___V1842*/ meltfptr[1841])->tabval[11] = (melt_ptr_t)(/*_.DISCR_MAP_STRINGS__V74*/ meltfptr[73]); MELT_LOCATION("warmelt-macro.melt:4488:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1842*/ meltfptr[1841])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1748__MEXPAND_DEFCLASS#12", NULL != (/*_.DISCR_FIELD_SEQUENCE__V75*/ meltfptr[74])); ((meltroutine_ptr_t)/*_._VALROUT___V1842*/ meltfptr[1841])->tabval[12] = (melt_ptr_t)(/*_.DISCR_FIELD_SEQUENCE__V75*/ meltfptr[74]); MELT_LOCATION("warmelt-macro.melt:4488:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1842*/ meltfptr[1841])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1748__MEXPAND_DEFCLASS#13", NULL != (/*_.DISCR_MULTIPLE__V13*/ meltfptr[12])); ((meltroutine_ptr_t)/*_._VALROUT___V1842*/ meltfptr[1841])->tabval[13] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V13*/ meltfptr[12]); MELT_LOCATION("warmelt-macro.melt:4488:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1842*/ meltfptr[1841])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1748__MEXPAND_DEFCLASS#14", NULL != (/*_.CLASS_CLASS_BINDING__V71*/ meltfptr[70])); ((meltroutine_ptr_t)/*_._VALROUT___V1842*/ meltfptr[1841])->tabval[14] = (melt_ptr_t)(/*_.CLASS_CLASS_BINDING__V71*/ meltfptr[70]); MELT_LOCATION("warmelt-macro.melt:4488:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1842*/ meltfptr[1841])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1573*/ meltfptr[1572]); ((meltroutine_ptr_t)/*_._VALROUT___V1842*/ meltfptr[1841])->tabval[15] = (melt_ptr_t)(/*_._VALCLO___V1573*/ meltfptr[1572]); MELT_LOCATION("warmelt-macro.melt:4488:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1842*/ meltfptr[1841])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1748__MEXPAND_DEFCLASS#16", NULL != (/*_.CLASS_FIELD__V36*/ meltfptr[35])); ((meltroutine_ptr_t)/*_._VALROUT___V1842*/ meltfptr[1841])->tabval[16] = (melt_ptr_t)(/*_.CLASS_FIELD__V36*/ meltfptr[35]); MELT_LOCATION("warmelt-macro.melt:4488:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1842*/ meltfptr[1841])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1748__MEXPAND_DEFCLASS#17", NULL != (/*_.FIND_ENV__V31*/ meltfptr[30])); ((meltroutine_ptr_t)/*_._VALROUT___V1842*/ meltfptr[1841])->tabval[17] = (melt_ptr_t)(/*_.FIND_ENV__V31*/ meltfptr[30]); MELT_LOCATION("warmelt-macro.melt:4488:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1842*/ meltfptr[1841])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1748__MEXPAND_DEFCLASS#18", NULL != (/*_.CLASS_FIELD_BINDING__V48*/ meltfptr[47])); ((meltroutine_ptr_t)/*_._VALROUT___V1842*/ meltfptr[1841])->tabval[18] = (melt_ptr_t)(/*_.CLASS_FIELD_BINDING__V48*/ meltfptr[47]); MELT_LOCATION("warmelt-macro.melt:4488:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1842*/ meltfptr[1841])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1748__MEXPAND_DEFCLASS#19", NULL != (/*_.CLASS_VALUE_BINDING__V51*/ meltfptr[50])); ((meltroutine_ptr_t)/*_._VALROUT___V1842*/ meltfptr[1841])->tabval[19] = (melt_ptr_t)(/*_.CLASS_VALUE_BINDING__V51*/ meltfptr[50]); MELT_LOCATION("warmelt-macro.melt:4488:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1842*/ meltfptr[1841])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V310*/ meltfptr[309]); ((meltroutine_ptr_t)/*_._VALROUT___V1842*/ meltfptr[1841])->tabval[20] = (melt_ptr_t)(/*_._VALCLO___V310*/ meltfptr[309]); MELT_LOCATION("warmelt-macro.melt:4488:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1842*/ meltfptr[1841])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1749*/ meltfptr[1748]); ((meltroutine_ptr_t)/*_._VALROUT___V1842*/ meltfptr[1841])->tabval[21] = (melt_ptr_t)(/*_._VALCLO___V1749*/ meltfptr[1748]); MELT_LOCATION("warmelt-macro.melt:4488:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1842*/ meltfptr[1841])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1748__MEXPAND_DEFCLASS#22", NULL != (/*_.PUT_ENV__V32*/ meltfptr[31])); ((meltroutine_ptr_t)/*_._VALROUT___V1842*/ meltfptr[1841])->tabval[22] = (melt_ptr_t)(/*_.PUT_ENV__V32*/ meltfptr[31]); MELT_LOCATION("warmelt-macro.melt:4488:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1842*/ meltfptr[1841])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V909*/ meltfptr[908]); ((meltroutine_ptr_t)/*_._VALROUT___V1842*/ meltfptr[1841])->tabval[23] = (melt_ptr_t)(/*_._VALDATA___V909*/ meltfptr[908]); MELT_LOCATION("warmelt-macro.melt:4488:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1842*/ meltfptr[1841]); /*putclosurout#61*/ melt_assertmsg("putclosrout#61 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1843*/ meltfptr[1842])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#61 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1842*/ meltfptr[1841])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1843*/ meltfptr[1842])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1842*/ meltfptr[1841]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1843*/ meltfptr[1842]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1750__DISCR_CLASS_SEQUENCE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1844*/ meltfptr[1843])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1750__DISCR_CLASS_SEQUENCE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1844*/ meltfptr[1843])))); ((meltobject_ptr_t)(/*_._VALDATA___V1844*/ meltfptr[1843]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1845*/ meltfptr[1844]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1844*/ meltfptr[1843]); melt_dbgtrace_written_object (/*_._VALDATA___V1844*/ meltfptr[1843], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1752__DISCR_MAP_STRINGS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1846*/ meltfptr[1845])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1752__DISCR_MAP_STRINGS @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1846*/ meltfptr[1845])))); ((meltobject_ptr_t)(/*_._VALDATA___V1846*/ meltfptr[1845]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1847*/ meltfptr[1846]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1846*/ meltfptr[1845]); melt_dbgtrace_written_object (/*_._VALDATA___V1846*/ meltfptr[1845], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1754__DISCR_FIELD_SEQUENCE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1848*/ meltfptr[1847])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1754__DISCR_FIELD_SEQUENCE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1848*/ meltfptr[1847])))); ((meltobject_ptr_t)(/*_._VALDATA___V1848*/ meltfptr[1847]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1849*/ meltfptr[1848]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1848*/ meltfptr[1847]); melt_dbgtrace_written_object (/*_._VALDATA___V1848*/ meltfptr[1847], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1756__DEFCLASS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1850*/ meltfptr[1849])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1756__DEFCLASS @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1850*/ meltfptr[1849])))); ((meltobject_ptr_t)(/*_._VALDATA___V1850*/ meltfptr[1849]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1851*/ meltfptr[1850]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1850*/ meltfptr[1849]); melt_dbgtrace_written_object (/*_._VALDATA___V1850*/ meltfptr[1849], "new static instance"); MELT_LOCATION("warmelt-macro.melt:4637:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1852*/ meltfptr[1851])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1758__PARSE_FIELD_ASSIGNMENT#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1852*/ meltfptr[1851])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:4637:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1852*/ meltfptr[1851])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1758__PARSE_FIELD_ASSIGNMENT#1", NULL != (/*_.CLASS_KEYWORD__V22*/ meltfptr[21])); ((meltroutine_ptr_t)/*_._VALROUT___V1852*/ meltfptr[1851])->tabval[1] = (melt_ptr_t)(/*_.CLASS_KEYWORD__V22*/ meltfptr[21]); MELT_LOCATION("warmelt-macro.melt:4637:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1852*/ meltfptr[1851])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1758__PARSE_FIELD_ASSIGNMENT#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1852*/ meltfptr[1851])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:4637:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1852*/ meltfptr[1851])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1758__PARSE_FIELD_ASSIGNMENT#3", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V1852*/ meltfptr[1851])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:4637:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1852*/ meltfptr[1851])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1758__PARSE_FIELD_ASSIGNMENT#4", NULL != (/*_.CLASS_NAMED__V23*/ meltfptr[22])); ((meltroutine_ptr_t)/*_._VALROUT___V1852*/ meltfptr[1851])->tabval[4] = (melt_ptr_t)(/*_.CLASS_NAMED__V23*/ meltfptr[22]); MELT_LOCATION("warmelt-macro.melt:4637:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1852*/ meltfptr[1851])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1758__PARSE_FIELD_ASSIGNMENT#5", NULL != (/*_.CLASS_CLASS__V72*/ meltfptr[71])); ((meltroutine_ptr_t)/*_._VALROUT___V1852*/ meltfptr[1851])->tabval[5] = (melt_ptr_t)(/*_.CLASS_CLASS__V72*/ meltfptr[71]); MELT_LOCATION("warmelt-macro.melt:4637:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1852*/ meltfptr[1851])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1758__PARSE_FIELD_ASSIGNMENT#6", NULL != (/*_.MULTIPLE_ITERATE_TEST__V76*/ meltfptr[75])); ((meltroutine_ptr_t)/*_._VALROUT___V1852*/ meltfptr[1851])->tabval[6] = (melt_ptr_t)(/*_.MULTIPLE_ITERATE_TEST__V76*/ meltfptr[75]); MELT_LOCATION("warmelt-macro.melt:4637:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1852*/ meltfptr[1851])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1758__PARSE_FIELD_ASSIGNMENT#7", NULL != (/*_.CLASS_FIELD__V36*/ meltfptr[35])); ((meltroutine_ptr_t)/*_._VALROUT___V1852*/ meltfptr[1851])->tabval[7] = (melt_ptr_t)(/*_.CLASS_FIELD__V36*/ meltfptr[35]); MELT_LOCATION("warmelt-macro.melt:4637:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1852*/ meltfptr[1851])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1758__PARSE_FIELD_ASSIGNMENT#8", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1852*/ meltfptr[1851])->tabval[8] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:4637:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1852*/ meltfptr[1851])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1758__PARSE_FIELD_ASSIGNMENT#9", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1852*/ meltfptr[1851])->tabval[9] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:4662:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1853*/ meltfptr[1852])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1762__LAMBDA_#0", NULL != (/*_.CLASS_FIELD__V36*/ meltfptr[35])); ((meltroutine_ptr_t)/*_._VALROUT___V1853*/ meltfptr[1852])->tabval[0] = (melt_ptr_t)(/*_.CLASS_FIELD__V36*/ meltfptr[35]); MELT_LOCATION("warmelt-macro.melt:4662:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1853*/ meltfptr[1852])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1762__LAMBDA_#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1853*/ meltfptr[1852])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:4662:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1853*/ meltfptr[1852])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1762__LAMBDA_#2", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1853*/ meltfptr[1852])->tabval[2] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:4662:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1853*/ meltfptr[1852])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1762__LAMBDA_#3", NULL != (/*_._VALDATA___V1567*/ meltfptr[1566])); ((meltroutine_ptr_t)/*_._VALROUT___V1853*/ meltfptr[1852])->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V1567*/ meltfptr[1566]); MELT_LOCATION("warmelt-macro.melt:4662:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1853*/ meltfptr[1852]); MELT_LOCATION("warmelt-macro.melt:4637:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1852*/ meltfptr[1851])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1758__PARSE_FIELD_ASSIGNMENT#10", NULL != (/*_._VALROUT___V1853*/ meltfptr[1852])); ((meltroutine_ptr_t)/*_._VALROUT___V1852*/ meltfptr[1851])->tabval[10] = (melt_ptr_t)(/*_._VALROUT___V1853*/ meltfptr[1852]); MELT_LOCATION("warmelt-macro.melt:4637:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1852*/ meltfptr[1851])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1758__PARSE_FIELD_ASSIGNMENT#11", NULL != (/*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V1852*/ meltfptr[1851])->tabval[11] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-macro.melt:4637:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1852*/ meltfptr[1851])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1758__PARSE_FIELD_ASSIGNMENT#12", NULL != (/*_.FIND_ENV__V31*/ meltfptr[30])); ((meltroutine_ptr_t)/*_._VALROUT___V1852*/ meltfptr[1851])->tabval[12] = (melt_ptr_t)(/*_.FIND_ENV__V31*/ meltfptr[30]); MELT_LOCATION("warmelt-macro.melt:4637:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1852*/ meltfptr[1851])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V306*/ meltfptr[305]); ((meltroutine_ptr_t)/*_._VALROUT___V1852*/ meltfptr[1851])->tabval[13] = (melt_ptr_t)(/*_._VALCLO___V306*/ meltfptr[305]); MELT_LOCATION("warmelt-macro.melt:4637:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1852*/ meltfptr[1851])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1758__PARSE_FIELD_ASSIGNMENT#14", NULL != (/*_.CLASS_FIELD_BINDING__V48*/ meltfptr[47])); ((meltroutine_ptr_t)/*_._VALROUT___V1852*/ meltfptr[1851])->tabval[14] = (melt_ptr_t)(/*_.CLASS_FIELD_BINDING__V48*/ meltfptr[47]); MELT_LOCATION("warmelt-macro.melt:4637:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1852*/ meltfptr[1851])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1758__PARSE_FIELD_ASSIGNMENT#15", NULL != (/*_.CLASS_VALUE_BINDING__V51*/ meltfptr[50])); ((meltroutine_ptr_t)/*_._VALROUT___V1852*/ meltfptr[1851])->tabval[15] = (melt_ptr_t)(/*_.CLASS_VALUE_BINDING__V51*/ meltfptr[50]); MELT_LOCATION("warmelt-macro.melt:4637:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1852*/ meltfptr[1851])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1758__PARSE_FIELD_ASSIGNMENT#16", NULL != (/*_.CLASS_FIELD__V36*/ meltfptr[35])); ((meltroutine_ptr_t)/*_._VALROUT___V1852*/ meltfptr[1851])->tabval[16] = (melt_ptr_t)(/*_.CLASS_FIELD__V36*/ meltfptr[35]); MELT_LOCATION("warmelt-macro.melt:4637:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1852*/ meltfptr[1851])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V310*/ meltfptr[309]); ((meltroutine_ptr_t)/*_._VALROUT___V1852*/ meltfptr[1851])->tabval[17] = (melt_ptr_t)(/*_._VALCLO___V310*/ meltfptr[309]); MELT_LOCATION("warmelt-macro.melt:4637:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1852*/ meltfptr[1851])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V959*/ meltfptr[958]); ((meltroutine_ptr_t)/*_._VALROUT___V1852*/ meltfptr[1851])->tabval[18] = (melt_ptr_t)(/*_._VALDATA___V959*/ meltfptr[958]); MELT_LOCATION("warmelt-macro.melt:4637:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1852*/ meltfptr[1851]); /*putclosurout#62*/ melt_assertmsg("putclosrout#62 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1854*/ meltfptr[1853])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#62 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1852*/ meltfptr[1851])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1854*/ meltfptr[1853])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1852*/ meltfptr[1851]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1854*/ meltfptr[1853]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1760__MULTIPLE_ITERATE_TEST @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1855*/ meltfptr[1854])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1760__MULTIPLE_ITERATE_TEST @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1855*/ meltfptr[1854])))); ((meltobject_ptr_t)(/*_._VALDATA___V1855*/ meltfptr[1854]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1856*/ meltfptr[1855]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1855*/ meltfptr[1854]); melt_dbgtrace_written_object (/*_._VALDATA___V1855*/ meltfptr[1854], "new static instance"); MELT_LOCATION("warmelt-macro.melt:4733:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1857*/ meltfptr[1856])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1763__MEXPAND_DEFINSTANCE#0", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V1857*/ meltfptr[1856])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:4733:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1857*/ meltfptr[1856])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1763__MEXPAND_DEFINSTANCE#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1857*/ meltfptr[1856])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:4733:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1857*/ meltfptr[1856])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1763__MEXPAND_DEFINSTANCE#2", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V1857*/ meltfptr[1856])->tabval[2] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:4733:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1857*/ meltfptr[1856])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1763__MEXPAND_DEFINSTANCE#3", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1857*/ meltfptr[1856])->tabval[3] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:4733:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1857*/ meltfptr[1856])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1763__MEXPAND_DEFINSTANCE#4", NULL != (/*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V1857*/ meltfptr[1856])->tabval[4] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-macro.melt:4733:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1857*/ meltfptr[1856])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V306*/ meltfptr[305]); ((meltroutine_ptr_t)/*_._VALROUT___V1857*/ meltfptr[1856])->tabval[5] = (melt_ptr_t)(/*_._VALCLO___V306*/ meltfptr[305]); MELT_LOCATION("warmelt-macro.melt:4733:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1857*/ meltfptr[1856])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1763__MEXPAND_DEFINSTANCE#6", NULL != (/*_.CLASS_NAMED__V23*/ meltfptr[22])); ((meltroutine_ptr_t)/*_._VALROUT___V1857*/ meltfptr[1856])->tabval[6] = (melt_ptr_t)(/*_.CLASS_NAMED__V23*/ meltfptr[22]); MELT_LOCATION("warmelt-macro.melt:4733:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1857*/ meltfptr[1856])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1763__MEXPAND_DEFINSTANCE#7", NULL != (/*_.CLASS_INSTANCE_BINDING__V77*/ meltfptr[76])); ((meltroutine_ptr_t)/*_._VALROUT___V1857*/ meltfptr[1856])->tabval[7] = (melt_ptr_t)(/*_.CLASS_INSTANCE_BINDING__V77*/ meltfptr[76]); MELT_LOCATION("warmelt-macro.melt:4733:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1857*/ meltfptr[1856])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1749*/ meltfptr[1748]); ((meltroutine_ptr_t)/*_._VALROUT___V1857*/ meltfptr[1856])->tabval[8] = (melt_ptr_t)(/*_._VALCLO___V1749*/ meltfptr[1748]); MELT_LOCATION("warmelt-macro.melt:4733:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1857*/ meltfptr[1856])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1573*/ meltfptr[1572]); ((meltroutine_ptr_t)/*_._VALROUT___V1857*/ meltfptr[1856])->tabval[9] = (melt_ptr_t)(/*_._VALCLO___V1573*/ meltfptr[1572]); MELT_LOCATION("warmelt-macro.melt:4733:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1857*/ meltfptr[1856])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1763__MEXPAND_DEFINSTANCE#10", NULL != (/*_.FIND_ENV__V31*/ meltfptr[30])); ((meltroutine_ptr_t)/*_._VALROUT___V1857*/ meltfptr[1856])->tabval[10] = (melt_ptr_t)(/*_.FIND_ENV__V31*/ meltfptr[30]); MELT_LOCATION("warmelt-macro.melt:4733:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1857*/ meltfptr[1856])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1763__MEXPAND_DEFINSTANCE#11", NULL != (/*_.DISCR_LIST__V34*/ meltfptr[33])); ((meltroutine_ptr_t)/*_._VALROUT___V1857*/ meltfptr[1856])->tabval[11] = (melt_ptr_t)(/*_.DISCR_LIST__V34*/ meltfptr[33]); MELT_LOCATION("warmelt-macro.melt:4733:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1857*/ meltfptr[1856])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1763__MEXPAND_DEFINSTANCE#12", NULL != (/*_.CLASS_CLASS_BINDING__V71*/ meltfptr[70])); ((meltroutine_ptr_t)/*_._VALROUT___V1857*/ meltfptr[1856])->tabval[12] = (melt_ptr_t)(/*_.CLASS_CLASS_BINDING__V71*/ meltfptr[70]); MELT_LOCATION("warmelt-macro.melt:4733:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1857*/ meltfptr[1856])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1763__MEXPAND_DEFINSTANCE#13", NULL != (/*_.CLASS_VALUE_BINDING__V51*/ meltfptr[50])); ((meltroutine_ptr_t)/*_._VALROUT___V1857*/ meltfptr[1856])->tabval[13] = (melt_ptr_t)(/*_.CLASS_VALUE_BINDING__V51*/ meltfptr[50]); MELT_LOCATION("warmelt-macro.melt:4733:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1857*/ meltfptr[1856])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1763__MEXPAND_DEFINSTANCE#14", NULL != (/*_.CLASS_CLASS__V72*/ meltfptr[71])); ((meltroutine_ptr_t)/*_._VALROUT___V1857*/ meltfptr[1856])->tabval[14] = (melt_ptr_t)(/*_.CLASS_CLASS__V72*/ meltfptr[71]); MELT_LOCATION("warmelt-macro.melt:4733:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1857*/ meltfptr[1856])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1763__MEXPAND_DEFINSTANCE#15", NULL != (/*_.CLASS_KEYWORD__V22*/ meltfptr[21])); ((meltroutine_ptr_t)/*_._VALROUT___V1857*/ meltfptr[1856])->tabval[15] = (melt_ptr_t)(/*_.CLASS_KEYWORD__V22*/ meltfptr[21]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1767__OBJ_NUM @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1858*/ meltfptr[1857])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1767__OBJ_NUM @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1858*/ meltfptr[1857])))); ((meltobject_ptr_t)(/*_._VALDATA___V1858*/ meltfptr[1857]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1859*/ meltfptr[1858]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1858*/ meltfptr[1857]); melt_dbgtrace_written_object (/*_._VALDATA___V1858*/ meltfptr[1857], "new static instance"); MELT_LOCATION("warmelt-macro.melt:4733:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1857*/ meltfptr[1856])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1763__MEXPAND_DEFINSTANCE#16", NULL != (/*_._VALDATA___V1858*/ meltfptr[1857])); ((meltroutine_ptr_t)/*_._VALROUT___V1857*/ meltfptr[1856])->tabval[16] = (melt_ptr_t)(/*_._VALDATA___V1858*/ meltfptr[1857]); MELT_LOCATION("warmelt-macro.melt:4733:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1857*/ meltfptr[1856])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1763__MEXPAND_DEFINSTANCE#17", NULL != (/*_._VALDATA___V1817*/ meltfptr[1816])); ((meltroutine_ptr_t)/*_._VALROUT___V1857*/ meltfptr[1856])->tabval[17] = (melt_ptr_t)(/*_._VALDATA___V1817*/ meltfptr[1816]); MELT_LOCATION("warmelt-macro.melt:4733:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1857*/ meltfptr[1856])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1763__MEXPAND_DEFINSTANCE#18", NULL != (/*_._VALDATA___V1763*/ meltfptr[1762])); ((meltroutine_ptr_t)/*_._VALROUT___V1857*/ meltfptr[1856])->tabval[18] = (melt_ptr_t)(/*_._VALDATA___V1763*/ meltfptr[1762]); MELT_LOCATION("warmelt-macro.melt:4733:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1857*/ meltfptr[1856])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1854*/ meltfptr[1853]); ((meltroutine_ptr_t)/*_._VALROUT___V1857*/ meltfptr[1856])->tabval[19] = (melt_ptr_t)(/*_._VALCLO___V1854*/ meltfptr[1853]); MELT_LOCATION("warmelt-macro.melt:4733:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1857*/ meltfptr[1856])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1763__MEXPAND_DEFINSTANCE#20", NULL != (/*_.LIST_TO_MULTIPLE__V12*/ meltfptr[11])); ((meltroutine_ptr_t)/*_._VALROUT___V1857*/ meltfptr[1856])->tabval[20] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V12*/ meltfptr[11]); MELT_LOCATION("warmelt-macro.melt:4733:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1857*/ meltfptr[1856])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1763__MEXPAND_DEFINSTANCE#21", NULL != (/*_.DISCR_MULTIPLE__V13*/ meltfptr[12])); ((meltroutine_ptr_t)/*_._VALROUT___V1857*/ meltfptr[1856])->tabval[21] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V13*/ meltfptr[12]); MELT_LOCATION("warmelt-macro.melt:4733:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1857*/ meltfptr[1856])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V927*/ meltfptr[926]); ((meltroutine_ptr_t)/*_._VALROUT___V1857*/ meltfptr[1856])->tabval[22] = (melt_ptr_t)(/*_._VALDATA___V927*/ meltfptr[926]); MELT_LOCATION("warmelt-macro.melt:4733:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1857*/ meltfptr[1856]); /*putclosurout#63*/ melt_assertmsg("putclosrout#63 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1860*/ meltfptr[1859])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#63 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1857*/ meltfptr[1856])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1860*/ meltfptr[1859])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1857*/ meltfptr[1856]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1860*/ meltfptr[1859]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1765__CLASS_INSTANCE_BINDING @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1861*/ meltfptr[1860])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1765__CLASS_INSTANCE_BINDING @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1861*/ meltfptr[1860])))); ((meltobject_ptr_t)(/*_._VALDATA___V1861*/ meltfptr[1860]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1862*/ meltfptr[1861]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1861*/ meltfptr[1860]); melt_dbgtrace_written_object (/*_._VALDATA___V1861*/ meltfptr[1860], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1769__DEFINSTANCE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1863*/ meltfptr[1862])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1769__DEFINSTANCE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1863*/ meltfptr[1862])))); ((meltobject_ptr_t)(/*_._VALDATA___V1863*/ meltfptr[1862]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1864*/ meltfptr[1863]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1863*/ meltfptr[1862]); melt_dbgtrace_written_object (/*_._VALDATA___V1863*/ meltfptr[1862], "new static instance"); MELT_LOCATION("warmelt-macro.melt:4849:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1865*/ meltfptr[1864])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1771__MEXPAND_DEFSELECTOR#0", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V1865*/ meltfptr[1864])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:4849:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1865*/ meltfptr[1864])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1771__MEXPAND_DEFSELECTOR#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1865*/ meltfptr[1864])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:4849:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1865*/ meltfptr[1864])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1771__MEXPAND_DEFSELECTOR#2", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V1865*/ meltfptr[1864])->tabval[2] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:4849:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1865*/ meltfptr[1864])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1642*/ meltfptr[1641]); ((meltroutine_ptr_t)/*_._VALROUT___V1865*/ meltfptr[1864])->tabval[3] = (melt_ptr_t)(/*_._VALCLO___V1642*/ meltfptr[1641]); MELT_LOCATION("warmelt-macro.melt:4849:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1865*/ meltfptr[1864])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1771__MEXPAND_DEFSELECTOR#4", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1865*/ meltfptr[1864])->tabval[4] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:4849:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1865*/ meltfptr[1864])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1771__MEXPAND_DEFSELECTOR#5", NULL != (/*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V1865*/ meltfptr[1864])->tabval[5] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-macro.melt:4849:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1865*/ meltfptr[1864])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V306*/ meltfptr[305]); ((meltroutine_ptr_t)/*_._VALROUT___V1865*/ meltfptr[1864])->tabval[6] = (melt_ptr_t)(/*_._VALCLO___V306*/ meltfptr[305]); MELT_LOCATION("warmelt-macro.melt:4849:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1865*/ meltfptr[1864])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1771__MEXPAND_DEFSELECTOR#7", NULL != (/*_.CLASS_NAMED__V23*/ meltfptr[22])); ((meltroutine_ptr_t)/*_._VALROUT___V1865*/ meltfptr[1864])->tabval[7] = (melt_ptr_t)(/*_.CLASS_NAMED__V23*/ meltfptr[22]); MELT_LOCATION("warmelt-macro.melt:4849:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1865*/ meltfptr[1864])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1771__MEXPAND_DEFSELECTOR#8", NULL != (/*_.CLASS_SELECTOR_BINDING__V42*/ meltfptr[41])); ((meltroutine_ptr_t)/*_._VALROUT___V1865*/ meltfptr[1864])->tabval[8] = (melt_ptr_t)(/*_.CLASS_SELECTOR_BINDING__V42*/ meltfptr[41]); MELT_LOCATION("warmelt-macro.melt:4849:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1865*/ meltfptr[1864])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1749*/ meltfptr[1748]); ((meltroutine_ptr_t)/*_._VALROUT___V1865*/ meltfptr[1864])->tabval[9] = (melt_ptr_t)(/*_._VALCLO___V1749*/ meltfptr[1748]); MELT_LOCATION("warmelt-macro.melt:4849:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1865*/ meltfptr[1864])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1573*/ meltfptr[1572]); ((meltroutine_ptr_t)/*_._VALROUT___V1865*/ meltfptr[1864])->tabval[10] = (melt_ptr_t)(/*_._VALCLO___V1573*/ meltfptr[1572]); MELT_LOCATION("warmelt-macro.melt:4849:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1865*/ meltfptr[1864])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1771__MEXPAND_DEFSELECTOR#11", NULL != (/*_.FIND_ENV__V31*/ meltfptr[30])); ((meltroutine_ptr_t)/*_._VALROUT___V1865*/ meltfptr[1864])->tabval[11] = (melt_ptr_t)(/*_.FIND_ENV__V31*/ meltfptr[30]); MELT_LOCATION("warmelt-macro.melt:4849:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1865*/ meltfptr[1864])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1771__MEXPAND_DEFSELECTOR#12", NULL != (/*_.DISCR_LIST__V34*/ meltfptr[33])); ((meltroutine_ptr_t)/*_._VALROUT___V1865*/ meltfptr[1864])->tabval[12] = (melt_ptr_t)(/*_.DISCR_LIST__V34*/ meltfptr[33]); MELT_LOCATION("warmelt-macro.melt:4849:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1865*/ meltfptr[1864])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1771__MEXPAND_DEFSELECTOR#13", NULL != (/*_.CLASS_CLASS_BINDING__V71*/ meltfptr[70])); ((meltroutine_ptr_t)/*_._VALROUT___V1865*/ meltfptr[1864])->tabval[13] = (melt_ptr_t)(/*_.CLASS_CLASS_BINDING__V71*/ meltfptr[70]); MELT_LOCATION("warmelt-macro.melt:4849:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1865*/ meltfptr[1864])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1771__MEXPAND_DEFSELECTOR#14", NULL != (/*_.CLASS_VALUE_BINDING__V51*/ meltfptr[50])); ((meltroutine_ptr_t)/*_._VALROUT___V1865*/ meltfptr[1864])->tabval[14] = (melt_ptr_t)(/*_.CLASS_VALUE_BINDING__V51*/ meltfptr[50]); MELT_LOCATION("warmelt-macro.melt:4849:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1865*/ meltfptr[1864])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1771__MEXPAND_DEFSELECTOR#15", NULL != (/*_.CLASS_CLASS__V72*/ meltfptr[71])); ((meltroutine_ptr_t)/*_._VALROUT___V1865*/ meltfptr[1864])->tabval[15] = (melt_ptr_t)(/*_.CLASS_CLASS__V72*/ meltfptr[71]); MELT_LOCATION("warmelt-macro.melt:4849:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1865*/ meltfptr[1864])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1771__MEXPAND_DEFSELECTOR#16", NULL != (/*_._VALDATA___V323*/ meltfptr[322])); ((meltroutine_ptr_t)/*_._VALROUT___V1865*/ meltfptr[1864])->tabval[16] = (melt_ptr_t)(/*_._VALDATA___V323*/ meltfptr[322]); MELT_LOCATION("warmelt-macro.melt:4849:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1865*/ meltfptr[1864])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1771__MEXPAND_DEFSELECTOR#17", NULL != (/*_.CLASS_SELECTOR__V24*/ meltfptr[23])); ((meltroutine_ptr_t)/*_._VALROUT___V1865*/ meltfptr[1864])->tabval[17] = (melt_ptr_t)(/*_.CLASS_SELECTOR__V24*/ meltfptr[23]); MELT_LOCATION("warmelt-macro.melt:4849:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1865*/ meltfptr[1864])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1771__MEXPAND_DEFSELECTOR#18", NULL != (/*_.CLASS_KEYWORD__V22*/ meltfptr[21])); ((meltroutine_ptr_t)/*_._VALROUT___V1865*/ meltfptr[1864])->tabval[18] = (melt_ptr_t)(/*_.CLASS_KEYWORD__V22*/ meltfptr[21]); MELT_LOCATION("warmelt-macro.melt:4849:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1865*/ meltfptr[1864])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1771__MEXPAND_DEFSELECTOR#19", NULL != (/*_._VALDATA___V1858*/ meltfptr[1857])); ((meltroutine_ptr_t)/*_._VALROUT___V1865*/ meltfptr[1864])->tabval[19] = (melt_ptr_t)(/*_._VALDATA___V1858*/ meltfptr[1857]); MELT_LOCATION("warmelt-macro.melt:4849:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1865*/ meltfptr[1864])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1771__MEXPAND_DEFSELECTOR#20", NULL != (/*_._VALDATA___V1817*/ meltfptr[1816])); ((meltroutine_ptr_t)/*_._VALROUT___V1865*/ meltfptr[1864])->tabval[20] = (melt_ptr_t)(/*_._VALDATA___V1817*/ meltfptr[1816]); MELT_LOCATION("warmelt-macro.melt:4849:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1865*/ meltfptr[1864])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1771__MEXPAND_DEFSELECTOR#21", NULL != (/*_._VALDATA___V1763*/ meltfptr[1762])); ((meltroutine_ptr_t)/*_._VALROUT___V1865*/ meltfptr[1864])->tabval[21] = (melt_ptr_t)(/*_._VALDATA___V1763*/ meltfptr[1762]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1773__FORMALS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1866*/ meltfptr[1865])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1773__FORMALS @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1866*/ meltfptr[1865])))); ((meltobject_ptr_t)(/*_._VALDATA___V1866*/ meltfptr[1865]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1867*/ meltfptr[1866]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1866*/ meltfptr[1865]); melt_dbgtrace_written_object (/*_._VALDATA___V1866*/ meltfptr[1865], "new static instance"); MELT_LOCATION("warmelt-macro.melt:4849:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1865*/ meltfptr[1864])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1771__MEXPAND_DEFSELECTOR#22", NULL != (/*_._VALDATA___V1866*/ meltfptr[1865])); ((meltroutine_ptr_t)/*_._VALROUT___V1865*/ meltfptr[1864])->tabval[22] = (melt_ptr_t)(/*_._VALDATA___V1866*/ meltfptr[1865]); MELT_LOCATION("warmelt-macro.melt:4849:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1865*/ meltfptr[1864])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1611*/ meltfptr[1610]); ((meltroutine_ptr_t)/*_._VALROUT___V1865*/ meltfptr[1864])->tabval[23] = (melt_ptr_t)(/*_._VALCLO___V1611*/ meltfptr[1610]); MELT_LOCATION("warmelt-macro.melt:4849:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1865*/ meltfptr[1864])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1771__MEXPAND_DEFSELECTOR#24", NULL != (/*_._VALDATA___V1781*/ meltfptr[1780])); ((meltroutine_ptr_t)/*_._VALROUT___V1865*/ meltfptr[1864])->tabval[24] = (melt_ptr_t)(/*_._VALDATA___V1781*/ meltfptr[1780]); MELT_LOCATION("warmelt-macro.melt:4849:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1865*/ meltfptr[1864])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1771__MEXPAND_DEFSELECTOR#25", NULL != (/*_.CLASS_FORMAL_BINDING__V49*/ meltfptr[48])); ((meltroutine_ptr_t)/*_._VALROUT___V1865*/ meltfptr[1864])->tabval[25] = (melt_ptr_t)(/*_.CLASS_FORMAL_BINDING__V49*/ meltfptr[48]); MELT_LOCATION("warmelt-macro.melt:4849:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1865*/ meltfptr[1864])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1771__MEXPAND_DEFSELECTOR#26", NULL != (/*_.CTYPE_VALUE__V61*/ meltfptr[60])); ((meltroutine_ptr_t)/*_._VALROUT___V1865*/ meltfptr[1864])->tabval[26] = (melt_ptr_t)(/*_.CTYPE_VALUE__V61*/ meltfptr[60]); MELT_LOCATION("warmelt-macro.melt:4849:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1865*/ meltfptr[1864])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1854*/ meltfptr[1853]); ((meltroutine_ptr_t)/*_._VALROUT___V1865*/ meltfptr[1864])->tabval[27] = (melt_ptr_t)(/*_._VALCLO___V1854*/ meltfptr[1853]); MELT_LOCATION("warmelt-macro.melt:4849:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1865*/ meltfptr[1864])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1771__MEXPAND_DEFSELECTOR#28", NULL != (/*_.LIST_TO_MULTIPLE__V12*/ meltfptr[11])); ((meltroutine_ptr_t)/*_._VALROUT___V1865*/ meltfptr[1864])->tabval[28] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V12*/ meltfptr[11]); MELT_LOCATION("warmelt-macro.melt:4849:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1865*/ meltfptr[1864])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1771__MEXPAND_DEFSELECTOR#29", NULL != (/*_.DISCR_MULTIPLE__V13*/ meltfptr[12])); ((meltroutine_ptr_t)/*_._VALROUT___V1865*/ meltfptr[1864])->tabval[29] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V13*/ meltfptr[12]); MELT_LOCATION("warmelt-macro.melt:4849:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1865*/ meltfptr[1864])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V949*/ meltfptr[948]); ((meltroutine_ptr_t)/*_._VALROUT___V1865*/ meltfptr[1864])->tabval[30] = (melt_ptr_t)(/*_._VALDATA___V949*/ meltfptr[948]); MELT_LOCATION("warmelt-macro.melt:4849:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1865*/ meltfptr[1864]); #undef meltfram__ } /*end of meltmod__WARMELTmiMACRO__initialmeltchunk_38*/ void meltmod__WARMELTmiMACRO__initialmeltchunk_39 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; /*putclosurout#64*/ melt_assertmsg("putclosrout#64 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1868*/ meltfptr[1867])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#64 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1865*/ meltfptr[1864])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1868*/ meltfptr[1867])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1865*/ meltfptr[1864]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1868*/ meltfptr[1867]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1775__DEFSELECTOR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1869*/ meltfptr[1868])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1775__DEFSELECTOR @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1869*/ meltfptr[1868])))); ((meltobject_ptr_t)(/*_._VALDATA___V1869*/ meltfptr[1868]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1870*/ meltfptr[1869]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1869*/ meltfptr[1868]); melt_dbgtrace_written_object (/*_._VALDATA___V1869*/ meltfptr[1868], "new static instance"); MELT_LOCATION("warmelt-macro.melt:4994:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1871*/ meltfptr[1870])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1777__MEXPAND_INSTANCE#0", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V1871*/ meltfptr[1870])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:4994:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1871*/ meltfptr[1870])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1777__MEXPAND_INSTANCE#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1871*/ meltfptr[1870])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:4994:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1871*/ meltfptr[1870])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1777__MEXPAND_INSTANCE#2", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V1871*/ meltfptr[1870])->tabval[2] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:4994:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1871*/ meltfptr[1870])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1777__MEXPAND_INSTANCE#3", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1871*/ meltfptr[1870])->tabval[3] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:4994:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1871*/ meltfptr[1870])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1777__MEXPAND_INSTANCE#4", NULL != (/*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V1871*/ meltfptr[1870])->tabval[4] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-macro.melt:4994:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1871*/ meltfptr[1870])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1777__MEXPAND_INSTANCE#5", NULL != (/*_.FIND_ENV__V31*/ meltfptr[30])); ((meltroutine_ptr_t)/*_._VALROUT___V1871*/ meltfptr[1870])->tabval[5] = (melt_ptr_t)(/*_.FIND_ENV__V31*/ meltfptr[30]); MELT_LOCATION("warmelt-macro.melt:4994:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1871*/ meltfptr[1870])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1777__MEXPAND_INSTANCE#6", NULL != (/*_.DISCR_LIST__V34*/ meltfptr[33])); ((meltroutine_ptr_t)/*_._VALROUT___V1871*/ meltfptr[1870])->tabval[6] = (melt_ptr_t)(/*_.DISCR_LIST__V34*/ meltfptr[33]); MELT_LOCATION("warmelt-macro.melt:4994:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1871*/ meltfptr[1870])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1777__MEXPAND_INSTANCE#7", NULL != (/*_.CLASS_NAMED__V23*/ meltfptr[22])); ((meltroutine_ptr_t)/*_._VALROUT___V1871*/ meltfptr[1870])->tabval[7] = (melt_ptr_t)(/*_.CLASS_NAMED__V23*/ meltfptr[22]); MELT_LOCATION("warmelt-macro.melt:4994:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1871*/ meltfptr[1870])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1777__MEXPAND_INSTANCE#8", NULL != (/*_.CLASS_CLASS_BINDING__V71*/ meltfptr[70])); ((meltroutine_ptr_t)/*_._VALROUT___V1871*/ meltfptr[1870])->tabval[8] = (melt_ptr_t)(/*_.CLASS_CLASS_BINDING__V71*/ meltfptr[70]); MELT_LOCATION("warmelt-macro.melt:4994:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1871*/ meltfptr[1870])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1777__MEXPAND_INSTANCE#9", NULL != (/*_.CLASS_VALUE_BINDING__V51*/ meltfptr[50])); ((meltroutine_ptr_t)/*_._VALROUT___V1871*/ meltfptr[1870])->tabval[9] = (melt_ptr_t)(/*_.CLASS_VALUE_BINDING__V51*/ meltfptr[50]); MELT_LOCATION("warmelt-macro.melt:4994:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1871*/ meltfptr[1870])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1777__MEXPAND_INSTANCE#10", NULL != (/*_.CLASS_CLASS__V72*/ meltfptr[71])); ((meltroutine_ptr_t)/*_._VALROUT___V1871*/ meltfptr[1870])->tabval[10] = (melt_ptr_t)(/*_.CLASS_CLASS__V72*/ meltfptr[71]); MELT_LOCATION("warmelt-macro.melt:4994:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1871*/ meltfptr[1870])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V306*/ meltfptr[305]); ((meltroutine_ptr_t)/*_._VALROUT___V1871*/ meltfptr[1870])->tabval[11] = (melt_ptr_t)(/*_._VALCLO___V306*/ meltfptr[305]); MELT_LOCATION("warmelt-macro.melt:4994:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1871*/ meltfptr[1870])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1777__MEXPAND_INSTANCE#12", NULL != (/*_.CLASS_KEYWORD__V22*/ meltfptr[21])); ((meltroutine_ptr_t)/*_._VALROUT___V1871*/ meltfptr[1870])->tabval[12] = (melt_ptr_t)(/*_.CLASS_KEYWORD__V22*/ meltfptr[21]); MELT_LOCATION("warmelt-macro.melt:4994:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1871*/ meltfptr[1870])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1854*/ meltfptr[1853]); ((meltroutine_ptr_t)/*_._VALROUT___V1871*/ meltfptr[1870])->tabval[13] = (melt_ptr_t)(/*_._VALCLO___V1854*/ meltfptr[1853]); MELT_LOCATION("warmelt-macro.melt:4994:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1871*/ meltfptr[1870])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1777__MEXPAND_INSTANCE#14", NULL != (/*_.LIST_TO_MULTIPLE__V12*/ meltfptr[11])); ((meltroutine_ptr_t)/*_._VALROUT___V1871*/ meltfptr[1870])->tabval[14] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V12*/ meltfptr[11]); MELT_LOCATION("warmelt-macro.melt:4994:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1871*/ meltfptr[1870])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1777__MEXPAND_INSTANCE#15", NULL != (/*_.DISCR_MULTIPLE__V13*/ meltfptr[12])); ((meltroutine_ptr_t)/*_._VALROUT___V1871*/ meltfptr[1870])->tabval[15] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V13*/ meltfptr[12]); MELT_LOCATION("warmelt-macro.melt:4994:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1871*/ meltfptr[1870])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V973*/ meltfptr[972]); ((meltroutine_ptr_t)/*_._VALROUT___V1871*/ meltfptr[1870])->tabval[16] = (melt_ptr_t)(/*_._VALDATA___V973*/ meltfptr[972]); MELT_LOCATION("warmelt-macro.melt:4994:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1871*/ meltfptr[1870]); /*putclosurout#65*/ melt_assertmsg("putclosrout#65 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1872*/ meltfptr[1871])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#65 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1871*/ meltfptr[1870])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1872*/ meltfptr[1871])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1871*/ meltfptr[1870]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1872*/ meltfptr[1871]); MELT_LOCATION("warmelt-macro.melt:5059:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1873*/ meltfptr[1872])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1779__MEXPAND_LOAD#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1873*/ meltfptr[1872])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:5059:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1873*/ meltfptr[1872])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1779__MEXPAND_LOAD#1", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V1873*/ meltfptr[1872])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:5059:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1873*/ meltfptr[1872])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1779__MEXPAND_LOAD#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1873*/ meltfptr[1872])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:5059:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1873*/ meltfptr[1872])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1779__MEXPAND_LOAD#3", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V1873*/ meltfptr[1872])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:5059:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1873*/ meltfptr[1872])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1779__MEXPAND_LOAD#4", NULL != (/*_.CLASS_NAMED__V23*/ meltfptr[22])); ((meltroutine_ptr_t)/*_._VALROUT___V1873*/ meltfptr[1872])->tabval[4] = (melt_ptr_t)(/*_.CLASS_NAMED__V23*/ meltfptr[22]); MELT_LOCATION("warmelt-macro.melt:5059:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1873*/ meltfptr[1872])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1724*/ meltfptr[1723]); ((meltroutine_ptr_t)/*_._VALROUT___V1873*/ meltfptr[1872])->tabval[5] = (melt_ptr_t)(/*_._VALCLO___V1724*/ meltfptr[1723]); MELT_LOCATION("warmelt-macro.melt:5059:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1873*/ meltfptr[1872])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1779__MEXPAND_LOAD#6", NULL != (/*_.LIST_TO_MULTIPLE__V12*/ meltfptr[11])); ((meltroutine_ptr_t)/*_._VALROUT___V1873*/ meltfptr[1872])->tabval[6] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V12*/ meltfptr[11]); MELT_LOCATION("warmelt-macro.melt:5059:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1873*/ meltfptr[1872])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1779__MEXPAND_LOAD#7", NULL != (/*_.DISCR_MULTIPLE__V13*/ meltfptr[12])); ((meltroutine_ptr_t)/*_._VALROUT___V1873*/ meltfptr[1872])->tabval[7] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V13*/ meltfptr[12]); MELT_LOCATION("warmelt-macro.melt:5059:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1873*/ meltfptr[1872]); /*putclosurout#66*/ melt_assertmsg("putclosrout#66 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1874*/ meltfptr[1873])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#66 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1873*/ meltfptr[1872])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1874*/ meltfptr[1873])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1873*/ meltfptr[1872]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1874*/ meltfptr[1873]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1781__LOAD @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1875*/ meltfptr[1874])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1781__LOAD @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1875*/ meltfptr[1874])))); ((meltobject_ptr_t)(/*_._VALDATA___V1875*/ meltfptr[1874]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1876*/ meltfptr[1875]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1875*/ meltfptr[1874]); melt_dbgtrace_written_object (/*_._VALDATA___V1875*/ meltfptr[1874], "new static instance"); MELT_LOCATION("warmelt-macro.melt:5104:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1877*/ meltfptr[1876])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1783__MEXPAND_SKIP_NIL#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1877*/ meltfptr[1876])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:5104:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1877*/ meltfptr[1876])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1783__MEXPAND_SKIP_NIL#1", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V1877*/ meltfptr[1876])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:5104:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1877*/ meltfptr[1876])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1783__MEXPAND_SKIP_NIL#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1877*/ meltfptr[1876])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:5104:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1877*/ meltfptr[1876])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1783__MEXPAND_SKIP_NIL#3", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V1877*/ meltfptr[1876])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:5104:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1877*/ meltfptr[1876])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1783__MEXPAND_SKIP_NIL#4", NULL != (/*_.DISCR_LIST__V34*/ meltfptr[33])); ((meltroutine_ptr_t)/*_._VALROUT___V1877*/ meltfptr[1876])->tabval[4] = (melt_ptr_t)(/*_.DISCR_LIST__V34*/ meltfptr[33]); MELT_LOCATION("warmelt-macro.melt:5104:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1877*/ meltfptr[1876])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1589*/ meltfptr[1588]); ((meltroutine_ptr_t)/*_._VALROUT___V1877*/ meltfptr[1876])->tabval[5] = (melt_ptr_t)(/*_._VALCLO___V1589*/ meltfptr[1588]); MELT_LOCATION("warmelt-macro.melt:5104:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1877*/ meltfptr[1876])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1783__MEXPAND_SKIP_NIL#6", NULL != (/*_.LIST_TO_MULTIPLE__V12*/ meltfptr[11])); ((meltroutine_ptr_t)/*_._VALROUT___V1877*/ meltfptr[1876])->tabval[6] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V12*/ meltfptr[11]); MELT_LOCATION("warmelt-macro.melt:5104:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1877*/ meltfptr[1876])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1783__MEXPAND_SKIP_NIL#7", NULL != (/*_.DISCR_MULTIPLE__V13*/ meltfptr[12])); ((meltroutine_ptr_t)/*_._VALROUT___V1877*/ meltfptr[1876])->tabval[7] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V13*/ meltfptr[12]); MELT_LOCATION("warmelt-macro.melt:5104:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1877*/ meltfptr[1876]); /*putclosurout#67*/ melt_assertmsg("putclosrout#67 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1878*/ meltfptr[1877])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#67 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1877*/ meltfptr[1876])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1878*/ meltfptr[1877])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1877*/ meltfptr[1876]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1878*/ meltfptr[1877]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1785__SKIP_NIL @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1879*/ meltfptr[1878])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1785__SKIP_NIL @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1879*/ meltfptr[1878])))); ((meltobject_ptr_t)(/*_._VALDATA___V1879*/ meltfptr[1878]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1880*/ meltfptr[1879]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1879*/ meltfptr[1878]); melt_dbgtrace_written_object (/*_._VALDATA___V1879*/ meltfptr[1878], "new static instance"); MELT_LOCATION("warmelt-macro.melt:5138:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1881*/ meltfptr[1880])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1787__PARSE_FIELD_PATTERN#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1881*/ meltfptr[1880])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:5138:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1881*/ meltfptr[1880])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1787__PARSE_FIELD_PATTERN#1", NULL != (/*_.CLASS_KEYWORD__V22*/ meltfptr[21])); ((meltroutine_ptr_t)/*_._VALROUT___V1881*/ meltfptr[1880])->tabval[1] = (melt_ptr_t)(/*_.CLASS_KEYWORD__V22*/ meltfptr[21]); MELT_LOCATION("warmelt-macro.melt:5138:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1881*/ meltfptr[1880])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1787__PARSE_FIELD_PATTERN#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1881*/ meltfptr[1880])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:5138:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1881*/ meltfptr[1880])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1787__PARSE_FIELD_PATTERN#3", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V1881*/ meltfptr[1880])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:5138:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1881*/ meltfptr[1880])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1671*/ meltfptr[1670]); ((meltroutine_ptr_t)/*_._VALROUT___V1881*/ meltfptr[1880])->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V1671*/ meltfptr[1670]); MELT_LOCATION("warmelt-macro.melt:5138:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1881*/ meltfptr[1880])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1787__PARSE_FIELD_PATTERN#5", NULL != (/*_.CLASS_CLASS__V72*/ meltfptr[71])); ((meltroutine_ptr_t)/*_._VALROUT___V1881*/ meltfptr[1880])->tabval[5] = (melt_ptr_t)(/*_.CLASS_CLASS__V72*/ meltfptr[71]); MELT_LOCATION("warmelt-macro.melt:5138:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1881*/ meltfptr[1880])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1787__PARSE_FIELD_PATTERN#6", NULL != (/*_.CLASS_REFERENCE__V56*/ meltfptr[55])); ((meltroutine_ptr_t)/*_._VALROUT___V1881*/ meltfptr[1880])->tabval[6] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V56*/ meltfptr[55]); MELT_LOCATION("warmelt-macro.melt:5138:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1881*/ meltfptr[1880])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1692*/ meltfptr[1691]); ((meltroutine_ptr_t)/*_._VALROUT___V1881*/ meltfptr[1880])->tabval[7] = (melt_ptr_t)(/*_._VALCLO___V1692*/ meltfptr[1691]); MELT_LOCATION("warmelt-macro.melt:5138:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1881*/ meltfptr[1880])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1787__PARSE_FIELD_PATTERN#8", NULL != (/*_.MULTIPLE_ITERATE_TEST__V76*/ meltfptr[75])); ((meltroutine_ptr_t)/*_._VALROUT___V1881*/ meltfptr[1880])->tabval[8] = (melt_ptr_t)(/*_.MULTIPLE_ITERATE_TEST__V76*/ meltfptr[75]); MELT_LOCATION("warmelt-macro.melt:5138:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1881*/ meltfptr[1880])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1787__PARSE_FIELD_PATTERN#9", NULL != (/*_.CLASS_FIELD__V36*/ meltfptr[35])); ((meltroutine_ptr_t)/*_._VALROUT___V1881*/ meltfptr[1880])->tabval[9] = (melt_ptr_t)(/*_.CLASS_FIELD__V36*/ meltfptr[35]); MELT_LOCATION("warmelt-macro.melt:5138:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1881*/ meltfptr[1880])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1787__PARSE_FIELD_PATTERN#10", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1881*/ meltfptr[1880])->tabval[10] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:5138:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1881*/ meltfptr[1880])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1787__PARSE_FIELD_PATTERN#11", NULL != (/*_.CLASS_REFERENCE__V56*/ meltfptr[55])); ((meltroutine_ptr_t)/*_._VALROUT___V1881*/ meltfptr[1880])->tabval[11] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V56*/ meltfptr[55]); MELT_LOCATION("warmelt-macro.melt:5153:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1882*/ meltfptr[1881])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1789__LAMBDA_#0", NULL != (/*_.CLASS_FIELD__V36*/ meltfptr[35])); ((meltroutine_ptr_t)/*_._VALROUT___V1882*/ meltfptr[1881])->tabval[0] = (melt_ptr_t)(/*_.CLASS_FIELD__V36*/ meltfptr[35]); MELT_LOCATION("warmelt-macro.melt:5153:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1882*/ meltfptr[1881])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1789__LAMBDA_#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1882*/ meltfptr[1881])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:5153:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1882*/ meltfptr[1881])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1789__LAMBDA_#2", NULL != (/*_.CLASS_REFERENCE__V56*/ meltfptr[55])); ((meltroutine_ptr_t)/*_._VALROUT___V1882*/ meltfptr[1881])->tabval[2] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V56*/ meltfptr[55]); MELT_LOCATION("warmelt-macro.melt:5153:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1882*/ meltfptr[1881]); MELT_LOCATION("warmelt-macro.melt:5138:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1881*/ meltfptr[1880])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1787__PARSE_FIELD_PATTERN#12", NULL != (/*_._VALROUT___V1882*/ meltfptr[1881])); ((meltroutine_ptr_t)/*_._VALROUT___V1881*/ meltfptr[1880])->tabval[12] = (melt_ptr_t)(/*_._VALROUT___V1882*/ meltfptr[1881]); MELT_LOCATION("warmelt-macro.melt:5138:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1881*/ meltfptr[1880])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1787__PARSE_FIELD_PATTERN#13", NULL != (/*_.CLASS_FIELD__V36*/ meltfptr[35])); ((meltroutine_ptr_t)/*_._VALROUT___V1881*/ meltfptr[1880])->tabval[13] = (melt_ptr_t)(/*_.CLASS_FIELD__V36*/ meltfptr[35]); MELT_LOCATION("warmelt-macro.melt:5138:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1881*/ meltfptr[1880])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V306*/ meltfptr[305]); ((meltroutine_ptr_t)/*_._VALROUT___V1881*/ meltfptr[1880])->tabval[14] = (melt_ptr_t)(/*_._VALCLO___V306*/ meltfptr[305]); MELT_LOCATION("warmelt-macro.melt:5138:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1881*/ meltfptr[1880])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1513*/ meltfptr[1512]); ((meltroutine_ptr_t)/*_._VALROUT___V1881*/ meltfptr[1880])->tabval[15] = (melt_ptr_t)(/*_._VALDATA___V1513*/ meltfptr[1512]); MELT_LOCATION("warmelt-macro.melt:5138:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1881*/ meltfptr[1880]); /*putclosurout#68*/ melt_assertmsg("putclosrout#68 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1883*/ meltfptr[1882])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#68 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1881*/ meltfptr[1880])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1883*/ meltfptr[1882])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1881*/ meltfptr[1880]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1883*/ meltfptr[1882]); MELT_LOCATION("warmelt-macro.melt:5181:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1884*/ meltfptr[1883])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1790__PATEXPAND_INSTANCE#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1884*/ meltfptr[1883])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:5181:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1884*/ meltfptr[1883])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1790__PATEXPAND_INSTANCE#1", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V1884*/ meltfptr[1883])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:5181:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1884*/ meltfptr[1883])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1790__PATEXPAND_INSTANCE#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1884*/ meltfptr[1883])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:5181:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1884*/ meltfptr[1883])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1790__PATEXPAND_INSTANCE#3", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V1884*/ meltfptr[1883])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:5181:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1884*/ meltfptr[1883])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1671*/ meltfptr[1670]); ((meltroutine_ptr_t)/*_._VALROUT___V1884*/ meltfptr[1883])->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V1671*/ meltfptr[1670]); MELT_LOCATION("warmelt-macro.melt:5181:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1884*/ meltfptr[1883])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1790__PATEXPAND_INSTANCE#5", NULL != (/*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V1884*/ meltfptr[1883])->tabval[5] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-macro.melt:5181:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1884*/ meltfptr[1883])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1790__PATEXPAND_INSTANCE#6", NULL != (/*_.FIND_ENV__V31*/ meltfptr[30])); ((meltroutine_ptr_t)/*_._VALROUT___V1884*/ meltfptr[1883])->tabval[6] = (melt_ptr_t)(/*_.FIND_ENV__V31*/ meltfptr[30]); MELT_LOCATION("warmelt-macro.melt:5181:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1884*/ meltfptr[1883])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1790__PATEXPAND_INSTANCE#7", NULL != (/*_.DISCR_LIST__V34*/ meltfptr[33])); ((meltroutine_ptr_t)/*_._VALROUT___V1884*/ meltfptr[1883])->tabval[7] = (melt_ptr_t)(/*_.DISCR_LIST__V34*/ meltfptr[33]); MELT_LOCATION("warmelt-macro.melt:5181:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1884*/ meltfptr[1883])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1790__PATEXPAND_INSTANCE#8", NULL != (/*_.CLASS_NAMED__V23*/ meltfptr[22])); ((meltroutine_ptr_t)/*_._VALROUT___V1884*/ meltfptr[1883])->tabval[8] = (melt_ptr_t)(/*_.CLASS_NAMED__V23*/ meltfptr[22]); MELT_LOCATION("warmelt-macro.melt:5181:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1884*/ meltfptr[1883])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1790__PATEXPAND_INSTANCE#9", NULL != (/*_.CLASS_CLASS_BINDING__V71*/ meltfptr[70])); ((meltroutine_ptr_t)/*_._VALROUT___V1884*/ meltfptr[1883])->tabval[9] = (melt_ptr_t)(/*_.CLASS_CLASS_BINDING__V71*/ meltfptr[70]); MELT_LOCATION("warmelt-macro.melt:5181:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1884*/ meltfptr[1883])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1790__PATEXPAND_INSTANCE#10", NULL != (/*_.CLASS_VALUE_BINDING__V51*/ meltfptr[50])); ((meltroutine_ptr_t)/*_._VALROUT___V1884*/ meltfptr[1883])->tabval[10] = (melt_ptr_t)(/*_.CLASS_VALUE_BINDING__V51*/ meltfptr[50]); MELT_LOCATION("warmelt-macro.melt:5181:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1884*/ meltfptr[1883])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1790__PATEXPAND_INSTANCE#11", NULL != (/*_.CLASS_CLASS__V72*/ meltfptr[71])); ((meltroutine_ptr_t)/*_._VALROUT___V1884*/ meltfptr[1883])->tabval[11] = (melt_ptr_t)(/*_.CLASS_CLASS__V72*/ meltfptr[71]); MELT_LOCATION("warmelt-macro.melt:5181:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1884*/ meltfptr[1883])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V306*/ meltfptr[305]); ((meltroutine_ptr_t)/*_._VALROUT___V1884*/ meltfptr[1883])->tabval[12] = (melt_ptr_t)(/*_._VALCLO___V306*/ meltfptr[305]); MELT_LOCATION("warmelt-macro.melt:5181:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1884*/ meltfptr[1883])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1790__PATEXPAND_INSTANCE#13", NULL != (/*_.CLASS_KEYWORD__V22*/ meltfptr[21])); ((meltroutine_ptr_t)/*_._VALROUT___V1884*/ meltfptr[1883])->tabval[13] = (melt_ptr_t)(/*_.CLASS_KEYWORD__V22*/ meltfptr[21]); MELT_LOCATION("warmelt-macro.melt:5181:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1884*/ meltfptr[1883])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1883*/ meltfptr[1882]); ((meltroutine_ptr_t)/*_._VALROUT___V1884*/ meltfptr[1883])->tabval[14] = (melt_ptr_t)(/*_._VALCLO___V1883*/ meltfptr[1882]); MELT_LOCATION("warmelt-macro.melt:5181:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1884*/ meltfptr[1883])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1790__PATEXPAND_INSTANCE#15", NULL != (/*_.LIST_TO_MULTIPLE__V12*/ meltfptr[11])); ((meltroutine_ptr_t)/*_._VALROUT___V1884*/ meltfptr[1883])->tabval[15] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V12*/ meltfptr[11]); MELT_LOCATION("warmelt-macro.melt:5181:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1884*/ meltfptr[1883])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1790__PATEXPAND_INSTANCE#16", NULL != (/*_.DISCR_MULTIPLE__V13*/ meltfptr[12])); ((meltroutine_ptr_t)/*_._VALROUT___V1884*/ meltfptr[1883])->tabval[16] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V13*/ meltfptr[12]); MELT_LOCATION("warmelt-macro.melt:5181:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1884*/ meltfptr[1883])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1790__PATEXPAND_INSTANCE#17", NULL != (/*_.MULTIPLE_MAP__V57*/ meltfptr[56])); ((meltroutine_ptr_t)/*_._VALROUT___V1884*/ meltfptr[1883])->tabval[17] = (melt_ptr_t)(/*_.MULTIPLE_MAP__V57*/ meltfptr[56]); MELT_LOCATION("warmelt-macro.melt:5181:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1884*/ meltfptr[1883])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1513*/ meltfptr[1512]); ((meltroutine_ptr_t)/*_._VALROUT___V1884*/ meltfptr[1883])->tabval[18] = (melt_ptr_t)(/*_._VALDATA___V1513*/ meltfptr[1512]); MELT_LOCATION("warmelt-macro.melt:5240:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1885*/ meltfptr[1884])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1513*/ meltfptr[1512]); ((meltroutine_ptr_t)/*_._VALROUT___V1885*/ meltfptr[1884])->tabval[0] = (melt_ptr_t)(/*_._VALDATA___V1513*/ meltfptr[1512]); MELT_LOCATION("warmelt-macro.melt:5240:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1885*/ meltfptr[1884]); MELT_LOCATION("warmelt-macro.melt:5181:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1884*/ meltfptr[1883])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1790__PATEXPAND_INSTANCE#19", NULL != (/*_._VALROUT___V1885*/ meltfptr[1884])); ((meltroutine_ptr_t)/*_._VALROUT___V1884*/ meltfptr[1883])->tabval[19] = (melt_ptr_t)(/*_._VALROUT___V1885*/ meltfptr[1884]); MELT_LOCATION("warmelt-macro.melt:5181:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1884*/ meltfptr[1883])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1507*/ meltfptr[1506]); ((meltroutine_ptr_t)/*_._VALROUT___V1884*/ meltfptr[1883])->tabval[20] = (melt_ptr_t)(/*_._VALDATA___V1507*/ meltfptr[1506]); MELT_LOCATION("warmelt-macro.melt:5181:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1884*/ meltfptr[1883])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1707*/ meltfptr[1706]); ((meltroutine_ptr_t)/*_._VALROUT___V1884*/ meltfptr[1883])->tabval[21] = (melt_ptr_t)(/*_._VALCLO___V1707*/ meltfptr[1706]); MELT_LOCATION("warmelt-macro.melt:5181:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1884*/ meltfptr[1883])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1790__PATEXPAND_INSTANCE#22", NULL != (/*_.DISCR_CONSTANT_INTEGER__V27*/ meltfptr[26])); ((meltroutine_ptr_t)/*_._VALROUT___V1884*/ meltfptr[1883])->tabval[22] = (melt_ptr_t)(/*_.DISCR_CONSTANT_INTEGER__V27*/ meltfptr[26]); MELT_LOCATION("warmelt-macro.melt:5181:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1884*/ meltfptr[1883]); /*putclosurout#69*/ melt_assertmsg("putclosrout#69 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1886*/ meltfptr[1885])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#69 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1884*/ meltfptr[1883])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1886*/ meltfptr[1885])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1884*/ meltfptr[1883]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1886*/ meltfptr[1885]); MELT_LOCATION("warmelt-macro.melt:5276:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1887*/ meltfptr[1886])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1793__PATEXPAND_OBJECT#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1887*/ meltfptr[1886])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:5276:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1887*/ meltfptr[1886])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1793__PATEXPAND_OBJECT#1", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V1887*/ meltfptr[1886])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:5276:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1887*/ meltfptr[1886])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1793__PATEXPAND_OBJECT#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1887*/ meltfptr[1886])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:5276:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1887*/ meltfptr[1886])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1793__PATEXPAND_OBJECT#3", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V1887*/ meltfptr[1886])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:5276:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1887*/ meltfptr[1886])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1671*/ meltfptr[1670]); ((meltroutine_ptr_t)/*_._VALROUT___V1887*/ meltfptr[1886])->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V1671*/ meltfptr[1670]); MELT_LOCATION("warmelt-macro.melt:5276:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1887*/ meltfptr[1886])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1793__PATEXPAND_OBJECT#5", NULL != (/*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V1887*/ meltfptr[1886])->tabval[5] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-macro.melt:5276:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1887*/ meltfptr[1886])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1793__PATEXPAND_OBJECT#6", NULL != (/*_.FIND_ENV__V31*/ meltfptr[30])); ((meltroutine_ptr_t)/*_._VALROUT___V1887*/ meltfptr[1886])->tabval[6] = (melt_ptr_t)(/*_.FIND_ENV__V31*/ meltfptr[30]); MELT_LOCATION("warmelt-macro.melt:5276:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1887*/ meltfptr[1886])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1793__PATEXPAND_OBJECT#7", NULL != (/*_.DISCR_LIST__V34*/ meltfptr[33])); ((meltroutine_ptr_t)/*_._VALROUT___V1887*/ meltfptr[1886])->tabval[7] = (melt_ptr_t)(/*_.DISCR_LIST__V34*/ meltfptr[33]); MELT_LOCATION("warmelt-macro.melt:5276:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1887*/ meltfptr[1886])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1793__PATEXPAND_OBJECT#8", NULL != (/*_.CLASS_NAMED__V23*/ meltfptr[22])); ((meltroutine_ptr_t)/*_._VALROUT___V1887*/ meltfptr[1886])->tabval[8] = (melt_ptr_t)(/*_.CLASS_NAMED__V23*/ meltfptr[22]); MELT_LOCATION("warmelt-macro.melt:5276:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1887*/ meltfptr[1886])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1793__PATEXPAND_OBJECT#9", NULL != (/*_.CLASS_CLASS_BINDING__V71*/ meltfptr[70])); ((meltroutine_ptr_t)/*_._VALROUT___V1887*/ meltfptr[1886])->tabval[9] = (melt_ptr_t)(/*_.CLASS_CLASS_BINDING__V71*/ meltfptr[70]); MELT_LOCATION("warmelt-macro.melt:5276:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1887*/ meltfptr[1886])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1793__PATEXPAND_OBJECT#10", NULL != (/*_.CLASS_VALUE_BINDING__V51*/ meltfptr[50])); ((meltroutine_ptr_t)/*_._VALROUT___V1887*/ meltfptr[1886])->tabval[10] = (melt_ptr_t)(/*_.CLASS_VALUE_BINDING__V51*/ meltfptr[50]); MELT_LOCATION("warmelt-macro.melt:5276:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1887*/ meltfptr[1886])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1793__PATEXPAND_OBJECT#11", NULL != (/*_.CLASS_CLASS__V72*/ meltfptr[71])); ((meltroutine_ptr_t)/*_._VALROUT___V1887*/ meltfptr[1886])->tabval[11] = (melt_ptr_t)(/*_.CLASS_CLASS__V72*/ meltfptr[71]); MELT_LOCATION("warmelt-macro.melt:5276:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1887*/ meltfptr[1886])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1793__PATEXPAND_OBJECT#12", NULL != (/*_.CLASS_KEYWORD__V22*/ meltfptr[21])); ((meltroutine_ptr_t)/*_._VALROUT___V1887*/ meltfptr[1886])->tabval[12] = (melt_ptr_t)(/*_.CLASS_KEYWORD__V22*/ meltfptr[21]); MELT_LOCATION("warmelt-macro.melt:5276:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1887*/ meltfptr[1886])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V306*/ meltfptr[305]); ((meltroutine_ptr_t)/*_._VALROUT___V1887*/ meltfptr[1886])->tabval[13] = (melt_ptr_t)(/*_._VALCLO___V306*/ meltfptr[305]); MELT_LOCATION("warmelt-macro.melt:5276:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1887*/ meltfptr[1886])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1883*/ meltfptr[1882]); ((meltroutine_ptr_t)/*_._VALROUT___V1887*/ meltfptr[1886])->tabval[14] = (melt_ptr_t)(/*_._VALCLO___V1883*/ meltfptr[1882]); MELT_LOCATION("warmelt-macro.melt:5276:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1887*/ meltfptr[1886])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1793__PATEXPAND_OBJECT#15", NULL != (/*_.LIST_TO_MULTIPLE__V12*/ meltfptr[11])); ((meltroutine_ptr_t)/*_._VALROUT___V1887*/ meltfptr[1886])->tabval[15] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V12*/ meltfptr[11]); MELT_LOCATION("warmelt-macro.melt:5276:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1887*/ meltfptr[1886])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1793__PATEXPAND_OBJECT#16", NULL != (/*_.DISCR_MULTIPLE__V13*/ meltfptr[12])); ((meltroutine_ptr_t)/*_._VALROUT___V1887*/ meltfptr[1886])->tabval[16] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V13*/ meltfptr[12]); MELT_LOCATION("warmelt-macro.melt:5276:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1887*/ meltfptr[1886])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1793__PATEXPAND_OBJECT#17", NULL != (/*_.MULTIPLE_MAP__V57*/ meltfptr[56])); ((meltroutine_ptr_t)/*_._VALROUT___V1887*/ meltfptr[1886])->tabval[17] = (melt_ptr_t)(/*_.MULTIPLE_MAP__V57*/ meltfptr[56]); MELT_LOCATION("warmelt-macro.melt:5276:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1887*/ meltfptr[1886])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1513*/ meltfptr[1512]); ((meltroutine_ptr_t)/*_._VALROUT___V1887*/ meltfptr[1886])->tabval[18] = (melt_ptr_t)(/*_._VALDATA___V1513*/ meltfptr[1512]); MELT_LOCATION("warmelt-macro.melt:5335:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1888*/ meltfptr[1887])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1513*/ meltfptr[1512]); ((meltroutine_ptr_t)/*_._VALROUT___V1888*/ meltfptr[1887])->tabval[0] = (melt_ptr_t)(/*_._VALDATA___V1513*/ meltfptr[1512]); MELT_LOCATION("warmelt-macro.melt:5335:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1888*/ meltfptr[1887]); MELT_LOCATION("warmelt-macro.melt:5276:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1887*/ meltfptr[1886])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1793__PATEXPAND_OBJECT#19", NULL != (/*_._VALROUT___V1888*/ meltfptr[1887])); ((meltroutine_ptr_t)/*_._VALROUT___V1887*/ meltfptr[1886])->tabval[19] = (melt_ptr_t)(/*_._VALROUT___V1888*/ meltfptr[1887]); MELT_LOCATION("warmelt-macro.melt:5276:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1887*/ meltfptr[1886])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1493*/ meltfptr[1492]); ((meltroutine_ptr_t)/*_._VALROUT___V1887*/ meltfptr[1886])->tabval[20] = (melt_ptr_t)(/*_._VALDATA___V1493*/ meltfptr[1492]); MELT_LOCATION("warmelt-macro.melt:5276:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1887*/ meltfptr[1886])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1707*/ meltfptr[1706]); ((meltroutine_ptr_t)/*_._VALROUT___V1887*/ meltfptr[1886])->tabval[21] = (melt_ptr_t)(/*_._VALCLO___V1707*/ meltfptr[1706]); #undef meltfram__ } /*end of meltmod__WARMELTmiMACRO__initialmeltchunk_39*/ void meltmod__WARMELTmiMACRO__initialmeltchunk_40 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; MELT_LOCATION("warmelt-macro.melt:5276:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1887*/ meltfptr[1886])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1793__PATEXPAND_OBJECT#22", NULL != (/*_.DISCR_CONSTANT_INTEGER__V27*/ meltfptr[26])); ((meltroutine_ptr_t)/*_._VALROUT___V1887*/ meltfptr[1886])->tabval[22] = (melt_ptr_t)(/*_.DISCR_CONSTANT_INTEGER__V27*/ meltfptr[26]); MELT_LOCATION("warmelt-macro.melt:5276:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1887*/ meltfptr[1886]); /*putclosurout#70*/ melt_assertmsg("putclosrout#70 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1889*/ meltfptr[1888])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#70 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1887*/ meltfptr[1886])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1889*/ meltfptr[1888])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1887*/ meltfptr[1886]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1889*/ meltfptr[1888]); MELT_LOCATION("warmelt-macro.melt:5354:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1890*/ meltfptr[1889])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1796__MEXPAND_OBJECT#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1890*/ meltfptr[1889])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:5354:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1890*/ meltfptr[1889])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1796__MEXPAND_OBJECT#1", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V1890*/ meltfptr[1889])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:5354:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1890*/ meltfptr[1889])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1796__MEXPAND_OBJECT#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1890*/ meltfptr[1889])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:5354:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1890*/ meltfptr[1889])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1796__MEXPAND_OBJECT#3", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V1890*/ meltfptr[1889])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:5354:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1890*/ meltfptr[1889]); /*putclosurout#71*/ melt_assertmsg("putclosrout#71 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1891*/ meltfptr[1890])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#71 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1890*/ meltfptr[1889])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1891*/ meltfptr[1890])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1890*/ meltfptr[1889]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1891*/ meltfptr[1890]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1798__OBJECT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1892*/ meltfptr[1891])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1798__OBJECT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1892*/ meltfptr[1891])))); ((meltobject_ptr_t)(/*_._VALDATA___V1892*/ meltfptr[1891]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1893*/ meltfptr[1892]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1892*/ meltfptr[1891]); melt_dbgtrace_written_object (/*_._VALDATA___V1892*/ meltfptr[1891], "new static instance"); MELT_LOCATION("warmelt-macro.melt:5379:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1894*/ meltfptr[1893])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1800__EXPAND_MACROSTRING_PAIRS#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1894*/ meltfptr[1893])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:5379:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1894*/ meltfptr[1893])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1800__EXPAND_MACROSTRING_PAIRS#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1894*/ meltfptr[1893])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:5379:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1894*/ meltfptr[1893])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1800__EXPAND_MACROSTRING_PAIRS#2", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V1894*/ meltfptr[1893])->tabval[2] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:5379:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1894*/ meltfptr[1893])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1800__EXPAND_MACROSTRING_PAIRS#3", NULL != (/*_.DISCR_LIST__V34*/ meltfptr[33])); ((meltroutine_ptr_t)/*_._VALROUT___V1894*/ meltfptr[1893])->tabval[3] = (melt_ptr_t)(/*_.DISCR_LIST__V34*/ meltfptr[33]); MELT_LOCATION("warmelt-macro.melt:5379:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1894*/ meltfptr[1893])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1800__EXPAND_MACROSTRING_PAIRS#4", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1894*/ meltfptr[1893])->tabval[4] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:5379:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1894*/ meltfptr[1893])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1800__EXPAND_MACROSTRING_PAIRS#5", NULL != (/*_.DISCR_VERBATIM_STRING__V66*/ meltfptr[65])); ((meltroutine_ptr_t)/*_._VALROUT___V1894*/ meltfptr[1893])->tabval[5] = (melt_ptr_t)(/*_.DISCR_VERBATIM_STRING__V66*/ meltfptr[65]); MELT_LOCATION("warmelt-macro.melt:5379:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1894*/ meltfptr[1893])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1800__EXPAND_MACROSTRING_PAIRS#6", NULL != (/*_.CLASS_SEXPR_MACROSTRING__V78*/ meltfptr[77])); ((meltroutine_ptr_t)/*_._VALROUT___V1894*/ meltfptr[1893])->tabval[6] = (melt_ptr_t)(/*_.CLASS_SEXPR_MACROSTRING__V78*/ meltfptr[77]); MELT_LOCATION("warmelt-macro.melt:5379:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1894*/ meltfptr[1893])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1800__EXPAND_MACROSTRING_PAIRS#7", NULL != (/*_.CLASS_LOCATED__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V1894*/ meltfptr[1893])->tabval[7] = (melt_ptr_t)(/*_.CLASS_LOCATED__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-macro.melt:5379:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1894*/ meltfptr[1893])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1800__EXPAND_MACROSTRING_PAIRS#8", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V1894*/ meltfptr[1893])->tabval[8] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:5387:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1895*/ meltfptr[1894])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1802__LAMBDA_#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1895*/ meltfptr[1894])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:5387:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1895*/ meltfptr[1894])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1802__LAMBDA_#1", NULL != (/*_.DISCR_VERBATIM_STRING__V66*/ meltfptr[65])); ((meltroutine_ptr_t)/*_._VALROUT___V1895*/ meltfptr[1894])->tabval[1] = (melt_ptr_t)(/*_.DISCR_VERBATIM_STRING__V66*/ meltfptr[65]); MELT_LOCATION("warmelt-macro.melt:5387:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1895*/ meltfptr[1894])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1802__LAMBDA_#2", NULL != (/*_.CLASS_SEXPR_MACROSTRING__V78*/ meltfptr[77])); ((meltroutine_ptr_t)/*_._VALROUT___V1895*/ meltfptr[1894])->tabval[2] = (melt_ptr_t)(/*_.CLASS_SEXPR_MACROSTRING__V78*/ meltfptr[77]); MELT_LOCATION("warmelt-macro.melt:5387:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1895*/ meltfptr[1894])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1802__LAMBDA_#3", NULL != (/*_.CLASS_LOCATED__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V1895*/ meltfptr[1894])->tabval[3] = (melt_ptr_t)(/*_.CLASS_LOCATED__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-macro.melt:5387:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1895*/ meltfptr[1894])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1802__LAMBDA_#4", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V1895*/ meltfptr[1894])->tabval[4] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:5387:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1895*/ meltfptr[1894]); MELT_LOCATION("warmelt-macro.melt:5379:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1894*/ meltfptr[1893])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1800__EXPAND_MACROSTRING_PAIRS#9", NULL != (/*_._VALROUT___V1895*/ meltfptr[1894])); ((meltroutine_ptr_t)/*_._VALROUT___V1894*/ meltfptr[1893])->tabval[9] = (melt_ptr_t)(/*_._VALROUT___V1895*/ meltfptr[1894]); MELT_LOCATION("warmelt-macro.melt:5379:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1894*/ meltfptr[1893])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1800__EXPAND_MACROSTRING_PAIRS#10", NULL != (/*_.LIST_TO_MULTIPLE__V12*/ meltfptr[11])); ((meltroutine_ptr_t)/*_._VALROUT___V1894*/ meltfptr[1893])->tabval[10] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V12*/ meltfptr[11]); MELT_LOCATION("warmelt-macro.melt:5379:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1894*/ meltfptr[1893])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1800__EXPAND_MACROSTRING_PAIRS#11", NULL != (/*_.DISCR_MULTIPLE__V13*/ meltfptr[12])); ((meltroutine_ptr_t)/*_._VALROUT___V1894*/ meltfptr[1893])->tabval[11] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V13*/ meltfptr[12]); MELT_LOCATION("warmelt-macro.melt:5379:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1894*/ meltfptr[1893]); /*putclosurout#72*/ melt_assertmsg("putclosrout#72 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1896*/ meltfptr[1895])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#72 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1894*/ meltfptr[1893])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1896*/ meltfptr[1895])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1894*/ meltfptr[1893]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1896*/ meltfptr[1895]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1803__CLASS_SEXPR_MACROSTRING @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1897*/ meltfptr[1896])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1803__CLASS_SEXPR_MACROSTRING @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1897*/ meltfptr[1896])))); ((meltobject_ptr_t)(/*_._VALDATA___V1897*/ meltfptr[1896]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1898*/ meltfptr[1897]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1897*/ meltfptr[1896]); melt_dbgtrace_written_object (/*_._VALDATA___V1897*/ meltfptr[1896], "new static instance"); MELT_LOCATION("warmelt-macro.melt:5429:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1899*/ meltfptr[1898])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1805__MEXPAND_CODE_CHUNK#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1899*/ meltfptr[1898])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:5429:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1899*/ meltfptr[1898])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1805__MEXPAND_CODE_CHUNK#1", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V1899*/ meltfptr[1898])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:5429:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1899*/ meltfptr[1898])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1805__MEXPAND_CODE_CHUNK#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1899*/ meltfptr[1898])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:5429:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1899*/ meltfptr[1898])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1805__MEXPAND_CODE_CHUNK#3", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V1899*/ meltfptr[1898])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:5429:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1899*/ meltfptr[1898])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1805__MEXPAND_CODE_CHUNK#4", NULL != (/*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V1899*/ meltfptr[1898])->tabval[4] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-macro.melt:5429:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1899*/ meltfptr[1898])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1896*/ meltfptr[1895]); ((meltroutine_ptr_t)/*_._VALROUT___V1899*/ meltfptr[1898])->tabval[5] = (melt_ptr_t)(/*_._VALCLO___V1896*/ meltfptr[1895]); MELT_LOCATION("warmelt-macro.melt:5429:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1899*/ meltfptr[1898])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1379*/ meltfptr[1378]); ((meltroutine_ptr_t)/*_._VALROUT___V1899*/ meltfptr[1898])->tabval[6] = (melt_ptr_t)(/*_._VALDATA___V1379*/ meltfptr[1378]); MELT_LOCATION("warmelt-macro.melt:5429:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1899*/ meltfptr[1898]); /*putclosurout#73*/ melt_assertmsg("putclosrout#73 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1900*/ meltfptr[1899])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#73 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1899*/ meltfptr[1898])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1900*/ meltfptr[1899])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1899*/ meltfptr[1898]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1900*/ meltfptr[1899]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1807__CODE_CHUNK @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1901*/ meltfptr[1900])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1807__CODE_CHUNK @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1901*/ meltfptr[1900])))); ((meltobject_ptr_t)(/*_._VALDATA___V1901*/ meltfptr[1900]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1902*/ meltfptr[1901]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1901*/ meltfptr[1900]); melt_dbgtrace_written_object (/*_._VALDATA___V1901*/ meltfptr[1900], "new static instance"); MELT_LOCATION("warmelt-macro.melt:5468:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1903*/ meltfptr[1902])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1809__MEXPAND_EXPR_CHUNK#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1903*/ meltfptr[1902])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:5468:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1903*/ meltfptr[1902])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1809__MEXPAND_EXPR_CHUNK#1", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V1903*/ meltfptr[1902])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:5468:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1903*/ meltfptr[1902])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1809__MEXPAND_EXPR_CHUNK#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1903*/ meltfptr[1902])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:5468:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1903*/ meltfptr[1902])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1809__MEXPAND_EXPR_CHUNK#3", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V1903*/ meltfptr[1902])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:5468:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1903*/ meltfptr[1902])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1809__MEXPAND_EXPR_CHUNK#4", NULL != (/*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V1903*/ meltfptr[1902])->tabval[4] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-macro.melt:5468:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1903*/ meltfptr[1902])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1809__MEXPAND_EXPR_CHUNK#5", NULL != (/*_.CLASS_KEYWORD__V22*/ meltfptr[21])); ((meltroutine_ptr_t)/*_._VALROUT___V1903*/ meltfptr[1902])->tabval[5] = (melt_ptr_t)(/*_.CLASS_KEYWORD__V22*/ meltfptr[21]); MELT_LOCATION("warmelt-macro.melt:5468:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1903*/ meltfptr[1902])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1809__MEXPAND_EXPR_CHUNK#6", NULL != (/*_.CLASS_CTYPE__V63*/ meltfptr[62])); ((meltroutine_ptr_t)/*_._VALROUT___V1903*/ meltfptr[1902])->tabval[6] = (melt_ptr_t)(/*_.CLASS_CTYPE__V63*/ meltfptr[62]); MELT_LOCATION("warmelt-macro.melt:5468:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1903*/ meltfptr[1902])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V306*/ meltfptr[305]); ((meltroutine_ptr_t)/*_._VALROUT___V1903*/ meltfptr[1902])->tabval[7] = (melt_ptr_t)(/*_._VALCLO___V306*/ meltfptr[305]); MELT_LOCATION("warmelt-macro.melt:5468:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1903*/ meltfptr[1902])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V310*/ meltfptr[309]); ((meltroutine_ptr_t)/*_._VALROUT___V1903*/ meltfptr[1902])->tabval[8] = (melt_ptr_t)(/*_._VALCLO___V310*/ meltfptr[309]); MELT_LOCATION("warmelt-macro.melt:5468:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1903*/ meltfptr[1902])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1809__MEXPAND_EXPR_CHUNK#9", NULL != (/*_.CLASS_QUASI_CTYPE__V64*/ meltfptr[63])); ((meltroutine_ptr_t)/*_._VALROUT___V1903*/ meltfptr[1902])->tabval[9] = (melt_ptr_t)(/*_.CLASS_QUASI_CTYPE__V64*/ meltfptr[63]); MELT_LOCATION("warmelt-macro.melt:5468:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1903*/ meltfptr[1902])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1809__MEXPAND_EXPR_CHUNK#10", NULL != (/*_.CLASS_NAMED__V23*/ meltfptr[22])); ((meltroutine_ptr_t)/*_._VALROUT___V1903*/ meltfptr[1902])->tabval[10] = (melt_ptr_t)(/*_.CLASS_NAMED__V23*/ meltfptr[22]); MELT_LOCATION("warmelt-macro.melt:5468:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1903*/ meltfptr[1902])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1896*/ meltfptr[1895]); ((meltroutine_ptr_t)/*_._VALROUT___V1903*/ meltfptr[1902])->tabval[11] = (melt_ptr_t)(/*_._VALCLO___V1896*/ meltfptr[1895]); MELT_LOCATION("warmelt-macro.melt:5468:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1903*/ meltfptr[1902])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1385*/ meltfptr[1384]); ((meltroutine_ptr_t)/*_._VALROUT___V1903*/ meltfptr[1902])->tabval[12] = (melt_ptr_t)(/*_._VALDATA___V1385*/ meltfptr[1384]); MELT_LOCATION("warmelt-macro.melt:5468:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1903*/ meltfptr[1902]); /*putclosurout#74*/ melt_assertmsg("putclosrout#74 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1904*/ meltfptr[1903])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#74 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1903*/ meltfptr[1902])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1904*/ meltfptr[1903])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1903*/ meltfptr[1902]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1904*/ meltfptr[1903]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1811__EXPR_CHUNK @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1905*/ meltfptr[1904])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1811__EXPR_CHUNK @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1905*/ meltfptr[1904])))); ((meltobject_ptr_t)(/*_._VALDATA___V1905*/ meltfptr[1904]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1906*/ meltfptr[1905]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1905*/ meltfptr[1904]); melt_dbgtrace_written_object (/*_._VALDATA___V1905*/ meltfptr[1904], "new static instance"); MELT_LOCATION("warmelt-macro.melt:5537:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1907*/ meltfptr[1906])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1813__MEXPAND_UNSAFE_PUT_FIELDS#0", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V1907*/ meltfptr[1906])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:5537:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1907*/ meltfptr[1906])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1813__MEXPAND_UNSAFE_PUT_FIELDS#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1907*/ meltfptr[1906])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:5537:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1907*/ meltfptr[1906])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1813__MEXPAND_UNSAFE_PUT_FIELDS#2", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V1907*/ meltfptr[1906])->tabval[2] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:5537:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1907*/ meltfptr[1906])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1642*/ meltfptr[1641]); ((meltroutine_ptr_t)/*_._VALROUT___V1907*/ meltfptr[1906])->tabval[3] = (melt_ptr_t)(/*_._VALCLO___V1642*/ meltfptr[1641]); MELT_LOCATION("warmelt-macro.melt:5537:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1907*/ meltfptr[1906])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1813__MEXPAND_UNSAFE_PUT_FIELDS#4", NULL != (/*_.DISCR_LIST__V34*/ meltfptr[33])); ((meltroutine_ptr_t)/*_._VALROUT___V1907*/ meltfptr[1906])->tabval[4] = (melt_ptr_t)(/*_.DISCR_LIST__V34*/ meltfptr[33]); MELT_LOCATION("warmelt-macro.melt:5537:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1907*/ meltfptr[1906])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1813__MEXPAND_UNSAFE_PUT_FIELDS#5", NULL != (/*_.CLASS_KEYWORD__V22*/ meltfptr[21])); ((meltroutine_ptr_t)/*_._VALROUT___V1907*/ meltfptr[1906])->tabval[5] = (melt_ptr_t)(/*_.CLASS_KEYWORD__V22*/ meltfptr[21]); MELT_LOCATION("warmelt-macro.melt:5537:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1907*/ meltfptr[1906])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1854*/ meltfptr[1853]); ((meltroutine_ptr_t)/*_._VALROUT___V1907*/ meltfptr[1906])->tabval[6] = (melt_ptr_t)(/*_._VALCLO___V1854*/ meltfptr[1853]); MELT_LOCATION("warmelt-macro.melt:5537:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1907*/ meltfptr[1906])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1813__MEXPAND_UNSAFE_PUT_FIELDS#7", NULL != (/*_.LIST_TO_MULTIPLE__V12*/ meltfptr[11])); ((meltroutine_ptr_t)/*_._VALROUT___V1907*/ meltfptr[1906])->tabval[7] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V12*/ meltfptr[11]); MELT_LOCATION("warmelt-macro.melt:5537:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1907*/ meltfptr[1906])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1813__MEXPAND_UNSAFE_PUT_FIELDS#8", NULL != (/*_.DISCR_MULTIPLE__V13*/ meltfptr[12])); ((meltroutine_ptr_t)/*_._VALROUT___V1907*/ meltfptr[1906])->tabval[8] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V13*/ meltfptr[12]); MELT_LOCATION("warmelt-macro.melt:5537:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1907*/ meltfptr[1906])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1025*/ meltfptr[1024]); ((meltroutine_ptr_t)/*_._VALROUT___V1907*/ meltfptr[1906])->tabval[9] = (melt_ptr_t)(/*_._VALDATA___V1025*/ meltfptr[1024]); MELT_LOCATION("warmelt-macro.melt:5537:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1907*/ meltfptr[1906]); /*putclosurout#75*/ melt_assertmsg("putclosrout#75 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1908*/ meltfptr[1907])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#75 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1907*/ meltfptr[1906])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1908*/ meltfptr[1907])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1907*/ meltfptr[1906]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1908*/ meltfptr[1907]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1815__UNSAFE_PUT_FIELDS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1909*/ meltfptr[1908])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1815__UNSAFE_PUT_FIELDS @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1909*/ meltfptr[1908])))); ((meltobject_ptr_t)(/*_._VALDATA___V1909*/ meltfptr[1908]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1910*/ meltfptr[1909]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1909*/ meltfptr[1908]); melt_dbgtrace_written_object (/*_._VALDATA___V1909*/ meltfptr[1908], "new static instance"); MELT_LOCATION("warmelt-macro.melt:5585:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1911*/ meltfptr[1910])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1817__MEXPAND_PUT_FIELDS#0", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V1911*/ meltfptr[1910])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:5585:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1911*/ meltfptr[1910])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1817__MEXPAND_PUT_FIELDS#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1911*/ meltfptr[1910])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:5585:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1911*/ meltfptr[1910])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1817__MEXPAND_PUT_FIELDS#2", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V1911*/ meltfptr[1910])->tabval[2] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:5585:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1911*/ meltfptr[1910])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1642*/ meltfptr[1641]); ((meltroutine_ptr_t)/*_._VALROUT___V1911*/ meltfptr[1910])->tabval[3] = (melt_ptr_t)(/*_._VALCLO___V1642*/ meltfptr[1641]); MELT_LOCATION("warmelt-macro.melt:5585:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1911*/ meltfptr[1910])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1817__MEXPAND_PUT_FIELDS#4", NULL != (/*_.DISCR_LIST__V34*/ meltfptr[33])); ((meltroutine_ptr_t)/*_._VALROUT___V1911*/ meltfptr[1910])->tabval[4] = (melt_ptr_t)(/*_.DISCR_LIST__V34*/ meltfptr[33]); MELT_LOCATION("warmelt-macro.melt:5585:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1911*/ meltfptr[1910])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1817__MEXPAND_PUT_FIELDS#5", NULL != (/*_.CLASS_KEYWORD__V22*/ meltfptr[21])); ((meltroutine_ptr_t)/*_._VALROUT___V1911*/ meltfptr[1910])->tabval[5] = (melt_ptr_t)(/*_.CLASS_KEYWORD__V22*/ meltfptr[21]); MELT_LOCATION("warmelt-macro.melt:5585:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1911*/ meltfptr[1910])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1854*/ meltfptr[1853]); ((meltroutine_ptr_t)/*_._VALROUT___V1911*/ meltfptr[1910])->tabval[6] = (melt_ptr_t)(/*_._VALCLO___V1854*/ meltfptr[1853]); MELT_LOCATION("warmelt-macro.melt:5585:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1911*/ meltfptr[1910])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1817__MEXPAND_PUT_FIELDS#7", NULL != (/*_.LIST_TO_MULTIPLE__V12*/ meltfptr[11])); ((meltroutine_ptr_t)/*_._VALROUT___V1911*/ meltfptr[1910])->tabval[7] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V12*/ meltfptr[11]); MELT_LOCATION("warmelt-macro.melt:5585:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1911*/ meltfptr[1910])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1817__MEXPAND_PUT_FIELDS#8", NULL != (/*_.DISCR_MULTIPLE__V13*/ meltfptr[12])); ((meltroutine_ptr_t)/*_._VALROUT___V1911*/ meltfptr[1910])->tabval[8] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V13*/ meltfptr[12]); MELT_LOCATION("warmelt-macro.melt:5585:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1911*/ meltfptr[1910])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1011*/ meltfptr[1010]); ((meltroutine_ptr_t)/*_._VALROUT___V1911*/ meltfptr[1910])->tabval[9] = (melt_ptr_t)(/*_._VALDATA___V1011*/ meltfptr[1010]); MELT_LOCATION("warmelt-macro.melt:5585:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1911*/ meltfptr[1910]); /*putclosurout#76*/ melt_assertmsg("putclosrout#76 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1912*/ meltfptr[1911])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#76 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1911*/ meltfptr[1910])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1912*/ meltfptr[1911])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1911*/ meltfptr[1910]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1912*/ meltfptr[1911]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1819__PUT_FIELDS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1913*/ meltfptr[1912])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1819__PUT_FIELDS @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1913*/ meltfptr[1912])))); ((meltobject_ptr_t)(/*_._VALDATA___V1913*/ meltfptr[1912]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1914*/ meltfptr[1913]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1913*/ meltfptr[1912]); melt_dbgtrace_written_object (/*_._VALDATA___V1913*/ meltfptr[1912], "new static instance"); MELT_LOCATION("warmelt-macro.melt:5632:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1915*/ meltfptr[1914])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1821__MEXPAND_UNSAFE_GET_FIELD#0", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V1915*/ meltfptr[1914])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:5632:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1915*/ meltfptr[1914])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1821__MEXPAND_UNSAFE_GET_FIELD#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1915*/ meltfptr[1914])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:5632:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1915*/ meltfptr[1914])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1821__MEXPAND_UNSAFE_GET_FIELD#2", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V1915*/ meltfptr[1914])->tabval[2] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:5632:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1915*/ meltfptr[1914])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1821__MEXPAND_UNSAFE_GET_FIELD#3", NULL != (/*_.CLASS_KEYWORD__V22*/ meltfptr[21])); ((meltroutine_ptr_t)/*_._VALROUT___V1915*/ meltfptr[1914])->tabval[3] = (melt_ptr_t)(/*_.CLASS_KEYWORD__V22*/ meltfptr[21]); MELT_LOCATION("warmelt-macro.melt:5632:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1915*/ meltfptr[1914])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1854*/ meltfptr[1853]); ((meltroutine_ptr_t)/*_._VALROUT___V1915*/ meltfptr[1914])->tabval[4] = (melt_ptr_t)(/*_._VALCLO___V1854*/ meltfptr[1853]); MELT_LOCATION("warmelt-macro.melt:5632:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1915*/ meltfptr[1914])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V959*/ meltfptr[958]); ((meltroutine_ptr_t)/*_._VALROUT___V1915*/ meltfptr[1914])->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V959*/ meltfptr[958]); MELT_LOCATION("warmelt-macro.melt:5632:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1915*/ meltfptr[1914])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1005*/ meltfptr[1004]); ((meltroutine_ptr_t)/*_._VALROUT___V1915*/ meltfptr[1914])->tabval[6] = (melt_ptr_t)(/*_._VALDATA___V1005*/ meltfptr[1004]); MELT_LOCATION("warmelt-macro.melt:5632:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1915*/ meltfptr[1914]); /*putclosurout#77*/ melt_assertmsg("putclosrout#77 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1916*/ meltfptr[1915])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#77 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1915*/ meltfptr[1914])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1916*/ meltfptr[1915])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1915*/ meltfptr[1914]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1916*/ meltfptr[1915]); MELT_LOCATION("warmelt-macro.melt:5673:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1917*/ meltfptr[1916])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1823__MEXPAND_GET_FIELD#0", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V1917*/ meltfptr[1916])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:5673:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1917*/ meltfptr[1916])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1823__MEXPAND_GET_FIELD#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1917*/ meltfptr[1916])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:5673:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1917*/ meltfptr[1916])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1823__MEXPAND_GET_FIELD#2", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V1917*/ meltfptr[1916])->tabval[2] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:5673:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1917*/ meltfptr[1916])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1823__MEXPAND_GET_FIELD#3", NULL != (/*_.CLASS_KEYWORD__V22*/ meltfptr[21])); ((meltroutine_ptr_t)/*_._VALROUT___V1917*/ meltfptr[1916])->tabval[3] = (melt_ptr_t)(/*_.CLASS_KEYWORD__V22*/ meltfptr[21]); MELT_LOCATION("warmelt-macro.melt:5673:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1917*/ meltfptr[1916])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1854*/ meltfptr[1853]); ((meltroutine_ptr_t)/*_._VALROUT___V1917*/ meltfptr[1916])->tabval[4] = (melt_ptr_t)(/*_._VALCLO___V1854*/ meltfptr[1853]); MELT_LOCATION("warmelt-macro.melt:5673:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1917*/ meltfptr[1916])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V959*/ meltfptr[958]); ((meltroutine_ptr_t)/*_._VALROUT___V1917*/ meltfptr[1916])->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V959*/ meltfptr[958]); MELT_LOCATION("warmelt-macro.melt:5673:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1917*/ meltfptr[1916])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V991*/ meltfptr[990]); ((meltroutine_ptr_t)/*_._VALROUT___V1917*/ meltfptr[1916])->tabval[6] = (melt_ptr_t)(/*_._VALDATA___V991*/ meltfptr[990]); MELT_LOCATION("warmelt-macro.melt:5673:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1917*/ meltfptr[1916]); /*putclosurout#78*/ melt_assertmsg("putclosrout#78 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1918*/ meltfptr[1917])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#78 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1917*/ meltfptr[1916])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1918*/ meltfptr[1917])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1917*/ meltfptr[1916]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1918*/ meltfptr[1917]); MELT_LOCATION("warmelt-macro.melt:5714:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1919*/ meltfptr[1918])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1825__PAIRLIST_TO_PROGN#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1919*/ meltfptr[1918])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:5714:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1919*/ meltfptr[1918])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1825__PAIRLIST_TO_PROGN#1", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V1919*/ meltfptr[1918])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:5714:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1919*/ meltfptr[1918])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1825__PAIRLIST_TO_PROGN#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1919*/ meltfptr[1918])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:5714:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1919*/ meltfptr[1918])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1593*/ meltfptr[1592]); ((meltroutine_ptr_t)/*_._VALROUT___V1919*/ meltfptr[1918])->tabval[3] = (melt_ptr_t)(/*_._VALCLO___V1593*/ meltfptr[1592]); MELT_LOCATION("warmelt-macro.melt:5714:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1919*/ meltfptr[1918])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V485*/ meltfptr[484]); ((meltroutine_ptr_t)/*_._VALROUT___V1919*/ meltfptr[1918])->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V485*/ meltfptr[484]); MELT_LOCATION("warmelt-macro.melt:5714:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1919*/ meltfptr[1918]); #undef meltfram__ } /*end of meltmod__WARMELTmiMACRO__initialmeltchunk_40*/ void meltmod__WARMELTmiMACRO__initialmeltchunk_41 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; /*putclosurout#79*/ melt_assertmsg("putclosrout#79 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1920*/ meltfptr[1919])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#79 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1919*/ meltfptr[1918])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1920*/ meltfptr[1919])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1919*/ meltfptr[1918]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1920*/ meltfptr[1919]); MELT_LOCATION("warmelt-macro.melt:5730:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1921*/ meltfptr[1920])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1827__MEXPAND_SETQ#0", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V1921*/ meltfptr[1920])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:5730:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1921*/ meltfptr[1920])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1827__MEXPAND_SETQ#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1921*/ meltfptr[1920])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:5730:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1921*/ meltfptr[1920])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1827__MEXPAND_SETQ#2", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V1921*/ meltfptr[1920])->tabval[2] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:5730:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1921*/ meltfptr[1920])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1642*/ meltfptr[1641]); ((meltroutine_ptr_t)/*_._VALROUT___V1921*/ meltfptr[1920])->tabval[3] = (melt_ptr_t)(/*_._VALCLO___V1642*/ meltfptr[1641]); MELT_LOCATION("warmelt-macro.melt:5730:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1921*/ meltfptr[1920])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1827__MEXPAND_SETQ#4", NULL != (/*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V1921*/ meltfptr[1920])->tabval[4] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-macro.melt:5730:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1921*/ meltfptr[1920])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V501*/ meltfptr[500]); ((meltroutine_ptr_t)/*_._VALROUT___V1921*/ meltfptr[1920])->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V501*/ meltfptr[500]); MELT_LOCATION("warmelt-macro.melt:5730:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1921*/ meltfptr[1920]); /*putclosurout#80*/ melt_assertmsg("putclosrout#80 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1922*/ meltfptr[1921])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#80 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1921*/ meltfptr[1920])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1922*/ meltfptr[1921])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1921*/ meltfptr[1920]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1922*/ meltfptr[1921]); MELT_LOCATION("warmelt-macro.melt:5761:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1923*/ meltfptr[1922])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1829__MEXPAND_IF#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1923*/ meltfptr[1922])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:5761:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1923*/ meltfptr[1922])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1829__MEXPAND_IF#1", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V1923*/ meltfptr[1922])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:5761:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1923*/ meltfptr[1922])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1829__MEXPAND_IF#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1923*/ meltfptr[1922])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:5761:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1923*/ meltfptr[1922])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1829__MEXPAND_IF#3", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V1923*/ meltfptr[1922])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:5761:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1923*/ meltfptr[1922])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1642*/ meltfptr[1641]); ((meltroutine_ptr_t)/*_._VALROUT___V1923*/ meltfptr[1922])->tabval[4] = (melt_ptr_t)(/*_._VALCLO___V1642*/ meltfptr[1641]); MELT_LOCATION("warmelt-macro.melt:5761:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1923*/ meltfptr[1922])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1045*/ meltfptr[1044]); ((meltroutine_ptr_t)/*_._VALROUT___V1923*/ meltfptr[1922])->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V1045*/ meltfptr[1044]); MELT_LOCATION("warmelt-macro.melt:5761:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1923*/ meltfptr[1922])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1031*/ meltfptr[1030]); ((meltroutine_ptr_t)/*_._VALROUT___V1923*/ meltfptr[1922])->tabval[6] = (melt_ptr_t)(/*_._VALDATA___V1031*/ meltfptr[1030]); MELT_LOCATION("warmelt-macro.melt:5761:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1923*/ meltfptr[1922]); /*putclosurout#81*/ melt_assertmsg("putclosrout#81 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1924*/ meltfptr[1923])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#81 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1923*/ meltfptr[1922])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1924*/ meltfptr[1923])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1923*/ meltfptr[1922]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1924*/ meltfptr[1923]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1831__IF @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1925*/ meltfptr[1924])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1831__IF @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1925*/ meltfptr[1924])))); ((meltobject_ptr_t)(/*_._VALDATA___V1925*/ meltfptr[1924]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1926*/ meltfptr[1925]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1925*/ meltfptr[1924]); melt_dbgtrace_written_object (/*_._VALDATA___V1925*/ meltfptr[1924], "new static instance"); MELT_LOCATION("warmelt-macro.melt:5815:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1927*/ meltfptr[1926])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1833__MEXPAND_WHEN#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1927*/ meltfptr[1926])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:5815:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1927*/ meltfptr[1926])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1833__MEXPAND_WHEN#1", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V1927*/ meltfptr[1926])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:5815:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1927*/ meltfptr[1926])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1833__MEXPAND_WHEN#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1927*/ meltfptr[1926])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:5815:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1927*/ meltfptr[1926])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1833__MEXPAND_WHEN#3", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V1927*/ meltfptr[1926])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:5815:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1927*/ meltfptr[1926])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1642*/ meltfptr[1641]); ((meltroutine_ptr_t)/*_._VALROUT___V1927*/ meltfptr[1926])->tabval[4] = (melt_ptr_t)(/*_._VALCLO___V1642*/ meltfptr[1641]); MELT_LOCATION("warmelt-macro.melt:5815:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1927*/ meltfptr[1926])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1920*/ meltfptr[1919]); ((meltroutine_ptr_t)/*_._VALROUT___V1927*/ meltfptr[1926])->tabval[5] = (melt_ptr_t)(/*_._VALCLO___V1920*/ meltfptr[1919]); MELT_LOCATION("warmelt-macro.melt:5815:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1927*/ meltfptr[1926])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1031*/ meltfptr[1030]); ((meltroutine_ptr_t)/*_._VALROUT___V1927*/ meltfptr[1926])->tabval[6] = (melt_ptr_t)(/*_._VALDATA___V1031*/ meltfptr[1030]); MELT_LOCATION("warmelt-macro.melt:5815:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1927*/ meltfptr[1926]); /*putclosurout#82*/ melt_assertmsg("putclosrout#82 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1928*/ meltfptr[1927])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#82 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1927*/ meltfptr[1926])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1928*/ meltfptr[1927])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1927*/ meltfptr[1926]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1928*/ meltfptr[1927]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1835__WHEN @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1929*/ meltfptr[1928])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1835__WHEN @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1929*/ meltfptr[1928])))); ((meltobject_ptr_t)(/*_._VALDATA___V1929*/ meltfptr[1928]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1930*/ meltfptr[1929]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1929*/ meltfptr[1928]); melt_dbgtrace_written_object (/*_._VALDATA___V1929*/ meltfptr[1928], "new static instance"); MELT_LOCATION("warmelt-macro.melt:5851:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1931*/ meltfptr[1930])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1837__MEXPAND_UNLESS#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1931*/ meltfptr[1930])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:5851:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1931*/ meltfptr[1930])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1837__MEXPAND_UNLESS#1", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V1931*/ meltfptr[1930])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:5851:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1931*/ meltfptr[1930])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1837__MEXPAND_UNLESS#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1931*/ meltfptr[1930])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:5851:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1931*/ meltfptr[1930])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1837__MEXPAND_UNLESS#3", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V1931*/ meltfptr[1930])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:5851:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1931*/ meltfptr[1930])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1642*/ meltfptr[1641]); ((meltroutine_ptr_t)/*_._VALROUT___V1931*/ meltfptr[1930])->tabval[4] = (melt_ptr_t)(/*_._VALCLO___V1642*/ meltfptr[1641]); MELT_LOCATION("warmelt-macro.melt:5851:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1931*/ meltfptr[1930])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1920*/ meltfptr[1919]); ((meltroutine_ptr_t)/*_._VALROUT___V1931*/ meltfptr[1930])->tabval[5] = (melt_ptr_t)(/*_._VALCLO___V1920*/ meltfptr[1919]); MELT_LOCATION("warmelt-macro.melt:5851:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1931*/ meltfptr[1930])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1045*/ meltfptr[1044]); ((meltroutine_ptr_t)/*_._VALROUT___V1931*/ meltfptr[1930])->tabval[6] = (melt_ptr_t)(/*_._VALDATA___V1045*/ meltfptr[1044]); MELT_LOCATION("warmelt-macro.melt:5851:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1931*/ meltfptr[1930]); /*putclosurout#83*/ melt_assertmsg("putclosrout#83 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1932*/ meltfptr[1931])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#83 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1931*/ meltfptr[1930])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1932*/ meltfptr[1931])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1931*/ meltfptr[1930]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1932*/ meltfptr[1931]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1839__UNLESS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1933*/ meltfptr[1932])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1839__UNLESS @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1933*/ meltfptr[1932])))); ((meltobject_ptr_t)(/*_._VALDATA___V1933*/ meltfptr[1932]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1934*/ meltfptr[1933]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1933*/ meltfptr[1932]); melt_dbgtrace_written_object (/*_._VALDATA___V1933*/ meltfptr[1932], "new static instance"); MELT_LOCATION("warmelt-macro.melt:5890:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1935*/ meltfptr[1934])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1841__MEXPAND_WITH_CLONED_SYMB#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1935*/ meltfptr[1934])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:5890:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1935*/ meltfptr[1934])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1841__MEXPAND_WITH_CLONED_SYMB#1", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V1935*/ meltfptr[1934])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:5890:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1935*/ meltfptr[1934])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1841__MEXPAND_WITH_CLONED_SYMB#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1935*/ meltfptr[1934])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:5890:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1935*/ meltfptr[1934])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1841__MEXPAND_WITH_CLONED_SYMB#3", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V1935*/ meltfptr[1934])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:5890:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1935*/ meltfptr[1934])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1642*/ meltfptr[1641]); ((meltroutine_ptr_t)/*_._VALROUT___V1935*/ meltfptr[1934])->tabval[4] = (melt_ptr_t)(/*_._VALCLO___V1642*/ meltfptr[1641]); MELT_LOCATION("warmelt-macro.melt:5890:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1935*/ meltfptr[1934])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1841__MEXPAND_WITH_CLONED_SYMB#5", NULL != (/*_.FRESH_ENV__V38*/ meltfptr[37])); ((meltroutine_ptr_t)/*_._VALROUT___V1935*/ meltfptr[1934])->tabval[5] = (melt_ptr_t)(/*_.FRESH_ENV__V38*/ meltfptr[37]); MELT_LOCATION("warmelt-macro.melt:5890:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1935*/ meltfptr[1934])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1841__MEXPAND_WITH_CLONED_SYMB#6", NULL != (/*_.DISCR_LIST__V34*/ meltfptr[33])); ((meltroutine_ptr_t)/*_._VALROUT___V1935*/ meltfptr[1934])->tabval[6] = (melt_ptr_t)(/*_.DISCR_LIST__V34*/ meltfptr[33]); MELT_LOCATION("warmelt-macro.melt:5890:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1935*/ meltfptr[1934])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1841__MEXPAND_WITH_CLONED_SYMB#7", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1935*/ meltfptr[1934])->tabval[7] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:5890:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1935*/ meltfptr[1934])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1841__MEXPAND_WITH_CLONED_SYMB#8", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1935*/ meltfptr[1934])->tabval[8] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:5890:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1935*/ meltfptr[1934])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1841__MEXPAND_WITH_CLONED_SYMB#9", NULL != (/*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V1935*/ meltfptr[1934])->tabval[9] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-macro.melt:5890:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1935*/ meltfptr[1934])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1841__MEXPAND_WITH_CLONED_SYMB#10", NULL != (/*_.CLASS_KEYWORD__V22*/ meltfptr[21])); ((meltroutine_ptr_t)/*_._VALROUT___V1935*/ meltfptr[1934])->tabval[10] = (melt_ptr_t)(/*_.CLASS_KEYWORD__V22*/ meltfptr[21]); MELT_LOCATION("warmelt-macro.melt:5890:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1935*/ meltfptr[1934])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1841__MEXPAND_WITH_CLONED_SYMB#11", NULL != (/*_.CLASS_NAMED__V23*/ meltfptr[22])); ((meltroutine_ptr_t)/*_._VALROUT___V1935*/ meltfptr[1934])->tabval[11] = (melt_ptr_t)(/*_.CLASS_NAMED__V23*/ meltfptr[22]); MELT_LOCATION("warmelt-macro.melt:5890:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1935*/ meltfptr[1934])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1841__MEXPAND_WITH_CLONED_SYMB#12", NULL != (/*_.FIND_ENV__V31*/ meltfptr[30])); ((meltroutine_ptr_t)/*_._VALROUT___V1935*/ meltfptr[1934])->tabval[12] = (melt_ptr_t)(/*_.FIND_ENV__V31*/ meltfptr[30]); MELT_LOCATION("warmelt-macro.melt:5890:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1935*/ meltfptr[1934])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V373*/ meltfptr[372]); ((meltroutine_ptr_t)/*_._VALROUT___V1935*/ meltfptr[1934])->tabval[13] = (melt_ptr_t)(/*_._VALDATA___V373*/ meltfptr[372]); MELT_LOCATION("warmelt-macro.melt:5890:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1935*/ meltfptr[1934])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V563*/ meltfptr[562]); ((meltroutine_ptr_t)/*_._VALROUT___V1935*/ meltfptr[1934])->tabval[14] = (melt_ptr_t)(/*_._VALDATA___V563*/ meltfptr[562]); MELT_LOCATION("warmelt-macro.melt:5890:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1935*/ meltfptr[1934])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1141*/ meltfptr[1140]); ((meltroutine_ptr_t)/*_._VALROUT___V1935*/ meltfptr[1934])->tabval[15] = (melt_ptr_t)(/*_._VALDATA___V1141*/ meltfptr[1140]); MELT_LOCATION("warmelt-macro.melt:5890:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1935*/ meltfptr[1934])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1841__MEXPAND_WITH_CLONED_SYMB#16", NULL != (/*_.CTYPE_VALUE__V61*/ meltfptr[60])); ((meltroutine_ptr_t)/*_._VALROUT___V1935*/ meltfptr[1934])->tabval[16] = (melt_ptr_t)(/*_.CTYPE_VALUE__V61*/ meltfptr[60]); MELT_LOCATION("warmelt-macro.melt:5890:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1935*/ meltfptr[1934])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1841__MEXPAND_WITH_CLONED_SYMB#17", NULL != (/*_.CLASS_LET_BINDING__V50*/ meltfptr[49])); ((meltroutine_ptr_t)/*_._VALROUT___V1935*/ meltfptr[1934])->tabval[17] = (melt_ptr_t)(/*_.CLASS_LET_BINDING__V50*/ meltfptr[49]); MELT_LOCATION("warmelt-macro.melt:5890:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1935*/ meltfptr[1934])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1841__MEXPAND_WITH_CLONED_SYMB#18", NULL != (/*_.PUT_ENV__V32*/ meltfptr[31])); ((meltroutine_ptr_t)/*_._VALROUT___V1935*/ meltfptr[1934])->tabval[18] = (melt_ptr_t)(/*_.PUT_ENV__V32*/ meltfptr[31]); MELT_LOCATION("warmelt-macro.melt:5905:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1936*/ meltfptr[1935])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1843__LAMBDA_#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1936*/ meltfptr[1935])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:5905:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1936*/ meltfptr[1935])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1843__LAMBDA_#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1936*/ meltfptr[1935])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:5905:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1936*/ meltfptr[1935])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1843__LAMBDA_#2", NULL != (/*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V1936*/ meltfptr[1935])->tabval[2] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-macro.melt:5905:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1936*/ meltfptr[1935])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1843__LAMBDA_#3", NULL != (/*_.CLASS_KEYWORD__V22*/ meltfptr[21])); ((meltroutine_ptr_t)/*_._VALROUT___V1936*/ meltfptr[1935])->tabval[3] = (melt_ptr_t)(/*_.CLASS_KEYWORD__V22*/ meltfptr[21]); MELT_LOCATION("warmelt-macro.melt:5905:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1936*/ meltfptr[1935])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1843__LAMBDA_#4", NULL != (/*_.CLASS_NAMED__V23*/ meltfptr[22])); ((meltroutine_ptr_t)/*_._VALROUT___V1936*/ meltfptr[1935])->tabval[4] = (melt_ptr_t)(/*_.CLASS_NAMED__V23*/ meltfptr[22]); MELT_LOCATION("warmelt-macro.melt:5905:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1936*/ meltfptr[1935])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1843__LAMBDA_#5", NULL != (/*_.FIND_ENV__V31*/ meltfptr[30])); ((meltroutine_ptr_t)/*_._VALROUT___V1936*/ meltfptr[1935])->tabval[5] = (melt_ptr_t)(/*_.FIND_ENV__V31*/ meltfptr[30]); MELT_LOCATION("warmelt-macro.melt:5905:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1936*/ meltfptr[1935])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V373*/ meltfptr[372]); ((meltroutine_ptr_t)/*_._VALROUT___V1936*/ meltfptr[1935])->tabval[6] = (melt_ptr_t)(/*_._VALDATA___V373*/ meltfptr[372]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1844__CLONE_SYMBOL @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1937*/ meltfptr[1936])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1844__CLONE_SYMBOL @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1937*/ meltfptr[1936])))); ((meltobject_ptr_t)(/*_._VALDATA___V1937*/ meltfptr[1936]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1938*/ meltfptr[1937]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1937*/ meltfptr[1936]); melt_dbgtrace_written_object (/*_._VALDATA___V1937*/ meltfptr[1936], "new static instance"); MELT_LOCATION("warmelt-macro.melt:5905:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1936*/ meltfptr[1935])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1843__LAMBDA_#7", NULL != (/*_._VALDATA___V1937*/ meltfptr[1936])); ((meltroutine_ptr_t)/*_._VALROUT___V1936*/ meltfptr[1935])->tabval[7] = (melt_ptr_t)(/*_._VALDATA___V1937*/ meltfptr[1936]); MELT_LOCATION("warmelt-macro.melt:5905:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1936*/ meltfptr[1935])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V563*/ meltfptr[562]); ((meltroutine_ptr_t)/*_._VALROUT___V1936*/ meltfptr[1935])->tabval[8] = (melt_ptr_t)(/*_._VALDATA___V563*/ meltfptr[562]); MELT_LOCATION("warmelt-macro.melt:5905:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1936*/ meltfptr[1935])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1141*/ meltfptr[1140]); ((meltroutine_ptr_t)/*_._VALROUT___V1936*/ meltfptr[1935])->tabval[9] = (melt_ptr_t)(/*_._VALDATA___V1141*/ meltfptr[1140]); MELT_LOCATION("warmelt-macro.melt:5905:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1936*/ meltfptr[1935])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1843__LAMBDA_#10", NULL != (/*_.CTYPE_VALUE__V61*/ meltfptr[60])); ((meltroutine_ptr_t)/*_._VALROUT___V1936*/ meltfptr[1935])->tabval[10] = (melt_ptr_t)(/*_.CTYPE_VALUE__V61*/ meltfptr[60]); MELT_LOCATION("warmelt-macro.melt:5905:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1936*/ meltfptr[1935])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1843__LAMBDA_#11", NULL != (/*_.CLASS_LET_BINDING__V50*/ meltfptr[49])); ((meltroutine_ptr_t)/*_._VALROUT___V1936*/ meltfptr[1935])->tabval[11] = (melt_ptr_t)(/*_.CLASS_LET_BINDING__V50*/ meltfptr[49]); MELT_LOCATION("warmelt-macro.melt:5905:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1936*/ meltfptr[1935])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1843__LAMBDA_#12", NULL != (/*_.PUT_ENV__V32*/ meltfptr[31])); ((meltroutine_ptr_t)/*_._VALROUT___V1936*/ meltfptr[1935])->tabval[12] = (melt_ptr_t)(/*_.PUT_ENV__V32*/ meltfptr[31]); MELT_LOCATION("warmelt-macro.melt:5905:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1936*/ meltfptr[1935]); MELT_LOCATION("warmelt-macro.melt:5890:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1935*/ meltfptr[1934])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1841__MEXPAND_WITH_CLONED_SYMB#19", NULL != (/*_._VALROUT___V1936*/ meltfptr[1935])); ((meltroutine_ptr_t)/*_._VALROUT___V1935*/ meltfptr[1934])->tabval[19] = (melt_ptr_t)(/*_._VALROUT___V1936*/ meltfptr[1935]); MELT_LOCATION("warmelt-macro.melt:5890:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1935*/ meltfptr[1934])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1841__MEXPAND_WITH_CLONED_SYMB#20", NULL != (/*_.MULTIPLE_TO_LIST__V79*/ meltfptr[78])); ((meltroutine_ptr_t)/*_._VALROUT___V1935*/ meltfptr[1934])->tabval[20] = (melt_ptr_t)(/*_.MULTIPLE_TO_LIST__V79*/ meltfptr[78]); MELT_LOCATION("warmelt-macro.melt:5890:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1935*/ meltfptr[1934])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1593*/ meltfptr[1592]); ((meltroutine_ptr_t)/*_._VALROUT___V1935*/ meltfptr[1934])->tabval[21] = (melt_ptr_t)(/*_._VALCLO___V1593*/ meltfptr[1592]); MELT_LOCATION("warmelt-macro.melt:5890:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1935*/ meltfptr[1934])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1171*/ meltfptr[1170]); ((meltroutine_ptr_t)/*_._VALROUT___V1935*/ meltfptr[1934])->tabval[22] = (melt_ptr_t)(/*_._VALDATA___V1171*/ meltfptr[1170]); MELT_LOCATION("warmelt-macro.melt:5890:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1935*/ meltfptr[1934])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1841__MEXPAND_WITH_CLONED_SYMB#23", NULL != (/*_.LIST_TO_MULTIPLE__V12*/ meltfptr[11])); ((meltroutine_ptr_t)/*_._VALROUT___V1935*/ meltfptr[1934])->tabval[23] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V12*/ meltfptr[11]); MELT_LOCATION("warmelt-macro.melt:5890:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1935*/ meltfptr[1934])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1841__MEXPAND_WITH_CLONED_SYMB#24", NULL != (/*_.DISCR_MULTIPLE__V13*/ meltfptr[12])); ((meltroutine_ptr_t)/*_._VALROUT___V1935*/ meltfptr[1934])->tabval[24] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V13*/ meltfptr[12]); MELT_LOCATION("warmelt-macro.melt:5890:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1935*/ meltfptr[1934]); /*putclosurout#84*/ melt_assertmsg("putclosrout#84 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1939*/ meltfptr[1938])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#84 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1935*/ meltfptr[1934])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1939*/ meltfptr[1938])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1935*/ meltfptr[1934]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1939*/ meltfptr[1938]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1846__MULTIPLE_TO_LIST @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1940*/ meltfptr[1939])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1846__MULTIPLE_TO_LIST @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1940*/ meltfptr[1939])))); ((meltobject_ptr_t)(/*_._VALDATA___V1940*/ meltfptr[1939]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1941*/ meltfptr[1940]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1940*/ meltfptr[1939]); melt_dbgtrace_written_object (/*_._VALDATA___V1940*/ meltfptr[1939], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1848__WITH_CLONED_SYMB @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1942*/ meltfptr[1941])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1848__WITH_CLONED_SYMB @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1942*/ meltfptr[1941])))); ((meltobject_ptr_t)(/*_._VALDATA___V1942*/ meltfptr[1941]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1943*/ meltfptr[1942]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1942*/ meltfptr[1941]); melt_dbgtrace_written_object (/*_._VALDATA___V1942*/ meltfptr[1941], "new static instance"); MELT_LOCATION("warmelt-macro.melt:5991:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1944*/ meltfptr[1943])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1850__MEXPAND_CPPIF#0", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V1944*/ meltfptr[1943])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:5991:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1944*/ meltfptr[1943])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1850__MEXPAND_CPPIF#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1944*/ meltfptr[1943])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:5991:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1944*/ meltfptr[1943])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1850__MEXPAND_CPPIF#2", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V1944*/ meltfptr[1943])->tabval[2] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:5991:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1944*/ meltfptr[1943])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1642*/ meltfptr[1641]); ((meltroutine_ptr_t)/*_._VALROUT___V1944*/ meltfptr[1943])->tabval[3] = (melt_ptr_t)(/*_._VALCLO___V1642*/ meltfptr[1641]); MELT_LOCATION("warmelt-macro.melt:5991:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1944*/ meltfptr[1943])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1850__MEXPAND_CPPIF#4", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1944*/ meltfptr[1943])->tabval[4] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:5991:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1944*/ meltfptr[1943])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1850__MEXPAND_CPPIF#5", NULL != (/*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V1944*/ meltfptr[1943])->tabval[5] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-macro.melt:5991:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1944*/ meltfptr[1943])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1065*/ meltfptr[1064]); ((meltroutine_ptr_t)/*_._VALROUT___V1944*/ meltfptr[1943])->tabval[6] = (melt_ptr_t)(/*_._VALDATA___V1065*/ meltfptr[1064]); MELT_LOCATION("warmelt-macro.melt:5991:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1944*/ meltfptr[1943]); /*putclosurout#85*/ melt_assertmsg("putclosrout#85 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1945*/ meltfptr[1944])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#85 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1944*/ meltfptr[1943])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1945*/ meltfptr[1944])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1944*/ meltfptr[1943]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1945*/ meltfptr[1944]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1852__CPPIF @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1946*/ meltfptr[1945])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1852__CPPIF @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1946*/ meltfptr[1945])))); ((meltobject_ptr_t)(/*_._VALDATA___V1946*/ meltfptr[1945]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1947*/ meltfptr[1946]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1946*/ meltfptr[1945]); melt_dbgtrace_written_object (/*_._VALDATA___V1946*/ meltfptr[1945], "new static instance"); MELT_LOCATION("warmelt-macro.melt:6047:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1948*/ meltfptr[1947])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1854__MEXPAND_COND#0", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V1948*/ meltfptr[1947])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:6047:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1948*/ meltfptr[1947])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1854__MEXPAND_COND#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1948*/ meltfptr[1947])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:6047:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1948*/ meltfptr[1947])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1854__MEXPAND_COND#2", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V1948*/ meltfptr[1947])->tabval[2] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:6047:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1948*/ meltfptr[1947])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1854__MEXPAND_COND#3", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1948*/ meltfptr[1947])->tabval[3] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:6047:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1948*/ meltfptr[1947])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1854__MEXPAND_COND#4", NULL != (/*_.PAIRLIST_TO_MULTIPLE__V55*/ meltfptr[54])); ((meltroutine_ptr_t)/*_._VALROUT___V1948*/ meltfptr[1947])->tabval[4] = (melt_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V55*/ meltfptr[54]); MELT_LOCATION("warmelt-macro.melt:6047:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1948*/ meltfptr[1947])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1854__MEXPAND_COND#5", NULL != (/*_.DISCR_MULTIPLE__V13*/ meltfptr[12])); ((meltroutine_ptr_t)/*_._VALROUT___V1948*/ meltfptr[1947])->tabval[5] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V13*/ meltfptr[12]); MELT_LOCATION("warmelt-macro.melt:6047:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1948*/ meltfptr[1947])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1854__MEXPAND_COND#6", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V1948*/ meltfptr[1947])->tabval[6] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:6057:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1949*/ meltfptr[1948])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1856__LAMBDA_#0", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V1949*/ meltfptr[1948])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:6057:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1949*/ meltfptr[1948]); MELT_LOCATION("warmelt-macro.melt:6047:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1948*/ meltfptr[1947])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1854__MEXPAND_COND#7", NULL != (/*_._VALROUT___V1949*/ meltfptr[1948])); ((meltroutine_ptr_t)/*_._VALROUT___V1948*/ meltfptr[1947])->tabval[7] = (melt_ptr_t)(/*_._VALROUT___V1949*/ meltfptr[1948]); MELT_LOCATION("warmelt-macro.melt:6047:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1948*/ meltfptr[1947])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1854__MEXPAND_COND#8", NULL != (/*_._VALDATA___V260*/ meltfptr[259])); ((meltroutine_ptr_t)/*_._VALROUT___V1948*/ meltfptr[1947])->tabval[8] = (melt_ptr_t)(/*_._VALDATA___V260*/ meltfptr[259]); MELT_LOCATION("warmelt-macro.melt:6047:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1948*/ meltfptr[1947])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1920*/ meltfptr[1919]); ((meltroutine_ptr_t)/*_._VALROUT___V1948*/ meltfptr[1947])->tabval[9] = (melt_ptr_t)(/*_._VALCLO___V1920*/ meltfptr[1919]); MELT_LOCATION("warmelt-macro.melt:6047:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1948*/ meltfptr[1947])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1055*/ meltfptr[1054]); ((meltroutine_ptr_t)/*_._VALROUT___V1948*/ meltfptr[1947])->tabval[10] = (melt_ptr_t)(/*_._VALDATA___V1055*/ meltfptr[1054]); MELT_LOCATION("warmelt-macro.melt:6047:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1948*/ meltfptr[1947])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1045*/ meltfptr[1044]); ((meltroutine_ptr_t)/*_._VALROUT___V1948*/ meltfptr[1947])->tabval[11] = (melt_ptr_t)(/*_._VALDATA___V1045*/ meltfptr[1044]); #undef meltfram__ } /*end of meltmod__WARMELTmiMACRO__initialmeltchunk_41*/ void meltmod__WARMELTmiMACRO__initialmeltchunk_42 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; MELT_LOCATION("warmelt-macro.melt:6047:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1948*/ meltfptr[1947]); /*putclosurout#86*/ melt_assertmsg("putclosrout#86 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1950*/ meltfptr[1949])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#86 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1948*/ meltfptr[1947])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1950*/ meltfptr[1949])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1948*/ meltfptr[1947]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1950*/ meltfptr[1949]); MELT_LOCATION("warmelt-macro.melt:6152:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1951*/ meltfptr[1950])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1857__MEXPAND_AND#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1951*/ meltfptr[1950])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:6152:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1951*/ meltfptr[1950])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1857__MEXPAND_AND#1", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V1951*/ meltfptr[1950])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:6152:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1951*/ meltfptr[1950])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1857__MEXPAND_AND#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1951*/ meltfptr[1950])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:6152:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1951*/ meltfptr[1950])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1857__MEXPAND_AND#3", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V1951*/ meltfptr[1950])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:6152:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1951*/ meltfptr[1950])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1642*/ meltfptr[1641]); ((meltroutine_ptr_t)/*_._VALROUT___V1951*/ meltfptr[1950])->tabval[4] = (melt_ptr_t)(/*_._VALCLO___V1642*/ meltfptr[1641]); MELT_LOCATION("warmelt-macro.melt:6152:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1951*/ meltfptr[1950])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1593*/ meltfptr[1592]); ((meltroutine_ptr_t)/*_._VALROUT___V1951*/ meltfptr[1950])->tabval[5] = (melt_ptr_t)(/*_._VALCLO___V1593*/ meltfptr[1592]); MELT_LOCATION("warmelt-macro.melt:6152:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1951*/ meltfptr[1950])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1031*/ meltfptr[1030]); ((meltroutine_ptr_t)/*_._VALROUT___V1951*/ meltfptr[1950])->tabval[6] = (melt_ptr_t)(/*_._VALDATA___V1031*/ meltfptr[1030]); MELT_LOCATION("warmelt-macro.melt:6152:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1951*/ meltfptr[1950]); /*putclosurout#87*/ melt_assertmsg("putclosrout#87 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1952*/ meltfptr[1951])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#87 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1951*/ meltfptr[1950])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1952*/ meltfptr[1951])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1951*/ meltfptr[1950]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1952*/ meltfptr[1951]); MELT_LOCATION("warmelt-macro.melt:6188:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1953*/ meltfptr[1952])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1859__PATEXPAND_AS#0", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V1953*/ meltfptr[1952])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:6188:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1953*/ meltfptr[1952])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1859__PATEXPAND_AS#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1953*/ meltfptr[1952])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:6188:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1953*/ meltfptr[1952])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1859__PATEXPAND_AS#2", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V1953*/ meltfptr[1952])->tabval[2] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:6188:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1953*/ meltfptr[1952])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1671*/ meltfptr[1670]); ((meltroutine_ptr_t)/*_._VALROUT___V1953*/ meltfptr[1952])->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V1671*/ meltfptr[1670]); MELT_LOCATION("warmelt-macro.melt:6188:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1953*/ meltfptr[1952])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1859__PATEXPAND_AS#4", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1953*/ meltfptr[1952])->tabval[4] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:6188:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1953*/ meltfptr[1952])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1712*/ meltfptr[1711]); ((meltroutine_ptr_t)/*_._VALROUT___V1953*/ meltfptr[1952])->tabval[5] = (melt_ptr_t)(/*_._VALCLO___V1712*/ meltfptr[1711]); MELT_LOCATION("warmelt-macro.melt:6188:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1953*/ meltfptr[1952])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1455*/ meltfptr[1454]); ((meltroutine_ptr_t)/*_._VALROUT___V1953*/ meltfptr[1952])->tabval[6] = (melt_ptr_t)(/*_._VALDATA___V1455*/ meltfptr[1454]); MELT_LOCATION("warmelt-macro.melt:6188:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1953*/ meltfptr[1952])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1439*/ meltfptr[1438]); ((meltroutine_ptr_t)/*_._VALROUT___V1953*/ meltfptr[1952])->tabval[7] = (melt_ptr_t)(/*_._VALDATA___V1439*/ meltfptr[1438]); MELT_LOCATION("warmelt-macro.melt:6188:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1953*/ meltfptr[1952])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1395*/ meltfptr[1394]); ((meltroutine_ptr_t)/*_._VALROUT___V1953*/ meltfptr[1952])->tabval[8] = (melt_ptr_t)(/*_._VALDATA___V1395*/ meltfptr[1394]); MELT_LOCATION("warmelt-macro.melt:6188:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1953*/ meltfptr[1952])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1415*/ meltfptr[1414]); ((meltroutine_ptr_t)/*_._VALROUT___V1953*/ meltfptr[1952])->tabval[9] = (melt_ptr_t)(/*_._VALDATA___V1415*/ meltfptr[1414]); MELT_LOCATION("warmelt-macro.melt:6188:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1953*/ meltfptr[1952])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1859__PATEXPAND_AS#10", NULL != (/*_.DISCR_CONSTANT_INTEGER__V27*/ meltfptr[26])); ((meltroutine_ptr_t)/*_._VALROUT___V1953*/ meltfptr[1952])->tabval[10] = (melt_ptr_t)(/*_.DISCR_CONSTANT_INTEGER__V27*/ meltfptr[26]); MELT_LOCATION("warmelt-macro.melt:6188:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1953*/ meltfptr[1952]); /*putclosurout#88*/ melt_assertmsg("putclosrout#88 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1954*/ meltfptr[1953])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#88 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1953*/ meltfptr[1952])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1954*/ meltfptr[1953])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1953*/ meltfptr[1952]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1954*/ meltfptr[1953]); MELT_LOCATION("warmelt-macro.melt:6226:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1955*/ meltfptr[1954])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1861__MEXPAND_AS#0", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V1955*/ meltfptr[1954])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:6226:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1955*/ meltfptr[1954])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1861__MEXPAND_AS#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1955*/ meltfptr[1954])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:6226:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1955*/ meltfptr[1954])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1861__MEXPAND_AS#2", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V1955*/ meltfptr[1954])->tabval[2] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:6226:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1955*/ meltfptr[1954])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1861__MEXPAND_AS#3", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1955*/ meltfptr[1954])->tabval[3] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:6226:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1955*/ meltfptr[1954]); /*putclosurout#89*/ melt_assertmsg("putclosrout#89 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1956*/ meltfptr[1955])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#89 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1955*/ meltfptr[1954])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1956*/ meltfptr[1955])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1955*/ meltfptr[1954]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1956*/ meltfptr[1955]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1863__AS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1957*/ meltfptr[1956])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1863__AS @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1957*/ meltfptr[1956])))); ((meltobject_ptr_t)(/*_._VALDATA___V1957*/ meltfptr[1956]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1958*/ meltfptr[1957]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1957*/ meltfptr[1956]); melt_dbgtrace_written_object (/*_._VALDATA___V1957*/ meltfptr[1956], "new static instance"); MELT_LOCATION("warmelt-macro.melt:6240:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1959*/ meltfptr[1958])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1865__PATEXPAND_WHEN#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1959*/ meltfptr[1958])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:6240:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1959*/ meltfptr[1958])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1865__PATEXPAND_WHEN#1", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V1959*/ meltfptr[1958])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:6240:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1959*/ meltfptr[1958])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1865__PATEXPAND_WHEN#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1959*/ meltfptr[1958])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:6240:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1959*/ meltfptr[1958])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1865__PATEXPAND_WHEN#3", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V1959*/ meltfptr[1958])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:6240:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1959*/ meltfptr[1958])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1671*/ meltfptr[1670]); ((meltroutine_ptr_t)/*_._VALROUT___V1959*/ meltfptr[1958])->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V1671*/ meltfptr[1670]); MELT_LOCATION("warmelt-macro.melt:6240:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1959*/ meltfptr[1958]); /*putclosurout#90*/ melt_assertmsg("putclosrout#90 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1960*/ meltfptr[1959])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#90 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1959*/ meltfptr[1958])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1960*/ meltfptr[1959])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1959*/ meltfptr[1958]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1960*/ meltfptr[1959]); MELT_LOCATION("warmelt-macro.melt:6260:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1961*/ meltfptr[1960])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1867__PATEXPAND_AND#0", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V1961*/ meltfptr[1960])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:6260:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1961*/ meltfptr[1960])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1867__PATEXPAND_AND#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1961*/ meltfptr[1960])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:6260:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1961*/ meltfptr[1960])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1867__PATEXPAND_AND#2", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V1961*/ meltfptr[1960])->tabval[2] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:6260:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1961*/ meltfptr[1960])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1671*/ meltfptr[1670]); ((meltroutine_ptr_t)/*_._VALROUT___V1961*/ meltfptr[1960])->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V1671*/ meltfptr[1670]); MELT_LOCATION("warmelt-macro.melt:6260:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1961*/ meltfptr[1960])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1867__PATEXPAND_AND#4", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1961*/ meltfptr[1960])->tabval[4] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:6260:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1961*/ meltfptr[1960])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1712*/ meltfptr[1711]); ((meltroutine_ptr_t)/*_._VALROUT___V1961*/ meltfptr[1960])->tabval[5] = (melt_ptr_t)(/*_._VALCLO___V1712*/ meltfptr[1711]); MELT_LOCATION("warmelt-macro.melt:6260:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1961*/ meltfptr[1960])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1415*/ meltfptr[1414]); ((meltroutine_ptr_t)/*_._VALROUT___V1961*/ meltfptr[1960])->tabval[6] = (melt_ptr_t)(/*_._VALDATA___V1415*/ meltfptr[1414]); MELT_LOCATION("warmelt-macro.melt:6260:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1961*/ meltfptr[1960])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1707*/ meltfptr[1706]); ((meltroutine_ptr_t)/*_._VALROUT___V1961*/ meltfptr[1960])->tabval[7] = (melt_ptr_t)(/*_._VALCLO___V1707*/ meltfptr[1706]); MELT_LOCATION("warmelt-macro.melt:6260:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1961*/ meltfptr[1960])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1867__PATEXPAND_AND#8", NULL != (/*_.DISCR_CONSTANT_INTEGER__V27*/ meltfptr[26])); ((meltroutine_ptr_t)/*_._VALROUT___V1961*/ meltfptr[1960])->tabval[8] = (melt_ptr_t)(/*_.DISCR_CONSTANT_INTEGER__V27*/ meltfptr[26]); MELT_LOCATION("warmelt-macro.melt:6260:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1961*/ meltfptr[1960]); /*putclosurout#91*/ melt_assertmsg("putclosrout#91 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1962*/ meltfptr[1961])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#91 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1961*/ meltfptr[1960])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1962*/ meltfptr[1961])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1961*/ meltfptr[1960]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1962*/ meltfptr[1961]); MELT_LOCATION("warmelt-macro.melt:6296:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1963*/ meltfptr[1962])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1869__MEXPAND_OR#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1963*/ meltfptr[1962])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:6296:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1963*/ meltfptr[1962])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1869__MEXPAND_OR#1", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V1963*/ meltfptr[1962])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:6296:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1963*/ meltfptr[1962])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1869__MEXPAND_OR#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1963*/ meltfptr[1962])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:6296:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1963*/ meltfptr[1962])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1869__MEXPAND_OR#3", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V1963*/ meltfptr[1962])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:6296:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1963*/ meltfptr[1962])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1642*/ meltfptr[1641]); ((meltroutine_ptr_t)/*_._VALROUT___V1963*/ meltfptr[1962])->tabval[4] = (melt_ptr_t)(/*_._VALCLO___V1642*/ meltfptr[1641]); MELT_LOCATION("warmelt-macro.melt:6296:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1963*/ meltfptr[1962])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1593*/ meltfptr[1592]); ((meltroutine_ptr_t)/*_._VALROUT___V1963*/ meltfptr[1962])->tabval[5] = (melt_ptr_t)(/*_._VALCLO___V1593*/ meltfptr[1592]); MELT_LOCATION("warmelt-macro.melt:6296:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1963*/ meltfptr[1962])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1055*/ meltfptr[1054]); ((meltroutine_ptr_t)/*_._VALROUT___V1963*/ meltfptr[1962])->tabval[6] = (melt_ptr_t)(/*_._VALDATA___V1055*/ meltfptr[1054]); MELT_LOCATION("warmelt-macro.melt:6296:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1963*/ meltfptr[1962]); /*putclosurout#92*/ melt_assertmsg("putclosrout#92 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1964*/ meltfptr[1963])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#92 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1963*/ meltfptr[1962])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1964*/ meltfptr[1963])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1963*/ meltfptr[1962]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1964*/ meltfptr[1963]); MELT_LOCATION("warmelt-macro.melt:6321:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1965*/ meltfptr[1964])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1871__PATEXPAND_OR#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1965*/ meltfptr[1964])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:6321:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1965*/ meltfptr[1964])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1871__PATEXPAND_OR#1", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V1965*/ meltfptr[1964])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:6321:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1965*/ meltfptr[1964])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1871__PATEXPAND_OR#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1965*/ meltfptr[1964])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:6321:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1965*/ meltfptr[1964])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1871__PATEXPAND_OR#3", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V1965*/ meltfptr[1964])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:6321:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1965*/ meltfptr[1964])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1671*/ meltfptr[1670]); ((meltroutine_ptr_t)/*_._VALROUT___V1965*/ meltfptr[1964])->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V1671*/ meltfptr[1670]); MELT_LOCATION("warmelt-macro.melt:6321:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1965*/ meltfptr[1964])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1712*/ meltfptr[1711]); ((meltroutine_ptr_t)/*_._VALROUT___V1965*/ meltfptr[1964])->tabval[5] = (melt_ptr_t)(/*_._VALCLO___V1712*/ meltfptr[1711]); MELT_LOCATION("warmelt-macro.melt:6321:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1965*/ meltfptr[1964])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1405*/ meltfptr[1404]); ((meltroutine_ptr_t)/*_._VALROUT___V1965*/ meltfptr[1964])->tabval[6] = (melt_ptr_t)(/*_._VALDATA___V1405*/ meltfptr[1404]); MELT_LOCATION("warmelt-macro.melt:6321:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1965*/ meltfptr[1964])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1707*/ meltfptr[1706]); ((meltroutine_ptr_t)/*_._VALROUT___V1965*/ meltfptr[1964])->tabval[7] = (melt_ptr_t)(/*_._VALCLO___V1707*/ meltfptr[1706]); MELT_LOCATION("warmelt-macro.melt:6321:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1965*/ meltfptr[1964])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1871__PATEXPAND_OR#8", NULL != (/*_.DISCR_CONSTANT_INTEGER__V27*/ meltfptr[26])); ((meltroutine_ptr_t)/*_._VALROUT___V1965*/ meltfptr[1964])->tabval[8] = (melt_ptr_t)(/*_.DISCR_CONSTANT_INTEGER__V27*/ meltfptr[26]); MELT_LOCATION("warmelt-macro.melt:6321:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1965*/ meltfptr[1964]); /*putclosurout#93*/ melt_assertmsg("putclosrout#93 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1966*/ meltfptr[1965])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#93 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1965*/ meltfptr[1964])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1966*/ meltfptr[1965])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1965*/ meltfptr[1964]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1966*/ meltfptr[1965]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1873__OR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1967*/ meltfptr[1966])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1873__OR @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1967*/ meltfptr[1966])))); ((meltobject_ptr_t)(/*_._VALDATA___V1967*/ meltfptr[1966]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1968*/ meltfptr[1967]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1967*/ meltfptr[1966]); melt_dbgtrace_written_object (/*_._VALDATA___V1967*/ meltfptr[1966], "new static instance"); MELT_LOCATION("warmelt-macro.melt:6358:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1969*/ meltfptr[1968])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1875__MEXPAND_REFERENCE#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1969*/ meltfptr[1968])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:6358:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1969*/ meltfptr[1968])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1875__MEXPAND_REFERENCE#1", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V1969*/ meltfptr[1968])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:6358:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1969*/ meltfptr[1968])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1875__MEXPAND_REFERENCE#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1969*/ meltfptr[1968])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:6358:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1969*/ meltfptr[1968])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1875__MEXPAND_REFERENCE#3", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V1969*/ meltfptr[1968])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:6358:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1969*/ meltfptr[1968])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1642*/ meltfptr[1641]); ((meltroutine_ptr_t)/*_._VALROUT___V1969*/ meltfptr[1968])->tabval[4] = (melt_ptr_t)(/*_._VALCLO___V1642*/ meltfptr[1641]); MELT_LOCATION("warmelt-macro.melt:6358:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1969*/ meltfptr[1968])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1875__MEXPAND_REFERENCE#5", NULL != (/*_.CLASS_REFERENCE__V56*/ meltfptr[55])); ((meltroutine_ptr_t)/*_._VALROUT___V1969*/ meltfptr[1968])->tabval[5] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V56*/ meltfptr[55]); MELT_LOCATION("warmelt-macro.melt:6358:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1969*/ meltfptr[1968])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1875__MEXPAND_REFERENCE#6", NULL != (/*_.CLASS_CLASS__V72*/ meltfptr[71])); ((meltroutine_ptr_t)/*_._VALROUT___V1969*/ meltfptr[1968])->tabval[6] = (melt_ptr_t)(/*_.CLASS_CLASS__V72*/ meltfptr[71]); MELT_LOCATION("warmelt-macro.melt:6358:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1969*/ meltfptr[1968])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1875__MEXPAND_REFERENCE#7", NULL != (/*_.CLASS_FIELDS__V80*/ meltfptr[79])); ((meltroutine_ptr_t)/*_._VALROUT___V1969*/ meltfptr[1968])->tabval[7] = (melt_ptr_t)(/*_.CLASS_FIELDS__V80*/ meltfptr[79]); MELT_LOCATION("warmelt-macro.melt:6358:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1969*/ meltfptr[1968])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1589*/ meltfptr[1588]); ((meltroutine_ptr_t)/*_._VALROUT___V1969*/ meltfptr[1968])->tabval[8] = (melt_ptr_t)(/*_._VALCLO___V1589*/ meltfptr[1588]); MELT_LOCATION("warmelt-macro.melt:6358:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1969*/ meltfptr[1968])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1341*/ meltfptr[1340]); ((meltroutine_ptr_t)/*_._VALROUT___V1969*/ meltfptr[1968])->tabval[9] = (melt_ptr_t)(/*_._VALDATA___V1341*/ meltfptr[1340]); MELT_LOCATION("warmelt-macro.melt:6358:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1969*/ meltfptr[1968])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1875__MEXPAND_REFERENCE#10", NULL != (/*_._VALDATA___V1715*/ meltfptr[1714])); ((meltroutine_ptr_t)/*_._VALROUT___V1969*/ meltfptr[1968])->tabval[10] = (melt_ptr_t)(/*_._VALDATA___V1715*/ meltfptr[1714]); MELT_LOCATION("warmelt-macro.melt:6358:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1969*/ meltfptr[1968])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1875__MEXPAND_REFERENCE#11", NULL != (/*_.FIND_ENV__V31*/ meltfptr[30])); ((meltroutine_ptr_t)/*_._VALROUT___V1969*/ meltfptr[1968])->tabval[11] = (melt_ptr_t)(/*_.FIND_ENV__V31*/ meltfptr[30]); MELT_LOCATION("warmelt-macro.melt:6358:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1969*/ meltfptr[1968])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1875__MEXPAND_REFERENCE#12", NULL != (/*_._VALDATA___V1715*/ meltfptr[1714])); ((meltroutine_ptr_t)/*_._VALROUT___V1969*/ meltfptr[1968])->tabval[12] = (melt_ptr_t)(/*_._VALDATA___V1715*/ meltfptr[1714]); MELT_LOCATION("warmelt-macro.melt:6358:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1969*/ meltfptr[1968])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1854*/ meltfptr[1853]); ((meltroutine_ptr_t)/*_._VALROUT___V1969*/ meltfptr[1968])->tabval[13] = (melt_ptr_t)(/*_._VALCLO___V1854*/ meltfptr[1853]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1879__REFERENCED_VALUE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1970*/ meltfptr[1969])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1879__REFERENCED_VALUE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1970*/ meltfptr[1969])))); ((meltobject_ptr_t)(/*_._VALDATA___V1970*/ meltfptr[1969]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1971*/ meltfptr[1970]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1970*/ meltfptr[1969]); melt_dbgtrace_written_object (/*_._VALDATA___V1970*/ meltfptr[1969], "new static instance"); MELT_LOCATION("warmelt-macro.melt:6358:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1969*/ meltfptr[1968])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1875__MEXPAND_REFERENCE#14", NULL != (/*_._VALDATA___V1970*/ meltfptr[1969])); ((meltroutine_ptr_t)/*_._VALROUT___V1969*/ meltfptr[1968])->tabval[14] = (melt_ptr_t)(/*_._VALDATA___V1970*/ meltfptr[1969]); MELT_LOCATION("warmelt-macro.melt:6358:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1969*/ meltfptr[1968])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V973*/ meltfptr[972]); ((meltroutine_ptr_t)/*_._VALROUT___V1969*/ meltfptr[1968])->tabval[15] = (melt_ptr_t)(/*_._VALDATA___V973*/ meltfptr[972]); MELT_LOCATION("warmelt-macro.melt:6358:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1969*/ meltfptr[1968]); /*putclosurout#94*/ melt_assertmsg("putclosrout#94 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1972*/ meltfptr[1971])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#94 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1969*/ meltfptr[1968])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1972*/ meltfptr[1971])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1969*/ meltfptr[1968]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1972*/ meltfptr[1971]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1877__CLASS_FIELDS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1973*/ meltfptr[1972])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1877__CLASS_FIELDS @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1973*/ meltfptr[1972])))); ((meltobject_ptr_t)(/*_._VALDATA___V1973*/ meltfptr[1972]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1974*/ meltfptr[1973]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1973*/ meltfptr[1972]); melt_dbgtrace_written_object (/*_._VALDATA___V1973*/ meltfptr[1972], "new static instance"); MELT_LOCATION("warmelt-macro.melt:6402:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1975*/ meltfptr[1974])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1881__PATEXPAND_REFERENCE#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1975*/ meltfptr[1974])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:6402:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1975*/ meltfptr[1974])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1881__PATEXPAND_REFERENCE#1", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V1975*/ meltfptr[1974])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:6402:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1975*/ meltfptr[1974])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1881__PATEXPAND_REFERENCE#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1975*/ meltfptr[1974])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:6402:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1975*/ meltfptr[1974])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1881__PATEXPAND_REFERENCE#3", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V1975*/ meltfptr[1974])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:6402:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1975*/ meltfptr[1974])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1671*/ meltfptr[1670]); ((meltroutine_ptr_t)/*_._VALROUT___V1975*/ meltfptr[1974])->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V1671*/ meltfptr[1670]); MELT_LOCATION("warmelt-macro.melt:6402:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1975*/ meltfptr[1974])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1712*/ meltfptr[1711]); ((meltroutine_ptr_t)/*_._VALROUT___V1975*/ meltfptr[1974])->tabval[5] = (melt_ptr_t)(/*_._VALCLO___V1712*/ meltfptr[1711]); MELT_LOCATION("warmelt-macro.melt:6402:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1975*/ meltfptr[1974])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1883*/ meltfptr[1882]); ((meltroutine_ptr_t)/*_._VALROUT___V1975*/ meltfptr[1974])->tabval[6] = (melt_ptr_t)(/*_._VALCLO___V1883*/ meltfptr[1882]); MELT_LOCATION("warmelt-macro.melt:6402:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1975*/ meltfptr[1974])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1881__PATEXPAND_REFERENCE#7", NULL != (/*_._VALDATA___V1970*/ meltfptr[1969])); ((meltroutine_ptr_t)/*_._VALROUT___V1975*/ meltfptr[1974])->tabval[7] = (melt_ptr_t)(/*_._VALDATA___V1970*/ meltfptr[1969]); MELT_LOCATION("warmelt-macro.melt:6402:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1975*/ meltfptr[1974])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1881__PATEXPAND_REFERENCE#8", NULL != (/*_.CLASS_REFERENCE__V56*/ meltfptr[55])); ((meltroutine_ptr_t)/*_._VALROUT___V1975*/ meltfptr[1974])->tabval[8] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V56*/ meltfptr[55]); MELT_LOCATION("warmelt-macro.melt:6402:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1975*/ meltfptr[1974])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1507*/ meltfptr[1506]); ((meltroutine_ptr_t)/*_._VALROUT___V1975*/ meltfptr[1974])->tabval[9] = (melt_ptr_t)(/*_._VALDATA___V1507*/ meltfptr[1506]); MELT_LOCATION("warmelt-macro.melt:6402:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1975*/ meltfptr[1974])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1881__PATEXPAND_REFERENCE#10", NULL != (/*_._VALBXINT___V1976*/ meltfptr[1975])); ((meltroutine_ptr_t)/*_._VALROUT___V1975*/ meltfptr[1974])->tabval[10] = (melt_ptr_t)(/*_._VALBXINT___V1976*/ meltfptr[1975]); MELT_LOCATION("warmelt-macro.melt:6402:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1975*/ meltfptr[1974]); /*putclosurout#95*/ melt_assertmsg("putclosrout#95 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1977*/ meltfptr[1976])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#95 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1975*/ meltfptr[1974])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1977*/ meltfptr[1976])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1975*/ meltfptr[1974]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1977*/ meltfptr[1976]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1884__REFERENCE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1978*/ meltfptr[1977])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1884__REFERENCE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1978*/ meltfptr[1977])))); ((meltobject_ptr_t)(/*_._VALDATA___V1978*/ meltfptr[1977]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1979*/ meltfptr[1978]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1978*/ meltfptr[1977]); melt_dbgtrace_written_object (/*_._VALDATA___V1978*/ meltfptr[1977], "new static instance"); MELT_LOCATION("warmelt-macro.melt:6442:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1980*/ meltfptr[1979])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1886__MEXPAND_DEREF#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1980*/ meltfptr[1979])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:6442:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1980*/ meltfptr[1979])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1886__MEXPAND_DEREF#1", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V1980*/ meltfptr[1979])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:6442:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1980*/ meltfptr[1979])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1886__MEXPAND_DEREF#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1980*/ meltfptr[1979])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:6442:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1980*/ meltfptr[1979])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1886__MEXPAND_DEREF#3", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V1980*/ meltfptr[1979])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); #undef meltfram__ } /*end of meltmod__WARMELTmiMACRO__initialmeltchunk_42*/ void meltmod__WARMELTmiMACRO__initialmeltchunk_43 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; MELT_LOCATION("warmelt-macro.melt:6442:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1980*/ meltfptr[1979])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1886__MEXPAND_DEREF#4", NULL != (/*_.CLASS_REFERENCE__V56*/ meltfptr[55])); ((meltroutine_ptr_t)/*_._VALROUT___V1980*/ meltfptr[1979])->tabval[4] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V56*/ meltfptr[55]); MELT_LOCATION("warmelt-macro.melt:6442:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1980*/ meltfptr[1979])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1886__MEXPAND_DEREF#5", NULL != (/*_.CLASS_CLASS__V72*/ meltfptr[71])); ((meltroutine_ptr_t)/*_._VALROUT___V1980*/ meltfptr[1979])->tabval[5] = (melt_ptr_t)(/*_.CLASS_CLASS__V72*/ meltfptr[71]); MELT_LOCATION("warmelt-macro.melt:6442:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1980*/ meltfptr[1979])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1589*/ meltfptr[1588]); ((meltroutine_ptr_t)/*_._VALROUT___V1980*/ meltfptr[1979])->tabval[6] = (melt_ptr_t)(/*_._VALCLO___V1589*/ meltfptr[1588]); MELT_LOCATION("warmelt-macro.melt:6442:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1980*/ meltfptr[1979])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1341*/ meltfptr[1340]); ((meltroutine_ptr_t)/*_._VALROUT___V1980*/ meltfptr[1979])->tabval[7] = (melt_ptr_t)(/*_._VALDATA___V1341*/ meltfptr[1340]); MELT_LOCATION("warmelt-macro.melt:6442:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1980*/ meltfptr[1979])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1886__MEXPAND_DEREF#8", NULL != (/*_._VALDATA___V1715*/ meltfptr[1714])); ((meltroutine_ptr_t)/*_._VALROUT___V1980*/ meltfptr[1979])->tabval[8] = (melt_ptr_t)(/*_._VALDATA___V1715*/ meltfptr[1714]); MELT_LOCATION("warmelt-macro.melt:6442:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1980*/ meltfptr[1979])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1886__MEXPAND_DEREF#9", NULL != (/*_.FIND_ENV__V31*/ meltfptr[30])); ((meltroutine_ptr_t)/*_._VALROUT___V1980*/ meltfptr[1979])->tabval[9] = (melt_ptr_t)(/*_.FIND_ENV__V31*/ meltfptr[30]); MELT_LOCATION("warmelt-macro.melt:6442:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1980*/ meltfptr[1979])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1886__MEXPAND_DEREF#10", NULL != (/*_._VALDATA___V1715*/ meltfptr[1714])); ((meltroutine_ptr_t)/*_._VALROUT___V1980*/ meltfptr[1979])->tabval[10] = (melt_ptr_t)(/*_._VALDATA___V1715*/ meltfptr[1714]); MELT_LOCATION("warmelt-macro.melt:6442:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1980*/ meltfptr[1979])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V991*/ meltfptr[990]); ((meltroutine_ptr_t)/*_._VALROUT___V1980*/ meltfptr[1979])->tabval[11] = (melt_ptr_t)(/*_._VALDATA___V991*/ meltfptr[990]); MELT_LOCATION("warmelt-macro.melt:6442:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1980*/ meltfptr[1979])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1886__MEXPAND_DEREF#12", NULL != (/*_.REFERENCED_VALUE__V81*/ meltfptr[80])); ((meltroutine_ptr_t)/*_._VALROUT___V1980*/ meltfptr[1979])->tabval[12] = (melt_ptr_t)(/*_.REFERENCED_VALUE__V81*/ meltfptr[80]); MELT_LOCATION("warmelt-macro.melt:6442:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1980*/ meltfptr[1979])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1886__MEXPAND_DEREF#13", NULL != (/*_.CLASS_FIELD__V36*/ meltfptr[35])); ((meltroutine_ptr_t)/*_._VALROUT___V1980*/ meltfptr[1979])->tabval[13] = (melt_ptr_t)(/*_.CLASS_FIELD__V36*/ meltfptr[35]); MELT_LOCATION("warmelt-macro.melt:6442:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1980*/ meltfptr[1979]); /*putclosurout#96*/ melt_assertmsg("putclosrout#96 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1981*/ meltfptr[1980])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#96 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1980*/ meltfptr[1979])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1981*/ meltfptr[1980])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1980*/ meltfptr[1979]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1981*/ meltfptr[1980]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1888__REFERENCED_VALUE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1982*/ meltfptr[1981])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1888__REFERENCED_VALUE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1982*/ meltfptr[1981])))); ((meltobject_ptr_t)(/*_._VALDATA___V1982*/ meltfptr[1981]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1983*/ meltfptr[1982]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1982*/ meltfptr[1981]); melt_dbgtrace_written_object (/*_._VALDATA___V1982*/ meltfptr[1981], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1890__DEREF @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1984*/ meltfptr[1983])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1890__DEREF @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1984*/ meltfptr[1983])))); ((meltobject_ptr_t)(/*_._VALDATA___V1984*/ meltfptr[1983]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1985*/ meltfptr[1984]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1984*/ meltfptr[1983]); melt_dbgtrace_written_object (/*_._VALDATA___V1984*/ meltfptr[1983], "new static instance"); MELT_LOCATION("warmelt-macro.melt:6487:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1986*/ meltfptr[1985])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1892__MEXPANDOBSOLETE_CONTENT#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1986*/ meltfptr[1985])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:6487:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1986*/ meltfptr[1985])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1892__MEXPANDOBSOLETE_CONTENT#1", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V1986*/ meltfptr[1985])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:6487:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1986*/ meltfptr[1985])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1892__MEXPANDOBSOLETE_CONTENT#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1986*/ meltfptr[1985])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:6487:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1986*/ meltfptr[1985])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1892__MEXPANDOBSOLETE_CONTENT#3", NULL != (/*_.CLASS_LOCATED__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V1986*/ meltfptr[1985])->tabval[3] = (melt_ptr_t)(/*_.CLASS_LOCATED__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-macro.melt:6487:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1986*/ meltfptr[1985])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1981*/ meltfptr[1980]); ((meltroutine_ptr_t)/*_._VALROUT___V1986*/ meltfptr[1985])->tabval[4] = (melt_ptr_t)(/*_._VALCLO___V1981*/ meltfptr[1980]); MELT_LOCATION("warmelt-macro.melt:6487:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1986*/ meltfptr[1985]); /*putclosurout#97*/ melt_assertmsg("putclosrout#97 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1987*/ meltfptr[1986])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#97 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1986*/ meltfptr[1985])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1987*/ meltfptr[1986])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1986*/ meltfptr[1985]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1987*/ meltfptr[1986]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1894__CONTENT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1988*/ meltfptr[1987])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1894__CONTENT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1988*/ meltfptr[1987])))); ((meltobject_ptr_t)(/*_._VALDATA___V1988*/ meltfptr[1987]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1989*/ meltfptr[1988]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1988*/ meltfptr[1987]); melt_dbgtrace_written_object (/*_._VALDATA___V1988*/ meltfptr[1987], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1896__EXCLAIM @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1990*/ meltfptr[1989])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1896__EXCLAIM @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1990*/ meltfptr[1989])))); ((meltobject_ptr_t)(/*_._VALDATA___V1990*/ meltfptr[1989]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1991*/ meltfptr[1990]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1990*/ meltfptr[1989]); melt_dbgtrace_written_object (/*_._VALDATA___V1990*/ meltfptr[1989], "new static instance"); MELT_LOCATION("warmelt-macro.melt:6509:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1992*/ meltfptr[1991])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1898__MEXPAND_SET_REF#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1992*/ meltfptr[1991])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:6509:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1992*/ meltfptr[1991])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1898__MEXPAND_SET_REF#1", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V1992*/ meltfptr[1991])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:6509:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1992*/ meltfptr[1991])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1898__MEXPAND_SET_REF#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1992*/ meltfptr[1991])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:6509:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1992*/ meltfptr[1991])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1898__MEXPAND_SET_REF#3", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V1992*/ meltfptr[1991])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:6509:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1992*/ meltfptr[1991])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1898__MEXPAND_SET_REF#4", NULL != (/*_.CLASS_REFERENCE__V56*/ meltfptr[55])); ((meltroutine_ptr_t)/*_._VALROUT___V1992*/ meltfptr[1991])->tabval[4] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V56*/ meltfptr[55]); MELT_LOCATION("warmelt-macro.melt:6509:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1992*/ meltfptr[1991])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1898__MEXPAND_SET_REF#5", NULL != (/*_.CLASS_CLASS__V72*/ meltfptr[71])); ((meltroutine_ptr_t)/*_._VALROUT___V1992*/ meltfptr[1991])->tabval[5] = (melt_ptr_t)(/*_.CLASS_CLASS__V72*/ meltfptr[71]); MELT_LOCATION("warmelt-macro.melt:6509:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1992*/ meltfptr[1991])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1589*/ meltfptr[1588]); ((meltroutine_ptr_t)/*_._VALROUT___V1992*/ meltfptr[1991])->tabval[6] = (melt_ptr_t)(/*_._VALCLO___V1589*/ meltfptr[1588]); MELT_LOCATION("warmelt-macro.melt:6509:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1992*/ meltfptr[1991])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1341*/ meltfptr[1340]); ((meltroutine_ptr_t)/*_._VALROUT___V1992*/ meltfptr[1991])->tabval[7] = (melt_ptr_t)(/*_._VALDATA___V1341*/ meltfptr[1340]); MELT_LOCATION("warmelt-macro.melt:6509:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1992*/ meltfptr[1991])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1898__MEXPAND_SET_REF#8", NULL != (/*_._VALDATA___V1715*/ meltfptr[1714])); ((meltroutine_ptr_t)/*_._VALROUT___V1992*/ meltfptr[1991])->tabval[8] = (melt_ptr_t)(/*_._VALDATA___V1715*/ meltfptr[1714]); MELT_LOCATION("warmelt-macro.melt:6509:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1992*/ meltfptr[1991])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1898__MEXPAND_SET_REF#9", NULL != (/*_.FIND_ENV__V31*/ meltfptr[30])); ((meltroutine_ptr_t)/*_._VALROUT___V1992*/ meltfptr[1991])->tabval[9] = (melt_ptr_t)(/*_.FIND_ENV__V31*/ meltfptr[30]); MELT_LOCATION("warmelt-macro.melt:6509:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1992*/ meltfptr[1991])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1898__MEXPAND_SET_REF#10", NULL != (/*_._VALDATA___V1715*/ meltfptr[1714])); ((meltroutine_ptr_t)/*_._VALROUT___V1992*/ meltfptr[1991])->tabval[10] = (melt_ptr_t)(/*_._VALDATA___V1715*/ meltfptr[1714]); MELT_LOCATION("warmelt-macro.melt:6509:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1992*/ meltfptr[1991])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V959*/ meltfptr[958]); ((meltroutine_ptr_t)/*_._VALROUT___V1992*/ meltfptr[1991])->tabval[11] = (melt_ptr_t)(/*_._VALDATA___V959*/ meltfptr[958]); MELT_LOCATION("warmelt-macro.melt:6509:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1992*/ meltfptr[1991])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1898__MEXPAND_SET_REF#12", NULL != (/*_.REFERENCED_VALUE__V81*/ meltfptr[80])); ((meltroutine_ptr_t)/*_._VALROUT___V1992*/ meltfptr[1991])->tabval[12] = (melt_ptr_t)(/*_.REFERENCED_VALUE__V81*/ meltfptr[80]); MELT_LOCATION("warmelt-macro.melt:6509:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1992*/ meltfptr[1991])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1011*/ meltfptr[1010]); ((meltroutine_ptr_t)/*_._VALROUT___V1992*/ meltfptr[1991])->tabval[13] = (melt_ptr_t)(/*_._VALDATA___V1011*/ meltfptr[1010]); MELT_LOCATION("warmelt-macro.melt:6509:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1992*/ meltfptr[1991])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1898__MEXPAND_SET_REF#14", NULL != (/*_.CLASS_FIELD__V36*/ meltfptr[35])); ((meltroutine_ptr_t)/*_._VALROUT___V1992*/ meltfptr[1991])->tabval[14] = (melt_ptr_t)(/*_.CLASS_FIELD__V36*/ meltfptr[35]); MELT_LOCATION("warmelt-macro.melt:6509:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1992*/ meltfptr[1991]); /*putclosurout#98*/ melt_assertmsg("putclosrout#98 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1993*/ meltfptr[1992])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#98 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1992*/ meltfptr[1991])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1993*/ meltfptr[1992])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1992*/ meltfptr[1991]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1993*/ meltfptr[1992]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1900__SET_REF @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1994*/ meltfptr[1993])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1900__SET_REF @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1994*/ meltfptr[1993])))); ((meltobject_ptr_t)(/*_._VALDATA___V1994*/ meltfptr[1993]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1995*/ meltfptr[1994]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1994*/ meltfptr[1993]); melt_dbgtrace_written_object (/*_._VALDATA___V1994*/ meltfptr[1993], "new static instance"); MELT_LOCATION("warmelt-macro.melt:6562:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1996*/ meltfptr[1995])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1902__MEXPAND_PLUS#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V1996*/ meltfptr[1995])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:6562:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1996*/ meltfptr[1995])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1902__MEXPAND_PLUS#1", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V1996*/ meltfptr[1995])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:6562:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1996*/ meltfptr[1995])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1902__MEXPAND_PLUS#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1996*/ meltfptr[1995])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:6562:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1996*/ meltfptr[1995])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1902__MEXPAND_PLUS#3", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V1996*/ meltfptr[1995])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:6562:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1996*/ meltfptr[1995])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1589*/ meltfptr[1588]); ((meltroutine_ptr_t)/*_._VALROUT___V1996*/ meltfptr[1995])->tabval[4] = (melt_ptr_t)(/*_._VALCLO___V1589*/ meltfptr[1588]); MELT_LOCATION("warmelt-macro.melt:6562:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1996*/ meltfptr[1995])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V417*/ meltfptr[416]); ((meltroutine_ptr_t)/*_._VALROUT___V1996*/ meltfptr[1995])->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V417*/ meltfptr[416]); MELT_LOCATION("warmelt-macro.melt:6562:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1996*/ meltfptr[1995])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1902__MEXPAND_PLUS#6", NULL != (/*_._VALBXINT___V1997*/ meltfptr[1996])); ((meltroutine_ptr_t)/*_._VALROUT___V1996*/ meltfptr[1995])->tabval[6] = (melt_ptr_t)(/*_._VALBXINT___V1997*/ meltfptr[1996]); MELT_LOCATION("warmelt-macro.melt:6562:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1996*/ meltfptr[1995])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1902__MEXPAND_PLUS#7", NULL != (/*_.plI__V82*/ meltfptr[81])); ((meltroutine_ptr_t)/*_._VALROUT___V1996*/ meltfptr[1995])->tabval[7] = (melt_ptr_t)(/*_.plI__V82*/ meltfptr[81]); MELT_LOCATION("warmelt-macro.melt:6562:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1996*/ meltfptr[1995]); /*putclosurout#99*/ melt_assertmsg("putclosrout#99 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1998*/ meltfptr[1997])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#99 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1996*/ meltfptr[1995])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1998*/ meltfptr[1997])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1996*/ meltfptr[1995]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1998*/ meltfptr[1997]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1905__plI @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1999*/ meltfptr[1998])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1905__plI @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1999*/ meltfptr[1998])))); ((meltobject_ptr_t)(/*_._VALDATA___V1999*/ meltfptr[1998]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2000*/ meltfptr[1999]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1999*/ meltfptr[1998]); melt_dbgtrace_written_object (/*_._VALDATA___V1999*/ meltfptr[1998], "new static instance"); MELT_LOCATION("warmelt-macro.melt:6591:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2001*/ meltfptr[2000])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1907__MEXPAND_MINUS#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V2001*/ meltfptr[2000])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:6591:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2001*/ meltfptr[2000])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1907__MEXPAND_MINUS#1", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V2001*/ meltfptr[2000])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:6591:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2001*/ meltfptr[2000])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1907__MEXPAND_MINUS#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V2001*/ meltfptr[2000])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:6591:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2001*/ meltfptr[2000])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1907__MEXPAND_MINUS#3", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V2001*/ meltfptr[2000])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:6591:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2001*/ meltfptr[2000])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1589*/ meltfptr[1588]); ((meltroutine_ptr_t)/*_._VALROUT___V2001*/ meltfptr[2000])->tabval[4] = (melt_ptr_t)(/*_._VALCLO___V1589*/ meltfptr[1588]); MELT_LOCATION("warmelt-macro.melt:6591:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2001*/ meltfptr[2000])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V417*/ meltfptr[416]); ((meltroutine_ptr_t)/*_._VALROUT___V2001*/ meltfptr[2000])->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V417*/ meltfptr[416]); MELT_LOCATION("warmelt-macro.melt:6591:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2001*/ meltfptr[2000])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1907__MEXPAND_MINUS#6", NULL != (/*_._VALBXINT___V2002*/ meltfptr[2001])); ((meltroutine_ptr_t)/*_._VALROUT___V2001*/ meltfptr[2000])->tabval[6] = (melt_ptr_t)(/*_._VALBXINT___V2002*/ meltfptr[2001]); MELT_LOCATION("warmelt-macro.melt:6591:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2001*/ meltfptr[2000])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1907__MEXPAND_MINUS#7", NULL != (/*_.miI__V83*/ meltfptr[82])); ((meltroutine_ptr_t)/*_._VALROUT___V2001*/ meltfptr[2000])->tabval[7] = (melt_ptr_t)(/*_.miI__V83*/ meltfptr[82]); MELT_LOCATION("warmelt-macro.melt:6591:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V2001*/ meltfptr[2000]); /*putclosurout#100*/ melt_assertmsg("putclosrout#100 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V2003*/ meltfptr[2002])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#100 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2001*/ meltfptr[2000])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V2003*/ meltfptr[2002])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V2001*/ meltfptr[2000]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V2003*/ meltfptr[2002]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1910__miI @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2004*/ meltfptr[2003])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1910__miI @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2004*/ meltfptr[2003])))); ((meltobject_ptr_t)(/*_._VALDATA___V2004*/ meltfptr[2003]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2005*/ meltfptr[2004]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2004*/ meltfptr[2003]); melt_dbgtrace_written_object (/*_._VALDATA___V2004*/ meltfptr[2003], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1912__mi @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2006*/ meltfptr[2005])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1912__mi @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2006*/ meltfptr[2005])))); ((meltobject_ptr_t)(/*_._VALDATA___V2006*/ meltfptr[2005]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2007*/ meltfptr[2006]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2006*/ meltfptr[2005]); melt_dbgtrace_written_object (/*_._VALDATA___V2006*/ meltfptr[2005], "new static instance"); MELT_LOCATION("warmelt-macro.melt:6620:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2008*/ meltfptr[2007])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1914__MEXPAND_TIMES#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V2008*/ meltfptr[2007])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:6620:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2008*/ meltfptr[2007])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1914__MEXPAND_TIMES#1", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V2008*/ meltfptr[2007])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:6620:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2008*/ meltfptr[2007])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1914__MEXPAND_TIMES#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V2008*/ meltfptr[2007])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:6620:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2008*/ meltfptr[2007])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1914__MEXPAND_TIMES#3", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V2008*/ meltfptr[2007])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:6620:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2008*/ meltfptr[2007])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1589*/ meltfptr[1588]); ((meltroutine_ptr_t)/*_._VALROUT___V2008*/ meltfptr[2007])->tabval[4] = (melt_ptr_t)(/*_._VALCLO___V1589*/ meltfptr[1588]); MELT_LOCATION("warmelt-macro.melt:6620:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2008*/ meltfptr[2007])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V417*/ meltfptr[416]); ((meltroutine_ptr_t)/*_._VALROUT___V2008*/ meltfptr[2007])->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V417*/ meltfptr[416]); MELT_LOCATION("warmelt-macro.melt:6620:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2008*/ meltfptr[2007])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1914__MEXPAND_TIMES#6", NULL != (/*_._VALBXINT___V2009*/ meltfptr[2008])); ((meltroutine_ptr_t)/*_._VALROUT___V2008*/ meltfptr[2007])->tabval[6] = (melt_ptr_t)(/*_._VALBXINT___V2009*/ meltfptr[2008]); MELT_LOCATION("warmelt-macro.melt:6620:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2008*/ meltfptr[2007])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1914__MEXPAND_TIMES#7", NULL != (/*_.stI__V84*/ meltfptr[83])); ((meltroutine_ptr_t)/*_._VALROUT___V2008*/ meltfptr[2007])->tabval[7] = (melt_ptr_t)(/*_.stI__V84*/ meltfptr[83]); MELT_LOCATION("warmelt-macro.melt:6620:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V2008*/ meltfptr[2007]); /*putclosurout#101*/ melt_assertmsg("putclosrout#101 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V2010*/ meltfptr[2009])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#101 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2008*/ meltfptr[2007])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V2010*/ meltfptr[2009])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V2008*/ meltfptr[2007]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V2010*/ meltfptr[2009]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1917__stI @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2011*/ meltfptr[2010])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1917__stI @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2011*/ meltfptr[2010])))); ((meltobject_ptr_t)(/*_._VALDATA___V2011*/ meltfptr[2010]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2012*/ meltfptr[2011]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2011*/ meltfptr[2010]); melt_dbgtrace_written_object (/*_._VALDATA___V2011*/ meltfptr[2010], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1919__st @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2013*/ meltfptr[2012])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1919__st @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2013*/ meltfptr[2012])))); ((meltobject_ptr_t)(/*_._VALDATA___V2013*/ meltfptr[2012]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2014*/ meltfptr[2013]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2013*/ meltfptr[2012]); melt_dbgtrace_written_object (/*_._VALDATA___V2013*/ meltfptr[2012], "new static instance"); MELT_LOCATION("warmelt-macro.melt:6649:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2015*/ meltfptr[2014])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1921__MEXPAND_DIV#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V2015*/ meltfptr[2014])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:6649:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2015*/ meltfptr[2014])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1921__MEXPAND_DIV#1", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V2015*/ meltfptr[2014])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:6649:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2015*/ meltfptr[2014])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1921__MEXPAND_DIV#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V2015*/ meltfptr[2014])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:6649:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2015*/ meltfptr[2014])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1921__MEXPAND_DIV#3", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V2015*/ meltfptr[2014])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:6649:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2015*/ meltfptr[2014])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1589*/ meltfptr[1588]); ((meltroutine_ptr_t)/*_._VALROUT___V2015*/ meltfptr[2014])->tabval[4] = (melt_ptr_t)(/*_._VALCLO___V1589*/ meltfptr[1588]); MELT_LOCATION("warmelt-macro.melt:6649:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2015*/ meltfptr[2014])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V417*/ meltfptr[416]); ((meltroutine_ptr_t)/*_._VALROUT___V2015*/ meltfptr[2014])->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V417*/ meltfptr[416]); MELT_LOCATION("warmelt-macro.melt:6649:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2015*/ meltfptr[2014])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1921__MEXPAND_DIV#6", NULL != (/*_._VALBXINT___V2016*/ meltfptr[2015])); ((meltroutine_ptr_t)/*_._VALROUT___V2015*/ meltfptr[2014])->tabval[6] = (melt_ptr_t)(/*_._VALBXINT___V2016*/ meltfptr[2015]); MELT_LOCATION("warmelt-macro.melt:6649:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2015*/ meltfptr[2014])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1921__MEXPAND_DIV#7", NULL != (/*_.diI__V85*/ meltfptr[84])); ((meltroutine_ptr_t)/*_._VALROUT___V2015*/ meltfptr[2014])->tabval[7] = (melt_ptr_t)(/*_.diI__V85*/ meltfptr[84]); MELT_LOCATION("warmelt-macro.melt:6649:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V2015*/ meltfptr[2014]); /*putclosurout#102*/ melt_assertmsg("putclosrout#102 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V2017*/ meltfptr[2016])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#102 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2015*/ meltfptr[2014])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V2017*/ meltfptr[2016])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V2015*/ meltfptr[2014]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V2017*/ meltfptr[2016]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1924__diI @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2018*/ meltfptr[2017])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1924__diI @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2018*/ meltfptr[2017])))); ((meltobject_ptr_t)(/*_._VALDATA___V2018*/ meltfptr[2017]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2019*/ meltfptr[2018]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2018*/ meltfptr[2017]); melt_dbgtrace_written_object (/*_._VALDATA___V2018*/ meltfptr[2017], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1926__di @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2020*/ meltfptr[2019])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1926__di @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2020*/ meltfptr[2019])))); ((meltobject_ptr_t)(/*_._VALDATA___V2020*/ meltfptr[2019]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2021*/ meltfptr[2020]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2020*/ meltfptr[2019]); melt_dbgtrace_written_object (/*_._VALDATA___V2020*/ meltfptr[2019], "new static instance"); MELT_LOCATION("warmelt-macro.melt:6678:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2022*/ meltfptr[2021])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1928__MEXPAND_TUPLE#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V2022*/ meltfptr[2021])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:6678:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2022*/ meltfptr[2021])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1928__MEXPAND_TUPLE#1", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V2022*/ meltfptr[2021])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:6678:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2022*/ meltfptr[2021])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1928__MEXPAND_TUPLE#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V2022*/ meltfptr[2021])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:6678:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2022*/ meltfptr[2021])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1928__MEXPAND_TUPLE#3", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V2022*/ meltfptr[2021])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:6678:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2022*/ meltfptr[2021])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1589*/ meltfptr[1588]); ((meltroutine_ptr_t)/*_._VALROUT___V2022*/ meltfptr[2021])->tabval[4] = (melt_ptr_t)(/*_._VALCLO___V1589*/ meltfptr[1588]); MELT_LOCATION("warmelt-macro.melt:6678:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2022*/ meltfptr[2021])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V473*/ meltfptr[472]); ((meltroutine_ptr_t)/*_._VALROUT___V2022*/ meltfptr[2021])->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V473*/ meltfptr[472]); MELT_LOCATION("warmelt-macro.melt:6678:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V2022*/ meltfptr[2021]); /*putclosurout#103*/ melt_assertmsg("putclosrout#103 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V2023*/ meltfptr[2022])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#103 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2022*/ meltfptr[2021])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V2023*/ meltfptr[2022])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V2022*/ meltfptr[2021]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V2023*/ meltfptr[2022]); #undef meltfram__ } /*end of meltmod__WARMELTmiMACRO__initialmeltchunk_43*/ void meltmod__WARMELTmiMACRO__initialmeltchunk_44 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; MELT_LOCATION("warmelt-macro.melt:6695:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2024*/ meltfptr[2023])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1930__PATEXPAND_TUPLE#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V2024*/ meltfptr[2023])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:6695:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2024*/ meltfptr[2023])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1930__PATEXPAND_TUPLE#1", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V2024*/ meltfptr[2023])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:6695:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2024*/ meltfptr[2023])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1930__PATEXPAND_TUPLE#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V2024*/ meltfptr[2023])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:6695:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2024*/ meltfptr[2023])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1930__PATEXPAND_TUPLE#3", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V2024*/ meltfptr[2023])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:6695:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2024*/ meltfptr[2023])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1671*/ meltfptr[1670]); ((meltroutine_ptr_t)/*_._VALROUT___V2024*/ meltfptr[2023])->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V1671*/ meltfptr[1670]); MELT_LOCATION("warmelt-macro.melt:6695:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2024*/ meltfptr[2023])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1712*/ meltfptr[1711]); ((meltroutine_ptr_t)/*_._VALROUT___V2024*/ meltfptr[2023])->tabval[5] = (melt_ptr_t)(/*_._VALCLO___V1712*/ meltfptr[1711]); MELT_LOCATION("warmelt-macro.melt:6695:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2024*/ meltfptr[2023])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1481*/ meltfptr[1480]); ((meltroutine_ptr_t)/*_._VALROUT___V2024*/ meltfptr[2023])->tabval[6] = (melt_ptr_t)(/*_._VALDATA___V1481*/ meltfptr[1480]); MELT_LOCATION("warmelt-macro.melt:6695:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V2024*/ meltfptr[2023]); /*putclosurout#104*/ melt_assertmsg("putclosrout#104 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V2025*/ meltfptr[2024])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#104 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2024*/ meltfptr[2023])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V2025*/ meltfptr[2024])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V2024*/ meltfptr[2023]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V2025*/ meltfptr[2024]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1932__TUPLE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2026*/ meltfptr[2025])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1932__TUPLE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2026*/ meltfptr[2025])))); ((meltobject_ptr_t)(/*_._VALDATA___V2026*/ meltfptr[2025]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2027*/ meltfptr[2026]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2026*/ meltfptr[2025]); melt_dbgtrace_written_object (/*_._VALDATA___V2026*/ meltfptr[2025], "new static instance"); MELT_LOCATION("warmelt-macro.melt:6724:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2028*/ meltfptr[2027])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1934__MEXPAND_LIST#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V2028*/ meltfptr[2027])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:6724:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2028*/ meltfptr[2027])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1934__MEXPAND_LIST#1", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V2028*/ meltfptr[2027])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:6724:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2028*/ meltfptr[2027])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1934__MEXPAND_LIST#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V2028*/ meltfptr[2027])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:6724:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2028*/ meltfptr[2027])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1934__MEXPAND_LIST#3", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V2028*/ meltfptr[2027])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:6724:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2028*/ meltfptr[2027])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1589*/ meltfptr[1588]); ((meltroutine_ptr_t)/*_._VALROUT___V2028*/ meltfptr[2027])->tabval[4] = (melt_ptr_t)(/*_._VALCLO___V1589*/ meltfptr[1588]); MELT_LOCATION("warmelt-macro.melt:6724:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2028*/ meltfptr[2027])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V479*/ meltfptr[478]); ((meltroutine_ptr_t)/*_._VALROUT___V2028*/ meltfptr[2027])->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V479*/ meltfptr[478]); MELT_LOCATION("warmelt-macro.melt:6724:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V2028*/ meltfptr[2027]); /*putclosurout#105*/ melt_assertmsg("putclosrout#105 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V2029*/ meltfptr[2028])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#105 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2028*/ meltfptr[2027])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V2029*/ meltfptr[2028])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V2028*/ meltfptr[2027]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V2029*/ meltfptr[2028]); MELT_LOCATION("warmelt-macro.melt:6741:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2030*/ meltfptr[2029])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1936__PATEXPAND_LIST#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V2030*/ meltfptr[2029])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:6741:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2030*/ meltfptr[2029])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1936__PATEXPAND_LIST#1", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V2030*/ meltfptr[2029])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:6741:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2030*/ meltfptr[2029])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1936__PATEXPAND_LIST#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V2030*/ meltfptr[2029])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:6741:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2030*/ meltfptr[2029])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1936__PATEXPAND_LIST#3", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V2030*/ meltfptr[2029])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:6741:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2030*/ meltfptr[2029])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1671*/ meltfptr[1670]); ((meltroutine_ptr_t)/*_._VALROUT___V2030*/ meltfptr[2029])->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V1671*/ meltfptr[1670]); MELT_LOCATION("warmelt-macro.melt:6741:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2030*/ meltfptr[2029])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1712*/ meltfptr[1711]); ((meltroutine_ptr_t)/*_._VALROUT___V2030*/ meltfptr[2029])->tabval[5] = (melt_ptr_t)(/*_._VALCLO___V1712*/ meltfptr[1711]); MELT_LOCATION("warmelt-macro.melt:6741:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2030*/ meltfptr[2029])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1487*/ meltfptr[1486]); ((meltroutine_ptr_t)/*_._VALROUT___V2030*/ meltfptr[2029])->tabval[6] = (melt_ptr_t)(/*_._VALDATA___V1487*/ meltfptr[1486]); MELT_LOCATION("warmelt-macro.melt:6741:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V2030*/ meltfptr[2029]); /*putclosurout#106*/ melt_assertmsg("putclosrout#106 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V2031*/ meltfptr[2030])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#106 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2030*/ meltfptr[2029])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V2031*/ meltfptr[2030])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V2030*/ meltfptr[2029]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V2031*/ meltfptr[2030]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1938__LIST @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2032*/ meltfptr[2031])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1938__LIST @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2032*/ meltfptr[2031])))); ((meltobject_ptr_t)(/*_._VALDATA___V2032*/ meltfptr[2031]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2033*/ meltfptr[2032]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2032*/ meltfptr[2031]); melt_dbgtrace_written_object (/*_._VALDATA___V2032*/ meltfptr[2031], "new static instance"); MELT_LOCATION("warmelt-macro.melt:6771:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2034*/ meltfptr[2033])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1940__MEXPAND_MATCH#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V2034*/ meltfptr[2033])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:6771:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2034*/ meltfptr[2033])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1940__MEXPAND_MATCH#1", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V2034*/ meltfptr[2033])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:6771:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2034*/ meltfptr[2033])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1940__MEXPAND_MATCH#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V2034*/ meltfptr[2033])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:6771:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2034*/ meltfptr[2033])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1940__MEXPAND_MATCH#3", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V2034*/ meltfptr[2033])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:6771:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2034*/ meltfptr[2033])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1642*/ meltfptr[1641]); ((meltroutine_ptr_t)/*_._VALROUT___V2034*/ meltfptr[2033])->tabval[4] = (melt_ptr_t)(/*_._VALCLO___V1642*/ meltfptr[1641]); MELT_LOCATION("warmelt-macro.melt:6771:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2034*/ meltfptr[2033])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1940__MEXPAND_MATCH#5", NULL != (/*_.PAIRLIST_TO_MULTIPLE__V55*/ meltfptr[54])); ((meltroutine_ptr_t)/*_._VALROUT___V2034*/ meltfptr[2033])->tabval[5] = (melt_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V55*/ meltfptr[54]); MELT_LOCATION("warmelt-macro.melt:6771:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2034*/ meltfptr[2033])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1940__MEXPAND_MATCH#6", NULL != (/*_.DISCR_MULTIPLE__V13*/ meltfptr[12])); ((meltroutine_ptr_t)/*_._VALROUT___V2034*/ meltfptr[2033])->tabval[6] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V13*/ meltfptr[12]); MELT_LOCATION("warmelt-macro.melt:6771:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2034*/ meltfptr[2033])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1940__MEXPAND_MATCH#7", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V2034*/ meltfptr[2033])->tabval[7] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:6785:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2035*/ meltfptr[2034])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1942__LAMBDA_#0", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V2035*/ meltfptr[2034])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:6785:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V2035*/ meltfptr[2034]); MELT_LOCATION("warmelt-macro.melt:6771:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2034*/ meltfptr[2033])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1940__MEXPAND_MATCH#8", NULL != (/*_._VALROUT___V2035*/ meltfptr[2034])); ((meltroutine_ptr_t)/*_._VALROUT___V2034*/ meltfptr[2033])->tabval[8] = (melt_ptr_t)(/*_._VALROUT___V2035*/ meltfptr[2034]); MELT_LOCATION("warmelt-macro.melt:6771:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2034*/ meltfptr[2033])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1940__MEXPAND_MATCH#9", NULL != (/*_.DISCR_LIST__V34*/ meltfptr[33])); ((meltroutine_ptr_t)/*_._VALROUT___V2034*/ meltfptr[2033])->tabval[9] = (melt_ptr_t)(/*_.DISCR_LIST__V34*/ meltfptr[33]); MELT_LOCATION("warmelt-macro.melt:6771:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2034*/ meltfptr[2033])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1671*/ meltfptr[1670]); ((meltroutine_ptr_t)/*_._VALROUT___V2034*/ meltfptr[2033])->tabval[10] = (melt_ptr_t)(/*_._VALDATA___V1671*/ meltfptr[1670]); MELT_LOCATION("warmelt-macro.melt:6771:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2034*/ meltfptr[2033])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1692*/ meltfptr[1691]); ((meltroutine_ptr_t)/*_._VALROUT___V2034*/ meltfptr[2033])->tabval[11] = (melt_ptr_t)(/*_._VALCLO___V1692*/ meltfptr[1691]); MELT_LOCATION("warmelt-macro.melt:6771:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2034*/ meltfptr[2033])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1940__MEXPAND_MATCH#12", NULL != (/*_.DISCR_MAP_OBJECTS__V21*/ meltfptr[20])); ((meltroutine_ptr_t)/*_._VALROUT___V2034*/ meltfptr[2033])->tabval[12] = (melt_ptr_t)(/*_.DISCR_MAP_OBJECTS__V21*/ meltfptr[20]); MELT_LOCATION("warmelt-macro.melt:6771:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2034*/ meltfptr[2033])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1593*/ meltfptr[1592]); ((meltroutine_ptr_t)/*_._VALROUT___V2034*/ meltfptr[2033])->tabval[13] = (melt_ptr_t)(/*_._VALCLO___V1593*/ meltfptr[1592]); MELT_LOCATION("warmelt-macro.melt:6771:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2034*/ meltfptr[2033])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1103*/ meltfptr[1102]); ((meltroutine_ptr_t)/*_._VALROUT___V2034*/ meltfptr[2033])->tabval[14] = (melt_ptr_t)(/*_._VALDATA___V1103*/ meltfptr[1102]); MELT_LOCATION("warmelt-macro.melt:6771:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2034*/ meltfptr[2033])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1940__MEXPAND_MATCH#15", NULL != (/*_.LIST_TO_MULTIPLE__V12*/ meltfptr[11])); ((meltroutine_ptr_t)/*_._VALROUT___V2034*/ meltfptr[2033])->tabval[15] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V12*/ meltfptr[11]); MELT_LOCATION("warmelt-macro.melt:6771:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2034*/ meltfptr[2033])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1083*/ meltfptr[1082]); ((meltroutine_ptr_t)/*_._VALROUT___V2034*/ meltfptr[2033])->tabval[16] = (melt_ptr_t)(/*_._VALDATA___V1083*/ meltfptr[1082]); MELT_LOCATION("warmelt-macro.melt:6771:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2034*/ meltfptr[2033])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1455*/ meltfptr[1454]); ((meltroutine_ptr_t)/*_._VALROUT___V2034*/ meltfptr[2033])->tabval[17] = (melt_ptr_t)(/*_._VALDATA___V1455*/ meltfptr[1454]); MELT_LOCATION("warmelt-macro.melt:6771:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V2034*/ meltfptr[2033]); /*putclosurout#107*/ melt_assertmsg("putclosrout#107 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V2036*/ meltfptr[2035])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#107 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2034*/ meltfptr[2033])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V2036*/ meltfptr[2035])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V2034*/ meltfptr[2033]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V2036*/ meltfptr[2035]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1943__MATCH @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2037*/ meltfptr[2036])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1943__MATCH @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2037*/ meltfptr[2036])))); ((meltobject_ptr_t)(/*_._VALDATA___V2037*/ meltfptr[2036]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2038*/ meltfptr[2037]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2037*/ meltfptr[2036]); melt_dbgtrace_written_object (/*_._VALDATA___V2037*/ meltfptr[2036], "new static instance"); MELT_LOCATION("warmelt-macro.melt:6865:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2039*/ meltfptr[2038])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1945__MEXPAND_MATCHALT#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V2039*/ meltfptr[2038])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:6865:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2039*/ meltfptr[2038])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1945__MEXPAND_MATCHALT#1", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V2039*/ meltfptr[2038])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:6865:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2039*/ meltfptr[2038])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1945__MEXPAND_MATCHALT#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V2039*/ meltfptr[2038])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:6865:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2039*/ meltfptr[2038])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1945__MEXPAND_MATCHALT#3", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V2039*/ meltfptr[2038])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:6865:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2039*/ meltfptr[2038])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1642*/ meltfptr[1641]); ((meltroutine_ptr_t)/*_._VALROUT___V2039*/ meltfptr[2038])->tabval[4] = (melt_ptr_t)(/*_._VALCLO___V1642*/ meltfptr[1641]); MELT_LOCATION("warmelt-macro.melt:6865:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2039*/ meltfptr[2038])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1945__MEXPAND_MATCHALT#5", NULL != (/*_.PAIRLIST_TO_MULTIPLE__V55*/ meltfptr[54])); ((meltroutine_ptr_t)/*_._VALROUT___V2039*/ meltfptr[2038])->tabval[5] = (melt_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V55*/ meltfptr[54]); MELT_LOCATION("warmelt-macro.melt:6865:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2039*/ meltfptr[2038])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1945__MEXPAND_MATCHALT#6", NULL != (/*_.DISCR_MULTIPLE__V13*/ meltfptr[12])); ((meltroutine_ptr_t)/*_._VALROUT___V2039*/ meltfptr[2038])->tabval[6] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V13*/ meltfptr[12]); MELT_LOCATION("warmelt-macro.melt:6865:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2039*/ meltfptr[2038])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1945__MEXPAND_MATCHALT#7", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V2039*/ meltfptr[2038])->tabval[7] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:6879:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2040*/ meltfptr[2039])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1947__LAMBDA_#0", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V2040*/ meltfptr[2039])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:6879:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V2040*/ meltfptr[2039]); MELT_LOCATION("warmelt-macro.melt:6865:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2039*/ meltfptr[2038])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1945__MEXPAND_MATCHALT#8", NULL != (/*_._VALROUT___V2040*/ meltfptr[2039])); ((meltroutine_ptr_t)/*_._VALROUT___V2039*/ meltfptr[2038])->tabval[8] = (melt_ptr_t)(/*_._VALROUT___V2040*/ meltfptr[2039]); MELT_LOCATION("warmelt-macro.melt:6865:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2039*/ meltfptr[2038])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1945__MEXPAND_MATCHALT#9", NULL != (/*_.DISCR_LIST__V34*/ meltfptr[33])); ((meltroutine_ptr_t)/*_._VALROUT___V2039*/ meltfptr[2038])->tabval[9] = (melt_ptr_t)(/*_.DISCR_LIST__V34*/ meltfptr[33]); MELT_LOCATION("warmelt-macro.melt:6865:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2039*/ meltfptr[2038])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1671*/ meltfptr[1670]); ((meltroutine_ptr_t)/*_._VALROUT___V2039*/ meltfptr[2038])->tabval[10] = (melt_ptr_t)(/*_._VALDATA___V1671*/ meltfptr[1670]); MELT_LOCATION("warmelt-macro.melt:6865:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2039*/ meltfptr[2038])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1692*/ meltfptr[1691]); ((meltroutine_ptr_t)/*_._VALROUT___V2039*/ meltfptr[2038])->tabval[11] = (melt_ptr_t)(/*_._VALCLO___V1692*/ meltfptr[1691]); MELT_LOCATION("warmelt-macro.melt:6865:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2039*/ meltfptr[2038])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1945__MEXPAND_MATCHALT#12", NULL != (/*_.DISCR_MAP_OBJECTS__V21*/ meltfptr[20])); ((meltroutine_ptr_t)/*_._VALROUT___V2039*/ meltfptr[2038])->tabval[12] = (melt_ptr_t)(/*_.DISCR_MAP_OBJECTS__V21*/ meltfptr[20]); MELT_LOCATION("warmelt-macro.melt:6865:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2039*/ meltfptr[2038])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1593*/ meltfptr[1592]); ((meltroutine_ptr_t)/*_._VALROUT___V2039*/ meltfptr[2038])->tabval[13] = (melt_ptr_t)(/*_._VALCLO___V1593*/ meltfptr[1592]); MELT_LOCATION("warmelt-macro.melt:6865:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2039*/ meltfptr[2038])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1103*/ meltfptr[1102]); ((meltroutine_ptr_t)/*_._VALROUT___V2039*/ meltfptr[2038])->tabval[14] = (melt_ptr_t)(/*_._VALDATA___V1103*/ meltfptr[1102]); MELT_LOCATION("warmelt-macro.melt:6865:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2039*/ meltfptr[2038])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1945__MEXPAND_MATCHALT#15", NULL != (/*_.LIST_TO_MULTIPLE__V12*/ meltfptr[11])); ((meltroutine_ptr_t)/*_._VALROUT___V2039*/ meltfptr[2038])->tabval[15] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V12*/ meltfptr[11]); MELT_LOCATION("warmelt-macro.melt:6865:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2039*/ meltfptr[2038])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1097*/ meltfptr[1096]); ((meltroutine_ptr_t)/*_._VALROUT___V2039*/ meltfptr[2038])->tabval[16] = (melt_ptr_t)(/*_._VALDATA___V1097*/ meltfptr[1096]); MELT_LOCATION("warmelt-macro.melt:6865:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2039*/ meltfptr[2038])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1455*/ meltfptr[1454]); ((meltroutine_ptr_t)/*_._VALROUT___V2039*/ meltfptr[2038])->tabval[17] = (melt_ptr_t)(/*_._VALDATA___V1455*/ meltfptr[1454]); MELT_LOCATION("warmelt-macro.melt:6865:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V2039*/ meltfptr[2038]); /*putclosurout#108*/ melt_assertmsg("putclosrout#108 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V2041*/ meltfptr[2040])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#108 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2039*/ meltfptr[2038])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V2041*/ meltfptr[2040])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V2039*/ meltfptr[2038]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V2041*/ meltfptr[2040]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1948__MATCHALT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2042*/ meltfptr[2041])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1948__MATCHALT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2042*/ meltfptr[2041])))); ((meltobject_ptr_t)(/*_._VALDATA___V2042*/ meltfptr[2041]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2043*/ meltfptr[2042]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2042*/ meltfptr[2041]); melt_dbgtrace_written_object (/*_._VALDATA___V2042*/ meltfptr[2041], "new static instance"); MELT_LOCATION("warmelt-macro.melt:6957:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2044*/ meltfptr[2043])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1950__MEXPAND_LETBINDING#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V2044*/ meltfptr[2043])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:6957:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2044*/ meltfptr[2043])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1950__MEXPAND_LETBINDING#1", NULL != (/*_.DEBUG_LESS__V35*/ meltfptr[34])); ((meltroutine_ptr_t)/*_._VALROUT___V2044*/ meltfptr[2043])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_LESS__V35*/ meltfptr[34]); MELT_LOCATION("warmelt-macro.melt:6957:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2044*/ meltfptr[2043])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1950__MEXPAND_LETBINDING#2", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V2044*/ meltfptr[2043])->tabval[2] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:6957:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2044*/ meltfptr[2043])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1950__MEXPAND_LETBINDING#3", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V2044*/ meltfptr[2043])->tabval[3] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:6957:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2044*/ meltfptr[2043])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1950__MEXPAND_LETBINDING#4", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V2044*/ meltfptr[2043])->tabval[4] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:6957:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2044*/ meltfptr[2043])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1950__MEXPAND_LETBINDING#5", NULL != (/*_.QUASI_CTYPE_AUTO__V86*/ meltfptr[85])); ((meltroutine_ptr_t)/*_._VALROUT___V2044*/ meltfptr[2043])->tabval[5] = (melt_ptr_t)(/*_.QUASI_CTYPE_AUTO__V86*/ meltfptr[85]); MELT_LOCATION("warmelt-macro.melt:6957:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2044*/ meltfptr[2043])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1950__MEXPAND_LETBINDING#6", NULL != (/*_.CLASS_KEYWORD__V22*/ meltfptr[21])); ((meltroutine_ptr_t)/*_._VALROUT___V2044*/ meltfptr[2043])->tabval[6] = (melt_ptr_t)(/*_.CLASS_KEYWORD__V22*/ meltfptr[21]); MELT_LOCATION("warmelt-macro.melt:6957:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2044*/ meltfptr[2043])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1950__MEXPAND_LETBINDING#7", NULL != (/*_.CLASS_QUASI_CTYPE__V64*/ meltfptr[63])); ((meltroutine_ptr_t)/*_._VALROUT___V2044*/ meltfptr[2043])->tabval[7] = (melt_ptr_t)(/*_.CLASS_QUASI_CTYPE__V64*/ meltfptr[63]); MELT_LOCATION("warmelt-macro.melt:6957:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2044*/ meltfptr[2043])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V306*/ meltfptr[305]); ((meltroutine_ptr_t)/*_._VALROUT___V2044*/ meltfptr[2043])->tabval[8] = (melt_ptr_t)(/*_._VALCLO___V306*/ meltfptr[305]); MELT_LOCATION("warmelt-macro.melt:6957:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2044*/ meltfptr[2043])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1950__MEXPAND_LETBINDING#9", NULL != (/*_.CLASS_CTYPE__V63*/ meltfptr[62])); ((meltroutine_ptr_t)/*_._VALROUT___V2044*/ meltfptr[2043])->tabval[9] = (melt_ptr_t)(/*_.CLASS_CTYPE__V63*/ meltfptr[62]); MELT_LOCATION("warmelt-macro.melt:6957:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2044*/ meltfptr[2043])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V310*/ meltfptr[309]); ((meltroutine_ptr_t)/*_._VALROUT___V2044*/ meltfptr[2043])->tabval[10] = (melt_ptr_t)(/*_._VALCLO___V310*/ meltfptr[309]); MELT_LOCATION("warmelt-macro.melt:6957:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2044*/ meltfptr[2043])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1950__MEXPAND_LETBINDING#11", NULL != (/*_.CLASS_NAMED__V23*/ meltfptr[22])); ((meltroutine_ptr_t)/*_._VALROUT___V2044*/ meltfptr[2043])->tabval[11] = (melt_ptr_t)(/*_.CLASS_NAMED__V23*/ meltfptr[22]); MELT_LOCATION("warmelt-macro.melt:6957:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2044*/ meltfptr[2043])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1950__MEXPAND_LETBINDING#12", NULL != (/*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V2044*/ meltfptr[2043])->tabval[12] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-macro.melt:6957:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2044*/ meltfptr[2043])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1950__MEXPAND_LETBINDING#13", NULL != (/*_.QUASI_CTYPE_MACRO__V87*/ meltfptr[86])); ((meltroutine_ptr_t)/*_._VALROUT___V2044*/ meltfptr[2043])->tabval[13] = (melt_ptr_t)(/*_.QUASI_CTYPE_MACRO__V87*/ meltfptr[86]); MELT_LOCATION("warmelt-macro.melt:6957:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2044*/ meltfptr[2043])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1611*/ meltfptr[1610]); ((meltroutine_ptr_t)/*_._VALROUT___V2044*/ meltfptr[2043])->tabval[14] = (melt_ptr_t)(/*_._VALCLO___V1611*/ meltfptr[1610]); MELT_LOCATION("warmelt-macro.melt:6957:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2044*/ meltfptr[2043])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1950__MEXPAND_LETBINDING#15", NULL != (/*_._VALDATA___V1781*/ meltfptr[1780])); ((meltroutine_ptr_t)/*_._VALROUT___V2044*/ meltfptr[2043])->tabval[15] = (melt_ptr_t)(/*_._VALDATA___V1781*/ meltfptr[1780]); MELT_LOCATION("warmelt-macro.melt:6957:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2044*/ meltfptr[2043])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1950__MEXPAND_LETBINDING#16", NULL != (/*_.FRESH_ENV__V38*/ meltfptr[37])); ((meltroutine_ptr_t)/*_._VALROUT___V2044*/ meltfptr[2043])->tabval[16] = (melt_ptr_t)(/*_.FRESH_ENV__V38*/ meltfptr[37]); MELT_LOCATION("warmelt-macro.melt:6957:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2044*/ meltfptr[2043])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1950__MEXPAND_LETBINDING#17", NULL != (/*_.DISCR_VARIADIC_FORMAL_SEQUENCE__V62*/ meltfptr[61])); ((meltroutine_ptr_t)/*_._VALROUT___V2044*/ meltfptr[2043])->tabval[17] = (melt_ptr_t)(/*_.DISCR_VARIADIC_FORMAL_SEQUENCE__V62*/ meltfptr[61]); MELT_LOCATION("warmelt-macro.melt:6957:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2044*/ meltfptr[2043])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1950__MEXPAND_LETBINDING#18", NULL != (/*_.CLASS_FORMAL_BINDING__V49*/ meltfptr[48])); ((meltroutine_ptr_t)/*_._VALROUT___V2044*/ meltfptr[2043])->tabval[18] = (melt_ptr_t)(/*_.CLASS_FORMAL_BINDING__V49*/ meltfptr[48]); MELT_LOCATION("warmelt-macro.melt:6957:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2044*/ meltfptr[2043])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1950__MEXPAND_LETBINDING#19", NULL != (/*_.CLASS_ANY_BINDING__V28*/ meltfptr[27])); ((meltroutine_ptr_t)/*_._VALROUT___V2044*/ meltfptr[2043])->tabval[19] = (melt_ptr_t)(/*_.CLASS_ANY_BINDING__V28*/ meltfptr[27]); MELT_LOCATION("warmelt-macro.melt:6957:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2044*/ meltfptr[2043])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1950__MEXPAND_LETBINDING#20", NULL != (/*_.CTYPE_VALUE__V61*/ meltfptr[60])); ((meltroutine_ptr_t)/*_._VALROUT___V2044*/ meltfptr[2043])->tabval[20] = (melt_ptr_t)(/*_.CTYPE_VALUE__V61*/ meltfptr[60]); MELT_LOCATION("warmelt-macro.melt:6957:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2044*/ meltfptr[2043])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1950__MEXPAND_LETBINDING#21", NULL != (/*_.FIND_ENV__V31*/ meltfptr[30])); ((meltroutine_ptr_t)/*_._VALROUT___V2044*/ meltfptr[2043])->tabval[21] = (melt_ptr_t)(/*_.FIND_ENV__V31*/ meltfptr[30]); MELT_LOCATION("warmelt-macro.melt:6957:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2044*/ meltfptr[2043])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1950__MEXPAND_LETBINDING#22", NULL != (/*_.PUT_ENV__V32*/ meltfptr[31])); ((meltroutine_ptr_t)/*_._VALROUT___V2044*/ meltfptr[2043])->tabval[22] = (melt_ptr_t)(/*_.PUT_ENV__V32*/ meltfptr[31]); MELT_LOCATION("warmelt-macro.melt:6957:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2044*/ meltfptr[2043])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1593*/ meltfptr[1592]); ((meltroutine_ptr_t)/*_._VALROUT___V2044*/ meltfptr[2043])->tabval[23] = (melt_ptr_t)(/*_._VALCLO___V1593*/ meltfptr[1592]); MELT_LOCATION("warmelt-macro.melt:6957:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2044*/ meltfptr[2043])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1127*/ meltfptr[1126]); ((meltroutine_ptr_t)/*_._VALROUT___V2044*/ meltfptr[2043])->tabval[24] = (melt_ptr_t)(/*_._VALDATA___V1127*/ meltfptr[1126]); MELT_LOCATION("warmelt-macro.melt:6957:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2044*/ meltfptr[2043])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1950__MEXPAND_LETBINDING#25", NULL != (/*_.CLASS_LET_BINDING__V50*/ meltfptr[49])); ((meltroutine_ptr_t)/*_._VALROUT___V2044*/ meltfptr[2043])->tabval[25] = (melt_ptr_t)(/*_.CLASS_LET_BINDING__V50*/ meltfptr[49]); MELT_LOCATION("warmelt-macro.melt:6957:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2044*/ meltfptr[2043])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1950__MEXPAND_LETBINDING#26", NULL != (/*_.CLASS_FIXED_BINDING__V88*/ meltfptr[87])); ((meltroutine_ptr_t)/*_._VALROUT___V2044*/ meltfptr[2043])->tabval[26] = (melt_ptr_t)(/*_.CLASS_FIXED_BINDING__V88*/ meltfptr[87]); MELT_LOCATION("warmelt-macro.melt:6957:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2044*/ meltfptr[2043])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1141*/ meltfptr[1140]); ((meltroutine_ptr_t)/*_._VALROUT___V2044*/ meltfptr[2043])->tabval[27] = (melt_ptr_t)(/*_._VALDATA___V1141*/ meltfptr[1140]); MELT_LOCATION("warmelt-macro.melt:6957:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V2044*/ meltfptr[2043]); /*putclosurout#109*/ melt_assertmsg("putclosrout#109 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V2045*/ meltfptr[2044])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#109 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2044*/ meltfptr[2043])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V2045*/ meltfptr[2044])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V2044*/ meltfptr[2043]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V2045*/ meltfptr[2044]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1952__QUASI_CTYPE_AUTO @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2046*/ meltfptr[2045])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1952__QUASI_CTYPE_AUTO @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2046*/ meltfptr[2045])))); ((meltobject_ptr_t)(/*_._VALDATA___V2046*/ meltfptr[2045]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2047*/ meltfptr[2046]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2046*/ meltfptr[2045]); melt_dbgtrace_written_object (/*_._VALDATA___V2046*/ meltfptr[2045], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1954__QUASI_CTYPE_MACRO @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2048*/ meltfptr[2047])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1954__QUASI_CTYPE_MACRO @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2048*/ meltfptr[2047])))); ((meltobject_ptr_t)(/*_._VALDATA___V2048*/ meltfptr[2047]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2049*/ meltfptr[2048]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2048*/ meltfptr[2047]); melt_dbgtrace_written_object (/*_._VALDATA___V2048*/ meltfptr[2047], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1956__CLASS_FIXED_BINDING @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2050*/ meltfptr[2049])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1956__CLASS_FIXED_BINDING @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2050*/ meltfptr[2049])))); ((meltobject_ptr_t)(/*_._VALDATA___V2050*/ meltfptr[2049]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2051*/ meltfptr[2050]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2050*/ meltfptr[2049]); melt_dbgtrace_written_object (/*_._VALDATA___V2050*/ meltfptr[2049], "new static instance"); MELT_LOCATION("warmelt-macro.melt:7085:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2052*/ meltfptr[2051])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1958__MEXPAND_LET#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V2052*/ meltfptr[2051])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); #undef meltfram__ } /*end of meltmod__WARMELTmiMACRO__initialmeltchunk_44*/ void meltmod__WARMELTmiMACRO__initialmeltchunk_45 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; MELT_LOCATION("warmelt-macro.melt:7085:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2052*/ meltfptr[2051])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1958__MEXPAND_LET#1", NULL != (/*_.DEBUG_LESS__V35*/ meltfptr[34])); ((meltroutine_ptr_t)/*_._VALROUT___V2052*/ meltfptr[2051])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_LESS__V35*/ meltfptr[34]); MELT_LOCATION("warmelt-macro.melt:7085:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2052*/ meltfptr[2051])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1958__MEXPAND_LET#2", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V2052*/ meltfptr[2051])->tabval[2] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:7085:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2052*/ meltfptr[2051])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1958__MEXPAND_LET#3", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V2052*/ meltfptr[2051])->tabval[3] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:7085:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2052*/ meltfptr[2051])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1958__MEXPAND_LET#4", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V2052*/ meltfptr[2051])->tabval[4] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:7085:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2052*/ meltfptr[2051])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V306*/ meltfptr[305]); ((meltroutine_ptr_t)/*_._VALROUT___V2052*/ meltfptr[2051])->tabval[5] = (melt_ptr_t)(/*_._VALCLO___V306*/ meltfptr[305]); MELT_LOCATION("warmelt-macro.melt:7085:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2052*/ meltfptr[2051])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1958__MEXPAND_LET#6", NULL != (/*_.DISCR_LIST__V34*/ meltfptr[33])); ((meltroutine_ptr_t)/*_._VALROUT___V2052*/ meltfptr[2051])->tabval[6] = (melt_ptr_t)(/*_.DISCR_LIST__V34*/ meltfptr[33]); MELT_LOCATION("warmelt-macro.melt:7085:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2052*/ meltfptr[2051])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1958__MEXPAND_LET#7", NULL != (/*_.FRESH_ENV__V38*/ meltfptr[37])); ((meltroutine_ptr_t)/*_._VALROUT___V2052*/ meltfptr[2051])->tabval[7] = (melt_ptr_t)(/*_.FRESH_ENV__V38*/ meltfptr[37]); MELT_LOCATION("warmelt-macro.melt:7085:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2052*/ meltfptr[2051])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1958__MEXPAND_LET#8", NULL != (/*_.CLASS_ANY_MODULE_CONTEXT__V30*/ meltfptr[29])); ((meltroutine_ptr_t)/*_._VALROUT___V2052*/ meltfptr[2051])->tabval[8] = (melt_ptr_t)(/*_.CLASS_ANY_MODULE_CONTEXT__V30*/ meltfptr[29]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1960__EXPAND @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2053*/ meltfptr[2052])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1960__EXPAND @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2053*/ meltfptr[2052])))); ((meltobject_ptr_t)(/*_._VALDATA___V2053*/ meltfptr[2052]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2054*/ meltfptr[2053]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2053*/ meltfptr[2052]); melt_dbgtrace_written_object (/*_._VALDATA___V2053*/ meltfptr[2052], "new static instance"); MELT_LOCATION("warmelt-macro.melt:7085:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2052*/ meltfptr[2051])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1958__MEXPAND_LET#9", NULL != (/*_._VALDATA___V2053*/ meltfptr[2052])); ((meltroutine_ptr_t)/*_._VALROUT___V2052*/ meltfptr[2051])->tabval[9] = (melt_ptr_t)(/*_._VALDATA___V2053*/ meltfptr[2052]); MELT_LOCATION("warmelt-macro.melt:7085:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2052*/ meltfptr[2051])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1585*/ meltfptr[1584]); ((meltroutine_ptr_t)/*_._VALROUT___V2052*/ meltfptr[2051])->tabval[10] = (melt_ptr_t)(/*_._VALCLO___V1585*/ meltfptr[1584]); MELT_LOCATION("warmelt-macro.melt:7085:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2052*/ meltfptr[2051])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1141*/ meltfptr[1140]); ((meltroutine_ptr_t)/*_._VALROUT___V2052*/ meltfptr[2051])->tabval[11] = (melt_ptr_t)(/*_._VALDATA___V1141*/ meltfptr[1140]); MELT_LOCATION("warmelt-macro.melt:7085:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2052*/ meltfptr[2051])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1958__MEXPAND_LET#12", NULL != (/*_.PUT_ENV__V32*/ meltfptr[31])); ((meltroutine_ptr_t)/*_._VALROUT___V2052*/ meltfptr[2051])->tabval[12] = (melt_ptr_t)(/*_.PUT_ENV__V32*/ meltfptr[31]); MELT_LOCATION("warmelt-macro.melt:7085:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2052*/ meltfptr[2051])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1127*/ meltfptr[1126]); ((meltroutine_ptr_t)/*_._VALROUT___V2052*/ meltfptr[2051])->tabval[13] = (melt_ptr_t)(/*_._VALDATA___V1127*/ meltfptr[1126]); MELT_LOCATION("warmelt-macro.melt:7085:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2052*/ meltfptr[2051])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1958__MEXPAND_LET#14", NULL != (/*_.CLASS_ANY_BINDING__V28*/ meltfptr[27])); ((meltroutine_ptr_t)/*_._VALROUT___V2052*/ meltfptr[2051])->tabval[14] = (melt_ptr_t)(/*_.CLASS_ANY_BINDING__V28*/ meltfptr[27]); MELT_LOCATION("warmelt-macro.melt:7085:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2052*/ meltfptr[2051])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1117*/ meltfptr[1116]); ((meltroutine_ptr_t)/*_._VALROUT___V2052*/ meltfptr[2051])->tabval[15] = (melt_ptr_t)(/*_._VALDATA___V1117*/ meltfptr[1116]); MELT_LOCATION("warmelt-macro.melt:7085:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2052*/ meltfptr[2051])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V2045*/ meltfptr[2044]); ((meltroutine_ptr_t)/*_._VALROUT___V2052*/ meltfptr[2051])->tabval[16] = (melt_ptr_t)(/*_._VALCLO___V2045*/ meltfptr[2044]); MELT_LOCATION("warmelt-macro.melt:7085:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2052*/ meltfptr[2051])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1958__MEXPAND_LET#17", NULL != (/*_.CLASS_LET_BINDING__V50*/ meltfptr[49])); ((meltroutine_ptr_t)/*_._VALROUT___V2052*/ meltfptr[2051])->tabval[17] = (melt_ptr_t)(/*_.CLASS_LET_BINDING__V50*/ meltfptr[49]); MELT_LOCATION("warmelt-macro.melt:7085:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2052*/ meltfptr[2051])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1958__MEXPAND_LET#18", NULL != (/*_.CLASS_LOCATED__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V2052*/ meltfptr[2051])->tabval[18] = (melt_ptr_t)(/*_.CLASS_LOCATED__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-macro.melt:7085:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2052*/ meltfptr[2051])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V761*/ meltfptr[760]); ((meltroutine_ptr_t)/*_._VALROUT___V2052*/ meltfptr[2051])->tabval[19] = (melt_ptr_t)(/*_._VALDATA___V761*/ meltfptr[760]); MELT_LOCATION("warmelt-macro.melt:7085:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2052*/ meltfptr[2051])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V749*/ meltfptr[748]); ((meltroutine_ptr_t)/*_._VALROUT___V2052*/ meltfptr[2051])->tabval[20] = (melt_ptr_t)(/*_._VALDATA___V749*/ meltfptr[748]); MELT_LOCATION("warmelt-macro.melt:7085:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2052*/ meltfptr[2051])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V775*/ meltfptr[774]); ((meltroutine_ptr_t)/*_._VALROUT___V2052*/ meltfptr[2051])->tabval[21] = (melt_ptr_t)(/*_._VALDATA___V775*/ meltfptr[774]); MELT_LOCATION("warmelt-macro.melt:7085:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2052*/ meltfptr[2051])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1958__MEXPAND_LET#22", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V2052*/ meltfptr[2051])->tabval[22] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:7085:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2052*/ meltfptr[2051])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1958__MEXPAND_LET#23", NULL != (/*_.DEBUG_MORE__V53*/ meltfptr[52])); ((meltroutine_ptr_t)/*_._VALROUT___V2052*/ meltfptr[2051])->tabval[23] = (melt_ptr_t)(/*_.DEBUG_MORE__V53*/ meltfptr[52]); MELT_LOCATION("warmelt-macro.melt:7085:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2052*/ meltfptr[2051])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1958__MEXPAND_LET#24", NULL != (/*_.DEBUG_LESS__V35*/ meltfptr[34])); ((meltroutine_ptr_t)/*_._VALROUT___V2052*/ meltfptr[2051])->tabval[24] = (melt_ptr_t)(/*_.DEBUG_LESS__V35*/ meltfptr[34]); MELT_LOCATION("warmelt-macro.melt:7085:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2052*/ meltfptr[2051])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V306*/ meltfptr[305]); ((meltroutine_ptr_t)/*_._VALROUT___V2052*/ meltfptr[2051])->tabval[25] = (melt_ptr_t)(/*_._VALCLO___V306*/ meltfptr[305]); MELT_LOCATION("warmelt-macro.melt:7085:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2052*/ meltfptr[2051])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1789*/ meltfptr[1788]); ((meltroutine_ptr_t)/*_._VALROUT___V2052*/ meltfptr[2051])->tabval[26] = (melt_ptr_t)(/*_._VALCLO___V1789*/ meltfptr[1788]); MELT_LOCATION("warmelt-macro.melt:7085:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2052*/ meltfptr[2051])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1958__MEXPAND_LET#27", NULL != (/*_.CLASS_MACRO_BINDING__V26*/ meltfptr[25])); ((meltroutine_ptr_t)/*_._VALROUT___V2052*/ meltfptr[2051])->tabval[27] = (melt_ptr_t)(/*_.CLASS_MACRO_BINDING__V26*/ meltfptr[25]); MELT_LOCATION("warmelt-macro.melt:7085:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2052*/ meltfptr[2051])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1958__MEXPAND_LET#28", NULL != (/*_.CLASS_LOCATED__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V2052*/ meltfptr[2051])->tabval[28] = (melt_ptr_t)(/*_.CLASS_LOCATED__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-macro.melt:7085:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2052*/ meltfptr[2051])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V310*/ meltfptr[309]); ((meltroutine_ptr_t)/*_._VALROUT___V2052*/ meltfptr[2051])->tabval[29] = (melt_ptr_t)(/*_._VALCLO___V310*/ meltfptr[309]); MELT_LOCATION("warmelt-macro.melt:7208:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2055*/ meltfptr[2054])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1962__LAMBDA_#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V2055*/ meltfptr[2054])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:7208:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2055*/ meltfptr[2054])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1962__LAMBDA_#1", NULL != (/*_.DEBUG_MORE__V53*/ meltfptr[52])); ((meltroutine_ptr_t)/*_._VALROUT___V2055*/ meltfptr[2054])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_MORE__V53*/ meltfptr[52]); MELT_LOCATION("warmelt-macro.melt:7208:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2055*/ meltfptr[2054])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1962__LAMBDA_#2", NULL != (/*_.DEBUG_LESS__V35*/ meltfptr[34])); ((meltroutine_ptr_t)/*_._VALROUT___V2055*/ meltfptr[2054])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_LESS__V35*/ meltfptr[34]); MELT_LOCATION("warmelt-macro.melt:7208:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2055*/ meltfptr[2054])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V306*/ meltfptr[305]); ((meltroutine_ptr_t)/*_._VALROUT___V2055*/ meltfptr[2054])->tabval[3] = (melt_ptr_t)(/*_._VALCLO___V306*/ meltfptr[305]); MELT_LOCATION("warmelt-macro.melt:7208:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2055*/ meltfptr[2054])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1789*/ meltfptr[1788]); ((meltroutine_ptr_t)/*_._VALROUT___V2055*/ meltfptr[2054])->tabval[4] = (melt_ptr_t)(/*_._VALCLO___V1789*/ meltfptr[1788]); MELT_LOCATION("warmelt-macro.melt:7208:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2055*/ meltfptr[2054])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1962__LAMBDA_#5", NULL != (/*_.CLASS_MACRO_BINDING__V26*/ meltfptr[25])); ((meltroutine_ptr_t)/*_._VALROUT___V2055*/ meltfptr[2054])->tabval[5] = (melt_ptr_t)(/*_.CLASS_MACRO_BINDING__V26*/ meltfptr[25]); MELT_LOCATION("warmelt-macro.melt:7208:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2055*/ meltfptr[2054])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1962__LAMBDA_#6", NULL != (/*_.CLASS_LOCATED__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V2055*/ meltfptr[2054])->tabval[6] = (melt_ptr_t)(/*_.CLASS_LOCATED__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-macro.melt:7208:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2055*/ meltfptr[2054])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V310*/ meltfptr[309]); ((meltroutine_ptr_t)/*_._VALROUT___V2055*/ meltfptr[2054])->tabval[7] = (melt_ptr_t)(/*_._VALCLO___V310*/ meltfptr[309]); MELT_LOCATION("warmelt-macro.melt:7208:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V2055*/ meltfptr[2054]); MELT_LOCATION("warmelt-macro.melt:7085:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2052*/ meltfptr[2051])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1958__MEXPAND_LET#30", NULL != (/*_._VALROUT___V2055*/ meltfptr[2054])); ((meltroutine_ptr_t)/*_._VALROUT___V2052*/ meltfptr[2051])->tabval[30] = (melt_ptr_t)(/*_._VALROUT___V2055*/ meltfptr[2054]); MELT_LOCATION("warmelt-macro.melt:7085:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2052*/ meltfptr[2051])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1958__MEXPAND_LET#31", NULL != (/*_.CLASS_MACRO_BINDING__V26*/ meltfptr[25])); ((meltroutine_ptr_t)/*_._VALROUT___V2052*/ meltfptr[2051])->tabval[31] = (melt_ptr_t)(/*_.CLASS_MACRO_BINDING__V26*/ meltfptr[25]); MELT_LOCATION("warmelt-macro.melt:7085:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2052*/ meltfptr[2051])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1958__MEXPAND_LET#32", NULL != (/*_.DEBUG_MORE__V53*/ meltfptr[52])); ((meltroutine_ptr_t)/*_._VALROUT___V2052*/ meltfptr[2051])->tabval[32] = (melt_ptr_t)(/*_.DEBUG_MORE__V53*/ meltfptr[52]); MELT_LOCATION("warmelt-macro.melt:7085:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2052*/ meltfptr[2051])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1593*/ meltfptr[1592]); ((meltroutine_ptr_t)/*_._VALROUT___V2052*/ meltfptr[2051])->tabval[33] = (melt_ptr_t)(/*_._VALCLO___V1593*/ meltfptr[1592]); MELT_LOCATION("warmelt-macro.melt:7085:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2052*/ meltfptr[2051])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1958__MEXPAND_LET#34", NULL != (/*_.LIST_TO_MULTIPLE__V12*/ meltfptr[11])); ((meltroutine_ptr_t)/*_._VALROUT___V2052*/ meltfptr[2051])->tabval[34] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V12*/ meltfptr[11]); MELT_LOCATION("warmelt-macro.melt:7085:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2052*/ meltfptr[2051])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1958__MEXPAND_LET#35", NULL != (/*_.DISCR_MULTIPLE__V13*/ meltfptr[12])); ((meltroutine_ptr_t)/*_._VALROUT___V2052*/ meltfptr[2051])->tabval[35] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V13*/ meltfptr[12]); MELT_LOCATION("warmelt-macro.melt:7085:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2052*/ meltfptr[2051])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1171*/ meltfptr[1170]); ((meltroutine_ptr_t)/*_._VALROUT___V2052*/ meltfptr[2051])->tabval[36] = (melt_ptr_t)(/*_._VALDATA___V1171*/ meltfptr[1170]); MELT_LOCATION("warmelt-macro.melt:7085:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V2052*/ meltfptr[2051]); /*putclosurout#110*/ melt_assertmsg("putclosrout#110 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V2056*/ meltfptr[2055])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#110 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2052*/ meltfptr[2051])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V2056*/ meltfptr[2055])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V2052*/ meltfptr[2051]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V2056*/ meltfptr[2055]); MELT_LOCATION("warmelt-macro.melt:7307:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2057*/ meltfptr[2056])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1963__YES_RECURSIVELY_CONSTRUCTIBLE#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V2057*/ meltfptr[2056])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:7307:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V2057*/ meltfptr[2056]); /*putclosurout#111*/ melt_assertmsg("putclosrout#111 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V2058*/ meltfptr[2057])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#111 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2057*/ meltfptr[2056])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V2058*/ meltfptr[2057])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V2057*/ meltfptr[2056]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V2058*/ meltfptr[2057]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1965__INSTALL_METHOD @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2059*/ meltfptr[2058])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1965__INSTALL_METHOD @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2059*/ meltfptr[2058])))); ((meltobject_ptr_t)(/*_._VALDATA___V2059*/ meltfptr[2058]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2060*/ meltfptr[2059]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2059*/ meltfptr[2058]); melt_dbgtrace_written_object (/*_._VALDATA___V2059*/ meltfptr[2058], "new static instance"); MELT_LOCATION("warmelt-macro.melt:7320:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2061*/ meltfptr[2060])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1967__MEXPAND_LETREC#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V2061*/ meltfptr[2060])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:7320:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2061*/ meltfptr[2060])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1967__MEXPAND_LETREC#1", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V2061*/ meltfptr[2060])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:7320:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2061*/ meltfptr[2060])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1967__MEXPAND_LETREC#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V2061*/ meltfptr[2060])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:7320:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2061*/ meltfptr[2060])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1967__MEXPAND_LETREC#3", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V2061*/ meltfptr[2060])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:7320:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2061*/ meltfptr[2060])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1967__MEXPAND_LETREC#4", NULL != (/*_.FRESH_ENV__V38*/ meltfptr[37])); ((meltroutine_ptr_t)/*_._VALROUT___V2061*/ meltfptr[2060])->tabval[4] = (melt_ptr_t)(/*_.FRESH_ENV__V38*/ meltfptr[37]); MELT_LOCATION("warmelt-macro.melt:7320:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2061*/ meltfptr[2060])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1165*/ meltfptr[1164]); ((meltroutine_ptr_t)/*_._VALROUT___V2061*/ meltfptr[2060])->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V1165*/ meltfptr[1164]); MELT_LOCATION("warmelt-macro.melt:7320:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2061*/ meltfptr[2060])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V306*/ meltfptr[305]); ((meltroutine_ptr_t)/*_._VALROUT___V2061*/ meltfptr[2060])->tabval[6] = (melt_ptr_t)(/*_._VALCLO___V306*/ meltfptr[305]); MELT_LOCATION("warmelt-macro.melt:7320:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2061*/ meltfptr[2060])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1967__MEXPAND_LETREC#7", NULL != (/*_.DISCR_MULTIPLE__V13*/ meltfptr[12])); ((meltroutine_ptr_t)/*_._VALROUT___V2061*/ meltfptr[2060])->tabval[7] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V13*/ meltfptr[12]); MELT_LOCATION("warmelt-macro.melt:7320:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2061*/ meltfptr[2060])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1967__MEXPAND_LETREC#8", NULL != (/*_.CLASS_LOCATED__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V2061*/ meltfptr[2060])->tabval[8] = (melt_ptr_t)(/*_.CLASS_LOCATED__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-macro.melt:7320:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2061*/ meltfptr[2060])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1141*/ meltfptr[1140]); ((meltroutine_ptr_t)/*_._VALROUT___V2061*/ meltfptr[2060])->tabval[9] = (melt_ptr_t)(/*_._VALDATA___V1141*/ meltfptr[1140]); MELT_LOCATION("warmelt-macro.melt:7320:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2061*/ meltfptr[2060])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1117*/ meltfptr[1116]); ((meltroutine_ptr_t)/*_._VALROUT___V2061*/ meltfptr[2060])->tabval[10] = (melt_ptr_t)(/*_._VALDATA___V1117*/ meltfptr[1116]); MELT_LOCATION("warmelt-macro.melt:7320:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2061*/ meltfptr[2060])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1967__MEXPAND_LETREC#11", NULL != (/*_.CTYPE_VALUE__V61*/ meltfptr[60])); ((meltroutine_ptr_t)/*_._VALROUT___V2061*/ meltfptr[2060])->tabval[11] = (melt_ptr_t)(/*_.CTYPE_VALUE__V61*/ meltfptr[60]); MELT_LOCATION("warmelt-macro.melt:7320:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2061*/ meltfptr[2060])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1967__MEXPAND_LETREC#12", NULL != (/*_.CLASS_LETREC_BINDING__V90*/ meltfptr[89])); ((meltroutine_ptr_t)/*_._VALROUT___V2061*/ meltfptr[2060])->tabval[12] = (melt_ptr_t)(/*_.CLASS_LETREC_BINDING__V90*/ meltfptr[89]); MELT_LOCATION("warmelt-macro.melt:7320:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2061*/ meltfptr[2060])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1967__MEXPAND_LETREC#13", NULL != (/*_.PUT_ENV__V32*/ meltfptr[31])); ((meltroutine_ptr_t)/*_._VALROUT___V2061*/ meltfptr[2060])->tabval[13] = (melt_ptr_t)(/*_.PUT_ENV__V32*/ meltfptr[31]); MELT_LOCATION("warmelt-macro.melt:7320:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2061*/ meltfptr[2060])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V329*/ meltfptr[328]); ((meltroutine_ptr_t)/*_._VALROUT___V2061*/ meltfptr[2060])->tabval[14] = (melt_ptr_t)(/*_._VALDATA___V329*/ meltfptr[328]); MELT_LOCATION("warmelt-macro.melt:7320:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2061*/ meltfptr[2060])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1967__MEXPAND_LETREC#15", NULL != (/*_.CLASS_LET_BINDING__V50*/ meltfptr[49])); ((meltroutine_ptr_t)/*_._VALROUT___V2061*/ meltfptr[2060])->tabval[15] = (melt_ptr_t)(/*_.CLASS_LET_BINDING__V50*/ meltfptr[49]); MELT_LOCATION("warmelt-macro.melt:7320:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2061*/ meltfptr[2060])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1967__MEXPAND_LETREC#16", NULL != (/*_.PAIRLIST_TO_MULTIPLE__V55*/ meltfptr[54])); ((meltroutine_ptr_t)/*_._VALROUT___V2061*/ meltfptr[2060])->tabval[16] = (melt_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V55*/ meltfptr[54]); MELT_LOCATION("warmelt-macro.melt:7320:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2061*/ meltfptr[2060])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1967__MEXPAND_LETREC#17", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V2061*/ meltfptr[2060])->tabval[17] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:7460:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2062*/ meltfptr[2061])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1971__LAMBDA_#0", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V2062*/ meltfptr[2061])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:7460:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V2062*/ meltfptr[2061]); MELT_LOCATION("warmelt-macro.melt:7320:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2061*/ meltfptr[2060])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1967__MEXPAND_LETREC#18", NULL != (/*_._VALROUT___V2062*/ meltfptr[2061])); ((meltroutine_ptr_t)/*_._VALROUT___V2061*/ meltfptr[2060])->tabval[18] = (melt_ptr_t)(/*_._VALROUT___V2062*/ meltfptr[2061]); MELT_LOCATION("warmelt-macro.melt:7320:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2061*/ meltfptr[2060])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1967__MEXPAND_LETREC#19", NULL != (/*_.CLASS_KEYWORD__V22*/ meltfptr[21])); ((meltroutine_ptr_t)/*_._VALROUT___V2061*/ meltfptr[2060])->tabval[19] = (melt_ptr_t)(/*_.CLASS_KEYWORD__V22*/ meltfptr[21]); MELT_LOCATION("warmelt-macro.melt:7320:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2061*/ meltfptr[2060])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1967__MEXPAND_LETREC#20", NULL != (/*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V2061*/ meltfptr[2060])->tabval[20] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-macro.melt:7320:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2061*/ meltfptr[2060])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1967__MEXPAND_LETREC#21", NULL != (/*_.CLASS_NAMED__V23*/ meltfptr[22])); ((meltroutine_ptr_t)/*_._VALROUT___V2061*/ meltfptr[2060])->tabval[21] = (melt_ptr_t)(/*_.CLASS_NAMED__V23*/ meltfptr[22]); MELT_LOCATION("warmelt-macro.melt:7320:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2061*/ meltfptr[2060])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1593*/ meltfptr[1592]); ((meltroutine_ptr_t)/*_._VALROUT___V2061*/ meltfptr[2060])->tabval[22] = (melt_ptr_t)(/*_._VALCLO___V1593*/ meltfptr[1592]); MELT_LOCATION("warmelt-macro.melt:7320:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2061*/ meltfptr[2060])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1185*/ meltfptr[1184]); ((meltroutine_ptr_t)/*_._VALROUT___V2061*/ meltfptr[2060])->tabval[23] = (melt_ptr_t)(/*_._VALDATA___V1185*/ meltfptr[1184]); MELT_LOCATION("warmelt-macro.melt:7320:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V2061*/ meltfptr[2060]); /*putclosurout#112*/ melt_assertmsg("putclosrout#112 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V2063*/ meltfptr[2062])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#112 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2061*/ meltfptr[2060])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V2063*/ meltfptr[2062])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V2061*/ meltfptr[2060]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V2063*/ meltfptr[2062]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1969__CLASS_LETREC_BINDING @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2064*/ meltfptr[2063])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1969__CLASS_LETREC_BINDING @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2064*/ meltfptr[2063])))); ((meltobject_ptr_t)(/*_._VALDATA___V2064*/ meltfptr[2063]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2065*/ meltfptr[2064]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2064*/ meltfptr[2063]); melt_dbgtrace_written_object (/*_._VALDATA___V2064*/ meltfptr[2063], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1972__LETREC @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2066*/ meltfptr[2065])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1972__LETREC @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2066*/ meltfptr[2065])))); ((meltobject_ptr_t)(/*_._VALDATA___V2066*/ meltfptr[2065]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2067*/ meltfptr[2066]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2066*/ meltfptr[2065]); melt_dbgtrace_written_object (/*_._VALDATA___V2066*/ meltfptr[2065], "new static instance"); MELT_LOCATION("warmelt-macro.melt:7590:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2068*/ meltfptr[2067])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1974__MEXPAND_LAMBDA#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V2068*/ meltfptr[2067])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:7590:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2068*/ meltfptr[2067])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1974__MEXPAND_LAMBDA#1", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V2068*/ meltfptr[2067])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:7590:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2068*/ meltfptr[2067])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1974__MEXPAND_LAMBDA#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V2068*/ meltfptr[2067])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:7590:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2068*/ meltfptr[2067])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1974__MEXPAND_LAMBDA#3", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V2068*/ meltfptr[2067])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:7590:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2068*/ meltfptr[2067])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1974__MEXPAND_LAMBDA#4", NULL != (/*_.FRESH_ENV__V38*/ meltfptr[37])); ((meltroutine_ptr_t)/*_._VALROUT___V2068*/ meltfptr[2067])->tabval[4] = (melt_ptr_t)(/*_.FRESH_ENV__V38*/ meltfptr[37]); MELT_LOCATION("warmelt-macro.melt:7590:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2068*/ meltfptr[2067])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1611*/ meltfptr[1610]); ((meltroutine_ptr_t)/*_._VALROUT___V2068*/ meltfptr[2067])->tabval[5] = (melt_ptr_t)(/*_._VALCLO___V1611*/ meltfptr[1610]); MELT_LOCATION("warmelt-macro.melt:7590:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2068*/ meltfptr[2067])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1974__MEXPAND_LAMBDA#6", NULL != (/*_._VALDATA___V1781*/ meltfptr[1780])); ((meltroutine_ptr_t)/*_._VALROUT___V2068*/ meltfptr[2067])->tabval[6] = (melt_ptr_t)(/*_._VALDATA___V1781*/ meltfptr[1780]); MELT_LOCATION("warmelt-macro.melt:7590:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2068*/ meltfptr[2067])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1974__MEXPAND_LAMBDA#7", NULL != (/*_.CLASS_FORMAL_BINDING__V49*/ meltfptr[48])); ((meltroutine_ptr_t)/*_._VALROUT___V2068*/ meltfptr[2067])->tabval[7] = (melt_ptr_t)(/*_.CLASS_FORMAL_BINDING__V49*/ meltfptr[48]); MELT_LOCATION("warmelt-macro.melt:7590:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2068*/ meltfptr[2067])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1974__MEXPAND_LAMBDA#8", NULL != (/*_.PUT_ENV__V32*/ meltfptr[31])); ((meltroutine_ptr_t)/*_._VALROUT___V2068*/ meltfptr[2067])->tabval[8] = (melt_ptr_t)(/*_.PUT_ENV__V32*/ meltfptr[31]); MELT_LOCATION("warmelt-macro.melt:7590:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2068*/ meltfptr[2067])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1593*/ meltfptr[1592]); ((meltroutine_ptr_t)/*_._VALROUT___V2068*/ meltfptr[2067])->tabval[9] = (melt_ptr_t)(/*_._VALCLO___V1593*/ meltfptr[1592]); MELT_LOCATION("warmelt-macro.melt:7590:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2068*/ meltfptr[2067])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1191*/ meltfptr[1190]); ((meltroutine_ptr_t)/*_._VALROUT___V2068*/ meltfptr[2067])->tabval[10] = (melt_ptr_t)(/*_._VALDATA___V1191*/ meltfptr[1190]); MELT_LOCATION("warmelt-macro.melt:7590:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V2068*/ meltfptr[2067]); /*putclosurout#113*/ melt_assertmsg("putclosrout#113 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V2069*/ meltfptr[2068])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#113 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2068*/ meltfptr[2067])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V2069*/ meltfptr[2068])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V2068*/ meltfptr[2067]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V2069*/ meltfptr[2068]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1976__LAMBDA @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2070*/ meltfptr[2069])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1976__LAMBDA @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2070*/ meltfptr[2069])))); ((meltobject_ptr_t)(/*_._VALDATA___V2070*/ meltfptr[2069]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2071*/ meltfptr[2070]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2070*/ meltfptr[2069]); melt_dbgtrace_written_object (/*_._VALDATA___V2070*/ meltfptr[2069], "new static instance"); MELT_LOCATION("warmelt-macro.melt:7640:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2072*/ meltfptr[2071])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1978__MEXPAND_VARIADIC#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V2072*/ meltfptr[2071])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:7640:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2072*/ meltfptr[2071])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1978__MEXPAND_VARIADIC#1", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V2072*/ meltfptr[2071])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:7640:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2072*/ meltfptr[2071])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1978__MEXPAND_VARIADIC#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V2072*/ meltfptr[2071])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:7640:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2072*/ meltfptr[2071])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1978__MEXPAND_VARIADIC#3", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V2072*/ meltfptr[2071])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:7640:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2072*/ meltfptr[2071])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1978__MEXPAND_VARIADIC#4", NULL != (/*_.CLASS_REFERENCE__V56*/ meltfptr[55])); ((meltroutine_ptr_t)/*_._VALROUT___V2072*/ meltfptr[2071])->tabval[4] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V56*/ meltfptr[55]); MELT_LOCATION("warmelt-macro.melt:7640:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2072*/ meltfptr[2071])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1978__MEXPAND_VARIADIC#5", NULL != (/*_.DISCR_MAP_OBJECTS__V21*/ meltfptr[20])); ((meltroutine_ptr_t)/*_._VALROUT___V2072*/ meltfptr[2071])->tabval[5] = (melt_ptr_t)(/*_.DISCR_MAP_OBJECTS__V21*/ meltfptr[20]); MELT_LOCATION("warmelt-macro.melt:7640:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2072*/ meltfptr[2071])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1978__MEXPAND_VARIADIC#6", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V2072*/ meltfptr[2071])->tabval[6] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:7640:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2072*/ meltfptr[2071])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1978__MEXPAND_VARIADIC#7", NULL != (/*_.CLASS_REFERENCE__V56*/ meltfptr[55])); ((meltroutine_ptr_t)/*_._VALROUT___V2072*/ meltfptr[2071])->tabval[7] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V56*/ meltfptr[55]); MELT_LOCATION("warmelt-macro.melt:7650:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2073*/ meltfptr[2072])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1980__LAMBDA_#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V2073*/ meltfptr[2072])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:7650:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2073*/ meltfptr[2072])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1980__LAMBDA_#1", NULL != (/*_.CLASS_REFERENCE__V56*/ meltfptr[55])); ((meltroutine_ptr_t)/*_._VALROUT___V2073*/ meltfptr[2072])->tabval[1] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V56*/ meltfptr[55]); MELT_LOCATION("warmelt-macro.melt:7650:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V2073*/ meltfptr[2072]); MELT_LOCATION("warmelt-macro.melt:7640:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2072*/ meltfptr[2071])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1978__MEXPAND_VARIADIC#8", NULL != (/*_._VALROUT___V2073*/ meltfptr[2072])); ((meltroutine_ptr_t)/*_._VALROUT___V2072*/ meltfptr[2071])->tabval[8] = (melt_ptr_t)(/*_._VALROUT___V2073*/ meltfptr[2072]); MELT_LOCATION("warmelt-macro.melt:7640:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2072*/ meltfptr[2071])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1978__MEXPAND_VARIADIC#9", NULL != (/*_._VALDATA___V260*/ meltfptr[259])); ((meltroutine_ptr_t)/*_._VALROUT___V2072*/ meltfptr[2071])->tabval[9] = (melt_ptr_t)(/*_._VALDATA___V260*/ meltfptr[259]); MELT_LOCATION("warmelt-macro.melt:7640:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2072*/ meltfptr[2071])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1593*/ meltfptr[1592]); ((meltroutine_ptr_t)/*_._VALROUT___V2072*/ meltfptr[2071])->tabval[10] = (melt_ptr_t)(/*_._VALCLO___V1593*/ meltfptr[1592]); MELT_LOCATION("warmelt-macro.melt:7640:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2072*/ meltfptr[2071])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1611*/ meltfptr[1610]); ((meltroutine_ptr_t)/*_._VALROUT___V2072*/ meltfptr[2071])->tabval[11] = (melt_ptr_t)(/*_._VALCLO___V1611*/ meltfptr[1610]); MELT_LOCATION("warmelt-macro.melt:7640:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2072*/ meltfptr[2071])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1978__MEXPAND_VARIADIC#12", NULL != (/*_._VALDATA___V1781*/ meltfptr[1780])); ((meltroutine_ptr_t)/*_._VALROUT___V2072*/ meltfptr[2071])->tabval[12] = (melt_ptr_t)(/*_._VALDATA___V1781*/ meltfptr[1780]); MELT_LOCATION("warmelt-macro.melt:7640:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2072*/ meltfptr[2071])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1978__MEXPAND_VARIADIC#13", NULL != (/*_.FRESH_ENV__V38*/ meltfptr[37])); ((meltroutine_ptr_t)/*_._VALROUT___V2072*/ meltfptr[2071])->tabval[13] = (melt_ptr_t)(/*_.FRESH_ENV__V38*/ meltfptr[37]); MELT_LOCATION("warmelt-macro.melt:7640:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2072*/ meltfptr[2071])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1978__MEXPAND_VARIADIC#14", NULL != (/*_.CLASS_FORMAL_BINDING__V49*/ meltfptr[48])); ((meltroutine_ptr_t)/*_._VALROUT___V2072*/ meltfptr[2071])->tabval[14] = (melt_ptr_t)(/*_.CLASS_FORMAL_BINDING__V49*/ meltfptr[48]); #undef meltfram__ } /*end of meltmod__WARMELTmiMACRO__initialmeltchunk_45*/ void meltmod__WARMELTmiMACRO__initialmeltchunk_46 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; MELT_LOCATION("warmelt-macro.melt:7640:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2072*/ meltfptr[2071])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1978__MEXPAND_VARIADIC#15", NULL != (/*_.CLASS_ANY_BINDING__V28*/ meltfptr[27])); ((meltroutine_ptr_t)/*_._VALROUT___V2072*/ meltfptr[2071])->tabval[15] = (melt_ptr_t)(/*_.CLASS_ANY_BINDING__V28*/ meltfptr[27]); MELT_LOCATION("warmelt-macro.melt:7640:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2072*/ meltfptr[2071])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1749*/ meltfptr[1748]); ((meltroutine_ptr_t)/*_._VALROUT___V2072*/ meltfptr[2071])->tabval[16] = (melt_ptr_t)(/*_._VALCLO___V1749*/ meltfptr[1748]); MELT_LOCATION("warmelt-macro.melt:7640:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2072*/ meltfptr[2071])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V306*/ meltfptr[305]); ((meltroutine_ptr_t)/*_._VALROUT___V2072*/ meltfptr[2071])->tabval[17] = (melt_ptr_t)(/*_._VALCLO___V306*/ meltfptr[305]); MELT_LOCATION("warmelt-macro.melt:7640:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2072*/ meltfptr[2071])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1978__MEXPAND_VARIADIC#18", NULL != (/*_.CLASS_NAMED__V23*/ meltfptr[22])); ((meltroutine_ptr_t)/*_._VALROUT___V2072*/ meltfptr[2071])->tabval[18] = (melt_ptr_t)(/*_.CLASS_NAMED__V23*/ meltfptr[22]); MELT_LOCATION("warmelt-macro.melt:7640:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2072*/ meltfptr[2071])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1978__MEXPAND_VARIADIC#19", NULL != (/*_.PUT_ENV__V32*/ meltfptr[31])); ((meltroutine_ptr_t)/*_._VALROUT___V2072*/ meltfptr[2071])->tabval[19] = (melt_ptr_t)(/*_.PUT_ENV__V32*/ meltfptr[31]); MELT_LOCATION("warmelt-macro.melt:7640:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2072*/ meltfptr[2071])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1215*/ meltfptr[1214]); ((meltroutine_ptr_t)/*_._VALROUT___V2072*/ meltfptr[2071])->tabval[20] = (melt_ptr_t)(/*_._VALDATA___V1215*/ meltfptr[1214]); MELT_LOCATION("warmelt-macro.melt:7640:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2072*/ meltfptr[2071])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1978__MEXPAND_VARIADIC#21", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V2072*/ meltfptr[2071])->tabval[21] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:7640:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2072*/ meltfptr[2071])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1215*/ meltfptr[1214]); ((meltroutine_ptr_t)/*_._VALROUT___V2072*/ meltfptr[2071])->tabval[22] = (melt_ptr_t)(/*_._VALDATA___V1215*/ meltfptr[1214]); MELT_LOCATION("warmelt-macro.melt:7720:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2074*/ meltfptr[2073])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1981__LAMBDA_#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V2074*/ meltfptr[2073])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:7720:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2074*/ meltfptr[2073])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1215*/ meltfptr[1214]); ((meltroutine_ptr_t)/*_._VALROUT___V2074*/ meltfptr[2073])->tabval[1] = (melt_ptr_t)(/*_._VALDATA___V1215*/ meltfptr[1214]); MELT_LOCATION("warmelt-macro.melt:7720:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V2074*/ meltfptr[2073]); MELT_LOCATION("warmelt-macro.melt:7640:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2072*/ meltfptr[2071])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1978__MEXPAND_VARIADIC#23", NULL != (/*_._VALROUT___V2074*/ meltfptr[2073])); ((meltroutine_ptr_t)/*_._VALROUT___V2072*/ meltfptr[2071])->tabval[23] = (melt_ptr_t)(/*_._VALROUT___V2074*/ meltfptr[2073]); MELT_LOCATION("warmelt-macro.melt:7640:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V2072*/ meltfptr[2071]); /*putclosurout#114*/ melt_assertmsg("putclosrout#114 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V2075*/ meltfptr[2074])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#114 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2072*/ meltfptr[2071])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V2075*/ meltfptr[2074])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V2072*/ meltfptr[2071]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V2075*/ meltfptr[2074]); MELT_LOCATION("warmelt-macro.melt:7762:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2076*/ meltfptr[2075])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1982__MEXPAND_MULTICALL#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V2076*/ meltfptr[2075])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:7762:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2076*/ meltfptr[2075])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1982__MEXPAND_MULTICALL#1", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V2076*/ meltfptr[2075])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:7762:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2076*/ meltfptr[2075])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1982__MEXPAND_MULTICALL#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V2076*/ meltfptr[2075])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:7762:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2076*/ meltfptr[2075])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1982__MEXPAND_MULTICALL#3", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V2076*/ meltfptr[2075])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:7762:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2076*/ meltfptr[2075])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1982__MEXPAND_MULTICALL#4", NULL != (/*_.FRESH_ENV__V38*/ meltfptr[37])); ((meltroutine_ptr_t)/*_._VALROUT___V2076*/ meltfptr[2075])->tabval[4] = (melt_ptr_t)(/*_.FRESH_ENV__V38*/ meltfptr[37]); MELT_LOCATION("warmelt-macro.melt:7762:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2076*/ meltfptr[2075])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1611*/ meltfptr[1610]); ((meltroutine_ptr_t)/*_._VALROUT___V2076*/ meltfptr[2075])->tabval[5] = (melt_ptr_t)(/*_._VALCLO___V1611*/ meltfptr[1610]); MELT_LOCATION("warmelt-macro.melt:7762:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2076*/ meltfptr[2075])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1982__MEXPAND_MULTICALL#6", NULL != (/*_._VALDATA___V1781*/ meltfptr[1780])); ((meltroutine_ptr_t)/*_._VALROUT___V2076*/ meltfptr[2075])->tabval[6] = (melt_ptr_t)(/*_._VALDATA___V1781*/ meltfptr[1780]); MELT_LOCATION("warmelt-macro.melt:7762:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2076*/ meltfptr[2075])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1982__MEXPAND_MULTICALL#7", NULL != (/*_.DISCR_VARIADIC_FORMAL_SEQUENCE__V62*/ meltfptr[61])); ((meltroutine_ptr_t)/*_._VALROUT___V2076*/ meltfptr[2075])->tabval[7] = (melt_ptr_t)(/*_.DISCR_VARIADIC_FORMAL_SEQUENCE__V62*/ meltfptr[61]); MELT_LOCATION("warmelt-macro.melt:7762:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2076*/ meltfptr[2075])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V383*/ meltfptr[382]); ((meltroutine_ptr_t)/*_._VALROUT___V2076*/ meltfptr[2075])->tabval[8] = (melt_ptr_t)(/*_._VALDATA___V383*/ meltfptr[382]); MELT_LOCATION("warmelt-macro.melt:7762:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2076*/ meltfptr[2075])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V373*/ meltfptr[372]); ((meltroutine_ptr_t)/*_._VALROUT___V2076*/ meltfptr[2075])->tabval[9] = (melt_ptr_t)(/*_._VALDATA___V373*/ meltfptr[372]); MELT_LOCATION("warmelt-macro.melt:7762:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2076*/ meltfptr[2075])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1982__MEXPAND_MULTICALL#10", NULL != (/*_.MULTIPLE_EVERY__V91*/ meltfptr[90])); ((meltroutine_ptr_t)/*_._VALROUT___V2076*/ meltfptr[2075])->tabval[10] = (melt_ptr_t)(/*_.MULTIPLE_EVERY__V91*/ meltfptr[90]); MELT_LOCATION("warmelt-macro.melt:7762:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2076*/ meltfptr[2075])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1982__MEXPAND_MULTICALL#11", NULL != (/*_.PUT_ENV__V32*/ meltfptr[31])); ((meltroutine_ptr_t)/*_._VALROUT___V2076*/ meltfptr[2075])->tabval[11] = (melt_ptr_t)(/*_.PUT_ENV__V32*/ meltfptr[31]); MELT_LOCATION("warmelt-macro.melt:7796:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2077*/ meltfptr[2076])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1986__LAMBDA_#0", NULL != (/*_.PUT_ENV__V32*/ meltfptr[31])); ((meltroutine_ptr_t)/*_._VALROUT___V2077*/ meltfptr[2076])->tabval[0] = (melt_ptr_t)(/*_.PUT_ENV__V32*/ meltfptr[31]); MELT_LOCATION("warmelt-macro.melt:7796:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V2077*/ meltfptr[2076]); MELT_LOCATION("warmelt-macro.melt:7762:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2076*/ meltfptr[2075])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1982__MEXPAND_MULTICALL#12", NULL != (/*_._VALROUT___V2077*/ meltfptr[2076])); ((meltroutine_ptr_t)/*_._VALROUT___V2076*/ meltfptr[2075])->tabval[12] = (melt_ptr_t)(/*_._VALROUT___V2077*/ meltfptr[2076]); MELT_LOCATION("warmelt-macro.melt:7762:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2076*/ meltfptr[2075])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1593*/ meltfptr[1592]); ((meltroutine_ptr_t)/*_._VALROUT___V2076*/ meltfptr[2075])->tabval[13] = (melt_ptr_t)(/*_._VALCLO___V1593*/ meltfptr[1592]); MELT_LOCATION("warmelt-macro.melt:7762:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2076*/ meltfptr[2075])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1233*/ meltfptr[1232]); ((meltroutine_ptr_t)/*_._VALROUT___V2076*/ meltfptr[2075])->tabval[14] = (melt_ptr_t)(/*_._VALDATA___V1233*/ meltfptr[1232]); MELT_LOCATION("warmelt-macro.melt:7762:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V2076*/ meltfptr[2075]); /*putclosurout#115*/ melt_assertmsg("putclosrout#115 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V2078*/ meltfptr[2077])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#115 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2076*/ meltfptr[2075])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V2078*/ meltfptr[2077])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V2076*/ meltfptr[2075]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V2078*/ meltfptr[2077]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1984__MULTIPLE_EVERY @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2079*/ meltfptr[2078])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1984__MULTIPLE_EVERY @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2079*/ meltfptr[2078])))); ((meltobject_ptr_t)(/*_._VALDATA___V2079*/ meltfptr[2078]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2080*/ meltfptr[2079]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2079*/ meltfptr[2078]); melt_dbgtrace_written_object (/*_._VALDATA___V2079*/ meltfptr[2078], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1987__MULTICALL @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2081*/ meltfptr[2080])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1987__MULTICALL @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2081*/ meltfptr[2080])))); ((meltobject_ptr_t)(/*_._VALDATA___V2081*/ meltfptr[2080]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2082*/ meltfptr[2081]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2081*/ meltfptr[2080]); melt_dbgtrace_written_object (/*_._VALDATA___V2081*/ meltfptr[2080], "new static instance"); MELT_LOCATION("warmelt-macro.melt:7823:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2083*/ meltfptr[2082])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1989__MEXPAND_BOX#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V2083*/ meltfptr[2082])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:7823:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2083*/ meltfptr[2082])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1989__MEXPAND_BOX#1", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V2083*/ meltfptr[2082])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:7823:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2083*/ meltfptr[2082])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1989__MEXPAND_BOX#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V2083*/ meltfptr[2082])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:7823:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2083*/ meltfptr[2082])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1989__MEXPAND_BOX#3", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V2083*/ meltfptr[2082])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:7823:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2083*/ meltfptr[2082])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V583*/ meltfptr[582]); ((meltroutine_ptr_t)/*_._VALROUT___V2083*/ meltfptr[2082])->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V583*/ meltfptr[582]); MELT_LOCATION("warmelt-macro.melt:7823:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V2083*/ meltfptr[2082]); /*putclosurout#116*/ melt_assertmsg("putclosrout#116 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V2084*/ meltfptr[2083])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#116 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2083*/ meltfptr[2082])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V2084*/ meltfptr[2083])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V2083*/ meltfptr[2082]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V2084*/ meltfptr[2083]); MELT_LOCATION("warmelt-macro.melt:7855:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2085*/ meltfptr[2084])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1991__MEXPAND_CONSTANT_BOX#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V2085*/ meltfptr[2084])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:7855:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2085*/ meltfptr[2084])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1991__MEXPAND_CONSTANT_BOX#1", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V2085*/ meltfptr[2084])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:7855:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2085*/ meltfptr[2084])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1991__MEXPAND_CONSTANT_BOX#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V2085*/ meltfptr[2084])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:7855:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2085*/ meltfptr[2084])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1991__MEXPAND_CONSTANT_BOX#3", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V2085*/ meltfptr[2084])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:7855:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2085*/ meltfptr[2084])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V589*/ meltfptr[588]); ((meltroutine_ptr_t)/*_._VALROUT___V2085*/ meltfptr[2084])->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V589*/ meltfptr[588]); MELT_LOCATION("warmelt-macro.melt:7855:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V2085*/ meltfptr[2084]); /*putclosurout#117*/ melt_assertmsg("putclosrout#117 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V2086*/ meltfptr[2085])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#117 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2085*/ meltfptr[2084])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V2086*/ meltfptr[2085])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V2085*/ meltfptr[2084]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V2086*/ meltfptr[2085]); MELT_LOCATION("warmelt-macro.melt:7887:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2087*/ meltfptr[2086])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1993__MEXPAND_UNBOX#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V2087*/ meltfptr[2086])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:7887:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2087*/ meltfptr[2086])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1993__MEXPAND_UNBOX#1", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V2087*/ meltfptr[2086])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:7887:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2087*/ meltfptr[2086])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1993__MEXPAND_UNBOX#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V2087*/ meltfptr[2086])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:7887:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2087*/ meltfptr[2086])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1993__MEXPAND_UNBOX#3", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V2087*/ meltfptr[2086])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:7887:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2087*/ meltfptr[2086])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1993__MEXPAND_UNBOX#4", NULL != (/*_.CLASS_KEYWORD__V22*/ meltfptr[21])); ((meltroutine_ptr_t)/*_._VALROUT___V2087*/ meltfptr[2086])->tabval[4] = (melt_ptr_t)(/*_.CLASS_KEYWORD__V22*/ meltfptr[21]); MELT_LOCATION("warmelt-macro.melt:7887:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2087*/ meltfptr[2086])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1993__MEXPAND_UNBOX#5", NULL != (/*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V2087*/ meltfptr[2086])->tabval[5] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-macro.melt:7887:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2087*/ meltfptr[2086])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1993__MEXPAND_UNBOX#6", NULL != (/*_.CLASS_CTYPE__V63*/ meltfptr[62])); ((meltroutine_ptr_t)/*_._VALROUT___V2087*/ meltfptr[2086])->tabval[6] = (melt_ptr_t)(/*_.CLASS_CTYPE__V63*/ meltfptr[62]); MELT_LOCATION("warmelt-macro.melt:7887:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2087*/ meltfptr[2086])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V595*/ meltfptr[594]); ((meltroutine_ptr_t)/*_._VALROUT___V2087*/ meltfptr[2086])->tabval[7] = (melt_ptr_t)(/*_._VALDATA___V595*/ meltfptr[594]); MELT_LOCATION("warmelt-macro.melt:7887:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V2087*/ meltfptr[2086]); /*putclosurout#118*/ melt_assertmsg("putclosrout#118 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V2088*/ meltfptr[2087])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#118 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2087*/ meltfptr[2086])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V2088*/ meltfptr[2087])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V2087*/ meltfptr[2086]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V2088*/ meltfptr[2087]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1995__UNBOX @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2089*/ meltfptr[2088])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1995__UNBOX @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2089*/ meltfptr[2088])))); ((meltobject_ptr_t)(/*_._VALDATA___V2089*/ meltfptr[2088]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2090*/ meltfptr[2089]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2089*/ meltfptr[2088]); melt_dbgtrace_written_object (/*_._VALDATA___V2089*/ meltfptr[2088], "new static instance"); MELT_LOCATION("warmelt-macro.melt:7933:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2091*/ meltfptr[2090])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1997__MEXPAND_COMMENT#0", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V2091*/ meltfptr[2090])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:7933:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2091*/ meltfptr[2090])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1997__MEXPAND_COMMENT#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V2091*/ meltfptr[2090])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:7933:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2091*/ meltfptr[2090])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1997__MEXPAND_COMMENT#2", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V2091*/ meltfptr[2090])->tabval[2] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:7933:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2091*/ meltfptr[2090])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V515*/ meltfptr[514]); ((meltroutine_ptr_t)/*_._VALROUT___V2091*/ meltfptr[2090])->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V515*/ meltfptr[514]); MELT_LOCATION("warmelt-macro.melt:7933:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V2091*/ meltfptr[2090]); /*putclosurout#119*/ melt_assertmsg("putclosrout#119 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V2092*/ meltfptr[2091])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#119 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2091*/ meltfptr[2090])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V2092*/ meltfptr[2091])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V2091*/ meltfptr[2090]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V2092*/ meltfptr[2091]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_1999__COMMENT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2093*/ meltfptr[2092])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1999__COMMENT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2093*/ meltfptr[2092])))); ((meltobject_ptr_t)(/*_._VALDATA___V2093*/ meltfptr[2092]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2094*/ meltfptr[2093]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2093*/ meltfptr[2092]); melt_dbgtrace_written_object (/*_._VALDATA___V2093*/ meltfptr[2092], "new static instance"); MELT_LOCATION("warmelt-macro.melt:7963:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2095*/ meltfptr[2094])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2001__MEXPAND_CHEADER#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V2095*/ meltfptr[2094])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:7963:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2095*/ meltfptr[2094])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2001__MEXPAND_CHEADER#1", NULL != (/*_.DEBUG_LESS__V35*/ meltfptr[34])); ((meltroutine_ptr_t)/*_._VALROUT___V2095*/ meltfptr[2094])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_LESS__V35*/ meltfptr[34]); MELT_LOCATION("warmelt-macro.melt:7963:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2095*/ meltfptr[2094])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2001__MEXPAND_CHEADER#2", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V2095*/ meltfptr[2094])->tabval[2] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:7963:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2095*/ meltfptr[2094])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2001__MEXPAND_CHEADER#3", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V2095*/ meltfptr[2094])->tabval[3] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:7963:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2095*/ meltfptr[2094])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2001__MEXPAND_CHEADER#4", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V2095*/ meltfptr[2094])->tabval[4] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:7963:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2095*/ meltfptr[2094])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2001__MEXPAND_CHEADER#5", NULL != (/*_.CLASS_SEXPR_MACROSTRING__V78*/ meltfptr[77])); ((meltroutine_ptr_t)/*_._VALROUT___V2095*/ meltfptr[2094])->tabval[5] = (melt_ptr_t)(/*_.CLASS_SEXPR_MACROSTRING__V78*/ meltfptr[77]); MELT_LOCATION("warmelt-macro.melt:7963:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2095*/ meltfptr[2094])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2001__MEXPAND_CHEADER#6", NULL != (/*_.DISCR_STRBUF__V19*/ meltfptr[18])); ((meltroutine_ptr_t)/*_._VALROUT___V2095*/ meltfptr[2094])->tabval[6] = (melt_ptr_t)(/*_.DISCR_STRBUF__V19*/ meltfptr[18]); MELT_LOCATION("warmelt-macro.melt:7963:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2095*/ meltfptr[2094])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2001__MEXPAND_CHEADER#7", NULL != (/*_.CLASS_LOCATED__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V2095*/ meltfptr[2094])->tabval[7] = (melt_ptr_t)(/*_.CLASS_LOCATED__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-macro.melt:7963:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2095*/ meltfptr[2094])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2001__MEXPAND_CHEADER#8", NULL != (/*_.ADD2OUT__V20*/ meltfptr[19])); ((meltroutine_ptr_t)/*_._VALROUT___V2095*/ meltfptr[2094])->tabval[8] = (melt_ptr_t)(/*_.ADD2OUT__V20*/ meltfptr[19]); MELT_LOCATION("warmelt-macro.melt:7963:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2095*/ meltfptr[2094])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2001__MEXPAND_CHEADER#9", NULL != (/*_.DISCR_VERBATIM_STRING__V66*/ meltfptr[65])); ((meltroutine_ptr_t)/*_._VALROUT___V2095*/ meltfptr[2094])->tabval[9] = (melt_ptr_t)(/*_.DISCR_VERBATIM_STRING__V66*/ meltfptr[65]); MELT_LOCATION("warmelt-macro.melt:7963:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2095*/ meltfptr[2094])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V541*/ meltfptr[540]); ((meltroutine_ptr_t)/*_._VALROUT___V2095*/ meltfptr[2094])->tabval[10] = (melt_ptr_t)(/*_._VALDATA___V541*/ meltfptr[540]); MELT_LOCATION("warmelt-macro.melt:7963:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V2095*/ meltfptr[2094]); /*putclosurout#120*/ melt_assertmsg("putclosrout#120 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V2096*/ meltfptr[2095])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#120 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2095*/ meltfptr[2094])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V2096*/ meltfptr[2095])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V2095*/ meltfptr[2094]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V2096*/ meltfptr[2095]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_2003__CHEADER @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2097*/ meltfptr[2096])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_2003__CHEADER @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2097*/ meltfptr[2096])))); ((meltobject_ptr_t)(/*_._VALDATA___V2097*/ meltfptr[2096]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2098*/ meltfptr[2097]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2097*/ meltfptr[2096]); melt_dbgtrace_written_object (/*_._VALDATA___V2097*/ meltfptr[2096], "new static instance"); MELT_LOCATION("warmelt-macro.melt:8012:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2099*/ meltfptr[2098])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2005__MEXPAND_CIMPLEMENT#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V2099*/ meltfptr[2098])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:8012:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2099*/ meltfptr[2098])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2005__MEXPAND_CIMPLEMENT#1", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V2099*/ meltfptr[2098])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:8012:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2099*/ meltfptr[2098])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2005__MEXPAND_CIMPLEMENT#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V2099*/ meltfptr[2098])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:8012:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2099*/ meltfptr[2098])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2005__MEXPAND_CIMPLEMENT#3", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V2099*/ meltfptr[2098])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:8012:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2099*/ meltfptr[2098])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2005__MEXPAND_CIMPLEMENT#4", NULL != (/*_.CLASS_SEXPR_MACROSTRING__V78*/ meltfptr[77])); ((meltroutine_ptr_t)/*_._VALROUT___V2099*/ meltfptr[2098])->tabval[4] = (melt_ptr_t)(/*_.CLASS_SEXPR_MACROSTRING__V78*/ meltfptr[77]); MELT_LOCATION("warmelt-macro.melt:8012:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2099*/ meltfptr[2098])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2005__MEXPAND_CIMPLEMENT#5", NULL != (/*_.DISCR_STRBUF__V19*/ meltfptr[18])); ((meltroutine_ptr_t)/*_._VALROUT___V2099*/ meltfptr[2098])->tabval[5] = (melt_ptr_t)(/*_.DISCR_STRBUF__V19*/ meltfptr[18]); MELT_LOCATION("warmelt-macro.melt:8012:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2099*/ meltfptr[2098])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2005__MEXPAND_CIMPLEMENT#6", NULL != (/*_.CLASS_LOCATED__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V2099*/ meltfptr[2098])->tabval[6] = (melt_ptr_t)(/*_.CLASS_LOCATED__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-macro.melt:8012:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2099*/ meltfptr[2098])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2005__MEXPAND_CIMPLEMENT#7", NULL != (/*_.ADD2OUT__V20*/ meltfptr[19])); ((meltroutine_ptr_t)/*_._VALROUT___V2099*/ meltfptr[2098])->tabval[7] = (melt_ptr_t)(/*_.ADD2OUT__V20*/ meltfptr[19]); MELT_LOCATION("warmelt-macro.melt:8012:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2099*/ meltfptr[2098])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2005__MEXPAND_CIMPLEMENT#8", NULL != (/*_.DISCR_VERBATIM_STRING__V66*/ meltfptr[65])); ((meltroutine_ptr_t)/*_._VALROUT___V2099*/ meltfptr[2098])->tabval[8] = (melt_ptr_t)(/*_.DISCR_VERBATIM_STRING__V66*/ meltfptr[65]); MELT_LOCATION("warmelt-macro.melt:8012:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2099*/ meltfptr[2098])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V547*/ meltfptr[546]); ((meltroutine_ptr_t)/*_._VALROUT___V2099*/ meltfptr[2098])->tabval[9] = (melt_ptr_t)(/*_._VALDATA___V547*/ meltfptr[546]); MELT_LOCATION("warmelt-macro.melt:8012:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V2099*/ meltfptr[2098]); /*putclosurout#121*/ melt_assertmsg("putclosrout#121 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V2100*/ meltfptr[2099])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#121 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2099*/ meltfptr[2098])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V2100*/ meltfptr[2099])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V2099*/ meltfptr[2098]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V2100*/ meltfptr[2099]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_2007__CIMPLEMENT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2101*/ meltfptr[2100])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_2007__CIMPLEMENT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2101*/ meltfptr[2100])))); ((meltobject_ptr_t)(/*_._VALDATA___V2101*/ meltfptr[2100]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2102*/ meltfptr[2101]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2101*/ meltfptr[2100]); melt_dbgtrace_written_object (/*_._VALDATA___V2101*/ meltfptr[2100], "new static instance"); MELT_LOCATION("warmelt-macro.melt:8060:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2103*/ meltfptr[2102])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2009__MEXPAND_MODULE_IS_GPL_COMPATIBLE#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V2103*/ meltfptr[2102])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:8060:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2103*/ meltfptr[2102])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2009__MEXPAND_MODULE_IS_GPL_COMPATIBLE#1", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V2103*/ meltfptr[2102])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:8060:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2103*/ meltfptr[2102])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2009__MEXPAND_MODULE_IS_GPL_COMPATIBLE#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V2103*/ meltfptr[2102])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:8060:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2103*/ meltfptr[2102])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2009__MEXPAND_MODULE_IS_GPL_COMPATIBLE#3", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V2103*/ meltfptr[2102])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:8060:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2103*/ meltfptr[2102])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2009__MEXPAND_MODULE_IS_GPL_COMPATIBLE#4", NULL != (/*_.CLASS_SEXPR_MACROSTRING__V78*/ meltfptr[77])); ((meltroutine_ptr_t)/*_._VALROUT___V2103*/ meltfptr[2102])->tabval[4] = (melt_ptr_t)(/*_.CLASS_SEXPR_MACROSTRING__V78*/ meltfptr[77]); MELT_LOCATION("warmelt-macro.melt:8060:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2103*/ meltfptr[2102])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2009__MEXPAND_MODULE_IS_GPL_COMPATIBLE#5", NULL != (/*_.DISCR_STRBUF__V19*/ meltfptr[18])); ((meltroutine_ptr_t)/*_._VALROUT___V2103*/ meltfptr[2102])->tabval[5] = (melt_ptr_t)(/*_.DISCR_STRBUF__V19*/ meltfptr[18]); MELT_LOCATION("warmelt-macro.melt:8060:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2103*/ meltfptr[2102])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2009__MEXPAND_MODULE_IS_GPL_COMPATIBLE#6", NULL != (/*_.CLASS_LOCATED__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V2103*/ meltfptr[2102])->tabval[6] = (melt_ptr_t)(/*_.CLASS_LOCATED__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-macro.melt:8060:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2103*/ meltfptr[2102])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2009__MEXPAND_MODULE_IS_GPL_COMPATIBLE#7", NULL != (/*_.ADD2OUT__V20*/ meltfptr[19])); ((meltroutine_ptr_t)/*_._VALROUT___V2103*/ meltfptr[2102])->tabval[7] = (melt_ptr_t)(/*_.ADD2OUT__V20*/ meltfptr[19]); MELT_LOCATION("warmelt-macro.melt:8060:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2103*/ meltfptr[2102])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2009__MEXPAND_MODULE_IS_GPL_COMPATIBLE#8", NULL != (/*_.DISCR_VERBATIM_STRING__V66*/ meltfptr[65])); ((meltroutine_ptr_t)/*_._VALROUT___V2103*/ meltfptr[2102])->tabval[8] = (melt_ptr_t)(/*_.DISCR_VERBATIM_STRING__V66*/ meltfptr[65]); MELT_LOCATION("warmelt-macro.melt:8060:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2103*/ meltfptr[2102])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2009__MEXPAND_MODULE_IS_GPL_COMPATIBLE#9", NULL != (/*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V2103*/ meltfptr[2102])->tabval[9] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-macro.melt:8060:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2103*/ meltfptr[2102])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2009__MEXPAND_MODULE_IS_GPL_COMPATIBLE#10", NULL != (/*_.CLASS_NAMED__V23*/ meltfptr[22])); ((meltroutine_ptr_t)/*_._VALROUT___V2103*/ meltfptr[2102])->tabval[10] = (melt_ptr_t)(/*_.CLASS_NAMED__V23*/ meltfptr[22]); MELT_LOCATION("warmelt-macro.melt:8060:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2103*/ meltfptr[2102])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V535*/ meltfptr[534]); ((meltroutine_ptr_t)/*_._VALROUT___V2103*/ meltfptr[2102])->tabval[11] = (melt_ptr_t)(/*_._VALDATA___V535*/ meltfptr[534]); MELT_LOCATION("warmelt-macro.melt:8060:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V2103*/ meltfptr[2102]); /*putclosurout#122*/ melt_assertmsg("putclosrout#122 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V2104*/ meltfptr[2103])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#122 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2103*/ meltfptr[2102])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V2104*/ meltfptr[2103])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V2103*/ meltfptr[2102]); #undef meltfram__ } /*end of meltmod__WARMELTmiMACRO__initialmeltchunk_46*/ void meltmod__WARMELTmiMACRO__initialmeltchunk_47 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V2104*/ meltfptr[2103]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_2011__MODULE_IS_GPL_COMPATIBLE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2105*/ meltfptr[2104])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_2011__MODULE_IS_GPL_COMPATIBLE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2105*/ meltfptr[2104])))); ((meltobject_ptr_t)(/*_._VALDATA___V2105*/ meltfptr[2104]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2106*/ meltfptr[2105]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2105*/ meltfptr[2104]); melt_dbgtrace_written_object (/*_._VALDATA___V2105*/ meltfptr[2104], "new static instance"); MELT_LOCATION("warmelt-macro.melt:8115:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2107*/ meltfptr[2106])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2013__MEXPAND_USE_PACKAGE_FROM_PKG_CONFIG#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V2107*/ meltfptr[2106])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:8115:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2107*/ meltfptr[2106])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2013__MEXPAND_USE_PACKAGE_FROM_PKG_CONFIG#1", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V2107*/ meltfptr[2106])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:8115:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2107*/ meltfptr[2106])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2013__MEXPAND_USE_PACKAGE_FROM_PKG_CONFIG#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V2107*/ meltfptr[2106])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:8115:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2107*/ meltfptr[2106])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2013__MEXPAND_USE_PACKAGE_FROM_PKG_CONFIG#3", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V2107*/ meltfptr[2106])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:8115:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2107*/ meltfptr[2106])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1589*/ meltfptr[1588]); ((meltroutine_ptr_t)/*_._VALROUT___V2107*/ meltfptr[2106])->tabval[4] = (melt_ptr_t)(/*_._VALCLO___V1589*/ meltfptr[1588]); MELT_LOCATION("warmelt-macro.melt:8115:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2107*/ meltfptr[2106])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2013__MEXPAND_USE_PACKAGE_FROM_PKG_CONFIG#5", NULL != (/*_.DISCR_STRBUF__V19*/ meltfptr[18])); ((meltroutine_ptr_t)/*_._VALROUT___V2107*/ meltfptr[2106])->tabval[5] = (melt_ptr_t)(/*_.DISCR_STRBUF__V19*/ meltfptr[18]); MELT_LOCATION("warmelt-macro.melt:8115:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2107*/ meltfptr[2106])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2013__MEXPAND_USE_PACKAGE_FROM_PKG_CONFIG#6", NULL != (/*_.ADD2OUT__V20*/ meltfptr[19])); ((meltroutine_ptr_t)/*_._VALROUT___V2107*/ meltfptr[2106])->tabval[6] = (melt_ptr_t)(/*_.ADD2OUT__V20*/ meltfptr[19]); MELT_LOCATION("warmelt-macro.melt:8115:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2107*/ meltfptr[2106])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V306*/ meltfptr[305]); ((meltroutine_ptr_t)/*_._VALROUT___V2107*/ meltfptr[2106])->tabval[7] = (melt_ptr_t)(/*_._VALCLO___V306*/ meltfptr[305]); MELT_LOCATION("warmelt-macro.melt:8115:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2107*/ meltfptr[2106])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2013__MEXPAND_USE_PACKAGE_FROM_PKG_CONFIG#8", NULL != (/*_.DISCR_STRING__V15*/ meltfptr[14])); ((meltroutine_ptr_t)/*_._VALROUT___V2107*/ meltfptr[2106])->tabval[8] = (melt_ptr_t)(/*_.DISCR_STRING__V15*/ meltfptr[14]); MELT_LOCATION("warmelt-macro.melt:8115:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2107*/ meltfptr[2106])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V553*/ meltfptr[552]); ((meltroutine_ptr_t)/*_._VALROUT___V2107*/ meltfptr[2106])->tabval[9] = (melt_ptr_t)(/*_._VALDATA___V553*/ meltfptr[552]); MELT_LOCATION("warmelt-macro.melt:8115:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V2107*/ meltfptr[2106]); /*putclosurout#123*/ melt_assertmsg("putclosrout#123 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V2108*/ meltfptr[2107])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#123 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2107*/ meltfptr[2106])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V2108*/ meltfptr[2107])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V2107*/ meltfptr[2106]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V2108*/ meltfptr[2107]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_2015__USE_PACKAGE_FROM_PKG_CONFIG @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2109*/ meltfptr[2108])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_2015__USE_PACKAGE_FROM_PKG_CONFIG @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2109*/ meltfptr[2108])))); ((meltobject_ptr_t)(/*_._VALDATA___V2109*/ meltfptr[2108]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2110*/ meltfptr[2109]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2109*/ meltfptr[2108]); melt_dbgtrace_written_object (/*_._VALDATA___V2109*/ meltfptr[2108], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_2017__USEmiPACKAGEmiFROMmiPKGmiCONFIG @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2111*/ meltfptr[2110])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_2017__USEmiPACKAGEmiFROMmiPKGmiCONFIG @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2111*/ meltfptr[2110])))); ((meltobject_ptr_t)(/*_._VALDATA___V2111*/ meltfptr[2110]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2112*/ meltfptr[2111]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2111*/ meltfptr[2110]); melt_dbgtrace_written_object (/*_._VALDATA___V2111*/ meltfptr[2110], "new static instance"); MELT_LOCATION("warmelt-macro.melt:8205:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2113*/ meltfptr[2112])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2019__PAIRLIST_TO_RETURN#0", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V2113*/ meltfptr[2112])->tabval[0] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:8205:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2113*/ meltfptr[2112])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2019__PAIRLIST_TO_RETURN#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V2113*/ meltfptr[2112])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:8205:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2113*/ meltfptr[2112])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1593*/ meltfptr[1592]); ((meltroutine_ptr_t)/*_._VALROUT___V2113*/ meltfptr[2112])->tabval[2] = (melt_ptr_t)(/*_._VALCLO___V1593*/ meltfptr[1592]); MELT_LOCATION("warmelt-macro.melt:8205:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2113*/ meltfptr[2112])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V495*/ meltfptr[494]); ((meltroutine_ptr_t)/*_._VALROUT___V2113*/ meltfptr[2112])->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V495*/ meltfptr[494]); MELT_LOCATION("warmelt-macro.melt:8205:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V2113*/ meltfptr[2112]); /*putclosurout#124*/ melt_assertmsg("putclosrout#124 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V2114*/ meltfptr[2113])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#124 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2113*/ meltfptr[2112])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V2114*/ meltfptr[2113])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V2113*/ meltfptr[2112]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V2114*/ meltfptr[2113]); MELT_LOCATION("warmelt-macro.melt:8218:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2115*/ meltfptr[2114])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2021__MEXPAND_PROGN#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V2115*/ meltfptr[2114])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:8218:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2115*/ meltfptr[2114])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2021__MEXPAND_PROGN#1", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V2115*/ meltfptr[2114])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:8218:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2115*/ meltfptr[2114])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2021__MEXPAND_PROGN#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V2115*/ meltfptr[2114])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:8218:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2115*/ meltfptr[2114])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1920*/ meltfptr[1919]); ((meltroutine_ptr_t)/*_._VALROUT___V2115*/ meltfptr[2114])->tabval[3] = (melt_ptr_t)(/*_._VALCLO___V1920*/ meltfptr[1919]); MELT_LOCATION("warmelt-macro.melt:8218:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V2115*/ meltfptr[2114]); /*putclosurout#125*/ melt_assertmsg("putclosrout#125 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V2116*/ meltfptr[2115])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#125 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2115*/ meltfptr[2114])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V2116*/ meltfptr[2115])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V2115*/ meltfptr[2114]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V2116*/ meltfptr[2115]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_2023__PROGN @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2117*/ meltfptr[2116])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_2023__PROGN @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2117*/ meltfptr[2116])))); ((meltobject_ptr_t)(/*_._VALDATA___V2117*/ meltfptr[2116]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2118*/ meltfptr[2117]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2117*/ meltfptr[2116]); melt_dbgtrace_written_object (/*_._VALDATA___V2117*/ meltfptr[2116], "new static instance"); MELT_LOCATION("warmelt-macro.melt:8244:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2119*/ meltfptr[2118])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2025__MEXPAND_RETURN#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V2119*/ meltfptr[2118])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:8244:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2119*/ meltfptr[2118])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2025__MEXPAND_RETURN#1", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V2119*/ meltfptr[2118])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:8244:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2119*/ meltfptr[2118])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2025__MEXPAND_RETURN#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V2119*/ meltfptr[2118])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:8244:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2119*/ meltfptr[2118])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V2114*/ meltfptr[2113]); ((meltroutine_ptr_t)/*_._VALROUT___V2119*/ meltfptr[2118])->tabval[3] = (melt_ptr_t)(/*_._VALCLO___V2114*/ meltfptr[2113]); MELT_LOCATION("warmelt-macro.melt:8244:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V2119*/ meltfptr[2118]); /*putclosurout#126*/ melt_assertmsg("putclosrout#126 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V2120*/ meltfptr[2119])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#126 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2119*/ meltfptr[2118])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V2120*/ meltfptr[2119])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V2119*/ meltfptr[2118]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V2120*/ meltfptr[2119]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_2027__RETURN @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2121*/ meltfptr[2120])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_2027__RETURN @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2121*/ meltfptr[2120])))); ((meltobject_ptr_t)(/*_._VALDATA___V2121*/ meltfptr[2120]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2122*/ meltfptr[2121]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2121*/ meltfptr[2120]); melt_dbgtrace_written_object (/*_._VALDATA___V2121*/ meltfptr[2120], "new static instance"); MELT_LOCATION("warmelt-macro.melt:8267:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2123*/ meltfptr[2122])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2029__MEXPAND_FOREVER#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V2123*/ meltfptr[2122])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:8267:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2123*/ meltfptr[2122])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2029__MEXPAND_FOREVER#1", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V2123*/ meltfptr[2122])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:8267:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2123*/ meltfptr[2122])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2029__MEXPAND_FOREVER#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V2123*/ meltfptr[2122])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:8267:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2123*/ meltfptr[2122])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2029__MEXPAND_FOREVER#3", NULL != (/*_.FRESH_ENV__V38*/ meltfptr[37])); ((meltroutine_ptr_t)/*_._VALROUT___V2123*/ meltfptr[2122])->tabval[3] = (melt_ptr_t)(/*_.FRESH_ENV__V38*/ meltfptr[37]); MELT_LOCATION("warmelt-macro.melt:8267:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2123*/ meltfptr[2122])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2029__MEXPAND_FOREVER#4", NULL != (/*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V2123*/ meltfptr[2122])->tabval[4] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-macro.melt:8267:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2123*/ meltfptr[2122])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2029__MEXPAND_FOREVER#5", NULL != (/*_.CLASS_LABEL_BINDING__V92*/ meltfptr[91])); ((meltroutine_ptr_t)/*_._VALROUT___V2123*/ meltfptr[2122])->tabval[5] = (melt_ptr_t)(/*_.CLASS_LABEL_BINDING__V92*/ meltfptr[91]); MELT_LOCATION("warmelt-macro.melt:8267:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2123*/ meltfptr[2122])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2029__MEXPAND_FOREVER#6", NULL != (/*_.PUT_ENV__V32*/ meltfptr[31])); ((meltroutine_ptr_t)/*_._VALROUT___V2123*/ meltfptr[2122])->tabval[6] = (melt_ptr_t)(/*_.PUT_ENV__V32*/ meltfptr[31]); MELT_LOCATION("warmelt-macro.melt:8267:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2123*/ meltfptr[2122])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1593*/ meltfptr[1592]); ((meltroutine_ptr_t)/*_._VALROUT___V2123*/ meltfptr[2122])->tabval[7] = (melt_ptr_t)(/*_._VALCLO___V1593*/ meltfptr[1592]); MELT_LOCATION("warmelt-macro.melt:8267:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2123*/ meltfptr[2122])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1261*/ meltfptr[1260]); ((meltroutine_ptr_t)/*_._VALROUT___V2123*/ meltfptr[2122])->tabval[8] = (melt_ptr_t)(/*_._VALDATA___V1261*/ meltfptr[1260]); MELT_LOCATION("warmelt-macro.melt:8267:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V2123*/ meltfptr[2122]); /*putclosurout#127*/ melt_assertmsg("putclosrout#127 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V2124*/ meltfptr[2123])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#127 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2123*/ meltfptr[2122])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V2124*/ meltfptr[2123])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V2123*/ meltfptr[2122]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V2124*/ meltfptr[2123]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_2031__CLASS_LABEL_BINDING @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2125*/ meltfptr[2124])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_2031__CLASS_LABEL_BINDING @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2125*/ meltfptr[2124])))); ((meltobject_ptr_t)(/*_._VALDATA___V2125*/ meltfptr[2124]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2126*/ meltfptr[2125]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2125*/ meltfptr[2124]); melt_dbgtrace_written_object (/*_._VALDATA___V2125*/ meltfptr[2124], "new static instance"); MELT_LOCATION("warmelt-macro.melt:8307:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2127*/ meltfptr[2126])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2033__MEXPAND_EXIT#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V2127*/ meltfptr[2126])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:8307:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2127*/ meltfptr[2126])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2033__MEXPAND_EXIT#1", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V2127*/ meltfptr[2126])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:8307:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2127*/ meltfptr[2126])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2033__MEXPAND_EXIT#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V2127*/ meltfptr[2126])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:8307:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2127*/ meltfptr[2126])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2033__MEXPAND_EXIT#3", NULL != (/*_.FRESH_ENV__V38*/ meltfptr[37])); ((meltroutine_ptr_t)/*_._VALROUT___V2127*/ meltfptr[2126])->tabval[3] = (melt_ptr_t)(/*_.FRESH_ENV__V38*/ meltfptr[37]); MELT_LOCATION("warmelt-macro.melt:8307:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2127*/ meltfptr[2126])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2033__MEXPAND_EXIT#4", NULL != (/*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V2127*/ meltfptr[2126])->tabval[4] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-macro.melt:8307:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2127*/ meltfptr[2126])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2033__MEXPAND_EXIT#5", NULL != (/*_.FIND_ENV__V31*/ meltfptr[30])); ((meltroutine_ptr_t)/*_._VALROUT___V2127*/ meltfptr[2126])->tabval[5] = (melt_ptr_t)(/*_.FIND_ENV__V31*/ meltfptr[30]); MELT_LOCATION("warmelt-macro.melt:8307:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2127*/ meltfptr[2126])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2033__MEXPAND_EXIT#6", NULL != (/*_.CLASS_LABEL_BINDING__V92*/ meltfptr[91])); ((meltroutine_ptr_t)/*_._VALROUT___V2127*/ meltfptr[2126])->tabval[6] = (melt_ptr_t)(/*_.CLASS_LABEL_BINDING__V92*/ meltfptr[91]); MELT_LOCATION("warmelt-macro.melt:8307:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2127*/ meltfptr[2126])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V306*/ meltfptr[305]); ((meltroutine_ptr_t)/*_._VALROUT___V2127*/ meltfptr[2126])->tabval[7] = (melt_ptr_t)(/*_._VALCLO___V306*/ meltfptr[305]); MELT_LOCATION("warmelt-macro.melt:8307:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2127*/ meltfptr[2126])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1593*/ meltfptr[1592]); ((meltroutine_ptr_t)/*_._VALROUT___V2127*/ meltfptr[2126])->tabval[8] = (melt_ptr_t)(/*_._VALCLO___V1593*/ meltfptr[1592]); MELT_LOCATION("warmelt-macro.melt:8307:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2127*/ meltfptr[2126])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1277*/ meltfptr[1276]); ((meltroutine_ptr_t)/*_._VALROUT___V2127*/ meltfptr[2126])->tabval[9] = (melt_ptr_t)(/*_._VALDATA___V1277*/ meltfptr[1276]); MELT_LOCATION("warmelt-macro.melt:8307:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V2127*/ meltfptr[2126]); /*putclosurout#128*/ melt_assertmsg("putclosrout#128 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V2128*/ meltfptr[2127])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#128 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2127*/ meltfptr[2126])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V2128*/ meltfptr[2127])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V2127*/ meltfptr[2126]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V2128*/ meltfptr[2127]); MELT_LOCATION("warmelt-macro.melt:8346:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2129*/ meltfptr[2128])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2035__MEXPAND_AGAIN#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V2129*/ meltfptr[2128])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:8346:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2129*/ meltfptr[2128])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2035__MEXPAND_AGAIN#1", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V2129*/ meltfptr[2128])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:8346:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2129*/ meltfptr[2128])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2035__MEXPAND_AGAIN#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V2129*/ meltfptr[2128])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:8346:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2129*/ meltfptr[2128])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2035__MEXPAND_AGAIN#3", NULL != (/*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V2129*/ meltfptr[2128])->tabval[3] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-macro.melt:8346:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2129*/ meltfptr[2128])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2035__MEXPAND_AGAIN#4", NULL != (/*_.FIND_ENV__V31*/ meltfptr[30])); ((meltroutine_ptr_t)/*_._VALROUT___V2129*/ meltfptr[2128])->tabval[4] = (melt_ptr_t)(/*_.FIND_ENV__V31*/ meltfptr[30]); MELT_LOCATION("warmelt-macro.melt:8346:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2129*/ meltfptr[2128])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2035__MEXPAND_AGAIN#5", NULL != (/*_.CLASS_LABEL_BINDING__V92*/ meltfptr[91])); ((meltroutine_ptr_t)/*_._VALROUT___V2129*/ meltfptr[2128])->tabval[5] = (melt_ptr_t)(/*_.CLASS_LABEL_BINDING__V92*/ meltfptr[91]); MELT_LOCATION("warmelt-macro.melt:8346:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2129*/ meltfptr[2128])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V306*/ meltfptr[305]); ((meltroutine_ptr_t)/*_._VALROUT___V2129*/ meltfptr[2128])->tabval[6] = (melt_ptr_t)(/*_._VALCLO___V306*/ meltfptr[305]); MELT_LOCATION("warmelt-macro.melt:8346:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2129*/ meltfptr[2128])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1271*/ meltfptr[1270]); ((meltroutine_ptr_t)/*_._VALROUT___V2129*/ meltfptr[2128])->tabval[7] = (melt_ptr_t)(/*_._VALDATA___V1271*/ meltfptr[1270]); MELT_LOCATION("warmelt-macro.melt:8346:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V2129*/ meltfptr[2128]); /*putclosurout#129*/ melt_assertmsg("putclosrout#129 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V2130*/ meltfptr[2129])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#129 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2129*/ meltfptr[2128])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V2130*/ meltfptr[2129])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V2129*/ meltfptr[2128]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V2130*/ meltfptr[2129]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_2037__AGAIN @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2131*/ meltfptr[2130])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_2037__AGAIN @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2131*/ meltfptr[2130])))); ((meltobject_ptr_t)(/*_._VALDATA___V2131*/ meltfptr[2130]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2132*/ meltfptr[2131]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2131*/ meltfptr[2130]); melt_dbgtrace_written_object (/*_._VALDATA___V2131*/ meltfptr[2130], "new static instance"); MELT_LOCATION("warmelt-macro.melt:8387:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2133*/ meltfptr[2132])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2039__MEXPAND_COMPILE_WARNING#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V2133*/ meltfptr[2132])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:8387:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2133*/ meltfptr[2132])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2039__MEXPAND_COMPILE_WARNING#1", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V2133*/ meltfptr[2132])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:8387:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2133*/ meltfptr[2132])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2039__MEXPAND_COMPILE_WARNING#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V2133*/ meltfptr[2132])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:8387:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2133*/ meltfptr[2132])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1642*/ meltfptr[1641]); ((meltroutine_ptr_t)/*_._VALROUT___V2133*/ meltfptr[2132])->tabval[3] = (melt_ptr_t)(/*_._VALCLO___V1642*/ meltfptr[1641]); MELT_LOCATION("warmelt-macro.melt:8387:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2133*/ meltfptr[2132])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V306*/ meltfptr[305]); ((meltroutine_ptr_t)/*_._VALROUT___V2133*/ meltfptr[2132])->tabval[4] = (melt_ptr_t)(/*_._VALCLO___V306*/ meltfptr[305]); MELT_LOCATION("warmelt-macro.melt:8387:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2133*/ meltfptr[2132])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1301*/ meltfptr[1300]); ((meltroutine_ptr_t)/*_._VALROUT___V2133*/ meltfptr[2132])->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V1301*/ meltfptr[1300]); MELT_LOCATION("warmelt-macro.melt:8387:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V2133*/ meltfptr[2132]); /*putclosurout#130*/ melt_assertmsg("putclosrout#130 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V2134*/ meltfptr[2133])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#130 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2133*/ meltfptr[2132])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V2134*/ meltfptr[2133])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V2133*/ meltfptr[2132]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V2134*/ meltfptr[2133]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_2041__COMPILE_WARNING @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2135*/ meltfptr[2134])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_2041__COMPILE_WARNING @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2135*/ meltfptr[2134])))); ((meltobject_ptr_t)(/*_._VALDATA___V2135*/ meltfptr[2134]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2136*/ meltfptr[2135]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2135*/ meltfptr[2134]); melt_dbgtrace_written_object (/*_._VALDATA___V2135*/ meltfptr[2134], "new static instance"); MELT_LOCATION("warmelt-macro.melt:8426:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2137*/ meltfptr[2136])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2043__MEXPAND_COMPILE_ERROR#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V2137*/ meltfptr[2136])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:8426:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2137*/ meltfptr[2136])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2043__MEXPAND_COMPILE_ERROR#1", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V2137*/ meltfptr[2136])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:8426:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2137*/ meltfptr[2136])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2043__MEXPAND_COMPILE_ERROR#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V2137*/ meltfptr[2136])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:8426:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2137*/ meltfptr[2136])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1642*/ meltfptr[1641]); ((meltroutine_ptr_t)/*_._VALROUT___V2137*/ meltfptr[2136])->tabval[3] = (melt_ptr_t)(/*_._VALCLO___V1642*/ meltfptr[1641]); MELT_LOCATION("warmelt-macro.melt:8426:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2137*/ meltfptr[2136])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V306*/ meltfptr[305]); ((meltroutine_ptr_t)/*_._VALROUT___V2137*/ meltfptr[2136])->tabval[4] = (melt_ptr_t)(/*_._VALCLO___V306*/ meltfptr[305]); MELT_LOCATION("warmelt-macro.melt:8426:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2137*/ meltfptr[2136])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1309*/ meltfptr[1308]); ((meltroutine_ptr_t)/*_._VALROUT___V2137*/ meltfptr[2136])->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V1309*/ meltfptr[1308]); MELT_LOCATION("warmelt-macro.melt:8426:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V2137*/ meltfptr[2136]); /*putclosurout#131*/ melt_assertmsg("putclosrout#131 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V2138*/ meltfptr[2137])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#131 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2137*/ meltfptr[2136])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V2138*/ meltfptr[2137])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V2137*/ meltfptr[2136]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V2138*/ meltfptr[2137]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_2045__COMPILE_ERROR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2139*/ meltfptr[2138])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_2045__COMPILE_ERROR @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2139*/ meltfptr[2138])))); ((meltobject_ptr_t)(/*_._VALDATA___V2139*/ meltfptr[2138]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2140*/ meltfptr[2139]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2139*/ meltfptr[2138]); melt_dbgtrace_written_object (/*_._VALDATA___V2139*/ meltfptr[2138], "new static instance"); MELT_LOCATION("warmelt-macro.melt:8470:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2141*/ meltfptr[2140])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2047__MEXPAND_ASSERT_MSG#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V2141*/ meltfptr[2140])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:8470:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2141*/ meltfptr[2140])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2047__MEXPAND_ASSERT_MSG#1", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V2141*/ meltfptr[2140])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:8470:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2141*/ meltfptr[2140])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2047__MEXPAND_ASSERT_MSG#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V2141*/ meltfptr[2140])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:8470:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2141*/ meltfptr[2140])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2047__MEXPAND_ASSERT_MSG#3", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V2141*/ meltfptr[2140])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:8470:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2141*/ meltfptr[2140])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1642*/ meltfptr[1641]); ((meltroutine_ptr_t)/*_._VALROUT___V2141*/ meltfptr[2140])->tabval[4] = (melt_ptr_t)(/*_._VALCLO___V1642*/ meltfptr[1641]); MELT_LOCATION("warmelt-macro.melt:8470:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2141*/ meltfptr[2140])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2047__MEXPAND_ASSERT_MSG#5", NULL != (/*_.FIND_ENV__V31*/ meltfptr[30])); ((meltroutine_ptr_t)/*_._VALROUT___V2141*/ meltfptr[2140])->tabval[5] = (melt_ptr_t)(/*_.FIND_ENV__V31*/ meltfptr[30]); MELT_LOCATION("warmelt-macro.melt:8470:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2141*/ meltfptr[2140])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2047__MEXPAND_ASSERT_MSG#6", NULL != (/*_._VALDATA___V273*/ meltfptr[272])); ((meltroutine_ptr_t)/*_._VALROUT___V2141*/ meltfptr[2140])->tabval[6] = (melt_ptr_t)(/*_._VALDATA___V273*/ meltfptr[272]); MELT_LOCATION("warmelt-macro.melt:8470:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2141*/ meltfptr[2140])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1591*/ meltfptr[1590]); ((meltroutine_ptr_t)/*_._VALROUT___V2141*/ meltfptr[2140])->tabval[7] = (melt_ptr_t)(/*_._VALCLO___V1591*/ meltfptr[1590]); MELT_LOCATION("warmelt-macro.melt:8470:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2141*/ meltfptr[2140])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2047__MEXPAND_ASSERT_MSG#8", NULL != (/*_.FIND_ENV_DEBUG__V93*/ meltfptr[92])); ((meltroutine_ptr_t)/*_._VALROUT___V2141*/ meltfptr[2140])->tabval[8] = (melt_ptr_t)(/*_.FIND_ENV_DEBUG__V93*/ meltfptr[92]); MELT_LOCATION("warmelt-macro.melt:8470:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2141*/ meltfptr[2140])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2047__MEXPAND_ASSERT_MSG#9", NULL != (/*_._VALDATA___V273*/ meltfptr[272])); ((meltroutine_ptr_t)/*_._VALROUT___V2141*/ meltfptr[2140])->tabval[9] = (melt_ptr_t)(/*_._VALDATA___V273*/ meltfptr[272]); MELT_LOCATION("warmelt-macro.melt:8470:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2141*/ meltfptr[2140])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2047__MEXPAND_ASSERT_MSG#10", NULL != (/*_._VALDATA___V273*/ meltfptr[272])); ((meltroutine_ptr_t)/*_._VALROUT___V2141*/ meltfptr[2140])->tabval[10] = (melt_ptr_t)(/*_._VALDATA___V273*/ meltfptr[272]); MELT_LOCATION("warmelt-macro.melt:8470:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2141*/ meltfptr[2140])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2047__MEXPAND_ASSERT_MSG#11", NULL != (/*_.CLASS_FUNCTION_BINDING__V67*/ meltfptr[66])); ((meltroutine_ptr_t)/*_._VALROUT___V2141*/ meltfptr[2140])->tabval[11] = (melt_ptr_t)(/*_.CLASS_FUNCTION_BINDING__V67*/ meltfptr[66]); #undef meltfram__ } /*end of meltmod__WARMELTmiMACRO__initialmeltchunk_47*/ void meltmod__WARMELTmiMACRO__initialmeltchunk_48 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; MELT_LOCATION("warmelt-macro.melt:8470:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2141*/ meltfptr[2140])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2047__MEXPAND_ASSERT_MSG#12", NULL != (/*_.CLASS_VALUE_BINDING__V51*/ meltfptr[50])); ((meltroutine_ptr_t)/*_._VALROUT___V2141*/ meltfptr[2140])->tabval[12] = (melt_ptr_t)(/*_.CLASS_VALUE_BINDING__V51*/ meltfptr[50]); MELT_LOCATION("warmelt-macro.melt:8470:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2141*/ meltfptr[2140])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V373*/ meltfptr[372]); ((meltroutine_ptr_t)/*_._VALROUT___V2141*/ meltfptr[2140])->tabval[13] = (melt_ptr_t)(/*_._VALDATA___V373*/ meltfptr[372]); MELT_LOCATION("warmelt-macro.melt:8470:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2141*/ meltfptr[2140])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2047__MEXPAND_ASSERT_MSG#14", NULL != (/*_._VALDATA___V273*/ meltfptr[272])); ((meltroutine_ptr_t)/*_._VALROUT___V2141*/ meltfptr[2140])->tabval[14] = (melt_ptr_t)(/*_._VALDATA___V273*/ meltfptr[272]); MELT_LOCATION("warmelt-macro.melt:8470:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2141*/ meltfptr[2140])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2047__MEXPAND_ASSERT_MSG#15", NULL != (/*_.LIST_TO_MULTIPLE__V12*/ meltfptr[11])); ((meltroutine_ptr_t)/*_._VALROUT___V2141*/ meltfptr[2140])->tabval[15] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V12*/ meltfptr[11]); MELT_LOCATION("warmelt-macro.melt:8470:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2141*/ meltfptr[2140])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2047__MEXPAND_ASSERT_MSG#16", NULL != (/*_.LIST_APPEND2LIST__V33*/ meltfptr[32])); ((meltroutine_ptr_t)/*_._VALROUT___V2141*/ meltfptr[2140])->tabval[16] = (melt_ptr_t)(/*_.LIST_APPEND2LIST__V33*/ meltfptr[32]); MELT_LOCATION("warmelt-macro.melt:8470:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2141*/ meltfptr[2140])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2047__MEXPAND_ASSERT_MSG#17", NULL != (/*_.DISCR_INTEGER__V58*/ meltfptr[57])); ((meltroutine_ptr_t)/*_._VALROUT___V2141*/ meltfptr[2140])->tabval[17] = (melt_ptr_t)(/*_.DISCR_INTEGER__V58*/ meltfptr[57]); MELT_LOCATION("warmelt-macro.melt:8470:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2141*/ meltfptr[2140])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1045*/ meltfptr[1044]); ((meltroutine_ptr_t)/*_._VALROUT___V2141*/ meltfptr[2140])->tabval[18] = (melt_ptr_t)(/*_._VALDATA___V1045*/ meltfptr[1044]); MELT_LOCATION("warmelt-macro.melt:8470:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2141*/ meltfptr[2140])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1065*/ meltfptr[1064]); ((meltroutine_ptr_t)/*_._VALROUT___V2141*/ meltfptr[2140])->tabval[19] = (melt_ptr_t)(/*_._VALDATA___V1065*/ meltfptr[1064]); MELT_LOCATION("warmelt-macro.melt:8470:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2141*/ meltfptr[2140])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2047__MEXPAND_ASSERT_MSG#20", NULL != (/*_._VALSTR___V2142*/ meltfptr[2141])); ((meltroutine_ptr_t)/*_._VALROUT___V2141*/ meltfptr[2140])->tabval[20] = (melt_ptr_t)(/*_._VALSTR___V2142*/ meltfptr[2141]); MELT_LOCATION("warmelt-macro.melt:8470:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V2141*/ meltfptr[2140]); /*putclosurout#132*/ melt_assertmsg("putclosrout#132 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V2143*/ meltfptr[2142])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#132 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2141*/ meltfptr[2140])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V2143*/ meltfptr[2142])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V2141*/ meltfptr[2140]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V2143*/ meltfptr[2142]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_2049__FIND_ENV_DEBUG @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2144*/ meltfptr[2143])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_2049__FIND_ENV_DEBUG @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2144*/ meltfptr[2143])))); ((meltobject_ptr_t)(/*_._VALDATA___V2144*/ meltfptr[2143]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2145*/ meltfptr[2144]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2144*/ meltfptr[2143]); melt_dbgtrace_written_object (/*_._VALDATA___V2144*/ meltfptr[2143], "new static instance"); MELT_LOCATION("warmelt-macro.melt:8564:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2146*/ meltfptr[2145])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2052__MEXPAND_THIS_LINE#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V2146*/ meltfptr[2145])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:8564:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2146*/ meltfptr[2145])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2052__MEXPAND_THIS_LINE#1", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V2146*/ meltfptr[2145])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:8564:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2146*/ meltfptr[2145])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2052__MEXPAND_THIS_LINE#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V2146*/ meltfptr[2145])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:8564:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2146*/ meltfptr[2145])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2052__MEXPAND_THIS_LINE#3", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V2146*/ meltfptr[2145])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:8564:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V2146*/ meltfptr[2145]); /*putclosurout#133*/ melt_assertmsg("putclosrout#133 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V2147*/ meltfptr[2146])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#133 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2146*/ meltfptr[2145])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V2147*/ meltfptr[2146])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V2146*/ meltfptr[2145]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V2147*/ meltfptr[2146]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_2054__THIS_LINE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2148*/ meltfptr[2147])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_2054__THIS_LINE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2148*/ meltfptr[2147])))); ((meltobject_ptr_t)(/*_._VALDATA___V2148*/ meltfptr[2147]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2149*/ meltfptr[2148]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2148*/ meltfptr[2147]); melt_dbgtrace_written_object (/*_._VALDATA___V2148*/ meltfptr[2147], "new static instance"); MELT_LOCATION("warmelt-macro.melt:8588:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2150*/ meltfptr[2149])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2056__MEXPAND_THIS_FILE#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V2150*/ meltfptr[2149])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:8588:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2150*/ meltfptr[2149])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2056__MEXPAND_THIS_FILE#1", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V2150*/ meltfptr[2149])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:8588:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2150*/ meltfptr[2149])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2056__MEXPAND_THIS_FILE#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V2150*/ meltfptr[2149])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:8588:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2150*/ meltfptr[2149])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2056__MEXPAND_THIS_FILE#3", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V2150*/ meltfptr[2149])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:8588:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V2150*/ meltfptr[2149]); /*putclosurout#134*/ melt_assertmsg("putclosrout#134 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V2151*/ meltfptr[2150])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#134 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2150*/ meltfptr[2149])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V2151*/ meltfptr[2150])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V2150*/ meltfptr[2149]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V2151*/ meltfptr[2150]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_2058__THIS_FILE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2152*/ meltfptr[2151])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_2058__THIS_FILE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2152*/ meltfptr[2151])))); ((meltobject_ptr_t)(/*_._VALDATA___V2152*/ meltfptr[2151]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2153*/ meltfptr[2152]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2152*/ meltfptr[2151]); melt_dbgtrace_written_object (/*_._VALDATA___V2152*/ meltfptr[2151], "new static instance"); MELT_LOCATION("warmelt-macro.melt:8614:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2154*/ meltfptr[2153])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2060__MEXPAND_DEBUG#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V2154*/ meltfptr[2153])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:8614:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2154*/ meltfptr[2153])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2060__MEXPAND_DEBUG#1", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V2154*/ meltfptr[2153])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:8614:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2154*/ meltfptr[2153])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2060__MEXPAND_DEBUG#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V2154*/ meltfptr[2153])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:8614:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2154*/ meltfptr[2153])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2060__MEXPAND_DEBUG#3", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V2154*/ meltfptr[2153])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:8614:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2154*/ meltfptr[2153])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2060__MEXPAND_DEBUG#4", NULL != (/*_.FIND_ENV__V31*/ meltfptr[30])); ((meltroutine_ptr_t)/*_._VALROUT___V2154*/ meltfptr[2153])->tabval[4] = (melt_ptr_t)(/*_.FIND_ENV__V31*/ meltfptr[30]); MELT_LOCATION("warmelt-macro.melt:8614:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2154*/ meltfptr[2153])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2060__MEXPAND_DEBUG#5", NULL != (/*_._VALDATA___V269*/ meltfptr[268])); ((meltroutine_ptr_t)/*_._VALROUT___V2154*/ meltfptr[2153])->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V269*/ meltfptr[268]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_2062__MELT_CALLCOUNT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2155*/ meltfptr[2154])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_2062__MELT_CALLCOUNT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2155*/ meltfptr[2154])))); ((meltobject_ptr_t)(/*_._VALDATA___V2155*/ meltfptr[2154]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2156*/ meltfptr[2155]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2155*/ meltfptr[2154]); melt_dbgtrace_written_object (/*_._VALDATA___V2155*/ meltfptr[2154], "new static instance"); MELT_LOCATION("warmelt-macro.melt:8614:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2154*/ meltfptr[2153])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2060__MEXPAND_DEBUG#6", NULL != (/*_._VALDATA___V2155*/ meltfptr[2154])); ((meltroutine_ptr_t)/*_._VALROUT___V2154*/ meltfptr[2153])->tabval[6] = (melt_ptr_t)(/*_._VALDATA___V2155*/ meltfptr[2154]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_2064__MELT_NEED_DBG @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2157*/ meltfptr[2156])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_2064__MELT_NEED_DBG @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2157*/ meltfptr[2156])))); ((meltobject_ptr_t)(/*_._VALDATA___V2157*/ meltfptr[2156]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2158*/ meltfptr[2157]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2157*/ meltfptr[2156]); melt_dbgtrace_written_object (/*_._VALDATA___V2157*/ meltfptr[2156], "new static instance"); MELT_LOCATION("warmelt-macro.melt:8614:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2154*/ meltfptr[2153])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2060__MEXPAND_DEBUG#7", NULL != (/*_._VALDATA___V2157*/ meltfptr[2156])); ((meltroutine_ptr_t)/*_._VALROUT___V2154*/ meltfptr[2153])->tabval[7] = (melt_ptr_t)(/*_._VALDATA___V2157*/ meltfptr[2156]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_2066__MELT_INCREMENT_DBGCOUNTER @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2159*/ meltfptr[2158])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_2066__MELT_INCREMENT_DBGCOUNTER @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2159*/ meltfptr[2158])))); ((meltobject_ptr_t)(/*_._VALDATA___V2159*/ meltfptr[2158]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2160*/ meltfptr[2159]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2159*/ meltfptr[2158]); melt_dbgtrace_written_object (/*_._VALDATA___V2159*/ meltfptr[2158], "new static instance"); MELT_LOCATION("warmelt-macro.melt:8614:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2154*/ meltfptr[2153])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2060__MEXPAND_DEBUG#8", NULL != (/*_._VALDATA___V2159*/ meltfptr[2158])); ((meltroutine_ptr_t)/*_._VALROUT___V2154*/ meltfptr[2153])->tabval[8] = (melt_ptr_t)(/*_._VALDATA___V2159*/ meltfptr[2158]); MELT_LOCATION("warmelt-macro.melt:8614:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2154*/ meltfptr[2153])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1591*/ meltfptr[1590]); ((meltroutine_ptr_t)/*_._VALROUT___V2154*/ meltfptr[2153])->tabval[9] = (melt_ptr_t)(/*_._VALCLO___V1591*/ meltfptr[1590]); MELT_LOCATION("warmelt-macro.melt:8614:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2154*/ meltfptr[2153])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1569*/ meltfptr[1568]); ((meltroutine_ptr_t)/*_._VALROUT___V2154*/ meltfptr[2153])->tabval[10] = (melt_ptr_t)(/*_._VALCLO___V1569*/ meltfptr[1568]); MELT_LOCATION("warmelt-macro.melt:8614:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2154*/ meltfptr[2153])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2060__MEXPAND_DEBUG#11", NULL != (/*_.STRING4OUT__V14*/ meltfptr[13])); ((meltroutine_ptr_t)/*_._VALROUT___V2154*/ meltfptr[2153])->tabval[11] = (melt_ptr_t)(/*_.STRING4OUT__V14*/ meltfptr[13]); MELT_LOCATION("warmelt-macro.melt:8614:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2154*/ meltfptr[2153])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2060__MEXPAND_DEBUG#12", NULL != (/*_.DISCR_STRING__V15*/ meltfptr[14])); ((meltroutine_ptr_t)/*_._VALROUT___V2154*/ meltfptr[2153])->tabval[12] = (melt_ptr_t)(/*_.DISCR_STRING__V15*/ meltfptr[14]); MELT_LOCATION("warmelt-macro.melt:8614:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2154*/ meltfptr[2153])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2060__MEXPAND_DEBUG#13", NULL != (/*_.CLASS_VALUE_BINDING__V51*/ meltfptr[50])); ((meltroutine_ptr_t)/*_._VALROUT___V2154*/ meltfptr[2153])->tabval[13] = (melt_ptr_t)(/*_.CLASS_VALUE_BINDING__V51*/ meltfptr[50]); MELT_LOCATION("warmelt-macro.melt:8614:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2154*/ meltfptr[2153])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2060__MEXPAND_DEBUG#14", NULL != (/*_.CLASS_FUNCTION_BINDING__V67*/ meltfptr[66])); ((meltroutine_ptr_t)/*_._VALROUT___V2154*/ meltfptr[2153])->tabval[14] = (melt_ptr_t)(/*_.CLASS_FUNCTION_BINDING__V67*/ meltfptr[66]); MELT_LOCATION("warmelt-macro.melt:8614:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2154*/ meltfptr[2153])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2060__MEXPAND_DEBUG#15", NULL != (/*_.CLASS_PRIMITIVE_BINDING__V43*/ meltfptr[42])); ((meltroutine_ptr_t)/*_._VALROUT___V2154*/ meltfptr[2153])->tabval[15] = (melt_ptr_t)(/*_.CLASS_PRIMITIVE_BINDING__V43*/ meltfptr[42]); MELT_LOCATION("warmelt-macro.melt:8614:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2154*/ meltfptr[2153])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V397*/ meltfptr[396]); ((meltroutine_ptr_t)/*_._VALROUT___V2154*/ meltfptr[2153])->tabval[16] = (melt_ptr_t)(/*_._VALDATA___V397*/ meltfptr[396]); MELT_LOCATION("warmelt-macro.melt:8614:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2154*/ meltfptr[2153])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2060__MEXPAND_DEBUG#17", NULL != (/*_.DISCR_CONSTANT_INTEGER__V27*/ meltfptr[26])); ((meltroutine_ptr_t)/*_._VALROUT___V2154*/ meltfptr[2153])->tabval[17] = (melt_ptr_t)(/*_.DISCR_CONSTANT_INTEGER__V27*/ meltfptr[26]); MELT_LOCATION("warmelt-macro.melt:8614:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2154*/ meltfptr[2153])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2060__MEXPAND_DEBUG#18", NULL != (/*_.LIST_APPEND2LIST__V33*/ meltfptr[32])); ((meltroutine_ptr_t)/*_._VALROUT___V2154*/ meltfptr[2153])->tabval[18] = (melt_ptr_t)(/*_.LIST_APPEND2LIST__V33*/ meltfptr[32]); MELT_LOCATION("warmelt-macro.melt:8614:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2154*/ meltfptr[2153])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2060__MEXPAND_DEBUG#19", NULL != (/*_._VALBXINT___V2161*/ meltfptr[2160])); ((meltroutine_ptr_t)/*_._VALROUT___V2154*/ meltfptr[2153])->tabval[19] = (melt_ptr_t)(/*_._VALBXINT___V2161*/ meltfptr[2160]); MELT_LOCATION("warmelt-macro.melt:8614:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2154*/ meltfptr[2153])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V373*/ meltfptr[372]); ((meltroutine_ptr_t)/*_._VALROUT___V2154*/ meltfptr[2153])->tabval[20] = (melt_ptr_t)(/*_._VALDATA___V373*/ meltfptr[372]); MELT_LOCATION("warmelt-macro.melt:8614:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2154*/ meltfptr[2153])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2060__MEXPAND_DEBUG#21", NULL != (/*_._VALDATA___V269*/ meltfptr[268])); ((meltroutine_ptr_t)/*_._VALROUT___V2154*/ meltfptr[2153])->tabval[21] = (melt_ptr_t)(/*_._VALDATA___V269*/ meltfptr[268]); MELT_LOCATION("warmelt-macro.melt:8614:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2154*/ meltfptr[2153])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2060__MEXPAND_DEBUG#22", NULL != (/*_.LIST_TO_MULTIPLE__V12*/ meltfptr[11])); ((meltroutine_ptr_t)/*_._VALROUT___V2154*/ meltfptr[2153])->tabval[22] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V12*/ meltfptr[11]); MELT_LOCATION("warmelt-macro.melt:8614:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2154*/ meltfptr[2153])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2060__MEXPAND_DEBUG#23", NULL != (/*_.DISCR_MULTIPLE__V13*/ meltfptr[12])); ((meltroutine_ptr_t)/*_._VALROUT___V2154*/ meltfptr[2153])->tabval[23] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V13*/ meltfptr[12]); MELT_LOCATION("warmelt-macro.melt:8614:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2154*/ meltfptr[2153])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1031*/ meltfptr[1030]); ((meltroutine_ptr_t)/*_._VALROUT___V2154*/ meltfptr[2153])->tabval[24] = (melt_ptr_t)(/*_._VALDATA___V1031*/ meltfptr[1030]); MELT_LOCATION("warmelt-macro.melt:8614:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2154*/ meltfptr[2153])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2060__MEXPAND_DEBUG#25", NULL != (/*_.VOID__V94*/ meltfptr[93])); ((meltroutine_ptr_t)/*_._VALROUT___V2154*/ meltfptr[2153])->tabval[25] = (melt_ptr_t)(/*_.VOID__V94*/ meltfptr[93]); MELT_LOCATION("warmelt-macro.melt:8614:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2154*/ meltfptr[2153])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V485*/ meltfptr[484]); ((meltroutine_ptr_t)/*_._VALROUT___V2154*/ meltfptr[2153])->tabval[26] = (melt_ptr_t)(/*_._VALDATA___V485*/ meltfptr[484]); MELT_LOCATION("warmelt-macro.melt:8614:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2154*/ meltfptr[2153])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1065*/ meltfptr[1064]); ((meltroutine_ptr_t)/*_._VALROUT___V2154*/ meltfptr[2153])->tabval[27] = (melt_ptr_t)(/*_._VALDATA___V1065*/ meltfptr[1064]); MELT_LOCATION("warmelt-macro.melt:8614:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2154*/ meltfptr[2153])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2060__MEXPAND_DEBUG#28", NULL != (/*_._VALSTR___V2162*/ meltfptr[2161])); ((meltroutine_ptr_t)/*_._VALROUT___V2154*/ meltfptr[2153])->tabval[28] = (melt_ptr_t)(/*_._VALSTR___V2162*/ meltfptr[2161]); MELT_LOCATION("warmelt-macro.melt:8614:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V2154*/ meltfptr[2153]); /*putclosurout#135*/ melt_assertmsg("putclosrout#135 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V2163*/ meltfptr[2162])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#135 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2154*/ meltfptr[2153])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V2163*/ meltfptr[2162])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V2154*/ meltfptr[2153]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V2163*/ meltfptr[2162]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_2070__DEBUG @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2164*/ meltfptr[2163])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_2070__DEBUG @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2164*/ meltfptr[2163])))); ((meltobject_ptr_t)(/*_._VALDATA___V2164*/ meltfptr[2163]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2165*/ meltfptr[2164]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2164*/ meltfptr[2163]); melt_dbgtrace_written_object (/*_._VALDATA___V2164*/ meltfptr[2163], "new static instance"); MELT_LOCATION("warmelt-macro.melt:8754:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2166*/ meltfptr[2165])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2072__MEXPAND_EXPORT_VALUES#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V2166*/ meltfptr[2165])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:8754:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2166*/ meltfptr[2165])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2072__MEXPAND_EXPORT_VALUES#1", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V2166*/ meltfptr[2165])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:8754:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2166*/ meltfptr[2165])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2072__MEXPAND_EXPORT_VALUES#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V2166*/ meltfptr[2165])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:8754:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2166*/ meltfptr[2165])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2072__MEXPAND_EXPORT_VALUES#3", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V2166*/ meltfptr[2165])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:8754:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2166*/ meltfptr[2165])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1593*/ meltfptr[1592]); ((meltroutine_ptr_t)/*_._VALROUT___V2166*/ meltfptr[2165])->tabval[4] = (melt_ptr_t)(/*_._VALCLO___V1593*/ meltfptr[1592]); MELT_LOCATION("warmelt-macro.melt:8754:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2166*/ meltfptr[2165])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V619*/ meltfptr[618]); ((meltroutine_ptr_t)/*_._VALROUT___V2166*/ meltfptr[2165])->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V619*/ meltfptr[618]); MELT_LOCATION("warmelt-macro.melt:8754:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2166*/ meltfptr[2165])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2072__MEXPAND_EXPORT_VALUES#6", NULL != (/*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V2166*/ meltfptr[2165])->tabval[6] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-macro.melt:8754:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2166*/ meltfptr[2165])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V306*/ meltfptr[305]); ((meltroutine_ptr_t)/*_._VALROUT___V2166*/ meltfptr[2165])->tabval[7] = (melt_ptr_t)(/*_._VALCLO___V306*/ meltfptr[305]); MELT_LOCATION("warmelt-macro.melt:8754:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V2166*/ meltfptr[2165]); /*putclosurout#136*/ melt_assertmsg("putclosrout#136 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V2167*/ meltfptr[2166])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#136 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2166*/ meltfptr[2165])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V2167*/ meltfptr[2166])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V2166*/ meltfptr[2165]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V2167*/ meltfptr[2166]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_2074__EXPORT_VALUES @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2168*/ meltfptr[2167])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_2074__EXPORT_VALUES @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2168*/ meltfptr[2167])))); ((meltobject_ptr_t)(/*_._VALDATA___V2168*/ meltfptr[2167]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2169*/ meltfptr[2168]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2168*/ meltfptr[2167]); melt_dbgtrace_written_object (/*_._VALDATA___V2168*/ meltfptr[2167], "new static instance"); MELT_LOCATION("warmelt-macro.melt:8789:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2170*/ meltfptr[2169])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2076__MEXPAND_EXPORT_MACRO#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V2170*/ meltfptr[2169])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:8789:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2170*/ meltfptr[2169])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2076__MEXPAND_EXPORT_MACRO#1", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V2170*/ meltfptr[2169])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:8789:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2170*/ meltfptr[2169])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2076__MEXPAND_EXPORT_MACRO#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V2170*/ meltfptr[2169])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:8789:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2170*/ meltfptr[2169])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2076__MEXPAND_EXPORT_MACRO#3", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V2170*/ meltfptr[2169])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:8789:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2170*/ meltfptr[2169])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2076__MEXPAND_EXPORT_MACRO#4", NULL != (/*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V2170*/ meltfptr[2169])->tabval[4] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-macro.melt:8789:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2170*/ meltfptr[2169])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2076__MEXPAND_EXPORT_MACRO#5", NULL != (/*_.CLASS_NAMED__V23*/ meltfptr[22])); ((meltroutine_ptr_t)/*_._VALROUT___V2170*/ meltfptr[2169])->tabval[5] = (melt_ptr_t)(/*_.CLASS_NAMED__V23*/ meltfptr[22]); MELT_LOCATION("warmelt-macro.melt:8789:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2170*/ meltfptr[2169])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2076__MEXPAND_EXPORT_MACRO#6", NULL != (/*_.FIND_ENV__V31*/ meltfptr[30])); ((meltroutine_ptr_t)/*_._VALROUT___V2170*/ meltfptr[2169])->tabval[6] = (melt_ptr_t)(/*_.FIND_ENV__V31*/ meltfptr[30]); MELT_LOCATION("warmelt-macro.melt:8789:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2170*/ meltfptr[2169])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V761*/ meltfptr[760]); ((meltroutine_ptr_t)/*_._VALROUT___V2170*/ meltfptr[2169])->tabval[7] = (melt_ptr_t)(/*_._VALDATA___V761*/ meltfptr[760]); MELT_LOCATION("warmelt-macro.melt:8789:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2170*/ meltfptr[2169])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V306*/ meltfptr[305]); ((meltroutine_ptr_t)/*_._VALROUT___V2170*/ meltfptr[2169])->tabval[8] = (melt_ptr_t)(/*_._VALCLO___V306*/ meltfptr[305]); MELT_LOCATION("warmelt-macro.melt:8789:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2170*/ meltfptr[2169])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2076__MEXPAND_EXPORT_MACRO#9", NULL != (/*_._VALDATA___V1763*/ meltfptr[1762])); ((meltroutine_ptr_t)/*_._VALROUT___V2170*/ meltfptr[2169])->tabval[9] = (melt_ptr_t)(/*_._VALDATA___V1763*/ meltfptr[1762]); MELT_LOCATION("warmelt-macro.melt:8789:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2170*/ meltfptr[2169])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V655*/ meltfptr[654]); ((meltroutine_ptr_t)/*_._VALROUT___V2170*/ meltfptr[2169])->tabval[10] = (melt_ptr_t)(/*_._VALDATA___V655*/ meltfptr[654]); MELT_LOCATION("warmelt-macro.melt:8789:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2170*/ meltfptr[2169])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V645*/ meltfptr[644]); ((meltroutine_ptr_t)/*_._VALROUT___V2170*/ meltfptr[2169])->tabval[11] = (melt_ptr_t)(/*_._VALDATA___V645*/ meltfptr[644]); MELT_LOCATION("warmelt-macro.melt:8789:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V2170*/ meltfptr[2169]); /*putclosurout#137*/ melt_assertmsg("putclosrout#137 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V2171*/ meltfptr[2170])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#137 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2170*/ meltfptr[2169])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V2171*/ meltfptr[2170])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V2170*/ meltfptr[2169]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V2171*/ meltfptr[2170]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_2078__EXPORT_MACRO @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2172*/ meltfptr[2171])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_2078__EXPORT_MACRO @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2172*/ meltfptr[2171])))); ((meltobject_ptr_t)(/*_._VALDATA___V2172*/ meltfptr[2171]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2173*/ meltfptr[2172]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2172*/ meltfptr[2171]); melt_dbgtrace_written_object (/*_._VALDATA___V2172*/ meltfptr[2171], "new static instance"); MELT_LOCATION("warmelt-macro.melt:8857:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2174*/ meltfptr[2173])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2080__MEXPAND_EXPORT_PATMACRO#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V2174*/ meltfptr[2173])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:8857:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2174*/ meltfptr[2173])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2080__MEXPAND_EXPORT_PATMACRO#1", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V2174*/ meltfptr[2173])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:8857:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2174*/ meltfptr[2173])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2080__MEXPAND_EXPORT_PATMACRO#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V2174*/ meltfptr[2173])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:8857:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2174*/ meltfptr[2173])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2080__MEXPAND_EXPORT_PATMACRO#3", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V2174*/ meltfptr[2173])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:8857:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2174*/ meltfptr[2173])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2080__MEXPAND_EXPORT_PATMACRO#4", NULL != (/*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V2174*/ meltfptr[2173])->tabval[4] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-macro.melt:8857:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2174*/ meltfptr[2173])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2080__MEXPAND_EXPORT_PATMACRO#5", NULL != (/*_._VALDATA___V1763*/ meltfptr[1762])); ((meltroutine_ptr_t)/*_._VALROUT___V2174*/ meltfptr[2173])->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V1763*/ meltfptr[1762]); MELT_LOCATION("warmelt-macro.melt:8857:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2174*/ meltfptr[2173])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V661*/ meltfptr[660]); ((meltroutine_ptr_t)/*_._VALROUT___V2174*/ meltfptr[2173])->tabval[6] = (melt_ptr_t)(/*_._VALDATA___V661*/ meltfptr[660]); MELT_LOCATION("warmelt-macro.melt:8857:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V2174*/ meltfptr[2173]); /*putclosurout#138*/ melt_assertmsg("putclosrout#138 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V2175*/ meltfptr[2174])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#138 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2174*/ meltfptr[2173])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V2175*/ meltfptr[2174])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V2174*/ meltfptr[2173]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V2175*/ meltfptr[2174]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_2082__EXPORT_PATMACRO @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2176*/ meltfptr[2175])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_2082__EXPORT_PATMACRO @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2176*/ meltfptr[2175])))); ((meltobject_ptr_t)(/*_._VALDATA___V2176*/ meltfptr[2175]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2177*/ meltfptr[2176]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2176*/ meltfptr[2175]); melt_dbgtrace_written_object (/*_._VALDATA___V2176*/ meltfptr[2175], "new static instance"); MELT_LOCATION("warmelt-macro.melt:8907:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2178*/ meltfptr[2177])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2084__MEXPAND_EXPORT_CLASS#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V2178*/ meltfptr[2177])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:8907:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2178*/ meltfptr[2177])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2084__MEXPAND_EXPORT_CLASS#1", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V2178*/ meltfptr[2177])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:8907:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2178*/ meltfptr[2177])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2084__MEXPAND_EXPORT_CLASS#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V2178*/ meltfptr[2177])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:8907:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2178*/ meltfptr[2177])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2084__MEXPAND_EXPORT_CLASS#3", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V2178*/ meltfptr[2177])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); #undef meltfram__ } /*end of meltmod__WARMELTmiMACRO__initialmeltchunk_48*/ void meltmod__WARMELTmiMACRO__initialmeltchunk_49 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; MELT_LOCATION("warmelt-macro.melt:8907:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2178*/ meltfptr[2177])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1642*/ meltfptr[1641]); ((meltroutine_ptr_t)/*_._VALROUT___V2178*/ meltfptr[2177])->tabval[4] = (melt_ptr_t)(/*_._VALCLO___V1642*/ meltfptr[1641]); MELT_LOCATION("warmelt-macro.melt:8907:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2178*/ meltfptr[2177])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1593*/ meltfptr[1592]); ((meltroutine_ptr_t)/*_._VALROUT___V2178*/ meltfptr[2177])->tabval[5] = (melt_ptr_t)(/*_._VALCLO___V1593*/ meltfptr[1592]); MELT_LOCATION("warmelt-macro.melt:8907:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2178*/ meltfptr[2177])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V625*/ meltfptr[624]); ((meltroutine_ptr_t)/*_._VALROUT___V2178*/ meltfptr[2177])->tabval[6] = (melt_ptr_t)(/*_._VALDATA___V625*/ meltfptr[624]); MELT_LOCATION("warmelt-macro.melt:8907:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2178*/ meltfptr[2177])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2084__MEXPAND_EXPORT_CLASS#7", NULL != (/*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V2178*/ meltfptr[2177])->tabval[7] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-macro.melt:8907:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2178*/ meltfptr[2177])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V306*/ meltfptr[305]); ((meltroutine_ptr_t)/*_._VALROUT___V2178*/ meltfptr[2177])->tabval[8] = (melt_ptr_t)(/*_._VALCLO___V306*/ meltfptr[305]); MELT_LOCATION("warmelt-macro.melt:8907:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V2178*/ meltfptr[2177]); /*putclosurout#139*/ melt_assertmsg("putclosrout#139 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V2179*/ meltfptr[2178])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#139 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2178*/ meltfptr[2177])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V2179*/ meltfptr[2178])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V2178*/ meltfptr[2177]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V2179*/ meltfptr[2178]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_2086__EXPORT_CLASS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2180*/ meltfptr[2179])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_2086__EXPORT_CLASS @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2180*/ meltfptr[2179])))); ((meltobject_ptr_t)(/*_._VALDATA___V2180*/ meltfptr[2179]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2181*/ meltfptr[2180]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2180*/ meltfptr[2179]); melt_dbgtrace_written_object (/*_._VALDATA___V2180*/ meltfptr[2179], "new static instance"); MELT_LOCATION("warmelt-macro.melt:8937:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2182*/ meltfptr[2181])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2088__MEXPAND_EXPORT_SYNONYM#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V2182*/ meltfptr[2181])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:8937:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2182*/ meltfptr[2181])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2088__MEXPAND_EXPORT_SYNONYM#1", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V2182*/ meltfptr[2181])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:8937:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2182*/ meltfptr[2181])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2088__MEXPAND_EXPORT_SYNONYM#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V2182*/ meltfptr[2181])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:8937:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2182*/ meltfptr[2181])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2088__MEXPAND_EXPORT_SYNONYM#3", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V2182*/ meltfptr[2181])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:8937:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2182*/ meltfptr[2181])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1642*/ meltfptr[1641]); ((meltroutine_ptr_t)/*_._VALROUT___V2182*/ meltfptr[2181])->tabval[4] = (melt_ptr_t)(/*_._VALCLO___V1642*/ meltfptr[1641]); MELT_LOCATION("warmelt-macro.melt:8937:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2182*/ meltfptr[2181])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2088__MEXPAND_EXPORT_SYNONYM#5", NULL != (/*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V2182*/ meltfptr[2181])->tabval[5] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-macro.melt:8937:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2182*/ meltfptr[2181])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2088__MEXPAND_EXPORT_SYNONYM#6", NULL != (/*_._VALDATA___V1763*/ meltfptr[1762])); ((meltroutine_ptr_t)/*_._VALROUT___V2182*/ meltfptr[2181])->tabval[6] = (melt_ptr_t)(/*_._VALDATA___V1763*/ meltfptr[1762]); MELT_LOCATION("warmelt-macro.melt:8937:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2182*/ meltfptr[2181])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V671*/ meltfptr[670]); ((meltroutine_ptr_t)/*_._VALROUT___V2182*/ meltfptr[2181])->tabval[7] = (melt_ptr_t)(/*_._VALDATA___V671*/ meltfptr[670]); MELT_LOCATION("warmelt-macro.melt:8937:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V2182*/ meltfptr[2181]); /*putclosurout#140*/ melt_assertmsg("putclosrout#140 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V2183*/ meltfptr[2182])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#140 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2182*/ meltfptr[2181])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V2183*/ meltfptr[2182])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V2182*/ meltfptr[2181]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V2183*/ meltfptr[2182]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_2090__EXPORT_SYNONYM @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2184*/ meltfptr[2183])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_2090__EXPORT_SYNONYM @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2184*/ meltfptr[2183])))); ((meltobject_ptr_t)(/*_._VALDATA___V2184*/ meltfptr[2183]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2185*/ meltfptr[2184]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2184*/ meltfptr[2183]); melt_dbgtrace_written_object (/*_._VALDATA___V2184*/ meltfptr[2183], "new static instance"); MELT_LOCATION("warmelt-macro.melt:8989:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2186*/ meltfptr[2185])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2092__MEXPAND_CURRENT_MODULE_ENVIRONMENT_REFERENCE#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V2186*/ meltfptr[2185])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:8989:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2186*/ meltfptr[2185])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2092__MEXPAND_CURRENT_MODULE_ENVIRONMENT_REFERENCE#1", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V2186*/ meltfptr[2185])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:8989:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2186*/ meltfptr[2185])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2092__MEXPAND_CURRENT_MODULE_ENVIRONMENT_REFERENCE#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V2186*/ meltfptr[2185])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:8989:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2186*/ meltfptr[2185])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2092__MEXPAND_CURRENT_MODULE_ENVIRONMENT_REFERENCE#3", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V2186*/ meltfptr[2185])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:8989:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2186*/ meltfptr[2185])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1315*/ meltfptr[1314]); ((meltroutine_ptr_t)/*_._VALROUT___V2186*/ meltfptr[2185])->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V1315*/ meltfptr[1314]); MELT_LOCATION("warmelt-macro.melt:8989:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V2186*/ meltfptr[2185]); /*putclosurout#141*/ melt_assertmsg("putclosrout#141 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V2187*/ meltfptr[2186])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#141 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2186*/ meltfptr[2185])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V2187*/ meltfptr[2186])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V2186*/ meltfptr[2185]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V2187*/ meltfptr[2186]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_2094__CURRENT_MODULE_ENVIRONMENT_REFERENCE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2188*/ meltfptr[2187])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_2094__CURRENT_MODULE_ENVIRONMENT_REFERENCE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2188*/ meltfptr[2187])))); ((meltobject_ptr_t)(/*_._VALDATA___V2188*/ meltfptr[2187]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2189*/ meltfptr[2188]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2188*/ meltfptr[2187]); melt_dbgtrace_written_object (/*_._VALDATA___V2188*/ meltfptr[2187], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_2096__CURRENT_MODULE_ENVIRONMENT_CONTAINER @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2190*/ meltfptr[2189])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_2096__CURRENT_MODULE_ENVIRONMENT_CONTAINER @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2190*/ meltfptr[2189])))); ((meltobject_ptr_t)(/*_._VALDATA___V2190*/ meltfptr[2189]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2191*/ meltfptr[2190]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2190*/ meltfptr[2189]); melt_dbgtrace_written_object (/*_._VALDATA___V2190*/ meltfptr[2189], "new static instance"); MELT_LOCATION("warmelt-macro.melt:9023:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2192*/ meltfptr[2191])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2098__MEXPAND_PARENT_MODULE_ENVIRONMENT#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V2192*/ meltfptr[2191])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:9023:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2192*/ meltfptr[2191])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2098__MEXPAND_PARENT_MODULE_ENVIRONMENT#1", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V2192*/ meltfptr[2191])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:9023:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2192*/ meltfptr[2191])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2098__MEXPAND_PARENT_MODULE_ENVIRONMENT#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V2192*/ meltfptr[2191])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:9023:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2192*/ meltfptr[2191])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2098__MEXPAND_PARENT_MODULE_ENVIRONMENT#3", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V2192*/ meltfptr[2191])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:9023:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2192*/ meltfptr[2191])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1642*/ meltfptr[1641]); ((meltroutine_ptr_t)/*_._VALROUT___V2192*/ meltfptr[2191])->tabval[4] = (melt_ptr_t)(/*_._VALCLO___V1642*/ meltfptr[1641]); MELT_LOCATION("warmelt-macro.melt:9023:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2192*/ meltfptr[2191])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1325*/ meltfptr[1324]); ((meltroutine_ptr_t)/*_._VALROUT___V2192*/ meltfptr[2191])->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V1325*/ meltfptr[1324]); MELT_LOCATION("warmelt-macro.melt:9023:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V2192*/ meltfptr[2191]); /*putclosurout#142*/ melt_assertmsg("putclosrout#142 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V2193*/ meltfptr[2192])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#142 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2192*/ meltfptr[2191])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V2193*/ meltfptr[2192])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V2192*/ meltfptr[2191]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V2193*/ meltfptr[2192]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_2100__PARENT_MODULE_ENVIRONMENT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2194*/ meltfptr[2193])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_2100__PARENT_MODULE_ENVIRONMENT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2194*/ meltfptr[2193])))); ((meltobject_ptr_t)(/*_._VALDATA___V2194*/ meltfptr[2193]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2195*/ meltfptr[2194]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2194*/ meltfptr[2193]); melt_dbgtrace_written_object (/*_._VALDATA___V2194*/ meltfptr[2193], "new static instance"); MELT_LOCATION("warmelt-macro.melt:9053:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2196*/ meltfptr[2195])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2102__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V2196*/ meltfptr[2195])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:9053:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2196*/ meltfptr[2195])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2102__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE#1", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V2196*/ meltfptr[2195])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:9053:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2196*/ meltfptr[2195])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2102__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V2196*/ meltfptr[2195])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:9053:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2196*/ meltfptr[2195])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2102__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE#3", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V2196*/ meltfptr[2195])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:9053:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2196*/ meltfptr[2195])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1331*/ meltfptr[1330]); ((meltroutine_ptr_t)/*_._VALROUT___V2196*/ meltfptr[2195])->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V1331*/ meltfptr[1330]); MELT_LOCATION("warmelt-macro.melt:9053:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V2196*/ meltfptr[2195]); /*putclosurout#143*/ melt_assertmsg("putclosrout#143 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V2197*/ meltfptr[2196])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#143 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2196*/ meltfptr[2195])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V2197*/ meltfptr[2196])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V2196*/ meltfptr[2195]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V2197*/ meltfptr[2196]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_2104__UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2198*/ meltfptr[2197])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_2104__UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2198*/ meltfptr[2197])))); ((meltobject_ptr_t)(/*_._VALDATA___V2198*/ meltfptr[2197]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2199*/ meltfptr[2198]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2198*/ meltfptr[2197]); melt_dbgtrace_written_object (/*_._VALDATA___V2198*/ meltfptr[2197], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_2106__UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2200*/ meltfptr[2199])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_2106__UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2200*/ meltfptr[2199])))); ((meltobject_ptr_t)(/*_._VALDATA___V2200*/ meltfptr[2199]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2201*/ meltfptr[2200]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2200*/ meltfptr[2199]); melt_dbgtrace_written_object (/*_._VALDATA___V2200*/ meltfptr[2199], "new static instance"); MELT_LOCATION("warmelt-macro.melt:9088:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2202*/ meltfptr[2201])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2108__MEXPAND_FETCH_PREDEFINED#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V2202*/ meltfptr[2201])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:9088:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2202*/ meltfptr[2201])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2108__MEXPAND_FETCH_PREDEFINED#1", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V2202*/ meltfptr[2201])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:9088:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2202*/ meltfptr[2201])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2108__MEXPAND_FETCH_PREDEFINED#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V2202*/ meltfptr[2201])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:9088:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2202*/ meltfptr[2201])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2108__MEXPAND_FETCH_PREDEFINED#3", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V2202*/ meltfptr[2201])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:9088:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2202*/ meltfptr[2201])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1642*/ meltfptr[1641]); ((meltroutine_ptr_t)/*_._VALROUT___V2202*/ meltfptr[2201])->tabval[4] = (melt_ptr_t)(/*_._VALCLO___V1642*/ meltfptr[1641]); MELT_LOCATION("warmelt-macro.melt:9088:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2202*/ meltfptr[2201])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2108__MEXPAND_FETCH_PREDEFINED#5", NULL != (/*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V2202*/ meltfptr[2201])->tabval[5] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-macro.melt:9088:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2202*/ meltfptr[2201])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1341*/ meltfptr[1340]); ((meltroutine_ptr_t)/*_._VALROUT___V2202*/ meltfptr[2201])->tabval[6] = (melt_ptr_t)(/*_._VALDATA___V1341*/ meltfptr[1340]); MELT_LOCATION("warmelt-macro.melt:9088:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V2202*/ meltfptr[2201]); /*putclosurout#144*/ melt_assertmsg("putclosrout#144 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V2203*/ meltfptr[2202])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#144 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2202*/ meltfptr[2201])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V2203*/ meltfptr[2202])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V2202*/ meltfptr[2201]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V2203*/ meltfptr[2202]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_2110__FETCH_PREDEFINED @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2204*/ meltfptr[2203])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_2110__FETCH_PREDEFINED @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2204*/ meltfptr[2203])))); ((meltobject_ptr_t)(/*_._VALDATA___V2204*/ meltfptr[2203]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2205*/ meltfptr[2204]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2204*/ meltfptr[2203]); melt_dbgtrace_written_object (/*_._VALDATA___V2204*/ meltfptr[2203], "new static instance"); MELT_LOCATION("warmelt-macro.melt:9117:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2206*/ meltfptr[2205])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2112__MEXPAND_STORE_PREDEFINED#0", NULL != (/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V2206*/ meltfptr[2205])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-macro.melt:9117:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2206*/ meltfptr[2205])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2112__MEXPAND_STORE_PREDEFINED#1", NULL != (/*_.CLASS_SEXPR__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V2206*/ meltfptr[2205])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-macro.melt:9117:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2206*/ meltfptr[2205])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2112__MEXPAND_STORE_PREDEFINED#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V2206*/ meltfptr[2205])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-macro.melt:9117:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2206*/ meltfptr[2205])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2112__MEXPAND_STORE_PREDEFINED#3", NULL != (/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V2206*/ meltfptr[2205])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-macro.melt:9117:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2206*/ meltfptr[2205])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1642*/ meltfptr[1641]); ((meltroutine_ptr_t)/*_._VALROUT___V2206*/ meltfptr[2205])->tabval[4] = (melt_ptr_t)(/*_._VALCLO___V1642*/ meltfptr[1641]); MELT_LOCATION("warmelt-macro.melt:9117:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2206*/ meltfptr[2205])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2112__MEXPAND_STORE_PREDEFINED#5", NULL != (/*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V2206*/ meltfptr[2205])->tabval[5] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-macro.melt:9117:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2206*/ meltfptr[2205])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V1351*/ meltfptr[1350]); ((meltroutine_ptr_t)/*_._VALROUT___V2206*/ meltfptr[2205])->tabval[6] = (melt_ptr_t)(/*_._VALDATA___V1351*/ meltfptr[1350]); MELT_LOCATION("warmelt-macro.melt:9117:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V2206*/ meltfptr[2205]); /*putclosurout#145*/ melt_assertmsg("putclosrout#145 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V2207*/ meltfptr[2206])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#145 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V2206*/ meltfptr[2205])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V2207*/ meltfptr[2206])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V2206*/ meltfptr[2205]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V2207*/ meltfptr[2206]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_2114__STORE_PREDEFINED @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2208*/ meltfptr[2207])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_2114__STORE_PREDEFINED @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2208*/ meltfptr[2207])))); ((meltobject_ptr_t)(/*_._VALDATA___V2208*/ meltfptr[2207]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2209*/ meltfptr[2208]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2208*/ meltfptr[2207]); melt_dbgtrace_written_object (/*_._VALDATA___V2208*/ meltfptr[2207], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_2116__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2210*/ meltfptr[2209])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_2116__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2210*/ meltfptr[2209])))); ((meltobject_ptr_t)(/*_._VALDATA___V2210*/ meltfptr[2209]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2211*/ meltfptr[2210]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2210*/ meltfptr[2209]); melt_dbgtrace_written_object (/*_._VALDATA___V2210*/ meltfptr[2209], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_2118__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2212*/ meltfptr[2211])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_2118__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2212*/ meltfptr[2211])))); ((meltobject_ptr_t)(/*_._VALDATA___V2212*/ meltfptr[2211]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2213*/ meltfptr[2212]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2212*/ meltfptr[2211]); melt_dbgtrace_written_object (/*_._VALDATA___V2212*/ meltfptr[2211], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_2120__EXPAND_APPLY @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2214*/ meltfptr[2213])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_2120__EXPAND_APPLY @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2214*/ meltfptr[2213])))); ((meltobject_ptr_t)(/*_._VALDATA___V2214*/ meltfptr[2213]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2215*/ meltfptr[2214]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2214*/ meltfptr[2213]); melt_dbgtrace_written_object (/*_._VALDATA___V2214*/ meltfptr[2213], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_2122__EXPAND_MSEND @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2216*/ meltfptr[2215])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_2122__EXPAND_MSEND @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2216*/ meltfptr[2215])))); ((meltobject_ptr_t)(/*_._VALDATA___V2216*/ meltfptr[2215]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2217*/ meltfptr[2216]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2216*/ meltfptr[2215]); melt_dbgtrace_written_object (/*_._VALDATA___V2216*/ meltfptr[2215], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_2124__EXPAND_PAIRLIST_AS_TUPLE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2218*/ meltfptr[2217])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_2124__EXPAND_PAIRLIST_AS_TUPLE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2218*/ meltfptr[2217])))); ((meltobject_ptr_t)(/*_._VALDATA___V2218*/ meltfptr[2217]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2219*/ meltfptr[2218]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2218*/ meltfptr[2217]); melt_dbgtrace_written_object (/*_._VALDATA___V2218*/ meltfptr[2217], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_2126__EXPAND_PAIRLIST_AS_LIST @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2220*/ meltfptr[2219])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_2126__EXPAND_PAIRLIST_AS_LIST @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2220*/ meltfptr[2219])))); ((meltobject_ptr_t)(/*_._VALDATA___V2220*/ meltfptr[2219]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2221*/ meltfptr[2220]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2220*/ meltfptr[2219]); melt_dbgtrace_written_object (/*_._VALDATA___V2220*/ meltfptr[2219], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_2128__EXPAND_RESTLIST_AS_LIST @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2222*/ meltfptr[2221])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_2128__EXPAND_RESTLIST_AS_LIST @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2222*/ meltfptr[2221])))); ((meltobject_ptr_t)(/*_._VALDATA___V2222*/ meltfptr[2221]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2223*/ meltfptr[2222]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2222*/ meltfptr[2221]); melt_dbgtrace_written_object (/*_._VALDATA___V2222*/ meltfptr[2221], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_2130__EXPAND_RESTLIST_AS_TUPLE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2224*/ meltfptr[2223])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_2130__EXPAND_RESTLIST_AS_TUPLE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2224*/ meltfptr[2223])))); ((meltobject_ptr_t)(/*_._VALDATA___V2224*/ meltfptr[2223]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2225*/ meltfptr[2224]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2224*/ meltfptr[2223]); melt_dbgtrace_written_object (/*_._VALDATA___V2224*/ meltfptr[2223], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_2132__EXPAND_TUPLE_SLICE_AS_TUPLE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2226*/ meltfptr[2225])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_2132__EXPAND_TUPLE_SLICE_AS_TUPLE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2226*/ meltfptr[2225])))); ((meltobject_ptr_t)(/*_._VALDATA___V2226*/ meltfptr[2225]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2227*/ meltfptr[2226]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2226*/ meltfptr[2225]); melt_dbgtrace_written_object (/*_._VALDATA___V2226*/ meltfptr[2225], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_2134__EXPAND_PRIMITIVE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2228*/ meltfptr[2227])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_2134__EXPAND_PRIMITIVE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2228*/ meltfptr[2227])))); ((meltobject_ptr_t)(/*_._VALDATA___V2228*/ meltfptr[2227]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2229*/ meltfptr[2228]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2228*/ meltfptr[2227]); melt_dbgtrace_written_object (/*_._VALDATA___V2228*/ meltfptr[2227], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_2136__HOOK_MACRO_INSTALLER @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2230*/ meltfptr[2229])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_2136__HOOK_MACRO_INSTALLER @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2230*/ meltfptr[2229])))); ((meltobject_ptr_t)(/*_._VALDATA___V2230*/ meltfptr[2229]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2231*/ meltfptr[2230]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2230*/ meltfptr[2229]); melt_dbgtrace_written_object (/*_._VALDATA___V2230*/ meltfptr[2229], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_2138__INSTALL_INITIAL_MACRO @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2232*/ meltfptr[2231])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_2138__INSTALL_INITIAL_MACRO @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2232*/ meltfptr[2231])))); ((meltobject_ptr_t)(/*_._VALDATA___V2232*/ meltfptr[2231]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2233*/ meltfptr[2232]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2232*/ meltfptr[2231]); melt_dbgtrace_written_object (/*_._VALDATA___V2232*/ meltfptr[2231], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_2140__INSTALL_INITIAL_PATMACRO @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2234*/ meltfptr[2233])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_2140__INSTALL_INITIAL_PATMACRO @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2234*/ meltfptr[2233])))); ((meltobject_ptr_t)(/*_._VALDATA___V2234*/ meltfptr[2233]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2235*/ meltfptr[2234]); #undef meltfram__ } /*end of meltmod__WARMELTmiMACRO__initialmeltchunk_49*/ void meltmod__WARMELTmiMACRO__initialmeltchunk_50 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2234*/ meltfptr[2233]); melt_dbgtrace_written_object (/*_._VALDATA___V2234*/ meltfptr[2233], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_2142__INSTALL_GLOBAL_DEFINITION_BINDING @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2236*/ meltfptr[2235])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_2142__INSTALL_GLOBAL_DEFINITION_BINDING @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2236*/ meltfptr[2235])))); ((meltobject_ptr_t)(/*_._VALDATA___V2236*/ meltfptr[2235]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2237*/ meltfptr[2236]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2236*/ meltfptr[2235]); melt_dbgtrace_written_object (/*_._VALDATA___V2236*/ meltfptr[2235], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_2144__LAMBDA_ARG_BINDINGS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2238*/ meltfptr[2237])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_2144__LAMBDA_ARG_BINDINGS @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2238*/ meltfptr[2237])))); ((meltobject_ptr_t)(/*_._VALDATA___V2238*/ meltfptr[2237]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2239*/ meltfptr[2238]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2238*/ meltfptr[2237]); melt_dbgtrace_written_object (/*_._VALDATA___V2238*/ meltfptr[2237], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_2146__MACROEXPAND_1 @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2240*/ meltfptr[2239])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_2146__MACROEXPAND_1 @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2240*/ meltfptr[2239])))); ((meltobject_ptr_t)(/*_._VALDATA___V2240*/ meltfptr[2239]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2241*/ meltfptr[2240]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2240*/ meltfptr[2239]); melt_dbgtrace_written_object (/*_._VALDATA___V2240*/ meltfptr[2239], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_2148__MACROEXPAND_TOPLEVEL_LIST @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2242*/ meltfptr[2241])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_2148__MACROEXPAND_TOPLEVEL_LIST @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2242*/ meltfptr[2241])))); ((meltobject_ptr_t)(/*_._VALDATA___V2242*/ meltfptr[2241]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2243*/ meltfptr[2242]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2242*/ meltfptr[2241]); melt_dbgtrace_written_object (/*_._VALDATA___V2242*/ meltfptr[2241], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_2150__MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2244*/ meltfptr[2243])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_2150__MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2244*/ meltfptr[2243])))); ((meltobject_ptr_t)(/*_._VALDATA___V2244*/ meltfptr[2243]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2245*/ meltfptr[2244]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2244*/ meltfptr[2243]); melt_dbgtrace_written_object (/*_._VALDATA___V2244*/ meltfptr[2243], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_2152__PATMACEXPAND_FOR_MATCHER @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2246*/ meltfptr[2245])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_2152__PATMACEXPAND_FOR_MATCHER @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2246*/ meltfptr[2245])))); ((meltobject_ptr_t)(/*_._VALDATA___V2246*/ meltfptr[2245]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2247*/ meltfptr[2246]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2246*/ meltfptr[2245]); melt_dbgtrace_written_object (/*_._VALDATA___V2246*/ meltfptr[2245], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_2154__PATTERNEXPAND_1 @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2248*/ meltfptr[2247])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_2154__PATTERNEXPAND_1 @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2248*/ meltfptr[2247])))); ((meltobject_ptr_t)(/*_._VALDATA___V2248*/ meltfptr[2247]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2249*/ meltfptr[2248]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2248*/ meltfptr[2247]); melt_dbgtrace_written_object (/*_._VALDATA___V2248*/ meltfptr[2247], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_2156__PATTERNEXPAND_EXPR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2250*/ meltfptr[2249])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_2156__PATTERNEXPAND_EXPR @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2250*/ meltfptr[2249])))); ((meltobject_ptr_t)(/*_._VALDATA___V2250*/ meltfptr[2249]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2251*/ meltfptr[2250]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2250*/ meltfptr[2249]); melt_dbgtrace_written_object (/*_._VALDATA___V2250*/ meltfptr[2249], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_2158__PATTERNEXPAND_PAIRLIST_AS_TUPLE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2252*/ meltfptr[2251])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_2158__PATTERNEXPAND_PAIRLIST_AS_TUPLE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2252*/ meltfptr[2251])))); ((meltobject_ptr_t)(/*_._VALDATA___V2252*/ meltfptr[2251]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2253*/ meltfptr[2252]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2252*/ meltfptr[2251]); melt_dbgtrace_written_object (/*_._VALDATA___V2252*/ meltfptr[2251], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_2160__PATTERN_WEIGHT_TUPLE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2254*/ meltfptr[2253])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_2160__PATTERN_WEIGHT_TUPLE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2254*/ meltfptr[2253])))); ((meltobject_ptr_t)(/*_._VALDATA___V2254*/ meltfptr[2253]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2255*/ meltfptr[2254]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2254*/ meltfptr[2253]); melt_dbgtrace_written_object (/*_._VALDATA___V2254*/ meltfptr[2253], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_2162__REGISTER_GENERATOR_DEVICE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2256*/ meltfptr[2255])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_2162__REGISTER_GENERATOR_DEVICE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2256*/ meltfptr[2255])))); ((meltobject_ptr_t)(/*_._VALDATA___V2256*/ meltfptr[2255]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2257*/ meltfptr[2256]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2256*/ meltfptr[2255]); melt_dbgtrace_written_object (/*_._VALDATA___V2256*/ meltfptr[2255], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_2164__S_EXPR_WEIGHT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2258*/ meltfptr[2257])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_2164__S_EXPR_WEIGHT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2258*/ meltfptr[2257])))); ((meltobject_ptr_t)(/*_._VALDATA___V2258*/ meltfptr[2257]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2259*/ meltfptr[2258]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2258*/ meltfptr[2257]); melt_dbgtrace_written_object (/*_._VALDATA___V2258*/ meltfptr[2257], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_2166__MEXPAND_REFERENCE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2260*/ meltfptr[2259])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_2166__MEXPAND_REFERENCE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2260*/ meltfptr[2259])))); ((meltobject_ptr_t)(/*_._VALDATA___V2260*/ meltfptr[2259]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2261*/ meltfptr[2260]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2260*/ meltfptr[2259]); melt_dbgtrace_written_object (/*_._VALDATA___V2260*/ meltfptr[2259], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_2168__PATEXPAND_REFERENCE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V2262*/ meltfptr[2261])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_2168__PATEXPAND_REFERENCE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V2262*/ meltfptr[2261])))); ((meltobject_ptr_t)(/*_._VALDATA___V2262*/ meltfptr[2261]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V2263*/ meltfptr[2262]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V2262*/ meltfptr[2261]); melt_dbgtrace_written_object (/*_._VALDATA___V2262*/ meltfptr[2261], "new static instance"); /**COMMENT: before toplevel body **/; MELT_LOCATION("warmelt-macro.melt:3:/ initchunk"); /*^block*/ /*anyblock*/ { /*^cond*/ /*cond*/ if ( /*quasi.cur.mod.env.ref cur.mod.env.cont : at very start*/ /* check quasi.cur.mod.env.ref 763234887 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) /*then*/ { /*^cond.then*/ /*_.OR___V2264*/ meltfptr[2263] = /*quasi.cur.mod.env.ref cur.mod.env.cont : at very start*/ /* check quasi.cur.mod.env.ref 763234887 */ (/*_._CONTENV___V2*/ meltfptr[1]) ;; } else { MELT_LOCATION("warmelt-macro.melt:3:/ cond.else"); /*^block*/ /*anyblock*/ { /*_.HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER__V2265*/ meltfptr[2264] = /*hookcall*/ melthook_HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER ((melt_ptr_t) /*_.HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER__V5*/ meltfptr[4], /*_._PREVENV___V4*/ meltfptr[3], "warmelt-macro") ;; /*^compute*/ /*_.OR___V2264*/ meltfptr[2263] = /*_.HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER__V2265*/ meltfptr[2264];; /*epilog*/ MELT_LOCATION("warmelt-macro.melt:3:/ clear"); /*clear*/ /*_.HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER__V2265*/ meltfptr[2264] = 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___V2264*/ meltfptr[2263] = 0 ; } MELT_LOCATION("warmelt-macro.melt:280:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V285*/ meltfptr[284], /*_._VALCLO___V268*/ meltfptr[267], /*quasi.cur.mod.env.ref norm.exp.val : DIAGNOSTIC_ARGS_MACRO*/ /* check quasi.cur.mod.env.ref 74136307 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:340:/ initchunk"); /*^block*/ /*anyblock*/ { /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V107*/ meltfptr[106], /*_._VALDATA___V111*/ meltfptr[110], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_DIAGNOSTIC_STATE*/ /* check quasi.cur.mod.env.ref 375642380 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V121*/ meltfptr[120], /*_._VALDATA___V114*/ meltfptr[113], /*quasi.cur.mod.env.ref norm.exp.val : DIAG_VECT*/ /* check quasi.cur.mod.env.ref 6456599 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V123*/ meltfptr[122], /*_._VALDATA___V116*/ meltfptr[115], /*quasi.cur.mod.env.ref norm.exp.val : DIAG_POSITION*/ /* check quasi.cur.mod.env.ref 283086168 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V125*/ meltfptr[124], /*_._VALDATA___V118*/ meltfptr[117], /*quasi.cur.mod.env.ref norm.exp.val : DIAG_STATE*/ /* check quasi.cur.mod.env.ref 383044242 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:341:/ initchunk"); /*^block*/ /*anyblock*/ { /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V293*/ meltfptr[292], /*_._VALCLO___V288*/ meltfptr[287], /*quasi.cur.mod.env.ref norm.exp.val : DIAGNOSTIC_EXPAND_MESSAGE*/ /* check quasi.cur.mod.env.ref 181129428 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V127*/ meltfptr[126], /*_._VALDATA___V131*/ meltfptr[130], /*quasi.cur.mod.env.ref norm.exp.val : DISCR_DIAGNOSTIC_CLOSURE*/ /* check quasi.cur.mod.env.ref 203611046 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V295*/ meltfptr[294], /*_._VALCLO___V104*/ meltfptr[103], /*quasi.cur.mod.env.ref norm.exp.val : REGISTER_DIAG_BASIC_BLOCK*/ /* check quasi.cur.mod.env.ref 154452616 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V297*/ meltfptr[296], /*_._VALCLO___V106*/ meltfptr[105], /*quasi.cur.mod.env.ref norm.exp.val : REGISTER_DIAG_EDGE*/ /* check quasi.cur.mod.env.ref 485604861 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V299*/ meltfptr[298], /*_._VALCLO___V98*/ meltfptr[97], /*quasi.cur.mod.env.ref norm.exp.val : REGISTER_DIAG_GIMPLE*/ /* check quasi.cur.mod.env.ref 714422439 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V301*/ meltfptr[300], /*_._VALCLO___V100*/ meltfptr[99], /*quasi.cur.mod.env.ref norm.exp.val : REGISTER_DIAG_GIMPLE_SEQ*/ /* check quasi.cur.mod.env.ref 662539067 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V303*/ meltfptr[302], /*_._VALCLO___V102*/ meltfptr[101], /*quasi.cur.mod.env.ref norm.exp.val : REGISTER_DIAG_TREE*/ /* check quasi.cur.mod.env.ref 405254520 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:443:/ initchunk"); /*^block*/ /*anyblock*/ { /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V313*/ meltfptr[312], /*_._VALCLO___V306*/ meltfptr[305], /*quasi.cur.mod.env.ref norm.exp.val : ERROR_AT*/ /* check quasi.cur.mod.env.ref 29511142 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V315*/ meltfptr[314], /*_._VALCLO___V308*/ meltfptr[307], /*quasi.cur.mod.env.ref norm.exp.val : FATAL_ERROR_AT*/ /* check quasi.cur.mod.env.ref 230614528 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V317*/ meltfptr[316], /*_._VALCLO___V310*/ meltfptr[309], /*quasi.cur.mod.env.ref norm.exp.val : WARNING_AT*/ /* check quasi.cur.mod.env.ref 908636656 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V319*/ meltfptr[318], /*_._VALCLO___V312*/ meltfptr[311], /*quasi.cur.mod.env.ref norm.exp.val : INFORM_AT*/ /* check quasi.cur.mod.env.ref 370403295 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:1249:/ initchunk"); /*^block*/ /*anyblock*/ { /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1305*/ meltfptr[1304], /*_._VALDATA___V1301*/ meltfptr[1300], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_COMPILEWARNING*/ /* check quasi.cur.mod.env.ref 72468816 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:1364:/ initchunk"); /*^block*/ /*anyblock*/ { /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1451*/ meltfptr[1450], /*_._VALDATA___V1442*/ meltfptr[1441], /*quasi.cur.mod.env.ref norm.exp.val : SPAT_VAR*/ /* check quasi.cur.mod.env.ref 181254556 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:3183:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1765*/ meltfptr[1764]; /*_.INSTALL_INITIAL_MACRO__V2266*/ meltfptr[2264] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1736*/ meltfptr[1735]), (melt_ptr_t)(/*_._VALDATA___V1766*/ meltfptr[1765]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2266*/ meltfptr[2264] = 0 ; } MELT_LOCATION("warmelt-macro.melt:3184:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V1766*/ meltfptr[1765], /*_._VALCLO___V1765*/ meltfptr[1764], /*quasi.cur.mod.env.ref norm.exp.val : DEFPRIMITIVE*/ /* check quasi.cur.mod.env.ref 75375885 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:3337:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1769*/ meltfptr[1768]; /*_.INSTALL_INITIAL_MACRO__V2267*/ meltfptr[2263] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1736*/ meltfptr[1735]), (melt_ptr_t)(/*_._VALDATA___V1770*/ meltfptr[1769]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2267*/ meltfptr[2263] = 0 ; } MELT_LOCATION("warmelt-macro.melt:3338:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V1770*/ meltfptr[1769], /*_._VALCLO___V1769*/ meltfptr[1768], /*quasi.cur.mod.env.ref norm.exp.val : DEFCITERATOR*/ /* check quasi.cur.mod.env.ref 616511753 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:3537:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1773*/ meltfptr[1772]; /*_.INSTALL_INITIAL_MACRO__V2268*/ meltfptr[2264] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1736*/ meltfptr[1735]), (melt_ptr_t)(/*_._VALDATA___V1774*/ meltfptr[1773]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2268*/ meltfptr[2264] = 0 ; } MELT_LOCATION("warmelt-macro.melt:3538:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V1774*/ meltfptr[1773], /*_._VALCLO___V1773*/ meltfptr[1772], /*quasi.cur.mod.env.ref norm.exp.val : DEFCMATCHER*/ /* check quasi.cur.mod.env.ref 645783414 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:3684:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1777*/ meltfptr[1776]; /*_.INSTALL_INITIAL_MACRO__V2269*/ meltfptr[2263] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1736*/ meltfptr[1735]), (melt_ptr_t)(/*_._VALDATA___V1778*/ meltfptr[1777]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2269*/ meltfptr[2263] = 0 ; } MELT_LOCATION("warmelt-macro.melt:3685:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V1778*/ meltfptr[1777], /*_._VALCLO___V1777*/ meltfptr[1776], /*quasi.cur.mod.env.ref norm.exp.val : DEFUNMATCHER*/ /* check quasi.cur.mod.env.ref 513431840 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:3759:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1783*/ meltfptr[1782]; /*_.INSTALL_INITIAL_MACRO__V2270*/ meltfptr[2264] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1736*/ meltfptr[1735]), (melt_ptr_t)(/*_._VALDATA___V1786*/ meltfptr[1785]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2270*/ meltfptr[2264] = 0 ; } MELT_LOCATION("warmelt-macro.melt:3760:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V1786*/ meltfptr[1785], /*_._VALCLO___V1783*/ meltfptr[1782], /*quasi.cur.mod.env.ref norm.exp.val : DEFUN*/ /* check quasi.cur.mod.env.ref 975439286 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:3959:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1792*/ meltfptr[1791]; /*_.INSTALL_INITIAL_MACRO__V2271*/ meltfptr[2263] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1736*/ meltfptr[1735]), (melt_ptr_t)(/*_._VALDATA___V1793*/ meltfptr[1792]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2271*/ meltfptr[2263] = 0 ; } MELT_LOCATION("warmelt-macro.melt:3960:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V1793*/ meltfptr[1792], /*_._VALCLO___V1792*/ meltfptr[1791], /*quasi.cur.mod.env.ref norm.exp.val : DEFMACRO*/ /* check quasi.cur.mod.env.ref 574641536 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:4013:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1807*/ meltfptr[1806]; /*_.INSTALL_INITIAL_MACRO__V2272*/ meltfptr[2264] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1736*/ meltfptr[1735]), (melt_ptr_t)(/*_._VALDATA___V1808*/ meltfptr[1807]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2272*/ meltfptr[2264] = 0 ; } MELT_LOCATION("warmelt-macro.melt:4014:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V1808*/ meltfptr[1807], /*_._VALCLO___V1807*/ meltfptr[1806], /*quasi.cur.mod.env.ref norm.exp.val : AT_MACRO_EXPANSION*/ /* check quasi.cur.mod.env.ref 840431729 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:4069:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1811*/ meltfptr[1810]; /*_.INSTALL_INITIAL_MACRO__V2273*/ meltfptr[2263] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1736*/ meltfptr[1735]), (melt_ptr_t)(/*_._VALDATA___V1814*/ meltfptr[1813]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2273*/ meltfptr[2263] = 0 ; } MELT_LOCATION("warmelt-macro.melt:4070:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V1814*/ meltfptr[1813], /*_._VALCLO___V1811*/ meltfptr[1810], /*quasi.cur.mod.env.ref norm.exp.val : DEFVAR*/ /* check quasi.cur.mod.env.ref 711083029 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:4220:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1821*/ meltfptr[1820]; /*_.INSTALL_INITIAL_MACRO__V2274*/ meltfptr[2264] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1736*/ meltfptr[1735]), (melt_ptr_t)(/*_._VALDATA___V1824*/ meltfptr[1823]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2274*/ meltfptr[2264] = 0 ; } MELT_LOCATION("warmelt-macro.melt:4221:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V1824*/ meltfptr[1823], /*_._VALCLO___V1821*/ meltfptr[1820], /*quasi.cur.mod.env.ref norm.exp.val : DEFHOOK*/ /* check quasi.cur.mod.env.ref 240334059 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:4362:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1827*/ meltfptr[1826]; /*_.INSTALL_INITIAL_MACRO__V2275*/ meltfptr[2263] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1736*/ meltfptr[1735]), (melt_ptr_t)(/*_._VALDATA___V1830*/ meltfptr[1829]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2275*/ meltfptr[2263] = 0 ; } MELT_LOCATION("warmelt-macro.melt:4363:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V1830*/ meltfptr[1829], /*_._VALCLO___V1827*/ meltfptr[1826], /*quasi.cur.mod.env.ref norm.exp.val : DEFINE*/ /* check quasi.cur.mod.env.ref 252748666 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:4622:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1843*/ meltfptr[1842]; /*_.INSTALL_INITIAL_MACRO__V2276*/ meltfptr[2264] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1736*/ meltfptr[1735]), (melt_ptr_t)(/*_._VALDATA___V1850*/ meltfptr[1849]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2276*/ meltfptr[2264] = 0 ; } MELT_LOCATION("warmelt-macro.melt:4623:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V1850*/ meltfptr[1849], /*_._VALCLO___V1843*/ meltfptr[1842], /*quasi.cur.mod.env.ref norm.exp.val : DEFCLASS*/ /* check quasi.cur.mod.env.ref 641367933 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:4837:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1860*/ meltfptr[1859]; /*_.INSTALL_INITIAL_MACRO__V2277*/ meltfptr[2263] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1736*/ meltfptr[1735]), (melt_ptr_t)(/*_._VALDATA___V1863*/ meltfptr[1862]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2277*/ meltfptr[2263] = 0 ; } MELT_LOCATION("warmelt-macro.melt:4838:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V1863*/ meltfptr[1862], /*_._VALCLO___V1860*/ meltfptr[1859], /*quasi.cur.mod.env.ref norm.exp.val : DEFINSTANCE*/ /* check quasi.cur.mod.env.ref 411011401 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:4984:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1868*/ meltfptr[1867]; /*_.INSTALL_INITIAL_MACRO__V2278*/ meltfptr[2264] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1736*/ meltfptr[1735]), (melt_ptr_t)(/*_._VALDATA___V1869*/ meltfptr[1868]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2278*/ meltfptr[2264] = 0 ; } MELT_LOCATION("warmelt-macro.melt:4985:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V1869*/ meltfptr[1868], /*_._VALCLO___V1868*/ meltfptr[1867], /*quasi.cur.mod.env.ref norm.exp.val : DEFSELECTOR*/ /* check quasi.cur.mod.env.ref 348308479 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:5097:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1874*/ meltfptr[1873]; /*_.INSTALL_INITIAL_MACRO__V2279*/ meltfptr[2263] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1736*/ meltfptr[1735]), (melt_ptr_t)(/*_._VALDATA___V1875*/ meltfptr[1874]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2279*/ meltfptr[2263] = 0 ; } MELT_LOCATION("warmelt-macro.melt:5098:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V1875*/ meltfptr[1874], /*_._VALCLO___V1874*/ meltfptr[1873], /*quasi.cur.mod.env.ref norm.exp.val : LOAD*/ /* check quasi.cur.mod.env.ref 858944216 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:5129:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1878*/ meltfptr[1877]; /*_.INSTALL_INITIAL_MACRO__V2280*/ meltfptr[2264] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1736*/ meltfptr[1735]), (melt_ptr_t)(/*_._VALDATA___V1879*/ meltfptr[1878]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2280*/ meltfptr[2264] = 0 ; } MELT_LOCATION("warmelt-macro.melt:5130:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V1879*/ meltfptr[1878], /*_._VALCLO___V1878*/ meltfptr[1877], /*quasi.cur.mod.env.ref norm.exp.val : SKIP_NIL*/ /* check quasi.cur.mod.env.ref 263369166 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:5260:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1886*/ meltfptr[1885]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1872*/ meltfptr[1871]; /*_.INSTALL_INITIAL_PATMACRO__V2281*/ meltfptr[2263] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1740*/ meltfptr[1739]), (melt_ptr_t)(/*_._VALDATA___V144*/ meltfptr[143]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_PATMACRO__V2281*/ meltfptr[2263] = 0 ; } MELT_LOCATION("warmelt-macro.melt:5261:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_PATMACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_PATMACRO_EXPORTER))), /*_._VALDATA___V144*/ meltfptr[143], /*_._VALCLO___V1872*/ meltfptr[1871], /*_._VALCLO___V1886*/ meltfptr[1885], /*quasi.cur.mod.env.ref norm.exp.pat : INSTANCE*/ /* check quasi.cur.mod.env.ref 795103172 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:5365:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1889*/ meltfptr[1888]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1891*/ meltfptr[1890]; /*_.INSTALL_INITIAL_PATMACRO__V2282*/ meltfptr[2264] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1740*/ meltfptr[1739]), (melt_ptr_t)(/*_._VALDATA___V1892*/ meltfptr[1891]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_PATMACRO__V2282*/ meltfptr[2264] = 0 ; } MELT_LOCATION("warmelt-macro.melt:5366:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_PATMACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_PATMACRO_EXPORTER))), /*_._VALDATA___V1892*/ meltfptr[1891], /*_._VALCLO___V1891*/ meltfptr[1890], /*_._VALCLO___V1889*/ meltfptr[1888], /*quasi.cur.mod.env.ref norm.exp.pat : OBJECT*/ /* check quasi.cur.mod.env.ref 516033638 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:5456:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1900*/ meltfptr[1899]; /*_.INSTALL_INITIAL_MACRO__V2283*/ meltfptr[2263] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1736*/ meltfptr[1735]), (melt_ptr_t)(/*_._VALDATA___V1901*/ meltfptr[1900]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2283*/ meltfptr[2263] = 0 ; } MELT_LOCATION("warmelt-macro.melt:5457:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V1901*/ meltfptr[1900], /*_._VALCLO___V1900*/ meltfptr[1899], /*quasi.cur.mod.env.ref norm.exp.val : CODE_CHUNK*/ /* check quasi.cur.mod.env.ref 247323674 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:5523:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1904*/ meltfptr[1903]; /*_.INSTALL_INITIAL_MACRO__V2284*/ meltfptr[2264] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1736*/ meltfptr[1735]), (melt_ptr_t)(/*_._VALDATA___V1905*/ meltfptr[1904]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2284*/ meltfptr[2264] = 0 ; } MELT_LOCATION("warmelt-macro.melt:5524:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V1905*/ meltfptr[1904], /*_._VALCLO___V1904*/ meltfptr[1903], /*quasi.cur.mod.env.ref norm.exp.val : EXPR_CHUNK*/ /* check quasi.cur.mod.env.ref 1051981955 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:5576:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1908*/ meltfptr[1907]; /*_.INSTALL_INITIAL_MACRO__V2285*/ meltfptr[2263] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1736*/ meltfptr[1735]), (melt_ptr_t)(/*_._VALDATA___V1909*/ meltfptr[1908]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2285*/ meltfptr[2263] = 0 ; } MELT_LOCATION("warmelt-macro.melt:5577:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V1909*/ meltfptr[1908], /*_._VALCLO___V1908*/ meltfptr[1907], /*quasi.cur.mod.env.ref norm.exp.val : UNSAFE_PUT_FIELDS*/ /* check quasi.cur.mod.env.ref 827325024 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:5623:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1912*/ meltfptr[1911]; /*_.INSTALL_INITIAL_MACRO__V2286*/ meltfptr[2264] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1736*/ meltfptr[1735]), (melt_ptr_t)(/*_._VALDATA___V1913*/ meltfptr[1912]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2286*/ meltfptr[2264] = 0 ; } MELT_LOCATION("warmelt-macro.melt:5624:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V1913*/ meltfptr[1912], /*_._VALCLO___V1912*/ meltfptr[1911], /*quasi.cur.mod.env.ref norm.exp.val : PUT_FIELDS*/ /* check quasi.cur.mod.env.ref 329867403 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:5664:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1916*/ meltfptr[1915]; /*_.INSTALL_INITIAL_MACRO__V2287*/ meltfptr[2263] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1736*/ meltfptr[1735]), (melt_ptr_t)(/*_._VALDATA___V256*/ meltfptr[255]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2287*/ meltfptr[2263] = 0 ; } MELT_LOCATION("warmelt-macro.melt:5665:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V256*/ meltfptr[255], /*_._VALCLO___V1916*/ meltfptr[1915], /*quasi.cur.mod.env.ref norm.exp.val : UNSAFE_GET_FIELD*/ /* check quasi.cur.mod.env.ref 197187869 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:5705:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1918*/ meltfptr[1917]; /*_.INSTALL_INITIAL_MACRO__V2288*/ meltfptr[2264] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1736*/ meltfptr[1735]), (melt_ptr_t)(/*_._VALDATA___V248*/ meltfptr[247]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2288*/ meltfptr[2264] = 0 ; } MELT_LOCATION("warmelt-macro.melt:5706:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V248*/ meltfptr[247], /*_._VALCLO___V1918*/ meltfptr[1917], /*quasi.cur.mod.env.ref norm.exp.val : GET_FIELD*/ /* check quasi.cur.mod.env.ref 469558380 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:5754:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1922*/ meltfptr[1921]; /*_.INSTALL_INITIAL_MACRO__V2289*/ meltfptr[2263] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1736*/ meltfptr[1735]), (melt_ptr_t)(/*_._VALDATA___V158*/ meltfptr[157]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2289*/ meltfptr[2263] = 0 ; } MELT_LOCATION("warmelt-macro.melt:5755:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V158*/ meltfptr[157], /*_._VALCLO___V1922*/ meltfptr[1921], /*quasi.cur.mod.env.ref norm.exp.val : SETQ*/ /* check quasi.cur.mod.env.ref 253537457 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:5807:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1924*/ meltfptr[1923]; /*_.INSTALL_INITIAL_MACRO__V2290*/ meltfptr[2264] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1736*/ meltfptr[1735]), (melt_ptr_t)(/*_._VALDATA___V1925*/ meltfptr[1924]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2290*/ meltfptr[2264] = 0 ; } MELT_LOCATION("warmelt-macro.melt:5808:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V1925*/ meltfptr[1924], /*_._VALCLO___V1924*/ meltfptr[1923], /*quasi.cur.mod.env.ref norm.exp.val : IF*/ /* check quasi.cur.mod.env.ref 725878274 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:5843:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1928*/ meltfptr[1927]; /*_.INSTALL_INITIAL_MACRO__V2291*/ meltfptr[2263] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1736*/ meltfptr[1735]), (melt_ptr_t)(/*_._VALDATA___V1929*/ meltfptr[1928]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2291*/ meltfptr[2263] = 0 ; } MELT_LOCATION("warmelt-macro.melt:5844:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V1929*/ meltfptr[1928], /*_._VALCLO___V1928*/ meltfptr[1927], /*quasi.cur.mod.env.ref norm.exp.val : WHEN*/ /* check quasi.cur.mod.env.ref 5736098 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:5880:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1932*/ meltfptr[1931]; /*_.INSTALL_INITIAL_MACRO__V2292*/ meltfptr[2264] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1736*/ meltfptr[1735]), (melt_ptr_t)(/*_._VALDATA___V1933*/ meltfptr[1932]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2292*/ meltfptr[2264] = 0 ; } MELT_LOCATION("warmelt-macro.melt:5881:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V1933*/ meltfptr[1932], /*_._VALCLO___V1932*/ meltfptr[1931], /*quasi.cur.mod.env.ref norm.exp.val : UNLESS*/ /* check quasi.cur.mod.env.ref 363225247 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:5980:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1939*/ meltfptr[1938]; /*_.INSTALL_INITIAL_MACRO__V2293*/ meltfptr[2263] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1736*/ meltfptr[1735]), (melt_ptr_t)(/*_._VALDATA___V1942*/ meltfptr[1941]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2293*/ meltfptr[2263] = 0 ; } MELT_LOCATION("warmelt-macro.melt:5981:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V1942*/ meltfptr[1941], /*_._VALCLO___V1939*/ meltfptr[1938], /*quasi.cur.mod.env.ref norm.exp.val : WITH_CLONED_SYMB*/ /* check quasi.cur.mod.env.ref 149328195 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:6040:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1945*/ meltfptr[1944]; /*_.INSTALL_INITIAL_MACRO__V2294*/ meltfptr[2264] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1736*/ meltfptr[1735]), (melt_ptr_t)(/*_._VALDATA___V1946*/ meltfptr[1945]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2294*/ meltfptr[2264] = 0 ; } MELT_LOCATION("warmelt-macro.melt:6041:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V1946*/ meltfptr[1945], /*_._VALCLO___V1945*/ meltfptr[1944], /*quasi.cur.mod.env.ref norm.exp.val : CPPIF*/ /* check quasi.cur.mod.env.ref 941829950 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:6138:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1950*/ meltfptr[1949]; /*_.INSTALL_INITIAL_MACRO__V2295*/ meltfptr[2263] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1736*/ meltfptr[1735]), (melt_ptr_t)(/*_._VALDATA___V234*/ meltfptr[233]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2295*/ meltfptr[2263] = 0 ; } MELT_LOCATION("warmelt-macro.melt:6139:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V234*/ meltfptr[233], /*_._VALCLO___V1950*/ meltfptr[1949], /*quasi.cur.mod.env.ref norm.exp.val : COND*/ /* check quasi.cur.mod.env.ref 659384947 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:6236:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1954*/ meltfptr[1953]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1956*/ meltfptr[1955]; /*_.INSTALL_INITIAL_PATMACRO__V2296*/ meltfptr[2264] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1740*/ meltfptr[1739]), (melt_ptr_t)(/*_._VALDATA___V1957*/ meltfptr[1956]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_PATMACRO__V2296*/ meltfptr[2264] = 0 ; } MELT_LOCATION("warmelt-macro.melt:6237:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_PATMACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_PATMACRO_EXPORTER))), /*_._VALDATA___V1957*/ meltfptr[1956], /*_._VALCLO___V1956*/ meltfptr[1955], /*_._VALCLO___V1954*/ meltfptr[1953], /*quasi.cur.mod.env.ref norm.exp.pat : AS*/ /* check quasi.cur.mod.env.ref 338020017 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:6255:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1960*/ meltfptr[1959]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1928*/ meltfptr[1927]; /*_.INSTALL_INITIAL_PATMACRO__V2297*/ meltfptr[2263] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1740*/ meltfptr[1739]), (melt_ptr_t)(/*_._VALDATA___V1929*/ meltfptr[1928]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_PATMACRO__V2297*/ meltfptr[2263] = 0 ; } MELT_LOCATION("warmelt-macro.melt:6256:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_PATMACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_PATMACRO_EXPORTER))), /*_._VALDATA___V1929*/ meltfptr[1928], /*_._VALCLO___V1928*/ meltfptr[1927], /*_._VALCLO___V1960*/ meltfptr[1959], /*quasi.cur.mod.env.ref norm.exp.pat : WHEN*/ /* check quasi.cur.mod.env.ref 885651235 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:6284:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1962*/ meltfptr[1961]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1952*/ meltfptr[1951]; /*_.INSTALL_INITIAL_PATMACRO__V2298*/ meltfptr[2264] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1740*/ meltfptr[1739]), (melt_ptr_t)(/*_._VALDATA___V244*/ meltfptr[243]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_PATMACRO__V2298*/ meltfptr[2264] = 0 ; } MELT_LOCATION("warmelt-macro.melt:6285:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_PATMACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_PATMACRO_EXPORTER))), /*_._VALDATA___V244*/ meltfptr[243], /*_._VALCLO___V1952*/ meltfptr[1951], /*_._VALCLO___V1962*/ meltfptr[1961], /*quasi.cur.mod.env.ref norm.exp.pat : AND*/ /* check quasi.cur.mod.env.ref 808545268 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:6344:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1966*/ meltfptr[1965]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1964*/ meltfptr[1963]; /*_.INSTALL_INITIAL_PATMACRO__V2299*/ meltfptr[2263] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1740*/ meltfptr[1739]), (melt_ptr_t)(/*_._VALDATA___V1967*/ meltfptr[1966]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_PATMACRO__V2299*/ meltfptr[2263] = 0 ; } MELT_LOCATION("warmelt-macro.melt:6345:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_PATMACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_PATMACRO_EXPORTER))), /*_._VALDATA___V1967*/ meltfptr[1966], /*_._VALCLO___V1964*/ meltfptr[1963], /*_._VALCLO___V1966*/ meltfptr[1965], /*quasi.cur.mod.env.ref norm.exp.pat : OR*/ /* check quasi.cur.mod.env.ref 360979485 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:6427:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1977*/ meltfptr[1976]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1972*/ meltfptr[1971]; /*_.INSTALL_INITIAL_PATMACRO__V2300*/ meltfptr[2264] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1740*/ meltfptr[1739]), (melt_ptr_t)(/*_._VALDATA___V1978*/ meltfptr[1977]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_PATMACRO__V2300*/ meltfptr[2264] = 0 ; } MELT_LOCATION("warmelt-macro.melt:6428:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_PATMACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_PATMACRO_EXPORTER))), /*_._VALDATA___V1978*/ meltfptr[1977], /*_._VALCLO___V1972*/ meltfptr[1971], /*_._VALCLO___V1977*/ meltfptr[1976], /*quasi.cur.mod.env.ref norm.exp.pat : REFERENCE*/ /* check quasi.cur.mod.env.ref 989735407 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:6479:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1981*/ meltfptr[1980]; /*_.INSTALL_INITIAL_MACRO__V2301*/ meltfptr[2263] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1736*/ meltfptr[1735]), (melt_ptr_t)(/*_._VALDATA___V1984*/ meltfptr[1983]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2301*/ meltfptr[2263] = 0 ; } MELT_LOCATION("warmelt-macro.melt:6480:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V1984*/ meltfptr[1983], /*_._VALCLO___V1981*/ meltfptr[1980], /*quasi.cur.mod.env.ref norm.exp.val : DEREF*/ /* check quasi.cur.mod.env.ref 816223622 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:6493:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1987*/ meltfptr[1986]; /*_.INSTALL_INITIAL_MACRO__V2302*/ meltfptr[2264] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1736*/ meltfptr[1735]), (melt_ptr_t)(/*_._VALDATA___V1988*/ meltfptr[1987]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2302*/ meltfptr[2264] = 0 ; } MELT_LOCATION("warmelt-macro.melt:6494:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V1988*/ meltfptr[1987], /*_._VALCLO___V1987*/ meltfptr[1986], /*quasi.cur.mod.env.ref norm.exp.val : CONTENT*/ /* check quasi.cur.mod.env.ref 184471347 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:6499:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1981*/ meltfptr[1980]; /*_.INSTALL_INITIAL_MACRO__V2303*/ meltfptr[2263] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1736*/ meltfptr[1735]), (melt_ptr_t)(/*_._VALDATA___V1990*/ meltfptr[1989]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2303*/ meltfptr[2263] = 0 ; } MELT_LOCATION("warmelt-macro.melt:6500:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V1990*/ meltfptr[1989], /*_._VALCLO___V1981*/ meltfptr[1980], /*quasi.cur.mod.env.ref norm.exp.val : EXCLAIM*/ /* check quasi.cur.mod.env.ref 341510589 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } #undef meltfram__ } /*end of meltmod__WARMELTmiMACRO__initialmeltchunk_50*/ void meltmod__WARMELTmiMACRO__initialmeltchunk_51 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; MELT_LOCATION("warmelt-macro.melt:6553:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1993*/ meltfptr[1992]; /*_.INSTALL_INITIAL_MACRO__V2304*/ meltfptr[2264] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1736*/ meltfptr[1735]), (melt_ptr_t)(/*_._VALDATA___V1994*/ meltfptr[1993]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2304*/ meltfptr[2264] = 0 ; } MELT_LOCATION("warmelt-macro.melt:6554:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V1994*/ meltfptr[1993], /*_._VALCLO___V1993*/ meltfptr[1992], /*quasi.cur.mod.env.ref norm.exp.val : SET_REF*/ /* check quasi.cur.mod.env.ref 163625119 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:6583:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V1998*/ meltfptr[1997]; /*_.INSTALL_INITIAL_MACRO__V2305*/ meltfptr[2263] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1736*/ meltfptr[1735]), (melt_ptr_t)(/*_._VALDATA___V178*/ meltfptr[177]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2305*/ meltfptr[2263] = 0 ; } MELT_LOCATION("warmelt-macro.melt:6584:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V178*/ meltfptr[177], /*_._VALCLO___V1998*/ meltfptr[1997], /*quasi.cur.mod.env.ref norm.exp.val : +*/ /* check quasi.cur.mod.env.ref 555393169 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:6612:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2003*/ meltfptr[2002]; /*_.INSTALL_INITIAL_MACRO__V2306*/ meltfptr[2264] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1736*/ meltfptr[1735]), (melt_ptr_t)(/*_._VALDATA___V2006*/ meltfptr[2005]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2306*/ meltfptr[2264] = 0 ; } MELT_LOCATION("warmelt-macro.melt:6613:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V2006*/ meltfptr[2005], /*_._VALCLO___V2003*/ meltfptr[2002], /*quasi.cur.mod.env.ref norm.exp.val : -*/ /* check quasi.cur.mod.env.ref 1028672661 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:6641:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2010*/ meltfptr[2009]; /*_.INSTALL_INITIAL_MACRO__V2307*/ meltfptr[2263] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1736*/ meltfptr[1735]), (melt_ptr_t)(/*_._VALDATA___V2013*/ meltfptr[2012]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2307*/ meltfptr[2263] = 0 ; } MELT_LOCATION("warmelt-macro.melt:6642:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V2013*/ meltfptr[2012], /*_._VALCLO___V2010*/ meltfptr[2009], /*quasi.cur.mod.env.ref norm.exp.val : **/ /* check quasi.cur.mod.env.ref 918136357 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:6670:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2017*/ meltfptr[2016]; /*_.INSTALL_INITIAL_MACRO__V2308*/ meltfptr[2264] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1736*/ meltfptr[1735]), (melt_ptr_t)(/*_._VALDATA___V2020*/ meltfptr[2019]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2308*/ meltfptr[2264] = 0 ; } MELT_LOCATION("warmelt-macro.melt:6671:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V2020*/ meltfptr[2019], /*_._VALCLO___V2017*/ meltfptr[2016], /*quasi.cur.mod.env.ref norm.exp.val : /*/ /* check quasi.cur.mod.env.ref 484333528 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:6712:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2025*/ meltfptr[2024]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2023*/ meltfptr[2022]; /*_.INSTALL_INITIAL_PATMACRO__V2309*/ meltfptr[2263] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1740*/ meltfptr[1739]), (melt_ptr_t)(/*_._VALDATA___V2026*/ meltfptr[2025]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_PATMACRO__V2309*/ meltfptr[2263] = 0 ; } MELT_LOCATION("warmelt-macro.melt:6713:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_PATMACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_PATMACRO_EXPORTER))), /*_._VALDATA___V2026*/ meltfptr[2025], /*_._VALCLO___V2023*/ meltfptr[2022], /*_._VALCLO___V2025*/ meltfptr[2024], /*quasi.cur.mod.env.ref norm.exp.pat : TUPLE*/ /* check quasi.cur.mod.env.ref 379904652 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:6758:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2031*/ meltfptr[2030]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2029*/ meltfptr[2028]; /*_.INSTALL_INITIAL_PATMACRO__V2310*/ meltfptr[2264] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1740*/ meltfptr[1739]), (melt_ptr_t)(/*_._VALDATA___V2032*/ meltfptr[2031]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_PATMACRO__V2310*/ meltfptr[2264] = 0 ; } MELT_LOCATION("warmelt-macro.melt:6759:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_PATMACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_PATMACRO_EXPORTER))), /*_._VALDATA___V2032*/ meltfptr[2031], /*_._VALCLO___V2029*/ meltfptr[2028], /*_._VALCLO___V2031*/ meltfptr[2030], /*quasi.cur.mod.env.ref norm.exp.pat : LIST*/ /* check quasi.cur.mod.env.ref 39276835 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:6853:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2036*/ meltfptr[2035]; /*_.INSTALL_INITIAL_MACRO__V2311*/ meltfptr[2263] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1736*/ meltfptr[1735]), (melt_ptr_t)(/*_._VALDATA___V2037*/ meltfptr[2036]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2311*/ meltfptr[2263] = 0 ; } MELT_LOCATION("warmelt-macro.melt:6854:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V2037*/ meltfptr[2036], /*_._VALCLO___V2036*/ meltfptr[2035], /*quasi.cur.mod.env.ref norm.exp.val : MATCH*/ /* check quasi.cur.mod.env.ref 1038753384 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:6947:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2041*/ meltfptr[2040]; /*_.INSTALL_INITIAL_MACRO__V2312*/ meltfptr[2264] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1736*/ meltfptr[1735]), (melt_ptr_t)(/*_._VALDATA___V2042*/ meltfptr[2041]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2312*/ meltfptr[2264] = 0 ; } MELT_LOCATION("warmelt-macro.melt:6948:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V2042*/ meltfptr[2041], /*_._VALCLO___V2041*/ meltfptr[2040], /*quasi.cur.mod.env.ref norm.exp.val : MATCHALT*/ /* check quasi.cur.mod.env.ref 700123929 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:7286:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2056*/ meltfptr[2055]; /*_.INSTALL_INITIAL_MACRO__V2313*/ meltfptr[2263] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1736*/ meltfptr[1735]), (melt_ptr_t)(/*_._VALDATA___V136*/ meltfptr[135]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2313*/ meltfptr[2263] = 0 ; } MELT_LOCATION("warmelt-macro.melt:7287:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V136*/ meltfptr[135], /*_._VALCLO___V2056*/ meltfptr[2055], /*quasi.cur.mod.env.ref norm.exp.val : LET*/ /* check quasi.cur.mod.env.ref 1069824269 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:7310:/ initchunk"); /*^block*/ /*anyblock*/ { 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___V329*/ meltfptr[328]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2058*/ meltfptr[2057]; /*_.INSTALL_METHOD__V2314*/ meltfptr[2264] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V89*/ meltfptr[88]), (melt_ptr_t)(/*_._VALDATA___V1191*/ meltfptr[1190]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V2314*/ meltfptr[2264] = 0 ; } MELT_LOCATION("warmelt-macro.melt:7311:/ initchunk"); /*^block*/ /*anyblock*/ { 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___V329*/ meltfptr[328]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2058*/ meltfptr[2057]; /*_.INSTALL_METHOD__V2315*/ meltfptr[2263] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V89*/ meltfptr[88]), (melt_ptr_t)(/*_._VALDATA___V973*/ meltfptr[972]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V2315*/ meltfptr[2263] = 0 ; } MELT_LOCATION("warmelt-macro.melt:7312:/ initchunk"); /*^block*/ /*anyblock*/ { 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___V329*/ meltfptr[328]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2058*/ meltfptr[2057]; /*_.INSTALL_METHOD__V2316*/ meltfptr[2264] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V89*/ meltfptr[88]), (melt_ptr_t)(/*_._VALDATA___V473*/ meltfptr[472]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V2316*/ meltfptr[2264] = 0 ; } MELT_LOCATION("warmelt-macro.melt:7313:/ initchunk"); /*^block*/ /*anyblock*/ { 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___V329*/ meltfptr[328]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2058*/ meltfptr[2057]; /*_.INSTALL_METHOD__V2317*/ meltfptr[2263] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V89*/ meltfptr[88]), (melt_ptr_t)(/*_._VALDATA___V479*/ meltfptr[478]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V2317*/ meltfptr[2263] = 0 ; } MELT_LOCATION("warmelt-macro.melt:7574:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2063*/ meltfptr[2062]; /*_.INSTALL_INITIAL_MACRO__V2318*/ meltfptr[2264] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1736*/ meltfptr[1735]), (melt_ptr_t)(/*_._VALDATA___V2066*/ meltfptr[2065]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2318*/ meltfptr[2264] = 0 ; } MELT_LOCATION("warmelt-macro.melt:7575:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V2066*/ meltfptr[2065], /*_._VALCLO___V2063*/ meltfptr[2062], /*quasi.cur.mod.env.ref norm.exp.val : LETREC*/ /* check quasi.cur.mod.env.ref 454633146 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:7621:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2069*/ meltfptr[2068]; /*_.INSTALL_INITIAL_MACRO__V2319*/ meltfptr[2263] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1736*/ meltfptr[1735]), (melt_ptr_t)(/*_._VALDATA___V2070*/ meltfptr[2069]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2319*/ meltfptr[2263] = 0 ; } MELT_LOCATION("warmelt-macro.melt:7622:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V2070*/ meltfptr[2069], /*_._VALCLO___V2069*/ meltfptr[2068], /*quasi.cur.mod.env.ref norm.exp.val : LAMBDA*/ /* check quasi.cur.mod.env.ref 579960970 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:7744:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2075*/ meltfptr[2074]; /*_.INSTALL_INITIAL_MACRO__V2320*/ meltfptr[2264] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1736*/ meltfptr[1735]), (melt_ptr_t)(/*_._VALDATA___V166*/ meltfptr[165]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2320*/ meltfptr[2264] = 0 ; } MELT_LOCATION("warmelt-macro.melt:7745:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V166*/ meltfptr[165], /*_._VALCLO___V2075*/ meltfptr[2074], /*quasi.cur.mod.env.ref norm.exp.val : VARIADIC*/ /* check quasi.cur.mod.env.ref 420131015 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:7809:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2078*/ meltfptr[2077]; /*_.INSTALL_INITIAL_MACRO__V2321*/ meltfptr[2263] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1736*/ meltfptr[1735]), (melt_ptr_t)(/*_._VALDATA___V2081*/ meltfptr[2080]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2321*/ meltfptr[2263] = 0 ; } MELT_LOCATION("warmelt-macro.melt:7810:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V2081*/ meltfptr[2080], /*_._VALCLO___V2078*/ meltfptr[2077], /*quasi.cur.mod.env.ref norm.exp.val : MULTICALL*/ /* check quasi.cur.mod.env.ref 393724602 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:7844:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2084*/ meltfptr[2083]; /*_.INSTALL_INITIAL_MACRO__V2322*/ meltfptr[2264] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1736*/ meltfptr[1735]), (melt_ptr_t)(/*_._VALDATA___V140*/ meltfptr[139]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2322*/ meltfptr[2264] = 0 ; } MELT_LOCATION("warmelt-macro.melt:7845:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V140*/ meltfptr[139], /*_._VALCLO___V2084*/ meltfptr[2083], /*quasi.cur.mod.env.ref norm.exp.val : BOX*/ /* check quasi.cur.mod.env.ref 464566668 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:7876:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2086*/ meltfptr[2085]; /*_.INSTALL_INITIAL_MACRO__V2323*/ meltfptr[2263] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1736*/ meltfptr[1735]), (melt_ptr_t)(/*_._VALDATA___V176*/ meltfptr[175]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2323*/ meltfptr[2263] = 0 ; } MELT_LOCATION("warmelt-macro.melt:7877:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V176*/ meltfptr[175], /*_._VALCLO___V2086*/ meltfptr[2085], /*quasi.cur.mod.env.ref norm.exp.val : CONSTANT_BOX*/ /* check quasi.cur.mod.env.ref 170175434 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:7924:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2088*/ meltfptr[2087]; /*_.INSTALL_INITIAL_MACRO__V2324*/ meltfptr[2264] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1736*/ meltfptr[1735]), (melt_ptr_t)(/*_._VALDATA___V2089*/ meltfptr[2088]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2324*/ meltfptr[2264] = 0 ; } MELT_LOCATION("warmelt-macro.melt:7925:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V2089*/ meltfptr[2088], /*_._VALCLO___V2088*/ meltfptr[2087], /*quasi.cur.mod.env.ref norm.exp.val : UNBOX*/ /* check quasi.cur.mod.env.ref 870307089 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:7955:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2092*/ meltfptr[2091]; /*_.INSTALL_INITIAL_MACRO__V2325*/ meltfptr[2263] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1736*/ meltfptr[1735]), (melt_ptr_t)(/*_._VALDATA___V2093*/ meltfptr[2092]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2325*/ meltfptr[2263] = 0 ; } MELT_LOCATION("warmelt-macro.melt:7956:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V2093*/ meltfptr[2092], /*_._VALCLO___V2092*/ meltfptr[2091], /*quasi.cur.mod.env.ref norm.exp.val : COMMENT*/ /* check quasi.cur.mod.env.ref 395820293 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:8005:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2096*/ meltfptr[2095]; /*_.INSTALL_INITIAL_MACRO__V2326*/ meltfptr[2264] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1736*/ meltfptr[1735]), (melt_ptr_t)(/*_._VALDATA___V2097*/ meltfptr[2096]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2326*/ meltfptr[2264] = 0 ; } MELT_LOCATION("warmelt-macro.melt:8006:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V2097*/ meltfptr[2096], /*_._VALCLO___V2096*/ meltfptr[2095], /*quasi.cur.mod.env.ref norm.exp.val : CHEADER*/ /* check quasi.cur.mod.env.ref 149630491 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:8053:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2100*/ meltfptr[2099]; /*_.INSTALL_INITIAL_MACRO__V2327*/ meltfptr[2263] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1736*/ meltfptr[1735]), (melt_ptr_t)(/*_._VALDATA___V2101*/ meltfptr[2100]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2327*/ meltfptr[2263] = 0 ; } MELT_LOCATION("warmelt-macro.melt:8054:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V2101*/ meltfptr[2100], /*_._VALCLO___V2100*/ meltfptr[2099], /*quasi.cur.mod.env.ref norm.exp.val : CIMPLEMENT*/ /* check quasi.cur.mod.env.ref 127272047 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:8104:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2104*/ meltfptr[2103]; /*_.INSTALL_INITIAL_MACRO__V2328*/ meltfptr[2264] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1736*/ meltfptr[1735]), (melt_ptr_t)(/*_._VALDATA___V2105*/ meltfptr[2104]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2328*/ meltfptr[2264] = 0 ; } MELT_LOCATION("warmelt-macro.melt:8105:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V2105*/ meltfptr[2104], /*_._VALCLO___V2104*/ meltfptr[2103], /*quasi.cur.mod.env.ref norm.exp.val : MODULE_IS_GPL_COMPATIBLE*/ /* check quasi.cur.mod.env.ref 303195495 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:8187:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2108*/ meltfptr[2107]; /*_.INSTALL_INITIAL_MACRO__V2329*/ meltfptr[2263] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1736*/ meltfptr[1735]), (melt_ptr_t)(/*_._VALDATA___V2109*/ meltfptr[2108]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2329*/ meltfptr[2263] = 0 ; } MELT_LOCATION("warmelt-macro.melt:8188:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V2109*/ meltfptr[2108], /*_._VALCLO___V2108*/ meltfptr[2107], /*quasi.cur.mod.env.ref norm.exp.val : USE_PACKAGE_FROM_PKG_CONFIG*/ /* check quasi.cur.mod.env.ref 961091441 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:8194:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V2111*/ meltfptr[2110], /*_._VALCLO___V2108*/ meltfptr[2107], /*quasi.cur.mod.env.ref norm.exp.val : USE-PACKAGE-FROM-PKG-CONFIG*/ /* check quasi.cur.mod.env.ref 56000436 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:8237:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2116*/ meltfptr[2115]; /*_.INSTALL_INITIAL_MACRO__V2330*/ meltfptr[2264] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1736*/ meltfptr[1735]), (melt_ptr_t)(/*_._VALDATA___V2117*/ meltfptr[2116]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2330*/ meltfptr[2264] = 0 ; } MELT_LOCATION("warmelt-macro.melt:8238:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V2117*/ meltfptr[2116], /*_._VALCLO___V2116*/ meltfptr[2115], /*quasi.cur.mod.env.ref norm.exp.val : PROGN*/ /* check quasi.cur.mod.env.ref 493268055 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:8258:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2120*/ meltfptr[2119]; /*_.INSTALL_INITIAL_MACRO__V2331*/ meltfptr[2263] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1736*/ meltfptr[1735]), (melt_ptr_t)(/*_._VALDATA___V2121*/ meltfptr[2120]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2331*/ meltfptr[2263] = 0 ; } MELT_LOCATION("warmelt-macro.melt:8259:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V2121*/ meltfptr[2120], /*_._VALCLO___V2120*/ meltfptr[2119], /*quasi.cur.mod.env.ref norm.exp.val : RETURN*/ /* check quasi.cur.mod.env.ref 398021025 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:8297:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2124*/ meltfptr[2123]; /*_.INSTALL_INITIAL_MACRO__V2332*/ meltfptr[2264] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1736*/ meltfptr[1735]), (melt_ptr_t)(/*_._VALDATA___V160*/ meltfptr[159]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2332*/ meltfptr[2264] = 0 ; } MELT_LOCATION("warmelt-macro.melt:8298:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V160*/ meltfptr[159], /*_._VALCLO___V2124*/ meltfptr[2123], /*quasi.cur.mod.env.ref norm.exp.val : FOREVER*/ /* check quasi.cur.mod.env.ref 556315205 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:8338:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2128*/ meltfptr[2127]; /*_.INSTALL_INITIAL_MACRO__V2333*/ meltfptr[2263] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1736*/ meltfptr[1735]), (melt_ptr_t)(/*_._VALDATA___V168*/ meltfptr[167]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2333*/ meltfptr[2263] = 0 ; } MELT_LOCATION("warmelt-macro.melt:8339:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V168*/ meltfptr[167], /*_._VALCLO___V2128*/ meltfptr[2127], /*quasi.cur.mod.env.ref norm.exp.val : EXIT*/ /* check quasi.cur.mod.env.ref 97340954 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:8378:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2130*/ meltfptr[2129]; /*_.INSTALL_INITIAL_MACRO__V2334*/ meltfptr[2264] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1736*/ meltfptr[1735]), (melt_ptr_t)(/*_._VALDATA___V2131*/ meltfptr[2130]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2334*/ meltfptr[2264] = 0 ; } MELT_LOCATION("warmelt-macro.melt:8379:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V2131*/ meltfptr[2130], /*_._VALCLO___V2130*/ meltfptr[2129], /*quasi.cur.mod.env.ref norm.exp.val : AGAIN*/ /* check quasi.cur.mod.env.ref 265508359 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:8418:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2134*/ meltfptr[2133]; /*_.INSTALL_INITIAL_MACRO__V2335*/ meltfptr[2263] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1736*/ meltfptr[1735]), (melt_ptr_t)(/*_._VALDATA___V2135*/ meltfptr[2134]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2335*/ meltfptr[2263] = 0 ; } MELT_LOCATION("warmelt-macro.melt:8419:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V2135*/ meltfptr[2134], /*_._VALCLO___V2134*/ meltfptr[2133], /*quasi.cur.mod.env.ref norm.exp.val : COMPILE_WARNING*/ /* check quasi.cur.mod.env.ref 762550718 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:8457:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2138*/ meltfptr[2137]; /*_.INSTALL_INITIAL_MACRO__V2336*/ meltfptr[2264] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1736*/ meltfptr[1735]), (melt_ptr_t)(/*_._VALDATA___V2139*/ meltfptr[2138]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2336*/ meltfptr[2264] = 0 ; } MELT_LOCATION("warmelt-macro.melt:8458:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V2139*/ meltfptr[2138], /*_._VALCLO___V2138*/ meltfptr[2137], /*quasi.cur.mod.env.ref norm.exp.val : COMPILE_ERROR*/ /* check quasi.cur.mod.env.ref 549751886 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:8553:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2143*/ meltfptr[2142]; /*_.INSTALL_INITIAL_MACRO__V2337*/ meltfptr[2263] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1736*/ meltfptr[1735]), (melt_ptr_t)(/*_._VALDATA___V198*/ meltfptr[197]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2337*/ meltfptr[2263] = 0 ; } MELT_LOCATION("warmelt-macro.melt:8554:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V198*/ meltfptr[197], /*_._VALCLO___V2143*/ meltfptr[2142], /*quasi.cur.mod.env.ref norm.exp.val : ASSERT_MSG*/ /* check quasi.cur.mod.env.ref 56836841 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:8579:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2147*/ meltfptr[2146]; /*_.INSTALL_INITIAL_MACRO__V2338*/ meltfptr[2264] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1736*/ meltfptr[1735]), (melt_ptr_t)(/*_._VALDATA___V2148*/ meltfptr[2147]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2338*/ meltfptr[2264] = 0 ; } MELT_LOCATION("warmelt-macro.melt:8580:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V2148*/ meltfptr[2147], /*_._VALCLO___V2147*/ meltfptr[2146], /*quasi.cur.mod.env.ref norm.exp.val : THIS_LINE*/ /* check quasi.cur.mod.env.ref 643610788 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:8602:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2151*/ meltfptr[2150]; /*_.INSTALL_INITIAL_MACRO__V2339*/ meltfptr[2263] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1736*/ meltfptr[1735]), (melt_ptr_t)(/*_._VALDATA___V2152*/ meltfptr[2151]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2339*/ meltfptr[2263] = 0 ; } MELT_LOCATION("warmelt-macro.melt:8603:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V2152*/ meltfptr[2151], /*_._VALCLO___V2151*/ meltfptr[2150], /*quasi.cur.mod.env.ref norm.exp.val : THIS_FILE*/ /* check quasi.cur.mod.env.ref 1063093956 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:8738:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2163*/ meltfptr[2162]; /*_.INSTALL_INITIAL_MACRO__V2340*/ meltfptr[2264] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1736*/ meltfptr[1735]), (melt_ptr_t)(/*_._VALDATA___V2164*/ meltfptr[2163]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2340*/ meltfptr[2264] = 0 ; } MELT_LOCATION("warmelt-macro.melt:8740:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V2164*/ meltfptr[2163], /*_._VALCLO___V2163*/ meltfptr[2162], /*quasi.cur.mod.env.ref norm.exp.val : DEBUG*/ /* check quasi.cur.mod.env.ref 520114807 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:8777:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2167*/ meltfptr[2166]; /*_.INSTALL_INITIAL_MACRO__V2341*/ meltfptr[2263] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1736*/ meltfptr[1735]), (melt_ptr_t)(/*_._VALDATA___V2168*/ meltfptr[2167]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2341*/ meltfptr[2263] = 0 ; } MELT_LOCATION("warmelt-macro.melt:8778:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V2168*/ meltfptr[2167], /*_._VALCLO___V2167*/ meltfptr[2166], /*quasi.cur.mod.env.ref norm.exp.val : EXPORT_VALUES*/ /* check quasi.cur.mod.env.ref 724654759 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:8848:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2171*/ meltfptr[2170]; /*_.INSTALL_INITIAL_MACRO__V2342*/ meltfptr[2264] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1736*/ meltfptr[1735]), (melt_ptr_t)(/*_._VALDATA___V2172*/ meltfptr[2171]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2342*/ meltfptr[2264] = 0 ; } MELT_LOCATION("warmelt-macro.melt:8849:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V2172*/ meltfptr[2171], /*_._VALCLO___V2171*/ meltfptr[2170], /*quasi.cur.mod.env.ref norm.exp.val : EXPORT_MACRO*/ /* check quasi.cur.mod.env.ref 367801675 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:8900:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2175*/ meltfptr[2174]; /*_.INSTALL_INITIAL_MACRO__V2343*/ meltfptr[2263] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1736*/ meltfptr[1735]), (melt_ptr_t)(/*_._VALDATA___V2176*/ meltfptr[2175]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2343*/ meltfptr[2263] = 0 ; } MELT_LOCATION("warmelt-macro.melt:8901:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V2176*/ meltfptr[2175], /*_._VALCLO___V2175*/ meltfptr[2174], /*quasi.cur.mod.env.ref norm.exp.val : EXPORT_PATMACRO*/ /* check quasi.cur.mod.env.ref 212182879 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:8930:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2179*/ meltfptr[2178]; /*_.INSTALL_INITIAL_MACRO__V2344*/ meltfptr[2264] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1736*/ meltfptr[1735]), (melt_ptr_t)(/*_._VALDATA___V2180*/ meltfptr[2179]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2344*/ meltfptr[2264] = 0 ; } MELT_LOCATION("warmelt-macro.melt:8931:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V2180*/ meltfptr[2179], /*_._VALCLO___V2179*/ meltfptr[2178], /*quasi.cur.mod.env.ref norm.exp.val : EXPORT_CLASS*/ /* check quasi.cur.mod.env.ref 293667297 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:8979:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2183*/ meltfptr[2182]; /*_.INSTALL_INITIAL_MACRO__V2345*/ meltfptr[2263] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1736*/ meltfptr[1735]), (melt_ptr_t)(/*_._VALDATA___V2184*/ meltfptr[2183]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2345*/ meltfptr[2263] = 0 ; } MELT_LOCATION("warmelt-macro.melt:8980:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V2184*/ meltfptr[2183], /*_._VALCLO___V2183*/ meltfptr[2182], /*quasi.cur.mod.env.ref norm.exp.val : EXPORT_SYNONYM*/ /* check quasi.cur.mod.env.ref 448284918 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:9007:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2187*/ meltfptr[2186]; /*_.INSTALL_INITIAL_MACRO__V2346*/ meltfptr[2264] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1736*/ meltfptr[1735]), (melt_ptr_t)(/*_._VALDATA___V2188*/ meltfptr[2187]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2346*/ meltfptr[2264] = 0 ; } MELT_LOCATION("warmelt-macro.melt:9008:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V2188*/ meltfptr[2187], /*_._VALCLO___V2187*/ meltfptr[2186], /*quasi.cur.mod.env.ref norm.exp.val : CURRENT_MODULE_ENVIRONMENT_REFERENCE*/ /* check quasi.cur.mod.env.ref 135259969 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:9016:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2187*/ meltfptr[2186]; /*_.INSTALL_INITIAL_MACRO__V2347*/ meltfptr[2263] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1736*/ meltfptr[1735]), (melt_ptr_t)(/*_._VALDATA___V2190*/ meltfptr[2189]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2347*/ meltfptr[2263] = 0 ; } MELT_LOCATION("warmelt-macro.melt:9017:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V2190*/ meltfptr[2189], /*_._VALCLO___V2187*/ meltfptr[2186], /*quasi.cur.mod.env.ref norm.exp.val : CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ /* check quasi.cur.mod.env.ref 885684232 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:9041:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2193*/ meltfptr[2192]; /*_.INSTALL_INITIAL_MACRO__V2348*/ meltfptr[2264] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1736*/ meltfptr[1735]), (melt_ptr_t)(/*_._VALDATA___V2194*/ meltfptr[2193]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2348*/ meltfptr[2264] = 0 ; } MELT_LOCATION("warmelt-macro.melt:9042:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V2194*/ meltfptr[2193], /*_._VALCLO___V2193*/ meltfptr[2192], /*quasi.cur.mod.env.ref norm.exp.val : PARENT_MODULE_ENVIRONMENT*/ /* check quasi.cur.mod.env.ref 431883281 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:9073:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2197*/ meltfptr[2196]; /*_.INSTALL_INITIAL_MACRO__V2349*/ meltfptr[2263] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1736*/ meltfptr[1735]), (melt_ptr_t)(/*_._VALDATA___V2198*/ meltfptr[2197]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2349*/ meltfptr[2263] = 0 ; } MELT_LOCATION("warmelt-macro.melt:9074:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V2198*/ meltfptr[2197], /*_._VALCLO___V2197*/ meltfptr[2196], /*quasi.cur.mod.env.ref norm.exp.val : UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE*/ /* check quasi.cur.mod.env.ref 907745036 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:9083:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2197*/ meltfptr[2196]; /*_.INSTALL_INITIAL_MACRO__V2350*/ meltfptr[2264] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1736*/ meltfptr[1735]), (melt_ptr_t)(/*_._VALDATA___V2200*/ meltfptr[2199]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2350*/ meltfptr[2264] = 0 ; } MELT_LOCATION("warmelt-macro.melt:9084:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V2200*/ meltfptr[2199], /*_._VALCLO___V2197*/ meltfptr[2196], /*quasi.cur.mod.env.ref norm.exp.val : UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ /* check quasi.cur.mod.env.ref 1020127491 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:9112:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2203*/ meltfptr[2202]; /*_.INSTALL_INITIAL_MACRO__V2351*/ meltfptr[2263] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1736*/ meltfptr[1735]), (melt_ptr_t)(/*_._VALDATA___V2204*/ meltfptr[2203]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2351*/ meltfptr[2263] = 0 ; } MELT_LOCATION("warmelt-macro.melt:9113:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V2204*/ meltfptr[2203], /*_._VALCLO___V2203*/ meltfptr[2202], /*quasi.cur.mod.env.ref norm.exp.val : FETCH_PREDEFINED*/ /* check quasi.cur.mod.env.ref 330052744 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:9148:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V2207*/ meltfptr[2206]; /*_.INSTALL_INITIAL_MACRO__V2352*/ meltfptr[2264] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V1736*/ meltfptr[1735]), (melt_ptr_t)(/*_._VALDATA___V2208*/ meltfptr[2207]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_INITIAL_MACRO__V2352*/ meltfptr[2264] = 0 ; } MELT_LOCATION("warmelt-macro.melt:9149:/ initchunk"); /*^block*/ /*anyblock*/ { { /*hookcall*/ melthook_HOOK_MACRO_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_MACRO_EXPORTER))), /*_._VALDATA___V2208*/ meltfptr[2207], /*_._VALCLO___V2207*/ meltfptr[2206], /*quasi.cur.mod.env.ref norm.exp.val : STORE_PREDEFINED*/ /* check quasi.cur.mod.env.ref 265214951 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; } ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:9154:/ initchunk"); /*^block*/ /*anyblock*/ { /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V757*/ meltfptr[756], /*_._VALDATA___V761*/ meltfptr[760], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_DEFINED_MACRO_BINDING*/ /* check quasi.cur.mod.env.ref 942930842 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V769*/ meltfptr[768], /*_._VALDATA___V764*/ meltfptr[763], /*quasi.cur.mod.env.ref norm.exp.val : MBIND_DEFMACRO*/ /* check quasi.cur.mod.env.ref 958893705 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V771*/ meltfptr[770], /*_._VALDATA___V766*/ meltfptr[765], /*quasi.cur.mod.env.ref norm.exp.val : MBIND_DATA*/ /* check quasi.cur.mod.env.ref 640181280 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1667*/ meltfptr[1666], /*_._VALDATA___V1671*/ meltfptr[1670], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_PATTERN_EXPANSION_CONTEXT*/ /* check quasi.cur.mod.env.ref 15605245 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1683*/ meltfptr[1682], /*_._VALDATA___V1674*/ meltfptr[1673], /*quasi.cur.mod.env.ref norm.exp.val : PCTX_MEXPANDER*/ /* check quasi.cur.mod.env.ref 857722599 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1685*/ meltfptr[1684], /*_._VALDATA___V1676*/ meltfptr[1675], /*quasi.cur.mod.env.ref norm.exp.val : PCTX_PEXPANDER*/ /* check quasi.cur.mod.env.ref 190229230 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1687*/ meltfptr[1686], /*_._VALDATA___V1678*/ meltfptr[1677], /*quasi.cur.mod.env.ref norm.exp.val : PCTX_VARMAP*/ /* check quasi.cur.mod.env.ref 625099045 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1689*/ meltfptr[1688], /*_._VALDATA___V1680*/ meltfptr[1679], /*quasi.cur.mod.env.ref norm.exp.val : PCTX_MODCTX*/ /* check quasi.cur.mod.env.ref 89937518 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1269*/ meltfptr[1268], /*_._VALDATA___V1271*/ meltfptr[1270], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_AGAIN*/ /* check quasi.cur.mod.env.ref 877087804 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1115*/ meltfptr[1114], /*_._VALDATA___V1117*/ meltfptr[1116], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_ANY_LET_BINDING*/ /* check quasi.cur.mod.env.ref 310165330 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1123*/ meltfptr[1122], /*_._VALDATA___V1120*/ meltfptr[1119], /*quasi.cur.mod.env.ref norm.exp.val : SLETB_BINDER*/ /* check quasi.cur.mod.env.ref 234359942 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V371*/ meltfptr[370], /*_._VALDATA___V373*/ meltfptr[372], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_APPLY*/ /* check quasi.cur.mod.env.ref 570377251 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V379*/ meltfptr[378], /*_._VALDATA___V376*/ meltfptr[375], /*quasi.cur.mod.env.ref norm.exp.val : SAPP_FUN*/ /* check quasi.cur.mod.env.ref 385977190 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V415*/ meltfptr[414], /*_._VALDATA___V417*/ meltfptr[416], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION*/ /* check quasi.cur.mod.env.ref 343004947 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V425*/ meltfptr[424], /*_._VALDATA___V420*/ meltfptr[419], /*quasi.cur.mod.env.ref norm.exp.val : SARITHVAR_NEUTRAL*/ /* check quasi.cur.mod.env.ref 457024214 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V427*/ meltfptr[426], /*_._VALDATA___V422*/ meltfptr[421], /*quasi.cur.mod.env.ref norm.exp.val : SARITHVAR_PRIMITIVE*/ /* check quasi.cur.mod.env.ref 572923592 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V361*/ meltfptr[360], /*_._VALDATA___V363*/ meltfptr[362], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_ARGUMENTED_OPERATOR*/ /* check quasi.cur.mod.env.ref 720420022 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V369*/ meltfptr[368], /*_._VALDATA___V366*/ meltfptr[365], /*quasi.cur.mod.env.ref norm.exp.val : SARGOP_ARGS*/ /* check quasi.cur.mod.env.ref 256781186 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V581*/ meltfptr[580], /*_._VALDATA___V583*/ meltfptr[582], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_BOX*/ /* check quasi.cur.mod.env.ref 88762192 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V539*/ meltfptr[538], /*_._VALDATA___V541*/ meltfptr[540], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_CHEADER*/ /* check quasi.cur.mod.env.ref 173179821 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V545*/ meltfptr[544], /*_._VALDATA___V547*/ meltfptr[546], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_CIMPLEMENT*/ /* check quasi.cur.mod.env.ref 605618833 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V429*/ meltfptr[428], /*_._VALDATA___V431*/ meltfptr[430], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_CITERATION*/ /* check quasi.cur.mod.env.ref 142351787 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V441*/ meltfptr[440], /*_._VALDATA___V434*/ meltfptr[433], /*quasi.cur.mod.env.ref norm.exp.val : SCITER_OPER*/ /* check quasi.cur.mod.env.ref 166708916 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V443*/ meltfptr[442], /*_._VALDATA___V436*/ meltfptr[435], /*quasi.cur.mod.env.ref norm.exp.val : SCITER_VARBIND*/ /* check quasi.cur.mod.env.ref 271461917 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V445*/ meltfptr[444], /*_._VALDATA___V438*/ meltfptr[437], /*quasi.cur.mod.env.ref norm.exp.val : SCITER_BODY*/ /* check quasi.cur.mod.env.ref 515169562 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V447*/ meltfptr[446], /*_._VALDATA___V449*/ meltfptr[448], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_CMATCHEXPR*/ /* check quasi.cur.mod.env.ref 225143484 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V455*/ meltfptr[454], /*_._VALDATA___V452*/ meltfptr[451], /*quasi.cur.mod.env.ref norm.exp.val : SCMATX_CMATCHER*/ /* check quasi.cur.mod.env.ref 752402245 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V523*/ meltfptr[522], /*_._VALDATA___V525*/ meltfptr[524], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_CODE_STRING*/ /* check quasi.cur.mod.env.ref 310126929 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V531*/ meltfptr[530], /*_._VALDATA___V528*/ meltfptr[527], /*quasi.cur.mod.env.ref norm.exp.val : SC_CODESTRING*/ /* check quasi.cur.mod.env.ref 490395138 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1377*/ meltfptr[1376], /*_._VALDATA___V1379*/ meltfptr[1378], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_CODECHUNK*/ /* check quasi.cur.mod.env.ref 188875017 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V513*/ meltfptr[512], /*_._VALDATA___V515*/ meltfptr[514], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_COMMENT*/ /* check quasi.cur.mod.env.ref 570584039 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V521*/ meltfptr[520], /*_._VALDATA___V518*/ meltfptr[517], /*quasi.cur.mod.env.ref norm.exp.val : SCOMM_STR*/ /* check quasi.cur.mod.env.ref 404713992 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1285*/ meltfptr[1284], /*_._VALDATA___V1287*/ meltfptr[1286], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_COMPILE_DIAGNOSTIC*/ /* check quasi.cur.mod.env.ref 734542457 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1295*/ meltfptr[1294], /*_._VALDATA___V1290*/ meltfptr[1289], /*quasi.cur.mod.env.ref norm.exp.val : SCDIAG_MSG*/ /* check quasi.cur.mod.env.ref 34044849 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1297*/ meltfptr[1296], /*_._VALDATA___V1292*/ meltfptr[1291], /*quasi.cur.mod.env.ref norm.exp.val : SCDIAG_EXPR*/ /* check quasi.cur.mod.env.ref 893431903 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1307*/ meltfptr[1306], /*_._VALDATA___V1309*/ meltfptr[1308], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_COMPILE_ERROR*/ /* check quasi.cur.mod.env.ref 943758781 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1299*/ meltfptr[1298], /*_._VALDATA___V1301*/ meltfptr[1300], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_COMPILE_WARNING*/ /* check quasi.cur.mod.env.ref 347263286 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V587*/ meltfptr[586], /*_._VALDATA___V589*/ meltfptr[588], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_CONSTANT_BOX*/ /* check quasi.cur.mod.env.ref 468642535 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1063*/ meltfptr[1062], /*_._VALDATA___V1065*/ meltfptr[1064], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_CPPIF*/ /* check quasi.cur.mod.env.ref 1027818667 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1075*/ meltfptr[1074], /*_._VALDATA___V1068*/ meltfptr[1067], /*quasi.cur.mod.env.ref norm.exp.val : SIFP_COND*/ /* check quasi.cur.mod.env.ref 438418813 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1077*/ meltfptr[1076], /*_._VALDATA___V1070*/ meltfptr[1069], /*quasi.cur.mod.env.ref norm.exp.val : SIFP_THEN*/ /* check quasi.cur.mod.env.ref 478124713 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1079*/ meltfptr[1078], /*_._VALDATA___V1072*/ meltfptr[1071], /*quasi.cur.mod.env.ref norm.exp.val : SIFP_ELSE*/ /* check quasi.cur.mod.env.ref 19869400 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1313*/ meltfptr[1312], /*_._VALDATA___V1315*/ meltfptr[1314], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE*/ /* check quasi.cur.mod.env.ref 544112008 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1321*/ meltfptr[1320], /*_._VALDATA___V1318*/ meltfptr[1317], /*quasi.cur.mod.env.ref norm.exp.val : CMEC_COMMENT*/ /* check quasi.cur.mod.env.ref 1055609435 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V831*/ meltfptr[830], /*_._VALDATA___V833*/ meltfptr[832], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_DEFCITERATOR*/ /* check quasi.cur.mod.env.ref 201771338 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V843*/ meltfptr[842], /*_._VALDATA___V836*/ meltfptr[835], /*quasi.cur.mod.env.ref norm.exp.val : SCITERDEF_CITERATOR*/ /* check quasi.cur.mod.env.ref 686607149 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V845*/ meltfptr[844], /*_._VALDATA___V838*/ meltfptr[837], /*quasi.cur.mod.env.ref norm.exp.val : SCITERDEF_BEFORELOC*/ /* check quasi.cur.mod.env.ref 85479435 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V847*/ meltfptr[846], /*_._VALDATA___V840*/ meltfptr[839], /*quasi.cur.mod.env.ref norm.exp.val : SCITERDEF_AFTERLOC*/ /* check quasi.cur.mod.env.ref 1045350794 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V907*/ meltfptr[906], /*_._VALDATA___V909*/ meltfptr[908], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_DEFCLASS*/ /* check quasi.cur.mod.env.ref 809844737 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V919*/ meltfptr[918], /*_._VALDATA___V912*/ meltfptr[911], /*quasi.cur.mod.env.ref norm.exp.val : SCLASS_CLABIND*/ /* check quasi.cur.mod.env.ref 984660276 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V921*/ meltfptr[920], /*_._VALDATA___V914*/ meltfptr[913], /*quasi.cur.mod.env.ref norm.exp.val : SCLASS_SUPERBIND*/ /* check quasi.cur.mod.env.ref 846540384 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V923*/ meltfptr[922], /*_._VALDATA___V916*/ meltfptr[915], /*quasi.cur.mod.env.ref norm.exp.val : SCLASS_FLDBINDS*/ /* check quasi.cur.mod.env.ref 434279950 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V849*/ meltfptr[848], /*_._VALDATA___V851*/ meltfptr[850], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_DEFCMATCHER*/ /* check quasi.cur.mod.env.ref 543294654 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V863*/ meltfptr[862], /*_._VALDATA___V854*/ meltfptr[853], /*quasi.cur.mod.env.ref norm.exp.val : SCMATDEF_CMATCHER*/ /* check quasi.cur.mod.env.ref 174481064 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V865*/ meltfptr[864], /*_._VALDATA___V856*/ meltfptr[855], /*quasi.cur.mod.env.ref norm.exp.val : SCMATDEF_TESTLOC*/ /* check quasi.cur.mod.env.ref 651787174 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V867*/ meltfptr[866], /*_._VALDATA___V858*/ meltfptr[857], /*quasi.cur.mod.env.ref norm.exp.val : SCMATDEF_FILLLOC*/ /* check quasi.cur.mod.env.ref 305765911 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V869*/ meltfptr[868], /*_._VALDATA___V860*/ meltfptr[859], /*quasi.cur.mod.env.ref norm.exp.val : SCMATDEF_OPERLOC*/ /* check quasi.cur.mod.env.ref 300037403 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V805*/ meltfptr[804], /*_._VALDATA___V807*/ meltfptr[806], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_DEFHOOK*/ /* check quasi.cur.mod.env.ref 293564178 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V821*/ meltfptr[820], /*_._VALDATA___V810*/ meltfptr[809], /*quasi.cur.mod.env.ref norm.exp.val : SHOOK_OUT_FORMALS*/ /* check quasi.cur.mod.env.ref 336295156 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V823*/ meltfptr[822], /*_._VALDATA___V812*/ meltfptr[811], /*quasi.cur.mod.env.ref norm.exp.val : SHOOK_CTYPE*/ /* check quasi.cur.mod.env.ref 428560883 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V825*/ meltfptr[824], /*_._VALDATA___V814*/ meltfptr[813], /*quasi.cur.mod.env.ref norm.exp.val : SHOOK_PREDEF*/ /* check quasi.cur.mod.env.ref 1023945524 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V827*/ meltfptr[826], /*_._VALDATA___V816*/ meltfptr[815], /*quasi.cur.mod.env.ref norm.exp.val : SHOOK_VARIABLE*/ /* check quasi.cur.mod.env.ref 658972115 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V829*/ meltfptr[828], /*_._VALDATA___V818*/ meltfptr[817], /*quasi.cur.mod.env.ref norm.exp.val : SHOOK_BODY*/ /* check quasi.cur.mod.env.ref 576097645 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V707*/ meltfptr[706], /*_._VALDATA___V709*/ meltfptr[708], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_DEFINE*/ /* check quasi.cur.mod.env.ref 770400935 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V715*/ meltfptr[714], /*_._VALDATA___V712*/ meltfptr[711], /*quasi.cur.mod.env.ref norm.exp.val : SDEFINE_BODY*/ /* check quasi.cur.mod.env.ref 302686352 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V687*/ meltfptr[686], /*_._VALDATA___V689*/ meltfptr[688], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_DEFINITION*/ /* check quasi.cur.mod.env.ref 188655305 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V697*/ meltfptr[696], /*_._VALDATA___V692*/ meltfptr[691], /*quasi.cur.mod.env.ref norm.exp.val : SDEF_NAME*/ /* check quasi.cur.mod.env.ref 67394438 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V699*/ meltfptr[698], /*_._VALDATA___V694*/ meltfptr[693], /*quasi.cur.mod.env.ref norm.exp.val : SDEF_DOC*/ /* check quasi.cur.mod.env.ref 976203297 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V717*/ meltfptr[716], /*_._VALDATA___V719*/ meltfptr[718], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_DEFINITION_FORMAL*/ /* check quasi.cur.mod.env.ref 860798256 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V725*/ meltfptr[724], /*_._VALDATA___V722*/ meltfptr[721], /*quasi.cur.mod.env.ref norm.exp.val : SFORMAL_ARGS*/ /* check quasi.cur.mod.env.ref 657707922 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V925*/ meltfptr[924], /*_._VALDATA___V927*/ meltfptr[926], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_DEFINSTANCE*/ /* check quasi.cur.mod.env.ref 938497377 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V939*/ meltfptr[938], /*_._VALDATA___V930*/ meltfptr[929], /*quasi.cur.mod.env.ref norm.exp.val : SINST_CLASS*/ /* check quasi.cur.mod.env.ref 945329941 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V941*/ meltfptr[940], /*_._VALDATA___V932*/ meltfptr[931], /*quasi.cur.mod.env.ref norm.exp.val : SINST_CLABIND*/ /* check quasi.cur.mod.env.ref 255598781 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V943*/ meltfptr[942], /*_._VALDATA___V934*/ meltfptr[933], /*quasi.cur.mod.env.ref norm.exp.val : SINST_OBJNUM*/ /* check quasi.cur.mod.env.ref 440320889 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V945*/ meltfptr[944], /*_._VALDATA___V936*/ meltfptr[935], /*quasi.cur.mod.env.ref norm.exp.val : SINST_FIELDS*/ /* check quasi.cur.mod.env.ref 742046283 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V897*/ meltfptr[896], /*_._VALDATA___V899*/ meltfptr[898], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_DEFOBJCOMMON*/ /* check quasi.cur.mod.env.ref 674995818 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V905*/ meltfptr[904], /*_._VALDATA___V902*/ meltfptr[901], /*quasi.cur.mod.env.ref norm.exp.val : SOBJ_PREDEF*/ /* check quasi.cur.mod.env.ref 968627160 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V787*/ meltfptr[786], /*_._VALDATA___V789*/ meltfptr[788], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_DEFPRIMITIVE*/ /* check quasi.cur.mod.env.ref 513203187 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V799*/ meltfptr[798], /*_._VALDATA___V792*/ meltfptr[791], /*quasi.cur.mod.env.ref norm.exp.val : SPRIM_TYPE*/ /* check quasi.cur.mod.env.ref 281814872 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V801*/ meltfptr[800], /*_._VALDATA___V794*/ meltfptr[793], /*quasi.cur.mod.env.ref norm.exp.val : SPRIM_EXPANSION*/ /* check quasi.cur.mod.env.ref 754037848 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V803*/ meltfptr[802], /*_._VALDATA___V796*/ meltfptr[795], /*quasi.cur.mod.env.ref norm.exp.val : SPRIM_EXPLOC*/ /* check quasi.cur.mod.env.ref 69021571 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V737*/ meltfptr[736], /*_._VALDATA___V739*/ meltfptr[738], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_DEFMACRO*/ /* check quasi.cur.mod.env.ref 886532045 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V745*/ meltfptr[744], /*_._VALDATA___V742*/ meltfptr[741], /*quasi.cur.mod.env.ref norm.exp.val : SMACRO_BINDING*/ /* check quasi.cur.mod.env.ref 25589030 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V747*/ meltfptr[746], /*_._VALDATA___V749*/ meltfptr[748], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_DEFMACRO_IN_LET*/ /* check quasi.cur.mod.env.ref 214062873 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V755*/ meltfptr[754], /*_._VALDATA___V752*/ meltfptr[751], /*quasi.cur.mod.env.ref norm.exp.val : SMACRO_SOURCELETBINDING*/ /* check quasi.cur.mod.env.ref 839575732 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V947*/ meltfptr[946], /*_._VALDATA___V949*/ meltfptr[948], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_DEFSELECTOR*/ /* check quasi.cur.mod.env.ref 410716908 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V955*/ meltfptr[954], /*_._VALDATA___V952*/ meltfptr[951], /*quasi.cur.mod.env.ref norm.exp.val : SDEFSEL_FORMALS*/ /* check quasi.cur.mod.env.ref 751344823 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V727*/ meltfptr[726], /*_._VALDATA___V729*/ meltfptr[728], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_DEFUN*/ /* check quasi.cur.mod.env.ref 429012288 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V735*/ meltfptr[734], /*_._VALDATA___V732*/ meltfptr[731], /*quasi.cur.mod.env.ref norm.exp.val : SFUN_BODY*/ /* check quasi.cur.mod.env.ref 28085761 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V871*/ meltfptr[870], /*_._VALDATA___V873*/ meltfptr[872], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_DEFUNMATCHER*/ /* check quasi.cur.mod.env.ref 162123961 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V887*/ meltfptr[886], /*_._VALDATA___V876*/ meltfptr[875], /*quasi.cur.mod.env.ref norm.exp.val : SFUMATDEF_INS*/ /* check quasi.cur.mod.env.ref 91390320 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V889*/ meltfptr[888], /*_._VALDATA___V878*/ meltfptr[877], /*quasi.cur.mod.env.ref norm.exp.val : SFUMATDEF_OUTS*/ /* check quasi.cur.mod.env.ref 14657970 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V891*/ meltfptr[890], /*_._VALDATA___V880*/ meltfptr[879], /*quasi.cur.mod.env.ref norm.exp.val : SFUMATDEF_MATCHF*/ /* check quasi.cur.mod.env.ref 804349294 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V893*/ meltfptr[892], /*_._VALDATA___V882*/ meltfptr[881], /*quasi.cur.mod.env.ref norm.exp.val : SFUMATDEF_APPLYF*/ /* check quasi.cur.mod.env.ref 76561185 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V895*/ meltfptr[894], /*_._VALDATA___V884*/ meltfptr[883], /*quasi.cur.mod.env.ref norm.exp.val : SFUMATDEF_DATA*/ /* check quasi.cur.mod.env.ref 788176440 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V701*/ meltfptr[700], /*_._VALDATA___V703*/ meltfptr[702], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_DEFVAR*/ /* check quasi.cur.mod.env.ref 766576440 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1275*/ meltfptr[1274], /*_._VALDATA___V1277*/ meltfptr[1276], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_EXIT*/ /* check quasi.cur.mod.env.ref 581941338 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1283*/ meltfptr[1282], /*_._VALDATA___V1280*/ meltfptr[1279], /*quasi.cur.mod.env.ref norm.exp.val : SEXI_BODY*/ /* check quasi.cur.mod.env.ref 687233085 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V629*/ meltfptr[628], /*_._VALDATA___V631*/ meltfptr[630], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_EXPORT_ANY_MACRO*/ /* check quasi.cur.mod.env.ref 193639347 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V639*/ meltfptr[638], /*_._VALDATA___V634*/ meltfptr[633], /*quasi.cur.mod.env.ref norm.exp.val : SEXPMAC_MNAME*/ /* check quasi.cur.mod.env.ref 505956789 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V641*/ meltfptr[640], /*_._VALDATA___V636*/ meltfptr[635], /*quasi.cur.mod.env.ref norm.exp.val : SEXPMAC_DOC*/ /* check quasi.cur.mod.env.ref 279624593 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V623*/ meltfptr[622], /*_._VALDATA___V625*/ meltfptr[624], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_EXPORT_CLASS*/ /* check quasi.cur.mod.env.ref 508855451 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V653*/ meltfptr[652], /*_._VALDATA___V655*/ meltfptr[654], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_EXPORT_DEFMACRO*/ /* check quasi.cur.mod.env.ref 177845668 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V643*/ meltfptr[642], /*_._VALDATA___V645*/ meltfptr[644], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_EXPORT_MACRO*/ /* check quasi.cur.mod.env.ref 559244034 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V651*/ meltfptr[650], /*_._VALDATA___V648*/ meltfptr[647], /*quasi.cur.mod.env.ref norm.exp.val : SEXPMAC_MVAL*/ /* check quasi.cur.mod.env.ref 166682996 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V659*/ meltfptr[658], /*_._VALDATA___V661*/ meltfptr[660], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_EXPORT_PATMACRO*/ /* check quasi.cur.mod.env.ref 802168865 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V667*/ meltfptr[666], /*_._VALDATA___V664*/ meltfptr[663], /*quasi.cur.mod.env.ref norm.exp.val : SEXPPAT_PVAL*/ /* check quasi.cur.mod.env.ref 188241257 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V669*/ meltfptr[668], /*_._VALDATA___V671*/ meltfptr[670], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_EXPORT_SYNONYM*/ /* check quasi.cur.mod.env.ref 100399452 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V681*/ meltfptr[680], /*_._VALDATA___V674*/ meltfptr[673], /*quasi.cur.mod.env.ref norm.exp.val : SEXPSYN_NEWNAME*/ /* check quasi.cur.mod.env.ref 90326093 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V683*/ meltfptr[682], /*_._VALDATA___V676*/ meltfptr[675], /*quasi.cur.mod.env.ref norm.exp.val : SEXPSYN_OLDNAME*/ /* check quasi.cur.mod.env.ref 486349714 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V685*/ meltfptr[684], /*_._VALDATA___V678*/ meltfptr[677], /*quasi.cur.mod.env.ref norm.exp.val : SEXPSYN_DOC*/ /* check quasi.cur.mod.env.ref 392341400 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V617*/ meltfptr[616], /*_._VALDATA___V619*/ meltfptr[618], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_EXPORT_VALUES*/ /* check quasi.cur.mod.env.ref 871566719 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V607*/ meltfptr[606], /*_._VALDATA___V609*/ meltfptr[608], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_EXPORTCOMMON*/ /* check quasi.cur.mod.env.ref 1022424758 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V615*/ meltfptr[614], /*_._VALDATA___V612*/ meltfptr[611], /*quasi.cur.mod.env.ref norm.exp.val : SEXPORT_NAMES*/ /* check quasi.cur.mod.env.ref 580510903 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1383*/ meltfptr[1382], /*_._VALDATA___V1385*/ meltfptr[1384], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_EXPRCHUNK*/ /* check quasi.cur.mod.env.ref 172262079 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1391*/ meltfptr[1390], /*_._VALDATA___V1388*/ meltfptr[1387], /*quasi.cur.mod.env.ref norm.exp.val : SXCH_CTYPE*/ /* check quasi.cur.mod.env.ref 690789977 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1339*/ meltfptr[1338], /*_._VALDATA___V1341*/ meltfptr[1340], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_FETCH_PREDEFINED*/ /* check quasi.cur.mod.env.ref 12527664 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1347*/ meltfptr[1346], /*_._VALDATA___V1344*/ meltfptr[1343], /*quasi.cur.mod.env.ref norm.exp.val : SFEPD_PREDEF*/ /* check quasi.cur.mod.env.ref 576313125 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1511*/ meltfptr[1510], /*_._VALDATA___V1513*/ meltfptr[1512], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_FIELD_PATTERN*/ /* check quasi.cur.mod.env.ref 899110210 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1521*/ meltfptr[1520], /*_._VALDATA___V1516*/ meltfptr[1515], /*quasi.cur.mod.env.ref norm.exp.val : SPAF_FIELD*/ /* check quasi.cur.mod.env.ref 150012005 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1523*/ meltfptr[1522], /*_._VALDATA___V1518*/ meltfptr[1517], /*quasi.cur.mod.env.ref norm.exp.val : SPAF_PATTERN*/ /* check quasi.cur.mod.env.ref 687614920 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V957*/ meltfptr[956], /*_._VALDATA___V959*/ meltfptr[958], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_FIELDASSIGN*/ /* check quasi.cur.mod.env.ref 819394461 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V967*/ meltfptr[966], /*_._VALDATA___V962*/ meltfptr[961], /*quasi.cur.mod.env.ref norm.exp.val : SFLA_FIELD*/ /* check quasi.cur.mod.env.ref 188174423 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V969*/ meltfptr[968], /*_._VALDATA___V964*/ meltfptr[963], /*quasi.cur.mod.env.ref norm.exp.val : SFLA_EXPR*/ /* check quasi.cur.mod.env.ref 353189530 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1259*/ meltfptr[1258], /*_._VALDATA___V1261*/ meltfptr[1260], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_FOREVER*/ /* check quasi.cur.mod.env.ref 32476908 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1267*/ meltfptr[1266], /*_._VALDATA___V1264*/ meltfptr[1263], /*quasi.cur.mod.env.ref norm.exp.val : SFRV_BODY*/ /* check quasi.cur.mod.env.ref 831414301 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V457*/ meltfptr[456], /*_._VALDATA___V459*/ meltfptr[458], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_FUNMATCHEXPR*/ /* check quasi.cur.mod.env.ref 652404260 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V467*/ meltfptr[466], /*_._VALDATA___V462*/ meltfptr[461], /*quasi.cur.mod.env.ref norm.exp.val : SFMATX_FMATCHER*/ /* check quasi.cur.mod.env.ref 960330503 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V469*/ meltfptr[468], /*_._VALDATA___V464*/ meltfptr[463], /*quasi.cur.mod.env.ref norm.exp.val : SFMATX_FMATBIND*/ /* check quasi.cur.mod.env.ref 408653397 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V331*/ meltfptr[330], /*_._VALDATA___V335*/ meltfptr[334], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_GENERATOR_DEVICE*/ /* check quasi.cur.mod.env.ref 352019065 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V343*/ meltfptr[342], /*_._VALDATA___V338*/ meltfptr[337], /*quasi.cur.mod.env.ref norm.exp.val : SRCGEN_DEFIN*/ /* check quasi.cur.mod.env.ref 636139776 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V345*/ meltfptr[344], /*_._VALDATA___V340*/ meltfptr[339], /*quasi.cur.mod.env.ref norm.exp.val : SRCGEN_REPR*/ /* check quasi.cur.mod.env.ref 312206597 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V989*/ meltfptr[988], /*_._VALDATA___V991*/ meltfptr[990], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_GET_FIELD*/ /* check quasi.cur.mod.env.ref 1035097878 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V999*/ meltfptr[998], /*_._VALDATA___V994*/ meltfptr[993], /*quasi.cur.mod.env.ref norm.exp.val : SUGET_OBJ*/ /* check quasi.cur.mod.env.ref 891029422 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1001*/ meltfptr[1000], /*_._VALDATA___V996*/ meltfptr[995], /*quasi.cur.mod.env.ref norm.exp.val : SUGET_FIELD*/ /* check quasi.cur.mod.env.ref 445200847 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V405*/ meltfptr[404], /*_._VALDATA___V407*/ meltfptr[406], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_HOOK_CALL*/ /* check quasi.cur.mod.env.ref 250772241 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V413*/ meltfptr[412], /*_._VALDATA___V410*/ meltfptr[409], /*quasi.cur.mod.env.ref norm.exp.val : SHOOK_CALLED*/ /* check quasi.cur.mod.env.ref 300360139 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1029*/ meltfptr[1028], /*_._VALDATA___V1031*/ meltfptr[1030], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_IF*/ /* check quasi.cur.mod.env.ref 663105980 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1039*/ meltfptr[1038], /*_._VALDATA___V1034*/ meltfptr[1033], /*quasi.cur.mod.env.ref norm.exp.val : SIF_TEST*/ /* check quasi.cur.mod.env.ref 130569086 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1041*/ meltfptr[1040], /*_._VALDATA___V1036*/ meltfptr[1035], /*quasi.cur.mod.env.ref norm.exp.val : SIF_THEN*/ /* check quasi.cur.mod.env.ref 941190717 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1043*/ meltfptr[1042], /*_._VALDATA___V1045*/ meltfptr[1044], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_IFELSE*/ /* check quasi.cur.mod.env.ref 670979556 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1051*/ meltfptr[1050], /*_._VALDATA___V1048*/ meltfptr[1047], /*quasi.cur.mod.env.ref norm.exp.val : SIF_ELSE*/ /* check quasi.cur.mod.env.ref 106382902 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1213*/ meltfptr[1212], /*_._VALDATA___V1215*/ meltfptr[1214], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_IFVARIADIC*/ /* check quasi.cur.mod.env.ref 543728039 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1225*/ meltfptr[1224], /*_._VALDATA___V1218*/ meltfptr[1217], /*quasi.cur.mod.env.ref norm.exp.val : SIFVARIADIC_ARGBIND*/ /* check quasi.cur.mod.env.ref 162372938 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1227*/ meltfptr[1226], /*_._VALDATA___V1220*/ meltfptr[1219], /*quasi.cur.mod.env.ref norm.exp.val : SIFVARIADIC_THEN*/ /* check quasi.cur.mod.env.ref 218628887 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1229*/ meltfptr[1228], /*_._VALDATA___V1222*/ meltfptr[1221], /*quasi.cur.mod.env.ref norm.exp.val : SIFVARIADIC_ELSE*/ /* check quasi.cur.mod.env.ref 223405920 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V971*/ meltfptr[970], /*_._VALDATA___V973*/ meltfptr[972], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_INSTANCE*/ /* check quasi.cur.mod.env.ref 206098504 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V983*/ meltfptr[982], /*_._VALDATA___V976*/ meltfptr[975], /*quasi.cur.mod.env.ref norm.exp.val : SMINS_CLASS*/ /* check quasi.cur.mod.env.ref 755121500 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V985*/ meltfptr[984], /*_._VALDATA___V978*/ meltfptr[977], /*quasi.cur.mod.env.ref norm.exp.val : SMINS_CLABIND*/ /* check quasi.cur.mod.env.ref 520494829 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V987*/ meltfptr[986], /*_._VALDATA___V980*/ meltfptr[979], /*quasi.cur.mod.env.ref norm.exp.val : SMINS_FIELDS*/ /* check quasi.cur.mod.env.ref 1057219068 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1249*/ meltfptr[1248], /*_._VALDATA___V1251*/ meltfptr[1250], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_LABELLED*/ /* check quasi.cur.mod.env.ref 125100708 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1257*/ meltfptr[1256], /*_._VALDATA___V1254*/ meltfptr[1253], /*quasi.cur.mod.env.ref norm.exp.val : SLABEL_BIND*/ /* check quasi.cur.mod.env.ref 1071539793 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1189*/ meltfptr[1188], /*_._VALDATA___V1191*/ meltfptr[1190], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_LAMBDA*/ /* check quasi.cur.mod.env.ref 277091436 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1199*/ meltfptr[1198], /*_._VALDATA___V1194*/ meltfptr[1193], /*quasi.cur.mod.env.ref norm.exp.val : SLAM_ARGBIND*/ /* check quasi.cur.mod.env.ref 631182763 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1201*/ meltfptr[1200], /*_._VALDATA___V1196*/ meltfptr[1195], /*quasi.cur.mod.env.ref norm.exp.val : SLAM_BODY*/ /* check quasi.cur.mod.env.ref 762068803 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1203*/ meltfptr[1202], /*_._VALDATA___V1205*/ meltfptr[1204], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_LAMBDA_FOR_MACRO*/ /* check quasi.cur.mod.env.ref 200988855 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1211*/ meltfptr[1210], /*_._VALDATA___V1208*/ meltfptr[1207], /*quasi.cur.mod.env.ref norm.exp.val : SLAM_ORIGMACRO*/ /* check quasi.cur.mod.env.ref 846681067 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V347*/ meltfptr[346], /*_._VALDATA___V349*/ meltfptr[348], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_LAZY_MACRO_EXPANSION*/ /* check quasi.cur.mod.env.ref 544390643 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V357*/ meltfptr[356], /*_._VALDATA___V352*/ meltfptr[351], /*quasi.cur.mod.env.ref norm.exp.val : SLAZYMACRO_FUN*/ /* check quasi.cur.mod.env.ref 426934029 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V359*/ meltfptr[358], /*_._VALDATA___V354*/ meltfptr[353], /*quasi.cur.mod.env.ref norm.exp.val : SLAZYMACRO_OPER*/ /* check quasi.cur.mod.env.ref 854455137 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1169*/ meltfptr[1168], /*_._VALDATA___V1171*/ meltfptr[1170], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_LET*/ /* check quasi.cur.mod.env.ref 981512444 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1179*/ meltfptr[1178], /*_._VALDATA___V1174*/ meltfptr[1173], /*quasi.cur.mod.env.ref norm.exp.val : SLET_BINDINGS*/ /* check quasi.cur.mod.env.ref 85533162 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1181*/ meltfptr[1180], /*_._VALDATA___V1176*/ meltfptr[1175], /*quasi.cur.mod.env.ref norm.exp.val : SLET_BODY*/ /* check quasi.cur.mod.env.ref 922885514 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1139*/ meltfptr[1138], /*_._VALDATA___V1141*/ meltfptr[1140], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_LET_BINDING*/ /* check quasi.cur.mod.env.ref 98791069 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1149*/ meltfptr[1148], /*_._VALDATA___V1144*/ meltfptr[1143], /*quasi.cur.mod.env.ref norm.exp.val : SLETB_TYPE*/ /* check quasi.cur.mod.env.ref 938769531 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1151*/ meltfptr[1150], /*_._VALDATA___V1146*/ meltfptr[1145], /*quasi.cur.mod.env.ref norm.exp.val : SLETB_EXPR*/ /* check quasi.cur.mod.env.ref 169627766 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1153*/ meltfptr[1152], /*_._VALDATA___V1155*/ meltfptr[1154], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_LET_BINDING_FOR_MACRO*/ /* check quasi.cur.mod.env.ref 785991742 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1161*/ meltfptr[1160], /*_._VALDATA___V1158*/ meltfptr[1157], /*quasi.cur.mod.env.ref norm.exp.val : SLETFM_MACROLETBIND*/ /* check quasi.cur.mod.env.ref 969085709 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1183*/ meltfptr[1182], /*_._VALDATA___V1185*/ meltfptr[1184], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_LETREC*/ /* check quasi.cur.mod.env.ref 340486332 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1163*/ meltfptr[1162], /*_._VALDATA___V1165*/ meltfptr[1164], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_LETREC_BINDING*/ /* check quasi.cur.mod.env.ref 528297783 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V477*/ meltfptr[476], /*_._VALDATA___V479*/ meltfptr[478], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_LIST*/ /* check quasi.cur.mod.env.ref 783821608 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1125*/ meltfptr[1124], /*_._VALDATA___V1127*/ meltfptr[1126], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_MACRO_LET_BINDING*/ /* check quasi.cur.mod.env.ref 753222169 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1135*/ meltfptr[1134], /*_._VALDATA___V1130*/ meltfptr[1129], /*quasi.cur.mod.env.ref norm.exp.val : SLETM_MACRO_FORMALS*/ /* check quasi.cur.mod.env.ref 266888666 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1137*/ meltfptr[1136], /*_._VALDATA___V1132*/ meltfptr[1131], /*quasi.cur.mod.env.ref norm.exp.val : SLETM_MACRO_BODY*/ /* check quasi.cur.mod.env.ref 340967946 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V773*/ meltfptr[772], /*_._VALDATA___V775*/ meltfptr[774], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_MACRO_INSTALLATION*/ /* check quasi.cur.mod.env.ref 988100706 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V783*/ meltfptr[782], /*_._VALDATA___V778*/ meltfptr[777], /*quasi.cur.mod.env.ref norm.exp.val : SMACINST_DEFMACRO*/ /* check quasi.cur.mod.env.ref 1053148677 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V785*/ meltfptr[784], /*_._VALDATA___V780*/ meltfptr[779], /*quasi.cur.mod.env.ref norm.exp.val : SMACINST_ENV*/ /* check quasi.cur.mod.env.ref 882361379 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1081*/ meltfptr[1080], /*_._VALDATA___V1083*/ meltfptr[1082], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_MATCH*/ /* check quasi.cur.mod.env.ref 40972595 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1091*/ meltfptr[1090], /*_._VALDATA___V1086*/ meltfptr[1085], /*quasi.cur.mod.env.ref norm.exp.val : SMAT_MATCHEDX*/ /* check quasi.cur.mod.env.ref 101124315 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1093*/ meltfptr[1092], /*_._VALDATA___V1088*/ meltfptr[1087], /*quasi.cur.mod.env.ref norm.exp.val : SMAT_CASES*/ /* check quasi.cur.mod.env.ref 502071212 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1101*/ meltfptr[1100], /*_._VALDATA___V1103*/ meltfptr[1102], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_MATCH_CASE*/ /* check quasi.cur.mod.env.ref 737282728 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1111*/ meltfptr[1110], /*_._VALDATA___V1106*/ meltfptr[1105], /*quasi.cur.mod.env.ref norm.exp.val : SCAM_PATT*/ /* check quasi.cur.mod.env.ref 709276704 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1113*/ meltfptr[1112], /*_._VALDATA___V1108*/ meltfptr[1107], /*quasi.cur.mod.env.ref norm.exp.val : SCAM_BODY*/ /* check quasi.cur.mod.env.ref 821859384 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1095*/ meltfptr[1094], /*_._VALDATA___V1097*/ meltfptr[1096], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_MATCHALT*/ /* check quasi.cur.mod.env.ref 874850256 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V533*/ meltfptr[532], /*_._VALDATA___V535*/ meltfptr[534], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE*/ /* check quasi.cur.mod.env.ref 251727849 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V381*/ meltfptr[380], /*_._VALDATA___V383*/ meltfptr[382], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_MSEND*/ /* check quasi.cur.mod.env.ref 813770445 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V391*/ meltfptr[390], /*_._VALDATA___V386*/ meltfptr[385], /*quasi.cur.mod.env.ref norm.exp.val : MSEND_SELSYMB*/ /* check quasi.cur.mod.env.ref 708025809 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V393*/ meltfptr[392], /*_._VALDATA___V388*/ meltfptr[387], /*quasi.cur.mod.env.ref norm.exp.val : MSEND_RECV*/ /* check quasi.cur.mod.env.ref 447019540 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1231*/ meltfptr[1230], /*_._VALDATA___V1233*/ meltfptr[1232], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_MULTICALL*/ /* check quasi.cur.mod.env.ref 306709159 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1243*/ meltfptr[1242], /*_._VALDATA___V1236*/ meltfptr[1235], /*quasi.cur.mod.env.ref norm.exp.val : SMULC_RESBIND*/ /* check quasi.cur.mod.env.ref 825864144 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1245*/ meltfptr[1244], /*_._VALDATA___V1238*/ meltfptr[1237], /*quasi.cur.mod.env.ref norm.exp.val : SMULC_CALL*/ /* check quasi.cur.mod.env.ref 28464336 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1247*/ meltfptr[1246], /*_._VALDATA___V1240*/ meltfptr[1239], /*quasi.cur.mod.env.ref norm.exp.val : SMULC_BODY*/ /* check quasi.cur.mod.env.ref 314752913 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1053*/ meltfptr[1052], /*_._VALDATA___V1055*/ meltfptr[1054], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_OR*/ /* check quasi.cur.mod.env.ref 666841291 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1061*/ meltfptr[1060], /*_._VALDATA___V1058*/ meltfptr[1057], /*quasi.cur.mod.env.ref norm.exp.val : SOR_DISJ*/ /* check quasi.cur.mod.env.ref 66354427 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1323*/ meltfptr[1322], /*_._VALDATA___V1325*/ meltfptr[1324], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT*/ /* check quasi.cur.mod.env.ref 565986669 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1393*/ meltfptr[1392], /*_._VALDATA___V1395*/ meltfptr[1394], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_PATTERN*/ /* check quasi.cur.mod.env.ref 228740873 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1401*/ meltfptr[1400], /*_._VALDATA___V1398*/ meltfptr[1397], /*quasi.cur.mod.env.ref norm.exp.val : PAT_WEIGHT*/ /* check quasi.cur.mod.env.ref 1066564219 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1413*/ meltfptr[1412], /*_._VALDATA___V1415*/ meltfptr[1414], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_PATTERN_AND*/ /* check quasi.cur.mod.env.ref 693714080 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1421*/ meltfptr[1420], /*_._VALDATA___V1418*/ meltfptr[1417], /*quasi.cur.mod.env.ref norm.exp.val : ANDPAT_CONJ*/ /* check quasi.cur.mod.env.ref 650893645 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1553*/ meltfptr[1552], /*_._VALDATA___V1555*/ meltfptr[1554], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_PATTERN_C_MATCH*/ /* check quasi.cur.mod.env.ref 902183107 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1525*/ meltfptr[1524], /*_._VALDATA___V1527*/ meltfptr[1526], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_PATTERN_COMPOSITE*/ /* check quasi.cur.mod.env.ref 916291396 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1539*/ meltfptr[1538], /*_._VALDATA___V1530*/ meltfptr[1529], /*quasi.cur.mod.env.ref norm.exp.val : SPAC_OPERATOR*/ /* check quasi.cur.mod.env.ref 96835964 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1541*/ meltfptr[1540], /*_._VALDATA___V1532*/ meltfptr[1531], /*quasi.cur.mod.env.ref norm.exp.val : SPAC_OPERBIND*/ /* check quasi.cur.mod.env.ref 497599745 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1543*/ meltfptr[1542], /*_._VALDATA___V1534*/ meltfptr[1533], /*quasi.cur.mod.env.ref norm.exp.val : SPAC_INARGS*/ /* check quasi.cur.mod.env.ref 639103995 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1545*/ meltfptr[1544], /*_._VALDATA___V1536*/ meltfptr[1535], /*quasi.cur.mod.env.ref norm.exp.val : SPAC_OUTARGS*/ /* check quasi.cur.mod.env.ref 718975850 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1459*/ meltfptr[1458], /*_._VALDATA___V1461*/ meltfptr[1460], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_PATTERN_CONSTANT*/ /* check quasi.cur.mod.env.ref 1063100219 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1467*/ meltfptr[1466], /*_._VALDATA___V1464*/ meltfptr[1463], /*quasi.cur.mod.env.ref norm.exp.val : SPAT_CONSTX*/ /* check quasi.cur.mod.env.ref 181461155 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1469*/ meltfptr[1468], /*_._VALDATA___V1471*/ meltfptr[1470], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_PATTERN_CONSTRUCT*/ /* check quasi.cur.mod.env.ref 779912189 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1477*/ meltfptr[1476], /*_._VALDATA___V1474*/ meltfptr[1473], /*quasi.cur.mod.env.ref norm.exp.val : CTPAT_SUBPA*/ /* check quasi.cur.mod.env.ref 342010708 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1505*/ meltfptr[1504], /*_._VALDATA___V1507*/ meltfptr[1506], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_PATTERN_INSTANCE*/ /* check quasi.cur.mod.env.ref 363236765 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1453*/ meltfptr[1452], /*_._VALDATA___V1455*/ meltfptr[1454], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_PATTERN_JOKER_VARIABLE*/ /* check quasi.cur.mod.env.ref 945031572 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1485*/ meltfptr[1484], /*_._VALDATA___V1487*/ meltfptr[1486], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_PATTERN_LIST*/ /* check quasi.cur.mod.env.ref 939698902 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1547*/ meltfptr[1546], /*_._VALDATA___V1549*/ meltfptr[1548], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_PATTERN_MATCHER*/ /* check quasi.cur.mod.env.ref 223283996 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1491*/ meltfptr[1490], /*_._VALDATA___V1493*/ meltfptr[1492], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_PATTERN_OBJECT*/ /* check quasi.cur.mod.env.ref 1017593915 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1501*/ meltfptr[1500], /*_._VALDATA___V1496*/ meltfptr[1495], /*quasi.cur.mod.env.ref norm.exp.val : SPAT_CLASS*/ /* check quasi.cur.mod.env.ref 164416346 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1503*/ meltfptr[1502], /*_._VALDATA___V1498*/ meltfptr[1497], /*quasi.cur.mod.env.ref norm.exp.val : SPAT_FIELDS*/ /* check quasi.cur.mod.env.ref 29712303 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1403*/ meltfptr[1402], /*_._VALDATA___V1405*/ meltfptr[1404], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_PATTERN_OR*/ /* check quasi.cur.mod.env.ref 435726396 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1411*/ meltfptr[1410], /*_._VALDATA___V1408*/ meltfptr[1407], /*quasi.cur.mod.env.ref norm.exp.val : ORPAT_DISJ*/ /* check quasi.cur.mod.env.ref 480112881 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1479*/ meltfptr[1478], /*_._VALDATA___V1481*/ meltfptr[1480], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_PATTERN_TUPLE*/ /* check quasi.cur.mod.env.ref 174501277 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1437*/ meltfptr[1436], /*_._VALDATA___V1439*/ meltfptr[1438], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_PATTERN_VARIABLE*/ /* check quasi.cur.mod.env.ref 425778879 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1447*/ meltfptr[1446], /*_._VALDATA___V1442*/ meltfptr[1441], /*quasi.cur.mod.env.ref norm.exp.val : SPATVAR_SYMB*/ /* check quasi.cur.mod.env.ref 700091227 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1449*/ meltfptr[1448], /*_._VALDATA___V1444*/ meltfptr[1443], /*quasi.cur.mod.env.ref norm.exp.val : SPATVAR_NBOCC*/ /* check quasi.cur.mod.env.ref 641055456 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V395*/ meltfptr[394], /*_._VALDATA___V397*/ meltfptr[396], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_PRIMITIVE*/ /* check quasi.cur.mod.env.ref 369632584 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V403*/ meltfptr[402], /*_._VALDATA___V400*/ meltfptr[399], /*quasi.cur.mod.env.ref norm.exp.val : SPRIM_OPER*/ /* check quasi.cur.mod.env.ref 569526499 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V483*/ meltfptr[482], /*_._VALDATA___V485*/ meltfptr[484], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_PROGN*/ /* check quasi.cur.mod.env.ref 549691454 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V491*/ meltfptr[490], /*_._VALDATA___V488*/ meltfptr[487], /*quasi.cur.mod.env.ref norm.exp.val : SPROGN_BODY*/ /* check quasi.cur.mod.env.ref 208069655 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1363*/ meltfptr[1362], /*_._VALDATA___V1365*/ meltfptr[1364], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_PROTOCHUNK*/ /* check quasi.cur.mod.env.ref 165234372 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1373*/ meltfptr[1372], /*_._VALDATA___V1368*/ meltfptr[1367], /*quasi.cur.mod.env.ref norm.exp.val : SCH_GENSYM*/ /* check quasi.cur.mod.env.ref 212429013 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1375*/ meltfptr[1374], /*_._VALDATA___V1370*/ meltfptr[1369], /*quasi.cur.mod.env.ref norm.exp.val : SCH_CHUNKS*/ /* check quasi.cur.mod.env.ref 632226259 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1009*/ meltfptr[1008], /*_._VALDATA___V1011*/ meltfptr[1010], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_PUT_FIELDS*/ /* check quasi.cur.mod.env.ref 695440343 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1019*/ meltfptr[1018], /*_._VALDATA___V1014*/ meltfptr[1013], /*quasi.cur.mod.env.ref norm.exp.val : SUPUT_OBJ*/ /* check quasi.cur.mod.env.ref 882997081 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1021*/ meltfptr[1020], /*_._VALDATA___V1016*/ meltfptr[1015], /*quasi.cur.mod.env.ref norm.exp.val : SUPUT_FIELDS*/ /* check quasi.cur.mod.env.ref 630838270 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V571*/ meltfptr[570], /*_._VALDATA___V573*/ meltfptr[572], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_QUASI_BOX*/ /* check quasi.cur.mod.env.ref 397865055 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V579*/ meltfptr[578], /*_._VALDATA___V576*/ meltfptr[575], /*quasi.cur.mod.env.ref norm.exp.val : SBOXED*/ /* check quasi.cur.mod.env.ref 576666489 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V561*/ meltfptr[560], /*_._VALDATA___V563*/ meltfptr[562], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_QUOTE*/ /* check quasi.cur.mod.env.ref 234191783 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V569*/ meltfptr[568], /*_._VALDATA___V566*/ meltfptr[565], /*quasi.cur.mod.env.ref norm.exp.val : SQUOTED*/ /* check quasi.cur.mod.env.ref 743718129 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V493*/ meltfptr[492], /*_._VALDATA___V495*/ meltfptr[494], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_RETURN*/ /* check quasi.cur.mod.env.ref 411082705 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V499*/ meltfptr[498], /*_._VALDATA___V501*/ meltfptr[500], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_SETQ*/ /* check quasi.cur.mod.env.ref 812750837 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V509*/ meltfptr[508], /*_._VALDATA___V504*/ meltfptr[503], /*quasi.cur.mod.env.ref norm.exp.val : SSTQ_VAR*/ /* check quasi.cur.mod.env.ref 185360713 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V511*/ meltfptr[510], /*_._VALDATA___V506*/ meltfptr[505], /*quasi.cur.mod.env.ref norm.exp.val : SSTQ_EXPR*/ /* check quasi.cur.mod.env.ref 897740157 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1349*/ meltfptr[1348], /*_._VALDATA___V1351*/ meltfptr[1350], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_STORE_PREDEFINED*/ /* check quasi.cur.mod.env.ref 550972455 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1359*/ meltfptr[1358], /*_._VALDATA___V1354*/ meltfptr[1353], /*quasi.cur.mod.env.ref norm.exp.val : SSTPD_PREDEF*/ /* check quasi.cur.mod.env.ref 91148808 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1361*/ meltfptr[1360], /*_._VALDATA___V1356*/ meltfptr[1355], /*quasi.cur.mod.env.ref norm.exp.val : SSTPD_VALUE*/ /* check quasi.cur.mod.env.ref 376234385 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V471*/ meltfptr[470], /*_._VALDATA___V473*/ meltfptr[472], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_TUPLE*/ /* check quasi.cur.mod.env.ref 988282470 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V593*/ meltfptr[592], /*_._VALDATA___V595*/ meltfptr[594], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_UNBOX*/ /* check quasi.cur.mod.env.ref 38937094 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V603*/ meltfptr[602], /*_._VALDATA___V598*/ meltfptr[597], /*quasi.cur.mod.env.ref norm.exp.val : SUNBOX_CTYPE*/ /* check quasi.cur.mod.env.ref 499966714 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V605*/ meltfptr[604], /*_._VALDATA___V600*/ meltfptr[599], /*quasi.cur.mod.env.ref norm.exp.val : SUNBOX_EXPR*/ /* check quasi.cur.mod.env.ref 396229478 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1003*/ meltfptr[1002], /*_._VALDATA___V1005*/ meltfptr[1004], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_UNSAFE_GET_FIELD*/ /* check quasi.cur.mod.env.ref 828867257 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1023*/ meltfptr[1022], /*_._VALDATA___V1025*/ meltfptr[1024], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_UNSAFE_PUT_FIELDS*/ /* check quasi.cur.mod.env.ref 653797727 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1329*/ meltfptr[1328], /*_._VALDATA___V1331*/ meltfptr[1330], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE*/ /* check quasi.cur.mod.env.ref 586351618 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1337*/ meltfptr[1336], /*_._VALDATA___V1334*/ meltfptr[1333], /*quasi.cur.mod.env.ref norm.exp.val : SUCME_COMMENT*/ /* check quasi.cur.mod.env.ref 314352194 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V551*/ meltfptr[550], /*_._VALDATA___V553*/ meltfptr[552], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG*/ /* check quasi.cur.mod.env.ref 916421827 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V559*/ meltfptr[558], /*_._VALDATA___V556*/ meltfptr[555], /*quasi.cur.mod.env.ref norm.exp.val : SUSEPACKAGE_PKGTUPLE*/ /* check quasi.cur.mod.env.ref 663781444 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:9265:/ initchunk"); /*^block*/ /*anyblock*/ { /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V2210*/ meltfptr[2209], /*_._VALDATA___V1331*/ meltfptr[1330], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ /* check quasi.cur.mod.env.ref 426280425 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:9269:/ initchunk"); /*^block*/ /*anyblock*/ { /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V2212*/ meltfptr[2211], /*_._VALDATA___V1315*/ meltfptr[1314], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ /* check quasi.cur.mod.env.ref 525684713 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*epilog*/ } MELT_LOCATION("warmelt-macro.melt:9273:/ initchunk"); /*^block*/ /*anyblock*/ { /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V2214*/ meltfptr[2213], /*_._VALCLO___V1601*/ meltfptr[1600], /*quasi.cur.mod.env.ref norm.exp.val : EXPAND_APPLY*/ /* check quasi.cur.mod.env.ref 502280002 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V2216*/ meltfptr[2215], /*_._VALCLO___V1605*/ meltfptr[1604], /*quasi.cur.mod.env.ref norm.exp.val : EXPAND_MSEND*/ /* check quasi.cur.mod.env.ref 679269920 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V2218*/ meltfptr[2217], /*_._VALCLO___V1593*/ meltfptr[1592], /*quasi.cur.mod.env.ref norm.exp.val : EXPAND_PAIRLIST_AS_TUPLE*/ /* check quasi.cur.mod.env.ref 1037871628 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V2220*/ meltfptr[2219], /*_._VALCLO___V1591*/ meltfptr[1590], /*quasi.cur.mod.env.ref norm.exp.val : EXPAND_PAIRLIST_AS_LIST*/ /* check quasi.cur.mod.env.ref 204710036 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V2222*/ meltfptr[2221], /*_._VALCLO___V1585*/ meltfptr[1584], /*quasi.cur.mod.env.ref norm.exp.val : EXPAND_RESTLIST_AS_LIST*/ /* check quasi.cur.mod.env.ref 187992582 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V2224*/ meltfptr[2223], /*_._VALCLO___V1589*/ meltfptr[1588], /*quasi.cur.mod.env.ref norm.exp.val : EXPAND_RESTLIST_AS_TUPLE*/ /* check quasi.cur.mod.env.ref 506629769 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V2226*/ meltfptr[2225], /*_._VALCLO___V1595*/ meltfptr[1594], /*quasi.cur.mod.env.ref norm.exp.val : EXPAND_TUPLE_SLICE_AS_TUPLE*/ /* check quasi.cur.mod.env.ref 824840197 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V2228*/ meltfptr[2227], /*_._VALCLO___V1637*/ meltfptr[1636], /*quasi.cur.mod.env.ref norm.exp.val : EXPAND_PRIMITIVE*/ /* check quasi.cur.mod.env.ref 538125064 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V2230*/ meltfptr[2229], /*_._VALHOOK___V1795*/ meltfptr[1794], /*quasi.cur.mod.env.ref norm.exp.val : HOOK_MACRO_INSTALLER*/ /* check quasi.cur.mod.env.ref 235792158 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V2232*/ meltfptr[2231], /*_._VALCLO___V1736*/ meltfptr[1735], /*quasi.cur.mod.env.ref norm.exp.val : INSTALL_INITIAL_MACRO*/ /* check quasi.cur.mod.env.ref 1033991251 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V2234*/ meltfptr[2233], /*_._VALCLO___V1740*/ meltfptr[1739], /*quasi.cur.mod.env.ref norm.exp.val : INSTALL_INITIAL_PATMACRO*/ /* check quasi.cur.mod.env.ref 453841635 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V2236*/ meltfptr[2235], /*_._VALCLO___V1573*/ meltfptr[1572], /*quasi.cur.mod.env.ref norm.exp.val : INSTALL_GLOBAL_DEFINITION_BINDING*/ /* check quasi.cur.mod.env.ref 97435471 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V321*/ meltfptr[320], /*_._VALDATA___V329*/ meltfptr[328], /*quasi.cur.mod.env.ref norm.exp.val : IS_RECURSIVELY_CONSTRUCTIBLE*/ /* check quasi.cur.mod.env.ref 990858911 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V2238*/ meltfptr[2237], /*_._VALCLO___V1611*/ meltfptr[1610], /*quasi.cur.mod.env.ref norm.exp.val : LAMBDA_ARG_BINDINGS*/ /* check quasi.cur.mod.env.ref 513204031 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V2240*/ meltfptr[2239], /*_._VALCLO___V1642*/ meltfptr[1641], /*quasi.cur.mod.env.ref norm.exp.val : MACROEXPAND_1*/ /* check quasi.cur.mod.env.ref 894394299 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V2242*/ meltfptr[2241], /*_._VALCLO___V1724*/ meltfptr[1723], /*quasi.cur.mod.env.ref norm.exp.val : MACROEXPAND_TOPLEVEL_LIST*/ /* check quasi.cur.mod.env.ref 520635171 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V2244*/ meltfptr[2243], /*_._VALCLO___V1759*/ meltfptr[1758], /*quasi.cur.mod.env.ref norm.exp.val : MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS*/ /* check quasi.cur.mod.env.ref 310819624 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V2246*/ meltfptr[2245], /*_._VALCLO___V1703*/ meltfptr[1702], /*quasi.cur.mod.env.ref norm.exp.val : PATMACEXPAND_FOR_MATCHER*/ /* check quasi.cur.mod.env.ref 330415948 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V2248*/ meltfptr[2247], /*_._VALCLO___V1692*/ meltfptr[1691], /*quasi.cur.mod.env.ref norm.exp.val : PATTERNEXPAND_1*/ /* check quasi.cur.mod.env.ref 392948842 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V2250*/ meltfptr[2249], /*_._VALCLO___V1701*/ meltfptr[1700], /*quasi.cur.mod.env.ref norm.exp.val : PATTERNEXPAND_EXPR*/ /* check quasi.cur.mod.env.ref 68146017 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V2252*/ meltfptr[2251], /*_._VALCLO___V1712*/ meltfptr[1711], /*quasi.cur.mod.env.ref norm.exp.val : PATTERNEXPAND_PAIRLIST_AS_TUPLE*/ /* check quasi.cur.mod.env.ref 106021684 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V2254*/ meltfptr[2253], /*_._VALCLO___V1707*/ meltfptr[1706], /*quasi.cur.mod.env.ref norm.exp.val : PATTERN_WEIGHT_TUPLE*/ /* check quasi.cur.mod.env.ref 126724162 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V2256*/ meltfptr[2255], /*_._VALCLO___V1599*/ meltfptr[1598], /*quasi.cur.mod.env.ref norm.exp.val : REGISTER_GENERATOR_DEVICE*/ /* check quasi.cur.mod.env.ref 734121743 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V2258*/ meltfptr[2257], /*_._VALCLO___V1569*/ meltfptr[1568], /*quasi.cur.mod.env.ref norm.exp.val : S_EXPR_WEIGHT*/ /* check quasi.cur.mod.env.ref 235590743 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V2260*/ meltfptr[2259], /*_._VALCLO___V1972*/ meltfptr[1971], /*quasi.cur.mod.env.ref norm.exp.val : MEXPAND_REFERENCE*/ /* check quasi.cur.mod.env.ref 1007164206 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V2262*/ meltfptr[2261], /*_._VALCLO___V1977*/ meltfptr[1976], /*quasi.cur.mod.env.ref norm.exp.val : PATEXPAND_REFERENCE*/ /* check quasi.cur.mod.env.ref 367951780 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*epilog*/ } /**COMMENT: after toplevel body **/; /**COMMENT: compute boxloc again **/; /*cond*/ if (/*_._CONTENV___V2*/ meltfptr[1]) /*then*/ { } else /*^cond.else*/ { /*^compute*/ /* compile2obj_initproc emitted initialization of environment reference for warmelt-macro */ if (/*_._PREVENV___V4*/ meltfptr[3]) { /*_._CONTENV___V2*/ meltfptr[1] = melthookproc_HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER ((melt_ptr_t) /*_._PREVENV___V4*/ meltfptr[3], "warmelt-macro") ; } else /* no prevenv */ { #if MELT_HAS_INITIAL_ENVIRONMENT>0 if (!melt_flag_bootstrapping) warning(0, "MELT is not creating a fresh environment reference for warmelt-macro without parent env.") ; #endif /* MELT_HAS_INITIAL_ENVIRONMENT>0 */ } ;; } /**COMMENT: intern symbols **/; /*internsym:HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V95*/ meltfptr[94])); /*internsym:CLASS_DIAGNOSTIC_STATE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V107*/ meltfptr[106])); /*internsym:CLASS_LOCATED*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V109*/ meltfptr[108])); /*internsym:DIAG_VECT*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V121*/ meltfptr[120])); /*internsym:DIAG_POSITION*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V123*/ meltfptr[122])); /*internsym:DIAG_STATE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V125*/ meltfptr[124])); /*internsym:DISCR_DIAGNOSTIC_CLOSURE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V127*/ meltfptr[126])); /*internsym:CLASS_DISCRIMINANT*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V129*/ meltfptr[128])); /*internsym:DISCR_CLOSURE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V133*/ meltfptr[132])); /*internsym:MELT_DEBUG_FUN*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V269*/ meltfptr[268])); /*internsym:CLASS_SEXPR*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V271*/ meltfptr[270])); /*internsym:MELT_ASSERT_FAILURE_FUN*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V273*/ meltfptr[272])); /*internsym:LIST_TO_MULTIPLE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V275*/ meltfptr[274])); /*internsym:DISCR_MULTIPLE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V277*/ meltfptr[276])); /*internsym:STRING4OUT*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V190*/ meltfptr[189])); /*internsym:DISCR_STRING*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V192*/ meltfptr[191])); /*internsym:CLASS_SYMBOL*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V279*/ meltfptr[278])); /*internsym:MELT_MAKE_SEXPR*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V281*/ meltfptr[280])); /*internsym:HOOK_MELT_MAKE_LOCATION*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V283*/ meltfptr[282])); /*internsym:LET*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V136*/ meltfptr[135])); /*internsym:DIAGPOSBOX*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V138*/ meltfptr[137])); /*internsym:BOX*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V140*/ meltfptr[139])); /*internsym:DIAGSTATE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V142*/ meltfptr[141])); /*internsym:INSTANCE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V144*/ meltfptr[143])); /*internkeyw:LOCA_LOCATION*/ (void) melthookproc_HOOK_INTERN_KEYWORD ((melt_ptr_t)(/*_._VALDATA___V146*/ meltfptr[145])); #undef meltfram__ } /*end of meltmod__WARMELTmiMACRO__initialmeltchunk_51*/ void meltmod__WARMELTmiMACRO__initialmeltchunk_52 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; /*internkeyw:DIAG_VECT*/ (void) melthookproc_HOOK_INTERN_KEYWORD ((melt_ptr_t)(/*_._VALDATA___V148*/ meltfptr[147])); /*internkeyw:DIAG_POSITION*/ (void) melthookproc_HOOK_INTERN_KEYWORD ((melt_ptr_t)(/*_._VALDATA___V150*/ meltfptr[149])); /*internkeyw:DIAG_STATE*/ (void) melthookproc_HOOK_INTERN_KEYWORD ((melt_ptr_t)(/*_._VALDATA___V152*/ meltfptr[151])); /*internsym:MAKE_MAPOBJECT*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V154*/ meltfptr[153])); /*internsym:DISCR_MAP_OBJECTS*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V156*/ meltfptr[155])); /*internsym:SETQ*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V158*/ meltfptr[157])); /*internsym:FOREVER*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V160*/ meltfptr[159])); /*internsym:ARGLOOP*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V162*/ meltfptr[161])); /*internsym:PUT_INT*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V164*/ meltfptr[163])); /*internsym:VARIADIC*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V166*/ meltfptr[165])); /*internsym:EXIT*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V168*/ meltfptr[167])); /*internkeyw:CSTRING*/ (void) melthookproc_HOOK_INTERN_KEYWORD ((melt_ptr_t)(/*_._VALDATA___V170*/ meltfptr[169])); /*internsym:STR*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V172*/ meltfptr[171])); /*internsym:BS*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V174*/ meltfptr[173])); /*internsym:CONSTANT_BOX*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V176*/ meltfptr[175])); /*internsym:+*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V178*/ meltfptr[177])); /*internsym:MULTIPLE_PUT_NTH*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V180*/ meltfptr[179])); /*internsym:VOID*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V182*/ meltfptr[181])); /*internkeyw:LONG*/ (void) melthookproc_HOOK_INTERN_KEYWORD ((melt_ptr_t)(/*_._VALDATA___V184*/ meltfptr[183])); /*internsym:L*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V186*/ meltfptr[185])); /*internsym:SN*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V188*/ meltfptr[187])); /*internkeyw:TREE*/ (void) melthookproc_HOOK_INTERN_KEYWORD ((melt_ptr_t)(/*_._VALDATA___V194*/ meltfptr[193])); /*internsym:TR*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V196*/ meltfptr[195])); /*internsym:ASSERT_MSG*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V198*/ meltfptr[197])); /*internsym:IS_CLOSURE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V200*/ meltfptr[199])); /*internsym:DIAGV_TREE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V202*/ meltfptr[201])); /*internsym:S*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V204*/ meltfptr[203])); /*internkeyw:GIMPLE*/ (void) melthookproc_HOOK_INTERN_KEYWORD ((melt_ptr_t)(/*_._VALDATA___V206*/ meltfptr[205])); /*internsym:GI*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V208*/ meltfptr[207])); /*internsym:DIAGV_GIMPLE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V210*/ meltfptr[209])); /*internkeyw:GIMPLE_SEQ*/ (void) melthookproc_HOOK_INTERN_KEYWORD ((melt_ptr_t)(/*_._VALDATA___V212*/ meltfptr[211])); /*internsym:GS*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V214*/ meltfptr[213])); /*internsym:DIAGV_GIMPLE_SEQ*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V216*/ meltfptr[215])); /*internkeyw:BASIC_BLOCK*/ (void) melthookproc_HOOK_INTERN_KEYWORD ((melt_ptr_t)(/*_._VALDATA___V218*/ meltfptr[217])); /*internsym:BB*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V220*/ meltfptr[219])); /*internsym:DIAGV_BASIC_BLOCK*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V222*/ meltfptr[221])); /*internkeyw:EDGE*/ (void) melthookproc_HOOK_INTERN_KEYWORD ((melt_ptr_t)(/*_._VALDATA___V224*/ meltfptr[223])); /*internsym:ED*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V226*/ meltfptr[225])); /*internsym:DIAGV_EDGE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V228*/ meltfptr[227])); /*internkeyw:VALUE*/ (void) melthookproc_HOOK_INTERN_KEYWORD ((melt_ptr_t)(/*_._VALDATA___V230*/ meltfptr[229])); /*internsym:V*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V232*/ meltfptr[231])); /*internsym:COND*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V234*/ meltfptr[233])); /*internsym:IS_INTEGERBOX*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V236*/ meltfptr[235])); /*internsym:GET_INT*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V238*/ meltfptr[237])); /*internsym:IS_STRING*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V240*/ meltfptr[239])); /*internsym:IS_A*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V242*/ meltfptr[241])); /*internsym:AND*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V244*/ meltfptr[243])); /*internsym:CLASS_KEYWORD*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V246*/ meltfptr[245])); /*internsym:GET_FIELD*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V248*/ meltfptr[247])); /*internkeyw:SYMB_DATA*/ (void) melthookproc_HOOK_INTERN_KEYWORD ((melt_ptr_t)(/*_._VALDATA___V250*/ meltfptr[249])); /*internsym:CLASS_NAMED*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V252*/ meltfptr[251])); /*internsym:NAM*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V254*/ meltfptr[253])); /*internsym:UNSAFE_GET_FIELD*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V256*/ meltfptr[255])); /*internkeyw:NAMED_NAME*/ (void) melthookproc_HOOK_INTERN_KEYWORD ((melt_ptr_t)(/*_._VALDATA___V258*/ meltfptr[257])); /*internkeyw:ELSE*/ (void) melthookproc_HOOK_INTERN_KEYWORD ((melt_ptr_t)(/*_._VALDATA___V260*/ meltfptr[259])); /*internsym:VCTY*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V262*/ meltfptr[261])); /*internsym:VARIADIC_CTYPE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V264*/ meltfptr[263])); /*internsym:ERRORMSG_STRV*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V266*/ meltfptr[265])); /*internsym:DIAGNOSTIC_ARGS_MACRO*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V285*/ meltfptr[284])); /*internsym:DISCR_STRBUF*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V289*/ meltfptr[288])); /*internsym:ADD2OUT*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V291*/ meltfptr[290])); /*internsym:DIAGNOSTIC_EXPAND_MESSAGE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V293*/ meltfptr[292])); /*internsym:REGISTER_DIAG_BASIC_BLOCK*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V295*/ meltfptr[294])); /*internsym:REGISTER_DIAG_EDGE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V297*/ meltfptr[296])); /*internsym:REGISTER_DIAG_GIMPLE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V299*/ meltfptr[298])); /*internsym:REGISTER_DIAG_GIMPLE_SEQ*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V301*/ meltfptr[300])); /*internsym:REGISTER_DIAG_TREE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V303*/ meltfptr[302])); /*internsym:ERROR_AT*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V313*/ meltfptr[312])); /*internsym:FATAL_ERROR_AT*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V315*/ meltfptr[314])); /*internsym:WARNING_AT*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V317*/ meltfptr[316])); /*internsym:INFORM_AT*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V319*/ meltfptr[318])); /*internsym:IS_RECURSIVELY_CONSTRUCTIBLE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V321*/ meltfptr[320])); /*internsym:CLASS_SELECTOR*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V323*/ meltfptr[322])); /*internsym:RECV*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V325*/ meltfptr[324])); /*internsym:CLASS_SOURCE_GENERATOR_DEVICE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V331*/ meltfptr[330])); /*internsym:CLASS_SOURCE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V333*/ meltfptr[332])); /*internsym:SRCGEN_DEFIN*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V343*/ meltfptr[342])); /*internsym:SRCGEN_REPR*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V345*/ meltfptr[344])); /*internsym:CLASS_SOURCE_LAZY_MACRO_EXPANSION*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V347*/ meltfptr[346])); /*internsym:SLAZYMACRO_FUN*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V357*/ meltfptr[356])); /*internsym:SLAZYMACRO_OPER*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V359*/ meltfptr[358])); /*internsym:CLASS_SOURCE_ARGUMENTED_OPERATOR*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V361*/ meltfptr[360])); /*internsym:SARGOP_ARGS*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V369*/ meltfptr[368])); /*internsym:CLASS_SOURCE_APPLY*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V371*/ meltfptr[370])); /*internsym:SAPP_FUN*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V379*/ meltfptr[378])); /*internsym:CLASS_SOURCE_MSEND*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V381*/ meltfptr[380])); /*internsym:MSEND_SELSYMB*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V391*/ meltfptr[390])); /*internsym:MSEND_RECV*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V393*/ meltfptr[392])); /*internsym:CLASS_SOURCE_PRIMITIVE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V395*/ meltfptr[394])); /*internsym:SPRIM_OPER*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V403*/ meltfptr[402])); /*internsym:CLASS_SOURCE_HOOK_CALL*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V405*/ meltfptr[404])); /*internsym:SHOOK_CALLED*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V413*/ meltfptr[412])); /*internsym:CLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V415*/ meltfptr[414])); /*internsym:SARITHVAR_NEUTRAL*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V425*/ meltfptr[424])); /*internsym:SARITHVAR_PRIMITIVE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V427*/ meltfptr[426])); /*internsym:CLASS_SOURCE_CITERATION*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V429*/ meltfptr[428])); /*internsym:SCITER_OPER*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V441*/ meltfptr[440])); /*internsym:SCITER_VARBIND*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V443*/ meltfptr[442])); /*internsym:SCITER_BODY*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V445*/ meltfptr[444])); /*internsym:CLASS_SOURCE_CMATCHEXPR*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V447*/ meltfptr[446])); /*internsym:SCMATX_CMATCHER*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V455*/ meltfptr[454])); /*internsym:CLASS_SOURCE_FUNMATCHEXPR*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V457*/ meltfptr[456])); /*internsym:SFMATX_FMATCHER*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V467*/ meltfptr[466])); /*internsym:SFMATX_FMATBIND*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V469*/ meltfptr[468])); /*internsym:CLASS_SOURCE_TUPLE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V471*/ meltfptr[470])); /*internsym:CLASS_SOURCE_LIST*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V477*/ meltfptr[476])); /*internsym:CLASS_SOURCE_PROGN*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V483*/ meltfptr[482])); /*internsym:SPROGN_BODY*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V491*/ meltfptr[490])); /*internsym:CLASS_SOURCE_RETURN*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V493*/ meltfptr[492])); /*internsym:CLASS_SOURCE_SETQ*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V499*/ meltfptr[498])); /*internsym:SSTQ_VAR*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V509*/ meltfptr[508])); /*internsym:SSTQ_EXPR*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V511*/ meltfptr[510])); /*internsym:CLASS_SOURCE_COMMENT*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V513*/ meltfptr[512])); /*internsym:SCOMM_STR*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V521*/ meltfptr[520])); /*internsym:CLASS_SOURCE_CODE_STRING*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V523*/ meltfptr[522])); /*internsym:SC_CODESTRING*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V531*/ meltfptr[530])); /*internsym:CLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V533*/ meltfptr[532])); /*internsym:CLASS_SOURCE_CHEADER*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V539*/ meltfptr[538])); /*internsym:CLASS_SOURCE_CIMPLEMENT*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V545*/ meltfptr[544])); /*internsym:CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V551*/ meltfptr[550])); /*internsym:SUSEPACKAGE_PKGTUPLE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V559*/ meltfptr[558])); /*internsym:CLASS_SOURCE_QUOTE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V561*/ meltfptr[560])); /*internsym:SQUOTED*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V569*/ meltfptr[568])); /*internsym:CLASS_SOURCE_QUASI_BOX*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V571*/ meltfptr[570])); /*internsym:SBOXED*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V579*/ meltfptr[578])); /*internsym:CLASS_SOURCE_BOX*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V581*/ meltfptr[580])); /*internsym:CLASS_SOURCE_CONSTANT_BOX*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V587*/ meltfptr[586])); /*internsym:CLASS_SOURCE_UNBOX*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V593*/ meltfptr[592])); #undef meltfram__ } /*end of meltmod__WARMELTmiMACRO__initialmeltchunk_52*/ void meltmod__WARMELTmiMACRO__initialmeltchunk_53 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; /*internsym:SUNBOX_CTYPE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V603*/ meltfptr[602])); /*internsym:SUNBOX_EXPR*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V605*/ meltfptr[604])); /*internsym:CLASS_SOURCE_EXPORTCOMMON*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V607*/ meltfptr[606])); /*internsym:SEXPORT_NAMES*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V615*/ meltfptr[614])); /*internsym:CLASS_SOURCE_EXPORT_VALUES*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V617*/ meltfptr[616])); /*internsym:CLASS_SOURCE_EXPORT_CLASS*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V623*/ meltfptr[622])); /*internsym:CLASS_SOURCE_EXPORT_ANY_MACRO*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V629*/ meltfptr[628])); /*internsym:SEXPMAC_MNAME*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V639*/ meltfptr[638])); /*internsym:SEXPMAC_DOC*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V641*/ meltfptr[640])); /*internsym:CLASS_SOURCE_EXPORT_MACRO*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V643*/ meltfptr[642])); /*internsym:SEXPMAC_MVAL*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V651*/ meltfptr[650])); /*internsym:CLASS_SOURCE_EXPORT_DEFMACRO*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V653*/ meltfptr[652])); /*internsym:CLASS_SOURCE_EXPORT_PATMACRO*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V659*/ meltfptr[658])); /*internsym:SEXPPAT_PVAL*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V667*/ meltfptr[666])); /*internsym:CLASS_SOURCE_EXPORT_SYNONYM*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V669*/ meltfptr[668])); /*internsym:SEXPSYN_NEWNAME*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V681*/ meltfptr[680])); /*internsym:SEXPSYN_OLDNAME*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V683*/ meltfptr[682])); /*internsym:SEXPSYN_DOC*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V685*/ meltfptr[684])); /*internsym:CLASS_SOURCE_DEFINITION*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V687*/ meltfptr[686])); /*internsym:SDEF_NAME*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V697*/ meltfptr[696])); /*internsym:SDEF_DOC*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V699*/ meltfptr[698])); /*internsym:CLASS_SOURCE_DEFVAR*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V701*/ meltfptr[700])); /*internsym:CLASS_SOURCE_DEFINE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V707*/ meltfptr[706])); /*internsym:SDEFINE_BODY*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V715*/ meltfptr[714])); /*internsym:CLASS_SOURCE_DEFINITION_FORMAL*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V717*/ meltfptr[716])); /*internsym:SFORMAL_ARGS*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V725*/ meltfptr[724])); /*internsym:CLASS_SOURCE_DEFUN*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V727*/ meltfptr[726])); /*internsym:SFUN_BODY*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V735*/ meltfptr[734])); /*internsym:CLASS_SOURCE_DEFMACRO*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V737*/ meltfptr[736])); /*internsym:SMACRO_BINDING*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V745*/ meltfptr[744])); /*internsym:CLASS_SOURCE_DEFMACRO_IN_LET*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V747*/ meltfptr[746])); /*internsym:SMACRO_SOURCELETBINDING*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V755*/ meltfptr[754])); /*internsym:CLASS_DEFINED_MACRO_BINDING*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V757*/ meltfptr[756])); /*internsym:CLASS_MACRO_BINDING*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V759*/ meltfptr[758])); /*internsym:MBIND_DEFMACRO*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V769*/ meltfptr[768])); /*internsym:MBIND_DATA*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V771*/ meltfptr[770])); /*internsym:CLASS_SOURCE_MACRO_INSTALLATION*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V773*/ meltfptr[772])); /*internsym:SMACINST_DEFMACRO*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V783*/ meltfptr[782])); /*internsym:SMACINST_ENV*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V785*/ meltfptr[784])); /*internsym:CLASS_SOURCE_DEFPRIMITIVE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V787*/ meltfptr[786])); /*internsym:SPRIM_TYPE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V799*/ meltfptr[798])); /*internsym:SPRIM_EXPANSION*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V801*/ meltfptr[800])); /*internsym:SPRIM_EXPLOC*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V803*/ meltfptr[802])); /*internsym:CLASS_SOURCE_DEFHOOK*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V805*/ meltfptr[804])); /*internsym:SHOOK_OUT_FORMALS*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V821*/ meltfptr[820])); /*internsym:SHOOK_CTYPE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V823*/ meltfptr[822])); /*internsym:SHOOK_PREDEF*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V825*/ meltfptr[824])); /*internsym:SHOOK_VARIABLE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V827*/ meltfptr[826])); /*internsym:SHOOK_BODY*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V829*/ meltfptr[828])); /*internsym:CLASS_SOURCE_DEFCITERATOR*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V831*/ meltfptr[830])); /*internsym:SCITERDEF_CITERATOR*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V843*/ meltfptr[842])); /*internsym:SCITERDEF_BEFORELOC*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V845*/ meltfptr[844])); /*internsym:SCITERDEF_AFTERLOC*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V847*/ meltfptr[846])); /*internsym:CLASS_SOURCE_DEFCMATCHER*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V849*/ meltfptr[848])); /*internsym:SCMATDEF_CMATCHER*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V863*/ meltfptr[862])); /*internsym:SCMATDEF_TESTLOC*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V865*/ meltfptr[864])); /*internsym:SCMATDEF_FILLLOC*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V867*/ meltfptr[866])); /*internsym:SCMATDEF_OPERLOC*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V869*/ meltfptr[868])); /*internsym:CLASS_SOURCE_DEFUNMATCHER*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V871*/ meltfptr[870])); /*internsym:SFUMATDEF_INS*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V887*/ meltfptr[886])); /*internsym:SFUMATDEF_OUTS*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V889*/ meltfptr[888])); /*internsym:SFUMATDEF_MATCHF*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V891*/ meltfptr[890])); /*internsym:SFUMATDEF_APPLYF*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V893*/ meltfptr[892])); /*internsym:SFUMATDEF_DATA*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V895*/ meltfptr[894])); /*internsym:CLASS_SOURCE_DEFOBJCOMMON*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V897*/ meltfptr[896])); /*internsym:SOBJ_PREDEF*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V905*/ meltfptr[904])); /*internsym:CLASS_SOURCE_DEFCLASS*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V907*/ meltfptr[906])); /*internsym:SCLASS_CLABIND*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V919*/ meltfptr[918])); /*internsym:SCLASS_SUPERBIND*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V921*/ meltfptr[920])); /*internsym:SCLASS_FLDBINDS*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V923*/ meltfptr[922])); /*internsym:CLASS_SOURCE_DEFINSTANCE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V925*/ meltfptr[924])); /*internsym:SINST_CLASS*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V939*/ meltfptr[938])); /*internsym:SINST_CLABIND*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V941*/ meltfptr[940])); /*internsym:SINST_OBJNUM*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V943*/ meltfptr[942])); /*internsym:SINST_FIELDS*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V945*/ meltfptr[944])); /*internsym:CLASS_SOURCE_DEFSELECTOR*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V947*/ meltfptr[946])); /*internsym:SDEFSEL_FORMALS*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V955*/ meltfptr[954])); /*internsym:CLASS_SOURCE_FIELDASSIGN*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V957*/ meltfptr[956])); /*internsym:SFLA_FIELD*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V967*/ meltfptr[966])); /*internsym:SFLA_EXPR*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V969*/ meltfptr[968])); /*internsym:CLASS_SOURCE_INSTANCE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V971*/ meltfptr[970])); /*internsym:SMINS_CLASS*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V983*/ meltfptr[982])); /*internsym:SMINS_CLABIND*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V985*/ meltfptr[984])); /*internsym:SMINS_FIELDS*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V987*/ meltfptr[986])); /*internsym:CLASS_SOURCE_GET_FIELD*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V989*/ meltfptr[988])); /*internsym:SUGET_OBJ*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V999*/ meltfptr[998])); /*internsym:SUGET_FIELD*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1001*/ meltfptr[1000])); /*internsym:CLASS_SOURCE_UNSAFE_GET_FIELD*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1003*/ meltfptr[1002])); /*internsym:CLASS_SOURCE_PUT_FIELDS*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1009*/ meltfptr[1008])); /*internsym:SUPUT_OBJ*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1019*/ meltfptr[1018])); /*internsym:SUPUT_FIELDS*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1021*/ meltfptr[1020])); /*internsym:CLASS_SOURCE_UNSAFE_PUT_FIELDS*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1023*/ meltfptr[1022])); /*internsym:CLASS_SOURCE_IF*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1029*/ meltfptr[1028])); /*internsym:SIF_TEST*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1039*/ meltfptr[1038])); /*internsym:SIF_THEN*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1041*/ meltfptr[1040])); /*internsym:CLASS_SOURCE_IFELSE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1043*/ meltfptr[1042])); /*internsym:SIF_ELSE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1051*/ meltfptr[1050])); /*internsym:CLASS_SOURCE_OR*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1053*/ meltfptr[1052])); /*internsym:SOR_DISJ*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1061*/ meltfptr[1060])); /*internsym:CLASS_SOURCE_CPPIF*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1063*/ meltfptr[1062])); /*internsym:SIFP_COND*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1075*/ meltfptr[1074])); /*internsym:SIFP_THEN*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1077*/ meltfptr[1076])); /*internsym:SIFP_ELSE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1079*/ meltfptr[1078])); /*internsym:CLASS_SOURCE_MATCH*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1081*/ meltfptr[1080])); /*internsym:SMAT_MATCHEDX*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1091*/ meltfptr[1090])); /*internsym:SMAT_CASES*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1093*/ meltfptr[1092])); /*internsym:CLASS_SOURCE_MATCHALT*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1095*/ meltfptr[1094])); /*internsym:CLASS_SOURCE_MATCH_CASE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1101*/ meltfptr[1100])); /*internsym:SCAM_PATT*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1111*/ meltfptr[1110])); /*internsym:SCAM_BODY*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1113*/ meltfptr[1112])); /*internsym:CLASS_SOURCE_ANY_LET_BINDING*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1115*/ meltfptr[1114])); /*internsym:SLETB_BINDER*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1123*/ meltfptr[1122])); /*internsym:CLASS_SOURCE_MACRO_LET_BINDING*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1125*/ meltfptr[1124])); /*internsym:SLETM_MACRO_FORMALS*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1135*/ meltfptr[1134])); /*internsym:SLETM_MACRO_BODY*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1137*/ meltfptr[1136])); /*internsym:CLASS_SOURCE_LET_BINDING*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1139*/ meltfptr[1138])); /*internsym:SLETB_TYPE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1149*/ meltfptr[1148])); /*internsym:SLETB_EXPR*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1151*/ meltfptr[1150])); /*internsym:CLASS_SOURCE_LET_BINDING_FOR_MACRO*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1153*/ meltfptr[1152])); /*internsym:SLETFM_MACROLETBIND*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1161*/ meltfptr[1160])); /*internsym:CLASS_SOURCE_LETREC_BINDING*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1163*/ meltfptr[1162])); /*internsym:CLASS_SOURCE_LET*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1169*/ meltfptr[1168])); /*internsym:SLET_BINDINGS*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1179*/ meltfptr[1178])); /*internsym:SLET_BODY*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1181*/ meltfptr[1180])); /*internsym:CLASS_SOURCE_LETREC*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1183*/ meltfptr[1182])); /*internsym:CLASS_SOURCE_LAMBDA*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1189*/ meltfptr[1188])); /*internsym:SLAM_ARGBIND*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1199*/ meltfptr[1198])); /*internsym:SLAM_BODY*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1201*/ meltfptr[1200])); #undef meltfram__ } /*end of meltmod__WARMELTmiMACRO__initialmeltchunk_53*/ void meltmod__WARMELTmiMACRO__initialmeltchunk_54 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; /*internsym:CLASS_SOURCE_LAMBDA_FOR_MACRO*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1203*/ meltfptr[1202])); /*internsym:SLAM_ORIGMACRO*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1211*/ meltfptr[1210])); /*internsym:CLASS_SOURCE_IFVARIADIC*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1213*/ meltfptr[1212])); /*internsym:SIFVARIADIC_ARGBIND*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1225*/ meltfptr[1224])); /*internsym:SIFVARIADIC_THEN*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1227*/ meltfptr[1226])); /*internsym:SIFVARIADIC_ELSE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1229*/ meltfptr[1228])); /*internsym:CLASS_SOURCE_MULTICALL*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1231*/ meltfptr[1230])); /*internsym:SMULC_RESBIND*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1243*/ meltfptr[1242])); /*internsym:SMULC_CALL*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1245*/ meltfptr[1244])); /*internsym:SMULC_BODY*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1247*/ meltfptr[1246])); /*internsym:CLASS_SOURCE_LABELLED*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1249*/ meltfptr[1248])); /*internsym:SLABEL_BIND*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1257*/ meltfptr[1256])); /*internsym:CLASS_SOURCE_FOREVER*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1259*/ meltfptr[1258])); /*internsym:SFRV_BODY*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1267*/ meltfptr[1266])); /*internsym:CLASS_SOURCE_AGAIN*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1269*/ meltfptr[1268])); /*internsym:CLASS_SOURCE_EXIT*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1275*/ meltfptr[1274])); /*internsym:SEXI_BODY*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1283*/ meltfptr[1282])); /*internsym:CLASS_SOURCE_COMPILE_DIAGNOSTIC*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1285*/ meltfptr[1284])); /*internsym:SCDIAG_MSG*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1295*/ meltfptr[1294])); /*internsym:SCDIAG_EXPR*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1297*/ meltfptr[1296])); /*internsym:CLASS_SOURCE_COMPILE_WARNING*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1299*/ meltfptr[1298])); /*internsym:CLASS_SOURCE_COMPILEWARNING*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1305*/ meltfptr[1304])); /*internsym:CLASS_SOURCE_COMPILE_ERROR*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1307*/ meltfptr[1306])); /*internsym:CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1313*/ meltfptr[1312])); /*internsym:CMEC_COMMENT*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1321*/ meltfptr[1320])); /*internsym:CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1323*/ meltfptr[1322])); /*internsym:CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1329*/ meltfptr[1328])); /*internsym:SUCME_COMMENT*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1337*/ meltfptr[1336])); /*internsym:CLASS_SOURCE_FETCH_PREDEFINED*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1339*/ meltfptr[1338])); /*internsym:SFEPD_PREDEF*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1347*/ meltfptr[1346])); /*internsym:CLASS_SOURCE_STORE_PREDEFINED*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1349*/ meltfptr[1348])); /*internsym:SSTPD_PREDEF*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1359*/ meltfptr[1358])); /*internsym:SSTPD_VALUE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1361*/ meltfptr[1360])); /*internsym:CLASS_SOURCE_PROTOCHUNK*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1363*/ meltfptr[1362])); /*internsym:SCH_GENSYM*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1373*/ meltfptr[1372])); /*internsym:SCH_CHUNKS*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1375*/ meltfptr[1374])); /*internsym:CLASS_SOURCE_CODECHUNK*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1377*/ meltfptr[1376])); /*internsym:CLASS_SOURCE_EXPRCHUNK*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1383*/ meltfptr[1382])); /*internsym:SXCH_CTYPE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1391*/ meltfptr[1390])); /*internsym:CLASS_SOURCE_PATTERN*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1393*/ meltfptr[1392])); /*internsym:PAT_WEIGHT*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1401*/ meltfptr[1400])); /*internsym:CLASS_SOURCE_PATTERN_OR*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1403*/ meltfptr[1402])); /*internsym:ORPAT_DISJ*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1411*/ meltfptr[1410])); /*internsym:CLASS_SOURCE_PATTERN_AND*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1413*/ meltfptr[1412])); /*internsym:ANDPAT_CONJ*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1421*/ meltfptr[1420])); /*internsym:CLASS_SOURCE_PATTERN_WHEN*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1423*/ meltfptr[1422])); /*internsym:WHENPAT_SUBPAT*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1433*/ meltfptr[1432])); /*internsym:WHENPAT_COND*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1435*/ meltfptr[1434])); /*internsym:CLASS_SOURCE_PATTERN_VARIABLE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1437*/ meltfptr[1436])); /*internsym:SPATVAR_SYMB*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1447*/ meltfptr[1446])); /*internsym:SPATVAR_NBOCC*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1449*/ meltfptr[1448])); /*internsym:SPAT_VAR*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1451*/ meltfptr[1450])); /*internsym:CLASS_SOURCE_PATTERN_JOKER_VARIABLE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1453*/ meltfptr[1452])); /*internsym:CLASS_SOURCE_PATTERN_CONSTANT*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1459*/ meltfptr[1458])); /*internsym:SPAT_CONSTX*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1467*/ meltfptr[1466])); /*internsym:CLASS_SOURCE_PATTERN_CONSTRUCT*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1469*/ meltfptr[1468])); /*internsym:CTPAT_SUBPA*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1477*/ meltfptr[1476])); /*internsym:CLASS_SOURCE_PATTERN_TUPLE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1479*/ meltfptr[1478])); /*internsym:CLASS_SOURCE_PATTERN_LIST*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1485*/ meltfptr[1484])); /*internsym:CLASS_SOURCE_PATTERN_OBJECT*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1491*/ meltfptr[1490])); /*internsym:SPAT_CLASS*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1501*/ meltfptr[1500])); /*internsym:SPAT_FIELDS*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1503*/ meltfptr[1502])); /*internsym:CLASS_SOURCE_PATTERN_INSTANCE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1505*/ meltfptr[1504])); /*internsym:CLASS_SOURCE_FIELD_PATTERN*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1511*/ meltfptr[1510])); /*internsym:SPAF_FIELD*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1521*/ meltfptr[1520])); /*internsym:SPAF_PATTERN*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1523*/ meltfptr[1522])); /*internsym:CLASS_SOURCE_PATTERN_COMPOSITE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1525*/ meltfptr[1524])); /*internsym:SPAC_OPERATOR*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1539*/ meltfptr[1538])); /*internsym:SPAC_OPERBIND*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1541*/ meltfptr[1540])); /*internsym:SPAC_INARGS*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1543*/ meltfptr[1542])); /*internsym:SPAC_OUTARGS*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1545*/ meltfptr[1544])); /*internsym:CLASS_SOURCE_PATTERN_MATCHER*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1547*/ meltfptr[1546])); /*internsym:CLASS_SOURCE_PATTERN_C_MATCH*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1553*/ meltfptr[1552])); /*internsym:CLASS_SOURCE_PATTERN_FUN_MATCH*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1559*/ meltfptr[1558])); /*internkeyw:TRUE*/ (void) melthookproc_HOOK_INTERN_KEYWORD ((melt_ptr_t)(/*_._VALDATA___V1567*/ meltfptr[1566])); /*internsym:DISCR_CONSTANT_INTEGER*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1570*/ meltfptr[1569])); /*internsym:CLASS_ANY_BINDING*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1574*/ meltfptr[1573])); /*internsym:CLASS_ENVIRONMENT*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1576*/ meltfptr[1575])); /*internsym:CLASS_ANY_MODULE_CONTEXT*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1578*/ meltfptr[1577])); /*internsym:FIND_ENV*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1580*/ meltfptr[1579])); /*internsym:PUT_ENV*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1582*/ meltfptr[1581])); /*internsym:LIST_APPEND2LIST*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1586*/ meltfptr[1585])); /*internsym:DISCR_LIST*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1596*/ meltfptr[1595])); /*internsym:DEBUG_LESS*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1602*/ meltfptr[1601])); /*internsym:CLASS_FIELD*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1608*/ meltfptr[1607])); /*internsym:CLASS_CITERATOR*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1620*/ meltfptr[1619])); /*internsym:FRESH_ENV*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1622*/ meltfptr[1621])); /*internsym:CLASS_CMATCHER*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1626*/ meltfptr[1625])); /*internsym:CLASS_ANY_MATCHER*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1628*/ meltfptr[1627])); /*internsym:CLASS_FUNMATCHER*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1632*/ meltfptr[1631])); /*internsym:CLASS_SELECTOR_BINDING*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1643*/ meltfptr[1642])); /*internsym:CLASS_PRIMITIVE_BINDING*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1645*/ meltfptr[1644])); /*internsym:CLASS_CITERATOR_BINDING*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1647*/ meltfptr[1646])); /*internsym:CLASS_HOOK_BINDING*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1649*/ meltfptr[1648])); /*internsym:CLASS_CMATCHER_BINDING*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1651*/ meltfptr[1650])); /*internsym:CLASS_FUNMATCHER_BINDING*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1653*/ meltfptr[1652])); /*internsym:CLASS_FIELD_BINDING*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1655*/ meltfptr[1654])); /*internsym:CLASS_FORMAL_BINDING*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1657*/ meltfptr[1656])); /*internsym:CLASS_LET_BINDING*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1659*/ meltfptr[1658])); /*internsym:CLASS_VALUE_BINDING*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1661*/ meltfptr[1660])); /*internsym:CLASS_PRIMITIVE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1663*/ meltfptr[1662])); /*internsym:DEBUG_MORE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1665*/ meltfptr[1664])); /*internsym:CLASS_PATTERN_EXPANSION_CONTEXT*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1667*/ meltfptr[1666])); /*internsym:CLASS_ROOT*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1669*/ meltfptr[1668])); /*internsym:PCTX_MEXPANDER*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1683*/ meltfptr[1682])); /*internsym:PCTX_PEXPANDER*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1685*/ meltfptr[1684])); /*internsym:PCTX_VARMAP*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1687*/ meltfptr[1686])); /*internsym:PCTX_MODCTX*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1689*/ meltfptr[1688])); /*internsym:PAIRLIST_TO_MULTIPLE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1713*/ meltfptr[1712])); /*internsym:CLASS_REFERENCE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1715*/ meltfptr[1714])); /*internsym:MULTIPLE_MAP*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1717*/ meltfptr[1716])); /*internsym:DISCR_INTEGER*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1719*/ meltfptr[1718])); /*internsym:CLASS_PATMACRO_BINDING*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1721*/ meltfptr[1720])); /*internsym:QUESTION*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1694*/ meltfptr[1693])); /*internsym:_*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1697*/ meltfptr[1696])); /*internsym:DISCR_FORMAL_SEQUENCE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1725*/ meltfptr[1724])); /*internsym:CTYPE_VALUE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1727*/ meltfptr[1726])); /*internkeyw:REST*/ (void) melthookproc_HOOK_INTERN_KEYWORD ((melt_ptr_t)(/*_._VALDATA___V1613*/ meltfptr[1612])); /*internsym:DISCR_VARIADIC_FORMAL_SEQUENCE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1729*/ meltfptr[1728])); /*internkeyw:AUTO*/ (void) melthookproc_HOOK_INTERN_KEYWORD ((melt_ptr_t)(/*_._VALDATA___V1615*/ meltfptr[1614])); /*internsym:CLASS_CTYPE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1731*/ meltfptr[1730])); /*internsym:CLASS_QUASI_CTYPE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1733*/ meltfptr[1732])); /*internkeyw:CHECKARGS*/ (void) melthookproc_HOOK_INTERN_KEYWORD ((melt_ptr_t)(/*_._VALDATA___V1617*/ meltfptr[1616])); /*internsym:INITIAL_ENVIRONMENT*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1737*/ meltfptr[1736])); /*internsym:WARN_SHADOW*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1741*/ meltfptr[1740])); /*internsym:DISCR_VERBATIM_STRING*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1752*/ meltfptr[1751])); /*internkeyw:DOC*/ (void) melthookproc_HOOK_INTERN_KEYWORD ((melt_ptr_t)(/*_._VALDATA___V1763*/ meltfptr[1762])); /*internsym:DEFPRIMITIVE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1766*/ meltfptr[1765])); #undef meltfram__ } /*end of meltmod__WARMELTmiMACRO__initialmeltchunk_54*/ void meltmod__WARMELTmiMACRO__initialmeltchunk_55 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; /*internsym:DEFCITERATOR*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1770*/ meltfptr[1769])); /*internsym:DEFCMATCHER*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1774*/ meltfptr[1773])); /*internsym:DEFUNMATCHER*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1778*/ meltfptr[1777])); /*internsym:CLASS_FUNCTION_BINDING*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1784*/ meltfptr[1783])); /*internkeyw:CHECKARG*/ (void) melthookproc_HOOK_INTERN_KEYWORD ((melt_ptr_t)(/*_._VALDATA___V1781*/ meltfptr[1780])); /*internsym:DEFUN*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1786*/ meltfptr[1785])); /*internsym:DEFMACRO*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1793*/ meltfptr[1792])); /*internsym:MBIND*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1799*/ meltfptr[1798])); /*internsym:MEXPCLOS*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1802*/ meltfptr[1801])); /*internsym:AT_MACRO_EXPANSION*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1808*/ meltfptr[1807])); /*internsym:CLASS_VARIABLE_BINDING*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1812*/ meltfptr[1811])); /*internsym:DEFVAR*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1814*/ meltfptr[1813])); /*internsym:SYMBOL_CNAME*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1822*/ meltfptr[1821])); /*internkeyw:PREDEF*/ (void) melthookproc_HOOK_INTERN_KEYWORD ((melt_ptr_t)(/*_._VALDATA___V1817*/ meltfptr[1816])); /*internkeyw:VAR*/ (void) melthookproc_HOOK_INTERN_KEYWORD ((melt_ptr_t)(/*_._VALDATA___V1819*/ meltfptr[1818])); /*internsym:DEFHOOK*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1824*/ meltfptr[1823])); /*internsym:CLASS_DEFINED_VALUE_BINDING*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1828*/ meltfptr[1827])); /*internsym:DEFINE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1830*/ meltfptr[1829])); /*internkeyw:SUPER*/ (void) melthookproc_HOOK_INTERN_KEYWORD ((melt_ptr_t)(/*_._VALDATA___V1833*/ meltfptr[1832])); /*internsym:CLASS_CLASS_BINDING*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1838*/ meltfptr[1837])); /*internsym:CLASS_CLASS*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1840*/ meltfptr[1839])); /*internkeyw:FIELDS*/ (void) melthookproc_HOOK_INTERN_KEYWORD ((melt_ptr_t)(/*_._VALDATA___V1835*/ meltfptr[1834])); /*internsym:DISCR_CLASS_SEQUENCE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1844*/ meltfptr[1843])); /*internsym:DISCR_MAP_STRINGS*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1846*/ meltfptr[1845])); /*internsym:DISCR_FIELD_SEQUENCE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1848*/ meltfptr[1847])); /*internsym:DEFCLASS*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1850*/ meltfptr[1849])); /*internsym:MULTIPLE_ITERATE_TEST*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1855*/ meltfptr[1854])); /*internsym:CLASS_INSTANCE_BINDING*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1861*/ meltfptr[1860])); /*internkeyw:OBJ_NUM*/ (void) melthookproc_HOOK_INTERN_KEYWORD ((melt_ptr_t)(/*_._VALDATA___V1858*/ meltfptr[1857])); /*internsym:DEFINSTANCE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1863*/ meltfptr[1862])); /*internkeyw:FORMALS*/ (void) melthookproc_HOOK_INTERN_KEYWORD ((melt_ptr_t)(/*_._VALDATA___V1866*/ meltfptr[1865])); /*internsym:DEFSELECTOR*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1869*/ meltfptr[1868])); /*internsym:LOAD*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1875*/ meltfptr[1874])); /*internsym:SKIP_NIL*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1879*/ meltfptr[1878])); /*internsym:OBJECT*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1892*/ meltfptr[1891])); /*internsym:CLASS_SEXPR_MACROSTRING*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1897*/ meltfptr[1896])); /*internsym:CODE_CHUNK*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1901*/ meltfptr[1900])); /*internsym:EXPR_CHUNK*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1905*/ meltfptr[1904])); /*internsym:UNSAFE_PUT_FIELDS*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1909*/ meltfptr[1908])); /*internsym:PUT_FIELDS*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1913*/ meltfptr[1912])); /*internsym:IF*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1925*/ meltfptr[1924])); /*internsym:WHEN*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1929*/ meltfptr[1928])); /*internsym:UNLESS*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1933*/ meltfptr[1932])); /*internsym:CLONE_SYMBOL*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1937*/ meltfptr[1936])); /*internsym:MULTIPLE_TO_LIST*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1940*/ meltfptr[1939])); /*internsym:WITH_CLONED_SYMB*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1942*/ meltfptr[1941])); /*internsym:CPPIF*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1946*/ meltfptr[1945])); /*internsym:AS*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1957*/ meltfptr[1956])); /*internsym:OR*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1967*/ meltfptr[1966])); /*internsym:CLASS_FIELDS*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1973*/ meltfptr[1972])); /*internkeyw:REFERENCED_VALUE*/ (void) melthookproc_HOOK_INTERN_KEYWORD ((melt_ptr_t)(/*_._VALDATA___V1970*/ meltfptr[1969])); /*internsym:REFERENCE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1978*/ meltfptr[1977])); /*internsym:REFERENCED_VALUE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1982*/ meltfptr[1981])); /*internsym:DEREF*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1984*/ meltfptr[1983])); /*internsym:CONTENT*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1988*/ meltfptr[1987])); /*internsym:EXCLAIM*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1990*/ meltfptr[1989])); /*internsym:SET_REF*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1994*/ meltfptr[1993])); /*internsym:+I*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1999*/ meltfptr[1998])); /*internsym:-I*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2004*/ meltfptr[2003])); /*internsym:-*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2006*/ meltfptr[2005])); /*internsym:*I*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2011*/ meltfptr[2010])); /*internsym:**/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2013*/ meltfptr[2012])); /*internsym:/I*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2018*/ meltfptr[2017])); /*internsym:/*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2020*/ meltfptr[2019])); /*internsym:TUPLE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2026*/ meltfptr[2025])); /*internsym:LIST*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2032*/ meltfptr[2031])); /*internsym:MATCH*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2037*/ meltfptr[2036])); /*internsym:MATCHALT*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2042*/ meltfptr[2041])); /*internsym:QUASI_CTYPE_AUTO*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2046*/ meltfptr[2045])); /*internsym:QUASI_CTYPE_MACRO*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2048*/ meltfptr[2047])); /*internsym:CLASS_FIXED_BINDING*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2050*/ meltfptr[2049])); /*internkeyw:EXPAND*/ (void) melthookproc_HOOK_INTERN_KEYWORD ((melt_ptr_t)(/*_._VALDATA___V2053*/ meltfptr[2052])); /*internsym:INSTALL_METHOD*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2059*/ meltfptr[2058])); /*internsym:CLASS_LETREC_BINDING*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2064*/ meltfptr[2063])); /*internsym:LETREC*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2066*/ meltfptr[2065])); /*internsym:LAMBDA*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2070*/ meltfptr[2069])); /*internsym:MULTIPLE_EVERY*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2079*/ meltfptr[2078])); /*internsym:MULTICALL*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2081*/ meltfptr[2080])); /*internsym:UNBOX*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2089*/ meltfptr[2088])); /*internsym:COMMENT*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2093*/ meltfptr[2092])); /*internsym:CHEADER*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2097*/ meltfptr[2096])); /*internsym:CIMPLEMENT*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2101*/ meltfptr[2100])); /*internsym:MODULE_IS_GPL_COMPATIBLE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2105*/ meltfptr[2104])); /*internsym:USE_PACKAGE_FROM_PKG_CONFIG*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2109*/ meltfptr[2108])); /*internsym:USE-PACKAGE-FROM-PKG-CONFIG*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2111*/ meltfptr[2110])); /*internsym:PROGN*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2117*/ meltfptr[2116])); /*internsym:RETURN*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2121*/ meltfptr[2120])); /*internsym:CLASS_LABEL_BINDING*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2125*/ meltfptr[2124])); /*internsym:AGAIN*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2131*/ meltfptr[2130])); /*internsym:COMPILE_WARNING*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2135*/ meltfptr[2134])); /*internsym:COMPILE_ERROR*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2139*/ meltfptr[2138])); /*internsym:FIND_ENV_DEBUG*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2144*/ meltfptr[2143])); /*internsym:THIS_LINE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2148*/ meltfptr[2147])); /*internsym:THIS_FILE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2152*/ meltfptr[2151])); /*internsym:MELT_CALLCOUNT*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2155*/ meltfptr[2154])); /*internsym:MELT_NEED_DBG*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2157*/ meltfptr[2156])); /*internsym:MELT_INCREMENT_DBGCOUNTER*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2159*/ meltfptr[2158])); /*internsym:DEBUG*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2164*/ meltfptr[2163])); /*internsym:EXPORT_VALUES*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2168*/ meltfptr[2167])); /*internsym:EXPORT_MACRO*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2172*/ meltfptr[2171])); /*internsym:EXPORT_PATMACRO*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2176*/ meltfptr[2175])); /*internsym:EXPORT_CLASS*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2180*/ meltfptr[2179])); /*internsym:EXPORT_SYNONYM*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2184*/ meltfptr[2183])); /*internsym:CURRENT_MODULE_ENVIRONMENT_REFERENCE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2188*/ meltfptr[2187])); /*internsym:CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2190*/ meltfptr[2189])); /*internsym:PARENT_MODULE_ENVIRONMENT*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2194*/ meltfptr[2193])); /*internsym:UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2198*/ meltfptr[2197])); /*internsym:UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2200*/ meltfptr[2199])); /*internsym:FETCH_PREDEFINED*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2204*/ meltfptr[2203])); /*internsym:STORE_PREDEFINED*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2208*/ meltfptr[2207])); /*internsym:CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2210*/ meltfptr[2209])); /*internsym:CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2212*/ meltfptr[2211])); /*internsym:EXPAND_APPLY*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2214*/ meltfptr[2213])); /*internsym:EXPAND_MSEND*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2216*/ meltfptr[2215])); /*internsym:EXPAND_PAIRLIST_AS_TUPLE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2218*/ meltfptr[2217])); /*internsym:EXPAND_PAIRLIST_AS_LIST*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2220*/ meltfptr[2219])); /*internsym:EXPAND_RESTLIST_AS_LIST*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2222*/ meltfptr[2221])); /*internsym:EXPAND_RESTLIST_AS_TUPLE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2224*/ meltfptr[2223])); /*internsym:EXPAND_TUPLE_SLICE_AS_TUPLE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2226*/ meltfptr[2225])); /*internsym:EXPAND_PRIMITIVE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2228*/ meltfptr[2227])); /*internsym:HOOK_MACRO_INSTALLER*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2230*/ meltfptr[2229])); /*internsym:INSTALL_INITIAL_MACRO*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2232*/ meltfptr[2231])); /*internsym:INSTALL_INITIAL_PATMACRO*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2234*/ meltfptr[2233])); /*internsym:INSTALL_GLOBAL_DEFINITION_BINDING*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2236*/ meltfptr[2235])); /*internsym:LAMBDA_ARG_BINDINGS*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2238*/ meltfptr[2237])); /*internsym:MACROEXPAND_1*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2240*/ meltfptr[2239])); /*internsym:MACROEXPAND_TOPLEVEL_LIST*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2242*/ meltfptr[2241])); /*internsym:MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2244*/ meltfptr[2243])); #undef meltfram__ } /*end of meltmod__WARMELTmiMACRO__initialmeltchunk_55*/ void meltmod__WARMELTmiMACRO__initialmeltchunk_56 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; /*internsym:PATMACEXPAND_FOR_MATCHER*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2246*/ meltfptr[2245])); /*internsym:PATTERNEXPAND_1*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2248*/ meltfptr[2247])); /*internsym:PATTERNEXPAND_EXPR*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2250*/ meltfptr[2249])); /*internsym:PATTERNEXPAND_PAIRLIST_AS_TUPLE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2252*/ meltfptr[2251])); /*internsym:PATTERN_WEIGHT_TUPLE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2254*/ meltfptr[2253])); /*internsym:REGISTER_GENERATOR_DEVICE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2256*/ meltfptr[2255])); /*internsym:S_EXPR_WEIGHT*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2258*/ meltfptr[2257])); /*internsym:MEXPAND_REFERENCE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2260*/ meltfptr[2259])); /*internsym:PATEXPAND_REFERENCE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V2262*/ meltfptr[2261])); /**COMMENT: set retinit from boxloc **/; /*_._RETINIT___V1*/ meltfptr[0] = /* finalsetretinit */ melt_reference_value((melt_ptr_t)(/*_._CONTENV___V2*/ meltfptr[1])); /**COMMENT: end the initproc **/; #undef meltfram__ } /*end of meltmod__WARMELTmiMACRO__initialmeltchunk_56*/ /* exported 148 field offsets */ MELT_EXTERN const int meltfieldoff__ANDPAT_CONJ; const int meltfieldoff__ANDPAT_CONJ = 3; /* in CLASS_SOURCE_PATTERN_AND */ MELT_EXTERN const int meltfieldoff__CMEC_COMMENT; const int meltfieldoff__CMEC_COMMENT = 2; /* in CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE */ MELT_EXTERN const int meltfieldoff__CTPAT_SUBPA; const int meltfieldoff__CTPAT_SUBPA = 3; /* in CLASS_SOURCE_PATTERN_CONSTRUCT */ MELT_EXTERN const int meltfieldoff__DIAG_POSITION; const int meltfieldoff__DIAG_POSITION = 3; /* in CLASS_DIAGNOSTIC_STATE */ MELT_EXTERN const int meltfieldoff__DIAG_STATE; const int meltfieldoff__DIAG_STATE = 4; /* in CLASS_DIAGNOSTIC_STATE */ MELT_EXTERN const int meltfieldoff__DIAG_VECT; const int meltfieldoff__DIAG_VECT = 2; /* in CLASS_DIAGNOSTIC_STATE */ MELT_EXTERN const int meltfieldoff__MBIND_DATA; const int meltfieldoff__MBIND_DATA = 3; /* in CLASS_DEFINED_MACRO_BINDING */ MELT_EXTERN const int meltfieldoff__MBIND_DEFMACRO; const int meltfieldoff__MBIND_DEFMACRO = 2; /* in CLASS_DEFINED_MACRO_BINDING */ MELT_EXTERN const int meltfieldoff__MSEND_RECV; const int meltfieldoff__MSEND_RECV = 4; /* in CLASS_SOURCE_MSEND */ MELT_EXTERN const int meltfieldoff__MSEND_SELSYMB; const int meltfieldoff__MSEND_SELSYMB = 3; /* in CLASS_SOURCE_MSEND */ MELT_EXTERN const int meltfieldoff__ORPAT_DISJ; const int meltfieldoff__ORPAT_DISJ = 3; /* in CLASS_SOURCE_PATTERN_OR */ MELT_EXTERN const int meltfieldoff__PAT_WEIGHT; const int meltfieldoff__PAT_WEIGHT = 2; /* in CLASS_SOURCE_PATTERN */ MELT_EXTERN const int meltfieldoff__PCTX_MEXPANDER; const int meltfieldoff__PCTX_MEXPANDER = 0; /* in CLASS_PATTERN_EXPANSION_CONTEXT */ MELT_EXTERN const int meltfieldoff__PCTX_MODCTX; const int meltfieldoff__PCTX_MODCTX = 3; /* in CLASS_PATTERN_EXPANSION_CONTEXT */ MELT_EXTERN const int meltfieldoff__PCTX_PEXPANDER; const int meltfieldoff__PCTX_PEXPANDER = 1; /* in CLASS_PATTERN_EXPANSION_CONTEXT */ MELT_EXTERN const int meltfieldoff__PCTX_VARMAP; const int meltfieldoff__PCTX_VARMAP = 2; /* in CLASS_PATTERN_EXPANSION_CONTEXT */ MELT_EXTERN const int meltfieldoff__SAPP_FUN; const int meltfieldoff__SAPP_FUN = 3; /* in CLASS_SOURCE_APPLY */ MELT_EXTERN const int meltfieldoff__SARGOP_ARGS; const int meltfieldoff__SARGOP_ARGS = 2; /* in CLASS_SOURCE_ARGUMENTED_OPERATOR */ MELT_EXTERN const int meltfieldoff__SARITHVAR_NEUTRAL; const int meltfieldoff__SARITHVAR_NEUTRAL = 3; /* in CLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION */ MELT_EXTERN const int meltfieldoff__SARITHVAR_PRIMITIVE; const int meltfieldoff__SARITHVAR_PRIMITIVE = 4; /* in CLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION */ MELT_EXTERN const int meltfieldoff__SBOXED; const int meltfieldoff__SBOXED = 2; /* in CLASS_SOURCE_QUASI_BOX */ MELT_EXTERN const int meltfieldoff__SCAM_BODY; const int meltfieldoff__SCAM_BODY = 3; /* in CLASS_SOURCE_MATCH_CASE */ MELT_EXTERN const int meltfieldoff__SCAM_PATT; const int meltfieldoff__SCAM_PATT = 2; /* in CLASS_SOURCE_MATCH_CASE */ MELT_EXTERN const int meltfieldoff__SCDIAG_EXPR; const int meltfieldoff__SCDIAG_EXPR = 3; /* in CLASS_SOURCE_COMPILE_DIAGNOSTIC */ MELT_EXTERN const int meltfieldoff__SCDIAG_MSG; const int meltfieldoff__SCDIAG_MSG = 2; /* in CLASS_SOURCE_COMPILE_DIAGNOSTIC */ MELT_EXTERN const int meltfieldoff__SCH_CHUNKS; const int meltfieldoff__SCH_CHUNKS = 3; /* in CLASS_SOURCE_PROTOCHUNK */ MELT_EXTERN const int meltfieldoff__SCH_GENSYM; const int meltfieldoff__SCH_GENSYM = 2; /* in CLASS_SOURCE_PROTOCHUNK */ MELT_EXTERN const int meltfieldoff__SCITERDEF_AFTERLOC; const int meltfieldoff__SCITERDEF_AFTERLOC = 7; /* in CLASS_SOURCE_DEFCITERATOR */ MELT_EXTERN const int meltfieldoff__SCITERDEF_BEFORELOC; const int meltfieldoff__SCITERDEF_BEFORELOC = 6; /* in CLASS_SOURCE_DEFCITERATOR */ MELT_EXTERN const int meltfieldoff__SCITERDEF_CITERATOR; const int meltfieldoff__SCITERDEF_CITERATOR = 5; /* in CLASS_SOURCE_DEFCITERATOR */ MELT_EXTERN const int meltfieldoff__SCITER_BODY; const int meltfieldoff__SCITER_BODY = 5; /* in CLASS_SOURCE_CITERATION */ MELT_EXTERN const int meltfieldoff__SCITER_OPER; const int meltfieldoff__SCITER_OPER = 3; /* in CLASS_SOURCE_CITERATION */ MELT_EXTERN const int meltfieldoff__SCITER_VARBIND; const int meltfieldoff__SCITER_VARBIND = 4; /* in CLASS_SOURCE_CITERATION */ MELT_EXTERN const int meltfieldoff__SCLASS_CLABIND; const int meltfieldoff__SCLASS_CLABIND = 5; /* in CLASS_SOURCE_DEFCLASS */ MELT_EXTERN const int meltfieldoff__SCLASS_FLDBINDS; const int meltfieldoff__SCLASS_FLDBINDS = 7; /* in CLASS_SOURCE_DEFCLASS */ MELT_EXTERN const int meltfieldoff__SCLASS_SUPERBIND; const int meltfieldoff__SCLASS_SUPERBIND = 6; /* in CLASS_SOURCE_DEFCLASS */ MELT_EXTERN const int meltfieldoff__SCMATDEF_CMATCHER; const int meltfieldoff__SCMATDEF_CMATCHER = 5; /* in CLASS_SOURCE_DEFCMATCHER */ MELT_EXTERN const int meltfieldoff__SCMATDEF_FILLLOC; const int meltfieldoff__SCMATDEF_FILLLOC = 7; /* in CLASS_SOURCE_DEFCMATCHER */ MELT_EXTERN const int meltfieldoff__SCMATDEF_OPERLOC; const int meltfieldoff__SCMATDEF_OPERLOC = 8; /* in CLASS_SOURCE_DEFCMATCHER */ MELT_EXTERN const int meltfieldoff__SCMATDEF_TESTLOC; const int meltfieldoff__SCMATDEF_TESTLOC = 6; /* in CLASS_SOURCE_DEFCMATCHER */ MELT_EXTERN const int meltfieldoff__SCMATX_CMATCHER; const int meltfieldoff__SCMATX_CMATCHER = 3; /* in CLASS_SOURCE_CMATCHEXPR */ MELT_EXTERN const int meltfieldoff__SCOMM_STR; const int meltfieldoff__SCOMM_STR = 2; /* in CLASS_SOURCE_COMMENT */ MELT_EXTERN const int meltfieldoff__SC_CODESTRING; const int meltfieldoff__SC_CODESTRING = 2; /* in CLASS_SOURCE_CODE_STRING */ MELT_EXTERN const int meltfieldoff__SDEFINE_BODY; const int meltfieldoff__SDEFINE_BODY = 4; /* in CLASS_SOURCE_DEFINE */ MELT_EXTERN const int meltfieldoff__SDEFSEL_FORMALS; const int meltfieldoff__SDEFSEL_FORMALS = 9; /* in CLASS_SOURCE_DEFSELECTOR */ MELT_EXTERN const int meltfieldoff__SDEF_DOC; const int meltfieldoff__SDEF_DOC = 3; /* in CLASS_SOURCE_DEFINITION */ MELT_EXTERN const int meltfieldoff__SDEF_NAME; const int meltfieldoff__SDEF_NAME = 2; /* in CLASS_SOURCE_DEFINITION */ MELT_EXTERN const int meltfieldoff__SEXI_BODY; const int meltfieldoff__SEXI_BODY = 3; /* in CLASS_SOURCE_EXIT */ MELT_EXTERN const int meltfieldoff__SEXPMAC_DOC; const int meltfieldoff__SEXPMAC_DOC = 3; /* in CLASS_SOURCE_EXPORT_ANY_MACRO */ MELT_EXTERN const int meltfieldoff__SEXPMAC_MNAME; const int meltfieldoff__SEXPMAC_MNAME = 2; /* in CLASS_SOURCE_EXPORT_ANY_MACRO */ MELT_EXTERN const int meltfieldoff__SEXPMAC_MVAL; const int meltfieldoff__SEXPMAC_MVAL = 4; /* in CLASS_SOURCE_EXPORT_MACRO */ MELT_EXTERN const int meltfieldoff__SEXPORT_NAMES; const int meltfieldoff__SEXPORT_NAMES = 2; /* in CLASS_SOURCE_EXPORTCOMMON */ MELT_EXTERN const int meltfieldoff__SEXPPAT_PVAL; const int meltfieldoff__SEXPPAT_PVAL = 5; /* in CLASS_SOURCE_EXPORT_PATMACRO */ MELT_EXTERN const int meltfieldoff__SEXPSYN_DOC; const int meltfieldoff__SEXPSYN_DOC = 4; /* in CLASS_SOURCE_EXPORT_SYNONYM */ MELT_EXTERN const int meltfieldoff__SEXPSYN_NEWNAME; const int meltfieldoff__SEXPSYN_NEWNAME = 2; /* in CLASS_SOURCE_EXPORT_SYNONYM */ MELT_EXTERN const int meltfieldoff__SEXPSYN_OLDNAME; const int meltfieldoff__SEXPSYN_OLDNAME = 3; /* in CLASS_SOURCE_EXPORT_SYNONYM */ MELT_EXTERN const int meltfieldoff__SFEPD_PREDEF; const int meltfieldoff__SFEPD_PREDEF = 2; /* in CLASS_SOURCE_FETCH_PREDEFINED */ MELT_EXTERN const int meltfieldoff__SFLA_EXPR; const int meltfieldoff__SFLA_EXPR = 3; /* in CLASS_SOURCE_FIELDASSIGN */ MELT_EXTERN const int meltfieldoff__SFLA_FIELD; const int meltfieldoff__SFLA_FIELD = 2; /* in CLASS_SOURCE_FIELDASSIGN */ MELT_EXTERN const int meltfieldoff__SFMATX_FMATBIND; const int meltfieldoff__SFMATX_FMATBIND = 4; /* in CLASS_SOURCE_FUNMATCHEXPR */ MELT_EXTERN const int meltfieldoff__SFMATX_FMATCHER; const int meltfieldoff__SFMATX_FMATCHER = 3; /* in CLASS_SOURCE_FUNMATCHEXPR */ MELT_EXTERN const int meltfieldoff__SFORMAL_ARGS; const int meltfieldoff__SFORMAL_ARGS = 4; /* in CLASS_SOURCE_DEFINITION_FORMAL */ MELT_EXTERN const int meltfieldoff__SFRV_BODY; const int meltfieldoff__SFRV_BODY = 3; /* in CLASS_SOURCE_FOREVER */ MELT_EXTERN const int meltfieldoff__SFUMATDEF_APPLYF; const int meltfieldoff__SFUMATDEF_APPLYF = 8; /* in CLASS_SOURCE_DEFUNMATCHER */ MELT_EXTERN const int meltfieldoff__SFUMATDEF_DATA; const int meltfieldoff__SFUMATDEF_DATA = 9; /* in CLASS_SOURCE_DEFUNMATCHER */ MELT_EXTERN const int meltfieldoff__SFUMATDEF_INS; const int meltfieldoff__SFUMATDEF_INS = 5; /* in CLASS_SOURCE_DEFUNMATCHER */ MELT_EXTERN const int meltfieldoff__SFUMATDEF_MATCHF; const int meltfieldoff__SFUMATDEF_MATCHF = 7; /* in CLASS_SOURCE_DEFUNMATCHER */ MELT_EXTERN const int meltfieldoff__SFUMATDEF_OUTS; const int meltfieldoff__SFUMATDEF_OUTS = 6; /* in CLASS_SOURCE_DEFUNMATCHER */ MELT_EXTERN const int meltfieldoff__SFUN_BODY; const int meltfieldoff__SFUN_BODY = 5; /* in CLASS_SOURCE_DEFUN */ MELT_EXTERN const int meltfieldoff__SHOOK_BODY; const int meltfieldoff__SHOOK_BODY = 9; /* in CLASS_SOURCE_DEFHOOK */ MELT_EXTERN const int meltfieldoff__SHOOK_CALLED; const int meltfieldoff__SHOOK_CALLED = 3; /* in CLASS_SOURCE_HOOK_CALL */ MELT_EXTERN const int meltfieldoff__SHOOK_CTYPE; const int meltfieldoff__SHOOK_CTYPE = 6; /* in CLASS_SOURCE_DEFHOOK */ MELT_EXTERN const int meltfieldoff__SHOOK_OUT_FORMALS; const int meltfieldoff__SHOOK_OUT_FORMALS = 5; /* in CLASS_SOURCE_DEFHOOK */ MELT_EXTERN const int meltfieldoff__SHOOK_PREDEF; const int meltfieldoff__SHOOK_PREDEF = 7; /* in CLASS_SOURCE_DEFHOOK */ MELT_EXTERN const int meltfieldoff__SHOOK_VARIABLE; const int meltfieldoff__SHOOK_VARIABLE = 8; /* in CLASS_SOURCE_DEFHOOK */ MELT_EXTERN const int meltfieldoff__SIFP_COND; const int meltfieldoff__SIFP_COND = 2; /* in CLASS_SOURCE_CPPIF */ MELT_EXTERN const int meltfieldoff__SIFP_ELSE; const int meltfieldoff__SIFP_ELSE = 4; /* in CLASS_SOURCE_CPPIF */ MELT_EXTERN const int meltfieldoff__SIFP_THEN; const int meltfieldoff__SIFP_THEN = 3; /* in CLASS_SOURCE_CPPIF */ MELT_EXTERN const int meltfieldoff__SIFVARIADIC_ARGBIND; const int meltfieldoff__SIFVARIADIC_ARGBIND = 2; /* in CLASS_SOURCE_IFVARIADIC */ MELT_EXTERN const int meltfieldoff__SIFVARIADIC_ELSE; const int meltfieldoff__SIFVARIADIC_ELSE = 4; /* in CLASS_SOURCE_IFVARIADIC */ MELT_EXTERN const int meltfieldoff__SIFVARIADIC_THEN; const int meltfieldoff__SIFVARIADIC_THEN = 3; /* in CLASS_SOURCE_IFVARIADIC */ MELT_EXTERN const int meltfieldoff__SIF_ELSE; const int meltfieldoff__SIF_ELSE = 4; /* in CLASS_SOURCE_IFELSE */ MELT_EXTERN const int meltfieldoff__SIF_TEST; const int meltfieldoff__SIF_TEST = 2; /* in CLASS_SOURCE_IF */ MELT_EXTERN const int meltfieldoff__SIF_THEN; const int meltfieldoff__SIF_THEN = 3; /* in CLASS_SOURCE_IF */ MELT_EXTERN const int meltfieldoff__SINST_CLABIND; const int meltfieldoff__SINST_CLABIND = 6; /* in CLASS_SOURCE_DEFINSTANCE */ MELT_EXTERN const int meltfieldoff__SINST_CLASS; const int meltfieldoff__SINST_CLASS = 5; /* in CLASS_SOURCE_DEFINSTANCE */ MELT_EXTERN const int meltfieldoff__SINST_FIELDS; const int meltfieldoff__SINST_FIELDS = 8; /* in CLASS_SOURCE_DEFINSTANCE */ MELT_EXTERN const int meltfieldoff__SINST_OBJNUM; const int meltfieldoff__SINST_OBJNUM = 7; /* in CLASS_SOURCE_DEFINSTANCE */ MELT_EXTERN const int meltfieldoff__SLABEL_BIND; const int meltfieldoff__SLABEL_BIND = 2; /* in CLASS_SOURCE_LABELLED */ MELT_EXTERN const int meltfieldoff__SLAM_ARGBIND; const int meltfieldoff__SLAM_ARGBIND = 2; /* in CLASS_SOURCE_LAMBDA */ MELT_EXTERN const int meltfieldoff__SLAM_BODY; const int meltfieldoff__SLAM_BODY = 3; /* in CLASS_SOURCE_LAMBDA */ MELT_EXTERN const int meltfieldoff__SLAM_ORIGMACRO; const int meltfieldoff__SLAM_ORIGMACRO = 4; /* in CLASS_SOURCE_LAMBDA_FOR_MACRO */ MELT_EXTERN const int meltfieldoff__SLAZYMACRO_FUN; const int meltfieldoff__SLAZYMACRO_FUN = 2; /* in CLASS_SOURCE_LAZY_MACRO_EXPANSION */ MELT_EXTERN const int meltfieldoff__SLAZYMACRO_OPER; const int meltfieldoff__SLAZYMACRO_OPER = 3; /* in CLASS_SOURCE_LAZY_MACRO_EXPANSION */ MELT_EXTERN const int meltfieldoff__SLETB_BINDER; const int meltfieldoff__SLETB_BINDER = 2; /* in CLASS_SOURCE_ANY_LET_BINDING */ MELT_EXTERN const int meltfieldoff__SLETB_EXPR; const int meltfieldoff__SLETB_EXPR = 4; /* in CLASS_SOURCE_LET_BINDING */ MELT_EXTERN const int meltfieldoff__SLETB_TYPE; const int meltfieldoff__SLETB_TYPE = 3; /* in CLASS_SOURCE_LET_BINDING */ MELT_EXTERN const int meltfieldoff__SLETFM_MACROLETBIND; const int meltfieldoff__SLETFM_MACROLETBIND = 5; /* in CLASS_SOURCE_LET_BINDING_FOR_MACRO */ MELT_EXTERN const int meltfieldoff__SLETM_MACRO_BODY; const int meltfieldoff__SLETM_MACRO_BODY = 4; /* in CLASS_SOURCE_MACRO_LET_BINDING */ MELT_EXTERN const int meltfieldoff__SLETM_MACRO_FORMALS; const int meltfieldoff__SLETM_MACRO_FORMALS = 3; /* in CLASS_SOURCE_MACRO_LET_BINDING */ MELT_EXTERN const int meltfieldoff__SLET_BINDINGS; const int meltfieldoff__SLET_BINDINGS = 2; /* in CLASS_SOURCE_LET */ MELT_EXTERN const int meltfieldoff__SLET_BODY; const int meltfieldoff__SLET_BODY = 3; /* in CLASS_SOURCE_LET */ MELT_EXTERN const int meltfieldoff__SMACINST_DEFMACRO; const int meltfieldoff__SMACINST_DEFMACRO = 2; /* in CLASS_SOURCE_MACRO_INSTALLATION */ MELT_EXTERN const int meltfieldoff__SMACINST_ENV; const int meltfieldoff__SMACINST_ENV = 3; /* in CLASS_SOURCE_MACRO_INSTALLATION */ MELT_EXTERN const int meltfieldoff__SMACRO_BINDING; const int meltfieldoff__SMACRO_BINDING = 6; /* in CLASS_SOURCE_DEFMACRO */ MELT_EXTERN const int meltfieldoff__SMACRO_SOURCELETBINDING; const int meltfieldoff__SMACRO_SOURCELETBINDING = 7; /* in CLASS_SOURCE_DEFMACRO_IN_LET */ MELT_EXTERN const int meltfieldoff__SMAT_CASES; const int meltfieldoff__SMAT_CASES = 3; /* in CLASS_SOURCE_MATCH */ MELT_EXTERN const int meltfieldoff__SMAT_MATCHEDX; const int meltfieldoff__SMAT_MATCHEDX = 2; /* in CLASS_SOURCE_MATCH */ MELT_EXTERN const int meltfieldoff__SMINS_CLABIND; const int meltfieldoff__SMINS_CLABIND = 3; /* in CLASS_SOURCE_INSTANCE */ MELT_EXTERN const int meltfieldoff__SMINS_CLASS; const int meltfieldoff__SMINS_CLASS = 2; /* in CLASS_SOURCE_INSTANCE */ MELT_EXTERN const int meltfieldoff__SMINS_FIELDS; const int meltfieldoff__SMINS_FIELDS = 4; /* in CLASS_SOURCE_INSTANCE */ MELT_EXTERN const int meltfieldoff__SMULC_BODY; const int meltfieldoff__SMULC_BODY = 4; /* in CLASS_SOURCE_MULTICALL */ MELT_EXTERN const int meltfieldoff__SMULC_CALL; const int meltfieldoff__SMULC_CALL = 3; /* in CLASS_SOURCE_MULTICALL */ MELT_EXTERN const int meltfieldoff__SMULC_RESBIND; const int meltfieldoff__SMULC_RESBIND = 2; /* in CLASS_SOURCE_MULTICALL */ MELT_EXTERN const int meltfieldoff__SOBJ_PREDEF; const int meltfieldoff__SOBJ_PREDEF = 4; /* in CLASS_SOURCE_DEFOBJCOMMON */ MELT_EXTERN const int meltfieldoff__SOR_DISJ; const int meltfieldoff__SOR_DISJ = 2; /* in CLASS_SOURCE_OR */ MELT_EXTERN const int meltfieldoff__SPAC_INARGS; const int meltfieldoff__SPAC_INARGS = 7; /* in CLASS_SOURCE_PATTERN_COMPOSITE */ MELT_EXTERN const int meltfieldoff__SPAC_OPERATOR; const int meltfieldoff__SPAC_OPERATOR = 5; /* in CLASS_SOURCE_PATTERN_COMPOSITE */ MELT_EXTERN const int meltfieldoff__SPAC_OPERBIND; const int meltfieldoff__SPAC_OPERBIND = 6; /* in CLASS_SOURCE_PATTERN_COMPOSITE */ MELT_EXTERN const int meltfieldoff__SPAC_OUTARGS; const int meltfieldoff__SPAC_OUTARGS = 8; /* in CLASS_SOURCE_PATTERN_COMPOSITE */ MELT_EXTERN const int meltfieldoff__SPAF_FIELD; const int meltfieldoff__SPAF_FIELD = 2; /* in CLASS_SOURCE_FIELD_PATTERN */ MELT_EXTERN const int meltfieldoff__SPAF_PATTERN; const int meltfieldoff__SPAF_PATTERN = 3; /* in CLASS_SOURCE_FIELD_PATTERN */ MELT_EXTERN const int meltfieldoff__SPATVAR_NBOCC; const int meltfieldoff__SPATVAR_NBOCC = 4; /* in CLASS_SOURCE_PATTERN_VARIABLE */ MELT_EXTERN const int meltfieldoff__SPATVAR_SYMB; const int meltfieldoff__SPATVAR_SYMB = 3; /* in CLASS_SOURCE_PATTERN_VARIABLE */ MELT_EXTERN const int meltfieldoff__SPAT_CLASS; const int meltfieldoff__SPAT_CLASS = 3; /* in CLASS_SOURCE_PATTERN_OBJECT */ MELT_EXTERN const int meltfieldoff__SPAT_CONSTX; const int meltfieldoff__SPAT_CONSTX = 3; /* in CLASS_SOURCE_PATTERN_CONSTANT */ MELT_EXTERN const int meltfieldoff__SPAT_FIELDS; const int meltfieldoff__SPAT_FIELDS = 4; /* in CLASS_SOURCE_PATTERN_OBJECT */ MELT_EXTERN const int meltfieldoff__SPRIM_EXPANSION; const int meltfieldoff__SPRIM_EXPANSION = 6; /* in CLASS_SOURCE_DEFPRIMITIVE */ MELT_EXTERN const int meltfieldoff__SPRIM_EXPLOC; const int meltfieldoff__SPRIM_EXPLOC = 7; /* in CLASS_SOURCE_DEFPRIMITIVE */ MELT_EXTERN const int meltfieldoff__SPRIM_OPER; const int meltfieldoff__SPRIM_OPER = 3; /* in CLASS_SOURCE_PRIMITIVE */ MELT_EXTERN const int meltfieldoff__SPRIM_TYPE; const int meltfieldoff__SPRIM_TYPE = 5; /* in CLASS_SOURCE_DEFPRIMITIVE */ MELT_EXTERN const int meltfieldoff__SPROGN_BODY; const int meltfieldoff__SPROGN_BODY = 2; /* in CLASS_SOURCE_PROGN */ MELT_EXTERN const int meltfieldoff__SQUOTED; const int meltfieldoff__SQUOTED = 2; /* in CLASS_SOURCE_QUOTE */ MELT_EXTERN const int meltfieldoff__SRCGEN_DEFIN; const int meltfieldoff__SRCGEN_DEFIN = 2; /* in CLASS_SOURCE_GENERATOR_DEVICE */ MELT_EXTERN const int meltfieldoff__SRCGEN_REPR; const int meltfieldoff__SRCGEN_REPR = 3; /* in CLASS_SOURCE_GENERATOR_DEVICE */ MELT_EXTERN const int meltfieldoff__SSTPD_PREDEF; const int meltfieldoff__SSTPD_PREDEF = 2; /* in CLASS_SOURCE_STORE_PREDEFINED */ MELT_EXTERN const int meltfieldoff__SSTPD_VALUE; const int meltfieldoff__SSTPD_VALUE = 3; /* in CLASS_SOURCE_STORE_PREDEFINED */ MELT_EXTERN const int meltfieldoff__SSTQ_EXPR; const int meltfieldoff__SSTQ_EXPR = 3; /* in CLASS_SOURCE_SETQ */ MELT_EXTERN const int meltfieldoff__SSTQ_VAR; const int meltfieldoff__SSTQ_VAR = 2; /* in CLASS_SOURCE_SETQ */ MELT_EXTERN const int meltfieldoff__SUCME_COMMENT; const int meltfieldoff__SUCME_COMMENT = 2; /* in CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE */ MELT_EXTERN const int meltfieldoff__SUGET_FIELD; const int meltfieldoff__SUGET_FIELD = 3; /* in CLASS_SOURCE_GET_FIELD */ MELT_EXTERN const int meltfieldoff__SUGET_OBJ; const int meltfieldoff__SUGET_OBJ = 2; /* in CLASS_SOURCE_GET_FIELD */ MELT_EXTERN const int meltfieldoff__SUNBOX_CTYPE; const int meltfieldoff__SUNBOX_CTYPE = 2; /* in CLASS_SOURCE_UNBOX */ MELT_EXTERN const int meltfieldoff__SUNBOX_EXPR; const int meltfieldoff__SUNBOX_EXPR = 3; /* in CLASS_SOURCE_UNBOX */ MELT_EXTERN const int meltfieldoff__SUPUT_FIELDS; const int meltfieldoff__SUPUT_FIELDS = 3; /* in CLASS_SOURCE_PUT_FIELDS */ MELT_EXTERN const int meltfieldoff__SUPUT_OBJ; const int meltfieldoff__SUPUT_OBJ = 2; /* in CLASS_SOURCE_PUT_FIELDS */ MELT_EXTERN const int meltfieldoff__SUSEPACKAGE_PKGTUPLE; const int meltfieldoff__SUSEPACKAGE_PKGTUPLE = 2; /* in CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG */ MELT_EXTERN const int meltfieldoff__SXCH_CTYPE; const int meltfieldoff__SXCH_CTYPE = 4; /* in CLASS_SOURCE_EXPRCHUNK */ /* exported 109 class lengths */ MELT_EXTERN const int meltclasslen__CLASS_DEFINED_MACRO_BINDING; const int meltclasslen__CLASS_DEFINED_MACRO_BINDING = 4; MELT_EXTERN const int meltclasslen__CLASS_DIAGNOSTIC_STATE; const int meltclasslen__CLASS_DIAGNOSTIC_STATE = 5; MELT_EXTERN const int meltclasslen__CLASS_PATTERN_EXPANSION_CONTEXT; const int meltclasslen__CLASS_PATTERN_EXPANSION_CONTEXT = 4; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_AGAIN; const int meltclasslen__CLASS_SOURCE_AGAIN = 3; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_ANY_LET_BINDING; const int meltclasslen__CLASS_SOURCE_ANY_LET_BINDING = 3; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_APPLY; const int meltclasslen__CLASS_SOURCE_APPLY = 4; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_ARGUMENTED_OPERATOR; const int meltclasslen__CLASS_SOURCE_ARGUMENTED_OPERATOR = 3; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION; const int meltclasslen__CLASS_SOURCE_ARITHMETIC_VARIADIC_OPERATION = 5; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_BOX; const int meltclasslen__CLASS_SOURCE_BOX = 3; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_CHEADER; const int meltclasslen__CLASS_SOURCE_CHEADER = 3; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_CIMPLEMENT; const int meltclasslen__CLASS_SOURCE_CIMPLEMENT = 3; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_CITERATION; const int meltclasslen__CLASS_SOURCE_CITERATION = 6; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_CMATCHEXPR; const int meltclasslen__CLASS_SOURCE_CMATCHEXPR = 4; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_CODECHUNK; const int meltclasslen__CLASS_SOURCE_CODECHUNK = 4; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_CODE_STRING; const int meltclasslen__CLASS_SOURCE_CODE_STRING = 3; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_COMMENT; const int meltclasslen__CLASS_SOURCE_COMMENT = 3; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_COMPILE_DIAGNOSTIC; const int meltclasslen__CLASS_SOURCE_COMPILE_DIAGNOSTIC = 4; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_COMPILE_ERROR; const int meltclasslen__CLASS_SOURCE_COMPILE_ERROR = 4; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_COMPILE_WARNING; const int meltclasslen__CLASS_SOURCE_COMPILE_WARNING = 4; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_CONSTANT_BOX; const int meltclasslen__CLASS_SOURCE_CONSTANT_BOX = 3; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_CPPIF; const int meltclasslen__CLASS_SOURCE_CPPIF = 5; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE; const int meltclasslen__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE = 3; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_DEFCITERATOR; const int meltclasslen__CLASS_SOURCE_DEFCITERATOR = 8; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_DEFCLASS; const int meltclasslen__CLASS_SOURCE_DEFCLASS = 8; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_DEFCMATCHER; const int meltclasslen__CLASS_SOURCE_DEFCMATCHER = 9; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_DEFHOOK; const int meltclasslen__CLASS_SOURCE_DEFHOOK = 10; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_DEFINE; const int meltclasslen__CLASS_SOURCE_DEFINE = 5; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_DEFINITION; const int meltclasslen__CLASS_SOURCE_DEFINITION = 4; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_DEFINITION_FORMAL; const int meltclasslen__CLASS_SOURCE_DEFINITION_FORMAL = 5; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_DEFINSTANCE; const int meltclasslen__CLASS_SOURCE_DEFINSTANCE = 9; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_DEFMACRO; const int meltclasslen__CLASS_SOURCE_DEFMACRO = 7; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_DEFMACRO_IN_LET; const int meltclasslen__CLASS_SOURCE_DEFMACRO_IN_LET = 8; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_DEFOBJCOMMON; const int meltclasslen__CLASS_SOURCE_DEFOBJCOMMON = 5; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_DEFPRIMITIVE; const int meltclasslen__CLASS_SOURCE_DEFPRIMITIVE = 8; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_DEFSELECTOR; const int meltclasslen__CLASS_SOURCE_DEFSELECTOR = 10; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_DEFUN; const int meltclasslen__CLASS_SOURCE_DEFUN = 6; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_DEFUNMATCHER; const int meltclasslen__CLASS_SOURCE_DEFUNMATCHER = 10; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_DEFVAR; const int meltclasslen__CLASS_SOURCE_DEFVAR = 4; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_EXIT; const int meltclasslen__CLASS_SOURCE_EXIT = 4; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_EXPORTCOMMON; const int meltclasslen__CLASS_SOURCE_EXPORTCOMMON = 3; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_EXPORT_ANY_MACRO; const int meltclasslen__CLASS_SOURCE_EXPORT_ANY_MACRO = 4; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_EXPORT_CLASS; const int meltclasslen__CLASS_SOURCE_EXPORT_CLASS = 3; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_EXPORT_DEFMACRO; const int meltclasslen__CLASS_SOURCE_EXPORT_DEFMACRO = 4; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_EXPORT_MACRO; const int meltclasslen__CLASS_SOURCE_EXPORT_MACRO = 5; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_EXPORT_PATMACRO; const int meltclasslen__CLASS_SOURCE_EXPORT_PATMACRO = 6; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_EXPORT_SYNONYM; const int meltclasslen__CLASS_SOURCE_EXPORT_SYNONYM = 5; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_EXPORT_VALUES; const int meltclasslen__CLASS_SOURCE_EXPORT_VALUES = 3; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_EXPRCHUNK; const int meltclasslen__CLASS_SOURCE_EXPRCHUNK = 5; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_FETCH_PREDEFINED; const int meltclasslen__CLASS_SOURCE_FETCH_PREDEFINED = 3; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_FIELDASSIGN; const int meltclasslen__CLASS_SOURCE_FIELDASSIGN = 4; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_FIELD_PATTERN; const int meltclasslen__CLASS_SOURCE_FIELD_PATTERN = 4; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_FOREVER; const int meltclasslen__CLASS_SOURCE_FOREVER = 4; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_FUNMATCHEXPR; const int meltclasslen__CLASS_SOURCE_FUNMATCHEXPR = 5; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_GENERATOR_DEVICE; const int meltclasslen__CLASS_SOURCE_GENERATOR_DEVICE = 4; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_GET_FIELD; const int meltclasslen__CLASS_SOURCE_GET_FIELD = 4; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_HOOK_CALL; const int meltclasslen__CLASS_SOURCE_HOOK_CALL = 4; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_IF; const int meltclasslen__CLASS_SOURCE_IF = 4; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_IFELSE; const int meltclasslen__CLASS_SOURCE_IFELSE = 5; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_IFVARIADIC; const int meltclasslen__CLASS_SOURCE_IFVARIADIC = 5; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_INSTANCE; const int meltclasslen__CLASS_SOURCE_INSTANCE = 5; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_LABELLED; const int meltclasslen__CLASS_SOURCE_LABELLED = 3; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_LAMBDA; const int meltclasslen__CLASS_SOURCE_LAMBDA = 4; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_LAMBDA_FOR_MACRO; const int meltclasslen__CLASS_SOURCE_LAMBDA_FOR_MACRO = 5; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_LAZY_MACRO_EXPANSION; const int meltclasslen__CLASS_SOURCE_LAZY_MACRO_EXPANSION = 4; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_LET; const int meltclasslen__CLASS_SOURCE_LET = 4; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_LETREC; const int meltclasslen__CLASS_SOURCE_LETREC = 4; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_LETREC_BINDING; const int meltclasslen__CLASS_SOURCE_LETREC_BINDING = 5; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_LET_BINDING; const int meltclasslen__CLASS_SOURCE_LET_BINDING = 5; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_LET_BINDING_FOR_MACRO; const int meltclasslen__CLASS_SOURCE_LET_BINDING_FOR_MACRO = 6; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_LIST; const int meltclasslen__CLASS_SOURCE_LIST = 3; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_MACRO_INSTALLATION; const int meltclasslen__CLASS_SOURCE_MACRO_INSTALLATION = 4; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_MACRO_LET_BINDING; const int meltclasslen__CLASS_SOURCE_MACRO_LET_BINDING = 5; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_MATCH; const int meltclasslen__CLASS_SOURCE_MATCH = 4; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_MATCHALT; const int meltclasslen__CLASS_SOURCE_MATCHALT = 4; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_MATCH_CASE; const int meltclasslen__CLASS_SOURCE_MATCH_CASE = 4; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE; const int meltclasslen__CLASS_SOURCE_MODULE_IS_GPL_COMPATIBLE = 3; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_MSEND; const int meltclasslen__CLASS_SOURCE_MSEND = 5; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_MULTICALL; const int meltclasslen__CLASS_SOURCE_MULTICALL = 5; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_OR; const int meltclasslen__CLASS_SOURCE_OR = 3; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT; const int meltclasslen__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT = 2; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_PATTERN; const int meltclasslen__CLASS_SOURCE_PATTERN = 3; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_PATTERN_AND; const int meltclasslen__CLASS_SOURCE_PATTERN_AND = 4; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_PATTERN_COMPOSITE; const int meltclasslen__CLASS_SOURCE_PATTERN_COMPOSITE = 9; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_PATTERN_CONSTANT; const int meltclasslen__CLASS_SOURCE_PATTERN_CONSTANT = 4; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_PATTERN_CONSTRUCT; const int meltclasslen__CLASS_SOURCE_PATTERN_CONSTRUCT = 4; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_PATTERN_C_MATCH; const int meltclasslen__CLASS_SOURCE_PATTERN_C_MATCH = 9; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_PATTERN_INSTANCE; const int meltclasslen__CLASS_SOURCE_PATTERN_INSTANCE = 5; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_PATTERN_JOKER_VARIABLE; const int meltclasslen__CLASS_SOURCE_PATTERN_JOKER_VARIABLE = 5; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_PATTERN_LIST; const int meltclasslen__CLASS_SOURCE_PATTERN_LIST = 4; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_PATTERN_MATCHER; const int meltclasslen__CLASS_SOURCE_PATTERN_MATCHER = 9; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_PATTERN_OBJECT; const int meltclasslen__CLASS_SOURCE_PATTERN_OBJECT = 5; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_PATTERN_OR; const int meltclasslen__CLASS_SOURCE_PATTERN_OR = 4; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_PATTERN_TUPLE; const int meltclasslen__CLASS_SOURCE_PATTERN_TUPLE = 4; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_PATTERN_VARIABLE; const int meltclasslen__CLASS_SOURCE_PATTERN_VARIABLE = 5; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_PRIMITIVE; const int meltclasslen__CLASS_SOURCE_PRIMITIVE = 4; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_PROGN; const int meltclasslen__CLASS_SOURCE_PROGN = 3; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_PROTOCHUNK; const int meltclasslen__CLASS_SOURCE_PROTOCHUNK = 4; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_PUT_FIELDS; const int meltclasslen__CLASS_SOURCE_PUT_FIELDS = 4; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_QUASI_BOX; const int meltclasslen__CLASS_SOURCE_QUASI_BOX = 3; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_QUOTE; const int meltclasslen__CLASS_SOURCE_QUOTE = 3; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_RETURN; const int meltclasslen__CLASS_SOURCE_RETURN = 3; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_SETQ; const int meltclasslen__CLASS_SOURCE_SETQ = 4; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_STORE_PREDEFINED; const int meltclasslen__CLASS_SOURCE_STORE_PREDEFINED = 4; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_TUPLE; const int meltclasslen__CLASS_SOURCE_TUPLE = 3; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_UNBOX; const int meltclasslen__CLASS_SOURCE_UNBOX = 4; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_UNSAFE_GET_FIELD; const int meltclasslen__CLASS_SOURCE_UNSAFE_GET_FIELD = 4; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_UNSAFE_PUT_FIELDS; const int meltclasslen__CLASS_SOURCE_UNSAFE_PUT_FIELDS = 4; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE; const int meltclasslen__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE = 3; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG; const int meltclasslen__CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG = 3; /**** end of warmelt-macro ****/